ABAP Keyword Documentation → ABAP - Reference → Data Interfaces and Communication Interfaces → ABAP and XML → Class Libraries for XML → iXML Library → iXML Library, Examples
iXML Library, Parse to DOM
Parses simple XML data to a DOM representation.
Other versions:
7.31 | 7.40 | 7.54
Source Code
REPORT demo_ixml_parsing.
CLASS ixml_demo DEFINITION.
PUBLIC SECTION.
CLASS-METHODS
main.
PRIVATE SECTION.
CLASS-DATA out TYPE REF TO if_demo_output.
CLASS-METHODS:
process_errors
IMPORTING parser TYPE REF TO if_ixml_parser,
process_dom
IMPORTING document TYPE REF TO if_ixml_node.
ENDCLASS.
CLASS ixml_demo IMPLEMENTATION.
METHOD main.
DATA(ixml) = cl_ixml=>create( ).
DATA(stream_factory) = ixml->create_stream_factory( ).
DATA(document) = ixml->create_document( ).
DATA(parser) = ixml->create_parser(
document = document
stream_factory = stream_factory
istream = stream_factory->create_istream_string( string =
`<?xml version="1.0"?>` &&
`<order number="4711">` &&
` <head>` &&
` <status>confirmed</status>` &&
` <date format="mm-dd-yyyy">07-19-2012</date>` &&
` </head>` &&
` <body>` &&
` <item units="2" price="17.00">Part No. 0110</item>` &&
` <item units="1" price="10.50">Part No. 1609</item>` &&
` <item units="5" price="12.30">Part No. 1710</item>` &&
` </body>` &&
`</order>` ) ).
IF parser->parse( ) <> 0.
process_errors( parser ).
ELSE.
process_dom( document ).
ENDIF.
out->display( ).
ENDMETHOD.
METHOD process_dom.
IF document IS INITIAL.
RETURN.
ENDIF.
out = cl_demo_output=>new(
)->begin_section( 'DOM Tree' ).
DATA(iterator) = document->create_iterator( ).
DATA(node) = iterator->get_next( ).
WHILE NOT node IS INITIAL.
DATA(indent) = node->get_height( ) * 2.
CASE node->get_type( ).
WHEN if_ixml_node=>co_node_element.
DATA(attributes) = node->get_attributes( ).
out->write( |Element:{ repeat( val = ` `
occ = indent + 2 )
}{ node->get_name( ) }| ).
IF NOT attributes IS INITIAL.
DO attributes->get_length( ) TIMES.
DATA(attr) = attributes->get_item( sy-index - 1 ).
out->write( |Attribute:{ repeat( val = ` `
occ = indent )
}{ attr->get_name( ) } = {
attr->get_value( ) } | ).
ENDDO.
ENDIF.
WHEN if_ixml_node=>co_node_text OR
if_ixml_node=>co_node_cdata_section.
out->write( |Text:{ repeat( val = ` ` occ = indent + 5 )
}{ node->get_value( ) }| ).
ENDCASE.
node = iterator->get_next( ).
ENDWHILE.
ENDMETHOD.
METHOD process_errors.
DO parser->num_errors(
min_severity = if_ixml_parse_error=>co_warning ) TIMES.
IF parser->get_error(
index = sy-index - 1
min_severity = if_ixml_parse_error=>co_warning
)->get_severity( ) = if_ixml_parse_error=>co_warning.
out->write_text( parser->get_error(
index = sy-index - 1
min_severity = if_ixml_parse_error=>co_warning
)->get_reason( ) ).
ELSE.
out->write_text( parser->get_error(
index = sy-index - 1
min_severity = if_ixml_parse_error=>co_warning
)->get_reason( ) ).
ENDIF.
ENDDO.
ENDMETHOD.
ENDCLASS.
START-OF-SELECTION.
ixml_demo=>main( ).
Description
XML data is first transformed to an input stream object and the object is then imported into a DOM object
using a parser object. If parsed successfully, the nodes of the DOM object are compiled as output texts in the method process_dom.
An iterator is used to access the nodes. Each element is checked to see whether it has attributes. Existing attributes are then read.
If the XML data has errors, for example because a closing tag was renamed, the method process_errors is executed and the appropriate error message is displayed.