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