ALV Block List using OOPs
ALV Block List using OOPs
The following program can show the list of Purchase Order Header and Item separately by using ALV Block List Display function module. Here the Programming concept has been done by OOPs.
*&---------------------------------------------------------------------*
*& Report ZSR_TEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zsr_test.
TYPE-POOLS: slis.
TABLES: ekko, ekpo.
DATA: v_repid TYPE sy-repid,
v_user TYPE sy-uname,
v_date TYPE char12,
wa_top1 TYPE slis_listheader,
it_top1 TYPE slis_t_listheader,
wa_top2 TYPE slis_listheader,
it_top2 TYPE slis_t_listheader.
INITIALIZATION.
v_repid = sy-repid.
v_user = sy-uname.
v_date = sy-datum.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS s_ebeln FOR ekko-ebeln OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
*----------------------------------------------------------------------*
* CLASS cls1 DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cls1 DEFINITION.
PUBLIC SECTION.
TYPES: BEGIN OF ty_ekko,
ebeln TYPE ekko-ebeln,
bukrs TYPE ekko-bukrs,
lifnr TYPE ekko-lifnr,
sel TYPE char1,
END OF ty_ekko,
BEGIN OF ty_ekpo,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
matnr TYPE ekpo-matnr,
werks TYPE ekpo-werks,
lgort TYPE ekpo-lgort,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
sel TYPE char1,
END OF ty_ekpo.
DATA: wa_ekko TYPE ty_ekko,
it_ekko TYPE STANDARD TABLE OF ty_ekko,
wa_ekpo TYPE ty_ekpo,
it_ekpo TYPE STANDARD TABLE OF ty_ekpo,
wa_fcat1 TYPE slis_fieldcat_alv,
it_fcat1 TYPE slis_t_fieldcat_alv,
wa_fcat2 TYPE slis_fieldcat_alv,
it_fcat2 TYPE slis_t_fieldcat_alv,
wa_layout TYPE slis_layout_alv,
it_print TYPE slis_print_alv,
wa_event1 TYPE slis_alv_event,
wa_event2 TYPE slis_alv_event,
it_event1 TYPE slis_t_event,
it_event2 TYPE slis_t_event.
METHODS: m_ekko, m_ekpo, m_fcat, m_layout,
m_event1, m_event2, m_disp.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS. "cls1 DEFINITION
*----------------------------------------------------------------------*
* CLASS cls1 IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cls1 IMPLEMENTATION.
METHOD m_ekko.
SELECT ebeln bukrs lifnr
FROM ekko INTO TABLE it_ekko
WHERE ebeln IN s_ebeln.
IF sy-subrc = 0.
SORT it_ekko BY ebeln.
ELSE.
MESSAGE 'Purchase Order doesn''t exist' TYPE 'I'.
LEAVE LIST-PROCESSING.
ENDIF.
ENDMETHOD. "m_ekko
METHOD m_ekpo.
IF it_ekko IS NOT INITIAL.
SELECT ebeln ebelp matnr werks lgort menge meins
FROM ekpo INTO TABLE it_ekpo
FOR ALL ENTRIES IN it_ekko
WHERE ebeln = it_ekko-ebeln.
ENDIF.
ENDMETHOD. "m_ekpo
METHOD m_fcat.
CLEAR wa_fcat1.
REFRESH it_fcat1.
DATA: lv_col TYPE i VALUE 1.
wa_fcat1-col_pos = lv_col.
wa_fcat1-fieldname = 'EBELN'.
wa_fcat1-tabname = 'IT_EKKO'.
wa_fcat1-seltext_l = 'Purchase Order'.
APPEND wa_fcat1 TO it_fcat1.
CLEAR wa_fcat1.
lv_col = 1 + lv_col.
wa_fcat1-col_pos = lv_col.
wa_fcat1-fieldname = 'BUKRS'.
wa_fcat1-tabname = 'IT_EKKO'.
wa_fcat1-seltext_l = 'Company Code'.
APPEND wa_fcat1 TO it_fcat1.
CLEAR wa_fcat1.
lv_col = 1 + lv_col.
wa_fcat1-col_pos = lv_col.
wa_fcat1-fieldname = 'LIFNR'.
wa_fcat1-tabname = 'IT_EKKO'.
wa_fcat1-seltext_l = 'Vendor'.
APPEND wa_fcat1 TO it_fcat1.
CLEAR wa_fcat1.
CLEAR wa_fcat2.
REFRESH it_fcat2.
lv_col = 1.
wa_fcat2-col_pos = lv_col.
wa_fcat2-fieldname = 'EBELN'.
wa_fcat2-tabname = 'IT_EKPO'.
wa_fcat2-seltext_l = 'Purchase Order'.
APPEND wa_fcat2 TO it_fcat2.
CLEAR wa_fcat2.
lv_col = 1 + lv_col.
wa_fcat2-col_pos = lv_col.
wa_fcat2-fieldname = 'EBELP'.
wa_fcat2-tabname = 'IT_EKPO'.
wa_fcat2-seltext_l = 'Item'.
APPEND wa_fcat2 TO it_fcat2.
CLEAR wa_fcat2.
lv_col = 1 + lv_col.
wa_fcat2-col_pos = lv_col.
wa_fcat2-fieldname = 'MATNR'.
wa_fcat2-tabname = 'IT_EKPO'.
wa_fcat2-seltext_l = 'Material'.
APPEND wa_fcat2 TO it_fcat2.
CLEAR wa_fcat2.
lv_col = 1 + lv_col.
wa_fcat2-col_pos = lv_col.
wa_fcat2-fieldname = 'WERKS'.
wa_fcat2-tabname = 'IT_EKPO'.
wa_fcat2-seltext_l = 'Plant'.
APPEND wa_fcat2 TO it_fcat2.
CLEAR wa_fcat2.
lv_col = 1 + lv_col.
wa_fcat2-col_pos = lv_col.
wa_fcat2-fieldname = 'LGORT'.
wa_fcat2-tabname = 'IT_EKPO'.
wa_fcat2-seltext_l = 'Storage Location'.
APPEND wa_fcat2 TO it_fcat2.
CLEAR wa_fcat2.
lv_col = 1 + lv_col.
wa_fcat2-col_pos = lv_col.
wa_fcat2-fieldname = 'MENGE'.
wa_fcat2-tabname = 'IT_EKPO'.
wa_fcat2-seltext_l = 'Quantity'.
APPEND wa_fcat2 TO it_fcat2.
CLEAR wa_fcat2.
lv_col = 1 + lv_col.
wa_fcat2-col_pos = lv_col.
wa_fcat2-fieldname = 'MEINS'.
wa_fcat2-tabname = 'IT_EKPO'.
wa_fcat2-seltext_l = 'Unit'.
APPEND wa_fcat2 TO it_fcat2.
CLEAR wa_fcat2.
ENDMETHOD. "m_fcat
METHOD m_layout.
wa_layout-zebra = 'X'.
wa_layout-colwidth_optimize = 'X'.
wa_layout-box_fieldname = 'SEL'.
ENDMETHOD. "m_layout
METHOD m_event1.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
* EXPORTING
* I_LIST_TYPE = 0
IMPORTING
et_events = it_event1
EXCEPTIONS
list_type_wrong = 1
OTHERS = 2.
IF sy-subrc = 0.
CLEAR wa_event1.
READ TABLE it_event1 INTO wa_event1
WITH KEY name = 'TOP_OF_PAGE'.
IF sy-subrc = 0.
wa_event1-form = 'TOP1'.
MODIFY it_event1 FROM wa_event1
INDEX sy-tabix TRANSPORTING form.
ENDIF.
ENDIF.
ENDMETHOD. "m_event1
METHOD m_event2.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
* EXPORTING
* I_LIST_TYPE = 0
IMPORTING
et_events = it_event2
EXCEPTIONS
list_type_wrong = 1
OTHERS = 2.
IF sy-subrc = 0.
CLEAR wa_event2.
READ TABLE it_event2 INTO wa_event2
WITH KEY name = 'TOP_OF_PAGE'.
IF sy-subrc = 0.
wa_event2-form = 'TOP2'.
MODIFY it_event2 FROM wa_event2
INDEX sy-tabix TRANSPORTING form.
ENDIF.
ENDIF.
ENDMETHOD. "m_event2
METHOD m_disp.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
i_callback_program = v_repid
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* IT_EXCLUDING =
.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = wa_layout
it_fieldcat = it_fcat1
i_tabname = 'IT_EKKO'
it_events = it_event1
* IT_SORT =
* I_TEXT = ' '
TABLES
t_outtab = it_ekko
EXCEPTIONS
program_error = 1
maximum_of_appends_reached = 2
OTHERS = 3.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = wa_layout
it_fieldcat = it_fcat2
i_tabname = 'IT_EKPO'
it_events = it_event2
* IT_SORT =
* I_TEXT = ' '
TABLES
t_outtab = it_ekpo
EXCEPTIONS
program_error = 1
maximum_of_appends_reached = 2
OTHERS = 3.
it_print-reserve_lines = 2.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
is_print = it_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
.
ENDMETHOD. "m_disp
ENDCLASS. "cls1 IMPLEMENTATION
START-OF-SELECTION.
DATA: obj1 TYPE REF TO cls1.
CREATE OBJECT obj1.
CALL METHOD: obj1->m_ekko,
obj1->m_ekpo,
obj1->m_fcat,
obj1->m_layout,
obj1->m_event1,
obj1->m_event2,
obj1->m_disp.
TOP-OF-PAGE.
PERFORM top1.
PERFORM top2.
*&---------------------------------------------------------------------*
*& Form TOP1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM top1 .
CLEAR wa_top1.
REFRESH it_top1.
wa_top1-typ = 'H'.
wa_top1-info = 'PURCHASE ORDER HEADER'.
APPEND wa_top1 TO it_top1.
CLEAR wa_top1.
wa_top1-typ = 'S'.
wa_top1-key = 'Date: '.
CONCATENATE v_date+6(2) ':'
v_date+4(2) ':'
v_date(4)
wa_top1-info INTO wa_top1-info.
APPEND wa_top1 TO it_top1.
CLEAR wa_top1.
wa_top1-typ = 'S'.
wa_top1-key = 'User: '.
CONCATENATE v_user wa_top1-info INTO wa_top1-info.
APPEND wa_top1 TO it_top1.
CLEAR wa_top1.
wa_top1-typ = 'S'.
wa_top1-key = 'Report: '.
CONCATENATE v_repid wa_top1-info INTO wa_top1-info.
APPEND wa_top1 TO it_top1.
CLEAR wa_top1.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = it_top1
* I_LOGO =
* I_END_OF_LIST_GRID =
* I_ALV_FORM =
.
ENDFORM. " TOP1
*&---------------------------------------------------------------------*
*& Form TOP2
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM top2 .
CLEAR wa_top2.
REFRESH it_top2.
wa_top2-typ = 'H'.
wa_top2-info = 'PURCHASE ORDER ITEM DOCUMENT'.
APPEND wa_top2 TO it_top2.
CLEAR wa_top2.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = it_top2
* I_LOGO =
* I_END_OF_LIST_GRID =
* I_ALV_FORM =
.
ENDFORM. " TOP2
The Selection Screen is below where we are selecting PO 1 to 4.
The output will be like below:
*&---------------------------------------------------------------------*
*& Report ZSR_TEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT zsr_test.
TYPE-POOLS: slis.
TABLES: ekko, ekpo.
DATA: v_repid TYPE sy-repid,
v_user TYPE sy-uname,
v_date TYPE char12,
wa_top1 TYPE slis_listheader,
it_top1 TYPE slis_t_listheader,
wa_top2 TYPE slis_listheader,
it_top2 TYPE slis_t_listheader.
INITIALIZATION.
v_repid = sy-repid.
v_user = sy-uname.
v_date = sy-datum.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS s_ebeln FOR ekko-ebeln OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
*----------------------------------------------------------------------*
* CLASS cls1 DEFINITION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cls1 DEFINITION.
PUBLIC SECTION.
TYPES: BEGIN OF ty_ekko,
ebeln TYPE ekko-ebeln,
bukrs TYPE ekko-bukrs,
lifnr TYPE ekko-lifnr,
sel TYPE char1,
END OF ty_ekko,
BEGIN OF ty_ekpo,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
matnr TYPE ekpo-matnr,
werks TYPE ekpo-werks,
lgort TYPE ekpo-lgort,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
sel TYPE char1,
END OF ty_ekpo.
DATA: wa_ekko TYPE ty_ekko,
it_ekko TYPE STANDARD TABLE OF ty_ekko,
wa_ekpo TYPE ty_ekpo,
it_ekpo TYPE STANDARD TABLE OF ty_ekpo,
wa_fcat1 TYPE slis_fieldcat_alv,
it_fcat1 TYPE slis_t_fieldcat_alv,
wa_fcat2 TYPE slis_fieldcat_alv,
it_fcat2 TYPE slis_t_fieldcat_alv,
wa_layout TYPE slis_layout_alv,
it_print TYPE slis_print_alv,
wa_event1 TYPE slis_alv_event,
wa_event2 TYPE slis_alv_event,
it_event1 TYPE slis_t_event,
it_event2 TYPE slis_t_event.
METHODS: m_ekko, m_ekpo, m_fcat, m_layout,
m_event1, m_event2, m_disp.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS. "cls1 DEFINITION
*----------------------------------------------------------------------*
* CLASS cls1 IMPLEMENTATION
*----------------------------------------------------------------------*
*
*----------------------------------------------------------------------*
CLASS cls1 IMPLEMENTATION.
METHOD m_ekko.
SELECT ebeln bukrs lifnr
FROM ekko INTO TABLE it_ekko
WHERE ebeln IN s_ebeln.
IF sy-subrc = 0.
SORT it_ekko BY ebeln.
ELSE.
MESSAGE 'Purchase Order doesn''t exist' TYPE 'I'.
LEAVE LIST-PROCESSING.
ENDIF.
ENDMETHOD. "m_ekko
METHOD m_ekpo.
IF it_ekko IS NOT INITIAL.
SELECT ebeln ebelp matnr werks lgort menge meins
FROM ekpo INTO TABLE it_ekpo
FOR ALL ENTRIES IN it_ekko
WHERE ebeln = it_ekko-ebeln.
ENDIF.
ENDMETHOD. "m_ekpo
METHOD m_fcat.
CLEAR wa_fcat1.
REFRESH it_fcat1.
DATA: lv_col TYPE i VALUE 1.
wa_fcat1-col_pos = lv_col.
wa_fcat1-fieldname = 'EBELN'.
wa_fcat1-tabname = 'IT_EKKO'.
wa_fcat1-seltext_l = 'Purchase Order'.
APPEND wa_fcat1 TO it_fcat1.
CLEAR wa_fcat1.
lv_col = 1 + lv_col.
wa_fcat1-col_pos = lv_col.
wa_fcat1-fieldname = 'BUKRS'.
wa_fcat1-tabname = 'IT_EKKO'.
wa_fcat1-seltext_l = 'Company Code'.
APPEND wa_fcat1 TO it_fcat1.
CLEAR wa_fcat1.
lv_col = 1 + lv_col.
wa_fcat1-col_pos = lv_col.
wa_fcat1-fieldname = 'LIFNR'.
wa_fcat1-tabname = 'IT_EKKO'.
wa_fcat1-seltext_l = 'Vendor'.
APPEND wa_fcat1 TO it_fcat1.
CLEAR wa_fcat1.
CLEAR wa_fcat2.
REFRESH it_fcat2.
lv_col = 1.
wa_fcat2-col_pos = lv_col.
wa_fcat2-fieldname = 'EBELN'.
wa_fcat2-tabname = 'IT_EKPO'.
wa_fcat2-seltext_l = 'Purchase Order'.
APPEND wa_fcat2 TO it_fcat2.
CLEAR wa_fcat2.
lv_col = 1 + lv_col.
wa_fcat2-col_pos = lv_col.
wa_fcat2-fieldname = 'EBELP'.
wa_fcat2-tabname = 'IT_EKPO'.
wa_fcat2-seltext_l = 'Item'.
APPEND wa_fcat2 TO it_fcat2.
CLEAR wa_fcat2.
lv_col = 1 + lv_col.
wa_fcat2-col_pos = lv_col.
wa_fcat2-fieldname = 'MATNR'.
wa_fcat2-tabname = 'IT_EKPO'.
wa_fcat2-seltext_l = 'Material'.
APPEND wa_fcat2 TO it_fcat2.
CLEAR wa_fcat2.
lv_col = 1 + lv_col.
wa_fcat2-col_pos = lv_col.
wa_fcat2-fieldname = 'WERKS'.
wa_fcat2-tabname = 'IT_EKPO'.
wa_fcat2-seltext_l = 'Plant'.
APPEND wa_fcat2 TO it_fcat2.
CLEAR wa_fcat2.
lv_col = 1 + lv_col.
wa_fcat2-col_pos = lv_col.
wa_fcat2-fieldname = 'LGORT'.
wa_fcat2-tabname = 'IT_EKPO'.
wa_fcat2-seltext_l = 'Storage Location'.
APPEND wa_fcat2 TO it_fcat2.
CLEAR wa_fcat2.
lv_col = 1 + lv_col.
wa_fcat2-col_pos = lv_col.
wa_fcat2-fieldname = 'MENGE'.
wa_fcat2-tabname = 'IT_EKPO'.
wa_fcat2-seltext_l = 'Quantity'.
APPEND wa_fcat2 TO it_fcat2.
CLEAR wa_fcat2.
lv_col = 1 + lv_col.
wa_fcat2-col_pos = lv_col.
wa_fcat2-fieldname = 'MEINS'.
wa_fcat2-tabname = 'IT_EKPO'.
wa_fcat2-seltext_l = 'Unit'.
APPEND wa_fcat2 TO it_fcat2.
CLEAR wa_fcat2.
ENDMETHOD. "m_fcat
METHOD m_layout.
wa_layout-zebra = 'X'.
wa_layout-colwidth_optimize = 'X'.
wa_layout-box_fieldname = 'SEL'.
ENDMETHOD. "m_layout
METHOD m_event1.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
* EXPORTING
* I_LIST_TYPE = 0
IMPORTING
et_events = it_event1
EXCEPTIONS
list_type_wrong = 1
OTHERS = 2.
IF sy-subrc = 0.
CLEAR wa_event1.
READ TABLE it_event1 INTO wa_event1
WITH KEY name = 'TOP_OF_PAGE'.
IF sy-subrc = 0.
wa_event1-form = 'TOP1'.
MODIFY it_event1 FROM wa_event1
INDEX sy-tabix TRANSPORTING form.
ENDIF.
ENDIF.
ENDMETHOD. "m_event1
METHOD m_event2.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
* EXPORTING
* I_LIST_TYPE = 0
IMPORTING
et_events = it_event2
EXCEPTIONS
list_type_wrong = 1
OTHERS = 2.
IF sy-subrc = 0.
CLEAR wa_event2.
READ TABLE it_event2 INTO wa_event2
WITH KEY name = 'TOP_OF_PAGE'.
IF sy-subrc = 0.
wa_event2-form = 'TOP2'.
MODIFY it_event2 FROM wa_event2
INDEX sy-tabix TRANSPORTING form.
ENDIF.
ENDIF.
ENDMETHOD. "m_event2
METHOD m_disp.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
EXPORTING
i_callback_program = v_repid
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = ' '
* IT_EXCLUDING =
.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = wa_layout
it_fieldcat = it_fcat1
i_tabname = 'IT_EKKO'
it_events = it_event1
* IT_SORT =
* I_TEXT = ' '
TABLES
t_outtab = it_ekko
EXCEPTIONS
program_error = 1
maximum_of_appends_reached = 2
OTHERS = 3.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
EXPORTING
is_layout = wa_layout
it_fieldcat = it_fcat2
i_tabname = 'IT_EKPO'
it_events = it_event2
* IT_SORT =
* I_TEXT = ' '
TABLES
t_outtab = it_ekpo
EXCEPTIONS
program_error = 1
maximum_of_appends_reached = 2
OTHERS = 3.
it_print-reserve_lines = 2.
CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
is_print = it_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
.
ENDMETHOD. "m_disp
ENDCLASS. "cls1 IMPLEMENTATION
START-OF-SELECTION.
DATA: obj1 TYPE REF TO cls1.
CREATE OBJECT obj1.
CALL METHOD: obj1->m_ekko,
obj1->m_ekpo,
obj1->m_fcat,
obj1->m_layout,
obj1->m_event1,
obj1->m_event2,
obj1->m_disp.
TOP-OF-PAGE.
PERFORM top1.
PERFORM top2.
*&---------------------------------------------------------------------*
*& Form TOP1
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM top1 .
CLEAR wa_top1.
REFRESH it_top1.
wa_top1-typ = 'H'.
wa_top1-info = 'PURCHASE ORDER HEADER'.
APPEND wa_top1 TO it_top1.
CLEAR wa_top1.
wa_top1-typ = 'S'.
wa_top1-key = 'Date: '.
CONCATENATE v_date+6(2) ':'
v_date+4(2) ':'
v_date(4)
wa_top1-info INTO wa_top1-info.
APPEND wa_top1 TO it_top1.
CLEAR wa_top1.
wa_top1-typ = 'S'.
wa_top1-key = 'User: '.
CONCATENATE v_user wa_top1-info INTO wa_top1-info.
APPEND wa_top1 TO it_top1.
CLEAR wa_top1.
wa_top1-typ = 'S'.
wa_top1-key = 'Report: '.
CONCATENATE v_repid wa_top1-info INTO wa_top1-info.
APPEND wa_top1 TO it_top1.
CLEAR wa_top1.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = it_top1
* I_LOGO =
* I_END_OF_LIST_GRID =
* I_ALV_FORM =
.
ENDFORM. " TOP1
*&---------------------------------------------------------------------*
*& Form TOP2
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM top2 .
CLEAR wa_top2.
REFRESH it_top2.
wa_top2-typ = 'H'.
wa_top2-info = 'PURCHASE ORDER ITEM DOCUMENT'.
APPEND wa_top2 TO it_top2.
CLEAR wa_top2.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = it_top2
* I_LOGO =
* I_END_OF_LIST_GRID =
* I_ALV_FORM =
.
ENDFORM. " TOP2
The Selection Screen is below where we are selecting PO 1 to 4.
The output will be like below:
Post a Comment