*&---------------------------------------------------------------------*
*& Report  ZFASDFA
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT  ZFASDFA.
DATA:con_diabox TYPE REF TO cl_gui_dialogbox_container.
DATA: l_alv TYPE REF TO cl_gui_alv_grid ,
      lt_sflight TYPE TABLE OF sflight .
DATA: ok_code LIKE sy-ucomm.parameters: p_zkp type char15.
initialization.
START-OF-SELECTION.
  set pf-status 'XG001'.
  write 'zkp is a good student'.AT USER-COMMAND.
  CASE sy-ucomm.
    WHEN 'SSSS'.
       CALL SCREEN 100..
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    ENDCASE.*----------------------------------------------------------------------*
*       CLASS lcl_event_handler DEFINITION
*----------------------------------------------------------------------*
CLASS lcl_event_handler DEFINITION.
  PUBLIC SECTION.
    CLASS-METHODS:
   on_close FOR EVENT close OF cl_gui_dialogbox_container IMPORTING
sender.
ENDCLASS.                    "lcl_event_handler DEFINITION
*----------------------------------------------------------------------*
*       CLASS lcl_event_handler IMPLEMENTATION
*----------------------------------------------------------------------*
CLASS lcl_event_handler IMPLEMENTATION.
  METHOD on_close.
    CALL METHOD sender->free.
    FREE: con_diabox, l_alv.
    LEAVE to screen 0.  ENDMETHOD.                    "on_close
ENDCLASS.                    "lcl_event_handler IMPLEMENTATION*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
SET PF-STATUS 'M200'.  SELECT * FROM sflight INTO TABLE lt_sflight.
  IF con_diabox IS INITIAL.
    CREATE OBJECT con_diabox
      EXPORTING
        width   = 600
        height  = 200
        top     = 70
        left    = 140
        caption = 'Title'
      EXCEPTIONS
        OTHERS  = 1.
    SET HANDLER lcl_event_handler=>on_close FOR con_diabox .    CREATE OBJECT l_alv
      EXPORTING
        i_parent = con_diabox.
  ENDIF.
  CALL METHOD l_alv->set_table_for_first_display
    EXPORTING
      i_structure_name = 'SFLIGHT'
    CHANGING
      it_outtab        = lt_sflight.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  CASE sy-ucomm.
    WHEN 'BACK'.
      LEAVE to screen 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPU