Master Data transfer from SAP R/3 to SAP GTS

HI,
Master data like customer master is transferred fro R/3 to GTS. Any customer master in R/3 has many fields like company code, sales area, shipping conditions etc.
Shipping conditions and other fields are not defined in GTS. So how come when the customer master which is copied into SAP GTS is not giving any error since certain fields like shipping conditions are not there in GTS. I mean there are certain validation in R/3 for a customer . So how come these validations are being done in SAP GTS ??
regards

Customer/vendor the fields which is passed to GTS from ECC can be found in - (/SAPSLL/MENU_LEGAL - SAP Compliance Management (SPL Screening) - Logistics (Simulation of SPL - Check general address). Here you can see all the details captured for Business Partner in GTS. You can also see the entire field range at (/nbp)
When you transfer a Customer master record to GTS, in GTS an internal BP number is created to map the stated fields based on number range logic etc as per requirement. The BP's are created in GTS as per the partner role in GTS and also can be retrived using partner role. At document level the validations happen w.r.t to partner functions mapped and created as per the feeder system.

Similar Messages

CIF - Master Data Transfer from ERP to SCM(SNC)

Hi,
I am very new to SAP SCM.
Can anyone please provide me documentation links , helpful material for the CIF customization in SNC for Master Data Transfer.
e.g If I need to send a predefined value for Business Logical System from ERP to SAP SNC
i.e from ERP 1 to SNC ( Business Logical System ends with suffix 00 )
and from ERP 2 to SNC ( Business Logical System ends with suffix 01 )
Where and how I can make these changes to reflect in my data sending.
How I can achieve this.
Please help.
Best Regards
Sid

Siddharth,
I assume when you say 'SNC' your are referring to Supply Network Collaboration. Here are some Best Practices Building blocks to get you started
[B02 - connectivity|http://help.sap.com/bp_scmv250/BBLibrary/HTML/B02_EN_DE.htm]
[B05 - replication|http://help.sap.com/bp_scmv250/BBLibrary/HTML/B05_EN_DE.htm]
[S32 - SCM Collaboration|http://help.sap.com/bp_scmv250/BBLibrary/HTML/S32_EN_DE.htm]
There are many more building blocks at
http://help.sap.com/bp_scmv250/BBLibrary/HTML/BBLibrary_EN_DE.htm
Regards,
DB49

Error while performing Master Data transfer from SAPR/3- ECC5.0 to SCM4.1

Hi all,
Am getting an error while transfering Master data from SAP R/3 system ECC5.0 to SCM4.1 through Core Interface (CIF).
After creating an Integration model and while activating the same am getting the following error,
" System: SCMCLNT800 User: SMART03 06/17/2006 13:32:14
Function: /SAPAPO/CIF_LOC_INBOUND
Text:Error in address data for location DC2000/ECC800 "
Could anyone provide me how to fix this?.
Regards
Bharanidharan

Hi Veera,
Am sorry for the delayed response. Well am using XI as integration engine for transfer of transactional data from R/3 to SCM4.1. I resolved this issue which was because of master data problem. Thanks for your input.
Regards
Bharanidharan

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

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

Master data extraction from SAP ECC

Hi All,
I am a newbie here and teaching myself SAP BI. I have looked through the forums regarding master data extraction from SAP ECC in all forums but could not answers for my question. Please help me out.
I want to extract customer attributes from SAP ECC. i have identified the standard data source 0customer_attr and replicated in SAP BI. I have created infopackage for full update. I validated the extractor checker(RSA3) and found 2 records for 0customer_attr.
When I run the info package, the info package remains in yellow state until it times out. Please let me know in case i am missing anything, Please let me know if there is any other process for master data extraction similar to transaction data extraction.

Hi All,
i did the below and afte clicking execute in the Simple job, it takes me back to the Monitor Infopackage screen.
From your info pack monitor --> menu environment-->job overview--> job in the source system--> prompts for source system(ECC) user id and password, enter them, you will get your job at SM37(ECC), select job and click on log details icon. there you can see details about your error. please share that error screen shot.
Please find the screenshots.
I did an Environment -->Check connection and found the below,

Sap mdm or master data services from business objects ...

hi
i knew sap is acquiring business objects , but BO is having a software package called master data services , whose functions are same as sap mdm which is already available for few customers , then how sap is planning on these two procucts. are these two products going to be mixed or only one will be there in market . any body any idea ?
or . master data services is going to be an addon to sap mdm ?
akhil
Edited by: akhil k on Jan 20, 2008 2:13 AM

Hi Akhil,
Please go through these link i think they may help:
1. ttp://www50.sap.com/m1/global/bobj/le/packages/mdm.htm
2. Enterprise master data management (MDM) should always be the objective of any ... This approach extends Approach 4 by exposing master data services in the ...
http://www.b-eye-network.com/view/5051
3.Solving the SOA Data Dilemma with Master Data Services
http://www.b-eye-network.com/view/6034
Akhil, from 3rd link it looks like that this MDS( master data services) is same as MDM just the thing to be noticed is MDS term is used with SOA and MDM is an independent tool to provide MDS.
Rewards if found helpful.
Regrds,
Alok

How to extract master data attribute from r/3 to bw give steps details

how to extract master data attribute from r/3 to bw give steps details screenshots

Hi
Go through the below process to extract Master Data Attribute from R/3
Hi,
Maintaining Generic DataSources
Use
Regardless of the application, you can create and maintain generic DataSources for transaction data, master data attributes or texts from any transparent table, database view or SAP Query InfoSet, or using a function module. This allows you to extract data generically.
Procedure
Creating Generic DataSources
1. Select the DataSource type and specify a technical name.
2. Choose Create.
The screen for creating a generic DataSource appears.
3. Choose the application component to which you want to assign the DataSource.
4. Enter the descriptive texts. You can choose any text.
5. Select the datasets from which you want to fill the generic DataSource.
a. Choose Extraction from View if you want to extract data from a transparent table or a database view. Enter the name of the table or the database view.
After you generate the DataSource, you have a DataSource with an extraction structure that corresponds to the database view or transparent table.
For more information about creating and maintaining database views and tables, see the ABAP Dictionary Documentation.
b. Choose Extraction from Query if you want to use a SAP Query InfoSet as the data source. Select the required InfoSet from the InfoSet catalog.
Notes on Extraction Using SAP Query
After you generate the DataSource, you have a DataSource with an extraction structure that corresponds to the InfoSet.
For more information about maintaining the InfoSet, see the System Administration documentation.
c. Choose Extraction Using FM if you want to extract data using a function module. Enter the function module and extraction structure.
The data must be transferred by the function module in an interface table E_T_DATA.
Interface Description and Extraction Process
For information about the function library, see the ABAP Workbench: Tools documentation.
d. With texts you also have the option of extracting from fixed values for domains.
6. Maintain the settings for delta transfer, as required.
7. Choose Save.
When performing extraction, note SAP Query: Assigning to a User Group.
Note when extracting from a transparent table or view:
If the extraction structure contains a key figure field that references a unit of measure or a currency unit field, this unit field has to be included in the same extraction structure as the key figure field.
A screen appears on which you can edit the fields of the extraction structure.
8. Edit the DataSource:
○ Selection
When you schedule a data request in the BI scheduler, you can enter the selection criteria for the data transfer. For example, you can determine that data requests are only to apply to data from the previous month.
If you set the Selection indicator for a field within the extraction structure, the data for this field is transferred in correspondence with the selection criteria in the scheduler.
○ Hide field
You set this indicator to exclude an extraction structure field from the data transfer. The field is no longer available in BI when you set the transfer rules or generate the transfer structure.
○ Inversion
Reverse postings are possible for customer-defined key figures. Therefore inversion is only active for certain transaction data DataSources. These include DataSources that have a field that is marked as an inversion field, for example, the update mode field in DataSource 0FI_AP_3. If this field has a value, the data records are interpreted as reverse records in BI.
If you want to carry out a reverse posting for a customer-defined field (key figure), set the Inversion indicator. The value of the key figure is transferred to BI in inverted form (multiplied by 1).
○ Field only known in exit
You can enhance data by extending the extraction structure for a DataSource by adding fields in append structures.
The Field Only Known in Exit indicator is set for the fields of an append structure; by default these fields are not passed to the extractor from the field list and selection table.
Deselect the Field Only Known in Exit indicator to enable the Service API to pass on the append structure field to the extractor together with the fields of the delivered extract structures in the field list and in the selection table.
9. Choose DataSource ® Generate.
The DataSource is saved in the source system.
Maintaining Generic DataSources
● Change DataSource
To change a generic DataSource, in the initial screen of DataSource maintenance, enter the name of the DataSource and choose Change.
You can change the assignment of a DataSource to an application component or change the texts of a DataSource. Double-click on the name of the table, view, InfoSet or extraction structure to get to the appropriate maintenance screen. Here you make the changes to add new fields. You can also completely swap transparent tables and database views, though this is not possible with InfoSets. Return to DataSource maintenance and choose Create. The screen for editing a DataSource appears. To save the DataSource in the SAP source system, choose DataSource ® Generate.
If you want to test extraction in the source system independently of a BI system, choose DataSource ® Test Extraction.
● Delta DataSource
On the Change Generic DataSource screen, you can delete any DataSources that are no longer relevant. If you are extracting data from an InfoSet, delete the corresponding query. If you want to delete a DataSource, make sure it is not connected to a BI system.
NR

New GL Migration - Data transfer from Classic GL to New GL

Hi Champs!
Our client is on ECC6.0, with classic GL functionality. Now they want to migrate to New GL and they have already procured SAP New GL migration services. Wanted to know, whether this migration service will take care of data transfer from tables of classic GL to tables of New GL with appropriate New GL functionalities like document splitting etc.
Your feedback will help a lot.
Thanks,
Amish.

Hi Amish,
https://websmp207.sap-ag.de/GL
This link will help you find all documentation pertaining to New GL concept from SAP.
thanks and regards
Praveen.J

Data transfer from CRM to R3

What exact data transfer from CRM to R3, on completion of a sales Order. I am new in the field, need some good example?

HI Sajjad,
Transafer of order from CRM to R/3 involves following activies.
Setup RFC destination between CRM & R/3
Create a R/3 Site (Transaction: SMOEAC) and assign a subscription named
(Sales Document (Mesg) created from publication Sales Document(Mesg)).
In R/3 maintain Document type with same name as Transaction type in CRM, item category with same name as item category in CRM, Item category determination with same as in CRM.
Master data i.e. Product in CRM should be present with same name as material in R/3. BP in CRM should be present with same name as Customer in R/3
Organizational data is maintained in CRM.
Best Regards,
Pratik Patel.
Reward with points if it is of any help to you!

Online data transfer from R/3 to APO

Dear friends,
Can any one help me? What is the transaction code for online data transfer from R/3 to APO?
Material master;
BOM;
Work Center;
Routing;
Production version.
My understanding is to create integration models and activate them:
/CFM1
/CFM2
/CFM3
Once it is activated I will be able to see the Master data, Material Master, BOM, Workcenter, Routing and Production version in APO?
Thanks
Raj
Edited by: Wilian Segatto on Jan 19, 2010 2:07 PM

Hello Raj -
If understand you are saying that the a batch job is run every 12 hrs to send in the master data from r/3 to APO?
if thats the case then you have to wait to see the changes or the material that you are trying to CIF till the next batch runs through. the steps tht you have described are right
Create the integration model.
activate the integration model.
there are settings in there where you can transfer the data real time also, but i guess your project is not using it.
Hope this helps.
Regards,
Suresh Garg

New Hire Data Transfer from E-Rec to ECC via PA48

Hi,
We have requirement where we need to use the basic new hire data transfer from erec to ecc using PA48.
Could someone help me by listing the step by step process that is required to configure in both EREC & ECC?
I know there is pdf document available online but that refers mostly to XI which we are not planning to use.
Please help.
Regards,
Vikram

Hi,
For integration between E-Rec and ECC, check [Link|http://help.sap.com/saphelp_erp2005/helpdata/en/45/8150635e9c40c1e10000000a1553f7/frameset.htm]
This gives detailed information on synchronous and asynchronous data transfers between E-Rec and ECC.
Hope it helps!
Arpita

Data transfer from R3 and BW TO external system

Hi experts
I got one question which I couldnt find good answer.
it concerns...data transfer from both R3 system and BW(here data is master data) to an external system.
what are the various options to do this both from BW side and R3 side?
which of them offers best performance?
Thanks
BR
Amanda
Edited by: amanda ciders on Nov 20, 2008 2:17 PM

Hi
Im aware that I can use OpenHub Functionality for this.Can anyone explain how to do this as I am unable to implement this for this situation.....
do anybody know other solutions like creating views or FM like that...
.it will be of great help if u can explain any solution in greater detail(including open hub)..
Thanks
BR
Amanda
Edited by: amanda ciders on Nov 20, 2008 2:26 PM

Data transfer from E-recruitment to PA

Dear All,
we are Implementing E-recruitment. while transferinf the data from E-recruitment to Personnel administraion, I am getting the error, No data available from the partner system table T752F). We are using the same server for E-rec and PA.
While doing the data transfer activity in E-recruitment i m getting succfulll. In R/3 while going to the Tcode PA48 i m getting the error.
Please help me on this.
Thanks and Regards,
Revathi.

An integrated hiring (data transfer) scenario with SAP e-recruitment
and R/3 starts with creating a "Data Transfer for New Employees"
activity within e-recruiting for the candidate selected to be hired.
Data from e-recruitment is transferred to the target HR (via an RFC
call) and stored there in a holding table (T572F) for processing
by an appropriate action. Within the HR system, execute transaction
PA48 to access the holding table. Select the candidate you want to
process and then click the "Hire" button, and continue with the
appropriate action.
This message occurs, if you execute PA42 or PA48, in order to perform
the personnel action RA (Integration with Recruitment in Partner
Systems) and no data exists on the R/3 or external system.
You will find all the relevant information in the IMG documents
available. Please check;
- Set Up Data transfer from SAP ECC
- Set Up Data Transfer for New Employees

Error in Plan Data Transfer from CO

Hi,
I need to use Plan Data Transfer from CO (FM9C). But when I execute it, I have an error "CO Objects without FM Assgmt".
How can I setup the derivation between CO and FM objects?
All documentation that I've found are for SAP 4.6, but we are using SAP ECC 6.0...

Hi,
Are you using former budgeting or BCS? If you use BCS, you should use FMCYCOPI_CO. In any case, to link CO objects to FM entities, use FMDERIVE strategy - it works for planning in the same way as it does for real postings.
Regards,
Eli

Master Data transfer from SAP R/3 to SAP GTS

Similar Messages

Maybe you are looking for