How to Create XML from abap

[Former Member]

Hi gurus,

I wnat to create xml file and store it into application server from the abap out put please help me on this .

Regards

Naveen

[former_member208856]

you can take the help from this code :

**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 .

**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:\file_name.xml'

TABLES

data_tab = itab.

reward points, if helpful,

Regards,

Sandeep Kaushik

[Former Member]

Hello Sandeep ,

i have used your message about how to write xml in abap. But I become the xml-file with tags without content. What is wrong?

Thanks for your help.

Irina

[Former Member]

Hi,

hope the code below could give u some idea on how to deal with XML.

&----

---

*& Report z_xit_xml_check

&----

---

report z_xit_xml_check.

class cl_ixml definition load.

type-pools: ixml.

types: begin of t_xml_line,

data(256) type x,

end of t_xml_line,

begin of tsfixml,

data(1024) type c,

end of tsfixml.

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,

l_xml_line type t_xml_line,

l_xml_table_size type i.

data: l_filename type string.

parameters: pa_file type char1024 default

'd:\joao\desenvolvimentos\fi\fact\teste.xml'.

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

parameters: pa_val type char1 as checkbox.

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( ).

Create a Parser

l_parser = l_ixml->create_parser( stream_factory = l_streamfactory

istream = l_istream

document = l_document ).

Validate a document

if pa_val eq 'X'.

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

endif.

Parse the stream

if l_parser->parse( ) ne 0.

if l_parser->num_errors( ) ne 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

&----

---

form get_xml_table changing l_xml_table_size type i

l_xml_table type standard table.

Local variable declaration

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 a 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

&----

---

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.

data: name2 type string,

name_root type string,

node_parent type ref to if_ixml_node,

node_root type ref to if_ixml_node,

num_children 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.

num_children = node->num_children( ).

case node->get_type( ).

when if_ixml_node=>co_node_element.

element node

name = node->get_name( ).

nodemap = node->get_attributes( ).

node_root = node->get_root( ).

name_root = node_root->get_name( ).

write: / 'ELEMENT :'.

write: at indent name color col_positive inverse.

write: 'NUM_CHILDREN:', num_children.

write: 'ROOT:', name_root.

node_parent = node->get_parent( ).

name2 = node_parent->get_name( ).

write: 'NAME2: ' , name2.

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 :'.

mjprocha

node_parent = node->get_parent( ).

write: at indent value color col_group inverse.

name2 = node_parent->get_name( ).

write: 'NAME2: ' , name2.

endcase.

advance to next node

node = iterator->get_next( ).

endwhile.

endform. "process_dom

Reward points if this helps,

Kiran

[Former Member]

Hi Naveen,

Refer to the link below:

http://sap-img.com/abap/sample-xml-source-code-for-sap.htm

Hope this helps.

Reward if helpful.

Regards,

Sipra