regarding one radiobutton logic

[Former Member]

HI GURUS,

I have 2 groups.in one group 2 radiobuttons,pdhplant,pp plant

in 2nd group , ihave 4 radio buttons,offspec,linespec,line1&line2.

my requirement is if i click,pdh plant then all the 2nd group radio buttons will disable mode& if i select pp plant then again

my 2nd group radiobuttons in actibe state.

how to achive , please help me.

thanks

subhasis

[Former Member]

This message was moderated.

[Former Member]

hI,

Check out this code

*FIRST Block
SELECTION-SCREEN : BEGIN OF BLOCK blk2 WITH FRAME TITLE text-002.
PARAMETER : pdh_plnt RADIOBUTTON  GROUP g1 DEFAULT 'X' USER-COMMAND change,
            pp_plant  RADIOBUTTON GROUP g1.
SELECTION-SCREEN:END OF BLOCK blk2.

*SECOND Block
SELECTION-SCREEN : BEGIN OF BLOCK blk3 WITH FRAME TITLE text-003.
PARAMETER : offspec RADIOBUTTON   GROUP g2 MODIF ID m3,              "Variant Part
            linespec RADIOBUTTON  GROUP g2 MODIF ID m3 ,
            line1 RADIOBUTTON     GROUP g2 MODIF ID m3,
            line2 RADIOBUTTON     GROUP g2 MODIF ID m3.
SELECTION-SCREEN:END OF BLOCK blk3.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF screen-group1 = 'M3'.
      IF pdh_plnt EQ 'X'.

        screen-INPUT = 0.
      ELSE.

        screen-INPUT = 1.
      ENDIF.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

Regards

Sandipan

[Former Member]

Hi,

Try the below code.

parameters: pdhplant radiobutton group g1 user command u1.
parameters: ppplant radiobutton group g1.

parameters: offspec radiobutton group g2 modif id m1.
parameters: linespec radiobutton group g2 modif id m1.
parameters: line1 radiobutton group g2 modif id m1.
parameters: line2 radiobutton group g2 modif id m1.

at selection-screen output.
  loop at screen.
    if screen-group1 = 'M1'.
      if pdhplant = 'X'.
"screen-active = 0 will make it invisible
        screen-active = 0.  "change screen-input for disabling i/p
      else.
"screen-active = 1 will make it visible and available for i/p
        screen-active = 1.  "change screen-input for enabling i/p
      endif.
      modify screen.
    endif.
  endloop.
endif.

Hope this helps.

Thanks,

Balaji