Reg : Idoc Transfer From SAP R/3 to Gentran

Hi Floks /
Any body can transfer SAP R/3 idoc to external Sterling Gentran intgration suite . what are process steps required to sending and what are the transaction codes are available in Gentran and Sap .
can u please help me out.
thanks
suresh

HI,
See the below links
In Gentran
XI with Gentran
XI vs Gentran for EDI
SAP ECC 5.0 Upgrade questions with Gentran, BDC, screens
Gentran EDI ?
Interuppting/debugging response from Gentran
Gentran and XI 3.0 question
Interuppting/debugging response from Gentran
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/d53af8ca-0801-0010-08b0-dce9e02130a8
In R3 IDocs
/people/prateek.shah/blog/2005/06/08/introduction-to-idoc-xi-file-scenario-and-complete-walk-through-for-starters - IDoc to File
IDOc testing - /people/suraj.sr/blog/2005/12/29/generate-test-case-for-an-idoc-scenario
/people/ravikumar.allampallam/blog/2005/06/24/convert-any-flat-file-to-any-idoc-java-mapping - Any flat file to any Idoc
/people/pooja.pandey/blog/2005/07/27/idocs-multiple-types-collection-in-bpm - Collection of IDoc to Single File
/people/prateek.shah/blog/2005/06/08/introduction-to-idoc-xi-file-scenario-and-complete-walk-through-for-starters - IDoc to File
File-XI-IDoc Scenario - File to Idoc
idoc settings /people/ravikumar.allampallam/blog/2005/02/23/configuration-steps-required-for-posting-idocsxi
idoc erros - http://help.sap.com/saphelp_nw04s/helpdata/en/6a/e6194119d8f323e10000000a155106/content.htm
idocs - /people/sravya.talanki2/blog/2005/08/24/do-you-like-to-understand-147correlation148-in-xi
idoc mapping - /people/james.guanzon/blog/2006/03/23/how-to-support-industry-standards-in-xi-part-ii-of-iii--mapping
IDoc erros troubleshooting - /people/raja.thangamani/blog/2007/07/19/troubleshooting-of-ale-process
/people/sravya.talanki2/blog/2006/12/27/aspirant-to-learn-sap-xiyou-won-the-jackpot-if-you-read-this-part-iii
see the below links to get more details about IDocs
ALE/ IDOC/ XML
Troubleshooting of ALE Process - /people/raja.thangamani/blog/2007/07/19/troubleshooting-of-ale-process
http://www.sapgenie.com/sapgenie/docs/ale_scenario_development_procedure.doc
http://www.thespot4sap.com/Articles/SAP_XML_Business_Integration.asp
http://help.sap.com/saphelp_srm30/helpdata/en/72/0fe1385bed2815e10000000a114084/content.htm
IDOC Convertion
/people/kevin.wilson2/blog/2005/12/07/changing-fields-in-an-idoc-segment
Please check this online document for ALE and IDoc.
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCMIDALEIO/BCMIDALEIO.pdf
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCMIDALEPRO/BCMIDALEPRO.pdf
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/CABFAALEQS/CABFAALEQS.pdf
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCSRVEDISC/CAEDISCAP_STC.pdf
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCSRVEDI/CAEDI.pdf
serialization /people/alessandro.guarneri/blog/2006/11/26/content-based-serialization-dynamic-queue-name-in-xi
http://www.sapgenie.com/sapedi/idoc_abap.htm
http://www.henrikfrank.dk/abapexamples/IDOC/gl_postings2.htm
http://searchsap.techtarget.com/ sDefinition/0,,sid21_gci852485,00.html - 45k - Cached - Similar pages
Process codes in IDOC
http://help.sap.com/saphelp_erp2005/helpdata/en/dc/6b806743d711d1893e0000e8323c4f/frameset.htm
http://edi.stylusstudio.com/msg04418.htm
Check this link to find out the difference b/w ALE,IDOC and BAPI
http://www.sap-img.com/abap/ale-bapi.htm
https://www.sdn.sap.com/irj/sdn/wiki?path=/display/xi/sapR3%28Idocs%29ToXI--Steps+Summarized&
/people/prateek.shah/blog/2005/06/08/introduction-to-idoc-xi-file-scenario-and-complete-walk-through-for-starters
---Split messages :
/people/jin.shin/blog/2006/02/07/multi-mapping-without-bpm--yes-it146s-possible
/people/sudharshan.aravamudan/blog/2005/12/01/illustration-of-multi-mapping-and-message-split-using-bpm-in-sap-exchange-infrastructure
Regards
Chilla

Similar Messages

Error while ORDERS05 IDoc transfer from R3 - PI - SNC

Hi Friends,
I am facing error in PI SXMB_MONI for ORDERS05 IDoc transfer from R3 - PI - SNC.
I have done all the configuration setup in Integration Directory for the Scenario, I am able to successfully send the IDOC for PO from R3 to PI but faced the following Error in PI.
<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
- 
- <SAP:Error xmlns:SAP="http://sap.com/xi/XI/Message/30" xmlns:SOAP="http://schemas.xmlsoap.org/soap/envelope/" SOAP:mustUnderstand="">
<SAP:Category>XIServer</SAP:Category>
<SAP:Code area="INTERNAL">PARTY_SERVICE</SAP:Code>
<SAP:P1 />
<SAP:P2 />
<SAP:P3 />
<SAP:P4 />
<SAP:AdditionalText />
*<SAP:Stack>Party and service not defined</SAP:Stack>*
<SAP:Retry>M</SAP:Retry>
</SAP:Error>
Also I am unable to Configure Sender/Receiver ID in PI > SXMB_ADMIN > Configuration, as while defining Sender/Receiver unable to add the Interface for Sender(ORDERS.ORDERS05)/Reciever(ReplenishmentOrderNotificatio_Out) although I am able to see the same in Integration Repository.
Also In Main message(Part of the message) as shown below, I am able to see Vendor in PARTY Element of xml message for which I have created the PO
<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
- 
- <SOAP:Envelope xmlns:SOAP="http://schemas.xmlsoap.org/soap/envelope/" xmlns:SAP="http://sap.com/xi/XI/Message/30">
- <SOAP:Header>
- <SAP:Main xmlns:SAP="http://sap.com/xi/XI/Message/30" xmlns:SOAP="http://schemas.xmlsoap.org/soap/envelope/" xmlns:wsu="http://www.docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd" versionMajor="003" versionMinor="000" SOAP:mustUnderstand="1" wsu:Id="wsuid-main-92ABE13F5C59AB7FE10000000A1551F7">
<SAP:MessageClass>ApplicationMessage</SAP:MessageClass>
<SAP:ProcessingMode>asynchronous</SAP:ProcessingMode>
<SAP:MessageId>0050568F-24A0-1DDD-B9F5-3F6DD541FF93</SAP:MessageId>
<SAP:TimeSent>2009-01-21T10:55:20Z</SAP:TimeSent>
- <SAP:Sender>
<SAP:Service>SAPECC6</SAP:Service>
<SAP:Interface namespace="urn:sap-com:document:sap:idoc:messages">ORDERS.ORDERS05</SAP:Interface>
</SAP:Sender>
- <SAP:Receiver>
<SAP:Party agency="SAPECC6" scheme="ALE#LI#LF">0000000006</SAP:Party>
<SAP:Service />
<SAP:Interface namespace="urn:sap-com:document:sap:idoc:messages">ORDERS.ORDERS05</SAP:Interface>
<SAP:Mapping notRequired="Y" />
</SAP:Receiver>
Please Suggest the steps needs to be done for resolving the Issue.
Thanks all...
Regards,
Nitin
Edited by: Nitin Patil on Jan 21, 2009 12:18 PM

Hi Nitin,
I completed the configuraiton but the PO came in PI successfully but stuck in PI with error
<?xml version="1.0" encoding="UTF-8" standalone="yes" ?>
- 
- <SAP:Error xmlns:SAP="http://sap.com/xi/XI/Message/30" xmlns:SOAP="http://schemas.xmlsoap.org/soap/envelope/" SOAP:mustUnderstand="">
<SAP:Category>XIAdapter</SAP:Category>
<SAP:Code area="PLAINHTTP_ADAPTER">ATTRIBUTE_SERVER</SAP:Code>
<SAP:P1>500</SAP:P1>
<SAP:P2>Internal Server Error</SAP:P2>
<SAP:P3>Error during parsing of SOAP header</SAP:P3>
<SAP:P4 />
<SAP:AdditionalText />
<SAP:Stack>HTTP server code 500 reason Internal Server Error explanation Error during parsing of SOAP header</SAP:Stack>
<SAP:Retry>M</SAP:Retry>
</SAP:Error>
can you please help what is the problem , I am not able to find out.
Thanks,
Menaga

OM and PA data transfer from SAP 4.7 to ECC 6.0

Dear Experts,
hi
i am working on one project where i will need to design the data transfer from SAP 4.7 to ECC 6.0. this is not a upgrade project.
the data of PA and OM are in 4.7 which is existing system. i need to transfer entire data into ECC 6.0 so i can use that data for my E-Recruitment module ( we are doing E-rec fresh implementation.)
we will keep both the systems (4.7 and ECC 6.0). ECC 6.0 will be used for E-Rec and OM only. for PA and Payroll we will use 4.7.
can some one tell me,
1. what are the key points to keep in consideration from OM point of view ?
2. which is the best method to transfer the OM structure and data from 4.7 to ECC?
3. what are the risks?
4. which system we should make master system and which will be the slave system? why ?
your input will be much appreciated.
thanks and regards
chandra

Hi Chandra,
I was under the impression that you are planning to use PA & OM from 4.7, now I read it again.
Now its advisable to keep ECC 6 as a master system, becoz OM is the stating point of the HR processes where all Orgnization unit, job, position exists. Later the same data can flow to the slave system for PA use. As OM is the starting point, this system should be the master system.
Abou the IDoc interface.
Check the basic type HRMS_A05, whether it has all the data you need to transmit. T-Code WE30
If you need to add something you can create a Z version in WE31. I selected HRMS_A05 as it is present in both the SAP version.
Next there are series of transaction you need to process. Check with technical person who hands IDoc interafcing.
Steps are:
Assigning Message type to IDOC Type with extension. T-Code WE82
Create Logical System:
T-Code SALE-> Basic Settings-> Logical Systems-> Define Logical System
It is required to configure in the sending system as well as in the receiving system
Assign Logical System to Client:
T-Code SALE-> Basic Settings-> Logical Systems-> Assign Logical System to Client
Create RFC Destinations:
T-Code SM59, select ABAP connection of type 3.
Create Distribution Model: T-Code BD64
Generate Partner Profile: T-Code BD82
Maintain sending system partner profile: T-Code WE20
Link Message Type to Function Module T-Code WE57 in receiving system only
Hope this will help.
Let me know if you need anything else.
BR/Manas

IDOC settings from sap r/3 to sap pi7.3

Hi Guru,
actual problem when i am triggering the idoc from ERP,it is trigeering to the abap stack in sap pi.but i am using idoc_aae adapter at sender side,the message is flowing from sap ERP to file but the message is seen in sxmb_moni,but actually it is not seen in moni .
Please if any one have the idoc setting from sap erp to sap pi7.3. and iam using ICO configuration.
Please help me
Regards
Reddy

Hi,
Please go through the below link :
http://wiki.sdn.sap.com/wiki/display/XI/ALE-Idocconfiguration-+%28R3XIFile%29
Also in your software component version please check whether import of IDocs and RFCs are allowed
from your respective ECC system, and check the ECC system parameters are correctlt maintained or not.
Try out once.

Idoc lost from SAP R/3 to XI

Hi experts,
I have the following problem:
sometimes an idoc fired from SAP (not through WE19) does not reach XI (I cannot see it in SXI_MONITOR). I've checked the following facts:
1. SAP R/3 status of the idoc is 03 (direction outbound).
2. SM58 produces no result.
3. IDX5 produces no result for that idoc.
4. 99,9% idocs of the same type fired in the same day work fine.
Resending manually the same Idoc using WE19 gives no problem and the idoc reaches XI.
any idea?
Thanks a lot,
Daniele

You must see this in WE05 or BD87. Just release the idoc and have a look at we05 or bd87 and limit down the time where to search. in sm58 you can only see the idoc ith the system can not log on to the remote system. Did you check sm58 in the target system? did you check bd87 in the target system?

Material transfer from SAP R/3 to SAP Business One is blocked

Hello experts,
Please I need your help for the following scenario:
Our client has B1iSN and SAP R/3 in the headquarter company and B1if and SAP B1 in the subsidiary. The material transfer from SAP R/3 to SAP Business One failed and the following message is diplayed:
Result message :
com.sap.b1i.xcellerator.XcelleratorException: XCE001 Nested exception: com.sap.b1i.bizprocessor.BizProcException: BPE001 Nested exception: com.sap.b1i.xcellerator.XcelleratorException: XCE001 Nested exception: com.sap.b1i.xcellerator.XcelleratorException: XCE001 Nested exception: java.lang.RuntimeException: DI Error: (-2028) No matching records found (ODBC -2028)
The Material database transfer is blocked due to message in status
failure which block all other messages.
We tried to restart the server (Business One and B1iSN) but it didnu2019t solve the issue.
Any idea please? Thank you.

Hi Nadia,
did you check the WRITE-POLICY settings of your scenario?
when reading the displayed DI Error message, it looks like B1iSN is trying to update an B1 item which does not exists.
Please open SAP B1iSN Tools -> Development Tools -> Graphical scenario Design and select your Bizpackage, BizStep and BIUMETA.
Open the WRITE-POLICY symbol and check the entries:
Insert on Exist = error or fallback2U
Update on Miss = fallback2I
The Update Policy should stay to value regular.
To activate changes of the WRITE-POLICY please deactivate, modify and reactivate your Business Process instance.
If a WRITE-POLICY change has no effect, please check your data mapping (BIU) and especially the parameter <QueryParams>, which mustn't be filled for "insert/Add" operations into B1.
Best regards
Bastian

Data transfer from sap r/3 into excel sheet for mi01

hi gurus,
   as i am a xi consultant i got requirement to write a program for data transfer from sap r/3 into excel sheet for MI01.can any body help me by giving sample code or example for this requirement.please help me.

Hi Rohit,
This is an upload program and it has used both function modules to upload from an excel to R3 and to download from R3 onto excel.
GUI_UPLOAD
GUI_DOWNLOAD
are the function modules used.
Hope this helps,
*Output:        Downloads error records onto presentation server,
*               Displays report with number of success and error records
REPORT ZMCG047CONTR NO STANDARD PAGE HEADING
                               LINE-SIZE 255
                               MESSAGE-ID ZM.
*&       Table declarations
TABLES : T001W,     "Plants/Branches
         T024E,     "Purchasing Organizations
         T001.      "Company Codes
*              TYPE-POOLS DECLARATION
TYPE-POOLS : SLIS.
*                       Types Declaration                            *
TYPES: BEGIN OF T_RECORD,    "record storing contract info
        LIFNR(010),      "Vendor Number
        EVART(004),      "Agreement Type
        EKORG(004),      "Purchasing Organization
        EKGRP(003),      "Purchasing Group
        WERKS(004),      "Plant
        LGORT(004),      "Storage Location
        KDATB(010),      "Valid start Date
        KDATE(010),      "Valid End Date
        ZTERM(004),      "Payment Terms
        KTWRT(020),      "Target Value
        EPSTP(001),      "Item Category
        EMATN(018),      "Material Number
        KTMNG(017),      "Target Quantity
        NETPR(014),      "Net Price
        PEINH(006),      "Net Price Unit
        BPRME(003),      "Net Price Order Price Unit
        IDNLF(035),      "Vendor Material number
        WEBRE(001),      "GR Based-IV
        MEPRF(001),      "Pricing Date Category
        LTEX1(040),      "Info Text
        DATAB(010),      "Valid From
        DATBI(010),      "Valid To
        KSCHL(004),      "Condition Type
        KBETR(016),      "Condition Rate if scale is not given
        KONWA(005),      "Currency
        KPEIN(005),      "Condition Pricing Unit
        KMEIN(003),      "Condition Unit of Measure
        KSTBM(019),      "Scale
        KBETR_01(016),   "Scale Rate
        DEL_FLAG,        "Delete Flag Indicator
        ERR_MSG(100),    "Error Message
      END OF T_RECORD,
      BEGIN OF T_ERR_RECORD,   "to have error records stored
         LIFNR(010),      "Vendor Number
         EVART(004),      "Agreement Type
         EKORG(004),      "Purchasing Organization
         EKGRP(003),      "Purchasing Group
         WERKS(004),      "Plant
         LGORT(004),      "Storage Location
         KDATB(010),      "Valid start Date
         KDATE(010),      "Valid End Date
         ZTERM(004),      "Payment Terms
         KTWRT(020),      "Target Value
         EPSTP(001),      "Item Category
         EMATN(018),      "Material Number
         KTMNG(017),      "Target Quantity
         NETPR(014),      "Net Price
         PEINH(006),      "Net Price Unit
         BPRME(003),      "Net Price Order Price Unit
         IDNLF(035),      "Vendor Material number
         WEBRE(001),      "GR Based-IV
         MEPRF(001),      "Pricing Date Category
         LTEX1(040),      "Info Text
         DATAB(010),      "Valid From
         DATBI(010),      "Valid To
         KSCHL(004),      "Condition Type
         KBETR(016),      "Condition Rate if scale is not given
         KONWA(005),      "Currency
         KPEIN(005),      "Condition Pricing Unit
         KMEIN(003),      "Condition Unit of Measure
         KSTBM(019),      "Scale
         KBETR_01(016),   "Scale Rate
         DEL_FLAG,        "Delete Flag Indicator
         ERR_MSG(100),    "Error Message
      END OF T_ERR_RECORD,
      BEGIN OF T_LOEKZ,    "To have deletion indicators for materials
          LOEKZ(001),    "Deletion indicator in purchasing document
          EMATN(018),    "Material Number
          WERKS(004),    "Plant
          LGORT(004),    "Storage Location
          BSTYP(001),    "Purchasing document category
      END OF T_LOEKZ,
      BEGIN OF T_MATNR, " Type definition to store details of materials
           MATNR(018),    "Material Number
      END OF T_MATNR,
      BEGIN OF T_T001,   " Type definition for company codes
          BUKRS(004),    " Company Code
      END OF T_T001,
      BEGIN OF T_ZMVXREF,   "Cross-Reference table type
          D_ALTKN(10),      "Legacy Vendor Number
          D_BUKRS(4),       "Legacy Company Code
          M_ALTKN(10),      "SAP Company Code
      END OF T_ZMVXREF,
      BEGIN OF T_LFA1,    "Master data of vendors
          LIFNR(10),      "Vendor Number
      END OF T_LFA1,
* Type Declaration for T024E (Company Codes)
       BEGIN OF T_T024E,
         EKORG   LIKE   T024E-EKORG,     "Purchasing organization
         BUKRS   LIKE   T024E-BUKRS,     "Company Code
       END OF T_T024E,
* Type Declaration for t001w (Plant)
       BEGIN OF T_T001W,
         WERKS LIKE T001W-WERKS,            "Plant
       END OF T_T001W,
* Type Declatation for String Line
       BEGIN OF T_STR1,                                     "#EC NEEDED
         SLINE(6000) TYPE C,
       END OF T_STR1.
TYPES: BEGIN OF T_BDCDATA. "BDC Data
        INCLUDE STRUCTURE BDCDATA.
TYPES: END OF T_BDCDATA.
*       Internal Tables Declaration                                  *
DATA:
*      Internal table to store input file data
       I_RECORD TYPE STANDARD TABLE OF T_RECORD INITIAL SIZE 0,
*      Internal table to capture errors
       I_ERR_REC TYPE STANDARD TABLE OF T_ERR_RECORD INITIAL SIZE 0,
*      Internal table to check for deletion indicators
       I_LOEKZ TYPE STANDARD TABLE OF T_LOEKZ INITIAL SIZE 0,
*      Internal table to check for material numbers
       I_MATNR TYPE STANDARD TABLE OF T_MATNR INITIAL SIZE 0,
*      Internal table used for storing Cross-Reference data of Vendor
       I_ZMVXREF TYPE STANDARD TABLE OF T_ZMVXREF INITIAL SIZE 0,
*      Internal table for holding Vendor Numbers from Master table
       I_LFA1 TYPE STANDARD TABLE OF T_LFA1 INITIAL SIZE 0,
*      Internal table for holding Purchase Org and Company Codes
       I_T024E TYPE STANDARD TABLE OF T_T024E INITIAL SIZE 0,
*      Internal table for holding Plants
       I_T001W TYPE STANDARD TABLE OF T_T001W INITIAL SIZE 0,
*      Internal table for storing a list of Company Codes
       I_T001 TYPE STANDARD TABLE OF T_T001 INITIAL SIZE 0,
*      Internal table used for ALV Reporting
       I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
*      Internal table used for holding List Header
       I_LISTHEADER TYPE SLIS_T_LISTHEADER,    "EC NEEDED
*      Internal table to hold ALV Event
       I_ALV_EVENT TYPE SLIS_T_EVENT,
*      Internal table to hold Sort Info for ALV Report
       I_SORT TYPE SLIS_T_SORTINFO_ALV,
*      Internal table for BDC Data
       I_BDCDATA TYPE STANDARD TABLE OF T_BDCDATA INITIAL SIZE 0,
*      Internal table for messages
       I_MESSTAB TYPE TABLE OF BDCMSGCOLL,
*      Internal table for String line
       I_STR1 TYPE STANDARD TABLE OF T_STR1 INITIAL SIZE 0.
*       Work Area Declaration                                         *
DATA:
* Work Area to hold data for the Open Contract
      WA_RECORD TYPE T_RECORD,
* Work Area to hold previous record data
      WA_RECORDPREV TYPE T_RECORD,
* Work Area to hold errors
      WA_ERR_REC TYPE T_ERR_RECORD,
* Work Area to hold the Deletion Indicator of materials
      WA_LOEKZ TYPE T_LOEKZ,
* Work Area to hold Material numbers of required materials
      WA_MATNR TYPE T_MATNR,      "EC NEEDED
* Work Area to hold errors occured while performing BDC
      WA_MESSTAB TYPE BDCMSGCOLL,
* Work Area to hold field catalog for ALV Reports
      WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
* Work Area to hold list header data for ALV reports
      WA_LISTHEADER TYPE SLIS_LISTHEADER,
* Work Area to hold ALV Event
      WA_ALV_EVENT LIKE LINE OF I_ALV_EVENT, "EC NEEDED
* Work Area to hold Layout of ALV Report
      WA_LAYOUT TYPE SLIS_LAYOUT_ALV,
* Work Area to hold Cross-Reference data of Vendor
      WA_ZMVXREF TYPE T_ZMVXREF,
* Work Area to hold Vendor Numbers from Master table
      WA_LFA1 TYPE T_LFA1,    "EC NEEDED
* Work Area to hold Purchase Org and Company Codes
      WA_T024E TYPE T_T024E,
* Work Area to hold Company Codes
      WA_T001 TYPE T_T001,
* Work Area to hold Plants
      WA_T001W TYPE T_T001W,
* Work Area to hold Sort Info for ALV Report
      WA_SORT TYPE SLIS_SORTINFO_ALV,
* Work Area to hold BDC Data
      WA_BDCDATA TYPE T_BDCDATA,
* Work Area for String line
      WA_STR1 TYPE T_STR1.
*       Variables Declaration                                        *
DATA: V_ERRMSG(500),           "To temporarily store the error message
      V_CONV_DATE(10) TYPE C, "To capture the converted date format
      V_DATE LIKE SY-DATUM,
      V_REPID LIKE SY-REPID,   "holds report id
      V_CROSS_REFERENCE_ERROR TYPE I, " cross-reference error
      V_INPUTERROR_FLAG VALUE '',      " input error status
      V_FILENAME TYPE STRING,          " File Name
      VEN_FLAG(1),                       " at new status
      MAT_FLAG(1),                      " at new status
      V_IND(2) TYPE N,                 " index of table control
      V_IND2(2) TYPE N,                " index of table control
      V_IND3(2) TYPE N,                " index of table control
      V_EVRTP1(20),
      V_EPSTP1(20),
      V_EMATN1(20),
      V_KTMNG1(20),
      V_NETPR1(20),
      V_PEINH1(20),
      V_BPRME1(20),
      V_TCSELFLAG1(20),
      V_KSCHL2(20),
      V_KBETR2(20),
      V_KONWA2(20),
      V_KPEIN2(20),
      V_KMEIN2(20),
      V_SELKZ2(20),
      V_KBETR3(20),
      V_KSTBM3(20),
      V_LINE TYPE I,
      V_STR TYPE X VALUE '09',
      V_EXIST TYPE C,
      V_EXIST1 TYPE C,
      V_ISDIR TYPE C,
      V_ISDIR1 TYPE C.
*       Constants Declaration                                        *
CONSTANTS: C_TCODE(5) VALUE 'ME31K', "Trx code - Open Contract Creation
           C_TRUE     VALUE 'X',       " Del_Flag indicator
           C_LOEKZ_MARKED VALUE 'X',   "Deletion indicator for material
           C_INPUTERROR_FLAG_YES VALUE 'X', "Input File Indicator
           C_VEN_ERR1 VALUE 1,    "Error Indicator
           C_16(2)    VALUE '16',
           C_VEN_ERR2 VALUE 2,    "Error Indicator
           C_VEN_ERR3 VALUE 3,    "Error Indicator
           C_VEN_SUCS VALUE 0,    "Success Indicator
           C_SUCCESS LIKE SY-SUBRC VALUE '0',
           C_STRUE    VALUE 'S', "Del_flag for SAP Errors
           C_YTRUE    VALUE 'Y', "Del_flag for Success Records
           C_MSGTYP_E VALUE 'E', "holds error message type
           C_MSGTYP_S VALUE 'S', "holds success message type
           C_BSTYP    VALUE 'K', "Purchasing Document type is Contract
           C_BACKGROUND VALUE 'N', "Background mode
           C_FOREGROUND VALUE 'A', "All Screen mode
           C_ERRORS   VALUE 'E',   "Error screen mode
           C_WK(2)    VALUE 'WK'. "Value Contract
*        Selection Screen                                             *
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-033.
SELECTION-SCREEN SKIP.
SELECT-OPTIONS:
*              Plant
               S_WERKS FOR T001W-WERKS OBLIGATORY,
*              Purchase Organization
               S_EKORG FOR T024E-EKORG OBLIGATORY.
*              Company Code
PARAMETER      P_BUKRS LIKE T001-BUKRS OBLIGATORY.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN ULINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 3.
PARAMETER RB_SERVE RADIOBUTTON GROUP RBX DEFAULT 'X' USER-COMMAND U1.
SELECTION-SCREEN COMMENT 6(19) TEXT-036.
SELECTION-SCREEN POSITION 37.
PARAMETER RB_LOCAL RADIOBUTTON GROUP RBX.
SELECTION-SCREEN COMMENT 40(13) TEXT-035.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN SKIP.
PARAMETERS:
*    Parameter holding Input File name
          P_FILE LIKE RLGRAP-FILENAME
                 OBLIGATORY
                 LOWER CASE
                 DEFAULT 'C:\'
                 MODIF ID G1,
          P_FILE1 LIKE RLGRAP-FILENAME
                  OBLIGATORY
                  LOWER CASE
                  DEFAULT '/celestica/interface/corp/in/work/'
                  MODIF ID G2,
*    Parameter specifying Mode of calling the Transaction.
          P_MODE DEFAULT 'N' OBLIGATORY,
*    Check box used to test the input file.
          P_TEST AS CHECKBOX DEFAULT 'X',
*    Parameter holding Filename for holding Input File Errors
          P_IPERR LIKE RLGRAP-FILENAME
                  OBLIGATORY
                  LOWER CASE
                  DEFAULT 'C:\'
                  MODIF ID G1,
          P_IPERR1 LIKE RLGRAP-FILENAME
                 OBLIGATORY
                 LOWER CASE
                 DEFAULT '/celestica/interface/corp/in/work/047_Err.txt'
                 MODIF ID G2.
SELECTION-SCREEN END OF BLOCK B2.
*        AT Selection Screen Events                                  *
* Loop the screen to activate relative paths
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
    IF RB_SERVE = C_TRUE AND SCREEN-GROUP1 = 'G1'.
      SCREEN-OUTPUT = 0.
      SCREEN-ACTIVE = 0.
      SCREEN-INPUT = 0.
    ELSEIF RB_LOCAL = C_TRUE AND SCREEN-GROUP1 = 'G2'.
      SCREEN-OUTPUT = 0.
      SCREEN-ACTIVE = 0.
      SCREEN-INPUT = 0.
    ENDIF.
    MODIFY SCREEN.
ENDLOOP.
AT SELECTION-SCREEN ON BLOCK B2.
* Checking Access Authorization for the user
CALL FUNCTION 'ZU_DATA_ACCESS_AUTH_CHECK'
       EXPORTING
            ACTVT        = C_16
            P_BUKRS      = P_BUKRS
       TABLES
            S_WERKS      = S_WERKS
            S_EKORG      = S_EKORG
       EXCEPTIONS
            BUKRS_FAILED = 1
            VKORG_FAILED = 2
            VTWEG_FAILED = 3
            EKORG_FAILED = 4
            WERKS_FAILED = 5
            LGNUM_FAILED = 6
            OTHERS       = 7.
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
AT SELECTION-SCREEN ON P_BUKRS.
IF NOT P_BUKRS IS INITIAL.
    SELECT SINGLE BUKRS INTO T001
                        FROM T001
                        WHERE BUKRS EQ P_BUKRS.
    IF SY-SUBRC NE 0.
      MESSAGE I000 WITH TEXT-089.
      STOP.
    ENDIF.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
* Search Help to select Input File path.
PERFORM GET_FILE_NAME USING P_FILE.
* Check for the existence of the file.
IF RB_LOCAL EQ C_TRUE.
    CALL FUNCTION 'TMP_GUI_GET_FILE_EXIST'
         EXPORTING
              FNAME          = P_FILE
         IMPORTING
              EXIST          = V_EXIST
              ISDIR          = V_ISDIR
         EXCEPTIONS
              FILEINFO_ERROR = 1
              OTHERS         = 2.
    IF SY-SUBRC <> 0.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    IF V_ISDIR IS INITIAL.
      IF V_EXIST IS INITIAL.
        MESSAGE I000 WITH TEXT-018.
        STOP.
      ENDIF.
    ELSEIF V_ISDIR EQ C_TRUE.
      MESSAGE I000 WITH TEXT-068.
      STOP.
    ENDIF.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_IPERR.
* Search Help to select Input Error File path.
PERFORM GET_FILE_NAME USING P_IPERR.
AT SELECTION-SCREEN.
* Validate Transaction Mode
IF P_MODE <> C_BACKGROUND AND
      P_MODE <> C_FOREGROUND AND
      P_MODE <> C_ERRORS.
    MESSAGE I000 WITH TEXT-034.
    STOP.
ENDIF.
START-OF-SELECTION.
* Get the Input File Data
V_FILENAME = P_FILE.
PERFORM UPLOAD_FLATFILE_DATA TABLES I_RECORD
                               USING V_FILENAME.
* Sorting the data by all fields
SORT I_RECORD.
* Ensuring the padding of the empty spaces before the vendor No
CLEAR WA_RECORD.
LOOP AT I_RECORD INTO WA_RECORD.
    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
         EXPORTING
              INPUT = WA_RECORD-LIFNR
         IMPORTING
              OUTPUT = WA_RECORD-LIFNR.
    MODIFY I_RECORD FROM WA_RECORD
                    INDEX SY-TABIX
                    TRANSPORTING LIFNR.
    CLEAR WA_RECORD.
ENDLOOP.
* Input file validation
PERFORM VALIDATE_FLATFILE_DATA.
IF P_TEST = C_TRUE.
    IF I_ERR_REC[] IS INITIAL.
      MESSAGE I000 WITH TEXT-032.
      STOP.
    ELSE.
* Display all the error records at the input level.
      PERFORM DISPLAY_INPERR_RECORDS.
* Download Error File
      PERFORM DOWNLOAD_ERROR_FILE.
    ENDIF.
ELSE.
* Build BDC Data
    PERFORM BUILD_BDC_DATA.
* Download Error File
    PERFORM DOWNLOAD_ERROR_FILE.
* Display the status report.
    PERFORM DISPLAY_PROCESSED_RECORDS.
ENDIF.
END-OF-SELECTION.
REFRESH: I_RECORD,
            I_ERR_REC,
            I_LOEKZ,
            I_MATNR,
            I_ZMVXREF,
            I_LFA1,
            I_T024E,
            I_FIELDCAT,
            I_LISTHEADER,
            I_ALV_EVENT,
            I_SORT,
            I_BDCDATA,
            I_MESSTAB,
            I_STR1.
FREE: I_RECORD,
        I_ERR_REC,
        I_LOEKZ,
        I_MATNR,
        I_ZMVXREF,
        I_LFA1,
        I_T024E,
        I_FIELDCAT,
        I_LISTHEADER,
        I_ALV_EVENT,
        I_SORT,
        I_BDCDATA,
        I_MESSTAB,
        I_STR1.
*&      Form GET_file_name
*       Fetches the file and path from the presentation system
* --> p1        Path along with the file name
FORM GET_FILE_NAME USING L_FILE LIKE RLGRAP-FILENAME.
CALL FUNCTION 'WS_FILENAME_GET'
       EXPORTING
            MASK             = ',*.TXT,*.txt.'
            MODE             = 'O'
            TITLE            = TEXT-011
       IMPORTING
            FILENAME         = L_FILE
       EXCEPTIONS
            INV_WINSYS       = 1
            NO_BATCH         = 2
            SELECTION_CANCEL = 3
            SELECTION_ERROR = 4
            OTHERS           = 5.
CASE SY-SUBRC.
    WHEN 1.
      MESSAGE I000 WITH TEXT-084.
      STOP.
    WHEN 2.
      MESSAGE I000 WITH TEXT-085.
      STOP.
    WHEN 3.
      MESSAGE I000 WITH TEXT-086.
      STOP.
    WHEN 4.
      MESSAGE I000 WITH TEXT-087.
      STOP.
ENDCASE.
ENDFORM.                    " GET_file_name
*&      Form upload_flatfile_data
*       Uploading data from Flat File
FORM UPLOAD_FLATFILE_DATA
                      TABLES I_L_RECORD STRUCTURE WA_RECORD
                      USING L_FILENAME TYPE STRING.
DATA WA_L_RECORD TYPE T_RECORD.
* Upload the Flat file data
IF RB_LOCAL EQ C_TRUE. "File is on the Local System
    CALL FUNCTION 'GUI_UPLOAD'
         EXPORTING
              FILENAME                = L_FILENAME
              FILETYPE                = 'ASC'
              HAS_FIELD_SEPARATOR     = 'X'
         TABLES
              DATA_TAB                = I_L_RECORD
         EXCEPTIONS
              FILE_OPEN_ERROR         = 1
              FILE_READ_ERROR         = 2
              NO_BATCH                = 3
              GUI_REFUSE_FILETRANSFER = 4
              INVALID_TYPE            = 5
              NO_AUTHORITY            = 6
              UNKNOWN_ERROR           = 7
              BAD_DATA_FORMAT         = 8
              HEADER_NOT_ALLOWED      = 9
              SEPARATOR_NOT_ALLOWED   = 10
              HEADER_TOO_LONG         = 11
              UNKNOWN_DP_ERROR        = 12
              ACCESS_DENIED           = 13
              DP_OUT_OF_MEMORY        = 14
              DISK_FULL               = 15
              DP_TIMEOUT              = 16
              OTHERS                  = 17.
    CASE SY-SUBRC.
      WHEN 0.
        DESCRIBE TABLE I_L_RECORD LINES V_LINE.
        IF V_LINE EQ 0.
          MESSAGE I000 WITH TEXT-065.
          STOP.
        ENDIF.
      WHEN 1.
        MESSAGE I000 WITH TEXT-068.
        STOP.
      WHEN 2.
        MESSAGE I000 WITH TEXT-069.
        STOP.
      WHEN 3.
        MESSAGE I000 WITH TEXT-070.
        STOP.
      WHEN 4.
        MESSAGE I000 WITH TEXT-071.
        STOP.
      WHEN 5.
        MESSAGE I000 WITH TEXT-072.
        STOP.
      WHEN 6.
        MESSAGE I000 WITH TEXT-073.
        STOP.
      WHEN 7.
        MESSAGE I000 WITH TEXT-074.
        STOP.
      WHEN 8.
        MESSAGE I000 WITH TEXT-075.
        STOP.
      WHEN 9.
        MESSAGE I000 WITH TEXT-076.
        STOP.
      WHEN 10.
        MESSAGE I000 WITH TEXT-077.
        STOP.
      WHEN 11.
        MESSAGE I000 WITH TEXT-078.
        STOP.
      WHEN 12.
        MESSAGE I000 WITH TEXT-079.
        STOP.
      WHEN 13.
        MESSAGE I000 WITH TEXT-080.
        STOP.
      WHEN 14.
        MESSAGE I000 WITH TEXT-081.
        STOP.
      WHEN 15.
        MESSAGE I000 WITH TEXT-082.
        STOP.
      WHEN 16.
        MESSAGE I000 WITH TEXT-083.
        STOP.
    ENDCASE.
    CLEAR V_LINE.
ELSEIF RB_SERVE EQ C_TRUE. "File is on the Application Server
    P_MODE = C_BACKGROUND.
    OPEN DATASET P_FILE1 FOR INPUT IN TEXT MODE.
    CHECK SY-SUBRC EQ C_SUCCESS.
    CLEAR WA_STR1.
    DO.
      READ DATASET P_FILE1 INTO WA_STR1.
      IF SY-SUBRC <> 0.      " NE SUCCESS.
        EXIT.
      ELSEIF SY-SUBRC EQ C_SUCCESS.
        APPEND WA_STR1 TO I_STR1.
        CLEAR WA_STR1.
      ENDIF.                  " ENDIF on SY-SUBRC 0 Check.
    ENDDO.                    " ENDDO
    DELETE I_STR1 WHERE SLINE EQ ' '.
    DESCRIBE TABLE I_STR1 LINES V_LINE.
    IF V_LINE EQ 0.
      MESSAGE S000 WITH TEXT-065.
      STOP.
    ENDIF.
    LOOP AT I_STR1 INTO WA_STR1.
      CLEAR: WA_L_RECORD.
      SPLIT WA_STR1-SLINE AT V_STR
      INTO WA_L_RECORD-LIFNR
           WA_L_RECORD-EVART
           WA_L_RECORD-EKORG
           WA_L_RECORD-EKGRP
           WA_L_RECORD-WERKS
           WA_L_RECORD-LGORT
           WA_L_RECORD-KDATB
           WA_L_RECORD-KDATE
           WA_L_RECORD-ZTERM
           WA_L_RECORD-KTWRT
           WA_L_RECORD-EPSTP
           WA_L_RECORD-EMATN
           WA_L_RECORD-KTMNG
           WA_L_RECORD-NETPR
           WA_L_RECORD-PEINH
           WA_L_RECORD-BPRME
           WA_L_RECORD-IDNLF
           WA_L_RECORD-WEBRE
           WA_L_RECORD-MEPRF
           WA_L_RECORD-LTEX1
           WA_L_RECORD-DATAB
           WA_L_RECORD-DATBI
           WA_L_RECORD-KSCHL
           WA_L_RECORD-KBETR
           WA_L_RECORD-KONWA
           WA_L_RECORD-KPEIN
           WA_L_RECORD-KMEIN
           WA_L_RECORD-KSTBM
           WA_L_RECORD-KBETR_01
           WA_L_RECORD-DEL_FLAG
           WA_L_RECORD-ERR_MSG.
      APPEND WA_L_RECORD TO I_L_RECORD.
      CLEAR: WA_L_RECORD,
              WA_STR1.
    ENDLOOP.
    REFRESH I_STR1.
    CLOSE DATASET P_FILE1.
ENDIF.
ENDFORM.
*&      Form BDC_DYNPRO
*       Data populated into i_bdcdata table for program
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR WA_BDCDATA.
WA_BDCDATA-PROGRAM = PROGRAM.
WA_BDCDATA-DYNPRO   = DYNPRO.
WA_BDCDATA-DYNBEGIN = C_TRUE.
APPEND WA_BDCDATA TO I_BDCDATA.
ENDFORM.
*&      Form BDC_FIELD
*       Data populated into i_bdcdata table for fields
FORM BDC_FIELD USING FNAM FVAL.
CLEAR WA_BDCDATA.
WA_BDCDATA-FNAM = FNAM.
WA_BDCDATA-FVAL = FVAL.
APPEND WA_BDCDATA TO I_BDCDATA.
ENDFORM.
*&      Form convert_date
*       Converting the data from the file format to mm/dd/yyyy format
*      <--P_wa_record_kdatb Source Date
*      <--p_l_conv_date      Target Date
FORM CONVERT_DATE USING L_DATE
                        L_TAR_DATE.
CONCATENATE L_DATE+0(2)
              L_DATE+3(2)
              L_DATE+6(4)
              INTO L_TAR_DATE.
ENDFORM.                    " convert_date
*&      Form validate_flatfile_data
*       Validating the input file
FORM VALIDATE_FLATFILE_DATA.
DATA: L_TODAY LIKE SY-DATUM,
        L_STARTDATE_C LIKE SY-DATUM,
        L_ENDDATE_C LIKE SY-DATUM,
        L_ENDDATE_C1 LIKE SY-DATUM,
        L_STARTDATE_C1 LIKE SY-DATUM,
        L_STARTDATE(8),
        L_ENDDATE(8).
* Fetch indicator for all records on the material, plant & storage
* location combination.
IF NOT I_RECORD[] IS INITIAL.
    REFRESH I_LOEKZ.
    SELECT EMATN            " Material Number
           WERKS            " Plant
           LGORT            " Storage Location
           BSTYP            " Purchasing Document Category
           LOEKZ            " Deletion indicator
      INTO TABLE I_LOEKZ
      FROM EKPO
      FOR ALL ENTRIES IN I_RECORD
      WHERE EMATN = I_RECORD-EMATN
        AND WERKS = I_RECORD-WERKS
        AND LGORT = I_RECORD-LGORT
        AND BSTYP = C_BSTYP
        AND LOEKZ = C_LOEKZ_MARKED.
    IF SY-SUBRC EQ 0.
      SORT I_LOEKZ BY EMATN WERKS LGORT BSTYP LOEKZ.
    ENDIF.
* Fetching Plants for all entries in the selection screen
    REFRESH I_T001W.
    SELECT WERKS "Plant
        INTO TABLE I_T001W
        FROM T001W
        WHERE WERKS IN S_WERKS.
    IF SY-SUBRC EQ 0.
      SORT I_T001W BY WERKS.
    ENDIF.
* Fetching materials for the plants listed in flat file
    REFRESH I_MATNR.
    SELECT MATNR          " Material Number
      INTO TABLE I_MATNR
      FROM MARC
      FOR ALL ENTRIES IN I_RECORD
      WHERE WERKS = I_RECORD-WERKS.
    IF SY-SUBRC EQ 0.
      SORT I_MATNR BY MATNR.
    ENDIF.
* Fetching Company Codes for repective Purchase Organizations
    REFRESH I_T024E.
    SELECT EKORG       " Purchase Organization
           BUKRS       " Company Code
        INTO TABLE I_T024E
        FROM T024E
        WHERE EKORG IN S_EKORG.
    IF SY-SUBRC EQ 0.
      SORT I_T024E BY EKORG.
    ENDIF.
* Fetching SAP Data using Legacy Data.
    REFRESH I_ZMVXREF.
    SELECT D_ALTKN
           D_BUKRS
           M_ALTKN
        INTO TABLE I_ZMVXREF
        FROM ZMVXREF
        FOR ALL ENTRIES IN I_RECORD
        WHERE D_ALTKN = I_RECORD-LIFNR.
    IF SY-SUBRC EQ 0.
      SORT I_ZMVXREF BY D_ALTKN D_BUKRS.
    ENDIF.
* Fetching Vendors from LFA1
    IF NOT I_ZMVXREF[] IS INITIAL.
      REFRESH I_LFA1.
      SELECT LIFNR
         INTO TABLE I_LFA1
         FROM LFA1
         FOR ALL ENTRIES IN I_ZMVXREF
         WHERE LIFNR = I_ZMVXREF-M_ALTKN.
      IF SY-SUBRC EQ 0.
        SORT I_LFA1 BY LIFNR.
      ENDIF.
    ENDIF.
* Start Validating the flat file
    CLEAR: WA_RECORD,
           WA_T024E,
           WA_ZMVXREF,
           WA_LFA1,
           WA_LOEKZ,
           WA_MATNR.
    LOOP AT I_RECORD INTO WA_RECORD.
      L_TODAY = SY-DATUM.
      L_STARTDATE = WA_RECORD-KDATB.
      L_ENDDATE = WA_RECORD-KDATE.
      IF WA_RECORD-DEL_FLAG IS INITIAL.
        READ TABLE I_T001W INTO WA_T001W
                           WITH KEY WERKS = WA_RECORD-WERKS
                           BINARY SEARCH.
        IF SY-SUBRC EQ 0.
*   Cross-Reference check performed for the given Vendors
          READ TABLE I_T024E INTO WA_T024E
                             WITH KEY EKORG = WA_RECORD-EKORG
                             BINARY SEARCH.
          IF SY-SUBRC NE 0.
            V_CROSS_REFERENCE_ERROR = C_VEN_ERR3.
          ELSE.
            READ TABLE I_ZMVXREF INTO WA_ZMVXREF
                        WITH KEY D_ALTKN = WA_RECORD-LIFNR
                                 D_BUKRS = P_BUKRS
                        BINARY SEARCH.
            IF SY-SUBRC EQ 0.
              READ TABLE I_LFA1 INTO WA_LFA1
                         WITH KEY LIFNR = WA_ZMVXREF-M_ALTKN
                         BINARY SEARCH.
              IF SY-SUBRC EQ 0.
                V_CROSS_REFERENCE_ERROR = C_VEN_SUCS.
              ELSE.
                V_CROSS_REFERENCE_ERROR = C_VEN_ERR2.
              ENDIF.
            ELSE.
              V_CROSS_REFERENCE_ERROR = C_VEN_ERR1.
            ENDIF.
          ENDIF.
* Legacy Vendor could not be mapped
          IF V_CROSS_REFERENCE_ERROR EQ C_VEN_ERR1.
        V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES. "Inp.file err. occurd
            WA_RECORD-DEL_FLAG = C_TRUE.
            WA_RECORD-ERR_MSG = TEXT-007.
            MODIFY I_RECORD FROM WA_RECORD
                            TRANSPORTING DEL_FLAG
                                         ERR_MSG
                            WHERE LIFNR = WA_RECORD-LIFNR.
* Legacy Vendor is mapped but the obtained SAP vendor doesn't exist.
          ELSEIF V_CROSS_REFERENCE_ERROR EQ C_VEN_ERR2.
*           Inp.file err. occurd
            V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES.
            WA_RECORD-DEL_FLAG = C_TRUE.
            WA_RECORD-ERR_MSG = TEXT-008.
            MODIFY I_RECORD FROM WA_RECORD
                            TRANSPORTING DEL_FLAG
                                         ERR_MSG
                            WHERE LIFNR = WA_RECORD-LIFNR.
* Purchase Organization doesn't exist in T024E.
          ELSEIF V_CROSS_REFERENCE_ERROR EQ C_VEN_ERR3.
*             Inp.file err. occurd
            V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES.
            WA_RECORD-DEL_FLAG = C_TRUE.
            WA_RECORD-ERR_MSG = TEXT-014.
            MODIFY I_RECORD FROM WA_RECORD
                            TRANSPORTING DEL_FLAG
                                         ERR_MSG
                            WHERE EKORG = WA_RECORD-EKORG.
* Vendor is mapped and validated successfully
          ELSEIF V_CROSS_REFERENCE_ERROR EQ C_VEN_SUCS.
* Checking for the deletion indicator for that record
            CONCATENATE WA_RECORD-KDATB+6(4)
                        WA_RECORD-KDATB+3(2)
                        WA_RECORD-KDATB+0(2)
                        INTO
                        L_STARTDATE.
            MOVE L_STARTDATE TO L_STARTDATE_C.
            CONCATENATE WA_RECORD-KDATB+6(4)
                        WA_RECORD-KDATB+0(2)
                        WA_RECORD-KDATB+3(2)
                        INTO
                        L_STARTDATE_C1.
            CONCATENATE WA_RECORD-KDATE+6(4)
                        WA_RECORD-KDATE+3(2)
                        WA_RECORD-KDATE+0(2)
                        INTO
                        L_ENDDATE.
            MOVE L_ENDDATE TO L_ENDDATE_C.
            CONCATENATE WA_RECORD-KDATE+6(4)
                        WA_RECORD-KDATE+0(2)
                        WA_RECORD-KDATE+3(2)
                        INTO
                        L_ENDDATE_C1.
            READ TABLE I_LOEKZ INTO WA_LOEKZ WITH KEY
                                             EMATN = WA_RECORD-EMATN
                                             WERKS = WA_RECORD-WERKS
                                             LGORT = WA_RECORD-LGORT
                                             BINARY SEARCH.
            IF SY-SUBRC EQ 0.
*             Inpfle err.occured
              V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES.
              WA_RECORD-ERR_MSG = TEXT-003.
              WA_RECORD-DEL_FLAG = C_TRUE.    "marking the record
              MODIFY I_RECORD FROM WA_RECORD
                              TRANSPORTING DEL_FLAG
                                            ERR_MSG
                              WHERE LIFNR = WA_RECORD-LIFNR
                                AND EVART = WA_RECORD-EVART
                                AND EKORG = WA_RECORD-EKORG
                                AND EKGRP = WA_RECORD-EKGRP
                                AND WERKS = WA_RECORD-WERKS
                                AND LGORT = WA_RECORD-LGORT
                                AND KDATB = WA_RECORD-KDATB
                                AND KDATE = WA_RECORD-KDATE
                                AND ZTERM = WA_RECORD-ZTERM
                                AND KTWRT = WA_RECORD-KTWRT
                                AND EPSTP = WA_RECORD-EPSTP
                                AND EMATN = WA_RECORD-EMATN.
* Validating the Purchasing Organization for Blank/Null
            ELSEIF WA_RECORD-EKORG IS INITIAL.
*             Inpfle err.occured
              V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES.
              WA_RECORD-ERR_MSG = TEXT-010.
              WA_RECORD-DEL_FLAG = C_TRUE.
              MODIFY I_RECORD FROM WA_RECORD
                              TRANSPORTING DEL_FLAG
                                           ERR_MSG
                              WHERE LIFNR = WA_RECORD-LIFNR
                                AND EVART = WA_RECORD-EVART
                                AND EKORG = WA_RECORD-EKORG
                                AND EKGRP = WA_RECORD-EKGRP
                                AND WERKS = WA_RECORD-WERKS
                                AND LGORT = WA_RECORD-LGORT
                                AND KDATB = WA_RECORD-KDATB
                                AND KDATE = WA_RECORD-KDATE
                                AND ZTERM = WA_RECORD-ZTERM
                                AND KTWRT = WA_RECORD-KTWRT
                                AND EPSTP = WA_RECORD-EPSTP
                                AND EMATN = WA_RECORD-EMATN.
* Validating the Plant for Blank/Null
            ELSEIF WA_RECORD-WERKS IS INITIAL.
*             Inpfle err.occured
              V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES.
              WA_RECORD-ERR_MSG = TEXT-039.
              WA_RECORD-DEL_FLAG = C_TRUE.
              MODIFY I_RECORD FROM WA_RECORD
                              TRANSPORTING DEL_FLAG
                                           ERR_MSG
                              WHERE LIFNR = WA_RECORD-LIFNR
                                AND EVART = WA_RECORD-EVART
                                AND EKORG = WA_RECORD-EKORG
                                AND EKGRP = WA_RECORD-EKGRP
                                AND WERKS = WA_RECORD-WERKS
                                AND LGORT = WA_RECORD-LGORT
                                AND KDATB = WA_RECORD-KDATB
                                AND KDATE = WA_RECORD-KDATE
                                AND ZTERM = WA_RECORD-ZTERM
                                AND KTWRT = WA_RECORD-KTWRT
                                AND EPSTP = WA_RECORD-EPSTP
                                AND EMATN = WA_RECORD-EMATN.
* Validating the Contract Validity Start Date
            ELSEIF L_STARTDATE_C1 GT L_TODAY.             "#EC PORTABLE
*             Inpfle err.occured
              V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES.
              WA_RECORD-ERR_MSG = TEXT-004.
              WA_RECORD-DEL_FLAG = C_TRUE.      "marking the record
              MODIFY I_RECORD FROM WA_RECORD
                              TRANSPORTING DEL_FLAG
                                           ERR_MSG
                              WHERE LIFNR = WA_RECORD-LIFNR
                                AND EVART = WA_RECORD-EVART
                                AND EKORG = WA_RECORD-EKORG
                                AND EKGRP = WA_RECORD-EKGRP
                                AND WERKS = WA_RECORD-WERKS
                                AND LGORT = WA_RECORD-LGORT
                                AND KDATB = WA_RECORD-KDATB.
* Validating the Contract Validity End Date
            ELSEIF L_ENDDATE_C1 LE L_TODAY.               "#EC PORTABLE
*             Inpfle err.ocrd
              V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES.
              WA_RECORD-ERR_MSG = TEXT-005.
              WA_RECORD-DEL_FLAG = C_TRUE.    "marking the record
              MODIFY I_RECORD FROM WA_RECORD
                              TRANSPORTING DEL_FLAG
                                           ERR_MSG
                              WHERE LIFNR = WA_RECORD-LIFNR
                                AND EVART = WA_RECORD-EVART
                                AND EKORG = WA_RECORD-EKORG
                                AND EKGRP = WA_RECORD-EKGRP
                                AND WERKS = WA_RECORD-WERKS
                                AND LGORT = WA_RECORD-LGORT
                                AND KDATB = WA_RECORD-KDATB
                                AND KDATE = WA_RECORD-KDATE.
* Checking for Material under the Plant for Agreement Type 'WK'
            ELSEIF WA_RECORD-EVART = C_WK.
              READ TABLE I_MATNR INTO WA_MATNR
                                 WITH KEY MATNR = WA_RECORD-EMATN
                                 BINARY SEARCH.
              IF SY-SUBRC NE 0.
             V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES. "Inpfle err.ocrd
                WA_RECORD-ERR_MSG = TEXT-006.
                WA_RECORD-DEL_FLAG = C_TRUE.   "marking the record
                MODIFY I_RECORD FROM WA_RECORD
                                TRANSPORTING DEL_FLAG
                                             ERR_MSG
                                WHERE LIFNR = WA_RECORD-LIFNR
                                  AND EVART = WA_RECORD-EVART
                                  AND EKORG = WA_RECORD-EKORG
                                  AND EKGRP = WA_RECORD-EKGRP
                                  AND WERKS = WA_RECORD-WERKS
                                  AND LGORT = WA_RECORD-LGORT
                                  AND KDATB = WA_RECORD-KDATB
                                  AND KDATE = WA_RECORD-KDATE
                                  AND ZTERM = WA_RECORD-ZTERM
                                  AND KTWRT = WA_RECORD-KTWRT
                                  AND EPSTP = WA_RECORD-EPSTP
                                  AND EMATN = WA_RECORD-EMATN.
              ENDIF.
            ENDIF. " checking of deletion indicator
          ENDIF.   " checking for success of vendor cross reference
        ELSE.
          V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES. "Inpfle err.ocrd
          WA_RECORD-ERR_MSG = TEXT-041.
          WA_RECORD-DEL_FLAG = C_TRUE.   "marking the record
          MODIFY I_RECORD FROM WA_RECORD
                          TRANSPORTING DEL_FLAG
                                       ERR_MSG
                          WHERE WERKS = WA_RECORD-WERKS.
        ENDIF. " Plant checked to selection screen
      ENDIF. " the records for which del_flag is initial
      CLEAR: WA_RECORD,
             WA_T024E,
             WA_ZMVXREF,
             WA_LFA1,
             WA_LOEKZ,
             WA_MATNR,
             L_TODAY,
             L_STARTDATE_C,
             L_ENDDATE_C,
             L_STARTDATE,
             L_ENDDATE.
    ENDLOOP.
    LOOP AT I_RECORD INTO WA_RECORD.
      IF WA_RECORD-DEL_FLAG = C_TRUE.
        APPEND WA_RECORD TO I_ERR_REC.
        CLEAR WA_RECORD.
      ENDIF.
    ENDLOOP.
ELSE.
    MESSAGE E000 WITH TEXT-013. " no records in the flat file
    STOP.
ENDIF.
ENDFORM.                    " validate_flatfile_data
*&      Form DOWNLOAD_ERROR_FILE
*       Downloads all records along with the records encountering the
*       input file validation error
FORM DOWNLOAD_ERROR_FILE.
DATA L_ISDIR TYPE C.
IF V_INPUTERROR_FLAG = C_INPUTERROR_FLAG_YES.
    V_FILENAME = P_IPERR.
* Check for the existence of the file.
    IF RB_LOCAL EQ C_TRUE.
      CALL FUNCTION 'TMP_GUI_GET_FILE_EXIST'
           EXPORTING
                FNAME          = P_IPERR
           IMPORTING
                ISDIR          = L_ISDIR
           EXCEPTIONS
                FILEINFO_ERROR = 1
                OTHERS         = 2.
      IF SY-SUBRC <> 0.
        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      IF L_ISDIR EQ C_TRUE.
        MESSAGE I000 WITH TEXT-088.
        STOP.
      ENDIF.
    ENDIF.
    IF RB_LOCAL EQ C_TRUE.
* Download the Input Error File.
      CALL FUNCTION 'GUI_DOWNLOAD'
           EXPORTING
                FILENAME                = V_FILENAME
                FILETYPE                = 'ASC'
                WRITE_FIELD_SEPARATOR   = '#'
           TABLES
                DATA_TAB                = I_ERR_REC
           EXCEPTIONS
                FILE_WRITE_ERROR        = 1
                NO_BATCH                = 2
                GUI_REFUSE_FILETRANSFER = 3
                INVALID_TYPE            = 4
                NO_AUTHORITY            = 5
                UNKNOWN_ERROR           = 6
                HEADER_NOT_ALLOWED      = 7
                SEPARATOR_NOT_ALLOWED   = 8
                FILESIZE_NOT_ALLOWED    = 9
                HEADER_TOO_LONG         = 10
                DP_ERROR_CREATE         = 11
                DP_ERROR_SEND           = 12
                DP_ERROR_WRITE          = 13
                UNKNOWN_DP_ERROR        = 14
                ACCESS_DENIED           = 15
                DP_OUT_OF_MEMORY        = 16
                DISK_FULL               = 17
                DP_TIMEOUT              = 18
                FILE_NOT_FOUND          = 19
                DATAPROVIDER_EXCEPTION = 20
                CONTROL_FLUSH_ERROR     = 21
                OTHERS                  = 22.
      IF SY-SUBRC <> 0.
        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
    ELSEIF RB_SERVE EQ C_TRUE.
      OPEN DATASET P_IPERR1 FOR OUTPUT IN TEXT MODE.
      CHECK SY-SUBRC EQ 0.
      CLEAR WA_ERR_REC.
      LOOP AT I_ERR_REC INTO WA_ERR_REC.
        IF WA_ERR_REC-DEL_FLAG = C_TRUE.
          TRANSFER WA_ERR_REC TO P_IPERR1.
        ENDIF.
        CLEAR WA_ERR_REC.
      ENDLOOP.
      CLOSE DATASET P_IPERR1.
    ENDIF.
ENDIF.
ENDFORM.                    " DOWNLOAD_ERROR_FILE
*&      Form BUILD_BDC_DATA
* Populates BDC for all the fields neccessary for Open Contract Creation
FORM BUILD_BDC_DATA.
DATA: L_MAT_INDEX TYPE I,
        L_CON_INDEX TYPE I,
        L_SCA_INDEX TYPE I.
CLEAR   WA_BDCDATA.
REFRESH: I_BDCDATA,
           I_MESSTAB.
* Processing the bdc
CLEAR: WA_RECORD,
         WA_RECORDPREV,
         VEN_FLAG,
         MAT_FLAG.
LOOP AT I_RECORD INTO WA_RECORD.
*    Checks for the del_flag of the record.
    IF     WA_RECORD-DEL_FLAG EQ C_TRUE
        OR WA_RECORD-DEL_FLAG EQ C_STRUE.
      CLEAR WA_RECORD.
      CONTINUE.
    ELSE.
      IF WA_RECORDPREV-LIFNR NE WA_RECORD-LIFNR
       OR WA_RECORDPREV-EVART NE WA_RECORD-EVART
       OR WA_RECORDPREV-EKORG NE WA_RECORD-EKORG
       OR WA_RECORDPREV-EKGRP NE WA_RECORD-EKGRP
       OR WA_RECORDPREV-WERKS NE WA_RECORD-WERKS
       OR WA_RECORDPREV-LGORT NE WA_RECORD-LGORT
       OR WA_RECORDPREV-KDATB NE WA_RECORD-KDATB
       OR WA_RECORDPREV-KDATE NE WA_RECORD-KDATE
       OR WA_RECORDPREV-ZTERM NE WA_RECORD-ZTERM
       OR WA_RECORDPREV-KTWRT NE WA_RECORD-KTWRT.
        PERFORM BDC_DYNPRO      USING 'SAPMM06E' '0200'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'RM06E-LGORT'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '/00'.
*   Cross-Reference check performed for the given Vendors
        CLEAR WA_T024E.
        READ TABLE I_T024E INTO WA_T024E
                           WITH KEY EKORG = WA_RECORD-EKORG
                           BINARY SEARCH.
        IF SY-SUBRC EQ 0.
          CLEAR WA_ZMVXREF.
          READ TABLE I_ZMVXREF INTO WA_ZMVXREF
                      WITH KEY D_ALTKN = WA_RECORD-LIFNR
                               D_BUKRS = P_BUKRS
                      BINARY SEARCH.
          IF SY-SUBRC EQ 0.
            PERFORM BDC_FIELD   USING 'EKKO-LIFNR'
                                       WA_ZMVXREF-M_ALTKN.
          ENDIF.
          CLEAR WA_ZMVXREF.
        ENDIF.
        CLEAR WA_T024E.
        PERFORM BDC_FIELD       USING 'RM06E-EVART'
                                      WA_RECORD-EVART.
        PERFORM BDC_FIELD       USING 'EKKO-EKORG'
                                      WA_RECORD-EKORG.
        PERFORM BDC_FIELD       USING 'EKKO-EKGRP'
                                      WA_RECORD-EKGRP.
        PERFORM BDC_FIELD       USING 'RM06E-WERKS'
                                      WA_RECORD-WERKS.
        PERFORM BDC_FIELD       USING 'RM06E-LGORT'
                                      WA_RECORD-LGORT.
        PERFORM BDC_DYNPRO      USING 'SAPMM06E' '0201'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'EKKO-KTWRT'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '=AB'.
        PERFORM CONVERT_DATE USING WA_RECORD-KDATB V_CONV_DATE.
        PERFORM BDC_FIELD       USING 'EKKO-KDATB'
                                      V_CONV_DATE.
        PERFORM CONVERT_DATE USING WA_RECORD-KDATE V_CONV_DATE.
        PERFORM BDC_FIELD       USING 'EKKO-KDATE'
                                      V_CONV_DATE.
        PERFORM BDC_FIELD       USING 'EKKO-ZTERM'
                                      WA_RECORD-ZTERM.
        PERFORM BDC_FIELD       USING 'EKKO-KTWRT'
                                        WA_RECORD-KTWRT.
        VEN_FLAG = 1.
        L_MAT_INDEX = 1. "index for table-control of material
      ENDIF.
*          "first check for itemline
      IF WA_RECORDPREV-EPSTP NE WA_RECORD-EPSTP
       OR WA_RECORDPREV-EMATN NE WA_RECORD-EMATN
       OR WA_RECORDPREV-KTMNG NE WA_RECORD-KTMNG
       OR WA_RECORDPREV-NETPR NE WA_RECORD-NETPR
       OR WA_RECORDPREV-PEINH NE WA_RECORD-PEINH
       OR WA_RECORDPREV-BPRME NE WA_RECORD-BPRME
       OR WA_RECORDPREV-IDNLF NE WA_RECORD-IDNLF
       OR WA_RECORDPREV-WEBRE NE WA_RECORD-WEBRE
       OR WA_RECORDPREV-MEPRF NE WA_RECORD-MEPRF
       OR WA_RECORDPREV-LTEX1 NE WA_RECORD-LTEX1
       OR VEN_FLAG EQ 1.
        V_IND = L_MAT_INDEX.
        IF V_IND GT 1.
          V_IND = 2.
        ENDIF.
        CONCATENATE 'RM06E-EVRTP(' V_IND ')' INTO V_EVRTP1.
        CONCATENATE 'RM06E-EPSTP(' V_IND ')' INTO V_EPSTP1.
        CONCATENATE 'EKPO-EMATN(' V_IND ')' INTO V_EMATN1.
        CONCATENATE 'EKPO-KTMNG(' V_IND ')' INTO V_KTMNG1.
        CONCATENATE 'EKPO-NETPR(' V_IND ')' INTO V_NETPR1.
        CONCATENATE 'EKPO-PEINH(' V_IND ')' INTO V_PEINH1.
        CONCATENATE 'EKPO-BPRME(' V_IND ')' INTO V_BPRME1.
        CONCATENATE 'RM06E-TCSELFLAG(' V_IND ')' INTO V_TCSELFLAG1.
        PERFORM BDC_DYNPRO      USING 'SAPMM06E' '0220'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '=NP'.
        PERFORM BDC_DYNPRO      USING 'SAPMM06E' '0220'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      V_EVRTP1.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '=DETA'.
        PERFORM BDC_FIELD       USING V_EPSTP1
                                      WA_RECORD-EPSTP.
        PERFORM BDC_FIELD       USING V_EMATN1
                                      WA_RECORD-EMATN.
        PERFORM BDC_FIELD       USING V_KTMNG1
                                      WA_RECORD-KTMNG.
        PERFORM BDC_FIELD       USING V_NETPR1
                                      WA_RECORD-NETPR.
        PERFORM BDC_FIELD       USING V_PEINH1
                                      WA_RECORD-PEINH.
        PERFORM BDC_FIELD       USING V_BPRME1
                                      WA_RECORD-BPRME.
        PERFORM BDC_DYNPRO      USING 'SAPMM06E' '0211'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'EKPO-WEBRE'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '=DETZ'.
        PERFORM BDC_FIELD       USING 'EKPO-IDNLF'
                                      WA_RECORD-IDNLF.
        TRANSLATE WA_RECORD-EVART TO UPPER CASE.
        IF WA_RECORD-EVART EQ C_WK.
          PERFORM BDC_FIELD       USING 'EKPO-WEBRE' 'X'.
        ENDIF.
        PERFORM BDC_DYNPRO      USING 'SAPMM06E' '0212'.
        PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                      'EKPO-MEPRF'.
        PERFORM BDC_FIELD       USING 'BDC_OKCODE'
                                      '=TXP'.
        PERFORM BDC_FIELD       USING 'EKPO-MEPRF'
                                      WA_RECORD-MEPRF.
        IF NOT WA_RECORD-LTEX1 IS INITIAL. "NE space.
          PERFORM BDC_DYNPRO      USING 'SAPMM06E' '0106'.
          PERFORM BDC_FIELD       USING 'BDC_CURSOR'
                                        'RM06E-SELKZ(02)'.
          PERFORM BDC_FIELD

How to trigger IDOC'S from SAP

Hi All,
How to trigger IDOC's from SAP(ECC 6)..where can we check this in mii 11.5 weather it is fail/success
Thanks,
Abhi

You can trigger LOIPRO, LOIPLO and a few others manually from POIT (SAP Txn). Master Data related to orders can be triggered from POIM. Depending on which IDocs you which to generate, there are other transactions to trigger different IDocs.
You can also use Triggers from MII to generate IDocs in SAP using CLOI_DOWNLOAD_TRIGGER_MDAT (POIM equivalent) and CLOI_DOWNLOAD_TRIGGER_TRANS (POIT equivalent).
There is also a rather nice post which detailed the process of using change pointers to automate the IDoc generation and download, but I am having trouble finding it. Will continue to look and will post link when I find it.
Regards,
Mike
I couldn't find the post I was looking for, but there is an informative note 390635 which may help.
Edited by: Michael Appleby on May 5, 2009 1:29 PM

How to check the Idocs sent from SAP system

How to check the outbound Idocs sent from SAP system to target systems.
How to know the message types and target systems.

Hi,
In Addition with the above mentioned transaction code(WE02), u can check out idocs in these table - EDIDC, EDID4, EDIDS. Depending on different status you can differentiate them as Inbound or Outbound Idocs...
Cheers...
Santosh.
<i><b>Mark All Usefull Answers...</b></i>

Outbound delivery creation with inbound IDOC transfer from Java system

Dear Experts,
       The scenario we are having is really very interesting. Hopefully its a good learning for me and also for others also.
The scenario is,
               After sales order creation the details will be sent to one Non SAP system (Java) for performing some tasks related to forwarding agent decision, shipping date and etc. Once the details are finalized in that Java system then, the details needs to be transferred to SAP as "Inbound IDOC" process. For this proposed to use the SAP Jco middle ware.
             Once the details transfered from Java system to SAP then, the outbound IDOC needs to get generated automatically. Assuming the stock for that sales order line item is available. Also one more complexity is, our client is using custom transaction (ZVl10C) for delivery creation.
Now Query is,
               1. Which IDOC, message type and Functional module needs to be used for creating the delivery automatically..??
               2. As per assumption, stock of that sales order line item should be available. Due to some business reason the stock was removed during inbound IDOC transfer then, what will happen to the IDOC..?. How to avoid this situation..??
               3. As we told we are re going to use SAP Jco b/w SAP & Java system. In this case, how the data will get transfered from Java system to SAP..?
Thanks in advance for the replies I am going to get
Regards,
VEL

Didn't get any feedback from experts for long time. So we are closing the question

IDOC Transfer from R/3 to CRM System

Hi,
I want to transfer HR Data from R/3 to CRM System.
Scenario1 : I have to transfer National insurance number ( Infotype 002) to CRM system where we have rename this field as NI number. I am transferring data through PFAL Transaction but this field is not getting transferred. I think IDOC Structure needs to be enhanced eitherways mapping will be required. Kindly help me out with ALE and IDOC structure.
Scenario2: I have to transfer Address Infotype 006 Subtype 02(Work Address) . How to Transfer this.
Scenario3: I have to transfer Pension Number to CRM. Sorry I dont know the infotype number for Pension number.
Kindly help me out with these scenarios. I have not worked much on ALE so I am facing this prolem. Do I have to use the standard transaction PFAL or Customised.
Thanks,
Mohit

hi
you can use PFAL to transfer HR master data.
the data transfer from r/3 to crm is by means of bdoc and not through idoc.
http://help.sap.com/saphelp_crm20c/helpdata/en/3b/e13b38fedcb72de10000009b38f889/frameset.htm
cheers,
hakim

IDOC transfer from ECC to XI

Hi
Im trying to trigger an IDOC transfer automatically when a material is created to XI system.
I activated matmas change pointers and I'm able to create IDOC but its not getting transferred to XI system. IDOC status is 03 - sent to port OK.
What are the configurations I should take for registering the port in XI? And why is that in WE 20, in creating partner profile, Im unable to select message type, matmas in inbound and outbound parmaters?
Thanks
Subbu

Hi !
Check this links:
Introduction to IDoc-XI-File scenario and complete walk through for starters.
ALE configuration for pushing idocs from SAP to XI
Regards,
Matias
ps: please award points if helpful!

Data transfer from SAP to SAP

Hi Gurus,
I have a scenario where I need to transfer data from SAP to SAP. While the program is ran in source the idoc gets fired successfully and its available in WE02 with the status Green and text as "Sent to SAP port". But while checking in the target system there are no entries respective to the Source Idoc. I tried to fire the idoc on a particular date and time and after some hours I checked for the idoc in target system but no entries were found for the source Idoc in the target system on that date. Please suggest me where ,how and what to check.I guess I have to check the TRFC meant for this process but how and where.
Please reply.
Regards,
Bnay.

HI
Check this link
http://www.thespot4sap.com/articles/SAP_XML_BC_Integration_Benefits.asp
http://help.sap.com/saphelp_nw04/helpdata/en/00/f01640dc88e769e10000000a155106/frameset.htm
Sail

ABAP program / Idocs - MDX from SAP

Hello friends,
There are two systems:
One is SAP system other one is CRM system (non SAP). When someone enters data in CRM system to create orders, it reaches SAP system through IDocs and order number generates. All the SAP master data is maintained in kind of data base table in the external CRM system. So the orders get create in SAP without any errors. So far the data comes only from SAP to CRM. Now I would like to transfer the changes made in SAP master data (changes in customer/material/condition records) to be transferred to CRM system.
Can it be done through ABAP program or through IDocs? Which way is the accurate? Can you please give detail information how can this be done?
Thank you & Br,
Sats.

Hi Erik,
I am stuck up with a similar requirement, wherein I have an ABAP program in my process chain and I need the technical name of the process chain in the ABAP program at run-time.
Did you get a solution or work-around for this scenario?
Thanks in advance.
Regards,
Chetana.

How to send vendor IDOC data from SAP R/3 to XI.

Hi experts,
I have developed the IDOC to FILE scenario for Vendor Master Upload. I want to place flat file in local folder with in XI or Outside of XI. (Using NFS or FTP protocol in FILE adapter). My First quesstion is How to setup Folder with in XI ro Out side XI?
And also I want to push the IDOC from SAP r/3 to test the scenario. Both XI and R/3 systems are configured to exchange data.
How to Push Vendor IDOC from SAP R/3 to XI? (we can send XML directly to XI; but the R/3 kernal should be moe than 6.20).
Thanks in Advance.....

Hi,
>>My First quesstion is How to setup Folder with in XI ro Out side XI?
Its a normal way to creation of folders in Os level . u can create the folder in XI Server or on the FTP Server.
ALE Settings
Steps
SAP XI
1) RFC Destination (SM59)
a) Choose create.
b) Specify the name of the RFC destination
c) Select connection type as 3 and save
d) In the technical settings tab enter the details SAP SID/URL and system number#.
e) Enter the Gateway host as same details above SID/URL.
f) Gateway service is 3300+system number#.
g) In the Logon /Security tab, enter the client user & Password details of Destination system.
h) Test the connection and remote logon.
2) Create Port (IDX1)
a) Select create new button
b) Enter the port name as SAP+SID (The starting char should be SAP)
c) Enter the destination client.
d) Enter the RFC Destination created in SAP R/3 towards other system.
e) Save
3) Load Meta Data for IDOC (IDX2)
a) Create new
b) IDOC Message Type
c) Enter port created in IDX1.
SAP R/3
1) RFC Destination (SM59)
a) Choose create.
b) Specify the name of the RFC destination
c) Select connection type as 3 and save
d) In the technical settings tab enter the details SAP SID/URL and system number#.
e) Enter the Gateway host as same details above SID/URL.
f) Gateway service is 3300+system number#.
g) In the Logon /Security tab, enter the client user & Password details of Destination system.
h) Test the connection and remote logon.
2) Create Port (We21)
a) First Select Transactional RFC and then click create button
b) Enter the destination port name as SAP+SID (The starting char should be SAP)
c) Enter the destination client.
d) Enter the RFC Destination created in SAP R/3 towards other system.
e) Save
3) Create Partner Profile (WE20)
a) Create New
b) Create the Partner no. name as same the logical system name of the destination system.
c) Select Partner type LS
d) Enter details for Type: US/USER, Agent, and Lang.
e) Click on the + button to select the message type.
f) Select Partner no. and LS which ever create above.
g) Select Message type
h) Select Process code related to the Message type.
I) save.
In SLD System Landscape Directory
TS for R/3 (Logical system):-Assign the client name created in R/3 as Logical system Name.
Ts for Third Party (Logical system):-
BS for SAP R/3 (Logical system):- Assign the client name created in R/3 as Logical system Name.
BS for Third Party (Logical system):-Enter the XI logical system name.
In Transaction SALE
Define and Assign the logical system name.
IDoc-XI-File scenario
/people/prateek.shah/blog/2005/06/08/introduction-to-idoc-xi-file-scenario-and-complete-walk-through-for-starters
Posting the IDOC from R/3 to XI
/people/sameer.shadab/blog/2005/07/25/reposting-idocs-instead-of-recreating--for-testing-purpose-xi
REgards
Seshagiri

Reg : Idoc Transfer From SAP R/3 to Gentran

Similar Messages

Maybe you are looking for