DATA: FC_VALUES LIKE VALUES WITH HEADER LINE,
VALUES TYPE VRM_VALUES.
REFRESH: FC_VALUES,VALUES.
CLEAR: FC_VALUES,VALUES.
SELECT FLIGHT_CLASS NAME
INTO (FC_VALUES-KEY,FC_VALUES-TEXT)
FROM ZTBOA016.
APPEND FC_VALUES.
ENDSELECT.
LOOP AT FC_VALUES.
APPEND FC_VALUES TO VALUES.
ENDLOOP.
CALL FUNCTION 'VRM_SET_VALUES'
EXPORTING
ID = ID
VALUES = VALUES
EXCEPTIONS
ID_ILLEGAL_NAME = 1
OTHERS = 2.