SAP應用界面開發:5)Report List報表開發-實作Report的格式分頁輸出(6)

　　下面建立一個ICON資料查詢程式，将ICON的名稱及相關圖示從系統中抓出。控制報表每頁顯示數量最多不超過10行，具體如下：

      REPORT  ZZWEI_REPORT_DEMO NO STANDARD PAGE HEADING.

*NO STANDARD PAGE HEADING (FOR LIST HEADING)

DATA:PAGE_LINE TYPE I VALUE 10, "每頁行數

         ICONTAB LIKE STANDARD TABLE OF V_ICON WITH HEADER LINE,"參照VIEW建內表

         Num TYPE I.

*每次分頁時繪制表頭

   TOP-OF-PAGE.

     WRITE: /2 'Pages:',SYST-PAGNO RIGHT-JUSTIFIED.

     ULINE AT /1(80).

     WRITE: /1(1) SY-VLINE,'ID' COLOR 1,

             7(1) SY-VLINE ,'ICON' COLOR 1,

             15(1) SY-VLINE,'NAME' COLOR 1,

             41(1) SY-VLINE, 'SHORTTEXT' COLOR 1,

             80(1) SY-VLINE.

     ULINE AT /1(80).

START-OF-SELECTION. "螢幕開始時查詢資料...

        SELECT * FROM ICON INNER JOIN ICONT ON ICON~ID = ICONT~ID INTO 

        CORRESPONDING FIELDS OF TABLE ICONTAB WHERE ICONT~LANGU = SY-LANGU.

LOOP AT ICONTAB.

       WRITE: /1(1) SY-VLINE,SY-TABIX LEFT-JUSTIFIED,

               7(1) SY-VLINE,ICONTAB-ID AS ICON LEFT-JUSTIFIED,

               "LEFT-JUSTIFIED:左對齊,RIGHT_JUSTIFIED:右對象，CENTERED:居中對齊。

               15(1) SY-VLINE,ICONTAB-NAME,

               41(1) SY-VLINE,ICONTAB-SHORTTEXT,

               80(1) SY-VLINE.

       ULINE /1(80).

Num = SY-TABIX MOD PAGE_LINE.

       IF Num = 0.

         NEW-PAGE.  "新的一頁

       ENDIF.

ENDLOOP.

    運作結果如下：