ADDING RADIOBUTTON AT RUNTIME IN MODULE POOL

[Former Member]

HI EVERYONE.

CAN ANYONE HELP ME OUT IN SOLVING THIS PROBLEM.I WANT TO ADD RADIOBUTTON TO MY SCREEN AT RUNTIME NOT BY DRAG AND DROP METHOD.HOW CAN WE ACHIEVE THIS.

[Former Member]

Hi,

The following code is report program. u can use in module pool (PBO). cleck the check box and press enter.

SELECTION-SCREEN : BEGIN OF BLOCK b2 WITH FRAME TITLE text-002,

BEGIN OF LINE.

PARAMETERS r1 RADIOBUTTON GROUP a DEFAULT 'X'.

SELECTION-SCREEN COMMENT 4(25) text-003. "test-003 = 'radio1'

SELECTION-SCREEN : END OF LINE.

SKIP.

SELECTION-SCREEN : BEGIN OF LINE.

PARAMETERS r2 RADIOBUTTON GROUP a.

SELECTION-SCREEN COMMENT 4(25) text-004.

SELECTION-SCREEN : END OF LINE.

SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN: COMMENT 1(15) text-005 FOR FIELD check1.

PARAMETERS: check1 AS CHECKBOX." GROUP RB user-command USR DEFAULT 'X'.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b3.

*in PBO using the below code.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF check1 = 'X'.

IF screen-name = 'R1' or screen-name = '%C003003_1000'.

screen-invisible = 1.

MODIFY SCREEN.

ELSEIF screen-name = 'R2' or screen-name = '%C004007_1000'.

screen-invisible = 1.

MODIFY SCREEN.

ENDIF.

ENDIF.

ENDLOOP.

thanks & Regards,

Vallamuthu.M

[vallamuthu_madheswaran2]

Hi,

The following code is report program. u can use in module pool (PBO). cleck the check box and press enter.

SELECTION-SCREEN : BEGIN OF BLOCK b2 WITH FRAME TITLE text-002,

BEGIN OF LINE.

PARAMETERS r1 RADIOBUTTON GROUP a DEFAULT 'X'.

SELECTION-SCREEN COMMENT 4(25) text-003. "test-003 = 'radio1'

SELECTION-SCREEN : END OF LINE.

SKIP.

SELECTION-SCREEN : BEGIN OF LINE.

PARAMETERS r2 RADIOBUTTON GROUP a.

SELECTION-SCREEN COMMENT 4(25) text-004.

SELECTION-SCREEN : END OF LINE.

SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN: COMMENT 1(15) text-005 FOR FIELD check1.

PARAMETERS: check1 AS CHECKBOX." GROUP RB user-command USR DEFAULT 'X'.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b3.

*in PBO using the below code.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF check1 = 'X'.

IF screen-name = 'R1' or screen-name = '%C003003_1000'.

screen-invisible = 1.

MODIFY SCREEN.

ELSEIF screen-name = 'R2' or screen-name = '%C004007_1000'.

screen-invisible = 1.

MODIFY SCREEN.

ENDIF.

ENDIF.

ENDLOOP.

thanks & Regards,

Vallamuthu.M