Hi-
To retrieve Domain values follow below approach:
*--FM to retrieve domain values
CALL FUNCTION 'GET_DOMAIN_VALUES'
EXPORTING
domname = c_stat_dom
TABLES
values_tab = lt_values_tab
EXCEPTIONS
no_values_found = 1
OTHERS = 2.
IF sy-subrc = 0 AND lt_values_tab IS NOT INITIAL.
lv_domval = p_status.
READ TABLE lt_values_tab INTO lwa_values_tab
WITH KEY domvalue_l = lv_domval.
*--check for sy-subrc
IF sy-subrc NE 0.
p_message_code = c_v9.
p_message = text-v09.
p_gwf_rcode = 1.
EXIT.
ENDIF.
ENDIF.
For displaying domain value only once:
Create a Program line inside which use below code:
IF lv_domain_comp IS INITIAL.
lv_domain_comp = lwa_domain.
ELSE.
IF lv_domain_comp = lwa_domain.
CLEAR lwa_domain.
ELSE.
lv_domain_comp = lwa_domain.
ENDIF.
ENDIF.
Assuming lwa_domain as your workarea.
-Venkat