SELECTION-SCREEN BEGIN OF BLOCK block1 WITH FRAME TITLE text-001.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 8(15) text-002.
SELECTION-SCREEN POSITION 5.
PARAMETERS: rb1 TYPE c RADIOBUTTON GROUP grp DEFAULT 'X' USER-COMMAND uc01.
SELECTION-SCREEN COMMENT 53(15) text-003.
SELECTION-SCREEN POSITION 50.
PARAMETERS:rb2 TYPE c RADIOBUTTON GROUP grp.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF BLOCK block2 WITH FRAME TITLE text-004.
PARAMETERS: ch1 AS CHECKBOX MODIF ID ch USER-COMMAND uc02,
ch2 AS CHECKBOX MODIF ID ch,
ch3 AS CHECKBOX MODIF ID ch,
ch4 AS CHECKBOX MODIF ID ch.
PARAMETERS:
rb3 TYPE c RADIOBUTTON GROUP grp2 MODIF ID rb USER-COMMAND uc03 DEFAULT 'X',
rb4 TYPE c RADIOBUTTON GROUP grp2 MODIF ID rb ,
rb5 TYPE c RADIOBUTTON GROUP grp2 MODIF ID rb,
rb6 TYPE c RADIOBUTTON GROUP grp2 MODIF ID rb.
SELECTION-SCREEN END OF BLOCK block2.
SELECTION-SCREEN END OF BLOCK block1.
SELECTION-SCREEN BEGIN OF BLOCK block3 WITH FRAME TITLE text-005.
PARAMETERS: p_gtffty TYPE c AS CHECKBOX DEFAULT 'X' MODIF ID c11,
p_ltffty TYPE c AS CHECKBOX MODIF ID c11.
SELECTION-SCREEN END OF BLOCK block3.
clear rb3.
clear rb4.
clear rb5.
clear rb6.
AT SELECTION-SCREEN OUTPUT.
IF rb1 = 'X' .
LOOP AT SCREEN .
IF screen-group1 = 'RB'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
IF ch1 <> 'X'.
IF screen-group1 = 'C11'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
ELSEIF rb2 = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'CH'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
IF rb3 = 'X'.
IF screen-group1 = 'C11'.
screen-active = 1.
MODIFY SCREEN..
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
IF rb3 = 'X'OR ch1 = 'X'.
LOOP AT SCREEN.
IF screen-group1 = 'C11'.
screen-active = 1.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ELSE.
LOOP AT SCREEN.
IF
screen-group1 = 'C11'.
screen-active = 0.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
"Calling transaction code from radio button
AT SELECTION-SCREEN .
IF rb3 = 'X'.
CALL TRANSACTION 'ZVAR_GRCALC' AND SKIP FIRST SCREEN .
ENDIF.