SELECTION-SCREEN: BEGIN OF BLOCK B1 WITH FRAME.

PARAMETERS : P_C TYPE CHAR10 MODIF ID M1,

                            RB_A RADIOBUTTON GROUP G1 USER-COMMAND,

                            RB_B RADIOBUTTON GROUP G1.

SELECTION-SCREEN: END OF BLOCK B1.

AT SELECTION-SCREEN OUTPUT.
  IF RB_A = 'X'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'M1'.
        SCREEN-ACTIVE = '0'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ELSEIF RB_B = 'X'.
    LOOP AT SCREEN.
      IF SCREEN-GROUP1 = 'M1'.
        SCREEN-ACTIVE = '1'.
      ENDIF.
      MODIFY SCREEN.
    ENDLOOP.
  ENDIF.