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.