DATA: l_dom TYPE REF TO if_ixml_element,
m_document TYPE REF TO if_ixml_document,
l_ixml TYPE REF TO if_ixml,
lv_string TYPE xstring,
lv_size LIKE sy-tabix,
lv_rc LIKE sy-subrc.
* 创建xml接口对象
CLASS cl_ixml DEFINITION LOAD.
l_ixml = cl_ixml=>create( ).
CHECK NOT l_ixml IS INITIAL.
* 创建文档对象
m_document = l_ixml->create_document( ).
CHECK NOT m_document IS INITIAL.
* 按照XML文档结构转换数据
CALL FUNCTION 'SDIXML_DATA_TO_DOM'
EXPORTING
name = 'ITAB_DATA'
dataobject = itab_data[]
IMPORTING
data_as_dom = l_dom
CHANGING
document = m_document
EXCEPTIONS
illegal_name = 1
OTHERS = 2.
CHECK NOT l_dom IS INITIAL.
lv_rc = m_document->append_child( new_child = l_dom ).
* 将XML数据输出为内表
CALL FUNCTION 'SDIXML_DOM_TO_XML'
EXPORTING
document = m_document
IMPORTING
xml_as_string = lv_string
size = lv_size
TABLES
xml_as_table = itab_xml
EXCEPTIONS
no_document = 1
OTHERS = 2.
m_document TYPE REF TO if_ixml_document,
l_ixml TYPE REF TO if_ixml,
lv_string TYPE xstring,
lv_size LIKE sy-tabix,
lv_rc LIKE sy-subrc.
* 创建xml接口对象
CLASS cl_ixml DEFINITION LOAD.
l_ixml = cl_ixml=>create( ).
CHECK NOT l_ixml IS INITIAL.
* 创建文档对象
m_document = l_ixml->create_document( ).
CHECK NOT m_document IS INITIAL.
* 按照XML文档结构转换数据
CALL FUNCTION 'SDIXML_DATA_TO_DOM'
EXPORTING
name = 'ITAB_DATA'
dataobject = itab_data[]
IMPORTING
data_as_dom = l_dom
CHANGING
document = m_document
EXCEPTIONS
illegal_name = 1
OTHERS = 2.
CHECK NOT l_dom IS INITIAL.
lv_rc = m_document->append_child( new_child = l_dom ).
* 将XML数据输出为内表
CALL FUNCTION 'SDIXML_DOM_TO_XML'
EXPORTING
document = m_document
IMPORTING
xml_as_string = lv_string
size = lv_size
TABLES
xml_as_table = itab_xml
EXCEPTIONS
no_document = 1
OTHERS = 2.
本文详细介绍了如何使用ABAP创建XML接口对象、文档对象,并按照XML文档结构转换数据,最后将XML数据输出为内表的过程。重点在于数据转换与XML操作的实现,适用于需要在ABAP中进行复杂XML数据处理的场景。
918

被折叠的 条评论
为什么被折叠?



