2007 Nov 22 11:48 AM
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
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
2007 Nov 22 10:10 PM
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
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
| User | Count |
|---|---|
| 6 | |
| 3 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 | |
| 1 |