XML

[Former Member]

Hi all,

my requriment is sending data's from EWM (Extended wearhouse managment) to lagacy system inthe XML file.

plz any one help me out its urgent. points will be given

Thanks

Girish

[former_member192216]

Hi Girish,

There are several way, one standard way would be to use XI see

http://help.sap.com/saphelp_nw70/helpdata/en/e1/091640a991c742e10000000a1550b0/frameset.htm

https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/70ada5ef-0201-0010-1f8b-c935e444...

Another would be to create a custom report where you can export your data in XML format.

1. Read your data

2. Convert it to XML and save it a local drive. (See below code)

TYPE-POOLS: abap. 
DATA: lv_data TYPE data. "or you own type (any type even complex one)
DATA: lv_name TYPE string. 

DATA: lr_xml_element  TYPE REF TO if_ixml_element,
      lr_xml_doc      TYPE REF TO if_ixml_document,
      lv_result       TYPE sysubrc,
      lv_xml_size     TYPE sy-tabix,
      lv_offset       TYPE i.
DATA: lv_control TYPE dcxmlsercl.
DATA: lv_string  TYPE string.
DATA: lt_file_content TYPE string_table. 
*--------------------------------------------------------------------*
* Instanciate XML element to hold parmeter data
*--------------------------------------------------------------------*
  lv_control-init_treat = 'A'. "All initial components are omitted
  lv_control-dec_0_cut = 'K'. "Leave Zeros (0)
  CALL FUNCTION 'SDIXML_DATA_TO_DOM'
    EXPORTING
      name         = lv_name  "xml tag name
      dataobject   = lv_data   "your data
      control      = lv_control
    IMPORTING
      data_as_dom  = lr_xml_element
    CHANGING
      document     = lr_xml_doc
    EXCEPTIONS
      illegal_name = 1
      OTHERS       = 2.

*--------------------------------------------------------------------*
* Check that XML document is valid
*--------------------------------------------------------------------*
  lv_result = lr_xml_doc->append_child( lr_xml_element ).
  CHECK lv_result IS INITIAL.

*--------------------------------------------------------------------*
* Get back the parameter data in XML format
*--------------------------------------------------------------------*
  CALL FUNCTION 'SDIXML_DOM_TO_XML'
    EXPORTING
      document      = lr_xml_doc
      pretty_print  = abap_true
    IMPORTING
      size          = lv_xml_size
      xml_as_string = lv_string
    EXCEPTIONS
      no_document   = 1
      OTHERS        = 2.

APPEND lv_string TO lt_file_content.
*---------------------------------------------------------------------*
* Download file to hardrive
*---------------------------------------------------------------------*
  cl_gui_frontend_services=>gui_download(
      EXPORTING
        filename = lv_filename "name of your XML file
      CHANGING
        data_tab = lt_file_content
      EXCEPTIONS
        OTHERS   = 24 ).

Hopping this answer your question.

Sincerely,

Alain Gauthier