Dynamic Selection screen based on the radio button

*&---------------------------------------------------------------------*
*& Report  ZTEST
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST.

TABLES: MARA,
        KNA1,
        VBAK,
        MAKT,
        LFA1.


SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
PARAMETERS: R1 RADIOBUTTON GROUP RG1 USER-COMMAND UC1,
            R2 RADIOBUTTON GROUP RG1,
            R3 RADIOBUTTON GROUP RG1.
SELECTION-SCREEN END OF BLOCK B1.

SELECTION-SCREEN SKIP 1.

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS:S_MATNR FOR MARA-MATNR MODIF ID UC1.
SELECT-OPTIONS:S_MAKTX FOR MAKT-MAKTX MODIF ID UC1.
SELECTION-SCREEN END OF BLOCK B2.

SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-004.
SELECT-OPTIONS: S_KUNNR FOR KNA1-KUNNR MODIF ID UC2.
SELECT-OPTIONS: S_NAME1 FOR KNA1-NAME1 MODIF ID UC2.
SELECTION-SCREEN END OF BLOCK B3.

SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-005.
SELECT-OPTIONS: S_LIFNR FOR LFA1-LIFNR MODIF ID UC3.
SELECTION-SCREEN END OF BLOCK B4.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.
IF SCREEN-GROUP1 = 'UC1'.
 IF R1 = 'X'.
   SCREEN-INVISIBLE = '0'.
   SCREEN-ACTIVE = '1'.
  ELSE.
    SCREEN-INVISIBLE = '1'.
    SCREEN-ACTIVE = '0'.
 ENDIF.
  MODIFY SCREEN.
ENDIF.
IF SCREEN-GROUP1 = 'UC2'.
 IF R2 = 'X'.
   SCREEN-INVISIBLE = '0'.
   SCREEN-ACTIVE = '1'.
  ELSE.
    SCREEN-INVISIBLE = '1'.
    SCREEN-ACTIVE = '0'.
  ENDIF.
MODIFY SCREEN.
ENDIF.
IF SCREEN-GROUP1 = 'UC3'.
 IF R3 = 'X'.
   SCREEN-INVISIBLE = '0'.
   SCREEN-ACTIVE = '1'.
  ELSE.
    SCREEN-INVISIBLE = '1'.
    SCREEN-ACTIVE = '0'.
  ENDIF.
  MODIFY SCREEN.
ENDIF.
ENDLOOP.