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. 

定義的宏超出了9個變量時，用第二個或多個宏更新第一個宏