ABAP Write 宝典
分享一下我老师大神的人工智能教程！零基础，通俗易懂！http://blog.****.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 with Header and Footer
1
2
Page 1
Page with Header and Footer
3
4
Page 2
Page with Header and Footer
5
6
Page 3
多页列表
如果在报表中写入列表输出页的行数超过在REPORT语句LINE-COUNT选项中定义的行数，则系统自动创建新页。每个新页都包含为报表定义的页眉和页脚（如果有的话）。除自动分布外，可以使用NEW-PAGE和RESERVE语句显式地编码分布。NEW-PAGE语句的选项允许分别设置每页格式。也需要NEW-PAGE语句在程序内打印列表。
无条件分页
要在页处理期间触发分页，请使用NEW-PAGE.
REPORT ZJESSE02 LINE-SIZE 40.
TOP-OF-PAGE.
WRITE: 'TOP-OF-PAGE', SY-PAGNO.
ULINE AT /(17).
START-OF-SELECTION.
DO 2 TIMES.
WRITE / 'Loop:'.
DO 3 TIMES.
WRITE / SY-INDEX.
ENDDO.
NEW-PAGE.
ENDDO.
条件分页
RESERVE <n> LINES.
REPORT ZJESSE02 LINE-SIZE 40 LINE-COUNT 8(2).
END-OF-PAGE.
ULINE.
START-OF-SELECTION.
DO 4 TIMES.
WRITE / SY-INDEX.
ENDDO.
DO 2 TIMES.
WRITE / SY-INDEX.
ENDDO.
RESERVE 3 LINES.
WRITE: / 'LINE 1',
/ 'LINE 2',
/ 'LINE 3'.
该样本程序标准页眉的列表头定义为“标准页眉”。REPORT 语句将页长确定为八行 ，两行用于标准页眉，另外两行为页脚保留。页脚包括水平行和空行 。因此，输出的实际列表，每页留下四行。第一个 DO 循环填充四行，然后发生END-OF-PAGE 事件，其后系统自动开始新页。在第二个 DO 循环之后， 因为页上剩余的自由行 数少于三， 因此 RESERVE语句触发 END-OF-PAGE 事件和分页 。
单页的标准页眉
标准页眉包括列表和列标题。
NEW-PAGE [NO-TITLE|WITH-TITLE] [NO-HEADING|WITH-HEADING].
使用NO-TITLE或WITH-TITLE选项取消或在以后所有页上显示标准表头。基本列表的缺省值为WITH-TITLE,辅助列表为NO-TITLE.使用NO-HEADING或WITH-HEADING选项取消或在以后所有页上显示列标题。基本列表的缺省值为WITH-HEADING，辅助列表为NO-HEADING.即使使用REPORT语句的NOSTANDARD PAGEHEADING选项取消标准页眉，也能使用WITH-TITLE和WITH-HEADING**单个组件的显示。
REPORT ZJESSE02 LINE-SIZE 40.
WRITE: 'Page', SY-PAGNO.
NEW-PAGE NO-TITLE.
WRITE: 'Page', SY-PAGNO.
NEW-PAGE NO-HEADING.
WRITE: 'Page', SY-PAGNO.
NEW-PAGE WITH-TITLE.
WRITE: 'Page', SY-PAGNO.
NEW-PAGE WITH-HEADING.
WRITE: 'Page', SY-PAGNO.
该程序创建五页，分别带有不同页眉。将列表表头标题文本元素定义为“标准页眉”，列标题定义为“列”。
第 1 和 5 页包含完整的标准页眉 。第 2 页没有列表表头。在第 3 页上，取消整个页眉。 在第 4 页上，省略列标题。
单页页长
要分别确定每页的页长，请使用NEW-PAGE语句：
NEW-PAGE LINE-COUNT<length>."该语句将后续的页长确定为<length>。可以是变量。如果设置为0，则系统使用标准页长。页眉是页的部分因此也是页长的部分。要将页长适配当前窗口长度，将值设置为SY-SROWS.
列表级的页宽
NEW-PAGE LINE-SIZE <width>.从新页开始的所有列表级宽度都为<width>,而不是REPORT语句中定义的宽度。
通过窗口滚动窗口
SCROLL LIST FORWARD|BACKWRAD[INDEX<idx>].不带INDEX选项时，该语句以当前窗口大小向前或向后滚动当前列表。使用INDEX选项时，系统以列表级<idx>滚动列表。
REPORT ZJESSE02 NO STANDARD PAGE HEADING LINE-SIZE 40.
TOP-OF-PAGE.
WRITE: 'Top of Page', SY-PAGNO, 'SY-SROWS:', SY-SROWS.
ULINE.
START-OF-SELECTION.
DO 100 TIMES.
WRITE / SY-INDEX.
ENDDO.
DO 3 TIMES.
SCROLL LIST FORWARD.
ENDDO.
按页滚动
要按页滚动列表，即按页长垂直滚动列表，SCROLL语句提供下列选项：
SCROLL LIST TO FIRST PAGE|LASTPAGE|PAGE<pag>[INDEX<idx>][LINE<lin>].
不用INDEX选项，语句将当前列表滚动到首页、尾页或<pag>页。使用INDEX选项，则系统滚动列表级<idx>的列表。
REPORT ZJESSE02 NO STANDARD PAGE HEADING
LINE-SIZE 40 LINE-COUNT 8(2).
DATA: PAG TYPE I VALUE 15,
LIN TYPE I VALUE 4.
TOP-OF-PAGE.
WRITE: 'Top of Page', SY-PAGNO.
ULINE.
END-OF-PAGE.
ULINE.
WRITE: 'End of Page', SY-PAGNO.
START-OF-SELECTION.
DO 100 TIMES.
DO 4 TIMES.
WRITE / SY-INDEX.
ENDDO.
ENDDO.
SCROLL LIST TO PAGE PAG LINE LIN.
列表从第 15 页开始显示 。由于LINE 选项，实际列表的前三行滚动到页眉以下。
滚动到列表的页边缘
语法：
SCROLL LIST LEFT|RIGHT [INDEX<idx>].
按列滚动
SCROLL LIST TO COLUMN <col>[INDEX<idx>]
REPORT ZJESSE02 NO STANDARD PAGE HEADING LINE-SIZE 200.
TOP-OF-PAGE.
WRITE: AT 161 'Top of Page', SY-PAGNO,
'SY-SCOLS:', SY-SCOLS.
ULINE.
START-OF-SELECTION.
DO 200 TIMES.
WRITE SY-INDEX.
ENDDO.
SCROLL LIST TO COLUMN 178.
三、列表页面设置
定位输出
SY-COLNO用于当前列 SY-LINNO 用于当前行
（1）绝对定位：
POSITION <col>."水平定位该语句将水平输出位置和SY-COLNO系统字段设置为<col>.
SKIP TO LINE<n>."垂直定位该语句将垂直输出位置和SY-LINNO系统字段设置为<lin>.
BACK. "将输出定位到整个页眉之后的第一行
REPORT ZJESSE02 NO STANDARD PAGE HEADING LINE-SIZE 60.
DATA: X(3), Y(3).
X = SY-COLNO. Y = SY-LINNO.
TOP-OF-PAGE.
WRITE: 'Position of Header: ', X, Y.
ULINE.
START-OF-SELECTION.
SKIP TO LINE 10.
POSITION 20.
X = SY-COLNO. Y = SY-LINNO.
WRITE: '* <- Position', X, Y.
SKIP TO LINE 12.
ULINE AT 20(20).
BACK.
X = SY-COLNO. Y = SY-LINNO.
WRITE: 'Position after BACK:', X, Y.
（2）相对定位
产生换行，要生产换行，在WRITE,ULINE或NEW-LINE语句的AT选项中使用反斜杠。
NEW-LINE "该语句将输出定位在新行中，将SY-COLNO设置为1并且将SY-LINNO加1.
WRITE <f> UNDER<g>."系统从开始输出字段<g>的同一列中开始输出<f>。该语句不限于当前页。
RESERVE. ... BACK. "如果BACK紧随RESERVE,则后续输出出现在RESERVE之后的第一行中。
REPORT ZJESSE02 NO STANDARD PAGE HEADING LINE-SIZE 40.
DATA X TYPE I.
WRITE 'Some numbers:' NO-GAP.
X = SY-COLNO.
ULINE AT /(X).
RESERVE 5 LINES.
DO 5 TIMES.
WRITE / SY-INDEX.
ENDDO.
X = SY-COLNO.
BACK.
WRITE AT X ' <- Start of Loop'.
输出前两行之后，RESERVE 语句用于将后续五行定义为块。紧随 BACK 之后的输出写入到块的第一行。请注意，如何使用SY-COLNO 系统字段给第一行加下划线以及如何定位最后的WRITE输出。
输出如下：
Some numbers:
1 <- Start of Loop
2
3
4
5
格式输出：
FORMAT <option1>[ON|OFF]<option2> [ON|OFF] ....
使字段可接受输入
FORMAT INPUT [ON|OFF]. "要在运行时将输出字段设置为“准备输入”。
REPORT ZJESSE02.
WRITE 'Please fill in your name before printing:'.
WRITE / ' Enter name here ' INPUT ON.
ULINE.
WRITE 'You can overwrite the following line:'.
FORMAT INPUT ON INTENSIFIED OFF.
ULINE.
FORMAT INPUT OFF INTENSIFIED ON.
将字段输出为热点
FORMAT HOTSPOT [ON|OFF]
REPORT ZJESSE02.
INCLUDE <LIST>.
START-OF-SELECTION.
WRITE 'Now comes a'.
FORMAT HOTSPOT ON COLOR 5 INVERSE ON.
WRITE 'HOTSPOT'.
FORMAT HOTSPOT OFF COLOR OFF.
AT LINE-SELECTION.
WRITE / 'New list AT-LINE-SELECTION'.
SKIP.
WRITE 'This is also a hotspot:'.
WRITE ICON_LIST AS ICON HOTSPOT.
在本程序中 ，首行的 START-OF-SELECTION事件部分格式化为热点。标准页眉定义为文本元素。如果用户将鼠标移动到输出的 HOTSPOT 单词上，则鼠标指针更改为手形。单击触发事件AT-LINE-SELECTION。 在该事件中 ，程序创建包含其他热点的辅助列表。
特殊输出格式
SET COUNTRY <c>.
REPORT ZJESSE02 LINE-SIZE 40.
DATA: NUM TYPE P DECIMALS 3 VALUE '123456.789'.
ULINE.
WRITE: / 'INITIAL:'.
WRITE: / NUM, SY-DATUM.
ULINE.
SET COUNTRY 'US'.
WRITE: / 'US, SY-SUBRC:', SY-SUBRC.
WRITE: / NUM, SY-DATUM.
ULINE.
SET COUNTRY 'GB'.
WRITE: / 'GB, SY-SUBRC:', SY-SUBRC.
WRITE: / NUM, SY-DATUM.
ULINE.
SET COUNTRY 'DE'.
WRITE: / 'DE, SY-SUBRC:', SY-SUBRC.
WRITE: / NUM, SY-DATUM.
ULINE.
SET COUNTRY 'XYZ'.
WRITE: / 'XYZ, SY-SUBRC:', SY-SUBRC.
WRITE: / NUM, SY-DATUM.
ULINE.
SET COUNTRY SPACE.
WRITE: / 'SPACE, SY-SUBRC:', SY-SUBRC.
WRITE: / NUM, SY-DATUM.
ULINE.
运行结果如下：
JESSE的ABAP程序 1
INITIAL:
123,456.789 2011-07-16
US, SY-SUBRC: 0
123,456.789 07/16/2011
GB, SY-SUBRC: 0
123,456.789 16.07.2011
DE, SY-SUBRC: 0
123.456,789 16.07.2011
XYZ, SY-SUBRC: 4
123,456.789 07/16/2011
SPACE, SY-SUBRC: 0
123,456.789 2011-07-16
货币特有的输出格式
WRITE <f> CURRENCY<c>.
REPORT ZJESSE02 LINE-SIZE 40.
DATA: NUM1 TYPE P DECIMALS 4 VALUE '12.3456',
NUM2 TYPE P VALUE '123456'.
SET COUNTRY 'US'.
WRITE: 'USD', NUM1 CURRENCY 'USD', NUM2 CURRENCY 'USD',
/ 'BEF', NUM1 CURRENCY 'BEF', NUM2 CURRENCY 'BEF',
/ 'KUD', NUM1 CURRENCY 'KUD', NUM2 CURRENCY 'KUD'.
JESSE的ABAP程序 1
USD 1,234.56 1,234.56
BEF 123,456 123,456
KUD 123.456 123.456
单位特有输出格式
WRITE <f> UNIT<u>.
REPORT ZJESSE02 LINE-SIZE 40.
DATA: NUM1 TYPE P DECIMALS 1 VALUE 1,
NUM2 TYPE P DECIMALS 4 VALUE '2.5'.
SET COUNTRY 'US'.
WRITE: 'KG', NUM1 UNIT 'KG', NUM2 UNIT 'KG',
/ 'PC', NUM1 UNIT 'PC', NUM2 UNIT 'PC'.
JESSE的ABAP程序 1
KG 1 2.5000
PC 1.0 2.5000
画线、框架和网格
直接：
REPORT ZJESSE02 NO STANDARD PAGE HEADING.
SKIP TO LINE 3.
ULINE AT 2(1).
WRITE 4 '-'.
WRITE 6 '--'.
WRITE 9 '---'.
ULINE AT 12(4).
SKIP TO LINE 1.
POSITION 18.
WRITE '|'.
SKIP TO LINE 3.
DO 4 TIMES.
NEW-LINE.
POSITION 18.
WRITE '|'.
ENDDO.
第一条 ULINE 语句创建一列的水平线 。第一条 WRITE 语句的连字符显示为正常输出字段。第二条 WRITE语句的连字符创建两列宽的直线。下面三个连字符与 ULINE 语句一起创建七列宽的直线。输出的第一个 '|'字符在第一行中创建垂直线。其他四个 '|' 字符创建 条线段长的直线，从第 3 行开始。
角
REPORT ZJESSE02 NO STANDARD PAGE HEADING.
WRITE '--'.
WRITE / '|'.
SKIP TO LINE 1.
ULINE AT 5(6).
NEW-LINE.
WRITE 10 '|'.
SKIP TO LINE 4.
WRITE: '| |',
/ '----------'.
T型交叉
REPORT ZJESSE02 NO STANDARD PAGE HEADING.
WRITE '---'.
WRITE /2 '| |'.
ULINE AT /5(8).
SKIP TO LINE 4.
DO 3 TIMES.
WRITE '|'.
NEW-LINE.
ENDDO.
SKIP TO LINE 5.
WRITE '---------'.
SKIP TO LINE 4.
ULINE AT 6(10).
WRITE 15 '|' .
十字交叉
REPORT ZJESSE02 NO STANDARD PAGE HEADING.
WRITE ' |'.
WRITE /'-------'.
WRITE /' |'.
SKIP TO LINE 1.
DO 3 TIMES.
WRITE 12 SY-VLINE.
NEW-LINE.
ENDDO.
SKIP TO LINE 2.
ULINE AT 12(1).
特殊线
REPORT ZJESSE02 NO STANDARD PAGE HEADING LINE-SIZE 60.
INCLUDE <LINE>.
DATA: X0 TYPE I VALUE 10,
Y0 TYPE I VALUE 10,
N TYPE I VALUE 16,
I TYPE I VALUE 0,
X TYPE I, Y TYPE I.
X = X0. Y = Y0. PERFORM POS.
WHILE I LE N.
WRITE LINE_BOTTOM_LEFT_CORNER AS LINE.
X = X + 1. PERFORM POS.
ULINE AT X(I).
X = X + I. PERFORM POS.
WRITE LINE_BOTTOM_RIGHT_CORNER AS LINE.
Y = Y - 1. PERFORM POS.
DO I TIMES.
WRITE '|'.
Y = Y - 1. PERFORM POS.
ENDDO.
WRITE LINE_TOP_RIGHT_CORNER AS LINE.
I = I + 1.
X = X - I. PERFORM POS.
ULINE AT X(I).
X = X - 1. PERFORM POS.
WRITE LINE_TOP_LEFT_CORNER AS LINE.
Y = Y + 1. PERFORM POS.
DO I TIMES.
WRITE '|'.
Y = Y + 1. PERFORM POS.
ENDDO.
I = I + 1.
ENDWHILE.
FORM POS.
SKIP TO LINE Y.
POSITION X.
ENDFORM.
运行结果如下所示：
编程框架
可以使用ABAP/4中可用的线类型编程框架。下面的样本程序定义宏WRITE_FRAME，可以取代WRITE<f>语句。系统在WRITE_FRAME语句指定的字段<f>周围画框架，该框架字段动态适配该字段的长度。
REPORT ZJESSE02 NO STANDARD PAGE HEADING LINE-SIZE 60.
DATA: X TYPE I, Y TYPE I, L TYPE I.
DEFINE WRITE_FRAME.
X = SY-COLNO. Y = SY-LINNO.
WRITE: '|' NO-GAP, &1 NO-GAP, '|' NO-GAP.
L = SY-COLNO - X.
Y = Y - 1. SKIP TO LINE Y. POSITION X.
ULINE AT X(L).
Y = Y + 2. SKIP TO LINE Y. POSITION X.
ULINE AT X(L).
Y = Y - 1. X = SY-COLNO. SKIP TO LINE Y. POSITION X.
END-OF-DEFINITION.
SKIP.
WRITE 'Demonstrating'.
WRITE_FRAME 'dynamic frames'.
WRITE 'in'.
WRITE_FRAME 'ABAP/4'.
WRITE 'output lists.'.
运行结果：
编程网络
REPORT ZJESSE02 NO STANDARD PAGE HEADING LINE-SIZE 60.
TABLES SPFLI.
DATA: X TYPE I, Y TYPE I, L TYPE I.
TOP-OF-PAGE.
WRITE 3 'List of Flights in a Dynamic Grid'
COLOR COL_HEADING.
ULINE.
START-OF-SELECTION.
DEFINE NEW_GRID.
Y = SY-LINNO. Y = Y + 2. SKIP TO LINE Y.
X = SY-COLNO. POSITION X. WRITE '|'.
END-OF-DEFINITION.
DEFINE WRITE_GRID.
X = SY-COLNO. Y = SY-LINNO. POSITION X.
WRITE: &1, '|'.
L = SY-COLNO - X + 1.
X = X - 2. Y = Y + 1. SKIP TO LINE Y. POSITION X.
ULINE AT X(L).
Y = Y - 1. X = SY-COLNO. SKIP TO LINE Y. POSITION X.
END-OF-DEFINITION.
GET SPFLI.
NEW_GRID.
WRITE_GRID: SPFLI-CARRID,
SPFLI-CONNID,
SPFLI-CITYFROM,
SPFLI-CITYTO.
运行结果：