[SAP-ABAP] - Convert XML to ITAB

*&---------------------------------------------------------------------*
*& Report  YO_XML_TO_ITAB
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  yo_xml_to_itab LINE-COUNT 30 LINE-SIZE 1023.

TYPES BEGIN OF ty_data,
          line(1024),
        END OF ty_data.

DATA gi_data TYPE STANDARD TABLE OF ty_data WITH HEADER LINE.

PARAMETERS p_file TYPE string DEFAULT 'D:\BS101-06.xml'.

START-OF-SELECTION.

  CALL FUNCTION 'GUI_UPLOAD'
    EXPORTING
      filename p_file
    TABLES
      data_tab gi_data.

  IF LINESgi_data 0.
    DATA lv_xml TYPE  xstring,
           li_xml LIKE STANDARD TABLE OF smum_xmltb WITH HEADER LINE,
           li_return LIKE STANDARD TABLE OF bapiret2 WITH HEADER LINE.

    CALL FUNCTION 'SCMS_TEXT_TO_XSTRING'
     IMPORTING
       buffer           lv_xml
      TABLES
        text_tab         gi_data.

    CALL FUNCTION 'SMUM_XML_PARSE'
      EXPORTING
        xml_input lv_xml
      TABLES
        xml_table li_xml
        return    li_return.

    LOOP AT li_xml.
      WRITE /(03)  li_xml-hier COLOR 1,
               (10)  li_xml-type,
               (50li_xml-cname,
               (100li_xml-cvalue.
    ENDLOOP.

  ENDIF.

Comments