調用REUSE_ALV_FIELDCATALOG_MERGE函數來擷取FIELDCAT

　　REPORT  ZZWEI_ALV_DEMO.

　　*ALV START

　　TYPE-POOLS:SLIS. "調用該類型池

　　*定義FIELDCAT與LAYOUT

　　DATA:fieldCat TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

        layout TYPE SLIS_LAYOUT_ALV,

        w_repid LIKE SY-REPID.

　　TABLES:SPFLI.

　　DATA:LSPFLI LIKE STANDARD TABLE OF SPFLI WITH HEADER LINE.

　　*螢幕開始事件

　　START-OF-SELECTION.

  　　PERFORM GETDATA.

  　　PERFORM CATALOG.

  　　PERFORM ALVSHOW.

　　

　　*The Function Of GETDATA

　　FORM GETDATA.

  　　SELECT * FROM SPFLI INTO CORRESPONDING FIELDS OF TABLE LSPFLI.

　　ENDFORM.

　　*FORM CATALOG 根據結構體擷取FIELDCAT

　　FORM CATALOG.

  　　w_repid = SY-REPID.

  　　CLEAR fieldCat.

  　　CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'

  　　 EXPORTING

     　　I_PROGRAM_NAME               = w_repid

　　　　  *I_INTERNAL_TABNAME           =

     　　I_STRUCTURE_NAME             = 'SPFLI'

　　　　　*I_CLIENT_NEVER_DISPLAY       = 'X'

　　　　　*I_INCLNAME                   =

　　　　　*I_BYPASSING_BUFFER           =

　　　　 *I_BUFFER_ACTIVE              =

    　CHANGING

        CT_FIELDCAT                  = fieldCat[] "導出FIELDCAT内表資料

      EXCEPTIONS

        INCONSISTENT_INTERFACE       = 1

        PROGRAM_ERROR                = 2

      OTHERS                       = 3

          .

　　  IF SY-SUBRC <> 0.

       MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

　　  ENDIF.

　　  "對fieldcat屬性的修改

　　  *READ TABLE fieldCat INDEX 2. "将第二列設為熱點顯示

　　  *fieldCat-HOTSPOT = 'X'.

　　  *MODIFY fieldCat INDEX 2.

　　  *

　　  *READ TABLE fieldCat INDEX 4. "将第四列設為KEY值字段

　　  *fieldCat-KEY = 'X'.

　　  *MODIFY fieldCat INDEX 4.

　　  *READ TABLE fieldCat INDEX 5. "将第五列設為CHECKBOX

　　  *fieldCat-CHECKBOX = 'X'.

　　  *MODIFY fieldCat INDEX 5.

　　  layout-COLWIDTH_OPTIMIZE = 'X'. "設定LAYOUT輸出格式最優化

　　*The Function Of Show ALV

　　FORM ALVSHOW.

  　　CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

        I_CALLBACK_PROGRAM                = w_repid

        I_GRID_TITLE                      = 'ALV REPORT TEST' "ALV顯示标題

        IS_LAYOUT                         = layout

        IT_FIELDCAT                       = fieldCat[]

      TABLES

        T_OUTTAB                          = LSPFLI

        PROGRAM_ERROR                     = 1

        OTHERS                            = 2

            .

     IF SY-SUBRC <> 0.

       MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

     ENDIF.

　　最終運作結果如下：

　　錯誤排查：

　　有的時候寫好代碼調用 REUSE_ALV_FIELDCATALOG_MERGE 時會莫名的出錯提示為 READ_REPORT_LINE_TOO_LONG 下面列出的錯誤資訊有這麼一句.

　　The internal table "/FUNCTION=K_KKB_FIELDCAT_MERGE/DATA=L_ABAP_SOURCE[]" is 72

     characters wide. The program line is 99 characters wide.

   該FM會把整個程式代碼拷貝至其内表中，如果程式的行超過72個字元，即報如上錯誤。可以做以下設定。