본문 바로가기
ERP-SAP/ABAP

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

by 행복한워니의 기록 2012. 8. 22.
728x90
반응형

 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
*&-----------------------------------------------

 

 

728x90
반응형