子窗体

SELECTION-SCREEN BEGIN OF SCREEN 800 AS SUBSCREEN.
PARAMETERS: A1(10) TYPE C,
            A2(10) TYPE C,
            A3(10) TYPE C.
SELECTION-SCREEN END OF SCREEN 800.

SELECTION-SCREEN BEGIN OF SCREEN 900 AS SUBSCREEN.
PARAMETERS: B1(10) TYPE C,
            B2(10) TYPE C,
            B3(10) TYPE C.
SELECTION-SCREEN END OF SCREEN 900.

DATA: OK_CODE TYPE SY-UCOMM,
      SAVE_OK TYPE SY-UCOMM.

DATA:NUM1(4) TYPE N VALUE '800'.

START-OF-SELECTION.
CALL SCREEN 120.
MODULE USER_COMMAND_0100 INPUT .
SAVE_OK = OK_CODE.
CASE SAVE_OK .
WHEN 'B1'.
NUM1 = 800.
WHEN 'B2'.
NUM1 = 900.
WHEN 'E3'.
LEAVE PROGRAM.
ENDCASE.
ENDMODULE.