REPORT  Z18_002                                                     .

DATA : con1_ref TYPE REF TO cl_gui_custom_container.

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

  PARAMETERS:     P_VARI   LIKE DISVARIANT-VARIANT.


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


START-OF-SELECTION.

  SELECT * FROM sflight INTO TABLE gt_sflight.

  CALL SCREEN 100.


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'
             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.

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

endmodule.                 " USER_COMMAND_0100  INPUT