Plzz Help

[Former Member]

Hi,

In my program am using three parameters to download a three different files and I have to use radiobuttons for that.

I want to download only one file at a time.

I have used MODIF ID but it is not working for 3 Parameters but it is working for only two parameters.

Please help me out!!!!!!!!!

[Lakshmant1]

Hi Rajani,

Have a look at demo program DEMO_AT_SELECTION_ON_RADIO

Hope this helps

Thanks

Lakshman

[Former Member]

Hi,

check with the following code

************************************************************************

• Parameters and Selection Options

************************************************************************

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

SELECT-OPTIONS: s_lifnr FOR lfm1-lifnr .

SELECTION-SCREEN END OF BLOCK b1.

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

PARAMETERS:

r_asn RADIOBUTTON GROUP rad1 USER-COMMAND uc1 DEFAULT 'X',

r_ers RADIOBUTTON GROUP rad1 ,

r_830 RADIOBUTTON GROUP rad1,

r_850 RADIOBUTTON GROUP rad1,

r_862 RADIOBUTTON GROUP rad1,

r_810 RADIOBUTTON GROUP rad1,

r_820 RADIOBUTTON GROUP rad1,

r_824 RADIOBUTTON GROUP rad1.

SELECTION-SCREEN END OF BLOCK b2.

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.

SELECT-OPTIONS: s_bstae FOR lfm1-bstae MODIF ID sd1.

PARAMETERS:

p_ekorg TYPE lfm1-ekorg MODIF ID md1,

p_evcode TYPE edp21-evcode MODIF ID md2,

p_kappl TYPE nach-kappl MODIF ID md3,

p_parvw TYPE nach-parvw MODIF ID md4,

p_kschl TYPE nach-kschl MODIF ID md5,

p_vakey TYPE nach-vakey MODIF ID md6,

p_werks TYPE werks_d MODIF ID md7,

p_bukrs TYPE lfb1-bukrs MODIF ID md8.

SELECTION-SCREEN END OF BLOCK b3.

*eject

************************************************************************

• Initialization

************************************************************************

INITIALIZATION.

• PERFORM check_authorization.

*eject

************************************************************************

• at selection screen

************************************************************************

*AT SELECTION-SCREEN.

AT SELECTION-SCREEN OUTPUT.

LOOP AT SCREEN.

IF r_asn EQ 'X'

AND ( screen-group1 = 'MD3' or screen-group1 = 'MD4'

or screen-group1 = 'MD5' or screen-group1 = 'MD6'

or screen-group1 = 'MD7' or screen-group1 = 'MD8').

screen-active = '0'.

screen-invisible = '1'.

screen-input = '0'.

screen-output = '0'.

ELSEIF r_ers EQ 'X'

AND ( screen-group1 = 'SD1' or screen-group1 = 'MD1'

or screen-group1 = 'MD2' or screen-group1 = 'MD3'

or screen-group1 = 'MD4' or screen-group1 = 'MD5'

or screen-group1 = 'MD6' or screen-group1 = 'MD7'

or screen-group1 = 'MD8').

screen-active = '0'.

screen-invisible = '1'.

screen-input = '0'.

screen-output = '0'.

ELSEIF r_830 EQ 'X'

AND ( screen-group1 = 'SD1' or screen-group1 = 'MD1'

or screen-group1 = 'MD2' or screen-group1 = 'MD6'

or screen-group1 = 'MD7' or screen-group1 = 'MD8').

screen-active = '0'.

screen-invisible = '1'.

screen-input = '0'.

screen-output = '0'.

ELSEIF r_850 EQ 'X'

AND ( screen-group1 = 'SD1' or screen-group1 = 'MD1'

or screen-group1 = 'MD2' or screen-group1 = 'MD6'

or screen-group1 = 'MD7' or screen-group1 = 'MD8').

screen-active = '0'.

screen-invisible = '1'.

screen-input = '0'.

screen-output = '0'.

ELSEIF r_862 EQ 'X'

AND ( screen-group1 = 'SD1' or screen-group1 = 'MD1'

or screen-group1 = 'MD2' or screen-group1 = 'MD8').

screen-active = '0'.

screen-invisible = '1'.

screen-input = '0'.

screen-output = '0'.

ELSEIF r_810 EQ 'X'

AND ( screen-group1 = 'MD3' or screen-group1 = 'MD4'

or screen-group1 = 'MD5' or screen-group1 = 'MD6'

or screen-group1 = 'MD7' or screen-group1 = 'MD8').

screen-active = '0'.

screen-invisible = '1'.

screen-input = '0'.

screen-output = '0'.

ELSEIF r_820 EQ 'X'

AND ( screen-group1 = 'SD1' or screen-group1 = 'MD1'

or screen-group1 = 'MD2' or screen-group1 = 'MD3'

or screen-group1 = 'MD4' or screen-group1 = 'MD5'

or screen-group1 = 'MD6' or screen-group1 = 'MD7' ).

screen-active = '0'.

screen-invisible = '1'.

screen-input = '0'.

screen-output = '0'.

ELSEIF r_824 EQ 'X'

AND ( screen-group1 = 'SD1' or screen-group1 = 'MD1'

or screen-group1 = 'MD2' or screen-group1 = 'MD3'

or screen-group1 = 'MD4' or screen-group1 = 'MD5'

or screen-group1 = 'MD6' or screen-group1 = 'MD7'

or screen-group1 = 'MD8').

screen-active = '0'.

screen-invisible = '1'.

screen-input = '0'.

screen-output = '0'.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

*eject

************************************************************************

• Event top of page

************************************************************************

TOP-OF-PAGE.

*eject

************************************************************************

• event Start of Selection

************************************************************************

START-OF-SELECTION.

*eject

************************************************************************

*EVENT End-of selection

************************************************************************

END-OF-SELECTION.

*eject

************************************************************************

*EVENT End-of page

************************************************************************

END-OF-PAGE.

************************************************************************

Regards,

Sunil Kumar

Plzzzz reward if useful

feel free to ask any quiries my mail id is mutyalasunilkumar@gmail.com