REPORT Z_ALV_ERIC.
data: ok_code type sy-ucomm,
save_ok like ok_code.
data wa_spfli type table of spfli.
select * into table wa_spfli from spfli.
data: wa_container type scrfname value 'ALV',
alv_grid type ref to cl_gui_alv_grid,
wa_custom_container TYPE ref to cl_gui_custom_container.
call SCREEN 1001.
*&---------------------------------------------------------------------*
*& Module STATUS_1001 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE STATUS_1001 OUTPUT.
* SET PF-STATUS 'xxxxxxxx'.
* SET TITLEBAR 'xxx'.
if wa_custom_container is initial.
create object wa_custom_container
EXPORTING container_name = wa_container.
create object alv_grid
EXPORTING i_parent = wa_custom_container.
call method alv_grid->set_table_for_first_display
EXPORTING i_structure_name = 'SPFLI'
CHANGING it_outtab = wa_spfli.
endif.
ENDMODULE. " STATUS_1001 OUTPUT
*&---------------------------------------------------------------------*
*& Module USER_COMMAND_1001 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_1001 INPUT.
save_ok = ok_code.
clear ok_code.
case save_ok.
when 'XT'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " USER_COMMAND_1001 INPUT