REPORT  z15_05.

DATA : con1_ref    TYPE REF TO    cl_gui_custom_container.
DATA : g_grid      TYPE REF TO    cl_gui_alv_grid.
DATA : gs_variant  TYPE disvariant.
DATA : gt_sflight  TYPE TABLE OF  sflight.

DATA : OK_CODE  TYPE SY-UCOMM.

PARAMETERS: p_vari LIKE disvariant-variant.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
   gs_variant-report = sy-repid.
   CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
      EXPORTING
       is_variant = gs_variant
       i_save = 'A'
      IMPORTING
       es_variant = gs_variant
      EXCEPTIONS
       not_found = 1
       program_error = 2
       OTHERS = 3.

  IF sy-subrc EQ 0.
     p_vari = gs_variant-variant.
  ENDIF.

START-OF-SELECTION.

  SELECT * FROM sflight
       INTO TABLE gt_sflight  UP TO 25 ROWS.

  CALL SCREEN 100.

*&---------------------------------------------------------------------*
*&      Module  INIT_CON  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE init_con OUTPUT.
  IF con1_ref IS INITIAL.
     CREATE OBJECT con1_ref
      EXPORTING
        container_name = 'CON1'.

    CREATE OBJECT g_grid
        EXPORTING
         i_parent = con1_ref.

  ENDIF.

  gs_variant-report = sy-repid.
  gs_variant-username = sy-uname.

  CALL METHOD g_grid->set_table_for_first_display
       EXPORTING
        i_structure_name = 'SFLIGHT'
                        is_variant       = gs_variant
                        i_save = 'A'
       CHANGING
        it_outtab = gt_sflight.

ENDMODULE.                 " INIT_CON  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module USER_COMMAND_0100 input.
IF OK_CODE = 'BACK'.
   LEAVE PROGRAM.
 ENDIF.
endmodule.                 " USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module STATUS_0100 output.
  SET PF-STATUS '100_STATUS'.
*  SET TITLEBAR 'xxx'.

endmodule.                 " STATUS_0100  OUTPUT