ABAP Write 语句
转载▼http://blog.sina.com.cn/s/blog_5ccd375b0100ghhi.html1.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.