ABAP 取域值 描述

两种方法： 

1.  根据表直接查询 dd07v。 一般域值表数据量不会特别的大，根据域名取值，在循环中二分法读取速度比用函数取值要快。

 SELECT * INTO TABLE @DATA(lt_dd07v)
    FROM  dd07v
    WHERE domname    EQ 'ZZQDDW'  " 域名
    AND   ddlanguage EQ '1'.

  SORT lt_dd07v BY domvalue_l.

READ TABLE lt_dd07v INTO DATA(ls_dd07v) WITH KEY domvalue_l = ls_out-zzqddw  "域值
                                                                           BINARY SEARCH.
      IF sy-subrc EQ 0.
        ls_out-zzqddw_t = ls_dd07v-ddtext.
      ENDIF.

2. 根据函数取

DATA:
  ls_dd07v TYPE dd07v.
DATA:
lt_taba TYPE STANDARD TABLE OF dd07v,
lt_tabb TYPE STANDARD TABLE OF dd07v.

CALL FUNCTION 'DD_DOMA_GET'
  EXPORTING
    domain_name   = 'XFELD'
    langu         = sy-langu
    withtext      = 'X'
  TABLES
    dd07v_tab_a   = lt_taba
    dd07v_tab_n   = lt_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. 
LOOP AT  lt_taba INTO ls_dd07v.
  WRITE:
  / sy-tabix,ls_dd07v-domvalue_l CENTERED ,ls_dd07v-ddtext CENTERED.
ENDLOOP.