自定義FIELDCAT參數控制ALV輸出

　　除了可以用REUSE_ALV_FIELDCATALOG_MERGE函數來擷取FIELDCAT之外，還可以自定義FIELDCAT參數，不過這種方式需要自定義字段名稱。

　　REPORT  ZZWEI_ALV_DEMO.

　　TYPE-POOLS:SLIS."引用類型池

　　TABLES:SPFLI.

　　DATA:fieldCat TYPE SLIS_T_FIELDCAT_ALV WITH HEADER LINE,

        layout TYPE SLIS_LAYOUT_ALV,

        w_repid LIKE SY-REPID.

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

　　*螢幕開始事件

　　START-OF-SELECTION.

  　　PERFORM GETDATA.

 　　 PERFORM CATALOG.

  　　PERFORM ALVSHOW.

　　FORM GETDATA.

  　　SELECT * FROM SPFLI INTO CORRESPONDING FIELDS OF TABLE lspfli.

　　ENDFORM.

　　

　　FORM CATALOG.

      w_repid = SY-REPID.

      CLEAR fieldCat.

  　　"定義宏來設定FIELDAT屬性 &1 &2 &3分别為參數

 　　 DEFINE fieldcatset.

    　　fieldCat-REF_TABNAME ='LSPFLI'.

    　　fieldCat-FIELDNAME = &1.

   　　 fieldCat-SELTEXT_L = &2.

    　　fieldCat-COL_POS = &3.

    　　APPEND fieldCat.

  　　END-OF-DEFINITION.

  　　fieldcatset 'CARRID' '航線承運人' SY-TABIX.

  　　fieldcatset 'CONNID' '航班數量' SY-TABIX.

  　　fieldcatset 'COUNTRYFR' '起飛國家' SY-TABIX.

  　　fieldcatset 'CITYFROM' '起飛城市' SY-TABIX.

  　　fieldcatset 'AIRPFROM' '部門機場' SY-TABIX.

  　　fieldcatset 'COUNTRYTO' '目的國家' SY-TABIX.

  　　fieldcatset 'AIRPTO' '目的機場' SY-TABIX.

  　　fieldcatset 'FLTIME' '航班時間' SY-TABIX.

  　　fieldcatset 'DEPTIME' '離開' SY-TABIX.

  　　fieldcatset 'ARRTIME' '到達時間' SY-TABIX.

  　　fieldcatset 'DISTANCE' '距離' SY-TABIX.

  　　fieldcatset 'DISTID' '位于' SY-TABIX.

  　　fieldcatset 'FLTYPE' '圖解' SY-TABIX.

  　　fieldcatset 'PERIOD' '周期' SY-TABIX.

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

　　FORM ALVSHOW.

  　　CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

    　　EXPORTING

      　　I_CALLBACK_PROGRAM = w_repid

      　　"I_SAVE = ''

     　　 IS_LAYOUT = layout

     　　 I_GRID_TITLE = 'AlV DEMO'

     　　 IT_FIELDCAT = fieldCat[]

    　　TABLES

     　　 T_OUTTAB = lspfli

    　　EXCEPTIONS

      　　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.

　　運作界面如下：