radio button

[Former Member]

hai experts,

PARAMETERS: ZTEST RADIOBUTTON GROUP rad1,

ZRUN RADIOBUTTON GROUP rad1.

PARAMETERS: SUCCREC RADIOBUTTON GROUP rad2,

ERRORLOG RADIOBUTTON GROUP rad2.

i have two radion button groups. In radio button group rad1 ZTEST selected radion button group rad2 is disable and ZRUN selected radion button group rad2 enable. this is problem

please give answer

its urgent

Thanks

sitaram.

[Former Member]

Hi,

use the below code

PARAMETERS: ZTEST RADIOBUTTON GROUP rad1 default 'X' user-command rusr,

ZRUN RADIOBUTTON GROUP rad1.

PARAMETERS: SUCCREC RADIOBUTTON GROUP rad2 modif id Z1,

ERRORLOG RADIOBUTTON GROUP rad2 modif id Z1.

AT SELECTION-SCREEN output.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'Z1'. "Name field

IF zrun = 'X'.

SCREEN-ACTIVE = 1.

ELSE.

SCREEN-ACTIVE = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

[dhruv_shah3]

Hi,

Use Loop at Screen.

if rbt1 = 'x'.

screen-name = rbt2.

screen-invisible = 1.

else

screen-invisible = 0.

endif.

modify screen.

endloop.

use the similar for the other radio button.

HTH

Regards,

Dhruv Shah

[Former Member]

Hi,

Use the below code.

PARAMETERS: ZTEST RADIOBUTTON GROUP rad1 default 'X' user-command rusr,

ZRUN RADIOBUTTON GROUP rad1.

PARAMETERS: SUCCREC RADIOBUTTON GROUP rad2 modif id Z1,

ERRORLOG RADIOBUTTON GROUP rad2 modif id Z1.

AT SELECTION-SCREEN output.

LOOP AT SCREEN.

IF SCREEN-GROUP1 = 'Z1'. "Name field

IF zrun = 'X'.

SCREEN-INPUT = 1.

ELSE.

SCREEN-INPUT = 0.

ENDIF.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

[Former Member]

thnak u

[Former Member]

DATA:

w_flag TYPE i.

**&----

---

**& SELECTION-SCREEN

**&----

---

SELECTION-SCREEN

BEGIN OF BLOCK connection1

WITH FRAME TITLE text-001.

PARAMETERS: p_radio1 TYPE c RADIOBUTTON GROUP radi USER-COMMAND gui ,

p_radio2 TYPE c RADIOBUTTON GROUP radi.

SELECTION-SCREEN END OF BLOCK connection1.

SELECTION-SCREEN BEGIN OF BLOCK flight1

WITH FRAME TITLE text-002.

SELECTION-SCREEN COMMENT 1(10) text-004 MODIF ID 001.

PARAMETERS: p_radio3 TYPE c RADIOBUTTON GROUP rad2 MODIF ID 001,

p_radio4 TYPE c RADIOBUTTON GROUP rad2 MODIF ID 001.

SELECTION-SCREEN SKIP 1 .

SELECTION-SCREEN END OF BLOCK flight1.

INITIALIZATION.

LOOP AT SCREEN.

IF screen-group1 = '001' OR

screen-group1 = '002'.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

AT SELECTION-SCREEN OUTPUT.

PERFORM change_of_screen.

AT SELECTION-SCREEN ON BLOCK connection1.

IF p_radio1 = 'X'.

w_flag = 0.

ELSE.

w_flag = 1.

ENDIF.

&----

---

*& Form change_of_screen

&----

---

• text

----

---

FORM change_of_screen .

IF w_flag = 0.

LOOP AT SCREEN.

IF screen-group1 = '001'.

screen-active = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

LOOP AT SCREEN.

IF screen-group1 = '002'.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSE.

LOOP AT SCREEN.

IF screen-group1 = '002'.

screen-active = 1.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

LOOP AT SCREEN.

IF screen-group1 = '001'.

screen-active = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

ENDFORM. " change_of_screen

reward if it is useful.

sandeep

[Former Member]

Hi,

Check this piece of code.

PARAMETERS: ztest RADIOBUTTON GROUP rad1 DEFAULT 'X' USER-COMMAND change,
zrun RADIOBUTTON GROUP rad1.

PARAMETERS: succrec RADIOBUTTON GROUP rad2 MODIF ID md1,
errorlog RADIOBUTTON GROUP rad2 MODIF ID md1.

AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF ztest EQ 'X'.
      IF screen-group1 EQ 'MD1'.
        screen-input = 0.
      ELSE.
        screen-input = 1.
      ENDIF.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

Reward points if it helps.

Regards.

Abhisek