REPORT YTEST001.
DATA wa LIKE spfli.
WRITE: /.
WRITE: 10'航班承运人',40'航班连接',60'国家代码',80'起飞城市',100'起飞机场'.
SELECT * INTO wa FROM spfli.
WRITE: / wa-carrid UNDER '航班承运人',
wa-connid UNDER '航班连接',
wa-countryfr UNDER '国家代码',
wa-cityfrom UNDER '起飞城市',
wa-airpfrom UNDER '起飞机场'.
ENDSELECT.
本例通过 UNDER 定位输出位置,输出结果如图3-9 所示。
标准列表输出
数据库表SPFLI相关
TABLES spfli.
SKIP.
*输出表头
ULINE AT /(91).
WRITE: / sy-vline,(15) '航线承运人',
sy-vline,(15) '航班连接',
sy-vline,(15) '国家代码',
sy-vline,(15) '起飞城市',
sy-vline,(15) '起飞机场',
sy-vline.
ULINE AT /(91).
*输出内容
SELECT * FROM spfli.
WRITE: / sy-vline,(15) spfli-carrid,
sy-vline,(15) spfli-connid,
sy-vline,(15) spfli-countryto,
sy-vline,(15) spfli-cityfrom,
sy-vline,(15) spfli-airpfrom,
sy-vline.
ULINE AT /(91).
ENDSELECT.
TABLES spfli.
SKIP.
*输出表头
ULINE AT /(91).
WRITE: / sy-vline,(15) '国家代码',
sy-vline,(15) '航线承运人',
sy-vline,(15) '航班连接',
sy-vline,(15) '起飞城市',
sy-vline,(15) '起飞机场',
sy-vline.
ULINE AT /(91).
*输出内容
SELECT * FROM spfli.
WRITE: / sy-vline,(15) spfli-countryto,
sy-vline,(15) spfli-carrid,
sy-vline,(15) spfli-connid,
sy-vline,(15) spfli-cityfrom,
sy-vline,(15) spfli-airpfrom,
sy-vline.
write:/ sy-vline.
IF spfli-countryto EQ 'MQ' OR spfli-countryto EQ 'DE'.
ULINE AT 1(91).
ELSE.
ULINE AT 19(73).
* WRITE:/ SY-VLINE.
ENDIF.
ENDSELECT.
SY-PAGNO | 当前页号 | SY-LSIND | 列表索引页 |
SY-DATUM | 当前时间 | SY-LISTI | 上一个列表的索引 |
SY-LINSZ | 当前报表宽度 | SY-LILLI | 绝对列表中选定的行号 |
SY-LINCT | 当前报表长度 | SY-CUROW | 屏幕上的行 |
SPACE | 空字串 | SY-CUCOL | 光标列 |
SY-SUBRC | 执行状态0 表示成功 | SY-CPAGE | 列表的当前显示页 |
SY-UNAME | 用户名 | SY-STARO | 真实行号 |
SY-UZEIT | 当前时间 | SY-LISEL | 选择行的内容,长度为255 |
SY-TCODE | 当前的 | TCODE SY-LINNO | 当前行 |