ESB函数组：共用include(2)

*&---------------------------------------------------------------------*
*&  包括              ZRFC_IC002
*&---------------------------------------------------------------------*


  CLEAR TABLE_STRUCTURE[].

  CALL FUNCTION 'DDIF_FIELDINFO_GET'
      EXPORTING
        TABNAME              = QUERY_TABLE
*   FIELDNAME            = ' '
   LANGU                = '1'
*   LFIELDNAME           = ' '
*   ALL_TYPES            = ' '
*   GROUP_NAMES          = ' '
      IMPORTING
*   X030L_WA             =
        DDOBJTYPE            = TABLE_TYPE
*   DFIES_WA             =
*   LINES_DESCR          =
      TABLES
        DFIES_TAB            = TABLE_STRUCTURE
*   FIXED_VALUES         =
      EXCEPTIONS
        NOT_FOUND            = 1
        INTERNAL_ERROR       = 2
        OTHERS               = 3
        .

*  APPEND LINES OF TABLE_STRUCTURE TO TAB_DDL.

  CLEAR STR.

  LOOP AT TAB_FIELD.
    READ TABLE TABLE_STRUCTURE WITH KEY FIELDNAME = TAB_FIELD-FIELDNAME.

    IF SY-SUBRC = 0.
      CONCATENATE STR TAB_FIELD-FIELDNAME INTO STR SEPARATED BY SPACE.
      MOVE TABLE_STRUCTURE-FIELDTEXT TO TAB_FIELD-FIELDTEXT.
      MODIFY TAB_FIELD.
    ENDIF.
  ENDLOOP.

  IF STR IS INITIAL.
    STR = '*'.
  ENDIF.



  LOOP AT <ITAB_LOOP> into <IT_LINE>.
    SELECT (STR) APPENDING
    CORRESPONDING FIELDS OF TABLE <ITAB_INTO>
    FROM (QUERY_TABLE)
    WHERE (WHKS) .
  ENDLOOP.