Table _INFO 가져오기

Import

Changing

 

Source

  DATA: BEGIN OF ls_ftexts,
          tabname   LIKE dd26s-tabname,
          fieldname LIKE dd03t-fieldname,
          ddtext    LIKE dd03t-ddtext,
        END   OF ls_ftexts,
        lt_ftexts   LIKE TABLE OF ls_ftexts,
        lv_tabclass TYPE dd02v-tabclass.

  CALL FUNCTION 'DDIF_FIELDINFO_GET'
    EXPORTING
      tabname        = tabname
    IMPORTING
      ddobjtype      = lv_tabclass
    TABLES
      dfies_tab      = rt_dfies
    EXCEPTIONS
      not_found      = 1
      internal_error = 2
      OTHERS         = 3.

*----> 뷰 인 경우  필드 텍스트
  CHECK lv_tabclass EQ 'VIEW'.

  SELECT a~viewname AS tabname
         b~fieldname
         b~ddtext
    FROM dd26s AS a INNER JOIN dd03t AS b
                            ON a~tabname = b~tabname
                           AND a~as4local = b~as4local
    INTO CORRESPONDING FIELDS OF TABLE lt_ftexts
   WHERE a~viewname   = tabname
     AND a~as4local   = 'A'
     AND b~ddlanguage = sy-langu
   ORDER BY a~viewname
            b~fieldname.

  CHECK sy-subrc EQ 0.
  DELETE ADJACENT DUPLICATES FROM lt_ftexts COMPARING tabname fieldname.

  LOOP AT rt_dfies ASSIGNING FIELD-SYMBOL(<fs_wa>).

    TRY.
        DATA(lv_ddtext) = lt_ftexts[
                                     tabname   = <fs_wa>-tabname
                                     fieldname = <fs_wa>-fieldname
                                   ]-ddtext.
        <fs_wa>-fieldtext = lv_ddtext.
      CATCH cx_root.
    ENDTRY.
  ENDLOOP.

 

 

결과값

RT_DFIES