*&---------------------------------------------------------------------*
*& Report YOM_TABSTRIP_TASK1
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT YOM_TABSTRIP_TASK1.
CONTROLS :TAB TYPE TABSTRIP.
CALL SCREEN 100.
DATA : A TYPE I,
B TYPE I,
C TYPE I,
D TYPE I,
RES TYPE I.
DATA : RAD(10) TYPE C." fct code for radio button
*&---------------------------------------------------------------------*
*& Module INP_100 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE INP_100 INPUT.
C = A.
D = B.
IF SY-UCOMM = 'E'.
LEAVE PROGRAM.
ENDIF.
ENDMODULE. " INP_100 INPUT
*&---------------------------------------------------------------------*
*& Module PBO_103 OUTPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE PBO_103 OUTPUT.
ENDMODULE. " PBO_103 OUTPUT
*&---------------------------------------------------------------------*
*& Module INP_102 INPUT
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
MODULE INP_102 INPUT.
IF SY-UCOMM = 'rad1'.
RAD = 'ADD'.
ELSEIF SY-UCOMM = 'RAD2'.
RAD = 'SUB'.
ELSEIF SY-UCOMM = 'RAD3'.
RAD = 'MUL'.
ELSEIF SY-UCOMM = 'RAD4'.
RAD = 'DIV'.
ENDIF.
ENDMODULE. " INP_102 INPUT