ABAP取域值

转载自：http://blog.csdn.net/zhongguomao/article/details/7207114

直接据个例子吧：
DATA:
    LV_RETURN      TYPE SY-SUBRC,
    I_DOM_APSTT  TYPE STANDARD TABLE OF DD07V,
    LV_WA_DOMTAB   TYPE DD07V. 


 IF I_DOM_APSTT IS INITIAL.
    CALL FUNCTION 'DD_DOMVALUES_GET'
      EXPORTING
        DOMNAME        = 'ZMAPSTT'   “域名
        TEXT           = 'X'
        LANGU          = SY-LANGU
      IMPORTING
        RC             = LV_RETURN
      TABLES
        DD07V_TAB      = I_DOM_APSTT
      EXCEPTIONS
        WRONG_TEXTFLAG = 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.
  ENDIF.


LOOP AT ** INTO **
READ TABLE I_DOM_APSTT INTO LV_WA_DOMTAB WITH KEY DOMVALUE_L = ****.
    IF SY-SUBRC = 0.
     所得 = LV_WA_DOMTAB-DDTEXT.
    ENDIF.
ENDLOOP.