Problem in ABAP mapping

Question

Hi ,
I am working with a scenerio where i have 2 diff system to send the data depending upong the sending payload data.
I am using ABAP mapping where i am able to send accros the data, below is my code
METHOD IF_MAPPING~EXECUTE.
  BREAK-POINT.
  * initialize iXML
  TYPE-POOLS: IXML.
  CLASS CL_IXML DEFINITION LOAD.
  DATA: L_IXML TYPE REF TO IF_IXML.
*creating the Interface by calling the create method in class C_IXML
  CALL METHOD CL_IXML=>CREATE
EXPORTING
   TYPE   = 0
    RECEIVING
      RVAL   = L_IXML.
create stream factory
  DATA: STREAMFACTORY TYPE REF TO IF_IXML_STREAM_FACTORY.
  CALL METHOD L_IXML->CREATE_STREAM_FACTORY
    RECEIVING
      RVAL = STREAMFACTORY.
create input stream
  DATA: ISTREAM TYPE REF TO IF_IXML_ISTREAM.
  CALL METHOD STREAMFACTORY->CREATE_ISTREAM_XSTRING
    EXPORTING
      STRING = SOURCE
    RECEIVING
      RVAL   = ISTREAM.
*This iXML factory can create an empty XML document object named IDOCUMENT.
initialize input document
  DATA:  IDOCUMENT TYPE REF TO IF_IXML_DOCUMENT.
  CALL METHOD L_IXML->CREATE_DOCUMENT
    RECEIVING
      RVAL = IDOCUMENT.
parse input document
  DATA: IPARSER TYPE REF TO IF_IXML_PARSER.
  CALL METHOD L_IXML->CREATE_PARSER
    EXPORTING
      DOCUMENT       = IDOCUMENT
      ISTREAM        = ISTREAM
      STREAM_FACTORY = STREAMFACTORY
    RECEIVING
      RVAL           = IPARSER.
  IPARSER->PARSE( ).
  DATA: EL_ELEMENT TYPE REF TO IF_IXML_ELEMENT,
        VALUE TYPE STRING.
  DATA: ROOT TYPE REF TO IF_IXML_ELEMENT.
get message content of tag
  DATA: INCODE  TYPE REF TO IF_IXML_NODE_COLLECTION,
        INCODE1 TYPE REF TO IF_IXML_NODE_COLLECTION,
        INCODE2 TYPE REF TO IF_IXML_NODE_COLLECTION,
        INCODE0  TYPE REF TO IF_IXML_NODE_COLLECTION.
  CALL METHOD IDOCUMENT->GET_ELEMENTS_BY_TAG_NAME
    EXPORTING
     DEPTH     = 0
      NAME      = 'MANDT'
     NAMESPACE = 'urn:sap-com:document:sap:rfc:functions'
    RECEIVING
      RVAL      = INCODE0 .
  CALL METHOD IDOCUMENT->GET_ELEMENTS_BY_TAG_NAME
  EXPORTING
     DEPTH     = 0
    NAME      = 'EMPNO'
     NAMESPACE = 'urn:sap-com:document:sap:rfc:functions'
  RECEIVING
    RVAL      = INCODE.
  CALL METHOD IDOCUMENT->GET_ELEMENTS_BY_TAG_NAME
EXPORTING
     DEPTH     = 0
NAME      = 'EMPNAME'
     NAMESPACE = 'urn:sap-com:document:sap:rfc:functions'
RECEIVING
RVAL      = INCODE1.
  CALL METHOD IDOCUMENT->GET_ELEMENTS_BY_TAG_NAME
EXPORTING
     DEPTH     = 0
NAME      = 'DEPARTMENTNAME'
     NAMESPACE = 'urn:sap-com:document:sap:rfc:functions'
RECEIVING
RVAL      = INCODE2.
  DATA: URI TYPE STRING.
  URI = 'urn:sap-com:document:sap:rfc:functions'.
* build up output document =============================================
create output document
  DATA: ODOCUMENT TYPE REF TO IF_IXML_DOCUMENT.
  CALL METHOD L_IXML->CREATE_DOCUMENT
    RECEIVING
      RVAL = ODOCUMENT.
DATA: RET_VALUE TYPE I.
**At this point you can add the nodes (elements, attributes) into the document. First you have to declare the root element node.
  DATA: L_ELEMENT_ROOT TYPE REF TO IF_IXML_ELEMENT.
  DATA: NODE_LIST_COLLECTION TYPE REF TO IF_IXML_NODE_COLLECTION.
add node to the output document
  DATA: OUTCODE0 TYPE REF TO IF_IXML_NODE.
  DATA: OUTCODE  TYPE REF TO IF_IXML_NODE.
  DATA: OUTCODE1 TYPE REF TO IF_IXML_NODE.
  DATA: OUTCODE2 TYPE REF TO IF_IXML_NODE.
  DATA: INDEX1 TYPE SY-INDEX.
  DATA: INDEX TYPE SY-INDEX.
  DATA IRC TYPE I.
  TYPES:  BEGIN OF TY_IMPORT,
           MANDT             TYPE MANDT,
           EMPNO             TYPE STRING,
           EMPNAME           TYPE STRING,
           DEPARTMENTNAME    TYPE STRING,
     END OF TY_IMPORT.
  DATA: IT_IMPORT TYPE STANDARD TABLE OF TY_IMPORT.
  DATA: WA_IMPORT TYPE                 TY_IMPORT.
  CALL METHOD IDOCUMENT->GET_ELEMENTS_BY_TAG_NAME
    EXPORTING
   DEPTH     = 0
      NAME      = 'MANDT'
   NAMESPACE = ''
    RECEIVING
      RVAL      =  NODE_LIST_COLLECTION.
  DATA: LENGTH TYPE I.
  CALL METHOD NODE_LIST_COLLECTION->GET_LENGTH
    RECEIVING
      RVAL = LENGTH.
  WHILE INDEX < LENGTH.
   CALL METHOD IDOCUMENT->FIND_FROM_NAME
     EXPORTING
       DEPTH     = index
       NAME      = 'EMPNO'
       NAMESPACE = ''
     RECEIVING
       RVAL      = EL_ELEMENT .
    CALL METHOD INCODE0->GET_ITEM
      EXPORTING
        INDEX = INDEX
      RECEIVING
        RVAL  = OUTCODE0.
   EL_ELEMENT = IDOCUMENT->FIND_FROM_NAME( 'MANDT' ).
    VALUE = OUTCODE0->GET_VALUE( ).
    WA_IMPORT-MANDT  = VALUE.
    CLEAR: VALUE.
    CALL METHOD INCODE->GET_ITEM
      EXPORTING
        INDEX = INDEX
      RECEIVING
        RVAL  = OUTCODE.
   EL_ELEMENT = IDOCUMENT->FIND_FROM_NAME( 'EMPNO' ).
    VALUE = OUTCODE->GET_VALUE( ).
    WA_IMPORT-EMPNO  = VALUE.
    CLEAR: VALUE.
    CALL METHOD INCODE1->GET_ITEM
      EXPORTING
        INDEX = INDEX
      RECEIVING
        RVAL  = OUTCODE1.
   EL_ELEMENT = IDOCUMENT->FIND_FROM_NAME( 'EMPNAME' ).
    VALUE = OUTCODE1->GET_VALUE( ).
    WA_IMPORT-EMPNAME  = VALUE.
    CLEAR: VALUE.
    CALL METHOD INCODE2->GET_ITEM
      EXPORTING
        INDEX = INDEX
      RECEIVING
        RVAL  = OUTCODE2.
   EL_ELEMENT = IDOCUMENT->FIND_FROM_NAME( 'DEPARTMENTNAME' ).
    VALUE = OUTCODE2->GET_VALUE( ).
    WA_IMPORT-DEPARTMENTNAME  = VALUE.
    CLEAR: VALUE.
    APPEND WA_IMPORT TO IT_IMPORT.
    CLEAR WA_IMPORT.
    ADD 1 TO INDEX.
  ENDWHILE.
  TYPES: BEGIN OF TY_DATA,
          DATA TYPE STRING,
                END OF TY_DATA.
  DATA: IT_DATA TYPE STANDARD TABLE OF TY_DATA,
        WA_DATA TYPE TY_DATA.
  DATA: SSSS TYPE STRING.
  IF SOURCE IS NOT INITIAL.
    CALL FUNCTION 'ECATT_CONV_XSTRING_TO_STRING'
      EXPORTING
        IM_XSTRING  = SOURCE
        IM_ENCODING = 'UTF-8'
      IMPORTING
        EX_STRING   = SSSS.
  ENDIF.
render document ======================================================
create output stream
  DATA: XX TYPE STRING.
  DATA: XX_1 TYPE STRING.
  DATA: XX1 TYPE STRING.
  DATA: XX2 TYPE STRING.
  DATA: T1 TYPE STRING VALUE ''.
  DATA: T TYPE STRING VALUE '<DATA><MANDT>'.
  LOOP AT IT_IMPORT INTO WA_IMPORT.
   CLEAR: XX1.
   IF SY-TABIX = 1.
    IF WA_IMPORT-EMPNO = '000000000022'.
      CONCATENATE  T WA_IMPORT-MANDT '</MANDT>'
     '<EMPNO>' WA_IMPORT-EMPNO '</EMPNO>'
     '<EMPNAME>' WA_IMPORT-EMPNAME '</EMPNAME><DEPARTMENTNAME>'
     WA_IMPORT-DEPARTMENTNAME '</DEPARTMENTNAME></DATA>'
      INTO XX1   .
     IF SY-TABIX = 1.
     ELSE.
      CONCATENATE    XX1   XX_1 INTO XX_1.
     ENDIF.
    ELSE.
      CONCATENATE  T WA_IMPORT-MANDT '</MANDT>'
'<EMPNO>' WA_IMPORT-EMPNO '</EMPNO>'
'<EMPNAME>' WA_IMPORT-EMPNAME '</EMPNAME><DEPARTMENTNAME>'
WA_IMPORT-DEPARTMENTNAME '</DEPARTMENTNAME></DATA>' INTO XX1   .
      CONCATENATE XX1 XX INTO XX.
     ENDIF.
    ENDIF.
    AT LAST.
      CONCATENATE '<?xml version="1.0" encoding="UTF-8"?><ns1:ZTEST1 xmlns:ns1="urn:sap-com:document:sap:rfc:functions">'
    XX_1 INTO XX_1.
      CONCATENATE  XX_1 '</ns1:ZTEST1>' INTO XX_1.
      CALL FUNCTION 'ECATT_CONV_STRING_TO_XSTRING'
EXPORTING
  IM_STRING         = XX_1
IM_ENCODING       = 'UTF-8'
IMPORTING
EX_XSTRING        = RESULT.
    EX_LEN            = .
      CONCATENATE '<?xml version="1.0" encoding="UTF-8"?><ns1:ZTEST1 xmlns:ns1="urn:sap-com:document:sap:rfc:functions">'
XX        INTO XX.
      CONCATENATE XX '</ns1:ZTEST1>' INTO XX.
     CONCATENATE XX_1 XX INTO XX.
      CALL FUNCTION 'ECATT_CONV_STRING_TO_XSTRING'
        EXPORTING
          IM_STRING         = XX
         IM_ENCODING       = 'UTF-8'
       IMPORTING
         EX_XSTRING        = RESULT
    EX_LEN            =
    ENDAT.
  ENDLOOP.
ENDMETHOD.
here above result parameter will have the target data..But it sends the that same data to both the system , If i will be able to recursively call this method, then i be able to solve the prob easily as first time result will send one data to one system and next time to other system,

Answer 1

Hi munish,
I dont think there is any thing wrong with the ABAP code.
Try testing your ABAP mapping using transaction code SXI_MAPPING_TEST in XI.
Enter the Details asked and then enter TEst data in XML format.. 
Also, you can make use of the Trace element to find out if there is any thing wrong with the code.
Include the following Statements after every step in the ABAP code to ensure that the particular step is completed successfully.
data : l_trace type string.
concatenate l_trace '<Message you want to display>' into l_trace.
trace->trace(level = '<level>'
message =l_trace).  
The trace is visible in SXMB_MONI (click on "Trace" in the left pane to view).
using this you will get to know i the code is functioning as desired.
Regards,
Yashaswee.