topic XML in String to Internal table in Application Development and Automation Discussions

XML in String to Internal table

former_member269988 — Mon, 22 Aug 2016 22:51:46 GMT

Hi dear,

please i need a help of us.

I need convert XML (in string) to internal table, this code is perfect becaus de structure XML is dynamically, buuut i don 't know how i change file to XML string:

********************* CODE *************************************

CREATE OBJECT lcl_xml_doc.

*&--CONVERSION OF XML TO ITAB PROCESS--&*

CALL METHOD lcl_xml_doc->import_from_file

EXPORTING

filename = p_filnam

RECEIVING

retcode = v_subrc.

* CHECK v_subrc = 0.

v_node = lcl_xml_doc->m_document.

CHECK NOT v_node IS INITIAL.

v_iterator = v_node->create_iterator( ).

v_node = v_iterator->get_next( ).

WHILE NOT v_node IS INITIAL.

CASE v_node->get_type( ).

WHEN if_ixml_node=>co_node_element.

v_name = v_node->get_name( ).

v_nodemap = v_node->get_attributes( ).

IF NOT v_nodemap IS INITIAL.

* attributes

v_count = v_nodemap->get_length( ).

DO v_count TIMES.

v_index = sy-index - 1.

v_attr = v_nodemap->get_item( v_index ).

v_name = v_attr->get_name( ).

v_prefix = v_attr->get_namespace_prefix( ).

v_value = v_attr->get_value( ).

ENDDO.

ENDIF.

WHEN if_ixml_node=>co_node_text OR

if_ixml_node=>co_node_cdata_section.

* text node

v_value = v_node->get_value( ).

MOVE v_value TO v_char.

IF v_char <> cl_abap_char_utilities=>cr_lf.

wa-name = v_name.

wa-value = v_value.

APPEND wa TO itab.

CLEAR wa.

ENDIF.

ENDCASE.

* advance to next node

v_node = v_iterator->get_next( ).

ENDWHILE.

*&-- WRITING ITAB FILES IN OUTPUT--&*

LOOP AT itab INTO wa.

WRITE :/1 wa-name,20 wa-value.

ENDLOOP.

********************* CODE *************************************

Does anyone have any ideas?

Re: XML in String to Internal table

Former Member — Tue, 23 Aug 2016 03:09:28 GMT

Hi, Maby you can try it:

TYPE-POOLS: SLIS,ABAP.

include <symbol>.

DATA : lcl_xml_doc TYPE REF TO CL_XML_DOCUMENT,

v_subrc LIKE sy-subrc,

p_filnam TYPE LOCALFILE value 'H:\tmp\ACER 3C3-20130909001-20130918-084215.xml'.

DATA: v_node TYPE REF TO if_ixml_node,

v_child_node TYPE REF TO if_ixml_node,

v_root TYPE REF TO if_ixml_node,

v_iterator TYPE REF TO if_ixml_node_iterator,

v_nodemap TYPE REF TO if_ixml_named_node_map,

v_count TYPE i, v_index TYPE i,

v_attr TYPE REF TO if_ixml_node,

v_name TYPE string,

v_prefix TYPE string,

v_value TYPE string,

v_char TYPE char2,

V_PTEXT TYPE REF TO IF_IXML_TEXT,

v_node_info TYPE string,

retval TYPE REF TO IF_IXML_NODE_FILTER,

filter2 type ref to if_ixml_node_filter,

pdocument type ref to if_ixml_document.

TYPES: BEGIN OF ty_tab,

caminho type string,

name type LVC_FNAME, " TYPE string,

value TYPE string,

END OF ty_tab.

DATA: itab TYPE STANDARD TABLE OF ty_tab,

wa TYPE ty_tab.

DATA: BEGIN OF field_name OCCURS 0,

name type LVC_FNAME,

END OF field_name.

DATA: l_count TYPE I.

CREATE OBJECT lcl_xml_doc.

*&--CONVERSION OF XML TO ITAB PROCESS--&*

CALL METHOD lcl_xml_doc->import_from_file

EXPORTING

filename = p_filnam

RECEIVING

retcode = v_subrc.

* CHECK v_subrc = 0.

v_node = lcl_xml_doc->m_document.

CHECK NOT v_node IS INITIAL.

v_iterator = v_node->create_iterator( ).

v_node = v_iterator->get_next( ).

WHILE NOT v_node IS INITIAL.

CASE v_node->get_type( ).

WHEN if_ixml_node=>co_node_element.

v_name = v_node->get_name( ).

v_nodemap = v_node->get_attributes( ).

IF NOT v_nodemap IS INITIAL.

* attributes

v_count = v_nodemap->get_length( ).

DO v_count TIMES.

v_index = sy-index - 1.

v_attr = v_nodemap->get_item( v_index ).

v_name = v_attr->get_name( ).

v_prefix = v_attr->get_namespace_prefix( ).

v_value = v_attr->get_value( ).

ENDDO.

ENDIF.

WHEN if_ixml_node=>co_node_text OR

if_ixml_node=>co_node_cdata_section.

* text node

v_value = v_node->get_value( ).

MOVE v_value TO v_char.

IF v_char <> cl_abap_char_utilities=>cr_lf.

wa-name = v_name.

wa-value = v_value.

APPEND wa TO itab.

CLEAR wa.

**get field name

READ TABLE field_name WITH KEY name = v_name.

IF sy-subrc <> 0.

field_name-name = v_name.

APPEND field_name. CLEAR field_name.

l_count = l_count + 1.

ENDIF.

ENDIF.

ENDCASE.

* advance to next node

v_node = v_iterator->get_next( ).

ENDWHILE.

*&-- WRITING ITAB FILES IN OUTPUT--&*

* LOOP AT itab INTO wa.

* WRITE :/1 wa-name,20 wa-value.

* ENDLOOP.

**convert to inintal table

DATA: dy_table TYPE REF TO data,

dy_line TYPE REF TO data,

it_structure TYPE lvc_t_fcat,

wa_structure TYPE lvc_s_fcat.

FIELD-SYMBOLS:<dyn_table> TYPE STANDARD TABLE,

<dyn_wa> TYPE ANY,

<dyn_field> TYPE ANY.

DATA:wa_new_line TYPE REF TO data.

DATA:l_pos TYPE i VALUE '1'.

DATA: w_loop LIKE sy-tabix.

DATA: l_mod TYPE I.

LOOP AT field_name.

l_pos = l_pos + 1.

wa_structure-fieldname = field_name-name.

wa_structure-col_pos = 1.

APPEND wa_structure TO it_structure.

ENDLOOP.

CALL METHOD cl_alv_table_create=>create_dynamic_table

EXPORTING

it_fieldcatalog = it_structure

IMPORTING

ep_table = dy_table.

ASSIGN dy_table->* TO <dyn_table>.

CREATE DATA wa_new_line LIKE LINE OF <dyn_table>.

ASSIGN wa_new_line->* TO <dyn_wa>.

LOOP AT itab INTO wa.

w_loop = sy-tabix.

LOOP AT it_structure INTO wa_structure.

IF wa_structure-fieldname = wa-name.

ASSIGN COMPONENT wa_structure-fieldname OF STRUCTURE <dyn_wa> TO <dyn_field>.

<dyn_field> = wa-value.

ENDIF.

ENDLOOP.

l_mod = w_loop MOD l_count.

IF l_mod = 0.

APPEND <dyn_wa> TO <dyn_table>.

CLEAR <dyn_wa>.

ENDIF.

ENDLOOP.

XML Like this:

Result as follow:

Re: XML in String to Internal table

prajeshdesai — Tue, 23 Aug 2016 04:01:23 GMT

There are no. of threads raised on this topic. i found below tutorial is very useful and productive.

Reference Link: Tutorial: Data exchange between ABAP and XML

Hope this helps.

Re: XML in String to Internal table

former_member269988 — Tue, 23 Aug 2016 18:13:39 GMT

Hi Spring Long ,

Thanks for your help....i change the code but partly it worked, I realized that in the string reading the next node is losing part of XML in your code you had this problem?

Re: XML in String to Internal table

Former Member — Wed, 24 Aug 2016 00:22:56 GMT

Hello Wilson Matsuoka: Can you posted your XML file screenshot ? Maybe i can adjust the code so that solve your problem.

Re: XML in String to Internal table

retired_member — Wed, 24 Aug 2016 06:20:20 GMT

Personally, I would use the sXML library for such a task, because in my opinion it is simpler to use compared to iXML. See a parsing example, maybe you can adjust it to your needs.

Another "simple" way can be to write a Simple Transformation that fits your XML data using the tt:loop statement that directly deserializes into an internal table.

Horst

Re: XML in String to Internal table

former_member269988 — Wed, 24 Aug 2016 11:48:51 GMT

Hi Spring,

my xml dynamically, but in this case is:

<?xml version="1.0" encoding="utf-8"?>#<eSocial xmlns:es="http://www.esocial.gov.br/schema/evt">

</ideEvento>

</ideEmpregador>

</ideVinculo>

<aso>#

<monitBiolog>#

</respMonit>

</monitBiolog>

<frmCtt>AV XXXXX, 333 XXXX - XXXXXX - SP Cep:33333 222 22222222</frmCtt>

<nmMed>ROBERTO NETO</nmMed>

<crm>

</crm>

</medico>

</ideServSaude>

</aso>

</evtMonit>#</eSocial>#<eSocial xmlns:es="http://www.esocial.gov.br/schema/evt">

</ideEvento>

<tpInscricao>1</tpInscricao>#

</monitBiolog>

<frmCtt>XXXXX, 777XXX - XXXX - SP Cep: 1111111 19 22222 </frmCtt>

<nmMed>Eleonor aberto</nmMed>

<crm>

<nrCRM>111111</n

</medico>

</ideServSaude>

</aso>

Just remember, this code is load in string ( <![CDATA[<?xml ......)

thanks a lot

Re: XML in String to Internal table

Former Member — Thu, 25 Aug 2016 01:03:53 GMT

Hello Wilson: It seem that your xml file structure field is single (My test xml field is duplicate). Please try modify code like this:

1. code:

* text node

v_value = v_node->get_value( ).

MOVE v_value TO v_char.

IF v_char <> cl_abap_char_utilities=>cr_lf.

TRANSLATE v_name TO UPPER CASE. "add new line code

wa-name = v_name.

wa-value = v_value.

APPEND wa TO itab.

CLEAR wa.

**get field name

READ TABLE field_name WITH KEY name = v_name.

IF sy-subrc <> 0.

field_name-name = v_name.

APPEND field_name. CLEAR field_name.

* l_count = l_count + 1. "mark the line

ENDIF.

2. code:

* l_mod = w_loop MOD l_count. "delete the line

* IF l_mod = 0. "delete the line

AT LAST. "add new line

APPEND <dyn_wa> TO <dyn_table>.

CLEAR <dyn_wa>.

ENDAT. "add new line

* ENDIF. "delete the line

Re: XML in String to Internal table

former_member269988 — Fri, 26 Aug 2016 18:22:03 GMT

Thanks Spring, it's done