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.

    运行结果如下：