SELECTION SCREEN

REPORT YMS_TEST_SELECTION_SCREEN1 .

DATA: RES TYPE I, TEMP TYPE I.

SELECTION-SCREEN: BEGIN OF SCREEN 500.
SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-002.
PARAMETERS: A TYPE I.
PARAMETERS: B TYPE I.
PARAMETERS: ADD RADIOBUTTON GROUP GR1 DEFAULT 'X'.
PARAMETERS: SUB RADIOBUTTON GROUP GR1.
SELECTION-SCREEN: END OF BLOCK B1.
SELECTION-SCREEN: END OF SCREEN 500.


CALL SCREEN 500.
AT SELECTION-SCREEN.
IF
ADD = 'X'.
TEMP = 1.
ELSEIF
SUB = 'X'.
TEMP = 2.
ENDIF.

START-OF-SELECTION.
CASE TEMP.
WHEN 1.
RES = A + B.
WRITE: RES.
WHEN 2.
RES = A - B.
WRITE: RES.
ENDCASE.