modifying selection screen with help of radio buttons

[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!!!!!!!!!

[former_member386202]

Hi,

Refr this code

----

---

• PARAMETERS & SELECT-OPTIONS *

----

---

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

PARAMETERS : p_pay1 RADIOBUTTON GROUP grp USER-COMMAND fc DEFAULT 'X',

p_pay2 RADIOBUTTON GROUP grp.

SELECTION-SCREEN END OF BLOCK b1.

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

SELECT-OPTIONS : s_pernr FOR pa0000-pernr. "Personnel Number

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT (31) text-018.

PARAMETERS : p_begda LIKE pa0000-begda OBLIGATORY. "Start Date

SELECTION-SCREEN COMMENT 52(05) text-019.

PARAMETERS : p_endda LIKE pa0000-endda OBLIGATORY. "End Date

SELECTION-SCREEN END OF LINE.

SELECT-OPTIONS : s_stat2 FOR pa0000-stat2, "Status

s_werks FOR pa0001-werks, "Personnel Area

s_raufnr FOR catsdb-raufnr MODIF ID md1. "Internal Order Number

SELECTION-SCREEN END OF BLOCK b2.

----

---

• AT SELECTION-SCREEN *

----

---

AT SELECTION-SCREEN OUTPUT.

IF p_pay1 EQ 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'MD1'.

screen-active = '1'.

screen-input = '0'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ELSEIF p_pay2 EQ 'X'.

LOOP AT SCREEN.

IF screen-group1 = 'MD1'.

screen-active = '1'.

screen-input = '1'.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDIF.

Regards,

Prashant

[VB09104]

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,

Vikas.

plz reward if helpful..