Alv report*urgent

diff erence between list and grid display.
difference between occurs 0 and occurs 10

Hi Sunil
When you give OCCURS 0,
the incremented memory in Internal table will be : 8KB by default.
when you give occurs 10 ,
the incremented memory in Internal table will be : ten records of memory.
Means,
Initially, the internal table has 8 KB of memory.
if that is filled out with data, then the memory will be incremented according to OCCURS parameter.(wat i gave in the above).
Coming to performance: If you know the no. of records your fetching into the Internal table you use OCCURS <no. of records>. It would perform well than OCCURS 0.
Occurs 0 keeps on incrementing 8kb when there is a value. But Occurs 10 will assign 10 records space even though there is no value.
Lets suppose you did not get any values from the DB after a select, in this case if you write Occurs 0 it will not allocate any single space in the memory. If you write OCCURS 10 it will pre allocates some memory.
Reward if helpful
Regards
Lakshman

Similar Messages

Problem in Auto Mail of ALV Report : Urgent

Hello All ,
I have created one ALV Report contain 240 Columns . This report is need to schedule for auto mail in HTML Format.
My Problem is when I am sending this report manually the html output displays all the columns in the mail attachment. While it is scheduled thro' SM36 in background mode the HTML format displays only restricted columns (say upto 132 columns)
Also, we have tried to create new page format X_65_512/2 to accomodate the output. However this option did not work.
Any solution to resolve the same is most welcome !
Regards
Swati Namdeo

Hi
This problem was not resolved. I tried few things but not good. So what we did we created a few profile like MM/SD/FICA and we executed report based on profile and sent them only the column relevant to them.
Regards,
Atul Joshi

URGENT: REGARDING POSTING DATE AND DELETION OF ZEROS IN ALV REPORT

Hi,
I had made a report in which i have to display 'POSTING DATE' (iseg-budat) when we execute the report i.e. it should be displayed as PERIOD :- _______ to _______ .
2nd problem is i had displayed the material no. ,but there are zeros which are displaying in dere ,i want to remove dem ... example, if the mat.no. is 2321 ,it is displaying 000002321. i want to remove these zeros.
Its request to all of u dat plz help me as fast as possible as it is most urgent to me and if any body provide me help he or sh e will be definately rewarded..
Regards,
ric.s

Here i am giving you one of the ALV reports i have generated. Check this program. I hope it will be helpful to you.
REPORT ZFI_ASSIGNED_FUNDS_FINAL.
TABLES: FMIT,FMCIT,FPOS,IFMEISA1,FMFCTRT,BSEG,ZREV_BUDGET.
TYPE-POOLS: SLIS.
*ALV data declarations
DATA: FIELDCATALOG TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,
 GD_SORT TYPE SLIS_T_SORTINFO_ALV WITH HEADER LINE,
 GD_TAB_GROUP TYPE SLIS_T_SP_GROUP_ALV,
 GD_LAYOUT TYPE SLIS_LAYOUT_ALV,
 GD_REPID LIKE SY-REPID.
*For ALV top of page
DATA : IT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER.
*For ALV Events
DATA : IT_EVENT1 TYPE SLIS_T_EVENT.
*For ALV Events
DATA : IT_EVENT TYPE SLIS_ALV_EVENT.
*For top of page heading
DATA: IT_LINE TYPE SLIS_LISTHEADER.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETER : RADIO RADIOBUTTON GROUP R1.
IF RADIO EQ 'X'.
SELECT-OPTIONS: FIPEX FOR FPOS-FIPEX, " SELECTION FOR FUNDS CENTER & COMMITMENT ITEM
 RFISTL FOR FMIT-RFISTL.
ENDIF.
PARAMETER: RADIO1 RADIOBUTTON GROUP R1.
IF RADIO1 EQ 'X'.
SELECT-OPTIONS : HKONT FOR BSEG-HKONT, " SELECTION FOR COST CENTER & G/L ACCOUNT
 KOSTL FOR ZREV_BUDGET-KOSTL.
ENDIF.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: PERDE FOR IFMEISA1-PERDE DEFAULT '01' TO '12' OBLIGATORY.
PARAMETER : RYEAR LIKE FMIT-RYEAR OBLIGATORY.
SELECTION-SCREEN END OF BLOCK B2.
DATA: BEGIN OF IT_TAB OCCURS 0,
 FIKRS LIKE FMFCTR-FIKRS,
 FICTR LIKE CSKS-KOSTL,
 CTR_OBJNR LIKE FMFCTR-CTR_OBJNR,
 RFISTL LIKE FMIT-RFISTL,
 OBJNR LIKE BPPE-OBJNR,
 END OF IT_TAB.
DATA: BEGIN OF IT_TAB1 OCCURS 0,
 CO_OBJNR LIKE BPIJ-CO_OBJNR,
 POSIT LIKE BPPE-POSIT,
 FIPEX LIKE FMPOSIT-FIPEX,
 FICTR LIKE FMFCTR-FICTR,
 KSTAR LIKE COSP-KSTAR,
 RFISTL LIKE FMIT-RFISTL,
 OBJNR1 LIKE BPPE-OBJNR,
 END OF IT_TAB1.
DATA: BEGIN OF IT_FMIT OCCURS 0,
 RYEAR LIKE FMIT-RYEAR,
 FIKRS LIKE FMIT-FIKRS,
 RFISTL LIKE ZREV_BUDGET-KOSTL,
 RFIPEX LIKE ZREV_BUDGET-KSTAR,
 HSL01 LIKE FMIT-HSL01,
 HSL02 LIKE FMIT-HSL02,
 HSL03 LIKE FMIT-HSL03,
 HSL04 LIKE FMIT-HSL04,
 HSL05 LIKE FMIT-HSL05,
 HSL06 LIKE FMIT-HSL06,
 HSL07 LIKE FMIT-HSL07,
 HSL08 LIKE FMIT-HSL08,
 HSL09 LIKE FMIT-HSL09,
 HSL10 LIKE FMIT-HSL10,
 HSL11 LIKE FMIT-HSL11,
 HSL12 LIKE FMIT-HSL12,
 HSL13 LIKE FMIT-HSL13,
 HSL14 LIKE FMIT-HSL14,
 HSL15 LIKE FMIT-HSL15,
 HSL16 LIKE FMIT-HSL16,
 END OF IT_FMIT.
DATA: BEGIN OF IT_FMIT1 OCCURS 0,
 RYEAR LIKE FMIT-RYEAR,
 FIKRS LIKE FMIT-FIKRS,
 RFISTL LIKE ZREV_BUDGET-KOSTL,
 RFIPEX LIKE FMPG-FIPEX,
 TOTAL LIKE FMIT-TSL01,
 TOTAL1 LIKE FMIT-TSL01,
 OBJNR LIKE BPPE-OBJNR,
 POSIT LIKE BPPE-POSIT,
 END OF IT_FMIT1.
DATA: BEGIN OF IT_BPPE OCCURS 0,
 OBJNR LIKE BPPE-OBJNR,
 POSIT LIKE BPPE-POSIT,
 GJAHR LIKE BPPE-GJAHR,
 WLP01 LIKE BPPE-WLP01,
 WLP02 LIKE BPPE-WLP02,
 WLP03 LIKE BPPE-WLP03,
 WLP04 LIKE BPPE-WLP04,
 WLP05 LIKE BPPE-WLP05,
 WLP06 LIKE BPPE-WLP06,
 WLP07 LIKE BPPE-WLP07,
 WLP08 LIKE BPPE-WLP08,
 WLP09 LIKE BPPE-WLP09,
 WLP10 LIKE BPPE-WLP10,
 WLP11 LIKE BPPE-WLP11,
 WLP12 LIKE BPPE-WLP12,
 END OF IT_BPPE.
DATA: BEGIN OF IT_BPPE1 OCCURS 0,
 OBJNR LIKE BPPE-OBJNR,
 POSIT LIKE BPPE-POSIT,
 GJAHR LIKE BPPE-GJAHR,
 RFISTL LIKE FMIT-RFISTL,
 FIPEX LIKE FPOS-FIPEX,
 TOTAL2 LIKE BPPE-WLP01,
 END OF IT_BPPE1.
DATA: BEGIN OF IT_CSKS OCCURS 0,
 KOKRS LIKE CSKS-KOKRS,
 KOSTL LIKE CSKS-KOSTL,
 BUKRS LIKE CSKS-BUKRS,
 OBJNR LIKE CSKS-OBJNR,
 END OF IT_CSKS.
DATA: BEGIN OF IT_COSP OCCURS 0,
 OBJNR LIKE COSP-OBJNR,
 GJAHR LIKE COSP-GJAHR,
 KSTAR LIKE COSP-KSTAR,
 BEKNZ LIKE COSP-BEKNZ,
 WKG001 LIKE COSP-WKG001,
 WKG002 LIKE COSP-WKG002,
 WKG003 LIKE COSP-WKG003,
 WKG004 LIKE COSP-WKG004,
 WKG005 LIKE COSP-WKG005,
 WKG006 LIKE COSP-WKG006,
 WKG007 LIKE COSP-WKG007,
 WKG008 LIKE COSP-WKG008,
 WKG009 LIKE COSP-WKG009,
 WKG010 LIKE COSP-WKG010,
 WKG011 LIKE COSP-WKG011,
 WKG012 LIKE COSP-WKG012,
 END OF IT_COSP.
DATA: BEGIN OF IT_COSP2 OCCURS 0,
 OBJNR LIKE COSP-OBJNR,
 GJAHR LIKE COSP-GJAHR,
 KSTAR LIKE COSP-KSTAR,
 FIPEX LIKE FMPG-FIPEX,
 TOTAL LIKE COSP-WKG001,
 TOTAL1 LIKE COSP-WKG001,
 OBJNR1 LIKE BPPE-OBJNR,
 POSIT LIKE BPPE-POSIT,
 END OF IT_COSP2.
IF RADIO EQ 'X'.
DATA: BEGIN OF IT_FINAL OCCURS 0,
 FIKRS LIKE FMIT-FIKRS,
 RFISTL LIKE FMIT-RFISTL,
 RFIPEX LIKE FMIT-RFIPEX,
 TEXT LIKE FMCIT-TEXT1,
 ALLOC LIKE FMIT-TSL16,
 USED LIKE FMIT-TSL16,
 REMAIN LIKE FMIT-TSL16,
 BEZEICH LIKE FMFCTRT-BEZEICH,
 END OF IT_FINAL.
ENDIF.
IF RADIO1 EQ 'X'.
DATA: BEGIN OF IT_FINAL1 OCCURS 0,
 GJAHR LIKE ZREV_BUDGET-GJAHR,
 KOSTL LIKE ZREV_BUDGET-KOSTL,
 KSTAR LIKE ZREV_BUDGET-KSTAR,
 TOTAL1 LIKE COSP-WKG001,
 TOTAL3 LIKE COSP-WKG001,
 TEXT LIKE CSKU-KTEXT,
 VARIANCE LIKE COSP-WKG001,
 BEZEICH LIKE FMFCTRT-BEZEICH,
 END OF IT_FINAL1.
ENDIF.
DATA: BEGIN OF IT_FISTL OCCURS 0,
 RFISTL LIKE FMIT-RFISTL,
 BEZEICH LIKE FMFCTRT-BEZEICH,
 END OF IT_FISTL.
DATA: BEGIN OF IT_HKONT OCCURS 0,
 KSTAR LIKE CSKU-KSTAR,
 KTEXT LIKE CSKU-KTEXT,
 END OF IT_HKONT.
DATA: PERIOD1 TYPE I,
 PERIOD2 TYPE I,
 PERIOD3 TYPE I,
 PERIO TYPE I.
DATA: BEZEICH LIKE FMFCTRT-BEZEICH.
CONSTANTS: C_00 TYPE MONAT VALUE '00',
 C_13 TYPE MONAT VALUE '13'.
DATA : IT_RETURN LIKE DDSHRETVAL OCCURS 0 WITH HEADER LINE.
DATA: FIPEX1 LIKE COSP-KSTAR.
A T - S E L E C T I O N S C R E E N
AT SELECTION-SCREEN.
LOOP AT PERDE.
 IF PERDE-LOW >= C_13 OR PERDE-HIGH >= C_13 .
 MESSAGE E022(ZA) WITH 'Enter Period values from 1 to 12'.
 EXIT.
 ENDIF.
ENDLOOP.
IF NOT PERDE-LOW IS INITIAL.
 PERIOD1 = PERDE-LOW.
ENDIF.
IF NOT PERDE-HIGH IS INITIAL.
 PERIOD2 = PERDE-HIGH.
 PERIOD3 = PERIOD2 - PERIOD1.
 PERIOD3 = PERIOD3 + 1.
ELSE.
 PERIOD3 = 1.
ENDIF.
PERIO = PERIOD1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR RFISTL-LOW.
SELECT FICTR BEZEICH INTO TABLE IT_FISTL FROM FMFCTRT
 WHERE SPRAS EQ 'EN'
 AND FIKRS EQ 'NFFM'.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 RETFIELD = 'RFISTL'
 VALUE_ORG = 'S'
 TABLES
 VALUE_TAB = IT_FISTL
 RETURN_TAB = IT_RETURN.
IF SY-SUBRC = 0.
 READ TABLE IT_RETURN INDEX 1.
 MOVE IT_RETURN-FIELDVAL TO RFISTL-LOW.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR RFISTL-HIGH.
SELECT FICTR BEZEICH INTO TABLE IT_FISTL FROM FMFCTRT
 WHERE SPRAS EQ 'EN'
 AND FIKRS EQ 'NFFM'.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 RETFIELD = 'RFISTL'
 VALUE_ORG = 'S'
 TABLES
 VALUE_TAB = IT_FISTL
 RETURN_TAB = IT_RETURN.
IF SY-SUBRC = 0.
 READ TABLE IT_RETURN INDEX 1.
 MOVE IT_RETURN-FIELDVAL TO RFISTL-HIGH.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR HKONT-LOW.
SELECT KSTAR KTEXT INTO TABLE IT_HKONT FROM CSKU WHERE SPRAS EQ 'EN'.
SORT IT_HKONT BY KSTAR.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 RETFIELD = 'HKONT'
 VALUE_ORG = 'S'
 TABLES
 VALUE_TAB = IT_HKONT
 RETURN_TAB = IT_RETURN.
IF SY-SUBRC = 0.
 READ TABLE IT_RETURN INDEX 1.
 MOVE IT_RETURN-FIELDVAL TO HKONT-LOW.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR HKONT-HIGH.
SELECT KSTAR KTEXT INTO TABLE IT_HKONT FROM CSKU WHERE SPRAS EQ 'EN'.
SORT IT_HKONT BY KSTAR.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 RETFIELD = 'HKONT'
 VALUE_ORG = 'S'
 TABLES
 VALUE_TAB = IT_HKONT
 RETURN_TAB = IT_RETURN.
IF SY-SUBRC = 0.
 READ TABLE IT_RETURN INDEX 1.
 MOVE IT_RETURN-FIELDVAL TO HKONT-HIGH.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR KOSTL-LOW.
SELECT FICTR BEZEICH INTO TABLE IT_FISTL FROM FMFCTRT
 WHERE SPRAS EQ 'EN'
 AND FIKRS IN KOSTL.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 RETFIELD = 'KOSTL'
 VALUE_ORG = 'S'
 TABLES
 VALUE_TAB = IT_FISTL
 RETURN_TAB = IT_RETURN.
IF SY-SUBRC = 0.
 READ TABLE IT_RETURN INDEX 1.
 MOVE IT_RETURN-FIELDVAL TO KOSTL-LOW.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR KOSTL-HIGH.
SELECT FICTR BEZEICH INTO TABLE IT_FISTL FROM FMFCTRT
 WHERE SPRAS EQ 'EN'
 AND FIKRS IN KOSTL.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 RETFIELD = 'KOSTL'
 VALUE_ORG = 'S'
 TABLES
 VALUE_TAB = IT_FISTL
 RETURN_TAB = IT_RETURN.
IF SY-SUBRC = 0.
 READ TABLE IT_RETURN INDEX 1.
 MOVE IT_RETURN-FIELDVAL TO KOSTL-HIGH.
ENDIF.
*START-OF-SELECTION
START-OF-SELECTION.
IF RADIO EQ 'X'. " FOR FUNDS CENTER AND COMMITMENT ITEM
 PERFORM GET_DATA.
 PERFORM PROCESS_DATA.
ENDIF.
IF RADIO1 EQ 'X'. " FOR COST CENTER AND G/L ACCOUNT
 PERFORM GET_DATA1.
 PERFORM PROCESS_DATA1.
ENDIF.
*END OF SELECTION
PERFORM BUILD_LAYOUT.
PERFORM BUILD_EVENTS.
IF RADIO EQ 'X'.
 PERFORM BUILD_FIELDCATALOG.
 PERFORM BUILD_SORT.
 PERFORM DISPLAY_ALV_REPORT.
ENDIF.
IF RADIO1 EQ 'X'.
 PERFORM BUILD_FIELDCATALOG1.
 PERFORM BUILD_SORT1.
 PERFORM DISPLAY_ALV_REPORT1.
ENDIF.
*& Form GET_DATA
 text
--> p1 text
<-- p2 text
FORM GET_DATA .
SELECT FIKRS FICTR CTR_OBJNR INTO TABLE IT_TAB FROM FMFCTR
 WHERE FIKRS EQ 'NFFM'
 AND FICTR IN RFISTL.
SELECT CO_OBJNR POSIT INTO TABLE IT_TAB1 FROM BPIJ
 FOR ALL ENTRIES IN IT_TAB
 WHERE CO_OBJNR EQ IT_TAB-CTR_OBJNR.
LOOP AT IT_TAB1.
 SELECT SINGLE FIPEX INTO IT_TAB1-FIPEX FROM FMPOSIT WHERE FIKRS EQ 'NFFM'
 AND POSIT EQ IT_TAB1-POSIT
 AND FIPEX IN FIPEX.
 IF SY-SUBRC EQ '0'.
 MODIFY IT_TAB1.
 ELSE.
 DELETE IT_TAB1.
 ENDIF.
ENDLOOP.
SELECT OBJNR
 POSIT
 GJAHR
 WLP01
 WLP02
 WLP03
 WLP04
 WLP05
 WLP06
 WLP07
 WLP08
 WLP09
 WLP10
 WLP11
 WLP12
 INTO TABLE IT_BPPE
 FROM BPPE
 FOR ALL ENTRIES IN IT_TAB1
 WHERE OBJNR EQ IT_TAB1-CO_OBJNR
 AND POSIT EQ IT_TAB1-POSIT
 AND GJAHR EQ RYEAR
 AND VORGA IN ('KBFR','KBUE','KBUS').
LOOP AT IT_BPPE.
 MOVE-CORRESPONDING IT_BPPE TO IT_BPPE1.
 IT_BPPE1-RFISTL = IT_BPPE1-OBJNR+6(4).
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_BPPE1-RFISTL
 IMPORTING
 OUTPUT = IT_BPPE1-RFISTL.
 CALL FUNCTION 'FM_FIPEX_GET_FROM_POSIT'
 EXPORTING
 I_FIKRS = 'NFFM'
 I_POSIT = IT_BPPE1-POSIT
 IMPORTING
 E_FIPEX = IT_BPPE1-FIPEX.
 PERIOD1 = PERIO.
 DO PERIOD3 TIMES.
 CASE PERIOD1.
 WHEN 1.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP01.
 WHEN 2.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP02.
 WHEN 3.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP03.
 WHEN 4.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP04.
 WHEN 5.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP05.
 WHEN 6.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP06.
 WHEN 7.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP07.
 WHEN 8.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP08.
 WHEN 9.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP09.
 WHEN 10.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP10.
 WHEN 11.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP11.
 WHEN 12.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP12.
 ENDCASE.
 IF PERIOD2 >= PERIOD1.
 PERIOD1 = PERIOD1 + 1.
 ENDIF.
 ENDDO.
 COLLECT IT_BPPE1.
 CLEAR PERIOD1.
 CLEAR IT_BPPE1.
ENDLOOP.
SELECT RYEAR
 FIKRS
 RFISTL
 RFIPEX
 HSL01
 HSL02
 HSL03
 HSL04
 HSL05
 HSL06
 HSL07
 HSL08
 HSL09
 HSL10
 HSL11
 HSL12
 HSL13
 HSL14
 HSL15
 HSL16
 INTO TABLE IT_FMIT FROM FMIT
 FOR ALL ENTRIES IN IT_BPPE1
 WHERE RYEAR EQ RYEAR
 AND FIKRS EQ 'NFFM'
 AND RFIPEX EQ IT_BPPE1-FIPEX
 AND RFIPEX IN FIPEX
 AND RFISTL EQ IT_BPPE1-RFISTL.
LOOP AT IT_FMIT.
 MOVE-CORRESPONDING IT_FMIT TO IT_FMIT1.
 PERIOD1 = PERIO.
 DO PERIOD3 TIMES.
 CASE PERIOD1.
 WHEN 1.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL01.
 WHEN 2.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL02.
 WHEN 3.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL03.
 WHEN 4.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL04.
 WHEN 5.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL05.
 WHEN 6.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL06.
 WHEN 7.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL07.
 WHEN 8.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL08.
 WHEN 9.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL09.
 WHEN 10.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL10.
 WHEN 11.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL11.
 WHEN 12.
 IT_FMIT1-TOTAL = IT_FMIT1-TOTAL + IT_FMIT-HSL12.
 ENDCASE.
 IF PERIOD2 >= PERIOD1.
 PERIOD1 = PERIOD1 + 1.
 ENDIF.
 ENDDO.
 IT_FMIT1-TOTAL1 = IT_FMIT1-TOTAL * -1 .
 COLLECT IT_FMIT1.
 CLEAR PERIOD1.
 CLEAR IT_FMIT1.
ENDLOOP.
ENDFORM. " GET_DATA
*& Form PROCESS_DATA
 text
--> p1 text
<-- p2 text
FORM PROCESS_DATA .
SORT IT_FMIT1 BY FIKRS RFISTL RFIPEX.
SORT IT_BPPE1 BY RFISTL FIPEX.
LOOP AT IT_BPPE1.
 IT_FINAL-RFISTL = IT_BPPE1-RFISTL.
 IT_FINAL-RFIPEX = IT_BPPE1-FIPEX.
 IT_FINAL-ALLOC = IT_BPPE1-TOTAL2.
 READ TABLE IT_FMIT1 WITH KEY RFISTL = IT_BPPE1-RFISTL RFIPEX = IT_BPPE1-FIPEX.
 IF SY-SUBRC EQ 0.
 IT_FINAL-USED = IT_FMIT1-TOTAL1.
 ENDIF.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_FMIT1-RFIPEX
 IMPORTING
 OUTPUT = IT_FMIT1-RFIPEX.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_FMIT1-RFISTL
 IMPORTING
 OUTPUT = IT_FMIT1-RFISTL.
Changes made on 13/11/2007 *******************************
 SELECT SINGLE TEXT1 INTO IT_FINAL-TEXT FROM FMCIT WHERE SPRAS EQ 'EN'
 AND FIPEX EQ IT_FMIT1-RFIPEX.
 SELECT SINGLE TEXT1 INTO IT_FINAL-TEXT FROM FMCIT WHERE SPRAS EQ 'EN'
 AND FIPEX EQ IT_BPPE1-FIPEX.
Changes made on 13/11/2007 *******************************
 SELECT SINGLE BEZEICH INTO IT_FINAL-BEZEICH FROM FMFCTRT
 WHERE SPRAS EQ 'EN'
 AND FICTR EQ IT_FMIT1-RFISTL.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_FINAL-RFIPEX
 IMPORTING
 OUTPUT = IT_FINAL-RFIPEX.
 IT_FINAL-REMAIN = IT_FINAL-ALLOC - IT_FINAL-USED.
 APPEND IT_FINAL.
 CLEAR IT_FINAL.
ENDLOOP.
SORT IT_FINAL BY FIKRS RFISTL RFIPEX.
 LOOP AT IT_FMIT1.
 READ TABLE IT_FINAL WITH KEY RFISTL = IT_FMIT1-RFISTL RFIPEX = IT_FMIT1-RFIPEX.
 IF SY-SUBRC NE 0.
 IT_FINAL-RFISTL = IT_FMIT1-RFISTL.
 IT_FINAL-RFIPEX = IT_FMIT1-RFIPEX.
 IT_FINAL-USED = IT_FMIT1-TOTAL1.
 IT_FINAL-ALLOC = '0'.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_FMIT1-RFIPEX
 IMPORTING
 OUTPUT = IT_FMIT1-RFIPEX.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_FMIT1-RFISTL
 IMPORTING
 OUTPUT = IT_FMIT1-RFISTL.
 SELECT SINGLE TEXT1 INTO IT_FINAL-TEXT FROM FMCIT WHERE SPRAS EQ 'EN'
 AND FIPEX EQ IT_FMIT1-RFIPEX.
 SELECT SINGLE BEZEICH INTO IT_FINAL-BEZEICH FROM FMFCTRT
 WHERE SPRAS EQ 'EN'
 AND FICTR EQ IT_FMIT1-RFISTL.
 IT_FINAL-REMAIN = IT_FINAL-ALLOC - IT_FINAL-USED.
 APPEND IT_FINAL.
 CLEAR IT_FINAL.
 ELSE.
 DELETE IT_FMIT1.
 ENDIF.
ENDLOOP.
SORT IT_FINAL BY FIKRS RFISTL RFIPEX.
ENDFORM. " PROCESS_DATA
*& Form GET_DATA1
 text
--> p1 text
<-- p2 text
FORM GET_DATA1 .
SELECT KOKRS KOSTL BUKRS OBJNR INTO TABLE IT_CSKS
 FROM CSKS
 WHERE KOKRS EQ '1000'
 AND KOSTL IN KOSTL
 AND BUKRS EQ 'NFCL'.
SELECT OBJNR
 GJAHR
 KSTAR
 BEKNZ
 WKG001
 WKG002
 WKG003
 WKG004
 WKG005
 WKG006
 WKG007
 WKG008
 WKG009
 WKG010
 WKG011
 WKG012
 FROM COSP
 INTO TABLE IT_COSP
 FOR ALL ENTRIES IN IT_CSKS
 WHERE OBJNR EQ IT_CSKS-OBJNR
 AND GJAHR EQ RYEAR
 AND KSTAR IN HKONT.
LOOP AT IT_COSP.
 MOVE-CORRESPONDING IT_COSP TO IT_COSP2.
 PERIOD1 = PERIO.
 DO PERIOD3 TIMES.
 CASE PERIOD1.
 WHEN 1.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG001.
 WHEN 2.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG002.
 WHEN 3.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG003.
 WHEN 4.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG004.
 WHEN 5.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG005.
 WHEN 6.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG006.
 WHEN 7.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG007.
 WHEN 8.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG008.
 WHEN 9.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG009.
 WHEN 10.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG010.
 WHEN 11.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG011.
 WHEN 12.
 IT_COSP2-TOTAL = IT_COSP2-TOTAL + IT_COSP-WKG012.
 ENDCASE.
 IF PERIOD2 >= PERIOD1.
 PERIOD1 = PERIOD1 + 1.
 ENDIF.
 ENDDO.
 IT_COSP2-OBJNR1 = IT_COSP2-OBJNR+10(6).
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_COSP2-OBJNR1
 IMPORTING
 OUTPUT = IT_COSP2-OBJNR1.
 CONCATENATE 'FSNFFM' IT_COSP2-OBJNR1 INTO IT_COSP2-OBJNR1.
 IT_COSP2-FIPEX = IT_COSP2-KSTAR.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_COSP2-FIPEX
 IMPORTING
 OUTPUT = IT_COSP2-FIPEX.
 CALL FUNCTION 'FM_POSIT_GET_FROM_FIPEX'
 EXPORTING
 I_FIKRS = 'NFFM'
 I_FIPEX = IT_COSP2-FIPEX
I_FLG_BUFFER_ALL =
 IMPORTING
 E_POSIT = IT_COSP2-POSIT
TABLES
T_FMPOSIT =
 EXCEPTIONS
 INPUT_ERROR = 1
 DATA_NOT_FOUND = 2
 OTHERS = 3
 IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 CONDENSE IT_COSP2-OBJNR1.
 CONDENSE IT_COSP2-POSIT.
 COLLECT IT_COSP2.
 CLEAR PERIOD1.
 CLEAR IT_COSP2.
ENDLOOP.
SORT IT_COSP2 BY OBJNR KSTAR.
SELECT OBJNR
 POSIT
 GJAHR
 WLP01
 WLP02
 WLP03
 WLP04
 WLP05
 WLP06
 WLP07
 WLP08
 WLP09
 WLP10
 WLP11
 WLP12
 INTO TABLE IT_BPPE
 FROM BPPE
 FOR ALL ENTRIES IN IT_COSP2
 WHERE OBJNR EQ IT_COSP2-OBJNR1
 AND POSIT EQ IT_COSP2-POSIT
 AND GJAHR EQ RYEAR
 AND VORGA IN ('KBFR','KBUE','KBUS').
LOOP AT IT_BPPE.
 MOVE-CORRESPONDING IT_BPPE TO IT_BPPE1.
 PERIOD1 = PERIO.
 DO PERIOD3 TIMES.
 CASE PERIOD1.
 WHEN 1.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP01.
 WHEN 2.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP02.
 WHEN 3.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP03.
 WHEN 4.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP04.
 WHEN 5.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP05.
 WHEN 6.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP06.
 WHEN 7.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP07.
 WHEN 8.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP08.
 WHEN 9.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP09.
 WHEN 10.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP10.
 WHEN 11.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP11.
 WHEN 12.
 IT_BPPE1-TOTAL2 = IT_BPPE1-TOTAL2 + IT_BPPE-WLP12.
 ENDCASE.
 IF PERIOD2 >= PERIOD1.
 PERIOD1 = PERIOD1 + 1.
 ENDIF.
 ENDDO.
 COLLECT IT_BPPE1.
 CLEAR PERIOD1.
 CLEAR IT_BPPE1.
ENDLOOP.
ENDFORM. " GET_DATA1
*& Form PROCESS_DATA1
 text
--> p1 text
<-- p2 text
FORM PROCESS_DATA1 .
LOOP AT IT_COSP2.
 IT_FINAL1-GJAHR = IT_COSP2-GJAHR.
 IT_FINAL1-KSTAR = IT_COSP2-KSTAR.
 IT_FINAL1-TOTAL1 = IT_COSP2-TOTAL.
 SELECT SINGLE KOSTL FROM CSKS INTO IT_FINAL1-KOSTL WHERE KOKRS = '1000'
 AND BUKRS EQ 'NFCL'
 AND OBJNR = IT_COSP2-OBJNR.
 READ TABLE IT_BPPE1 WITH KEY OBJNR = IT_COSP2-OBJNR1 POSIT = IT_COSP2-POSIT.
 IF SY-SUBRC EQ 0.
 IT_FINAL1-TOTAL3 = IT_BPPE1-TOTAL2.
 ENDIF.
 SELECT SINGLE KTEXT INTO IT_FINAL1-TEXT FROM CSKU WHERE SPRAS EQ 'EN'
 AND KSTAR EQ IT_COSP2-KSTAR.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_FINAL1-KOSTL
 IMPORTING
 OUTPUT = IT_FINAL1-KOSTL.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = IT_FINAL1-KSTAR
 IMPORTING
 OUTPUT = IT_FINAL1-KSTAR.
 SELECT SINGLE BEZEICH INTO IT_FINAL1-BEZEICH FROM FMFCTRT
 WHERE SPRAS EQ 'EN'
 AND FICTR EQ IT_FINAL1-KOSTL.
 IT_FINAL1-VARIANCE = IT_FINAL1-TOTAL3 - IT_FINAL1-TOTAL1.
 APPEND IT_FINAL1.
 CLEAR IT_FINAL1.
ENDLOOP.
SORT IT_FINAL1 BY KOSTL KSTAR.
DELETE IT_FINAL1 WHERE KOSTL IS INITIAL.
ENDFORM. " PROCESS_DATA1
*& Form BUILD_FIELDCATALOG
 text
--> p1 text
<-- p2 text
FORM BUILD_FIELDCATALOG .
FIELDCATALOG-FIELDNAME = 'RFISTL'.
FIELDCATALOG-SELTEXT_M = 'Funds Center'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'BEZEICH'.
FIELDCATALOG-SELTEXT_M = 'Fund Center Description'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'RFIPEX'.
FIELDCATALOG-SELTEXT_M = 'Commitment Item'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'TEXT'.
FIELDCATALOG-SELTEXT_M = 'Commitment Item Description'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'ALLOC'.
FIELDCATALOG-SELTEXT_M = 'Allocated Budget'.
FIELDCATALOG-DO_SUM = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'USED'.
FIELDCATALOG-SELTEXT_M = 'Used Budget'.
FIELDCATALOG-DO_SUM = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'REMAIN'.
FIELDCATALOG-SELTEXT_M = 'Remaining Budget'.
FIELDCATALOG-DO_SUM = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
ENDFORM. " BUILD_FIELDCATALOG
*& Form BUILD_FIELDCATALOG1
 text
--> p1 text
<-- p2 text
FORM BUILD_FIELDCATALOG1 .
FIELDCATALOG-FIELDNAME = 'KOSTL'.
FIELDCATALOG-SELTEXT_M = 'Cost Center'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'BEZEICH'.
FIELDCATALOG-SELTEXT_M = 'Cost Center Description'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'KSTAR'.
FIELDCATALOG-SELTEXT_M = 'G/L Account'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'TEXT'.
FIELDCATALOG-SELTEXT_M = 'G/L Account Description'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'TOTAL3'.
FIELDCATALOG-SELTEXT_M = 'Planned amount'.
FIELDCATALOG-DO_SUM = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'TOTAL1'.
FIELDCATALOG-SELTEXT_M = 'Actuals'.
FIELDCATALOG-DO_SUM = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
FIELDCATALOG-FIELDNAME = 'VARIANCE'.
FIELDCATALOG-SELTEXT_M = 'Variance'.
FIELDCATALOG-DO_SUM = 'X'.
APPEND FIELDCATALOG TO FIELDCATALOG.
CLEAR FIELDCATALOG.
ENDFORM. " BUILD_FIELDCATALOG1
*& Form BUILD_LAYOUT
 text
--> p1 text
<-- p2 text
FORM BUILD_LAYOUT .
GD_LAYOUT-NO_INPUT = 'X'.
GD_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
ENDFORM. " BUILD_LAYOUT
*& Form BUILD_SORT
 text
--> p1 text
<-- p2 text
FORM BUILD_SORT .
DATA: GT_SORT TYPE SLIS_SORTINFO_ALV.
GT_SORT-UP = 'X'.
GT_SORT-FIELDNAME = 'RFISTL'.
GT_SORT-TABNAME = 'IT_FINAL'.
GT_SORT-SUBTOT = 'X'.
APPEND GT_SORT TO GD_SORT.
CLEAR GT_SORT.
GT_SORT-UP = 'X'.
GT_SORT-FIELDNAME = 'BEZEICH'.
GT_SORT-TABNAME = 'IT_FINAL'.
APPEND GT_SORT TO GD_SORT.
CLEAR GT_SORT.
ENDFORM. " BUILD_SORT
*& Form BUILD_SORT1
 text
--> p1 text
<-- p2 text
FORM BUILD_SORT1 .
DATA: GT_SORT TYPE SLIS_SORTINFO_ALV.
GT_SORT-UP = 'X'.
GT_SORT-FIELDNAME = 'KOSTL'.
GT_SORT-TABNAME = 'IT_FINAL'.
GT_SORT-SUBTOT = 'X'.
APPEND GT_SORT TO GD_SORT.
CLEAR GT_SORT.
GT_SORT-UP = 'X'.
GT_SORT-FIELDNAME = 'BEZEICH'.
GT_SORT-TABNAME = 'IT_FINAL'.
APPEND GT_SORT TO GD_SORT.
CLEAR GT_SORT.
ENDFORM. " BUILD_SORT1
*& Form BUILD_EVENTS
 text
--> p1 text
<-- p2 text
FORM BUILD_EVENTS .
IT_EVENT-NAME = 'TOP_OF_PAGE'.
IT_EVENT-FORM = 'TOP_OF_PAGE'.
APPEND IT_EVENT TO IT_EVENT1.
CLEAR IT_EVENT.
ENDFORM. " BUILD_EVENTS
*& Form TOP_OF_PAGE
 ALV TOP-OF-PAGE
FORM TOP_OF_PAGE. "#EC CALLED
REFRESH : IT_LIST_TOP_OF_PAGE.
CLEAR : IT_LINE.
IT_LINE-TYP = 'H'.
IT_LINE-INFO = TEXT-001.
APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
CLEAR IT_LINE.
IF RADIO EQ 'X'.
 IT_LINE-TYP = 'S'.
 IT_LINE-INFO = TEXT-101.
 IF NOT FIPEX-LOW IS INITIAL.
 CONCATENATE TEXT-101 '-' FIPEX-LOW INTO IT_LINE-INFO SEPARATED BY SPACE.
 IF NOT FIPEX-HIGH IS INITIAL.
 CONCATENATE TEXT-101 '-' FIPEX-LOW 'to' FIPEX-HIGH INTO IT_LINE-INFO SEPARATED BY SPACE.
 ENDIF.
 ENDIF.
 APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
 CLEAR IT_LINE-INFO.
 IT_LINE-INFO = TEXT-102.
 IF NOT RFISTL-LOW IS INITIAL.
 CONCATENATE TEXT-102 '-' RFISTL-LOW INTO IT_LINE-INFO SEPARATED BY SPACE.
 IF NOT RFISTL-HIGH IS INITIAL.
 CONCATENATE TEXT-102 '-' RFISTL-LOW 'to' RFISTL-HIGH INTO IT_LINE-INFO SEPARATED BY SPACE.
 ENDIF.
 ENDIF.
 APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
ENDIF.
IF RADIO1 EQ 'X'.
 CLEAR IT_LINE-INFO.
 IT_LINE-INFO = TEXT-105.
 IF NOT KOSTL-LOW IS INITIAL.
 CONCATENATE TEXT-105 '-' KOSTL-LOW INTO IT_LINE-INFO SEPARATED BY SPACE.
 IF NOT KOSTL-HIGH IS INITIAL.
 CONCATENATE TEXT-105 '-' KOSTL-LOW 'to' KOSTL-HIGH INTO IT_LINE-INFO SEPARATED BY SPACE.
 ENDIF.
 ENDIF.
 APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
 CLEAR IT_LINE-INFO.
 IT_LINE-INFO = TEXT-106.
 IF NOT HKONT-LOW IS INITIAL.
 CONCATENATE TEXT-106 '-' HKONT-LOW INTO IT_LINE-INFO SEPARATED BY SPACE.
 IF NOT HKONT-HIGH IS INITIAL.
 CONCATENATE TEXT-106 '-' HKONT-LOW 'to' HKONT-HIGH INTO IT_LINE-INFO SEPARATED BY SPACE.
 ENDIF.
 ENDIF.
 APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
ENDIF.
CLEAR IT_LINE-INFO.
IT_LINE-INFO = TEXT-103.
IF NOT PERDE-LOW IS INITIAL.
 CONCATENATE TEXT-103 '-' PERDE-LOW INTO IT_LINE-INFO SEPARATED BY SPACE.
 IF NOT PERDE-HIGH IS INITIAL.
 CONCATENATE TEXT-103 '-' PERDE-LOW 'to' PERDE-HIGH INTO IT_LINE-INFO SEPARATED BY SPACE.
 ENDIF.
ENDIF.
APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
CLEAR IT_LINE-INFO.
IT_LINE-INFO = TEXT-104.
IF NOT RYEAR IS INITIAL.
 CONCATENATE TEXT-104 '-' RYEAR INTO IT_LINE-INFO SEPARATED BY SPACE.
ENDIF.
APPEND IT_LINE TO IT_LIST_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = IT_LIST_TOP_OF_PAGE.
ENDFORM. "TOP_OF_PAGE
*& Form DISPLAY_ALV_REPORT
 text
--> p1 text
<-- p2 text
FORM DISPLAY_ALV_REPORT .
GD_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = GD_REPID
 I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
 IS_LAYOUT = GD_LAYOUT
 IT_EVENTS = IT_EVENT1[]
 IT_FIELDCAT = FIELDCATALOG[]
 IT_SORT = GD_SORT[]
 TABLES
 T_OUTTAB = IT_FINAL
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. "DISPLAY_ALV_REPORT
*& Form DISPLAY_ALV_REPORT1
 text
--> p1 text
<-- p2 text
FORM DISPLAY_ALV_REPORT1 .
GD_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = GD_REPID
 I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
 IS_LAYOUT = GD_LAYOUT
 IT_EVENTS = IT_EVENT1[]
 IT_FIELDCAT = FIELDCATALOG[]
 IT_SORT = GD_SORT[]
 TABLES
 T_OUTTAB = IT_FINAL1
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSG

Urgent: regarding ALV report display problem

hi,
There are 3 problems:-
1.) I had made a ALV report in which i have to display 'POSTING DATE' (iseg-budat) when we execute the report i.e. it should be displayed as PERIOD :- _______ to _______ on alv report ..
2.)the 2nd problem is dat when i use the ' wa_fieldcat-no_zero = 'X'. It eliminates all the leading zeros which are present which is okay when i it displays material no.. but the problem is dat it also deletes the other fields where the values are to be zeros.
i had used this FM:-
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
 INPUT = ITS1-MATNR
 IMPORTING
 OUTPUT = ITS1-MATNR.
so that only matnr field are to be 0's.
3.) I want to delete the rows which use to contain the values 0's as there are no calculations are performing as these are displayed .
ANYbody having solution of this problem ,plzzzz provide the soluion of it as it is most urgent to me and dat person will definately rewarded.
regards,
ric.s

hi kiran,
thanks for ur response. here is d code which i am using it and plzz help me to figure out where i have to make changes:-
REPORT ZTEST03.
TABLES: ISEG,MARA.
TYPE-POOLS : SLIS.
INTERNAL TABLE FOR INVENTORY STOCK *****************
DATA: BEGIN OF ITS1 OCCURS 0,
 MATNR LIKE ISEG-MATNR,
 MEINS LIKE ISEG-MEINS,
 MENGE LIKE ISEG-MENGE,
 WRTZL LIKE ISEG-WRTZL,
 BUCHM LIKE ISEG-BUCHM,
 WRTBM LIKE ISEG-WRTBM,
 WERKS LIKE ISEG-WERKS,
 BUDAT LIKE ISEG-BUDAT,
 MTART LIKE MARA-MTART,
 ITEMDESC LIKE MAKT-MAKTX,
 DIFFQTY LIKE ISEG-BUCHM,
 DIFFVALUE LIKE ISEG-WRTBM,
 END OF ITS1.
data: t_heading type slis_t_listheader.
SELECTION-SCREEN BEGIN OF BLOCK PAR1 WITH FRAME TITLE TEXT-001.
*********PARAMETERS*********
PARAMETERS : PLANT LIKE ISEG-WERKS OBLIGATORY.
*********SELECTION SCREEN OPTIONS*********
SELECT-OPTIONS : R_DATE FOR ISEG-BUDAT,
 M_TYPE FOR MARA-MTART,
 IT_M FOR MARA-MATNR.
*********DEFINING VARIABLES*********
SELECTION-SCREEN END OF BLOCK par1.
TOP-OF-PAGE.
 PERFORM PG_HEADER.
START-OF-SELECTION.
SELECT DISTINCT A~MATNR A~MEINS A~MENGE A~WRTZL A~BUCHM A~WRTBM A~WERKS A~BUDAT B~MTART
 FROM ISEG AS A INNER JOIN MARA AS B ON B~MATNR = A~MATNR
 INTO CORRESPONDING FIELDS OF TABLE ITS1 WHERE B~MATNR = A~MATNR AND B~MEINS = A~MEINS AND A~WERKS = PLANT AND A~BUDAT IN R_DATE AND B~MTART IN M_TYPE AND B~MATNR IN IT_M.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
 INPUT = ITS1-MATNR
 IMPORTING
 OUTPUT = ITS1-MATNR.
SORT ITS1 BY MATNR.
DELETE ADJACENT DUPLICATES FROM ITS1 WHERE MENGE = 0 AND BUCHM = 0.
LOOP AT ITS1.
 ITS1-DIFFQTY = ITS1-MENGE - ITS1-BUCHM.
 ITS1-DIFFVALUE = ITS1-WRTZL - ITS1-WRTBM.
 SELECT SINGLE MAKTX FROM MAKT INTO ITS1-ITEMDESC WHERE MATNR = ITS1-MATNR.
 MODIFY ITS1.
ENDLOOP.
PERFORM PRN_SMSTOCK_ALV.
WRITING DATA FROM D TABLES**********
FORM PG_HEADER.
WRITE : 'PHYSICAL INVENTORY AUDIT REPORT PLANT : ', PLANT.
ENDFORM.
*& Form PRN_SMSTOCK_ALV
 text
--> p1 text
<-- p2 text
form PRN_SMSTOCK_ALV .
data: w_title type lvc_title,
 w_repid type syrepid,
 w_comm type slis_formname,
 w_status type slis_formname,
 x_layout type slis_layout_alv,
 t_event type slis_t_event,
 t_fieldcat type slis_t_fieldcat_alv,
 t_sort type slis_t_sortinfo_alv.
refresh t_fieldcat.
refresh t_event.
refresh t_sort.
clear x_layout.
clear w_title.
perform set_fieldcat2 using:
1 'MTART' 'MTART' 'MARA' '15' space 'MATERIAL TYPE' space space space space space space space space SPACE t_fieldcat 'L' 'C',
2 'MATNR' 'MATNR' 'MARA' '13' space 'MATERIAL NO. ' space space space space space space space space SPACE t_fieldcat 'R' 'C',
3 'ITEMDESC' 'MAKTX' 'MAKT' '25' space 'MATERIAL DESCRIPTION' space space space space space space space space SPACE t_fieldcat 'L' 'C',
4 'MEINS' 'MEINS' 'MARA' '5' space 'UOM' space space space space space space space space SPACE t_fieldcat 'C' 'C',
5 'MENGE' 'MENGE' 'ISEG' '13' space 'ORG.INV.QTY' space space space space space space space space SPACE t_fieldcat 'R' 'C',
6 'WRTZL' 'WRTZL' 'ISEG' '13' space 'ORG.INV.VALUE' space space space space space space space space SPACE t_fieldcat 'R' 'C',
7 'BUCHM' 'BUCHM' 'ISEG' '13' space 'PHY.INV.QTY' space space space space space space space space SPACE t_fieldcat 'R' 'C',
8 'WRTBM' 'WRTBM' 'ISEG' '13' space 'PHY.INV.VALUE' space space space space space space space space SPACE t_fieldcat 'R' 'C',
9 'DIFFQTY' 'MENGE' 'ISEG' '13' space 'DIFF.INV.QTY' space space space space space space space space SPACE t_fieldcat 'R' 'C',
10 'DIFFVALUE' 'WRTZL' 'ISEG' '13' space 'DIFF.INV.VALUE' space space space space space space space space SPACE t_fieldcat SPACE 'P'.
x_layout-zebra = 'X'.
perform set_top_page_heading using t_heading t_event.
perform set_events using t_event.
w_status = ''.
w_repid = sy-repid.
w_comm = 'USER_COMMAND'.
call function 'REUSE_ALV_GRID_DISPLAY'
 exporting
 i_callback_program = w_repid
 it_fieldcat = t_fieldcat
 i_Callback_top_of_page = 'Top-of-page'
 is_layout = x_layout
 it_sort = t_sort
 i_callback_pf_status_set = w_status
 i_callback_user_command = w_comm
 i_save = 'X'
 it_events = t_event
 i_grid_title = w_title
 tables
 t_outtab = ITS1
 exceptions
 program_error = 1
 others = 2.
if sy-subrc <> 0.
 message id sy-msgid type sy-msgty number sy-msgno
 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
ENDFORM.
FORM set_fieldcat2 USING
 p_colpos p_fieldname p_ref_fieldname p_ref_tabname
 p_outputlen p_noout
 p_seltext_m p_seltext_l p_seltext_s p_reptext_ddic p_ddictxt
 p_hotspot p_showasicon p_checkbox p_edit
 p_dosum
 t_fieldcat TYPE slis_t_fieldcat_alv
 P_JUST
 P_FTYPE.
DATA: wa_fieldcat TYPE slis_fieldcat_alv.
CLEAR wa_fieldcat.
General settings
wa_fieldcat-fieldname = p_fieldname.
wa_fieldcat-no_zero = 'X'.
wa_fieldcat-col_pos = p_colpos.
wa_fieldcat-no_out = p_noout.
wa_fieldcat-hotspot = p_hotspot.
wa_fieldcat-checkbox = p_checkbox.
wa_fieldcat-icon = p_showasicon.
wa_fieldcat-do_sum = p_dosum.
Set output length.
IF NOT p_outputlen IS INITIAL.
 wa_fieldcat-outputlen = p_outputlen.
ENDIF.
Set text headers.
IF NOT p_seltext_m IS INITIAL.
 wa_fieldcat-seltext_m = p_seltext_m.
ENDIF.
IF NOT p_seltext_l IS INITIAL.
 wa_fieldcat-seltext_l = p_seltext_l.
ENDIF.
IF NOT p_seltext_s IS INITIAL.
 wa_fieldcat-seltext_s = p_seltext_s.
ENDIF.
IF NOT p_reptext_ddic IS INITIAL.
 wa_fieldcat-reptext_ddic = p_reptext_ddic.
ENDIF.
IF NOT p_ddictxt IS INITIAL.
 wa_fieldcat-ddictxt = p_ddictxt.
ENDIF.
IF NOT P_JUST IS INITIAL.
 WA_FIELDCAT-JUST = P_JUST.
ENDIF.
Set as editable or not.
IF NOT p_edit IS INITIAL.
 wa_fieldcat-input = 'X'.
 wa_fieldcat-edit = 'X'.
ENDIF.
APPEND wa_fieldcat TO t_fieldcat.
ENDFORM. "set_fieldcat2
======================== Subroutines called by ALV ================
*& Form top_of_page
 Called on top_of_page ALV event.
 Prints the heading.
form top_of_page.
call function 'REUSE_ALV_COMMENTARY_WRITE'
 exporting
 it_list_commentary = t_heading.
ENDFORM.
form set_top_page_heading using t_heading type slis_t_listheader
 t_events type slis_t_event.
data: x_heading type slis_listheader,
 x_event type line of slis_t_event.
Report title
clear t_heading[].
clear x_heading.
x_heading-typ = 'H'.
x_heading-info = 'PHYSICAL INVENTORY AUDIT REPORT'.
append x_heading to t_heading.
Plant Name
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'PLANT: '.
x_heading-info = its1-werks.
append x_heading to t_heading.
Posting Date
*clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'POSTING DATE: '.
x_heading-info = ITS1-BUDAT.
append x_heading to t_heading.
Control Date
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'CONTROL No: '.
x_heading-info = its1-werks.
append x_heading to t_heading.
Control date
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'CONTROL DATE: '.
x_heading-info = its1-werks.
append x_heading to t_heading.
User who is running the report
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'User: '.
x_heading-info = sy-uname.
append x_heading to t_heading.
Date of execution
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'Date: '.
write sy-datum to x_heading-info.
append x_heading to t_heading.
Time of execution
clear x_heading.
x_heading-typ = 'S'.
x_heading-key = 'Time: '.
write sy-uzeit to x_heading-info.
append x_heading to t_heading.
Top of page event
x_event-name = slis_ev_top_of_page.
x_event-form = 'TOP_OF_PAGE'.
append x_event to t_events.
endform.
form set_events using t_events type slis_t_event.
data: x_event type line of slis_t_event.
endform.
plzzz help me out as it is most urgent to me.
regards,
ric.s

Logic for Refreshing the ALV Report (Very Urgent)

Hi Experts,
My ALV report needs a refresh button on the output.
The Refresh button should be available to allow user to keep this report on screen and refresh regularly rather than going back and running it again.
I am using Function modules and not OOPS Concept here.............As i am unaware of OOPS Please provide me solution in FM's Only.
Kindly send me sample logic for this, Very urgent if ur reply is helpfull.... u will be rewarded heavily.......................
THanks in advance.
Rajesh Kumar

Hi,
This mean to say that if you have a 'refresh' push button in your gui status, every time you press the button, the list should get refreshed.
In ALV, to refresh the table you have to call the method "refresh_table_display".
It has the syntax very similar to creating the table.
It has two parameters. In the first one, you can mention if you want to refresh only the data (the icons are not refreshed)
or
if you want to refresh only the icons around the grid (the data is not refreshed - this option is mostly not used in day to day applications).
the synatx is :-
call method grid (name of grid )->refresh_table_display
exporting
IS_STABLE = <STRUCT OF TYPE LVC_S_STBL> (THIS IS FOR DATA REFRESHING)
I_SOFT_REFRESH = <VARIABLE OF CHAR 01> (THIS IS FOR ICON REFRESHING).
Regards,
Bhaskar

I m in urgent need of sme alv reports in sd module so plz hlp me out.

i m in urgent need of sme alv reports in sd module so plz hlp me out.
if possible plz provide explanation so tht i can understand it fast and well.

check with below standard reports :
Sales summary - VC/2
Display Customer Hierarchy - VDH2
Display Condition record report - V/I6
Pricing Report - V/LD
Create Net Price List - V_NL
List customer material info - VD59
List of sales order - VA05
List of Billing documents - VF05
Inquiries list - VA15
Quotation List - VA25
Incomplete Sales orders - V.02
Backorders - V.15
Outbound Delivery Monitor - VL06o
Incomplete delivery - V_UCCustomer
Returns-Analysis - MC+A
Customer Analysis- Sales - MC+E
Customer Analysis- Cr. Memo - MC+I
Deliveries-Due list - VL04
Billing due list - VF04
Incomplete Billing documents - MCV9
Customer Analysis-Basic List - MCTA
Material Analysis(SIS) - MCTC
Sales org analysis - MCTE
Sales org analysis-Invoiced sales - MC+2
Material Analysis-Incoming orders - MC(E
General- List of Outbound deliveries - VL06f
Material Returns-Analysis - MC+M
Material Analysis- Invoiced Sales - MC+Q
Variant configuration Analysis - MC(B
Sales org analysis-Incoming orders - MC(I
Sales org analysis-Returns - MC+Y
Sales office Analysis- Invoiced Sales - MC-E
Sales office Analysis- Returns - MC-A
Shipping point Analysis - MC(U
Shipping point Analysis-Returns - MC-O
Blocked orders - V.14
Order Within time period - SD01
Duplicate Sales orders in period - SDD1
Display Delivery Changes - VL22
Simple example what i did - Monthly Sales Report
TYPE-POOLS
type-pools : slis.
Tables
tables : VBAK,
 VBAP.
Internal table for VBAK Table
data : begin of i_vbak occurs 0,
 vbeln like vbak-vbeln,
 bstnk like vbak-bstnk,
 vdatu like vbak-vdatu,
 end of i_vbak.
Internal table for VBAP and MATNR
data : begin of i_vbap occurs 0,
 vbeln like vbap-vbeln,
 matnr like vbap-matnr,
 kdmat like vbap-kdmat,
 kwmeng like vbap-kwmeng,
 netpr like vbap-netpr,
 maktx like makt-maktx,
 end of i_vbap.
Internal tables
data : begin of i_sales occurs 0,
 vdatu like vbak-vdatu,
 bstnk like vbak-bstnk,
 matnr like vbap-matnr,
 maktx like makt-maktx,
 kdmat like vbap-kdmat,
 kwmeng like vbap-kwmeng,
 netpr like vbap-netpr,
 end of i_sales.
Variable for ALV
data : v_repid like sy-repid,
 gt_fieldcat type slis_t_fieldcat_alv.
Selection-screen
selection-screen : begin of block blk with frame title text-001.
select-options : s_vbeln for vbak-vbeln,
 s_erdat for vbak-erdat,
 s_ernam for vbak-ernam,
 s_vdatu for vbak-vdatu obligatory,
 s_BSTNK for vbak-BSTNK,
 s_KUNNR for vbak-kunnr,
 s_matnr for vbap-matnr,
 s_KDMAT for vbap-KDMAT.
selection-screen : end of block blk.
Initilization
initialization.
v_repid = sy-repid.
S T A R T - O F - S E L E C T I O N ****************
start-of-selection.
Get the data from VBAK and VBAP Tables
perform get_vbak_vbap.
E N D - O F - S E L E C T I O N *****************
end-of-selection.
Display the data
perform dispolay_data.
*& Form get_vbak_vbap
 Get the data from VBAK and VBAP Table
FORM get_vbak_vbap.
Get the data from VBAK Table
select vbeln bstnk vdatu from vbak into table i_vbak
 where vbeln in s_vbeln
 and bstnk in s_bstnk
 and vdatu in s_vdatu
 and kunnr in s_kunnr
 and erdat in s_erdat
 and ernam in s_ernam.
if sy-subrc ne 0.
 message e000(zwave) with 'No data found for given selection'.
endif.
Get the data from VBAP Table
select avbeln amatnr akdmat akwmeng a~netpr
 b~maktx into table i_vbap
 from vbap as a inner join makt as b on bmatnr = amatnr
 for all entries in i_vbak
 where a~vbeln in s_vbeln
 and a~kdmat in s_kdmat
 and a~abgru = space
 and a~matnr in s_matnr
 and a~matnr ne '000000000000009999'
 and a~matnr ne '000000000000004444'
 and a~matnr ne '000000000000008888'
 and a~matnr ne '000000000000001111'
 and a~werks = '1000'
 and b~spras = 'E'
 and a~vbeln = i_vbak-vbeln.
if sy-subrc ne 0.
 message e000(zwave) with 'No data found for given selection'.
endif.
sort i_vbak by vbeln.
sort i_vbap by vbeln matnr.
loop at i_vbap.
 read table i_vbak with key vbeln = i_vbap-vbeln
 binary search.
 if sy-subrc eq 0.
 i_sales-bstnk = i_vbak-bstnk.
 i_sales-vdatu = i_vbak-vdatu.
 i_sales-matnr = i_vbap-matnr.
 i_sales-kdmat = i_vbap-kdmat.
 i_sales-maktx = i_vbap-maktx.
 i_sales-netpr = i_vbap-netpr.
 i_sales-kwmeng = i_vbap-kwmeng.
 append i_sales.
 else.
 continue.
 endif.
 clear : i_sales,
 i_vbap,
 i_vbak.
endloop.
sort i_sales by vdatu bstnk matnr.
refresh : i_vbap,
 i_vbak.
ENDFORM. " get_vbak_vbap
*& Form dispolay_data
 Display the data
FORM dispolay_data.
Fill the Fiedlcat
PERFORM fieldcat_init using gt_fieldcat[].
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = v_repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =
 IT_FIELDCAT = gt_fieldcat[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_ADD_FIELDCAT =
IT_HYPERLINK =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IT_EXCEPT_QINFO =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
 TABLES
 T_OUTTAB = i_sales
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
ENDFORM. " dispolay_data
*& Form fieldcat_init
 text
 -->P_GT_FIELDCAT[] text
FORM fieldcat_init USING e01_lt_fieldcat type slis_t_fieldcat_alv.
DATA: LS_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
Delivery Date
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'VDATU'.
LS_FIELDCAT-OUTPUTLEN = 12.
LS_FIELDCAT-TABNAME = 'I_SALES'.
ls_fieldcat-seltext_L = 'Delivery Date'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Purchase Order #Material Description
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'BSTNK'.
LS_FIELDCAT-OUTPUTLEN = 25.
LS_FIELDCAT-TABNAME = 'I_SALES'.
ls_fieldcat-seltext_L = 'Purchase Order #'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Material
CLEAR LS_FIELDCAT.
LS_FIELDCAT-REF_FIELDNAME = 'MATNR'.
LS_FIELDCAT-REF_TABNAME = 'MARA'.
LS_FIELDCAT-FIELDNAME = 'MATNR'.
LS_FIELDCAT-TABNAME = 'I_SALES'.
ls_fieldcat-seltext_L = 'Material #'.
ls_fieldcat-seltext_M = 'Material #'.
ls_fieldcat-seltext_S = 'Material #'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Material Description
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'MAKTX'.
LS_FIELDCAT-OUTPUTLEN = 40.
LS_FIELDCAT-TABNAME = 'I_SALES'.
ls_fieldcat-seltext_L = 'Material Description'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Customer Material #
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'KDMAT'.
LS_FIELDCAT-OUTPUTLEN = 35.
LS_FIELDCAT-TABNAME = 'I_SALES'.
ls_fieldcat-seltext_L = 'Customer material no.'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Quantity
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'KWMENG'.
LS_FIELDCAT-OUTPUTLEN = 15.
LS_FIELDCAT-TABNAME = 'I_SALES'.
ls_fieldcat-seltext_L = 'Quantity'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
Net Price
CLEAR LS_FIELDCAT.
LS_FIELDCAT-FIELDNAME = 'NETPR'.
LS_FIELDCAT-OUTPUTLEN = 15.
LS_FIELDCAT-TABNAME = 'I_SALES'.
ls_fieldcat-seltext_L = 'Net Price'.
APPEND LS_FIELDCAT TO E01_LT_FIELDCAT.
ENDFORM. " fieldcat_init
Thanks
Seshu

How to do the ALV report output in groups and caluculate the tOTALS(URGENT

Hi
In my ALV report output .I have to group the output based on the DAYS field
0-10 days in one group
10-30 days in one group
above 30 days one group
There is also a field by name "AMOUNT" in my output.
I have to calculate SUBTOTALs at the end of every group and at the end of the report i should caluculate GRAND TOTAL.
Please remember that i should not use any any BLOCKED ALVs and for Totals i should not use the SYMBOLS provided in the application toolbar of the report
Thanks in Advance

Please don't repost your questions...
Check out my answer in your other post.
How to make the ALV report in groups and caluculate the TOTALS
Regards,
Naimesh Patel

Alv report using templates........urgent

Hi all,
Can anyone tell me what is meant by ALV report using template. I have worked on ALV reports. Can you throw some light on USING TEMPLATE. If anybody have some document. please send it to me.

Hi
Check whether any templates defined in your orgn for different types of objects.
For example for ALV reports so and so template and for Scripts something defined.
A template means I feel a std way of displaying data as per the orgn process/standards.
check for that.
Or use the same Std function modules and display the data and enquire further what's the template is?
Reward points if useful
Regards
Anji

VERY URGENT:REGARDING ALV REPORT

HI,
I am making Interactive alv report in which i have to display 3 views in a single report i.e.
1.) I have to display :-
RAW MATERIAL DAYS
BOP DAYS
Here days are the difference b/w the Material Doc. Date and Requsition Approval date.
(which i have already calculated.)
2.) When i double click the raw material or bop option then material no and days are to be dislplayed.
3.) After double clicking the material then the its migo status and requsition status to be dislplayed .(this thing i had performed )
My main problem is dat i have to write it all in a single ALV but its little confusing to me as i am doing this kind of report for first time.
If anybody provide me useful or solved awnser ,he or she will be definately rewarded.
Message was edited by:
 ric .s

hi ric.s
check this prog
*& Report ZSAMP_INTERCTIVE *
REPORT zsamp_interctive .
TABLES: mara,vbap.
DATA : BEGIN OF itab OCCURS 0,
 matnr LIKE mara-matnr,
 ernam LIKE mara-ernam,
 END OF itab.
DATA : BEGIN OF itab1 OCCURS 0,
 matnr LIKE vbap-matnr,
 vbeln LIKE vbap-vbeln,
 END OF itab1.
DATA: fld(20) TYPE c,val LIKE mara-matnr .
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: m FOR mara-matnr OBLIGATORY.
SELECTION-SCREEN END OF BLOCK blk1.
*AT SELECTION-SCREEN ON m.
SELECT SINGLE matnr FROM mara INTO mara-matnr WHERE matnr = m.
IF sy-subrc NE 0.
 MESSAGE e000(zz) WITH 'invalid ' mara-matnr 'in your ' 'selection'.
ENDIF.
START-OF-SELECTION.
SELECT matnr ernam INTO TABLE itab FROM mara WHERE matnr IN m.
SELECT matnr vbeln INTO TABLE itab1 FROM vbap FOR ALL ENTRIES IN itab
WHERE matnr = itab-matnr.
END-OF-SELECTION.
LOOP AT itab.
 WRITE:/20 itab-matnr,40 itab-ernam.
 hide itab-matnr.
 CLEAR itab-matnr.
ENDLOOP.
AT LINE-SELECTION.
GET CURSOR FIELD fld VALUE val.
CASE fld.
 WHEN 'ITAB-MATNR'.
 WRITE:/ val.
ENDCASE.
CASE sy-lsind.
 WHEN '1'.
 SET PF-STATUS 'XX2'.
 SET TITLEBAR 'XX2'.
 IF itab1[] IS INITIAL.
 WRITE:/ 'no data found for itab1 in first secondary list'.
 ENDIF.
 LOOP AT itab1.
 WRITE:/30 itab1-matnr,60 itab1-vbeln.
 hide itab1-matnr.
 ENDLOOP.
 WHEN '2'.
 SET PF-STATUS 'XX2'.
 SET TITLEBAR 'XX2'.
 LOOP AT itab.
 WRITE:/30 itab-matnr,60 itab-ernam.
 ENDLOOP.
ENDCASE.
AT USER-COMMAND.
CASE sy-ucomm.
 WHEN 'SET'.
 IF sy-lsind = 1.
 WINDOW STARTING AT 5 3 ENDING AT 40 10.
 WRITE 'Select line for a second window'.
 ELSEIF sy-lsind = 2.
 WINDOW STARTING AT 45 10 ENDING AT 60 12.
 WRITE 'Last window'.
 ENDIF.
 WHEN 'BACK'.
 sy-lsind = sy-lsind - 1.
 WHEN 'ABC'.
 WRITE:/ 'iam great'.
 WHEN 'DOWNLOAD'.
 CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
 BIN_FILESIZE =
 filename = 'c:\temp.txt'
 filetype = 'DAT'
 TABLES
 data_tab = itab
 FIELDNAMES =
 EXCEPTIONS
 file_write_error = 1
 no_batch = 2
 gui_refuse_filetransfer = 3
 invalid_type = 4
 no_authority = 5
 unknown_error = 6
 header_not_allowed = 7
 separator_not_allowed = 8
 filesize_not_allowed = 9
 header_too_long = 10
 dp_error_create = 11
 dp_error_send = 12
 dp_error_write = 13
 unknown_dp_error = 14
 access_denied = 15
 dp_out_of_memory = 16
 disk_full = 17
 dp_timeout = 18
 file_not_found = 19
 dataprovider_exception = 20
 control_flush_error = 21
 OTHERS = 22.
 IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDCASE.
TOP-OF-PAGE DURING LINE-SELECTION.
CASE sy-lsind.
 WHEN '1'.
 WRITE:/ 'this is secondary list'.
ENDCASE.

Re: URGENT: REGARDING ALV REPORT OUTLOOK

HI,
I am making alv report in which d simple format is used and its output is used to be appear to be simple and now i want to make its output more gud,can anybody tell me d solution of dis problem,reply useful will be definately rewarded....
REPORT ZMFTEST5 no standard page heading LINE-SIZE 310.
TABLES : VBAK,ABAP,VBEP,VBKD,MARA,KNA1,MAKT.
*Varriable declaration.
TYPE-POOLS SLIS.
DATA : POS TYPE I.
DATA REPID LIKE SY-REPID.
DATA : F1 TYPE SLIS_T_FIELDCAT_ALV,
 F2 TYPE SLIS_FIELDCAT_ALV,
 L_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA L_POS TYPE I VALUE 1. "position of the column
DATA GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
**DATA GT_SORT TYPE SLIS_T_SORTINFO_ALV.
DATA: GT_EVENTS TYPE SLIS_T_EVENT,
 FS_EVENTCAT LIKE LINE OF GT_EVENTs.
INTERNAL TABLE FOR SALES ORDER *****************
DATA : BEGIN OF ITSO OCCURS 0,
 VBELN LIKE VBAK-VBELN,
 ERDAT LIKE VBAK-ERDAT,
 BSTNK LIKE VBAK-BSTNK,
 KUNNR LIKE VBAK-KUNNR,
 MATNR LIKE VBAP-MATNR,
 POSNR LIKE VBAP-POSNR,
 WMENG LIKE VBEP-WMENG,
 NTGEW LIKE MARA-NTGEW,
 BRGEW LIKE MARA-BRGEW,
 GEWEI LIKE MARA-GEWEI,
 SPART LIKE VBAK-SPART,
 BMENG LIKE VBEP-BMENG,
 EDATU LIKE VBEP-EDATU,
 BSTKD LIKE VBKD-BSTKD,
 WERKS LIKE VBAP-WERKS,
 MEINS LIKE MARA-MEINS,
 KWMENG LIKE VBAP-KWMENG,
 KLMENG LIKE VBAP-KLMENG,
 END OF ITSO.
Heading of the report.
data: t_heading type slis_t_listheader.
***********PARAMETERS***************
PARAMETERS : PLANT LIKE VBAP-WERKS OBLIGATORY.
*********SELECTION SCREEN OPTIONS*********
SELECT-OPTIONS : SO_ORD FOR VBAK-VBELN,
 SO_PARTY FOR VBAK-KUNNR,
 IT_M FOR MARA-MATNR,
 DIV FOR VBAK-SPART,
 SO_DATE FOR VBAK-ERDAT,
 S_DATE FOR VBEP-EDATU. .
START-OF-SELECTION.
 SELECT DISTINCT AVBELN AERDAT ABSTNK AKUNNR BSPART BMATNR BPOSNR BWERKS BKWMENG BKBMENG CNTGEW CBRGEW CGEWEI DWMENG DBMENG DEDATU D~VBELN
 FROM VBAK AS A INNER JOIN VBAP AS B ON BVBELN = AVBELN
 INNER JOIN MARA AS C ON CMATNR = BMATNR
 INNER JOIN VBEP AS D ON DWMENG > 0 AND DVBELN = AVBELN AND DPOSNR = B~POSNR
 INTO CORRESPONDING FIELDS OF TABLE ITSO
 WHERE AVBELN IN SO_ORD AND AKUNNR IN SO_PARTY AND BSPART IN DIV AND AERDAT IN SO_DATE AND DEDATU IN S_DATE AND BMATNR IN IT_M AND B~WERKS = PLANT.
 IF SY-SUBRC <> 0.
 MESSAGE E899(M3) WITH 'No records'.
ENDIF.
perform f_build_eventcat.
PERFORM LAYOUT.
END-OF-SELECTION.
FORM LAYOUT.
PERFORM FCAT USING 'VBELN' 'ITSO' '' 'S.O.NO. ' 'VBELN' 'VBAK' ''.
PERFORM FCAT USING 'WERKS' 'ITSO' '' 'PLANT ' 'WERKS' 'VBAP' ''.
PERFORM FCAT USING 'ERDAT' 'ITSO' '' 'S.O.DATE' 'ERDAT' 'VBAK' ''.
PERFORM FCAT USING 'BSTNK' 'ITSO' '' 'P.O.N.O.' 'BSTNK' 'VBAK' ''.
PERFORM FCAT USING 'KUNNR' 'ITSO' '' 'PARTY ' 'KUNNR' 'VBAP' ''.
PERFORM FCAT USING 'MATNR' 'ITSO' '' 'MAT.NO. ' 'MATNR' 'MARA' ''.
PERFORM FCAT USING 'WMENG' 'ITSO' '' 'S.O.QTY' 'WMENG' 'VBEP' ''.
REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = REPID
 IT_FIELDCAT = F1
 IT_SORT = GT_SORT
 I_SAVE = 'X'
 IT_EVENTS = GT_EVENTS[]
 TABLES
 T_OUTTAB = ITSO.
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Top of page heading
perform set_top_page_heading using t_heading t_event.
Events
perform set_events using t_event.
GUI Status
w_status = ''.
w_repid = sy-repid.
Title
w_title = <<If you want to set a title for
 the ALV, please, uncomment and edit this line>>.
User commands
w_comm = 'USER_COMMAND'.
ENDFORM. " LAYOUT
*& Form FCAT
FORM FCAT USING P_FIELD P_TABLE P_SUM P_TEXT P_RFIELD P_RTABLE P_DISP.
ADD 1 TO POS.
F2-COL_POS = POS.
F2-FIELDNAME = P_FIELD.
F2-TABNAME = P_TABLE.
F2-SELTEXT_L = P_TEXT.
F2-REF_FIELDNAME = P_RFIELD.
F2-REF_TABNAME = P_RTABLE.
F2-DO_SUM = P_SUM.
F2-NO_OUT = P_DISP.
APPEND F2 TO F1.
CLEAR F2.
ENDFORM. " FCAT
FORM F_BUILD_EVENTCAT .
CLEAR: GT_EVENTS. REFRESH: GT_EVENTS.
CLEAR: FS_EVENTCAT.
FS_EVENTCAT-NAME = 'TOP_OF_PAGE'.
FS_EVENTCAT-FORM = 'F_REPORT_HEADER_ALV'.
APPEND FS_EVENTCAT TO GT_EVENTS.
CLEAR: FS_EVENTCAT.
FS_EVENTCAT-NAME = 'END_OF_LIST'.
FS_EVENTCAT-FORM = 'F_WRITE_SUMMARY'.
APPEND FS_EVENTCAT TO GT_EVENTS.
ENDFORM. " F_BUILD_EVENTCAT
*& Form F_WRITE_SUMMARY
 Write summary before exit
FORM F_WRITE_SUMMARY .
write:/ 'Welcome to XYZ Limited'.
write:/ 'This is a test program to display Report in ALV Format'.
ENDFORM.

Just check the program :
REPORT ZMFTEST5 no standard page heading LINE-SIZE 310.
TABLES : VBAK,ABAP,VBEP,VBKD,MARA,KNA1,MAKT.
*Varriable declaration.
TYPE-POOLS SLIS.
DATA : POS TYPE I.
DATA REPID LIKE SY-REPID.
DATA : F1 TYPE SLIS_T_FIELDCAT_ALV,
F2 TYPE SLIS_FIELDCAT_ALV,
L_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA L_POS TYPE I VALUE 1. "position of the column
DATA GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
**DATA GT_SORT TYPE SLIS_T_SORTINFO_ALV.
DATA: GT_EVENTS TYPE SLIS_T_EVENT,
FS_EVENTCAT LIKE LINE OF GT_EVENTs.
INTERNAL TABLE FOR SALES ORDER *****************
DATA : BEGIN OF ITSO OCCURS 0,
VBELN LIKE VBAK-VBELN,
ERDAT LIKE VBAK-ERDAT,
BSTNK LIKE VBAK-BSTNK,
KUNNR LIKE VBAK-KUNNR,
MATNR LIKE VBAP-MATNR,
POSNR LIKE VBAP-POSNR,
WMENG LIKE VBEP-WMENG,
NTGEW LIKE MARA-NTGEW,
BRGEW LIKE MARA-BRGEW,
GEWEI LIKE MARA-GEWEI,
SPART LIKE VBAK-SPART,
BMENG LIKE VBEP-BMENG,
EDATU LIKE VBEP-EDATU,
BSTKD LIKE VBKD-BSTKD,
WERKS LIKE VBAP-WERKS,
MEINS LIKE MARA-MEINS,
KWMENG LIKE VBAP-KWMENG,
KLMENG LIKE VBAP-KLMENG,
END OF ITSO.
Heading of the report.
data: t_heading type slis_t_listheader.
***********PARAMETERS***************
PARAMETERS : PLANT LIKE VBAP-WERKS OBLIGATORY.
*********SELECTION SCREEN OPTIONS*********
SELECT-OPTIONS : SO_ORD FOR VBAK-VBELN,
SO_PARTY FOR VBAK-KUNNR,
IT_M FOR MARA-MATNR,
DIV FOR VBAK-SPART,
SO_DATE FOR VBAK-ERDAT,
S_DATE FOR VBEP-EDATU. .
START-OF-SELECTION.
SELECT DISTINCT AVBELN AERDAT ABSTNK AKUNNR BSPART BMATNR B~POSNR
BWERKS BKWMENG BKBMENG CNTGEW CBRGEW CGEWEI DWMENG DBMENG
DEDATU DVBELN
FROM VBAK AS A INNER JOIN VBAP AS B ON BVBELN = AVBELN
INNER JOIN MARA AS C ON CMATNR = BMATNR
INNER JOIN VBEP AS D ON DWMENG > 0 AND DVBELN = AVBELN AND DPOSNR =
B~POSNR
INTO CORRESPONDING FIELDS OF TABLE ITSO
WHERE AVBELN IN SO_ORD AND AKUNNR IN SO_PARTY AND B~SPART IN DIV AND
AERDAT IN SO_DATE AND DEDATU IN S_DATE AND BMATNR IN IT_M AND BWERKS
= PLANT.
IF SY-SUBRC <> 0.
MESSAGE E899(M3) WITH 'No records'.
ENDIF.
perform f_build_eventcat.
PERFORM LAYOUT.
END-OF-SELECTION.
FORM LAYOUT.
PERFORM FCAT USING 'VBELN' 'ITSO' '' 'S.O.NO. ' 'VBELN' 'VBAK' ''.
PERFORM FCAT USING 'WERKS' 'ITSO' '' 'PLANT ' 'WERKS' 'VBAP' ''.
PERFORM FCAT USING 'ERDAT' 'ITSO' '' 'S.O.DATE' 'ERDAT' 'VBAK' ''.
PERFORM FCAT USING 'BSTNK' 'ITSO' '' 'P.O.N.O.' 'BSTNK' 'VBAK' ''.
PERFORM FCAT USING 'KUNNR' 'ITSO' '' 'PARTY ' 'KUNNR' 'VBAP' ''.
PERFORM FCAT USING 'MATNR' 'ITSO' '' 'MAT.NO. ' 'MATNR' 'MARA' ''.
PERFORM FCAT USING 'WMENG' 'ITSO' '' 'S.O.QTY' 'WMENG' 'VBEP' ''.
REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =
 IT_FIELDCAT = F1
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
 IT_EVENTS = GT_EVENTS[]
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_ADD_FIELDCAT =
IT_HYPERLINK =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IT_EXCEPT_QINFO =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
 T_OUTTAB = ITSO
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Top of page heading
perform set_top_page_heading using t_heading t_event.
Events
perform set_events using t_event.
GUI Status
w_status = ''.
w_repid = sy-repid.
Title
w_title = <<If you want to set a title for
the ALV, please, uncomment and edit this line>>.
User commands
w_comm = 'USER_COMMAND'.
ENDFORM. " LAYOUT
*& Form FCAT
FORM FCAT USING P_FIELD P_TABLE P_SUM P_TEXT P_RFIELD P_RTABLE P_DISP.
ADD 1 TO POS.
F2-COL_POS = POS.
F2-FIELDNAME = P_FIELD.
F2-TABNAME = P_TABLE.
F2-SELTEXT_L = P_TEXT.
F2-REF_FIELDNAME = P_RFIELD.
F2-REF_TABNAME = P_RTABLE.
F2-DO_SUM = P_SUM.
F2-NO_OUT = P_DISP.
APPEND F2 TO F1.
CLEAR F2.
ENDFORM. " FCAT
FORM F_BUILD_EVENTCAT .
CLEAR: GT_EVENTS. REFRESH: GT_EVENTS.
CLEAR: FS_EVENTCAT.
FS_EVENTCAT-NAME = 'TOP_OF_PAGE'.
FS_EVENTCAT-FORM = 'F_REPORT_HEADER_ALV'.
APPEND FS_EVENTCAT TO GT_EVENTS.
CLEAR: FS_EVENTCAT.
FS_EVENTCAT-NAME = 'END_OF_LIST'.
FS_EVENTCAT-FORM = 'F_WRITE_SUMMARY'.
APPEND FS_EVENTCAT TO GT_EVENTS.
ENDFORM. " F_BUILD_EVENTCAT
*& Form F_WRITE_SUMMARY
Write summary before exit
FORM F_WRITE_SUMMARY .
write:/ 'Welcome to XYZ Limited'.
write:/ 'This is a test program to display Report in ALV Format'.
ENDFORM.
Thanks
Seshu

How to read complete line displayed thru ALV report on double click? urgent

Hi guys,
An ALV report is displayed using 'REUSE_ALV_LIST_DISPLAY' and i have a requirement such that i have to read the line item on which double click is done.
I have to fetch the line item, field by field and not by characters. I have attached the function code and all using PF status.
Please tell me an approach as how to fetch the line item on which double click is done.
Points will be rewarded.
Regards
Rahul

Hi ..
i did report with belnr , bukrs , Gjahr . which will call the transcation code FB03 displaing thedocument ...
please cut and paste the report it will work ..
REPORT zdemo_alvgrid .
TABLES: bkpf . " ekko.
type-pools: slis. "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_ekko,
BUKRS like bkpf-BUKRS,
BELNR like bkpf-BELNR,
GJAHR like bkpf-GJAHR,
BLART like bkpf-BLART,
BLDAT like bkpf-BLDAT,
BUDAT like bkpf-BUDAT,
MONAT like bkpf-MONAT,
XBLNR like bkpf-XBLNR ,
* ebeln TYPE ekpo-ebeln,
* ebelp TYPE ekpo-ebelp,
* statu TYPE ekpo-statu,
* aedat TYPE ekpo-aedat,
* matnr TYPE ekpo-matnr,
* menge TYPE ekpo-menge,
* meins TYPE ekpo-meins,
* netpr TYPE ekpo-netpr,
* peinh TYPE ekpo-peinh,
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
 wa_ekko TYPE t_ekko.
*ALV data declarations
data: fieldcatalog type slis_t_fieldcat_alv with header line,
 gd_tab_group type slis_t_sp_group_alv,
 gd_layout type slis_layout_alv,
 gd_repid like sy-repid,
 gt_events type slis_t_event,
 gd_prntparams type slis_print_alv.
*Start-of-selection.
START-OF-SELECTION.
perform data_retrieval.
perform build_fieldcatalog.
perform build_layout.
perform build_events.
perform build_print_params.
perform display_alv_report.
*& Form BUILD_FIELDCATALOG
* Build Fieldcatalog for ALV Report
form build_fieldcatalog.
* There are a number of ways to create a fieldcat.
* For the purpose of this example i will build the fieldcatalog manualy
* by populating the internal table fields individually and then
* appending the rows. This method can be the most time consuming but can
* also allow you more control of the final product.
* Beware though, you need to ensure that all fields required are
* populated. When using some of functionality available via ALV, such as
* total. You may need to provide more information than if you were
* simply displaying the result
* I.e. Field type may be required in-order for
* the 'TOTAL' function to work.
fieldcatalog-fieldname = 'BUKRS'.
fieldcatalog-seltext_m = 'Purchase Order'.
fieldcatalog-col_pos = 0.
fieldcatalog-outputlen = 10.
fieldcatalog-emphasize = 'X'.
fieldcatalog-key = 'X'.
* fieldcatalog-do_sum = 'X'.
* fieldcatalog-no_zero = 'X'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'BELNR'.
fieldcatalog-seltext_m = 'PO Item'.
fieldcatalog-col_pos = 1.
fieldcatalog-outputlen = 10.
 fieldcatalog-emphasize = 'X'.
fieldcatalog-key = 'X'.
 append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'GJAHR'.
fieldcatalog-seltext_m = 'Status'.
fieldcatalog-col_pos = 2.
fieldcatalog-outputlen = 10.
fieldcatalog-emphasize = 'X'.
fieldcatalog-key = 'X'.
 append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'BLART'.
fieldcatalog-seltext_m = 'Item change date'.
fieldcatalog-col_pos = 3.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'BLDAT'.
fieldcatalog-seltext_m = 'Material Number'.
fieldcatalog-col_pos = 4.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'BUDAT'.
fieldcatalog-seltext_m = 'PO quantity'.
fieldcatalog-col_pos = 5.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'MONAT'.
fieldcatalog-seltext_m = 'Order Unit'.
fieldcatalog-col_pos = 6.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
fieldcatalog-fieldname = 'XBLNR'.
fieldcatalog-seltext_m = 'Net Price'.
fieldcatalog-col_pos = 7.
fieldcatalog-outputlen = 15.
* fieldcatalog-do_sum = 'X'.
* fieldcatalog-datatype = 'CURR'.
append fieldcatalog to fieldcatalog.
clear fieldcatalog.
** fieldcatalog-fieldname = 'PEINH'.
** fieldcatalog-seltext_m = 'Price Unit'.
** fieldcatalog-col_pos = 8.
** append fieldcatalog to fieldcatalog.
* clear fieldcatalog.
endform. " BUILD_FIELDCATALOG
*& Form BUILD_LAYOUT
* Build layout for ALV grid report
form build_layout.
gd_layout-no_input = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text = 'Totals'(201).
* gd_layout-totals_only = 'X'.
* gd_layout-f2code = 'DISP'. "Sets fcode for when double
* "click(press f2)
* gd_layout-zebra = 'X'.
* gd_layout-group_change_edit = 'X'.
* gd_layout-header_text = 'helllllo'.
endform. " BUILD_LAYOUT
*& Form DISPLAY_ALV_REPORT
* Display report using ALV grid
form display_alv_report.
gd_repid = sy-repid.
call function 'REUSE_ALV_GRID_DISPLAY'
 exporting
 i_callback_program = gd_repid
 i_callback_top_of_page = 'TOP-OF-PAGE' "see FORM
 i_callback_user_command = 'USER_COMMAND'
* i_grid_title = outtext
 is_layout = gd_layout
 it_fieldcat = fieldcatalog[]
* it_special_groups = gd_tabgroup
 it_events = gt_events
 is_print = gd_prntparams
 i_save = 'X'
* is_variant = z_template
 tables
 t_outtab = it_ekko
 exceptions
 program_error = 1
 others = 2.
if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
endform. " DISPLAY_ALV_REPORT
*& Form DATA_RETRIEVAL
* Retrieve data form EKPO table and populate itab it_ekko
form data_retrieval.
select BUKRS
BELNR
GJAHR
BLART
BLDAT
BUDAT
MONAT
XBLNR up to 10 rows
from bkpf
into table it_ekko.
*select ebeln ebelp statu aedat matnr menge meins netpr peinh
* up to 10 rows
* from ekpo
* into table it_ekko.
endform. " DATA_RETRIEVAL
* Form TOP-OF-PAGE *
* ALV Report Header *
Form top-of-page.
*ALV Header declarations
data: t_header type slis_t_listheader,
 wa_header type slis_listheader,
 t_line like wa_header-info,
 ld_lines type i,
 ld_linesc(10) type c.
* Title
wa_header-typ = 'H'.
wa_header-info = 'EKKO Table Report'.
append wa_header to t_header.
clear wa_header.
* Date
wa_header-typ = 'S'.
wa_header-key = 'Date: '.
CONCATENATE sy-datum+6(2) '.'
 sy-datum+4(2) '.'
 sy-datum(4) INTO wa_header-info. "todays date
append wa_header to t_header.
clear: wa_header.
* Total No. of Records Selected
describe table it_ekko lines ld_lines.
ld_linesc = ld_lines.
concatenate 'Total No. of Records Selected: ' ld_linesc
 into t_line separated by space.
wa_header-typ = 'A'.
wa_header-info = t_line.
append wa_header to t_header.
clear: wa_header, t_line.
call function 'REUSE_ALV_COMMENTARY_WRITE'
 exporting
 it_list_commentary = t_header.
* i_logo = 'Z_LOGO'.
endform.
* FORM USER_COMMAND *
* --> R_UCOMM *
* --> RS_SELFIELD *
FORM user_command USING r_ucomm LIKE sy-ucomm
 rs_selfield TYPE slis_selfield.
* Check function code
CASE r_ucomm.
 WHEN '&IC1'.
* Check field clicked on within ALVgrid report
 IF rs_selfield-fieldname = 'BELNR'.
* Read data table, using index of row user clicked on
 READ TABLE it_ekko INTO wa_ekko INDEX rs_selfield-tabindex.
* Set parameter ID for transaction screen field
 SET PARAMETER ID 'BES' FIELD wa_ekko-bELNR .
 SET PARAMETER ID 'MES' FIELD wa_ekko-bUKRS .
 SET PARAMETER ID 'DES' FIELD wa_ekko-GJAHR .
* Sxecute transaction ME23N, and skip initial data entry screen
* CALL TRANSACTION 'FB03' AND SKIP first screen.
SUBMIT RFBUEB00
* WITH ALCUR ...
* WITH ARCHOBJ ...
* WITH ARCH_SEL ...
* WITH ARUSETYP ...
* WITH AUTBEXNO ...
* WITH AUTH_BUK ...
* WITH AUTH_LDR ...
* WITH BR_AWKEY ...
* WITH BR_AWSYS ...
* WITH BR_AWTYP ...
 WITH BR_BELNR = wa_ekko-bELNR
* WITH BR_BLART ...
* WITH BR_BLDAT ...
* WITH BR_BUDAT ...
 WITH BR_BUKRS = wa_ekko-bUKRS
* WITH BR_CPUDT ...
 WITH BR_GJAHR = wa_ekko-GJAHR
* WITH BR_RLDNR ...
* WITH BR_SEQ ...
* WITH BR_USNAM ...
* WITH BR_XBLNR ...
* WITH EXCDT ...
* WITH P_STATS ...
* WITH STATISTK ...
* WITH STATUSD ...
* WITH STATUSL ...
* WITH STATUSM ...
* WITH STATUSS ...
* WITH STATUSV ...
* WITH TCODE ...
* WITH UNAME ...
* WITH XEMUCNV ...
* WITH XUSEAR ...
* WITH XUSEAS ...
* WITH XUSEDB
 AND RETURN .
 ENDIF.
ENDCASE.
ENDFORM.
*& Form BUILD_EVENTS
* Build events table
form build_events.
data: ls_event type slis_alv_event.
call function 'REUSE_ALV_EVENTS_GET'
 exporting
 i_list_type = 0
 importing
 et_events = gt_events[].
read table gt_events with key name = slis_ev_end_of_page
 into ls_event.
if sy-subrc = 0.
 move 'END_OF_PAGE' to ls_event-form.
 append ls_event to gt_events.
endif.
 read table gt_events with key name = slis_ev_end_of_list
 into ls_event.
if sy-subrc = 0.
 move 'END_OF_LIST' to ls_event-form.
 append ls_event to gt_events.
endif.
endform. " BUILD_EVENTS
*& Form BUILD_PRINT_PARAMS
* Setup print parameters
form build_print_params.
gd_prntparams-reserve_lines = '3'. "Lines reserved for footer
gd_prntparams-no_coverpage = 'X'.
endform. " BUILD_PRINT_PARAMS
*& Form END_OF_PAGE
form END_OF_PAGE.
data: listwidth type i,
 ld_pagepos(10) type c,
 ld_page(10) type c.
write: sy-uline(50).
skip.
write:/40 'Page:', sy-pagno .
endform.
*& Form END_OF_LIST
form END_OF_LIST.
data: listwidth type i,
 ld_pagepos(10) type c,
 ld_page(10) type c.
skip.
write:/40 'Page:', sy-pagno .
endform.
reward points if it is usefull ...
Girish

ALV report for individual fields (urgent...........)

Hi all,
using this ZUS_SDN_THREE_ALV_GRIDS program structure i have generated the all the fields from table.
could you please guide me how to generate the ALV report for splecific fileds from individual tables.
if i click in click on grid1 (that is sales header details) we need populate the item details in grid2 and paralally customer details in grid3.
please guide me how to resolve the issuee..
thanks in advance
Srinivas...

Hi,
I have done an example, like on 1st grid it displays header data (EKKO) and when you double click on any record, for that PO you will get item details (EKPO) on 2nd grid,
In the similar way, you can add one more grid and populate it with your own data simultaneously along with 2nd grid.
*& Report ZOOABAP1_SOW
report zabap2.
* TABLES
tables:ekko.
* DATA DECLARATIONS
data: grid1 type ref to cl_gui_alv_grid,
 grid2 type ref to cl_gui_alv_grid,
 container1 type ref to cl_gui_custom_container,
 container2 type ref to cl_gui_custom_container,
 flag.
* INTERNAL TABLES
data: it_ekko type table of ekko.
data: wa_ekko like line of it_ekko.
data: it_ekpo type table of ekpo.
data: it_fcat1 type lvc_t_fcat,
 wa_fcat1 type lvc_s_fcat,
 it_fcat2 type lvc_t_fcat,
 wa_fcat2 type lvc_s_fcat,
 wa_layout1 type lvc_s_layo,
 wa_layout2 type lvc_s_layo,
 wa_variant type disvariant.
* SELECTION-SCREEN
selection-screen begin of block b with frame title text-s01.
select-options: s_ebeln for ekko-ebeln.
selection-screen end of block b.
* CLASS lcl1 DEFINITION
class lcl1 definition.
public section.
 methods:
 handler_dbl_clk for event double_click
 of cl_gui_alv_grid
 importing e_row.
endclass. "lcl1 DEFINITION
* CLASS lcl1 IMPLEMENTATION
class lcl1 implementation.
method handler_dbl_clk.
 read table it_ekko into wa_ekko index e_row-index.
 if sy-subrc = 0.
 perform get_ekpo.
 endif.
endmethod. "handler_dbl_clk
endclass. "lcl1 IMPLEMENTATION
* START_OF_SELECTION
start-of-selection.
* Get PO header data
perform get_ekko.
* screen for container
call screen 100.
*& Module STATUS_0100 OUTPUT
* text
module status_0100 output.
set pf-status 'PFS'.
set titlebar 'TIT'.
data: obj type ref to lcl1.
if flag is initial.
 create object container1
 exporting
 container_name = 'CONT1'.
 create object container2
 exporting
 container_name = 'CONT2'.
 create object grid1
 exporting
 i_parent = container1.
 create object grid2
 exporting
 i_parent = container2.
 create object obj.
 set handler obj->handler_dbl_clk for grid1.
 perform build_fcat.
 perform build_layout.
 call method grid1->set_table_for_first_display
 exporting
* i_buffer_active =
* i_bypassing_buffer =
* i_consistency_check =
* i_structure_name = 'EKKO'
* is_variant = wa_variant
 i_save = 'X'
* i_default = 'X'
 is_layout = wa_layout1
* is_print =
* it_special_groups =
* it_toolbar_excluding =
* it_hyperlink =
* it_alv_graphics =
* it_except_qinfo =
* ir_salv_adapter =
 changing
 it_outtab = it_ekko
 it_fieldcatalog = it_fcat1
* it_sort =
* it_filter =
* EXCEPTIONS
* invalid_parameter_combination = 1
* program_error = 2
* too_many_lines = 3
* others = 4
 if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 endif.
 flag = 'X'.
endif.
endmodule. " STATUS_0100 OUTPUT
*& Form get_ekko
* text
* --> p1 text
* <-- p2 text
form get_ekko .
select ebeln bsart lifnr
 from ekko
 into corresponding fields of table it_ekko
 where ebeln in s_ebeln.
endform. " get_ekko
*& Form GET_EKPO
* text
* --> p1 text
* <-- p2 text
form get_ekpo .
select ebeln ebelp menge meins peinh from ekpo
 into corresponding fields of table it_ekpo
 where ebeln = wa_ekko-ebeln.
if not it_ekpo[] is initial.
 call method grid2->set_table_for_first_display
exporting
* i_buffer_active =
* i_bypassing_buffer =
* i_consistency_check =
* i_structure_name =
* is_variant =
* i_save =
* i_default = 'X'
 is_layout = wa_layout2
* is_print =
* it_special_groups =
* it_toolbar_excluding =
* it_hyperlink =
* it_alv_graphics =
* it_except_qinfo =
* ir_salv_adapter =
 changing
 it_outtab = it_ekpo
 it_fieldcatalog = it_fcat2
* it_sort =
* it_filter =
* EXCEPTIONS
* invalid_parameter_combination = 1
* program_error = 2
* too_many_lines = 3
* others = 4
 if sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 endif.
endif.
endform. " GET_EKPO
*& Module USER_COMMAND_0100 INPUT
* text
module user_command_0100 input.
case sy-ucomm.
 when 'BACK' or 'EXIT' or 'CANC'.
 call method container1->free.
 call method container2->free.
 leave to screen 0.
endcase.
endmodule. " USER_COMMAND_0100 INPUT
*& Form build_fcat
* text
* --> p1 text
* <-- p2 text
form build_fcat .
* fieldcatalog for EKKO table
wa_fcat1-col_pos = '1'.
wa_fcat1-fieldname = 'EBELN'.
wa_fcat1-tabname = 'EKKO'.
wa_fcat1-coltext = 'PO No.'.
append wa_fcat1 to it_fcat1.
clear wa_fcat1.
wa_fcat1-col_pos = '2'.
wa_fcat1-fieldname = 'BSART'.
wa_fcat1-tabname = 'EKKO'.
wa_fcat1-coltext = 'PO Type'.
append wa_fcat1 to it_fcat1.
clear wa_fcat1.
wa_fcat1-col_pos = '3'.
wa_fcat1-fieldname = 'LIFNR'.
wa_fcat1-tabname = 'EKKO'.
wa_fcat1-coltext = 'Vendor No.'.
append wa_fcat1 to it_fcat1.
clear wa_fcat1.
* fieldcatalog for EKPO table
wa_fcat2-col_pos = '1'.
wa_fcat2-fieldname = 'EBELN'.
wa_fcat2-tabname = 'EKPO'.
wa_fcat2-coltext = 'PO No.'.
append wa_fcat2 to it_fcat2.
clear wa_fcat2.
wa_fcat2-col_pos = '2'.
wa_fcat2-fieldname = 'EBELP'.
wa_fcat2-tabname = 'EKPO'.
wa_fcat2-coltext = 'PO Item'.
append wa_fcat2 to it_fcat2.
clear wa_fcat2.
wa_fcat2-col_pos = '3'.
wa_fcat2-fieldname = 'MENGE'.
wa_fcat2-tabname = 'EKPO'.
wa_fcat2-coltext = 'Quantity'.
append wa_fcat2 to it_fcat2.
clear wa_fcat2.
wa_fcat2-col_pos = '4'.
wa_fcat2-fieldname = 'MEINS'.
wa_fcat2-tabname = 'EKPO'.
wa_fcat2-coltext = 'UOM'.
append wa_fcat2 to it_fcat2.
clear wa_fcat2.
wa_fcat2-col_pos = '5'.
wa_fcat2-fieldname = 'PEINH'.
wa_fcat2-tabname = 'EKPO'.
wa_fcat2-coltext = 'Price Unit'.
append wa_fcat2 to it_fcat2.
clear wa_fcat2.
endform. " build_fcat
*& Form build_layout
* text
* --> p1 text
* <-- p2 text
form build_layout .
clear wa_layout1.
wa_layout1-grid_title = 'Header data'.
* wa_layout-sel_mode = 'A'. "allow to select multiple lines
clear wa_layout2.
wa_layout2-grid_title = 'Item Data'.
endform. " build_layout
If you have any poblems while doing this, post it.
Do reward points for all helpful answers
Regards,
Sowjanya

Urgent: about the checkbox in OOP ALV report

Hi Experts,
I had use OOP method to display my ALV report. In the report I have a checkbox for each line. I had set this check box use below statements:
    gt_fieldcat_record-tabname = 'GT_ISSUE_INT'.
    gt_fieldcat_record-fieldname = 'CHECKBOX'.
    gt_fieldcat_record-checkbox = 'X'.
    gt_fieldcat_record-edit = 'X'.
    APPEND gt_fieldcat_record.
When I press the save button, then I will save the lines to my Z-table which its GT_ISSUE_INT-CHECKBOX = 'X'.
Now I click the checkbox to select several lines in my ALV report and then press save, but it do not work. Then I check the internal table GT_ISSUE_INT in debugger, I found the GT_ISSUE_INT-CHECKBOX = ' '. Above statements is not correct for the checkbox?? Or I need additional statements to move 'X' to GT_ISSUE_INT-CHECKBOX?? Please help!!!Thanks.

Hi,
If u want to read check box status from list, need to call function module explicitly.
see the sample code:
case sy-ucomm.
when 'SAVE'.
Data ref1 type ref to cl_gui_alv_grid.
      CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
        IMPORTING
           E_GRID = ref1.
       call method ref1->check_changed_data.
loop at GT_ISSUE_INT to workarea.
____ continue writing ur code.
function module read the data from list . and save the changes that made on list.
when u debug, u can see the check box status as 'X' after exucut\ing this fm and method.
reward if helpful.
regards,
swapna

Double click in alv report

Hi all,
I have below output in alv report.
matnr 101_102 121_122 123_124
10000 23 34 45
10001 34 34 456
if i m clicking on 23 in combination of 121_122 and 10000 then i want to see detail for 121_122 and if i m clicking on 34 combination of 101_102 then i want to see detail according to it.
plz help me. its urgent.
thanks in advance.

Check the below report and do compare and modify the report as per your req.
REPORT ZZ_22038_22098_002 NO STANDARD PAGE HEADING LINE-SIZE 650
MESSAGE-ID ZZ_9838 .
TYPE-POOLS: SLIS.
*type declaration for values from ekko
TYPES: BEGIN OF I_EKKO,
 EBELN LIKE EKKO-EBELN,
 AEDAT LIKE EKKO-AEDAT,
 BUKRS LIKE EKKO-BUKRS,
 BSART LIKE EKKO-BSART,
 LIFNR LIKE EKKO-LIFNR,
 END OF I_EKKO.
DATA: IT_EKKO TYPE STANDARD TABLE OF I_EKKO INITIAL SIZE 0,
 WA_EKKO TYPE I_EKKO.
*type declaration for values from ekpo
TYPES: BEGIN OF I_EKPO,
 EBELN LIKE EKPO-EBELN,
 EBELP LIKE EKPO-EBELP,
 MATNR LIKE EKPO-MATNR,
 MENGE LIKE EKPO-MENGE,
 MEINS LIKE EKPO-MEINS,
 NETPR LIKE EKPO-NETPR,
 END OF I_EKPO.
DATA: IT_EKPO TYPE STANDARD TABLE OF I_EKPO INITIAL SIZE 0,
 WA_EKPO TYPE I_EKPO .
*variable for Report ID
DATA: V_REPID LIKE SY-REPID .
*declaration for fieldcatalog
DATA: I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA: IT_LISTHEADER TYPE SLIS_T_LISTHEADER.
declaration for events table where user comand or set PF status will
be defined
DATA: V_EVENTS TYPE SLIS_T_EVENT,
 WA_EVENT TYPE SLIS_ALV_EVENT.
declartion for layout
DATA: ALV_LAYOUT TYPE SLIS_LAYOUT_ALV.
declaration for variant(type of display we want)
DATA: I_VARIANT TYPE DISVARIANT,
 I_VARIANT1 TYPE DISVARIANT,
 I_SAVE(1) TYPE C.
*PARAMETERS : p_var TYPE disvariant-variant.
*Title displayed when the alv list is displayed
DATA: I_TITLE_EKKO TYPE LVC_TITLE VALUE 'FIRST LIST DISPLAYED'.
DATA: I_TITLE_EKPO TYPE LVC_TITLE VALUE 'SECONDRY LIST DISPLAYED'.
INITIALIZATION.
V_REPID = SY-REPID.
PERFORM BUILD_FIELDCATLOG.
PERFORM EVENT_CALL.
PERFORM POPULATE_EVENT.
START-OF-SELECTION.
PERFORM DATA_RETRIEVAL.
PERFORM BUILD_LISTHEADER USING IT_LISTHEADER.
PERFORM DISPLAY_ALV_REPORT.
*& Form BUILD_FIELDCATLOG
 Fieldcatalog has all the field details from ekko
FORM BUILD_FIELDCATLOG.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'EBELN'.
WA_FIELDCAT-SELTEXT_M = 'PO NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'AEDAT'.
WA_FIELDCAT-SELTEXT_M = 'DATE.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'BUKRS'.
WA_FIELDCAT-SELTEXT_M = 'COMPANY CODE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'BUKRS'.
WA_FIELDCAT-SELTEXT_M = 'DOCMENT TYPE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'LIFNR'.
WA_FIELDCAT-NO_OUT = 'X'.
WA_FIELDCAT-SELTEXT_M = 'VENDOR CODE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM. "BUILD_FIELDCATLOG
*& Form EVENT_CALL
we get all events - TOP OF PAGE or USER COMMAND in table v_events
FORM EVENT_CALL.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = V_EVENTS
EXCEPTIONS
 LIST_TYPE_WRONG = 1
 OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. "EVENT_CALL
*& Form POPULATE_EVENT
 Events populated for TOP OF PAGE & USER COMAND
FORM POPULATE_EVENT.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC EQ 0.
 WA_EVENT-FORM = 'TOP_OF_PAGE'.
 MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-FORM.
ENDIF.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND'.
IF SY-SUBRC EQ 0.
 WA_EVENT-FORM = 'USER_COMMAND'.
 MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-NAME.
ENDIF.
ENDFORM. "POPULATE_EVENT
*& Form data_retrieval
retreiving values from the database table ekko
FORM DATA_RETRIEVAL.
SELECT EBELN AEDAT BUKRS BSART LIFNR FROM EKKO INTO TABLE IT_EKKO.
ENDFORM. "data_retrieval
*& Form bUild_listheader
 text
 -->I_LISTHEADEtext
FORM BUILD_LISTHEADER USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA HLINE TYPE SLIS_LISTHEADER.
HLINE-INFO = 'this is my first alv pgm'.
HLINE-TYP = 'H'.
ENDFORM. "build_listheader
*& Form display_alv_report
 text
FORM DISPLAY_ALV_REPORT.
V_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = V_REPID
I_CALLBACK_PF_STATUS_SET = ' '
 I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
 I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
 I_GRID_TITLE = I_TITLE_EKKO
I_GRID_SETTINGS =
IS_LAYOUT = ALV_LAYOUT
 IT_FIELDCAT = I_FIELDCAT[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
 i_default = 'ZLAY1'
 I_SAVE = 'A'
 is_variant = i_variant
 IT_EVENTS = V_EVENTS
 TABLES
 T_OUTTAB = IT_EKKO
EXCEPTIONS
PROGRAM_ERROR = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. "display_alv_report
*& Form TOP_OF_PAGE
 text
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = IT_LISTHEADER
 i_logo =
 I_END_OF_LIST_GRID =
ENDFORM. "TOP_OF_PAGE
*& Form USER_COMMAND
 text
 -->R_UCOMM text
 -->, text
 -->RS_SLEFIELDtext
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
 WHEN '&IC1'.
 READ TABLE IT_EKKO INTO WA_EKKO INDEX RS_SELFIELD-TABINDEX.
 PERFORM BUILD_FIELDCATLOG_EKPO.
 PERFORM EVENT_CALL_EKPO.
 PERFORM POPULATE_EVENT_EKPO.
 PERFORM DATA_RETRIEVAL_EKPO.
 PERFORM BUILD_LISTHEADER_EKPO USING IT_LISTHEADER.
 PERFORM DISPLAY_ALV_EKPO.
ENDCASE.
ENDFORM. "user_command
*& Form BUILD_FIELDCATLOG_EKPO
 text
FORM BUILD_FIELDCATLOG_EKPO.
WA_FIELDCAT-TABNAME = 'IT_EKPO'.
WA_FIELDCAT-FIELDNAME = 'EBELN'.
WA_FIELDCAT-SELTEXT_M = 'PO NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKPO'.
WA_FIELDCAT-FIELDNAME = 'EBELP'.
WA_FIELDCAT-SELTEXT_M = 'LINE NO'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-SELTEXT_M = 'MATERIAL NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MENGE'.
WA_FIELDCAT-SELTEXT_M = 'QUANTITY'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MEINS'.
WA_FIELDCAT-SELTEXT_M = 'UOM'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'NETPR'.
WA_FIELDCAT-SELTEXT_M = 'PRICE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM. "BUILD_FIELDCATLOG_EKPO
*& Form event_call_ekpo
we get all events - TOP OF PAGE or USER COMMAND in table v_events
FORM EVENT_CALL_EKPO.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = V_EVENTS
EXCEPTIONS
LIST_TYPE_WRONG = 1
OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. "event_call_ekpo
*& Form POPULATE_EVENT
 Events populated for TOP OF PAGE & USER COMAND
FORM POPULATE_EVENT_EKPO.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC EQ 0.
 WA_EVENT-FORM = 'TOP_OF_PAGE'.
 MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-FORM.
ENDIF.
ENDFORM. "POPULATE_EVENT
*& Form TOP_OF_PAGE
 text
FORM F_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = IT_LISTHEADER
 i_logo =
 I_END_OF_LIST_GRID =
ENDFORM. "TOP_OF_PAGE
*& Form USER_COMMAND
 text
 -->R_UCOMM text
 -->, text
 -->RS_SLEFIELDtext
*retreiving values from the database table ekko
FORM DATA_RETRIEVAL_EKPO.
SELECT EBELN EBELP MATNR MENGE MEINS NETPR FROM EKPO INTO TABLE IT_EKPO.
ENDFORM.
FORM BUILD_LISTHEADER_EKPO USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA: HLINE1 TYPE SLIS_LISTHEADER.
HLINE1-TYP = 'H'.
HLINE1-INFO = 'CHECKING PGM'.
ENDFORM.
FORM DISPLAY_ALV_EKPO.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = V_REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = 'F_USER_COMMAND'
 I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
 I_GRID_TITLE = I_TITLE_EKPO
I_GRID_SETTINGS =
IS_LAYOUT =
 IT_FIELDCAT = I_FIELDCAT[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT =
 I_SAVE = 'A'
IS_VARIANT =
 IT_EVENTS = V_EVENTS
TABLES
 T_OUTTAB = IT_EKPO
EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.
Thanks
Seshu

Hi experts , in alv report

in alv report i need to display the different customers in different blocks in the alv output, for example customer : 1000 in one block with all the details , and
customer : 10001 in other block in the same alv , if possible provide the coding.
its very urgent.

Hi,
 Check whether this helps u or not :-
TYPE-POOLS : SLIS.
TABLES : EKKO,EKPO,MARA,MAKT,EINE.
DATA : BEGIN OF IEKKO OCCURS 0,
 EBELN LIKE EKKO-EBELN,
 AEDAT LIKE EKKO-AEDAT,
 END OF IEKKO.
DATA : BEGIN OF IEKPO OCCURS 0,
 EBELN LIKE EKPO-EBELN,
 EBELP LIKE EKPO-EBELP,
 MATNR LIKE EKPO-MATNR,
 MENGE LIKE EKPO-MENGE,
 MEINS LIKE EKPO-MEINS,
 INFNR LIKE EKPO-INFNR,
 END OF IEKPO.
DATA : BEGIN OF IMARA OCCURS 0,
 MATNR LIKE MARA-MATNR,
 MTART LIKE MARA-MTART,
 MAKTX LIKE MAKT-MAKTX,
 END OF IMARA.
DATA : BEGIN OF IEINE OCCURS 0,
 INFNR LIKE EINE-INFNR,
 EBELN LIKE EINE-EBELN,
 NETPR LIKE EINE-NETPR,
 WAERS LIKE EINE-WAERS,
 END OF IEINE.
DATA : IFIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 IFIELDCATEINE TYPE SLIS_T_FIELDCAT_ALV,
 IFIELDCATMARA TYPE SLIS_T_FIELDCAT_ALV,
 WFIELDCAT TYPE SLIS_FIELDCAT_ALV,
 ILAYOUT TYPE SLIS_LAYOUT_ALV,
 IEVENTHEAD TYPE SLIS_T_EVENT,
 IEVENTITEM TYPE SLIS_T_EVENT,
 IEVENTEINE TYPE SLIS_T_EVENT,
 WEVENT TYPE SLIS_ALV_EVENT,
 IKEYINFO TYPE SLIS_KEYINFO_ALV.
PARAMETERS : P_NUM(3) TYPE N DEFAULT 10.
PERFORM GET_DATA_EKKO.
PERFORM GET_DATA_EKPO.
PERFORM GET_DATA_MARA.
PERFORM GET_DATA_EINE.
PERFORM BUILD_FCAT_HEAD.
PERFORM BUILD_FCAT_ITEM.
PERFORM BUILD_FCAT_MARA.
PERFORM BUILD_FCAT_EINE.
PERFORM BUILD_LAYOUT.
PERFORM BUILD_EVENT_TAB.
PERFORM BUILD_KEYINFO.
PERFORM DISPLAY_BLOCK.
*& Form GET_DATA_EKKO
* text
* --> p1 text
* <-- p2 text
FORM GET_DATA_EKKO .
SELECT EBELN AEDAT INTO TABLE IEKKO FROM EKKO UP TO P_NUM ROWS WHERE EBELN LIKE '45000057%'.
ENDFORM. " GET_DATA_EKKO
*& Form GET_DATA_EKPO
* text
* --> p1 text
* <-- p2 text
FORM GET_DATA_EKPO .
IF NOT IEKKO[] IS INITIAL.
SELECT EBELN EBELP MATNR MENGE MEINS INFNR INTO TABLE IEKPO FROM EKPO FOR ALL ENTRIES
 IN IEKKO WHERE EBELN = IEKKO-EBELN.
ENDIF.
ENDFORM. " GET_DATA_EKPO
*& Form DISPLAY_BLOCK
* text
* --> p1 text
* <-- p2 text
FORM DISPLAY_BLOCK .
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
 I_CALLBACK_PROGRAM = SY-REPID
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* IT_EXCLUDING =
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_HS_APPEND'
EXPORTING
 IS_LAYOUT = ILAYOUT
 IT_FIELDCAT = IFIELDCAT
 IS_KEYINFO = IKEYINFO
 I_HEADER_TABNAME = 'IEKKO'
 I_ITEM_TABNAME = 'IEKPO'
 IT_EVENTS = IEVENTHEAD
* IT_SORT =
* I_TEXT = ' '
TABLES
 T_OUTTAB_HEADER = IEKKO
 T_OUTTAB_ITEM = IEKPO
* EXCEPTIONS
* PROGRAM_ERROR = 1
* MAXIMUM_OF_APPENDS_REACHED = 2
* OTHERS = 3
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
 IS_LAYOUT = ILAYOUT
 IT_FIELDCAT = IFIELDCATMARA
 I_TABNAME = 'IMARA'
 IT_EVENTS = IEVENTITEM
* IT_SORT =
* I_TEXT = ' '
TABLES
 T_OUTTAB = IMARA
* EXCEPTIONS
* PROGRAM_ERROR = 1
* MAXIMUM_OF_APPENDS_REACHED = 2
* OTHERS = 3
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
 IS_LAYOUT = ILAYOUT
 IT_FIELDCAT = IFIELDCATEINE
 I_TABNAME = 'IEINE'
 IT_EVENTS = IEVENTEINE
* IT_SORT =
* I_TEXT = ' '
TABLES
 T_OUTTAB = IEINE
* EXCEPTIONS
* PROGRAM_ERROR = 1
* MAXIMUM_OF_APPENDS_REACHED = 2
* OTHERS = 3
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
* EXPORTING
* I_INTERFACE_CHECK = ' '
* IS_PRINT =
* I_SCREEN_START_COLUMN = 0
* I_SCREEN_START_LINE = 0
* I_SCREEN_END_COLUMN = 0
* I_SCREEN_END_LINE = 0
* IMPORTING
* E_EXIT_CAUSED_BY_CALLER =
* ES_EXIT_CAUSED_BY_USER =
EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " DISPLAY_BLOCK
*& Form BUILD_FCAT_HEAD
* text
* --> p1 text
* <-- p2 text
FORM BUILD_FCAT_HEAD .
WFIELDCAT-FIELDNAME = 'EBELN'.
WFIELDCAT-TABNAME = 'IEKKO'.
WFIELDCAT-SELTEXT_L = 'Pur. Doc no'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'AEDAT'.
WFIELDCAT-TABNAME = 'IEKKO'.
WFIELDCAT-SELTEXT_L = 'Pur. doc date'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
ENDFORM. " BUILD_FCAT_HEAD
*& Form BUILD_FCAT_ITEM
* text
* --> p1 text
* <-- p2 text
FORM BUILD_FCAT_ITEM .
*WFIELDCAT-FIELDNAME = 'EBELN'.
*WFIELDCAT-TABNAME = 'IEKPO'.
*WFIELDCAT-SELTEXT_L = 'Pur. Doc no'.
*WFIELDCAT-OUTPUTLEN = 15.
*APPEND WFIELDCAT TO IFIELDCAT.
*CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'EBELP'.
WFIELDCAT-TABNAME = 'IEKPO'.
WFIELDCAT-SELTEXT_L = 'Pur. Doc item'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'MATNR'.
WFIELDCAT-TABNAME = 'IEKPO'.
WFIELDCAT-SELTEXT_L = 'Material no'.
WFIELDCAT-OUTPUTLEN = 18.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'MENGE'.
WFIELDCAT-TABNAME = 'IEKPO'.
WFIELDCAT-SELTEXT_L = 'P.O. Qty'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'MEINS'.
WFIELDCAT-TABNAME = 'IEKPO'.
WFIELDCAT-SELTEXT_L = 'UOM'.
WFIELDCAT-OUTPUTLEN = 3.
APPEND WFIELDCAT TO IFIELDCAT.
CLEAR WFIELDCAT.
ENDFORM. " BUILD_FCAT_ITEM
*& Form BUILD_LAYOUT
* text
* --> p1 text
* <-- p2 text
FORM BUILD_LAYOUT .
ILAYOUT-COLWIDTH_OPTIMIZE = 'X'.
ILAYOUT-ZEBRA = 'X'.
ENDFORM. " BUILD_LAYOUT
*& Form BUILD_EVENT_TAB
* text
* --> p1 text
* <-- p2 text
FORM BUILD_EVENT_TAB .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
 I_LIST_TYPE = 0
IMPORTING
 ET_EVENTS = IEVENTHEAD
* EXCEPTIONS
* LIST_TYPE_WRONG = 1
* OTHERS = 2
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
IEVENTITEM = IEVENTHEAD.
IEVENTEINE = IEVENTHEAD.
READ TABLE IEVENTHEAD INTO WEVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC = 0.
WEVENT-FORM = 'TOPOFPAGEHEAD'.
MODIFY IEVENTHEAD FROM WEVENT INDEX SY-TABIX.
ENDIF.
READ TABLE IEVENTITEM INTO WEVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC = 0.
WEVENT-FORM = 'TOPOFPAGEITEM'.
MODIFY IEVENTITEM FROM WEVENT INDEX SY-TABIX.
ENDIF.
READ TABLE IEVENTEINE INTO WEVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC = 0.
WEVENT-FORM = 'TOPOFPAGEEINE'.
MODIFY IEVENTEINE FROM WEVENT INDEX SY-TABIX.
ENDIF.
ENDFORM. " BUILD_EVENT_TAB
FORM TOPOFPAGEHEAD.
DATA : ILIST TYPE SLIS_T_LISTHEADER,
 WLIST TYPE SLIS_LISTHEADER.
WLIST-INFO = 'Header data with P.O. no and creating date'.
WLIST-TYP = 'H'.
APPEND WLIST TO ILIST.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
 IT_LIST_COMMENTARY = ILIST
* I_LOGO =
* I_END_OF_LIST_GRID =
ENDFORM.
FORM TOPOFPAGEITEM.
DATA : ILIST TYPE SLIS_T_LISTHEADER,
 WLIST TYPE SLIS_LISTHEADER.
WLIST-INFO = 'Material no in PO with type and description'.
WLIST-TYP = 'H'.
APPEND WLIST TO ILIST.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
 IT_LIST_COMMENTARY = ILIST
* I_LOGO =
* I_END_OF_LIST_GRID =
ENDFORM.
*& Form BUILD_KEYINFO
* text
* --> p1 text
* <-- p2 text
FORM BUILD_KEYINFO .
IKEYINFO-HEADER01 = 'EBELN'.
IKEYINFO-ITEM01 = 'EBELN'.
ENDFORM. " BUILD_KEYINFO
*& Form BUILD_FCAT_MARA
* text
* --> p1 text
* <-- p2 text
FORM BUILD_FCAT_MARA .
WFIELDCAT-FIELDNAME = 'MATNR'.
WFIELDCAT-TABNAME = 'IMARA'.
WFIELDCAT-SELTEXT_L = 'Material no'.
WFIELDCAT-OUTPUTLEN = 18.
APPEND WFIELDCAT TO IFIELDCATMARA.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'MAKTX'.
WFIELDCAT-TABNAME = 'IMARA'.
WFIELDCAT-SELTEXT_L = 'Material desc'.
WFIELDCAT-OUTPUTLEN = 30.
APPEND WFIELDCAT TO IFIELDCATMARA.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'MTART'.
WFIELDCAT-TABNAME = 'IMARA'.
WFIELDCAT-SELTEXT_L = 'Material typ'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCATMARA.
CLEAR WFIELDCAT.
ENDFORM. " BUILD_FCAT_MARA
*& Form GET_DATA_MARA
* text
* --> p1 text
* <-- p2 text
FORM GET_DATA_MARA .
IF NOT IEKPO[] IS INITIAL.
SELECT A~MATNR A~MTART B~MAKTX INTO TABLE IMARA FROM MARA AS A INNER JOIN
 MAKT AS B ON
 A~MATNR = B~MATNR FOR
 ALL ENTRIES IN IEKPO
 WHERE A~MATNR = IEKPO-MATNR.
ENDIF.
ENDFORM. " GET_DATA_MARA
*& Form GET_DATA_EINE
* text
* --> p1 text
* <-- p2 text
FORM GET_DATA_EINE .
IF NOT IEKPO[] IS INITIAL.
SELECT INFNR EBELN NETPR WAERS INTO TABLE IEINE FROM EINE
 FOR ALL ENTRIES IN IEKPO WHERE INFNR = IEKPO-INFNR AND
 EBELN = IEKPO-EBELN.
ENDIF.
ENDFORM. " GET_DATA_EINE
FORM TOPOFPAGEEINE.
DATA : ILIST TYPE SLIS_T_LISTHEADER,
 WLIST TYPE SLIS_LISTHEADER.
WLIST-INFO = 'Purchasing info record'.
WLIST-TYP = 'H'.
APPEND WLIST TO ILIST.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
 IT_LIST_COMMENTARY = ILIST
* I_LOGO =
* I_END_OF_LIST_GRID =
ENDFORM.
*& Form BUILD_FCAT_EINE
* text
* --> p1 text
* <-- p2 text
FORM BUILD_FCAT_EINE .
WFIELDCAT-FIELDNAME = 'INFNR'.
WFIELDCAT-TABNAME = 'IEINE'.
WFIELDCAT-SELTEXT_L = 'Info rec no'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCATEINE.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'EBELN'.
WFIELDCAT-TABNAME = 'IEINE'.
WFIELDCAT-SELTEXT_L = 'Pur ord no'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCATEINE.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'NETPR'.
WFIELDCAT-TABNAME = 'IEINE'.
WFIELDCAT-SELTEXT_L = 'Net price'.
WFIELDCAT-OUTPUTLEN = 15.
APPEND WFIELDCAT TO IFIELDCATEINE.
CLEAR WFIELDCAT.
WFIELDCAT-FIELDNAME = 'WAERS'.
WFIELDCAT-TABNAME = 'IEINE'.
WFIELDCAT-SELTEXT_L = 'Currency'.
WFIELDCAT-OUTPUTLEN = 10.
APPEND WFIELDCAT TO IFIELDCATEINE.
CLEAR WFIELDCAT.
ENDFORM. "
Regards,
Deepu.K

Alv report*urgent

Similar Messages

Maybe you are looking for