INCLUDE zoops_structure_top. " internal table and objects declartion
START-OF-SELECTION.
**************************************************************************************
*CALL SCREEN 100 AND CLICK ON LAYOUT TAB AND CREATE CUSTOM CONTAINER AND ASSIGN A NAME
**************************************************************************************
CALL SCREEN 100.
*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
* SET PF-STATUS 'BACK_BUTTON'.
* SET TITLEBAR 'xxx'.
PERFORM create_objects. "Creation of objects grid and display
PERFORM get_data. "fetching the data from likp
PERFORM display_data. " displaying the data
ENDMODULE. " STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*& Form CREATE_OBJECTS
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM create_objects
CREATE OBJECT grid
EXPORTING
container_name = 'GRID'.
CREATE OBJECT display
EXPORTING
i_parent = grid.
ENDFORM. " CREATE_OBJECTS
*&---------------------------------------------------------------------*
*& Form GET_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM get_data .
SELECT * FROM likp
INTO TABLE itab UP TO 300 ROWS.
ENDFORM. " GET_DATA
*&---------------------------------------------------------------------*
*& Form DISPLAY_DATA
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
FORM display_data .
CALL METHOD display->set_table_for_first_display
EXPORTING
i_structure_name = 'LIKP'
CHANGING
it_outtab = itab.
ENDFORM. " DISPLAY_DATA
OUTPUT
