CLEAR:GT_FIELDCAT,
GS_FIELDCAT.
DATA: LI_POS TYPE I,
LI_POS2 TYPE I.
DEFINE FIELDCAT.
ADD 1 TO LI_POS.
GS_FIELDCAT-EDIT = &1."允許編輯
GS_FIELDCAT-LZERO = &2."前導0
GS_FIELDCAT-NO_ZERO = &3."去掉前導0
GS_FIELDCAT-INTTYPE = &4."輸出類型
GS_FIELDCAT-CHECKBOX = &5."多選框
GS_FIELDCAT-FIELDNAME = &6."列名
GS_FIELDCAT-REF_FIELDNAME = &7."關聯的字段名
GS_FIELDCAT-SELTEXT_L = &8. "字段名
GS_FIELDCAT-COL_POS = LI_POS."位置
APPEND GS_FIELDCAT TO GT_FIELDCAT.
END-OF-DEFINITION.
DEFINE FIELDCATALOG2.
LI_POS2 = LI_POS2 + 1.
GS_FIELDCAT-KEY = &1.
GS_FIELDCAT-OUTPUTLEN = &2.
GS_FIELDCAT-CHECKBOX = &3.
MODIFY GT_FIELDCAT INDEX LI_POS2 FROM GS_FIELDCAT TRANSPORTING KEY OUTPUTLEN CHECKBOX.
CLEAR: GS_FIELDCAT.
END-OF-DEFINITION.