Use function module SMUM_XML_PARSE to parse XML document into a table structure.
Let us upload the below XML document that contains student information to student internal table.
Below code uploads the XML file to XML table using FM SMUM_XML_PARSE.
*&---------------------------------------------------------------------*
*& Data Declaration
*&---------------------------------------------------------------------*
DATA: gcl_xml TYPE REF TO cl_xml_document.
DATA: gv_subrc TYPE sy-subrc.
DATA: gv_xml_string TYPE xstring.
DATA: gv_size TYPE sytabix.
DATA: gt_xml_data TYPE TABLE OF smum_xmltb.
DATA: gwa_xml_data TYPE smum_xmltb.
DATA: gt_return TYPE TABLE OF bapiret2.
DATA: gv_tabix TYPE sytabix.
*&---------------------------------------------------------------------*
*& start-of-selection
*&---------------------------------------------------------------------*
START-OF-SELECTION.
CREATE OBJECT gcl_xml.
*Upload XML File
CALL METHOD gcl_xml->import_from_file
EXPORTING
filename = 'c:\test.xml'
RECEIVING
retcode = gv_subrc.
IF gv_subrc = 0.
CALL METHOD gcl_xml->render_2_xstring
IMPORTING
retcode = gv_subrc
stream = gv_xml_string
size = gv_size.
IF gv_subrc = 0.
* Convert XML to internal table
CALL FUNCTION 'SMUM_XML_PARSE'
EXPORTING
xml_input = gv_xml_string
TABLES
xml_table = gt_xml_data
return = gt_return.
ENDIF.
ENDIF.
WRITE:/ 'Heirarchy',11 'Type',17 'Name',37 'Value'.
LOOP AT gt_xml_data INTO gwa_xml_data.
WRITE:/ gwa_xml_data-hier,11 gwa_xml_data-type,17 gwa_xml_data-cname,37
gwa_xml_data-cvalue.
CLEAR gwa_xml_data.
ENDLOOP. Output
In the above XML file, List is the root element. So the the hierarchy for List is 1. Student is child of List and hence the hierarchy of Student is 2 and so on.
Type is “A” for attributes, “V” for nodes with values and empty for all other nodes/elements.
Instead of just displaying the XML table data, the below program moves the XML table data to target student internal table and displays the student table data.
*&---------------------------------------------------------------------*
*& Data Types
*&---------------------------------------------------------------------*
TYPES: BEGIN OF ty_student,
id(2),
name(20),
place(20),
END OF ty_student.
*&---------------------------------------------------------------------*
*& Data Declaration
*&---------------------------------------------------------------------*
DATA: gcl_xml TYPE REF TO cl_xml_document.
DATA: gv_subrc TYPE sy-subrc.
DATA: gv_xml_string TYPE xstring.
DATA: gv_size TYPE sytabix.
DATA: gt_xml_data TYPE TABLE OF smum_xmltb.
DATA: gwa_xml_data TYPE smum_xmltb.
DATA: gt_return TYPE TABLE OF bapiret2.
DATA: gv_tabix TYPE sytabix.
DATA: gt_student TYPE TABLE OF ty_student.
DATA: gwa_student TYPE ty_student.
*&---------------------------------------------------------------------*
*& start-of-selection
*&---------------------------------------------------------------------*
START-OF-SELECTION.
CREATE OBJECT gcl_xml.
*Upload XML File
CALL METHOD gcl_xml->import_from_file
EXPORTING
filename = 'c:\test.xml'
RECEIVING
retcode = gv_subrc.
IF gv_subrc = 0.
CALL METHOD gcl_xml->render_2_xstring
IMPORTING
retcode = gv_subrc
stream = gv_xml_string
size = gv_size.
IF gv_subrc = 0.
* Convert XML to internal table
CALL FUNCTION 'SMUM_XML_PARSE'
EXPORTING
xml_input = gv_xml_string
TABLES
xml_table = gt_xml_data
return = gt_return.
ENDIF.
ENDIF.
WRITE:/ 'ID',6 'Name',26 'Place'.
*Convert XML internal table to Target Student table
LOOP AT gt_xml_data INTO gwa_xml_data WHERE hier EQ 2.
IF gwa_xml_data-type is INITIAL.
gv_tabix = sy-tabix + 1.
READ TABLE gt_xml_data INTO gwa_xml_data INDEX gv_tabix.
gwa_student-id = gwa_xml_data-cvalue.
gv_tabix = gv_tabix + 1.
READ TABLE gt_xml_data INTO gwa_xml_data INDEX gv_tabix.
gwa_student-name = gwa_xml_data-cvalue.
gv_tabix = gv_tabix + 1.
READ TABLE gt_xml_data INTO gwa_xml_data INDEX gv_tabix.
gwa_student-place = gwa_xml_data-cvalue.
APPEND gwa_student to gt_student.
ENDIF.
CLEAR: gwa_xml_data, gwa_student.
ENDLOOP.
*Display data
LOOP AT gt_student INTO gwa_student.
WRITE:/ gwa_student-id,6 gwa_student-name,26 gwa_student-place.
CLEAR: gwa_student.
ENDLOOP. Output
