Capture value of listbox

[Former Member]

How am I suppose to capture the value of my listbox (ZDROPDOWNLIST) ?

Here are my codes:

-

---

TYPE-POOLS : vrm.

DATA:wa_itab TYPE vrm_value,

it_itab TYPE vrm_values.

select distinct PROGRAM_ID into wa_itab from ZPROGRAM_TABLE.

Condense wa_itab-key no-gaps.

Condense wa_itab-TEXT no-gaps.

if wa_itab is not initial.

APPEND wa_itab TO it_itab.

endif.

endselect.

START-OF-SELECTION.

CALL SCREEN 1000.

MODULE STATUS_1000 OUTPUT.

SET PF-STATUS 'SCREEN_1000'.

SET TITLEBAR 'TITLE_1000'.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

ID = 'ZDROPDOWNLIST'

VALUES = it_itab.

ENDMODULE. "STATUS_1000 OUTPUT

-

---

Can someone tell me where should I apply my codes?

[Former Member]

hi,

try this

parameters: p_mode as listbox visible length 10.

AT SELECTION-SCREEN OUTPUT.

PERFORM fill_dropdown_list USING 'p_mode'(001).

FORM fill_dropdown_list USING value(f_parameter).

TYPE-POOLS: vrm. " For parameter drop down lists

DATA: name TYPE vrm_id,

list TYPE vrm_values,

value LIKE LINE OF list.

name = f_parameter.

value-key = 'C'.

value-text = 'Fist'.

APPEND value TO list.

value-key = 'F'.

value-text = 'Second'.

APPEND value TO list.

value-key = 'H'.

value-text = 'Third'.

APPEND value TO list.

value-key = 'D'.

value-text = 'Forth'.

APPEND value TO list.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = name

values = list.

ENDFORM. " fill_dropdown_list

FORM fill_dropdown_list1 USING value(f_parameter).

TYPE-POOLS: vrm. " For parameter drop down lists

DATA: name TYPE vrm_id,

list TYPE vrm_values,

value LIKE LINE OF list.

name = f_parameter.

value-key = 'C'.

value-text = 'Fist'.

APPEND value TO list.

CALL FUNCTION 'VRM_SET_VALUES'

EXPORTING

id = name

values = list.

ENDFORM. " fill_dropdown_list

reward if usefull.....

[former_member196299]

hi ,

Write a module in the PAI, and then directly use the field value for further use . the user selected value from the list box will be stored in the screen field . you need to do this in the PAI logics .

Revert if further help neded !

Regards,

Ranjita