Write 语句

ABAP Write 语句

转载▼http://blog.sina.com.cn/s/blog_5ccd375b0100ghhi.html

 

1.Write 叙述
ABAP/4 用来在屏幕上输出数据的指令是 Write 指令

语法:
Write
资料项
数据项可以是常量或变量,
如:
WRITE ‘This is sample’.

WRITE: ‘COMPANY:’,STFL-CARRID.
2.指定屏幕位置显示

语法:
Write AT [/]
[<pos>] [(<len>] 资料项
/ :
先往下一列
pos : 屏幕X轴坐标
(len): 显示资料的长度

Example:

WRITE ‘First Line
’.
WRITE /
6 ‘Second Line’.

输出结果:

First Line

Second Line

DATA: NUMBER TYPE I VALUE
‘1234567890’.

TEXT(10) VALUE
‘ABCDEFGHIJ’.

WRITE: (5) NUMBER, /(6)
TEXT.

输出结果:

*7890

ABCDEF
3.指定显示格式

语法:
WRITE 资料项
<显示格式参数>
显示格式参数:
LEFT-JUSTIFIED
资料靠左显示

CENTERED
资料靠中间显示

RIGHT-JUSTIFIED
资料靠右显示
UNDER
<g>
在资料项<g>的X轴开始坐标显示

NO-GAP
紧接着显示, 不留空格
USING EDIT MASK
<m> 使用内嵌字符显示, 如 11:20:30

USING NO EDIT MASK 不使用内嵌字符

NO-ZERO
数字前面0 的部分不显示

NO-SIGN
不显示正负号
DECIMALS
<d>
显示 d 位小数字数
EXPONENT
<e>
F(浮点数) exponent 的值
ROUND
<r>
四舍五入至小数位数下 r 位
CURRENCY
<c>
币别显示

DD/MM/YY
日期显示格式
MM/DD/YY
DD/MM/YYYY

MM/DD/YYYY
DDMMYY
MMDDYY

YYMMDD
Example:

DATA: X TYPE I VALUE
‘112030’,

A(5) VALUE
’ABCDE’.　

WRITE X USING EDIT MASK
‘__:__:__’.

输出结果为 11:20:30

WRITE X USING EDIT MASK
‘＄___,___’
输出结果为
＄112,030
4.产生空白列
产生 n 个空白列

语法:
SKIP
[<n>]
Example:

WRITE ‘PASS1’.

SKIP.
WRITE
‘PASS2’.

输出结果为:

PASS1

PASS2
5.显示图示
可以显示R/3 系统所提供的符号或图标

语法:
WRITE
<symbol-name> AS SYMBOL

WRITE <icon-name> AS ICON
Example:

INCLUDE <SYMBOL>

INCLUDE
<ICON>

WRITE: / ‘Phone Symbol:’ , SYM_PHONE AS
SYMBOL.

WRITE: / ‘Alarm Icon:’ , ICON_ALARM AS ICON.
6.跳至指定列坐标

将坐标跳至指定的Y轴列坐标

语法:
SKIP TO LINE [<n>]

Example:

SKIP TO LINE
5.

WRITE ‘PASS1’.　
7.显示 CHECK BOX 资料
以字符串数据内容的第一个字符为 CHECK
BOX的输出, 如果是空白, CHECK BOX 显示
为空白, 相反则显示 X ,
可用在逻辑判断检查
语法:

WRITE <资料项> AS CHECKBOX.

Example:

DATA: FLAG1 VALUE
‘ ‘
.

FLAG2 VALUE
‘X’.
WRITE: /
‘CHECK FLAG 1:’ , FLAG1
AS
CHECKBOX.
WRITE:
/ ‘CHECK FLAG 2:’ , FLAG2
AS CHECKBOX.