IXML - Reading a specific tag/specific attribute

Question

Hi,
I'm trying to get out a specific tag ans specific attribute from an xml string.
I built my method based on BCCIIXMLT2 & BCCIIXMLT11 and Parsing XML file to Internal table., however it doesn't seem to work.
I already tried 2 approach, none of them worked
The loops are ended before the get_attributes method is called.
My code:
METHOD /eby/if_xml_output_writer~finish_element.
* Based on program BCCIIXMLT2 & BCCIIXMLT11
* \\ ======= iXML =======
  DATA:
    lr_ixml           TYPE REF TO if_ixml,
    lr_xml_doc        TYPE REF TO if_ixml_document,
    lr_node           TYPE REF TO if_ixml_node,
*    lr_iterator       TYPE REF TO if_ixml_inline_iterator,
    lr_iterator       TYPE REF TO if_ixml_node_iterator,
    lr_nodemap        TYPE REF TO if_ixml_named_node_map,
    lr_stream_factory TYPE REF TO if_ixml_stream_factory,
    lr_istream        TYPE REF TO if_ixml_istream,
    lr_parser         TYPE REF TO if_ixml_parser,
    lr_nnmap          TYPE REF TO if_ixml_named_node_map,
    lr_attr           TYPE REF TO if_ixml_node,
    lc_name           TYPE string,
    lc_value          TYPE string,
    lc_prefix         TYPE string,
    li_type           TYPE i,
    li_indent         TYPE i,
    li_index          TYPE i,
    li_count          TYPE i.
* // ======= iXML =======
*=======================================================================
  CLASS     cl_ixml          DEFINITION LOAD.
*=======================================================================
  CHECK i_parent IS INITIAL.
*-- Create the main factory
  lr_ixml = cl_ixml=>create( ).
*-- Create the initial document
  lr_xml_doc = lr_ixml->create_document( ).
*-- Create the stream factory
  lr_stream_factory = lr_ixml->create_stream_factory( ).
*-- Create a stream for the input (string)
  lr_istream = lr_stream_factory->create_istream_cstring( i_input ).
*-- Create the parser
lr_parser = lr_ixml->create_parser( stream_factory = lr_stream_factory
                                     istream        = lr_istream
                                     document       = lr_xml_doc ).
*-- We don't need the stream any more, so let's close it...
  lr_istream->close( ).
* 1st attempt
*  lr_node = lr_xml_doc.
*  lr_iterator = lr_node->create_inline_iterator( ).
*  li_type     = lr_iterator->get_type( ).
*  WHILE li_type NE 0.
*    li_indent = lr_iterator->get_height( ) * 2.
*    CASE li_type.
*      WHEN if_ixml_node=>co_node_element.
*        lr_nnmap = lr_iterator->get_attributes( ).
*        li_index = 0.
*        li_count  = lr_nnmap->get_length( ).
*        WHILE li_index < li_count.
*          lr_attr  = lr_nnmap->get_item( li_index ).
*          lc_name  = lr_attr->get_name( ).
*          lc_value = lr_attr->get_value( ).
*          li_index = li_index + 1.
*        ENDWHILE.
*    ENDCASE.
*    li_type = lr_iterator->advance( ).
*  ENDWHILE.
* 2nd attempt
  lr_node ?= lr_xml_doc.
* Create a node iterator
  lr_iterator = lr_node->create_iterator( ).
* Get current node
  lr_node = lr_iterator->get_next( ).
* Loop over all nodes
  WHILE NOT lr_node IS INITIAL.
    li_indent = lr_node->get_height( ) * 2.
    li_indent = li_indent + 20.
    CASE lr_node->get_type( ).
      WHEN if_ixml_node=>co_node_element.
*       Element node
        lc_name = lr_node->get_name( ).
        lr_nodemap = lr_node->get_attributes( ).
        IF NOT lr_nodemap IS INITIAL.
*         Attributes
          li_count = lr_nodemap->get_length( ).
          DO li_count TIMES.
            li_index  = sy-index - 1.
            lr_attr   = lr_nodemap->get_item( li_index ).
            lc_name   = lr_attr->get_name( ).
            lc_prefix = lr_attr->get_namespace_prefix( ).
            lc_value  = lr_attr->get_value( ).
          ENDDO.
        ENDIF.
      WHEN if_ixml_node=>co_node_text OR
           if_ixml_node=>co_node_cdata_section.
*       Text node
        lc_value = lr_node->get_value( ).
    ENDCASE.
*   Advance to next node
    lr_node = lr_iterator->get_next( ).
  ENDWHILE.
ENDMETHOD.
Any idea what could be wrong?
Thanks in advance,
Peter

Answer 1

Thanks!
Unfortunately my code should also work on 46C, so XLST is not an option. Anyway I used some code from SAPLink  and it works fine now.
*-- Create the main factory
  lr_ixml = cl_ixml=>create( ).
*-- Create the initial document
  lr_xml_doc = lr_ixml->create_document( ).
*-- Create the stream factory
  lr_stream_factory = lr_ixml->create_stream_factory( ).
*-- Create a stream for the input (string)
  lr_istream = lr_stream_factory->create_istream_cstring( i_input ).
*-- Create the parser
  lr_parser = lr_ixml->create_parser(
                      stream_factory = lr_stream_factory
                      istream        = lr_istream
                      document       = lr_xml_doc ).
*-- Parse the stream
  lr_parser->parse( ).
*-- We don't need the stream any more, so let's close it...
  CLEAR lr_istream.
* Find the tag
  lr_rootnode = lr_xml_doc->find_from_name( c_tag_structureddocument ).
  lr_attributelist = lr_rootnode->get_attributes( ).
  lr_nodeiterator  = lr_attributelist->create_iterator( ).
  lr_attributenode = lr_nodeiterator->get_next( ).
* Find the attribute
  WHILE lr_attributenode IS NOT INITIAL.
    lc_name = lr_attributenode->get_name( ).
    IF lc_name = c_attribute_id.
      lc_value = lr_attributenode->get_value( ).
      EXIT.
    ENDIF.
    lr_attributenode = lr_nodeiterator->get_next( ).
  ENDWHILE.
  mc_output = lc_value.