XML data into sap

Question

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.

Answer 1

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