Hi Luis,
Use AT SELECTION-SCREEN OUTPUT event to do this.
Coding:
data: ls_list type vrm_value,
lt_list type vrm_values.
at selection-screen output.
loop at ti_statu into wa_statu.
ls_list-key = wa_statu-value.
ls_list-value = wa_statu-text.
append ls_list to lt_list.
clear: ls_list, wa_statu.
endloop.
CALLFUNCTION'VRM_SET_VALUES'
EXPORTING
id = 'P_STATU'
values = lt_list
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGEID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
refresh: lt_list, it_statu.
Thanks & Regards,
T. Prasanna Kumar