Radio button infor needed?

Question

hi
i had 2 RB GRP 1 & 3 RB in GRP2.
My req is if in GRP1 rad1 is clked than the none RB of GRP2 shd be hide,if in rad2 is clked than 3 RB of GRP2 shd be hide from the screen.
I am trying to to it but giving dupm:too many friled set in group.
LOOP AT SCREEN.
    if y1 = 'X'.
      clear:rb.
    elseIF y2 = 'X'.
      IF screen-name CS 'X1'.
        screen-active = 0.
        modify screen.
      ENDIF.
      if screen-name CS 'X3'.
      screen-active = 0.
     modify screen.
   ENDIF.
     if  screen-name CS 'X4'.
     screen-active = 0.
     modify screen.
     ENDIF.
   ENDIF.
    ENDLOOP.

Answer 1

Hi,
Try this out,
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_out1 TYPE c RADIOBUTTON GROUP a DEFAULT 'X'
                          USER-COMMAND uc01,
            p_out2 TYPE c RADIOBUTTON GROUP a.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECT-OPTIONS: s_ebeln FOR wa_ekko-ebeln MODIF ID 001,
                s_bukrs FOR wa_ekko-bukrs MODIF ID 001,
                s_aedat FOR wa_ekko-aedat MODIF ID 001,
                s_matnr FOR wa_mard-matnr MODIF ID 002,
                s_ersda FOR wa_mard-ersda MODIF ID 002,
                s_werks FOR wa_mard-werks MODIF ID 002.
SELECTION-SCREEN END OF BLOCK b2.
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    CASE screen-group1.
      WHEN '001'.
        IF p_out1 EQ 'X'.
          screen-active = '1'.
        ELSE.
          screen-active = '0'.
        ENDIF.
        MODIFY SCREEN.
      WHEN '002'.
        IF p_out2 EQ 'X'.
          screen-active = '1'.
        ELSE.
          screen-active = '0'.
        ENDIF.
        MODIFY SCREEN.
    ENDCASE.
  ENDLOOP.