At Selection-screen

[Former Member]

Hi, i want to write a code for following case.

i have to radiobuttons in selection-screen and two blocks.

i would like to make one block active and visible according to radiobutton.

please give me the code.

reward points for correct code

[Former Member]

Your requirement is not very clear. In one block it is necessary to have at least two radio button. You cannot keep one radiobutton in one block.

Can you be more specific, do you have to keep two radio buttons in each block?

Thanks,

Shweta

[Former Member]

Hi,

This code would be helpful.

SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.

*APPLICATION SERVER SELECTION.

PARAMETERS p_appser RADIOBUTTON GROUP serv DEFAULT 'X' USER-COMMAND sel.

PARAMETERS p_appup TYPE sy-datum MODIF ID 001. "To specify valid

"date

PARAMETERS p_appup1 TYPE ibipparms-path LOWER CASE MODIF ID 001.

"Path for appl server

"file Upload

SELECTION-SCREEN SKIP.

*PRESENTATION SERVER SELECTION.

PARAMETERS p_preser RADIOBUTTON GROUP serv.

"Radio button for

"choosing Pres server

PARAMETERS p_preup TYPE sy-datum MODIF ID 002. "To specify valid

"date

PARAMETERS p_preup1 TYPE ibipparms-path LOWER CASE MODIF ID 002.

"Path for pres server

"file Upload

SELECTION-SCREEN SKIP.

SELECTION-SCREEN END OF BLOCK blk1. "End Of Block blk1

AT SELECTION-SCREEN OUTPUT.

*Disabling associated fields of presentation server if

*application server radio button is enabled

IF p_appser = 'X'.

LOOP AT SCREEN .

IF screen-group1 = '002'.

screen-input = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

*Disabling associated fields of application server if

*presentation server radio button is enabled

IF p_preser = 'X'.

LOOP AT SCREEN .

IF screen-group1 = '001'.

screen-input = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

Thanks,

Shilpa