Re: XML data into sap

Former Member · ‎2006 Sep 19

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.

Former Member · ‎2006 Sep 19

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

use this XML file for the above program:

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

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

Former Member · ‎2006 Sep 19

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

anversha_s · ‎2006 Sep 19

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

Former Member · ‎2007 Apr 19

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

Former Member · ‎2007 Apr 19

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

By Category

Related Content

Activity Groups

Industry Groups

Influence and Feedback Groups

Interest Groups

Location Groups

Customer Only Groups

Forums

Related Resources

Products

Learning and Support

About

My SAP Profile

My SAP Profile

XML data into sap