*&--------------------------------------------------------------------*
*& Report ZTEST_GETDOMVAL
*&--------------------------------------------------------------------*
*This report is used to fetch the fixed values associated with domain
*&--------------------------------------------------------------------*
 
REPORT  ztest_yh1148.
 
DATA:
  fs_taba TYPE dd07v.
DATA:
it_taba TYPE STANDARD TABLE OF dd07v,
it_tabb TYPE STANDARD TABLE OF dd07v.
 
CALL FUNCTION 'DD_DOMA_GET'
  EXPORTING
    domain_name   = 'XFELD'
    langu         = sy-langu
    withtext      = 'X'
  TABLES
    dd07v_tab_a   = it_taba
    dd07v_tab_n   = it_tabb
  EXCEPTIONS
    illegal_value = 1
    op_failure    = 2
    OTHERS        = 3.
IF sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF
WRITE'The fixed values for the domain','''XFELD''','are:-'
LOOP AT  it_taba INTO fs_taba.
  WRITE:
  / sy-tabix,fs_taba-domvalue_l CENTERED ,fs_taba-ddtext CENTERED.
ENDLOOP.
ULINE.
*----------------------END OF CODE-----------------------------------*