SAP-abap学习记录（25）

*&---------------------------------------------------------------------*
*& Report  ZTEST_ABAP_25
*&
*&---------------------------------------------------------------------*
*&报表输出事件应用
*&
*&---------------------------------------------------------------------*
REPORT ZTEST_ABAP_25 line-SIZE 30
                     LINE-COUNT 10(5)    "设置每页行数
                     NO STANDARD PAGE HEADING.    "不需要表头

START-OF-SELECTION.

  WRITE: / 'name:',10 'Tom'.
  WRITE: / 'age:',30.
  WRITE: / 'add:','Beijing'.

NEW-PAGE no-HEADING no-TITLE.

  WRITE: / 'name:',10 'Tom'.
  WRITE: / 'age:',30.
  WRITE: / 'add:','Beijing'.

SET BLANK LINES on.

TOP-OF-PAGE.      "定义页眉

  WRITE: / 'Cur page', syst-pagno.
  uline.

end-of-PAGE.      "定义页脚

  uline.
  WRITE: / 'This the End.' COLOR COL_HEADING.