<ABAP> Domain text 읽어오는 perform 만들기

 DATA : lv_ddtxt LIKE dd07v-ddtext.     

 

PERFORM  read_domain_text  USING  'ZDPRPS'   "이런 도메인이 있다.
                                    gs_expdat-zprps "현재 도메인 값이 들어있다.
                           CHANGING lv_ddtxt.  "그 도메인 값에 대한 text를 읽어온다.

 

 

 

 

perform 문 안을 들여다 보자. (거의 공통으로 만들어 쓴다.)

 

 

 

  *&---------------------------------------------------------------------*
*&      Form  READ_DOMAIN_TEXT
*&---------------------------------------------------------------------*
*       해당 Domain text를 읽어오는 Function
*----------------------------------------------------------------------*
*      -->P_DFIELD   : Domain명
*      -->P_VALUE    : Domain Value
*      <--P_DDTEXT   : Domain text
*----------------------------------------------------------------------*
FORM read_domain_text  USING    p_dfield  TYPE  any
                                p_value   TYPE  any
                       CHANGING p_ddtext  TYPE  any.
  CLEAR st_domv.
  st_domv-domname    = p_dfield.                    "도메인 NAME
  st_domv-ddlanguage = sy-langu.                    "Language
  st_domv-domvalue_l = p_value.                     "입력 값

  CALL FUNCTION 'C_DIC_DOMAIN_VALUE_TEXT_READ'
    EXPORTING
      name      = st_domv-domname
      spras     = st_domv-ddlanguage
      value     = st_domv-domvalue_l
    IMPORTING
      text      = st_domv-ddtext
    EXCEPTIONS
      not_found = 1
      OTHERS    = 4.

  MOVE : st_domv-ddtext TO p_ddtext.

ENDFORM.                    " READ_DOMAIN_TEXT
*&-----------------------------------------------