xml data into internal table

[Former Member]

Hi Friends,

See the followong code which converts xml data into itab.

&----

---

*& Report ZTEST_XML1 *

*& *

&----

---

*& *

*& *

&----

---

REPORT ZTEST_XML1 .

*----

---

*PURPOSE: This program transfers XML data into SAP internal table format

*The nodes in DOM can be stored as fields in SAP Internal table

*----

---

*----

---

• type pool definitions

*----

---

TYPE-POOLS: ixml. "iXML Library Types

*----

---

• type definitions

*----

---

TYPES: BEGIN OF t_xml_line, "Structure for holding XML data

data(256) TYPE x,

END OF t_xml_line.

DATA: l_ixml TYPE REF TO if_ixml,

l_streamfactory TYPE REF TO if_ixml_stream_factory,

l_parser TYPE REF TO if_ixml_parser,

l_istream TYPE REF TO if_ixml_istream,

l_document TYPE REF TO if_ixml_document,

l_node TYPE REF TO if_ixml_node,

l_xmldata TYPE string.

DATA: l_elem TYPE REF TO if_ixml_element,

l_root_node TYPE REF TO if_ixml_node,

l_next_node TYPE REF TO if_ixml_node,

l_name TYPE string,

l_iterator TYPE REF TO if_ixml_node_iterator.

DATA: l_xml_table TYPE TABLE OF t_xml_line, " XML Table of the structure

*t_xml_line

l_xml_line TYPE t_xml_line, " Record of structure t_xml_line

l_xml_table_size TYPE i. " XML table size

DATA: l_filename TYPE string. " String to hold filename

data: begin of i_final occurs 0,

pnumber(20),

pname(50),

pdes(70),

end of i_final.

PARAMETERS: pa_file TYPE char1024 DEFAULT 'C:\product.xml'.

• Validation of XML file: Only DTD included in XML document is supported

PARAMETERS: pa_val TYPE char1 AS CHECKBOX.

*----

---

• start of selection

*----

---

START-OF-SELECTION.

• Creating the main iXML factory

l_ixml = cl_ixml=>create( ).

• Creating a stream factory

l_streamfactory = l_ixml->create_stream_factory( ).

PERFORM get_xml_table CHANGING l_xml_table_size l_xml_table.

• Wrap the table containing the file into a stream.

l_istream = l_streamfactory->create_istream_itable( table = l_xml_table

size = l_xml_table_size ).

• Creating a document

l_document = l_ixml->create_document( ).

• Creating a Parser

l_parser = l_ixml->create_parser( stream_factory = l_streamfactory

istream = l_istream

document = l_document ).

• Validate a document

IF pa_val = 'X'.

l_parser->set_validating( mode = if_ixml_parser=>co_validate ).

ENDIF.

• Parse the stream

IF l_parser->parse( ) <> 0.

IF l_parser->num_errors( ) <> 0.

DATA: parseerror TYPE REF TO if_ixml_parse_error,

str TYPE string,

i TYPE i,

count TYPE i,

index TYPE i.

count = l_parser->num_errors( ).

WRITE: count, ' parse errors have occured:'.

index = 0.

WHILE index < count.

parseerror = l_parser->get_error( index = index ).

i = parseerror->get_line( ).

WRITE: 'line: ', i.

i = parseerror->get_column( ).

WRITE: 'column: ', i.

str = parseerror->get_reason( ).

WRITE: str.

index = index + 1.

ENDWHILE.

ENDIF.

ENDIF.

• Process the document

IF l_parser->is_dom_generating( ) EQ 'X'.

PERFORM process_dom USING l_document.

ENDIF.

&----

---

*& Form get_xml_table

&----

---

• text

----

---

• <--P_L_XML_TABLE_SIZE text

• <--P_L_XML_TABLE text

----

---

FORM get_xml_table CHANGING p_l_xml_table_size

p_l_xml_table.

• Local variable declarations

DATA: l_len TYPE i,

l_len2 TYPE i,

l_tab TYPE tsfixml,

l_content TYPE string,

l_str1 TYPE string,

c_conv TYPE REF TO cl_abap_conv_in_ce,

l_itab TYPE TABLE OF string.

l_filename = pa_file.

• Upload file from the client's workstation

CALL METHOD cl_gui_frontend_services=>gui_upload

EXPORTING

filename = l_filename

filetype = 'BIN'

IMPORTING

filelength = l_xml_table_size

CHANGING

data_tab = l_xml_table

EXCEPTIONS

OTHERS = 19.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

• Writing the XML document to the screen

CLEAR l_str1.

LOOP AT l_xml_table INTO l_xml_line.

c_conv = cl_abap_conv_in_ce=>create( input = l_xml_line-data replacement

= space ).

c_conv->read( IMPORTING data = l_content len = l_len ).

CONCATENATE l_str1 l_content INTO l_str1.

ENDLOOP.

l_str1 = l_str1+0(l_xml_table_size).

SPLIT l_str1 AT cl_abap_char_utilities=>cr_lf INTO TABLE l_itab.

WRITE: /.

WRITE: /' XML File'.

WRITE: /.

LOOP AT l_itab INTO l_str1.

REPLACE ALL OCCURRENCES OF cl_abap_char_utilities=>horizontal_tab IN

l_str1 WITH space.

WRITE: / l_str1.

ENDLOOP.

WRITE: /.

ENDFORM. " get_xml_table

&----

---

*& Form process_dom

&----

---

• text

----

---

• -->P_L_DOCUMENT text

----

---

FORM process_dom USING document TYPE REF TO if_ixml_document.

DATA: node TYPE REF TO if_ixml_node,

iterator TYPE REF TO if_ixml_node_iterator,

nodemap TYPE REF TO if_ixml_named_node_map,

attr TYPE REF TO if_ixml_node,

name TYPE string,

prefix TYPE string,

value TYPE string,

indent TYPE i,

count TYPE i,

index TYPE i.

node ?= document.

CHECK NOT node IS INITIAL.

ULINE.

WRITE:/.

WRITE: /' DOM-TREE'.

WRITE: /.

IF node IS INITIAL.

EXIT.

ENDIF.

• Create a node iterator

iterator = node->create_iterator( ).

• Get current node

node = iterator->get_next( ).

• Loop over all nodes

WHILE NOT node IS INITIAL.

indent = node->get_height( ) * 2.

indent = indent + 20.

CASE node->get_type( ).

WHEN if_ixml_node=>co_node_element.

• element node

name = node->get_name( ).

nodemap = node->get_attributes( ).

WRITE: / 'ELEMENT :'.

WRITE: AT indent name COLOR COL_POSITIVE INVERSE.

IF NOT nodemap IS INITIAL.

• attributes

count = nodemap->get_length( ).

DO count TIMES.

index = sy-index - 1.

attr = nodemap->get_item( index ).

name = attr->get_name( ).

prefix = attr->get_namespace_prefix( ).

value = attr->get_value( ).

WRITE: / 'ATTRIBUTE:'.

WRITE: AT indent name COLOR COL_HEADING INVERSE, '=',

value COLOR COL_TOTAL INVERSE.

ENDDO.

ENDIF.

WHEN if_ixml_node=>co_node_text OR

if_ixml_node=>co_node_cdata_section.

• text node

value = node->get_value( ).

WRITE: / 'VALUE :'.

WRITE: AT indent value COLOR COL_GROUP INVERSE.

ENDCASE.

• Advance to next node

node = iterator->get_next( ).

ENDWHILE.

*delete adjacent duplicates from i_final.

*loop at i_final.

*write:/ i_final-pnumber,i_final-pname,i_final-pdes.

*endloop.

*if not i_final[] is initial.

*modify ztestproduct from table i_final.

*endif.

ENDFORM. " process_dom

in the above code at line no: 268 there is a method:

value = node->get_value( ).in which actual data from XML file is coming.

So the varibale "Value" contains the data.

see line no: 270:

WRITE: AT indent value COLOR COL_GROUP INVERSE.

what ever values i am getting here i want to append to a Internal table ...

Can any body tell me how to do that?

i am sure of reward points.

[Former Member]

Hai Ravi

REPORT abc.

*----

---

DATA

DATA : t001 LIKE TABLE OF t001 WITH HEADER LINE.

DATA : BEGIN OF itab OCCURS 0,

a(100) TYPE c,

END OF itab.

DATA: xml_out TYPE string .

DATA : BEGIN OF upl OCCURS 0,

f(255) TYPE c,

END OF upl.

DATA: xmlupl TYPE string .

• FIRST PHASE

• FIRST PHASE

• FIRST PHASE

*----

---

Fetch Data

SELECT * FROM t001 INTO TABLE t001.

*----

---

XML

CALL TRANSFORMATION ('ID')

SOURCE tab = t001[]

RESULT XML xml_out.

*----

---

Convert to TABLE

CALL FUNCTION 'HR_EFI_CONVERT_STRING_TO_TABLE'

EXPORTING

i_string = xml_out

i_tabline_length = 100

TABLES

et_table = itab.

*----

---

Download

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

filetype = 'BIN'

filename = 'd:\xx.xml'

TABLES

data_tab = itab.

• SECOND PHASE

• SECOND PHASE

• SECOND PHASE

BREAK-POINT.

REFRESH t001.

CLEAR t001.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

filename = 'D:\XX.XML'

filetype = 'BIN'

TABLES

data_tab = upl.

LOOP AT upl.

CONCATENATE xmlupl upl-f INTO xmlupl.

ENDLOOP.

*----

---

XML

CALL TRANSFORMATION ('ID')

SOURCE XML xmlupl

RESULT tab = t001[].

Regards

Sreeni

[Former Member]

Hi Sreenivasulu,

Thanks for the response.I had al ready had the code.

BUt i want only from XML file to ITAB.

So after doing GUI_upload..data in itab is insome different format..You can see in de bugging..

After that at the statement CALL TRANSFORMATION ('ID')

i am getting short dump saying XML file invalid..

Can you send me the sample XML file which works fine with your code/

[Former Member]

Hi ravi,

Do the highlighted change:

value = node->get_value( ).

<b>itab-value = value.

append itab.

clear itab.</b>

WRITE: / 'VALUE :'.

WRITE: AT indent value COLOR COL_GROUP INVERSE.

ENDCASE.

Declare itab with one field i.e. value before you use it.

Do revrt if this is not what you want.

Regards,

ravi

[Former Member]

Hi ravi,

Thanks.Points are given It works.But i am getting output like this whn i print itab-value:

1 ITEM1 THIS IS ITEM1 2 THIS IS ITEM2 3 ITEM3 THIS IS ITEM3.

So i have Z-table containing 3 fields:

1.ProductNo 2.Poroductname 3.Product description

So here in the above output: product no is 1,2,3

and product name is item1,item2,item3

and product description is: this is item1, this is item2,this is item3.

So i have to update that z-table with itab.

Can you please tell me how can we do that?

[Former Member]

Hi ravi,

1. follow this logic.

2. Your internal table ITAB,

has the same structure as that of ZDBTABLE.

3. LOOP AT ITAB.

MODIFY ZDBTABLE FROM ITAB.

ENDLOOP.

4. Modify statement will automatically

INSERT / EDIT

the records in database table

depending upon the primary key combination

found / not found.

regards,

amit m.

[Former Member]

HI ravi,

do like this:

loop at itab.

write:/ itab-field1, itab-field2, itab-field3. " / is important

endloop.

for updating the database,

modify ztab from table itab. "itab must have same structure as ztab

REgards,

ravi

[Former Member]

Hi Ravi,

Refer this,

Parse XML file into internal table

Rgds,

Prakash