To convert XML to ABAP internal table can we do it with DOM or we need XSLT

Question

I have a requirement where I need to collect the data from XML file into an internal table.
I need to collect this data into an internal table as I should make use of this data and do Goods Receipt in SAP.
My XML file is very very complex and the child nodes in my XML file may occur ones or 10 times and change dynamically.
I want to know if XML to ABAP internal table is possible with DOM or does it need XSLT too.
I used the blog of Robert which uses DOM, but it I am unable to collect the data in internal table. The blog explains only how to wtite the out put to screen as element and value.
I want to know if XML to ABAP internal table is possible with DOM or do I need XSLT too? I am confused please help.
Any help will be highly appreciated.
Regards,
Jessica Sam

Answer 1

Hello Jessica
Why not using the DOM itself for processing?
Below you see the post-processing coding which I use to add the interchange control number (ICN) into an EDI message (which at this stage is still an XML-EDI stream). This is done on SAP-XI yet on the ABAP stack so you could use this approach on your R/3 system as well.
method POSTPROCESSING.
* Post-Processing of outbound EDI invoices & dispatch advices
  me->map_icn( ).
endmethod.
method MAP_ICN.
* define local data
  DATA: lo_node       TYPE REF TO if_ixml_node,
        ld_name       TYPE string,
        ld_value      TYPE string,
        ld_error_code type MPG_ERRCODE,
**        ld_control_number   TYPE char13,
        ld_rc         TYPE i,
        ld_msg        TYPE string.  " bapi_msg.
  DATA: ld_interface  TYPE string.
  DATA: incode TYPE REF TO if_ixml_node_collection.
  LOG-POINT ID zedi
    SUBKEY mc_subkey_method_trace.
  ld_error_code = md_clsname.
* Get next interchange control number (ICN)
  me->md_next_number = me->get_next_number(
      id_nrobj  = me->md_nrobj   " Object (SNRO)
      id_nrnr   = me->md_nrnr ). " Number Range
  CALL METHOD zcl_edi_uk_counter=>calculate_modulo_n09
    EXPORTING
      id_input  = me->md_next_number
    receiving
      rd_output = me->md_next_number.
* Build ICN according to naming conventions agreed with EDI customer
  me->md_icn = me->generate_icn( me->md_next_number ).
  ld_value = me->md_icn.  " type conversion to string
  CLEAR: incode,
         lo_node.
  incode  = me->mo_document->get_elements_by_tag_name( mc_d_0020 ).
  lo_node = incode->get_item( index = 0 ).
  CALL METHOD lo_node->set_value
    EXPORTING
      value = ld_value
    RECEIVING
      rval  = ld_rc.
  IF ( ld_rc NE 0 ).
    CONCATENATE 'Error [' mc_d_0020
                ']: Method SET_VALUE (IF_IXML_NODE)'
                INTO ld_msg.
    CONDENSE ld_msg.
    me->mif_trace->trace2( message = ld_msg ).
    RAISE EXCEPTION TYPE cx_mapping_fault
      EXPORTING
*        textid =
*        previous =
        error_code = ld_error_code
        error_text = ld_msg.
**    MESSAGE ld_msg TYPE 'A'.
  ENDIF.
  CLEAR: incode,
         lo_node.
  incode  = me->mo_document->get_elements_by_tag_name( mc_d_0020_2 ).  " element for ICN
  lo_node = incode->get_item( index = 0 ).
  CALL METHOD lo_node->set_value
    EXPORTING
      value = ld_value
    RECEIVING
      rval  = ld_rc.
  IF ( ld_rc NE 0 ).
    CONCATENATE 'Error [' mc_d_0020_2
                ']: Method SET_VALUE (IF_IXML_NODE)'
                INTO ld_msg.
    CONDENSE ld_msg.
    me->mif_trace->trace2( message = ld_msg ).
    RAISE EXCEPTION TYPE cx_mapping_fault
      EXPORTING
*        textid =
*        previous =
        error_code = ld_error_code
        error_text = ld_msg.
**    MESSAGE ld_msg TYPE 'A'.
  ENDIF.
* define local data
  DATA: ls_record       TYPE mpp_dynamic.
  CLEAR: ls_record.
  ls_record-namespace = mc_dynamic_namespace.
  ls_record-name      = mc_icn.
  ls_record-value     = ld_value.
  mif_dynamic->add_record( ls_record ).
endmethod.
In your case you would need to do a DO...ENDDO loop until you parsed all required nodes.
NOTE: ME->MO_DOCUMENT is of TYPE REF TO IF_IXML_DOCUMENT.
Regards
   Uwe