topic Re: XML data into sap in Application Development and Automation Discussions

XML data into sap

Former Member — Tue, 19 Sep 2006 10:27:03 GMT

Hi guys,

How to upload a XML file into sap?

is there any function module?

can anybody give me an example program for converting or uploading XML data into sap.

regards,

vinoth.

Re: XML data into sap

Former Member — Tue, 19 Sep 2006 10:29:05 GMT

Hi,

See the below link for program which is uploading the XML file in to SAP, this will work in 4.6C

http://www.geocities.com/rmtiwari/main.html?http://www.geocities.com/rmtiwari/Resources/MySolutions/Dev/Codes/Report/Z_RMTIWARI_XML_TO_ABAP_46C.html

use this XML file for the above program:

http://www.geocities.com/rmtiwari/main.html?http://www.geocities.com/rmtiwari/Resources/MySolutions/Dev/UtilityCode.html

See the below link for one more program

http://wiki.ittoolbox.com/index.php/Code:Download_and_upload_OO_ABAP_class_in_XML_format

Regards

Sudheer

Re: XML data into sap

Former Member — Tue, 19 Sep 2006 10:36:16 GMT

try this method

cl_gui_frontend_services=>gui_upload to upload in XML format

if you are looking to upload DMEE XML format

regards

Vivek

please reward for all the useful answers

Re: XML data into sap

anversha_s — Tue, 19 Sep 2006 10:47:34 GMT

Hi,

refer the following//

/people/r.eijpe/blog/2005/11/10/xml-dom-processing-in-abap-part-i--convert-an-abap-table-into-xml-file-using-sap-dom-approach

rgds

anver

if hlped mark points

Re: XML data into sap

Former Member — Thu, 19 Apr 2007 06:23:55 GMT

Hi all,

The XML code and XML file given is running fine for me, but when i am using it, my XML file and code, the tables GV_header and GT_item are filling in the perform but outside perform it's empty. Please find the code and XML file , PLease give the answer its urgent, points will be given for sure.

My function module code is:-

FUNCTION Z_MMI_XML_EXTRACT_COPY.

*"----

""Local interface:

*" IMPORTING

*" REFERENCE(DOCTYPE) LIKE DRAW-DOKAR

*" REFERENCE(DOCNUM) LIKE DRAW-DOKNR

*" REFERENCE(DOCVER) LIKE DRAW-DOKVR

*" REFERENCE(DOCPART) LIKE DRAW-DOKTL

*" TABLES

*" T_HEADER STRUCTURE ZFI_HEADER

*" T_ITEMS STRUCTURE ZFI_ITEMS

*"----

Load iXML Lib.

type-pools: ixml.

class cl_ixml definition load.

data: G_IXML type ref to if_ixml.

data: STREAMFACTORY type ref to if_ixml_stream_factory.

data: ISTREAM type ref to if_ixml_istream.

data: DOCUMENT type ref to if_ixml_document.

data: PARSER type ref to if_ixml_parser.

You should provide the parameter for file name

*LV_FILE_URL = 'C:input_xml.xml'.

types: begin of XML_LINE,

DATA(256) type x,

end of XML_LINE.

***types: begin of TY_HEADER,

CUST_NAME(20) type c,
CARD_NO(20) type c,
TAX_AMOUNT(10) type c,
TOTAL_AMOUNT(10) type c,
end of TY_HEADER.

***

***types: begin of TY_ITEM,

ITEM_NO(4) type n,
ITEM_ID(20) type c,
ITEM_TITLE(50) type c,
ITEM_QTY(10) type c,
ITEM_UPRICE(10) type c,
end of TY_ITEM.

*data: GV_HEADER type TY_HEADER.

*data: GV_HEADER like zfi_header occurs 0 with header line.

data : GV_HEADER LIKE ZFI_HEADER.

*data: GT_ITEM type standard table of TY_ITEM with header line.

*data: GT_ITEM type standard table of zfi_items with header line.

data: GT_ITEM type standard table of zfi_items with header line.

data: XML_TABLE type table of XML_LINE,

XML_TABLE_SIZE type i.

data: LV_FILE_URL type rlgrap-filename.

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 .

DATA : BEGIN OF wa_draw OCCURS 0,

dokar LIKE draw-dokar,

doknr LIKE draw-doknr,

dokvr LIKE draw-dokvr,

doktl LIKE draw-doktl,

END OF wa_draw.

DATA : g_documenttype LIKE bapi_doc_aux-doctype,

g_documentnumber LIKE bapi_doc_aux-docnumber,

g_documentpart LIKE bapi_doc_aux-docpart,

g_documentversion LIKE bapi_doc_aux-docversion.

*" Itab required in IMPORTING parameter of BAPI

DATA : t_documentfile LIKE bapi_doc_files2 OCCURS 0 WITH HEADER LINE.

DATA : t_documentstructure LIKE bapi_doc_structure OCCURS 0 WITH HEADER

LINE,

itab required in TABLES parameters of BAPI

t_documentfiles LIKE bapi_doc_files2 OCCURS 0 WITH HEADER LINE,

t_components LIKE bapi_doc_comp OCCURS 0 WITH HEADER LINE,

t_return LIKE bapiret2.

DATA : l_docfile TYPE string.

***FILL THE TYPE OF ATTACHMENT in IMPORTING itab**

t_documentfile-wsapplication = 'XML'.

APPEND t_documentfile.

wa_draw-dokar = DOCTYPE.

wa_draw-doknr = DOCNUM.

wa_draw-doktl = DOCPART.

wa_draw-dokvr = DOCVER.

CALL FUNCTION 'BAPI_DOCUMENT_CHECKOUTVIEW2'

EXPORTING

documenttype = wa_draw-dokar

documentnumber = wa_draw-doknr

documentpart = wa_draw-doktl

documentversion = wa_draw-dokvr

documentfile = t_documentfile "IMPORTING itab of BAPI

getstructure = '1'

getcomponents = 'X'

ORIGINALPATH = ' '
HOSTNAME = ' '

getheader = 'X'

DOCBOMCHANGENUMBER =
DOCBOMVALIDFROM =
DOCBOMREVISIONLEVEL =

IMPORTING

return = t_return

TABLES

documentstructure = t_documentstructure

documentfiles = t_documentfiles "TABLES itab of BAPI

components = t_components

LOOP AT t_documentfiles .

ENDLOOP.

l_docfile = t_documentfiles-docfile.

The next step is creating the main factory for the iXML library:

G_IXML = cl_ixml=>create( ).

Now Create Stream Factory

STREAMFACTORY = G_IXML->create_stream_factory( ).

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

*filename = 'C:DMS_SPA.XML'

filename = l_docfile

filetype = 'BIN'

IMPORTING

FILELENGTH = XML_TABLE_SIZE

TABLES

data_tab = XML_TABLE.

ISTREAM = STREAMFACTORY->create_istream_itable( table = XML_TABLE

size = XML_TABLE_SIZE )

Create XML Document instance

DOCUMENT = G_IXML->create_document( ).

Create parser Object

PARSER = G_IXML->create_parser( stream_factory = STREAMFACTORY

ISTREAM = istream

DOCUMENT = document ).

Parse an XML document into a DOM tree

*parser->parse( ).

Parsing Error Processing

if PARSER->parse( ) ne 0.

if 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 = PARSER->num_errors( ).

write: COUNT, ' parse errors have occured:'.

INDEX = 0.

while INDEX < COUNT.

PARSEERROR = 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.

Close the stream since it ï¿½s not needed anymore

call method ISTREAM->close( ).

clear ISTREAM.

DATA : GV_NODE type ref to if_ixml_node.

DATA : GV_NODETEXT type STRING.

data: GV_FIRST_TIME.

GV_FIRST_TIME = 'X'.

GV_NODE = DOCUMENT.

*GT_ITEM-item_no = 1.

GT_ITEM-itemno_acc = 1.

perform GET_DATA tables GT_ITEM

using GV_NODE

changing GV_HEADER.

Last item is still not added.

append GT_ITEM.

APPEND GV_HEADER.

*T_HEADER[] = gv_header[].

t_items[] = gt_item[].

**write : GV_HEADER-cust_name,

GV_HEADER-card_no,
GV_HEADER-tax_amount,
GV_HEADER-total_amount.

**loop at GT_ITEM.

write /:.
write : GT_ITEM-item_no,
GT_ITEM-item_id,
GT_ITEM-item_title,
GT_ITEM-item_qty,
GT_ITEM-item_uprice.

**endloop.

ENDFUNCTION.

*----

FORM Get_data *

*----

***form get_data tables YT_ITEM structure gt_ITEM

using value(x_node) type ref to if_ixml_node
changing Y_HEADER type TY_HEADER.

form get_data1 tables YT_ITEM structure zfi_items

using value(x_node) type ref to if_ixml_node

changing Y_HEADER type zfi_header.

***form get_data tables YT_ITEM structure GT_ITEM

using value(x_node) type ref to if_ixml_node
changing Y_HEADER type TY_HEADER.

data: INDENT type i.

data: PTEXT type ref to if_ixml_text.

data: STRING type string.

data: TEMP_STRING(100).

case X_NODE->get_type( ).

when if_ixml_node=>co_node_element.

STRING = X_NODE->get_name( ).

GV_NODETEXT = STRING.

when if_ixml_node=>co_node_text.

PTEXT ?= X_NODE->query_interface( IXML_IID_TEXT ).

if PTEXT->ws_only( ) is initial.

STRING = X_NODE->get_value( ).

case GV_NODETEXT.

when 'Customer'.

when 'HEADER'.

clear GV_HEADER.

when 'Name'.

when 'INVOICE_IND'.

move STRING to GV_HEADER-cust_name.

move STRING to GV_HEADER-INVOICE_IND.

when 'CompanyCode'.

move STRING to GV_HEADER-CompanyCode.

when 'OBJ_TYPE'.

move STRING to GV_HEADER-OBJ_TYPE.

when 'username'.

move STRING to GV_HEADER-username.

when 'PO_reference'.

move STRING to GV_HEADER-PO_reference.

when 'Invoice_Date'.

move STRING to GV_HEADER-Invoice_Date.

when 'Posting_Date'.

move STRING to GV_HEADER-Posting_Date.

when 'Amount'.

move STRING to GV_HEADER-Amount.

when 'Currency'.

move STRING to GV_HEADER-Currency.

*APPEND GV_HEADER.

Iteam details

when 'invoice_doc_item'.

move STRING to GT_ITEM-ITEMNO_ACC.

when 'currency'.

move STRING to TEMP_STRING.

move TEMP_STRING to GT_ITEM-CURRENCY.

when 'Quantity'.

move STRING to GT_ITEM-Quantity.

when 'UoM'.

move STRING to GT_ITEM-UoM.

endcase.

endif.

endcase.

if GV_NODETEXT = 'Header'.

clear GV_HEADER.

elseif GV_NODETEXT = 'Item'.

if GV_FIRST_TIME ne 'X'.

append GT_ITEM.

clear : gt_item.

GT_ITEM-ITEMNO_ACC = gt_item-itemno_acc + 1.

endif.

GV_FIRST_TIME = ' '.

endif.

Get the next child

X_NODE = x_node->get_first_child( ).

Recurse

while not X_NODE is initial.

perform GET_DATA tables GT_ITEM

using X_NODE

changing GV_HEADER.

X_NODE = x_node->get_next( ).

endwhile.

endform.

the XML file is:-

Thanx in advance

Re: XML data into sap

Former Member — Thu, 19 Apr 2007 06:34:49 GMT

Hi Vinoth,

I've commented several lines. Here is an example:

&----

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

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

Hope this resolves your query.

Reward all the helpful answers.

Regards