DDIF_FIELDINFO_GET - ooxxvv/MySAPnotes GitHub Wiki

PageOutline {{{#!comment -------------------- 以上的部份是固定的，不要變動 ----- --------------------------------------- 在建立連結時，請標明連結的頁面類型，例如：wiki:WikiStart，而不要只用 WikiStart ----- }}}

DDIF_FIELDINFO_GET

  • DD/ Interface to Read Text on Tables or Types
  • 取得 data dictionary 中表格及欄位的屬性 (包含 Text) 。
  • 可以只捉取某一欄位的值

EXPORTING (Import)

AAA

  • CCC
  • DDD

IMPORTING (Export)

  • TABNAME => Table 名稱，必填
  • FIELDNAME => Field 名稱，如不填的話則抓出此 Table 的所有欄位
  • LANGU => 語言碼。

TABLES

  • DFIES_TAB => 欄位屬性
  • DFIES_TAB- TABNAME=Table 名稱。
  • DFIES_TAB- FIELDNAME=Field 名稱。
  • DFIES_TAB- SCRTEXT_S=Short Label (長度為10)。
  • DFIES_TAB- SCRTEXT_M=Medium Label (長度為20)。
  • DFIES_TAB- SCRTEXT_L= Long Label (長度為40)。

EXCEPTIONS

Attributes

Methods

Code

{{{#!abap DATA/ l_fieldname TYPE dfies-fieldname, lt_defies_tab LIKE dfies OCCURS 0 WITH HEADER LINE.

DATA/ BEGIN OF lt_field_text OCCURS 0, scrtext_m LIKE dfies-scrtext_m, END OF lt_field_text.

CLEAR/ l_fieldname, lt_defies_tab, lt_defies_tab[].

l_fieldname=l_comp-name.

CALL FUNCTION 'DDIF_FIELDINFO_GET' EXPORTING tabname ='ZMMR0002_ST' fieldname =l_fieldname langu =sy-langu TABLES dfies_tab =lt_defies_tab EXCEPTIONS not_found =1 internal_error=2 OTHERS =3.

IF sy-subrc <> 0. lt_field_text-scrtext_m=space. ELSE. READ TABLE lt_defies_tab INDEX 1. lt_field_text-scrtext_m=lt_defies_tab-scrtext_m. ENDIF.

APPEND lt_field_text. CLEAR/ lt_field_text. }}}

{{{#!comment -------------------- 以下的部份是固定的，不要變動 ----- }}}