how to get domain values

REPORT ZTESTPROG004.

DATA: VALUES_TAB TYPE DD07V OCCURS 0 WITH HEADER LINE .


CALL FUNCTION 'GET_DOMAIN_VALUES'
EXPORTING
domname = 'ACTIO'
TEXT = 'X'
FILL_DD07L_TAB = 'X'
TABLES
VALUES_TAB = VALUES_TAB
EXCEPTIONS
NO_VALUES_FOUND = 1
OTHERS = 2
.
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.


LOOP AT VALUES_TAB.
WRITE:/ VALUES_TAB-DOMVALUE_L,
VALUES_TAB-DDTEXT.
ENDLOOP.