弹出小窗口的例子

*&---------------------------------------------------------------------*
*& 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