ABAP WRITE语句
ABAP使用Write,Write TO语句。
示例：
"******************************************************************
"Write使用
"******************************************************************
FORM f_test_write.
DATA testTxt TYPE String value 'hello world!'.
WRITE at / testTxt."换行
WRITE at /5 testTxt."从第5列开始输出
WRITE at /(10) testTxt."只显示10位字符
WRITE at /5(15) testTxt."从第5列开始显示15位字符
WRITE:/'****************************'.
"write <obj> <format> 按照固定格式显示
WRITE / testTxt LEFT-JUSTIFIED. "靠左显示
WRITE / testTxt RIGHT-JUSTIFIED. "靠右显示
WRITE / testTxt CENTERED. "居中显示
WRITE / testTxt NO-GAP. "无空格显示
DATA testTime type String value '1234311111'.
WRITE / testTime USING EDIT MASK '__:__:__'. "使用固定格式显示
Data testData type String value '00000134'.
WRITE / testData no-ZERO."不输出前面0, no-sign 不输出正负号
DATA testData1 type F value '3.44444'.
WRITE / testData1 DECIMALS 3 . "显示小数点后位数
DATA testData2 type F value '3.44564'.
WRITE / testData2 ROUND 3. "四舍五入小数位数
"write as checkbox
WRITE:/'****************************'.
DATA: FLAG1 VALUE '',
FLAG2 VALUE 'X'.
WRITE: / 'CHECK FLAG 1:' , FLAG1 AS CHECKBOX.
WRITE: / 'CHECK FLAG 2:' , FLAG2 AS CHECKBOX.
"write as sinbol Icon
INCLUDE <SYMBOL>.
INCLUDE <ICON>.
WRITE: / 'Phone Symbol:' , SYM_PHONE AS SYMBOL.
WRITE: / 'Alarm Icon:' , ICON_ALARM AS ICON.
"write to
"语法：WRITE {source|(source_name)} TO destination [format_options].
"format_options:
* [LEFT-JUSTIFIED|CENTERED|RIGHT-JUSTIFIED]
* { { [EXPONENT exp]
* [NO-GROUPING]
* [NO-SIGN]
* [NO-ZERO]
* [CURRENCY cur]
* { { [DECIMALS dec]
* [ROUND scale] }
* | [UNIT unit] } }
* | { [ENVIRONMENT TIME FORMAT]
* [TIME ZONE tz] }
* [STYLE stl] }
* [USING { {NO EDIT MASK}|{EDIT MASK mask} }]
* [ DD/MM/YY | MM/DD/YY
* | DD/MM/YYYY | MM/DD/YYYY
* | DDMMYY | MMDDYY
* | YYMMDD ]
"示例1:转换xx,xxx
DATA: testString TYPE string.
DATA: testFloat TYPE P LENGTH 16 DECIMALS 2.
DATA: testChar(20) TYPE C.
testString = '-113233.00'.
testFloat = testString.
"转换为xxx,xxx表示
WRITE testFloat TO testChar.
WRITE:/ testChar.
"去除前置空格
CONDENSE testChar NO-GAPS.
"添加负号
testString = '-' && testChar.
WRITE:/ testString.
"示例2：
DATA:date_long TYPE c LENGTH 10.
DATA:date_short TYPE c LENGTH 8.
DATA:date_mask TYPE c LENGTH 8.
WRITE sy-datlo TO: date_short,
date_long,
date_mask DD/MM/YY.
WRITE:/ date_short,date_long,date_mask.
"示例3：字符串位置left,center,right
DATA formatted_text TYPE c LENGTH 50.
WRITE 'Left' TO formatted_text LEFT-JUSTIFIED.
"MESSAGE formatted_text TYPE 'I'.
WRITE:/ formatted_text.
WRITE 'Center' TO formatted_text CENTERED.
"MESSAGE formatted_text TYPE 'I'.
WRITE:/ formatted_text.
WRITE 'Right' TO formatted_text RIGHT-JUSTIFIED.
"MESSAGE formatted_text TYPE 'I'.
WRITE:/ formatted_text.
"示例4：EXPONENT exp
DATA: float TYPE f.
DATA: formatted_text1 TYPE c LENGTH 6.
float = SQRT( 2 ).
WRITE float TO formatted_text1 EXPONENT 0.
WRITE:/ formatted_text1.
WRITE float TO formatted_text1 EXPONENT 1.
WRITE:/ formatted_text1.
"示例5： NO—GROUPING,不添加千分符
DATA: test_number(10) TYPE P DECIMALS 2.
DATA: formatted_text2 TYPE c LENGTH 6.
test_number = '3333.33'.
WRITE test_number TO formatted_text2 NO-GROUPING.
"*33.33,千分符变成*
WRITE:/ formatted_text2.
"示例6： NO-SIGN
DATA: test_number1(10) TYPE P DECIMALS 2.
DATA: test_number2 TYPE I.
DATA: formatted_text3 TYPE c LENGTH 6.
test_number1 = '3333.33'.
test_number2 = -15.
WRITE test_number1 TO formatted_text3 NO-SIGN.
"*33.33?
WRITE:/ formatted_text3.
WRITE test_number2 TO formatted_text3 NO-SIGN.
"15,负号去掉
WRITE:/ formatted_text3.
"示例7： NO-ZERO
"不能同时用ENVIRONMENT TIME FORMAT and TIME ZONE.
DATA: test_number3(10) TYPE N.
DATA: formatted_text4 TYPE C LENGTH 20.
test_number3 = 123.
"0000000123添加了前置0
WRITE test_number3 TO formatted_text4.
WRITE:/ formatted_text4.
"去掉前置0
WRITE test_number3 TO formatted_text4 NO-ZERO.
WRITE:/ formatted_text4.
"示例8：CURRENCY
"table:TCURX
" ENVIRONMENT TIME FORMAT and TIME ZONE
"and not for the numerical data types decfloat16 and decfloat34
DATA: test_int TYPE i VALUE 12345678.
DATA: formatted_text5 TYPE c LENGTH 10.
WRITE test_int TO formatted_text5 CURRENCY 'EUR'.
WRITE:/ formatted_text5.
"示例9：DECIMALS dec
"不能同时用ENVIRONMENT TIME FORMAT, TIME ZONE, and UNIT.
DATA: test_pack TYPE p LENGTH 8 DECIMALS 4 VALUE '1234.5678'.
DATA: formatted_text6 TYPE c LENGTH 10.
"两位小数
WRITE test_pack TO formatted_text6 DECIMALS 2.
WRITE:/ formatted_text6.
"示例10：ROUND
"不能同时用STYLE, ENVIRONMENT TIME FORMAT, TIME ZONE, and UNIT
DATA: test_pack1 TYPE p LENGTH 8 DECIMALS 0 VALUE '12345678'.
DATA: formatted_text7 TYPE c LENGTH 12.
"123,457
WRITE test_pack1 TO formatted_text7 ROUND 2.
WRITE:/ formatted_text7.
"12，346
WRITE test_pack1 TO formatted_text7 ROUND 3.
WRITE:/ formatted_text7.
"示例11：UNIT
"表：T006 字段MSEHI
"不能同时用DECIMALS, ROUND, STYLE, ENVIRONMENT TIME FORMAT, and TIME ZONE
DATA: test_pack2 TYPE p LENGTH 8 DECIMALS 4 VALUE '1234.0000'.
DATA: formatted_text8 TYPE c LENGTH 12.
WRITE test_pack2 TO formatted_text8 UNIT '%'.
WRITE:/ formatted_text8.
"示例12：
"ENVIRONMENT TIME FORMAT
"不能同时用CURRENCY, DECIMALS, EXPONENT, NO-GROUPING, NO-SIGN,
"NO-ZERO, ROUND, STYLE, TIME ZONE, or UNIT
"TIME ZONE tz
"不能同时使用CURRENCY, DECIMALS, ENVIRONMENT TIME FORMAT, EXPONENT,
"NO-GROUPING, NO-SIGN, NO-ZERO, ROUND, STYLE, or UNIT
"表TTZZ
DATA: time_stamp TYPE timestamp.
DATA: tzone TYPE timezone.
DATA: formatted_text9 TYPE c LENGTH 50.
time_stamp = 20100627180000.
tzone = 'AUSTAS'.
WRITE time_stamp TO formatted_text9 TIME ZONE tzone.
WRITE:/ formatted_text9.
"示例13
"STYLE stl
"不能同时使用CURRENCY, DD/MM/YY, ... , YYMMDD, ROUND,
"ENVIRONMENT TIME FORMAT, TIME ZONE, and UNIT
"获取format
DATA: cldescr TYPE REF TO cl_abap_classdescr,
formats TYPE abap_attrdescr_tab,
format LIKE LINE OF formats.
FIELD-SYMBOLS <format> LIKE cl_abap_format=>o_scientific.
DATA: BEGIN OF s_format,
value LIKE cl_abap_format=>e_xml_text,
name TYPE abap_attrdescr-name,
END OF s_format.
DATA:lt_formats LIKE SORTED TABLE OF s_format WITH UNIQUE KEY value.
DATA:lv_number TYPE decfloat34 VALUE '123456789.3146'.
DATA:formatted_text10 TYPE C LENGTH 20.
cldescr ?= cl_abap_classdescr=>describe_by_name( 'CL_ABAP_FORMAT' ).
formats = cldescr->attributes.
DELETE formats WHERE name NP 'O_*' OR is_constant <> 'X'.
"获取format
* O_SIMPLE
* O_SIGN_AS_POSTFIX
* O_SCALE_PRESERVING
* O_SCIENTIFIC
* O_SCIENTIFIC_WITH_LEADING_ZERO
* O_SCALE_PRESERVING_SCIENTIFIC
* O_ENGINEERING
LOOP AT formats INTO format.
ASSIGN cl_abap_format=>(format-name) TO <format>.
s_format-value = <format>.
s_format-name = format-name.
INSERT s_format INTO TABLE lt_formats.
ENDLOOP.
LOOP AT lt_formats INTO s_format.
WRITE lv_number STYLE s_format-value TO formatted_text10.
WRITE:/ formatted_text10.
ENDLOOP.
"示例14：USING { {NO EDIT MASK}|{EDIT MASK mask} }
DATA: dura TYPE i.
DATA: time TYPE t VALUE '080000'.
DATA: formatted_text11 TYPE c LENGTH 30.
dura = sy-uzeit - time.
time = dura.
"function：CONVERSION_EXIT_DURA_OUTPUT，==开头
WRITE dura TO formatted_text11 USING EDIT MASK '==SDURA'.
WRITE:/ formatted_text11.
"RR：靠右，LL：靠左,_会被替换
WRITE time TO formatted_text11 USING EDIT MASK 'RRThe duration is __:__:__'.
WRITE:/ formatted_text11.
"示例15：
* DD/MM/YY | MM/DD/YY
* | DD/MM/YYYY | MM/DD/YYYY
* | DDMMYY | MMDDYY
* | YYMMDD
DATA formatted_text12 TYPE c LENGTH 50.
WRITE sy-datlo TO formatted_text12 YYMMDD.
WRITE:/ formatted_text12.
WRITE sy-datlo TO formatted_text12 DD/MM/YYYY.
WRITE:/ formatted_text12.
ENDFORM.