Radio Buttons are not getting populated

Question

Hi
this is my program...
plz can any one tell me wt is wrong in my program?
my problm is wn i select " 2 line 2 " in drop down list Radio button 1 and Radio Button 2 should be
invisible and it should display only Radio Button 3....
bt in my program it is not happening....
TABLES: sscrfields.
DATA: name TYPE vrm_id,
      list TYPE vrm_values,
      value LIKE LINE OF list.
PARAMETERS: ps_parm AS LISTBOX VISIBLE LENGTH 10 USER-COMMAND abc.
PARAMETERS: r1 RADIOBUTTON GROUP ab MODIF ID bl2,
            r2 RADIOBUTTON GROUP ab MODIF ID bl2,
            r3 RADIOBUTTON GROUP ab MODIF ID bl3.
INITIALIZATION.
  name = 'ps_parm'.
  value-key = '1'. value-text = 'line 1'. APPEND value TO list.
  value-key = '2'. value-text = 'line 2'. APPEND value TO list.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id     = name
      values = list.
  LOOP AT SCREEN.
    IF ps_parm = 1.
      IF screen-name = 'r1' OR screen-name = 'r2'.
        screen-invisible = 0.
      ELSEIF screen-name = 'r3'.
        screen-invisible = 1.
      ENDIF.
      MODIFY SCREEN.
    ELSEIF ps_parm = 2.
      IF screen-name = 'r1' OR screen-name = 'r2'.
        screen-invisible = 1.
      ELSEIF screen-name = 'r3'.
        screen-invisible = 0.
      ENDIF.
      MODIFY SCREEN.
    ELSEIF ps_parm = space.
      r1 = 'X'.
      CLEAR: r2,r3.
      IF screen-name = 'r1' OR screen-name = 'r2' OR
         screen-name = r3.
        screen-invisible = 0.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
  ENDLOOP.
AT SELECTION-SCREEN.
  IF sscrfields-ucomm = 'abc'.
  ENDIF.
START-OF-SELECTION.
  WRITE: / 'Parameter:', ps_parm.

Answer 1

Hi,
two things you have to do is ,
1.Loot at acreen should be inside At-Selection screen output event.
2.The values inside quotes should be in uppercase for screen-name. Ex. Screen-name = 'R1'.
3. Clear the radiobutton values before Loop at screen to avoid dump when line 1 is selected .
INITIALIZATION.
name = 'ps_parm'.
value-key = '1'. value-text = 'line 1'. APPEND value TO list.
value-key = '2'. value-text = 'line 2'. APPEND value TO list.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list.
At SELECTION-SCREEN OUTPUT.
clear :r1,r2,r3.
LOOP AT SCREEN.
IF ps_parm = 1.
IF screen-name = 'R1' OR screen-name = 'R2'.
screen-invisible = 0.
ELSEIF screen-name = 'R3'.
screen-invisible = 1.
ENDIF.
MODIFY SCREEN.
ELSEIF ps_parm = 2.
IF screen-name = 'R1' OR screen-name = 'R2'.
screen-invisible = 1.
ELSEIF screen-name = 'R3'.
screen-invisible = 0.
ENDIF.
MODIFY SCREEN.
ELSEIF ps_parm = space.
r1 = 'X'.
CLEAR: r2,r3.
IF screen-name = 'R1' OR screen-name = 'R2' OR
screen-name = 'R3'.
screen-invisible = 0.
MODIFY SCREEN.
ENDIF.
ENDIF.
ENDLOOP.
AT SELECTION-SCREEN.
IF sscrfields-ucomm = 'abc'.
ENDIF.
START-OF-SELECTION.
WRITE: / 'Parameter:', ps_parm.
Regards,
Hema.