*&---------------------------------------------------------------------*
*& 包括 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.