利用ABAP将内表数据解析成XML字符串

将ABAP内表数据转成xml格式，SAP提供了TRANSFORMATION工具，就是新建TRANSFORMATION模板，但是这种方法会经常报错发生异常，通常是数据中包含特殊字符，除此模板是固定的也就是说xml节点是固定的，实际项目中空节点我们是不需要传递的，减少报文大小请求更快。

下面是用cl_ixml类的方法实现

1、程序代码

1. TYPE-POOLS: ixml,abap.
   
2. TYPES: BEGIN OF xml_line,
   
3.         data(256) TYPE x,
   
4.        END OF xml_line.
   
5. DATA: l_ixml            TYPE REF TO if_ixml,
   
6.       l_streamfactory   TYPE REF TO if_ixml_stream_factory,
   
7.       l_ostream         TYPE REF TO if_ixml_ostream,
   
8.       l_document        TYPE REF TO if_ixml_document.
   
9. DATA: l_element_flights TYPE REF TO if_ixml_element,
   
10.       l_element_airline TYPE REF TO if_ixml_element,
    
11.       l_element_flight  TYPE REF TO if_ixml_element,
    
12.       lv_value          TYPE string.
    
13. DATA: lt_xml_table       TYPE TABLE OF xml_line,
    
14.       l_xml_size        TYPE i.
    
15. DATA: lt_spfli          TYPE TABLE OF spfli.
    
16. DATA: lt_spfli_temp     TYPE TABLE OF spfli.
    
17. DATA: ls_spfli          TYPE spfli.
    
18. 
    
19. START-OF-SELECTION.
    
20. *   Fill the internal table
    
21.   SELECT * FROM spfli UP TO 10 ROWS INTO TABLE lt_spfli.
    
22. 
    
23. *   Sort internal table
    
24.   SORT lt_spfli BY carrid.
    
25. 
    
26. * 生成XML数据
    
27. * Creating a ixml factory
    
28.   l_ixml = cl_ixml=>create( ).
    
29. * Creating the dom object model
    
30.   l_document = l_ixml->create_document( ).
    
31. * Fill root node with value flow
    
32.   l_element_flights  = l_document->create_simple_element(
    
33.               name = 'flights'
    
34.               parent = l_document ).
    
35.   l_element_flights->set_attribute( name = 'PALNE' value = '航班计划' ).
    
36. 
    
37.   LOOP AT lt_spfli INTO ls_spfli.
    
38. 
    
39.     APPEND ls_spfli TO lt_spfli_temp.
    
40.     AT END OF carrid.
    
41.       lv_value = ls_spfli-carrid.
    
42.       l_element_airline  = l_document->create_simple_element(
    
43.                   name = 'Carrid'
    
44.                   parent = l_element_flights  ).
    
45.       l_element_airline->set_attribute( name = 'value' value = lv_value ).
    
46. 
    
47.       LOOP AT lt_spfli_temp INTO ls_spfli.
    
48.         lv_value = ls_spfli-connid.
    
49.         l_element_flight  = l_document->create_simple_element(
    
50.                     name = 'Connid'
    
51.                     value = lv_value
    
52.                     parent = l_element_airline  ).
    
53.       ENDLOOP.
    
54.       CLEAR:lt_spfli_temp[].
    
55.     ENDAT.
    
56. 
    
57.   ENDLOOP.
    
58. *   Creating a stream factory
    
59.   l_streamfactory = l_ixml->create_stream_factory( ).
    
60. *   Connect internal XML table to stream factory
    
61.   l_ostream = l_streamfactory->create_ostream_itable( table = lt_xml_table ).
    
62.   l_xml_size = l_ostream->get_num_written_raw( ).
    
63. 
    
64. *将XML转换成字符串
    
65.   DATA ls_xml TYPE string.
    
66. 
    
67.   CALL FUNCTION 'SDIXML_DOM_TO_XML'
    
68.     EXPORTING
    
69.       document     = l_document
    
70.     IMPORTING
    
71.       size         = l_xml_size
    
72.     TABLES
    
73.       xml_as_table = lt_xml_table
    
74.     EXCEPTIONS
    
75.       no_document  = 1
    
76.       OTHERS       = 2.
    
77. 
    
78.   CALL FUNCTION 'SCMS_BINARY_TO_STRING'
    
79.     EXPORTING
    
80.       input_length = l_xml_size
    
81.     IMPORTING
    
82.       text_buffer  = ls_xml
    
83.     TABLES
    
84.       binary_tab   = lt_xml_table
    
85.     EXCEPTIONS
    
86.       failed       = 1
    
87.       OTHERS       = 2.
    
88.   IF sy-subrc = 0.
    
89.     WRITE:ls_xml.
    
90.   ENDIF.

复制代码

2、Debug字符串xml格式


扩展阅读：利用ABAP将XML字符串解析成内表数据