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.