hi
see this program
YPE-POOLS:vrm.
PARAMETERS: p_matnr TYPE MARA-MATNR AS LISTBOX VISIBLE LENGTH 20.
DATA: t_mara TYPE TABLE OF mara,
w_mara TYPE mara.
DATA: name TYPE vrm_id,
list TYPE vrm_values,
value TYPE vrm_value.
*--------------------------------------------------------------------*
* A T S E L E C T I O N - S C R E E N O U T P U T
*--------------------------------------------------------------------*
AT SELECTION-SCREEN OUTPUT.
SELECT matnr FROM mara INTO CORRESPONDING FIELDS OF TABLE t_mara .
LOOP AT t_mara INTO w_mara.
value-key = w_mara-matnr.
value-text = w_mara-matnr.
APPEND value TO list.
ENDLOOP.
name = 'P_MATNR'.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name
values = list
EXCEPTIONS
ID_ILLEGAL_NAME = 1
OTHERS = 2
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
regards
laxman