SAP-abap学习记录（27）

*&---------------------------------------------------------------------*
*& Report  ZTEST_ABAP_27
*&
*&---------------------------------------------------------------------*
*&格式化分页输出
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_ABAP_27 NO STANDARD PAGE HEADING.

data: pageline TYPE i VALUE 10,    "每页行数
      Icontab like STANDARD TABLE OF v_icon WITH HEADER LINE,
      num TYPE i.

*每次分页绘制表头
TOP-OF-PAGE.

  WRITE: /2 'PAGES:',SYST-PAGNO LEFT-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, 'SHOT_TEXT' 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 CENTERED,
          15(1) SY-VLINE, ICONTAB-NAME,
          41(1) SY-VLINE, ICONTAB-SHORTTEXT,
          80(1) SY-VLINE.

   ULINE /1(80).

*   控制当行数满足分页条件时进行分页设定
   num = SY-TABIX MOD pageline.

   IF NUM = 0.

     NEW-PAGE.

   ENDIF.

ENDLOOP.