REPORT  z18_003                                                     .

DATA : con1_ref TYPE REF TO cl_gui_custom_container.

DATA : grid1  TYPE REF TO cl_gui_alv_grid,
       gs_variant     LIKE disvariant,
       gt_sflight   TYPE TABLE OF sflight.


START-OF-SELECTION.
  gs_variant-report = sy-repid.
  gs_variant-username = sy-uname.
  SELECT * FROM sflight INTO TABLE gt_sflight.

  CALL SCREEN 100.


*---------------------------------------------------------------------*
*  MODULE init_con OUTPUT
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
MODULE init_con OUTPUT.

  IF con1_ref IS INITIAL.
    CREATE OBJECT con1_ref
    EXPORTING container_name = 'CON1'.


    CREATE OBJECT grid1
           EXPORTING
                i_parent = con1_ref.


    CALL METHOD grid1->set_table_for_first_display
      EXPORTING
        i_structure_name = 'SFLIGHT'
        is_variant       = gs_variant  " variant display
        i_save = ' '
      CHANGING
        it_outtab        = gt_sflight.



  ENDIF.
ENDMODULE.                 " init_con  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'G100'.
*  SET TITLEBAR 'xxx'.

ENDMODULE.                 " STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
module USER_COMMAND_0100 input.

CASE SY-UCOMM.
WHEN 'BACK' OR 'EXIT' OR 'CANC'.
   LEAVE TO SCREEN 0.
ENDCASE.

endmodule.                 " USER_COMMAND_0100  INPUT