Code: Alles auswählen.
Data: QUELLE(8) type c,
name type vrm_id,
list type vrm_values,
value like line of list.
name = 'QUELLE'.
** Wertehilfe für DB-System holen
Select CON_NAME
into value-text
from DBCON
where CON_NAME <> 'BCO' and CON_NAME <> 'BIN'.
if value-text <> ' '.
value-key = i_key.
append value to list.
i_key = i_key + 1.
endif.
endselect.
value-text = sy-sysid.
value-key = i_key.
i_key = i_key + 1.
append value to list.
call function 'VRM_SET_VALUES'
EXPORTING
id = name
values = list.