分享一下我老师大神的人工智能教程!零基础,通俗易懂!http://blog.csdn.net/jiangjunshow
也欢迎大家转载本篇文章。分享知识,造福人民,实现我们中华民族伟大复兴!
将数据写入列表的基本ABAP/4语句是WRITE、SKIP和ULINE输出语句。
一、标准列表结构
(1)标准页眉:标准页眉至少包括两行标准标题。标准标题的首行包含列表表头和页号。第二行由水平线组成。执行程序时,列表表头存储在系统字段SY-TITLE中。如果需要,可以在标准标题中包括最多四行列头和另一条水平线。
(2)标准页
输出数据显示在页眉之下。标准列表包含一个动态长度的单页(内部限制60,000行)。输出长度由当前列表大小确定。输出屏幕包括一个垂直滚动条,允许用户滚动页长超过窗口的列表。
(3)标准列表的宽度
标准列表的宽度取决于执行报表时的窗口宽度。如果用户窗口小于或等于标准窗口大小,则标准页宽应符合标准窗口宽度。用户可能必须滚动列表才能查看列表的所有部件。如果用户窗口超过标准窗口宽度,则标准列表的宽度符合选定标准窗口的宽度。
二、修改列表和列标题
(1)自定义列表
可以修改标准列表的结构并创建单个结构的列表。使用REPORT语句选项以及事件TOP-OF-PAGE和END-OF-PAGE。PROGRAM语句与REPORT语句等介并有相同的选项。如果列表包括几页,则可以分别定义每页的结构。
---单个页眉:要分别定义页眉的格式,必须在紧随事件关键字TOP-OF-PAGE的处理块中定义,
语法:
TOP-OF-PAGE.
WRITE:....
TOP-OF-PAGE事件在系统开始处理列表新页时出现。系统在输出新页首行之前处理TOP-OF-PAGE后面的语句。如果要取消标准页眉,使用语法:REPORT <rep> NO STANDARD PAGEHEADING.使用该语句时,系统不在报表<rep>列表上显示标准页眉。
REPORT ZJESSE02 NO STANDARD PAGE HEADING.
TOP-OF-PAGE.
WRITE: SY-TITLE, 40 'Page', SY-PAGNO.
ULINE.
WRITE: / 'SAP AG', 29 'Walldorf, ',SY-DATUM,
/ 'Neurottstr. 16', / '69190 Walldorf/Baden'.
ULINE.
START-OF-SELECTION.
DO 5 TIMES.
WRITE / SY-INDEX.
ENDDO.
报表程序不使用标准页眉,而是使用 TOP-OF-PAGE 之后的自定义页眉。要显式结束TOP-OF-PAGE处理块,必须指定事件关键字 START-OF-SELECTION。
(2)确定列表宽度
要确定输出列表的宽度,使用REPORT语句的LINE-SIZE选项。语法: REPORT<rep> LINE-SIZE<width>.该语句根据<width>字符确定报表<rep>输出列表的宽度。如果将<width>设置为0,则系统使用标准列表的宽度。一行最多可包含255个字符。如果要打印列表,大多数据打印机不能打印超过132个字符的列表。创建列表时,系统字段SY-LINSZ包含当前行宽。要将列表宽度调整为当前窗口宽度,使用ULINE语句(不带AT选项)创建的水平线自动适配自定义列表宽度。
REPORT ZJESSE02 LINE-SIZE 60.
WRITE: 'SY-LINSZ:', SY-LINSZ.
ULINE.
DO 20 TIMES.
WRITE SY-INDEX.
ENDDO.
(3)确定页长
要确定输出列表的页长,使用REPORT语句的LINE-COUNT选项。REPORT<rep> LINE-COUNT<length>[(<n>)].该语句用<length>行确定报表的页长。如果指定选项号<n>,则系统为页脚保留<n>行页长。并不将这些页脚行填写到END-OF-PAGE事件中,而是作为空行显示。如果设置为0,则系统使用标准页长。创建列表时,系统字段SY-LINCT包含每页的当前行数。
REPORT ZJESSE02 LINE-SIZE 40 LINE-COUNT 4.
WRITE: 'SY-LINCT:', SY-LINCT.
SKIP.
DO 6 TIMES.
WRITE / SY-INDEX.
ENDDO.
该程序将页长确定为四行。使用标准页眉。假定标准页眉 包括两行列表表头:
JESSE的ABAP程序 1
SY-LINCT: 4
JESSE的ABAP程序 2
1
2
JESSE的ABAP程序 3
3
4
JESSE的ABAP程序 4
5
6
(4)定义页脚
要定义页脚,使用END-OF-PAGE事件。在处理列表页时,如果系统到达页脚保留行,或者如果RESERVE语句触发分布则该事件发生。在紧接着END-OF-PAGE事件关键字的处理块中填充页脚的行:
语法
END-OF-PAGE.
WRITE:...
如果为REPORT语句的LINE-COUNT选项中的脚注保留行,则系统只处理紧接着END-OF-PAGE的处理块。
REPORT ZJESSE02 LINE-SIZE 40 LINE-COUNT 6(2)
NO STANDARD PAGE HEADING.
TOP-OF-PAGE.
WRITE: 'Page with Header and Footer'.
ULINE AT /(27).
END-OF-PAGE.
ULINE.
WRITE: /30 'Page', SY-PAGNO.
START-OF-SELECTION.
DO 6 TIMES.
WRITE / SY-INDEX.
ENDDO.
该程序包括三个处理块。关闭标准页眉。将页长设置为六行,其中两行留作页脚。列表包括三页,每页六行。每页由自定义的两行页眉、两行实际列表和两行页脚组成。页脚中显示的当前页号来自系统字段SY-PAGNO 。运行结果如下:
Page