regarding drop down list in selection screen

[Former Member]

hi,

i have to display one drop down list in selection screen with 3 options.1.online data.2.archive data.3)both.and

if i select 'online data' i have to get online data. and if i select

'archive' i have to get archive data like that.

Plz tell me if the following code works for this scenario.

PARAMETERS: p_name(10) AS LISTBOX VISIBLE LENGTH 15 default 'ONLINEDATA'.

s-o-s.

case p_name.

when 'onlinedata'.

perform online_get.

when 'archivedata'.

perform archivedata_get.

when both.

perform both_getdata.

endcase.

[Former Member]

Hi ,

U can refer this CODE,,

REPORT Z_DDLB.

DEFINE LB_MACRO_KOART.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(31) &3.

PARAMETERS: &1 AS LISTBOX VISIBLE LENGTH &2 OBLIGATORY.

SELECTION-SCREEN END OF LINE.

END-OF-DEFINITION.

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

• SELECTION-SCREEN *

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

SELECTION-SCREEN BEGIN OF BLOCK S1 WITH FRAME TITLE TEXT-001.

LB_MACRO_KOART MYLIST(1) 5 COMMENT.

SELECTION-SCREEN END OF BLOCK S1.

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

• AT SELECTION - SCREEN

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

AT SELECTION-SCREEN OUTPUT.

PERFORM ADD_VALUES_TO_KOART.

COMMENT = 'Account type'.

&----

---

*& Form ADD_VALUES_TO_KOART

&----

---

• Fill the values in dropdownlistbox

----

---

FORM ADD_VALUES_TO_KOART .

TYPE-POOLS: VRM.

DATA: MY_LIST TYPE VRM_VALUES,

VALUE LIKE LINE OF MY_LIST.

DATA : BEGIN OF I_TAB OCCURS 0,

KOART TYPE C,

END OF I_TAB.

CLEAR I_TAB.

I_TAB-KOART = 'A'.

APPEND I_TAB.

CLEAR I_TAB.

I_TAB-KOART = 'D'.

APPEND I_TAB.

CLEAR I_TAB.

I_TAB-KOART = 'K'.

APPEND I_TAB.

CLEAR I_TAB.

I_TAB-KOART = 'M'.

APPEND I_TAB.

CLEAR I_TAB.

I_TAB-KOART = 'S'.

APPEND I_TAB.

CLEAR I_TAB.

&----

---

*& Filling the list structure with values from MARA table

&----

---

LOOP AT I_TAB.

VALUE-KEY = SY-TABIX.

VALUE-TEXT = I_TAB-KOART.

APPEND VALUE TO MY_LIST.

ENDLOOP.

&----

---

*& Finally calling the function module to create the list box.

&----

---

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

ID = 'MYLIST'

VALUES = MY_LIST.

ENDFORM. " ADD_VALUES_TO_KOART

Reward points if helpful

Thanks

Shambhu

[Former Member]

Hi ,

U can refer this CODE,,

REPORT Z_DDLB.

DEFINE LB_MACRO_KOART.

SELECTION-SCREEN BEGIN OF LINE.

SELECTION-SCREEN COMMENT 1(31) &3.

PARAMETERS: &1 AS LISTBOX VISIBLE LENGTH &2 OBLIGATORY.

SELECTION-SCREEN END OF LINE.

END-OF-DEFINITION.

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

• SELECTION-SCREEN *

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

SELECTION-SCREEN BEGIN OF BLOCK S1 WITH FRAME TITLE TEXT-001.

LB_MACRO_KOART MYLIST(1) 5 COMMENT.

SELECTION-SCREEN END OF BLOCK S1.

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

• AT SELECTION - SCREEN

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

AT SELECTION-SCREEN OUTPUT.

PERFORM ADD_VALUES_TO_KOART.

COMMENT = 'Account type'.

&----

---

*& Form ADD_VALUES_TO_KOART

&----

---

• Fill the values in dropdownlistbox

----

---

FORM ADD_VALUES_TO_KOART .

TYPE-POOLS: VRM.

DATA: MY_LIST TYPE VRM_VALUES,

VALUE LIKE LINE OF MY_LIST.

DATA : BEGIN OF I_TAB OCCURS 0,

KOART TYPE C,

END OF I_TAB.

CLEAR I_TAB.

I_TAB-KOART = 'A'.

APPEND I_TAB.

CLEAR I_TAB.

I_TAB-KOART = 'D'.

APPEND I_TAB.

CLEAR I_TAB.

I_TAB-KOART = 'K'.

APPEND I_TAB.

CLEAR I_TAB.

I_TAB-KOART = 'M'.

APPEND I_TAB.

CLEAR I_TAB.

I_TAB-KOART = 'S'.

APPEND I_TAB.

CLEAR I_TAB.

&----

---

*& Filling the list structure with values from MARA table

&----

---

LOOP AT I_TAB.

VALUE-KEY = SY-TABIX.

VALUE-TEXT = I_TAB-KOART.

APPEND VALUE TO MY_LIST.

ENDLOOP.

&----

---

*& Finally calling the function module to create the list box.

&----

---

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

ID = 'MYLIST'

VALUES = MY_LIST.

ENDFORM. " ADD_VALUES_TO_KOART

Reward points if helpful

Thanks

Shambhu

[Former Member]

hi,

im getting the drop down list.

but i have doubt in those case statements.is it correct way to code?

[Former Member]

TYPE-POOLS: VRM.

DATA: NAME TYPE VRM_ID,

LIST TYPE VRM_VALUES,

VALUE LIKE LINE OF LIST.

PARAMETERS: PS_PARM(10) AS LISTBOX VISIBLE LENGTH 10.

AT SELECTION-SCREEN OUTPUT.

NAME = 'PS_PARM'.

VALUE-KEY = 'Online date'.

VALUE-TEXT = 'Online date'.

APPEND VALUE TO LIST.

VALUE-KEY = 'Archive'.

VALUE-TEXT = 'Archive'.

APPEND VALUE TO LIST.

VALUE-KEY = 'Both'.

VALUE-TEXT = 'Both'.

APPEND VALUE TO LIST.

CALL FUNCTION 'VRM_SET_VALUES' EXPORTING ID = NAME VALUES = LIST.

START-OF-SELECTION.

case PS_PARM.

when 'Online data'.

*coding

when 'Archive'.

*coding

when 'Both'.

*coding

endcase.

[Former Member]

Hi,

Check the following code:

TYPE-POOLS: VRM.

DATA: NAME TYPE VRM_ID,

LIST TYPE VRM_VALUES,

VALUE LIKE LINE OF LIST.

PARAMETERS: PS_PARM(10) AS LISTBOX VISIBLE LENGTH 10.

AT SELECTION-SCREEN OUTPUT.

NAME = 'PS_PARM'.

VALUE-KEY = '1'.

VALUE-TEXT = 'Online'.

APPEND VALUE TO LIST.

VALUE-KEY = '2'.

VALUE-TEXT = 'Archive'.

APPEND VALUE TO LIST.

VALUE-KEY = '3'.

VALUE-TEXT = 'Both'.

APPEND VALUE TO LIST.

CALL FUNCTION 'VRM_SET_VALUES' EXPORTING ID = NAME VALUES = LIST.

START-OF-SELECTION.

case ps_parm.

when '1'.

write:/ 'you select Online'.

when '2'.

write:/ 'you select Archive'.

when '3'.

write:/ 'you select Both'.

endcase.

Regards,

Bhaskar