REPORT ztestListbox NO STANDARD PAGE HEADING
LINE-SIZE 286
LINE-COUNT 0.
LINE-SIZE 286
LINE-COUNT 0.
TYPE-POOLS: vrm.
DATA: name111 TYPE vrm_id ,
list TYPE vrm_values,
value LIKE LINE OF list.
DATA: name111 TYPE vrm_id ,
list TYPE vrm_values,
value LIKE LINE OF list.
PARAMETERS: ps_parm(20) AS LISTBOX VISIBLE LENGTH 16 OBLIGATORY .
AT SELECTION-SCREEN OUTPUT.
name111 = 'PS_PARM'.
value-key = '1'.
value-text = 'Villy'.
APPEND value TO list.
value-key = '2'.
value-text = 'John'.
APPEND value TO list.
value-key = '3'.
value-text = 'Linda'.
APPEND value TO list.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = name111
values = list.