DATA: it_val TYPE vrm_values.
PARAMETERS: p_type TYPE char1 OBLIGATORY AS LISTBOX VISIBLE LENGTH 20.
INITIALIZATION.
CLEAR: it_val.
* Domänenwerte holen
cl_reca_ddic_doma=>get_values( EXPORTING id_name = 'CCCATEGORY'
IMPORTING et_values = DATA(it_dval) ).
IF lines( it_dval ) > 0.
* wenn Werte vorhanden, dann Auswahlliste erstellen
it_val = VALUE vrm_values( FOR v IN it_dval ( key = v-domvalue_l
text = v-ddtext ) ).
* Auswahlliste setzen
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
id = 'P_TYPE'
values = it_val
EXCEPTIONS
id_illegal_name = 1
OTHERS = 2.
IF sy-subrc = 0.
* Vorselektion 'Punkt eins'
p_type = it_val[ 1 ]-key.
ENDIF.
ENDIF.
START-OF-SELECTION.
* akt. Selektion der ComboBox heraussuchen
TRY.
DATA(s) = it_val[ key = p_type ].
WRITE: / s-key, s-text.
CATCH cx_root.
ENDTRY.