Multiple lists using ALV

[Former Member]

Hi,

I have two intenal tables and I want to display first internal table completely then below it I want to display second internal table.

for this which ALV can I choose please suggest me.

Thanks & Regards,

[Former Member]

Hi,

I have two intenal tables and I want to display first internal table completely then below it I want to display second internal table.

for this which ALV can I choose please suggest me.

Thanks & Regards,

[Former Member]

used common internal table.

both internal table append one internal table.

else dynpro oops concepts,

put two alv .

display the result.

[Former Member]

Hi Karthikeyan,

Both Internal table having seperate heading aprt from I have top of page, also it has to be displayed before these two lists.

[Former Member]

use block list in below way...

REPORT ZALV1.

******************TABLE DECLARATION***********************************

TABLES : VBAP. " tables declaration

*****************TYPE POOLS*******************************************

TYPE-POOLS : SLIS. " slis type pool

*****************INTERNAL TABLE DECLARATION***************************

DATA : BEGIN OF IT_VBAP OCCURS 0,

" internal table for sales document item

VBELN LIKE VBAP-VBELN, " sales document

POSNR LIKE VBAP-POSNR, " document item

ERNAM LIKE VBAP-ERNAM,

" name of the person who created the object

ERDAT LIKE VBAP-ERDAT, " date on which the record was created

MATNR LIKE VBAP-MATNR. " material number

DATA : END OF IT_VBAP.

DATA : BEGIN OF IT_MARA OCCURS 0, " general material data

MATNR LIKE MARA-MATNR, " material number

ERNAM LIKE MARA-ERNAM,

" name of the person who created the object

MATKL LIKE MARA-MATKL, " material group

MEINS LIKE MARA-MEINS, " base unit of measure

PSTAT LIKE MARA-PSTAT. " maintainence status

DATA : END OF IT_MARA.

******************VARIABLE

DECLARATION**********************************

DATA : REPID LIKE SY-REPID. " program name

DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

" field catalog table for vbap

WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.

DATA : IT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV,

" field catalog table for mara

WA_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV.

DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV.

DATA: GT_XEVENTS TYPE SLIS_T_EVENT.

DATA: GT_YEVENTS TYPE SLIS_T_EVENT. " events table

DATA : XS_EVENT TYPE SLIS_ALV_EVENT. " events type

DATA : GT_PRINT TYPE SLIS_PRINT_ALV. " print table

*******************MULTIPLE SELECT INPUT

PARAMETERS**********************

SELECT-OPTIONS : S_VBELN FOR VBAP-VBELN.

" multiple selection for sales document

******************INITIALIZATION**************************************

***

INITIALIZATION.

REPID = SY-REPID.

*******************START OF

SELECTION************************************

START-OF-SELECTION.

PERFORM POP_VBAP.

" populating the table with document item data

PERFORM POP_MARA.

" populating the table with general material data

PERFORM FIELD_CAT.

" mapping the fields for the field catalog

PERFORM EVENTS. " using the events

PERFORM BLOCK_LIST.

" displaying the data in blocked list

&----

---

*& Form field_cat

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM FIELD_CAT .

WA_FIELDCAT-FIELDNAME = 'VBELN'.

WA_FIELDCAT-TABNAME = 'IT_VBAP'.

WA_FIELDCAT-SELTEXT_L = 'SALES DOC'.

WA_FIELDCAT-COL_POS = 1.

WA_FIELDCAT-OUTPUTLEN = 10.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-FIELDNAME = 'POSNR'.

WA_FIELDCAT-TABNAME = 'IT_VBAP'.

WA_FIELDCAT-SELTEXT_L = 'DOC ITEM'.

WA_FIELDCAT-COL_POS = 2.

WA_FIELDCAT-OUTPUTLEN = 6.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-FIELDNAME = 'ERNAM'.

WA_FIELDCAT-TABNAME = 'IT_VBAP'.

WA_FIELDCAT-SELTEXT_L = 'NAME'.

WA_FIELDCAT-COL_POS = 3.

WA_FIELDCAT-OUTPUTLEN = 12.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-FIELDNAME = 'ERDAT'.

WA_FIELDCAT-TABNAME = 'IT_VBAP'.

WA_FIELDCAT-SELTEXT_L = 'DATE'.

WA_FIELDCAT-COL_POS = 4.

WA_FIELDCAT-OUTPUTLEN = 8.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT-FIELDNAME = 'MATNR'.

WA_FIELDCAT-TABNAME = 'IT_VBAP'.

WA_FIELDCAT-SELTEXT_L = 'MAT NO'.

WA_FIELDCAT-COL_POS = 5.

WA_FIELDCAT-OUTPUTLEN = 18.

APPEND WA_FIELDCAT TO IT_FIELDCAT.

CLEAR WA_FIELDCAT.

WA_FIELDCAT1-FIELDNAME = 'MATNR'.

WA_FIELDCAT1-TABNAME = 'IT_MARA'.

WA_FIELDCAT1-SELTEXT_L = 'MAT NO'.

WA_FIELDCAT1-COL_POS = 1.

WA_FIELDCAT1-OUTPUTLEN = 18.

APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.

CLEAR WA_FIELDCAT1.

WA_FIELDCAT1-FIELDNAME = 'ERNAM'.

WA_FIELDCAT1-TABNAME = 'IT_MARA'.

WA_FIELDCAT1-SELTEXT_L = 'NAME'.

WA_FIELDCAT1-COL_POS = 2.

WA_FIELDCAT1-OUTPUTLEN = 12.

APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.

CLEAR WA_FIELDCAT1.

WA_FIELDCAT1-FIELDNAME = 'MATKL'.

WA_FIELDCAT1-TABNAME = 'IT_MARA'.

WA_FIELDCAT1-SELTEXT_L = 'MAT DESC'.

WA_FIELDCAT1-COL_POS = 3.

WA_FIELDCAT1-OUTPUTLEN = 9.

APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.

CLEAR WA_FIELDCAT1.

WA_FIELDCAT1-FIELDNAME = 'MEINS'.

WA_FIELDCAT1-TABNAME = 'IT_MARA'.

WA_FIELDCAT1-SELTEXT_L = 'UNITS'.

WA_FIELDCAT1-COL_POS = 4.

WA_FIELDCAT1-OUTPUTLEN = 3.

APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.

CLEAR WA_FIELDCAT1.

WA_FIELDCAT1-FIELDNAME = 'PSTAT'.

WA_FIELDCAT1-TABNAME = 'IT_MARA'.

WA_FIELDCAT1-SELTEXT_L = 'STATUS'.

WA_FIELDCAT1-COL_POS = 5.

WA_FIELDCAT1-OUTPUTLEN = 15.

APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.

CLEAR WA_FIELDCAT1.

ENDFORM. " field_cat

&----

---

*& Form events

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM EVENTS .

CLEAR XS_EVENT.

XS_EVENT-NAME = SLIS_EV_END_OF_PAGE.

XS_EVENT-FORM = 'XEND_OF_PAGE'.

APPEND XS_EVENT TO GT_XEVENTS.

CLEAR XS_EVENT.

XS_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.

XS_EVENT-FORM = 'XTOP_OF_PAGE'.

APPEND XS_EVENT TO GT_XEVENTS.

CLEAR XS_EVENT.

XS_EVENT-NAME = SLIS_EV_TOP_OF_LIST.

XS_EVENT-FORM = 'XTOP_OF_LIST'.

APPEND XS_EVENT TO GT_XEVENTS.

CLEAR XS_EVENT.

XS_EVENT-NAME = SLIS_EV_END_OF_LIST.

XS_EVENT-FORM = 'XEND_OF_LIST'.

APPEND XS_EVENT TO GT_XEVENTS.

CLEAR XS_EVENT.

CLEAR XS_EVENT.

XS_EVENT-NAME = SLIS_EV_END_OF_PAGE.

XS_EVENT-FORM = 'YEND_OF_PAGE'.

APPEND XS_EVENT TO GT_YEVENTS.

CLEAR XS_EVENT.

XS_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.

XS_EVENT-FORM = 'YTOP_OF_PAGE'.

APPEND XS_EVENT TO GT_YEVENTS.

CLEAR XS_EVENT.

XS_EVENT-NAME = SLIS_EV_TOP_OF_LIST.

XS_EVENT-FORM = 'YTOP_OF_LIST'.

APPEND XS_EVENT TO GT_YEVENTS.

CLEAR XS_EVENT.

XS_EVENT-NAME = SLIS_EV_END_OF_LIST.

XS_EVENT-FORM = 'YEND_OF_LIST'.

APPEND XS_EVENT TO GT_YEVENTS.

ENDFORM. " events

&----

---

*& Form XTOP_OF_PAGE

&----

---

• text

----

---

FORM XTOP_OF_PAGE.

• BREAK-POINT.

WRITE: / 'X_TOP_OF_PAGE'.

ENDFORM. "XTOP_OF_PAGE

----

---

• FORM XTOP_OF_LIST *

----

---

• ........ *

----

---

FORM XTOP_OF_LIST.

• BREAK-POINT.

WRITE: / 'X_TOP_OF_LIST'.

ENDFORM. "XTOP_OF_LIST

----

---

• FORM XEND_OF_PAGE *

----

---

• ........ *

----

---

FORM XEND_OF_PAGE.

• BREAK-POINT.

WRITE: / 'X_END_OF_PAGE'.

ENDFORM. "XEND_OF_PAGE

----

---

• FORM XEND_OF_LIST *

----

---

• ........ *

----

---

FORM XEND_OF_LIST.

• BREAK-POINT.

WRITE: / 'X_END_OF_LIST'.

ENDFORM. "XEND_OF_LIST

*

FORM YTOP_OF_PAGE.

• BREAK-POINT.

WRITE: / 'Y_TOP_OF_PAGE'.

ENDFORM. "YTOP_OF_PAGE

----

---

• FORM YTOP_OF_LIST *

----

---

• ........ *

----

---

FORM YTOP_OF_LIST.

• BREAK-POINT.

WRITE: / 'Y_TOP_OF_LIST'.

ENDFORM. "YTOP_OF_LIST

----

---

• FORM YEND_OF_PAGE *

----

---

• ........ *

----

---

FORM YEND_OF_PAGE.

• BREAK-POINT.

WRITE: / 'Y_END_OF_PAGE'.

ENDFORM. "YEND_OF_PAGE

----

---

• FORM YEND_OF_LIST *

----

---

• ........ *

----

---

FORM YEND_OF_LIST.

• BREAK-POINT.

WRITE: / 'Y_END_OF_LIST'.

ENDFORM. "YEND_OF_LIST

*

&----

---

*& Form POP_VBAP

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM POP_VBAP .

SELECT VBELN

POSNR

ERNAM

ERDAT

MATNR

FROM VBAP

INTO CORRESPONDING FIELDS OF TABLE IT_VBAP

WHERE VBELN IN S_VBELN.

ENDFORM. " POP_VBAP

&----

---

*& Form POP_MARA

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM POP_MARA .

LOOP AT IT_VBAP.

SELECT SINGLE MATNR

ERNAM

MATKL

MEINS

PSTAT

FROM MARA

INTO CORRESPONDING FIELDS OF IT_MARA

WHERE MATNR = IT_VBAP-MATNR.

APPEND IT_MARA.

ENDLOOP.

ENDFORM. " POP_MARA

&----

---

*& Form BLOCK_LIST

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM BLOCK_LIST .

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

I_CALLBACK_PROGRAM = REPID

I_CALLBACK_PF_STATUS_SET = ' '

I_CALLBACK_USER_COMMAND = 'user_command'.

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

IS_LAYOUT = WA_LAYOUT

IT_FIELDCAT = IT_FIELDCAT

I_TABNAME = 'IT_VBAP'

IT_EVENTS = GT_XEVENTS

• IT_SORT =

• I_TEXT = ' '

TABLES

T_OUTTAB = IT_VBAP

• 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 = WA_LAYOUT

IT_FIELDCAT = IT_FIELDCAT1

I_TABNAME = 'IT_MARA'

IT_EVENTS = GT_YEVENTS

• IT_SORT =

• I_TEXT = ' '

TABLES

T_OUTTAB = IT_MARA

• 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 = GT_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. " BLOCK_LIST

[Former Member]

if u r using OOPs check BCALV* or RSDEMO* in SE38

[Former Member]

Hi Bharat,

The simlest way of doing this is first merge the two tales into one table and then use any ALV for display.

Reward if useful.

Regards,

Shilpi

[Former Member]

Hi Bharat,

U can u REUSE_ALV_BLOCK_LIST_APPEND.

Also

If possible u can get both the internal tables data in a single large table with one extra field say: flag.

For all the records of 1st internal table make flag = X and for 2nd internal table keep it space.

Then use the importing parameter <b>it_sort</b> of the FM REUSE_ALV_LIST_DISPLAY. This method also displays 2 alv list with using only 1 FM.

For more info. read the documentation of the FM.

Thank you.

[Former Member]

Hi,

use block ALV. This allow you to dispaly more table in ALV.

rgs

[Former Member]

hi,

<b>copy this entire code and execute..... u will get an idea..follow the same fo ur prgrm</b>

-

---

REPORT ZSBN_BLOCK_ALV .

TYPE-POOLS : SLIS.

TABLES: PA0001, PA0002.

DATA : FCAT TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

FCAT1 TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

ILAYOUT TYPE SLIS_LAYOUT_ALV,

XS_EVENT TYPE SLIS_ALV_EVENT,

GT_XEVENTS TYPE SLIS_T_EVENT,

GT_YEVENTS TYPE SLIS_T_EVENT,

IT_SORT TYPE SLIS_T_SORTINFO_ALV,

WA_SORT TYPE SLIS_SORTINFO_ALV.

DATA : BEGIN OF INT_PA0001 OCCURS 0.

INCLUDE TYPE PA0001.

DATA : END OF INT_PA0001.

DATA : BEGIN OF INT_PA0002 OCCURS 0.

INCLUDE TYPE PA0002.

DATA : END OF INT_PA0002.

&& DATA FROM PA0001

SELECT * FROM PA0001

UP TO 5 ROWS

INTO TABLE INT_PA0001.

&& DATA FROM PA0002

IF NOT INT_PA0001[] IS INITIAL.

SELECT * FROM PA0002 INTO TABLE INT_PA0002

FOR ALL ENTRIES IN INT_PA0001

WHERE

PERNR EQ INT_PA0001-PERNR.

ENDIF.

&& LAYOUT DEF

ILAYOUT-COLWIDTH_OPTIMIZE = 'X'.

ILAYOUT-ZEBRA = 'X'.

&& FCAT1

CLEAR FCAT.

FCAT-FIELDNAME = 'PERNR'.

FCAT-SELTEXT_M = 'Emp No'.

FCAT-TABNAME = 'INT_PA0001'.

APPEND FCAT.

CLEAR FCAT.

FCAT-FIELDNAME = 'BEGDA'.

FCAT-SELTEXT_M = 'St Date'.

FCAT-TABNAME = 'INT_PA0001'.

APPEND FCAT.

CLEAR FCAT.

FCAT-FIELDNAME = 'ENDDA'.

FCAT-SELTEXT_M = 'End Date'.

FCAT-TABNAME = 'INT_PA0001'.

APPEND FCAT.

CLEAR FCAT.

FCAT-FIELDNAME = 'BUKRS'.

FCAT-SELTEXT_M = 'Comp Code'.

FCAT-TABNAME = 'INT_PA0001'.

APPEND FCAT.

CLEAR FCAT.

FCAT-FIELDNAME = 'WERKS'.

FCAT-SELTEXT_M = 'Plant'.

FCAT-TABNAME = 'INT_PA0001'.

APPEND FCAT.

&& FCAT2

CLEAR FCAT1.

FCAT1-FIELDNAME = 'PERNR'.

FCAT1-SELTEXT_M = 'Emp No'.

FCAT-TABNAME = 'INT_PA0002'.

APPEND FCAT1.

CLEAR FCAT1.

FCAT1-FIELDNAME = 'NACHN'.

FCAT1-SELTEXT_M = 'Emp Name'.

FCAT-TABNAME = 'INT_PA0002'.

APPEND FCAT1.

CLEAR FCAT1.

FCAT1-FIELDNAME = 'INITS'.

FCAT1-SELTEXT_M = 'Initial'.

FCAT-TABNAME = 'INT_PA0002'.

APPEND FCAT1.

&& FOR EVENTS

CLEAR XS_EVENT.

XS_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.

XS_EVENT-FORM = 'XTOP_OF_PAGE'.

APPEND XS_EVENT TO GT_XEVENTS.

CLEAR XS_EVENT.

CLEAR XS_EVENT.

XS_EVENT-NAME = SLIS_EV_TOP_OF_PAGE.

XS_EVENT-FORM = 'YTOP_OF_PAGE'.

APPEND XS_EVENT TO GT_YEVENTS.

CLEAR XS_EVENT.

&& FOR SORT

CLEAR WA_SORT.

WA_SORT-FIELDNAME = 'PERNR'.

APPEND WA_SORT TO IT_SORT.

CLEAR WA_SORT.

&& BLOCK ALV -- INTIALIZATION

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'

EXPORTING

I_CALLBACK_PROGRAM = SY-CPROG.

&& APPENDING FIRST FCAT

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

IS_LAYOUT = ILAYOUT

IT_FIELDCAT = FCAT[]

I_TABNAME = 'INT_PA0001'

IT_EVENTS = GT_XEVENTS

IT_SORT = IT_SORT

TABLES

T_OUTTAB = INT_PA0001.

&& APPENDING SECOND FCAT

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'

EXPORTING

IS_LAYOUT = ILAYOUT

IT_FIELDCAT = FCAT1[]

I_TABNAME = 'INT_PA0002'

IT_EVENTS = GT_YEVENTS

IT_SORT = IT_SORT

TABLES

T_OUTTAB = INT_PA0002.

&& FUN MOD FOR DISPLAY

CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'.

&& FOR TOP OF PAGE ALV-1

FORM XTOP_OF_PAGE.

WRITE : 'ALV 1', 30 SY-DATUM.

ENDFORM.

&& FOR TOP OF PAGE ALV-2

FORM YTOP_OF_PAGE.

WRITE : 'ALV 2', 30 SY-DATUM.

ENDFORM.

-

---

With Rgds,

S.Barani

[Former Member]

Hi bharat kumar,

hv a look on following code,it wl help u

TABLES: LFA1,EKKO.

DATA:  BEGIN OF ITAB OCCURS 0,
       LIFNR LIKE LFA1-LIFNR,
       NAME1 LIKE LFA1-NAME1,
       ORT01 LIKE LFA1-ORT01,
       LAND1 LIKE LFA1-LAND1,
       REGIO LIKE LFA1-REGIO,
       END OF ITAB.

DATA:  BEGIN OF JTAB OCCURS 0,
       LIFNR LIKE EKKO-LIFNR,
       EBELN LIKE EKKO-EBELN,
       BUKRS LIKE EKKO-BUKRS,
       BSTYP LIKE EKKO-BSTYP,
       EKORG LIKE EKKO-EKORG,
       BSART LIKE EKKO-BSART,
       END OF JTAB.

SELECT * FROM LFA1 INTO CORRESPONDING FIELDS OF TABLE ITAB UP TO 5 ROWS.

SELECT * FROM EKKO INTO CORRESPONDING FIELDS OF TABLE JTAB UP TO 5 ROWS.

TYPE-POOLS: SLIS.

DATA:  LAYOUT TYPE SLIS_LAYOUT_ALV,
       HEADER TYPE SLIS_T_LISTHEADER WITH HEADER LINE,
       FLDCAT1 TYPE SLIS_T_FIELDCAT_ALV,
       FLDCAT2 TYPE SLIS_T_FIELDCAT_ALV,
       EVE1 TYPE SLIS_T_EVENT WITH HEADER LINE,
       EVE2 TYPE SLIS_T_EVENT WITH HEADER LINE.

LAYOUT-ZEBRA = 'X'.
LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
LAYOUT-WINDOW_TITLEBAR = 'BLOCKED ALV'.

EVE2-NAME = 'TOP_OF_PAGE'.
EVE2-FORM = 'TOP_OF_PAGE1'.
APPEND EVE2.

CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
   I_LIST_TYPE           = 0
 IMPORTING
   ET_EVENTS             = EVE1[]
* 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.

READ TABLE EVE1 WITH KEY NAME = 'TOP_OF_PAGE'.
EVE1-FORM = 'TOP_OF_PAGE'.
MODIFY EVE1 TRANSPORTING FORM WHERE NAME = 'TOP_OF_PAGE'.

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_FIELDCATALOG_MERGE'
 EXPORTING
   I_PROGRAM_NAME               = SY-REPID
   I_INTERNAL_TABNAME           = 'ITAB'
*   I_STRUCTURE_NAME             =
*   I_CLIENT_NEVER_DISPLAY       = 'X'
   I_INCLNAME                   = SY-REPID
*   I_BYPASSING_BUFFER           =
*   I_BUFFER_ACTIVE              =
  CHANGING
    CT_FIELDCAT                  = FLDCAT1
* EXCEPTIONS
*   INCONSISTENT_INTERFACE       = 1
*   PROGRAM_ERROR                = 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                        = LAYOUT
    IT_FIELDCAT                      = FLDCAT1
    I_TABNAME                        = 'ITAB'
    IT_EVENTS                        = EVE1[]
*   IT_SORT                          =
*   I_TEXT                           = ' '
  TABLES
    T_OUTTAB                         = ITAB
* 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_FIELDCATALOG_MERGE'
 EXPORTING
   I_PROGRAM_NAME               = SY-REPID
   I_INTERNAL_TABNAME           = 'JTAB'
*   I_STRUCTURE_NAME             =
*   I_CLIENT_NEVER_DISPLAY       = 'X'
   I_INCLNAME                   = SY-REPID
*   I_BYPASSING_BUFFER           =
*   I_BUFFER_ACTIVE              =
  CHANGING
    CT_FIELDCAT                  = FLDCAT2
* EXCEPTIONS
*   INCONSISTENT_INTERFACE       = 1
*   PROGRAM_ERROR                = 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                        = LAYOUT
    IT_FIELDCAT                      = FLDCAT2
    I_TABNAME                        = 'JTAB'
    IT_EVENTS                        = EVE2[]
*   IT_SORT                          =
*   I_TEXT                           = ' '
  TABLES
    T_OUTTAB                         = JTAB
* 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.

FORM TOP_OF_PAGE.
REFRESH HEADER.
HEADER-TYP = 'H'.
HEADER-INFO = 'VENDOR DETAILS'.
APPEND HEADER.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
  EXPORTING
    IT_LIST_COMMENTARY       = HEADER[]
*   I_LOGO                   =
*   I_END_OF_LIST_GRID       =
*   I_ALV_FORM               =
          .
ENDFORM.

FORM TOP_OF_PAGE1.
REFRESH HEADER.
HEADER-TYP = 'H'.
HEADER-INFO = 'PURCHASE DOCUMENTS DETAILS'.
APPEND HEADER.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
  EXPORTING
    IT_LIST_COMMENTARY       = HEADER[]
*   I_LOGO                   =
*   I_END_OF_LIST_GRID       =
*   I_ALV_FORM               =
          .
ENDFORM.

plz reward,if it is useful