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.