PROCESS BEFORE OUTPUT. MODULE status_0100. MODULE create_alv. * PROCESS AFTER INPUT. MODULE user_command_0100. *&---------------------------------------------------------------------* *& Report ZPURE_ALV_SIMPLE *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT zpure_alv_simple. DATA: r_container TYPE REF TO cl_gui_custom_container, r_grid TYPE REF TO cl_gui_alv_grid. DATA: it_sflight TYPE TABLE OF sflight. START-OF-SELECTION. SELECT * FROM sflight INTO TABLE it_sflight UP TO 100 ROWS. CALL SCREEN 0100. INCLUDE zpure_alv_simple_o01. INCLUDE zpure_alv_simple_i01. *----------------------------------------------------------------------* ***INCLUDE ZPURE_ALV_SIMPLE_O01 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Module STATUS_0100 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE status_0100 OUTPUT. SET PF-STATUS 'STATUS_0100'. * SET TITLEBAR 'xxx'. ENDMODULE. " STATUS_0100 OUTPUT *&---------------------------------------------------------------------* *& Module create_alv OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE create_alv OUTPUT. CREATE OBJECT r_container EXPORTING container_name = 'CONTAINER1'. CREATE OBJECT r_grid EXPORTING i_parent = r_container. CALL METHOD r_grid->set_table_for_first_display EXPORTING i_structure_name = 'SFLIGHT' CHANGING it_outtab = it_sflight. ENDMODULE. " create_alv OUTPUT *----------------------------------------------------------------------* ***INCLUDE ZPURE_ALV_SIMPLE_I01 . *----------------------------------------------------------------------* *&---------------------------------------------------------------------* *& Module USER_COMMAND_0100 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE user_command_0100 INPUT. IF sy-ucomm = 'BACK'. LEAVE TO SCREEN 0. ENDIF. ENDMODULE. " USER_COMMAND_0100 INPUT