BDC ...? . ? .. . ? Confused

[Former Member]

Hai Dear ABAP Pros..

As far as I know, BDC is used to Transfer data from legacy system to SAP system. I have newly started my career in SAP ABAP & I am the only guy for this company on ABAP & havenot yet worked on BDC yet.

I have gone thru the notes & material I have on BDC. I am confused with what exactly is it, 'coz at some places its given that we have <b>to start with SHDB to record Transaction (How come the Standard Transactions are used & what role do they Play in BDC(transfer data)??)</b> & in one Book its given as below & recording is not mentioned any where:

<b>1.To identify the Screens of the Transaction that the Program will Process.

2.To build the BDC table that will be used to submit the data to SAP.

3.To submit the to the BDC table to the system in Batch mode or as a single transaction thru CALL TRANSACTION command.</b>

Plzz help me out by clearing my doubts. If possible & if U have some docs or material or some real programs or exercises with solutions then Plzz forward them to "[email protected]". ..

Would higly appreciate & be thatnkful to U.

Thanks in advance.

Regards.

Farooq

[Former Member]

Hi,

Whenever you do a BDC, it calls some transaction screen by screen to fill in the required data & process. So its as good as executing a transaction manually.

But BDC is the last option for data upload. BDC is used when there's no other standard method like LSMW.

When you make a BDC, first you need to know the transaction , its screens & screen fields. So u do a recording through SHDB. This will give you all the screens, screen fields & ok-codes which you use while recording.

Then you fill the data in BDC table with the exact screen flow which you've recorded.

You can either create a session or execute the BDC directly by call transaction method. When you create a session you can use it later to upload the data (SM35). call transaction method directly uploads data instantly.

[Former Member]

Hi

Bdc is used to transfer data from legacy system to sap system.

Actually the procedure is they will give a flat file to you, that file you have to load in to internal table through function modules gui_upload and gui_download, then this data should be transferred to sap standard screens, then from screens finally to database table.

Recording is used to skip the unneccesary screens. Example if you have some data in your flat file and that data is related to vendor. In sap the tcode to create a vendor is XK01, so in xk01 you will have many screens, but your data is pertaining only to some screens, if you dont have data in other screens, you can skip this screens by doing recording.

Another advantage is you will have lots of data, so it will take time if you enter this data manually, do through recording you can save the time.

In recording you will create one sample entry. Once you run ur program the data in the flat file will go into the screens from internal table in the same way as you have created recording.

SHDB is the transaction code to create recording.

Hope i am clear.

Dont hesitate to ask any doubts

Regards

Haritha.

[Former Member]

Dear Haritha, Can U give me a real Scenario. I want to work on this. PPlllzzzzz

[Former Member]

Find below an example which is a real time one for Vendor Master upload...

REPORT ZFC_VENDOR_CREATE LINE-SIZE 100

NO STANDARD PAGE HEADING

MESSAGE-ID ZZ.

************************************************************************

• DESCRIPTION : Vendor Master Data - Intercompany

************************************************************************

************************************************************************

• TABLES

************************************************************************

TABLES : SSCRFIELDS. " Fields on selection screens

************************************************************************

• CONSTANTS

************************************************************************

DATA : C_SPLIT TYPE C VALUE '#'. " Used for Has Separator in GUI_UPLAOD

************************************************************************

• TYPES

************************************************************************

• Int'table to hold Vendor Master Data

TYPES : BEGIN OF TY_VENDOR_MASTER,

FLAG TYPE C, " Update Flag

LIFNR TYPE LIFNR, " Vendor Number

BUKRS TYPE BUKRS, " Company Code

KTOKK TYPE KTOKK, " Account Group

ANRED TYPE ANRED, " Title

NAME1 TYPE NAME1_GP, " Name1

NAME2 TYPE NAME2_GP, " Name2

SORTL TYPE SORTL, " Search Term 1

SORT2 TYPE AD_SORT2UL, " Search Term 2

STRAS TYPE STRAS_GP, " Street

PSTLZ TYPE PSTLZ, " Postal Code

ORT01 TYPE ORT01_GP, " City

REGIO TYPE REGIO, " Region

LAND1 TYPE LAND1_GP, " Country

SPRAS TYPE SPRAS, " Language

VBUND TYPE RASSC, " Trading Partner

BANKS TYPE BANKS, " Country

BANKL TYPE BANKK, " Bank Key

BANKN TYPE BANKN, " Bank Account

BKONT TYPE BKONT, " Bank Control Key

BANKA TYPE BANKA, " Name of Bank

AKONT TYPE AKONT, " Reconciliation Account

FDGRV TYPE FDGRV, " Cash Management Group

ZTERM TYPE DZTERM, " Payment Terms

REPRF TYPE REPRF, " Check Double Invoice

ZWELS TYPE DZWELS, " Payment Methods

XPORE TYPE XPORE, " Pay all items separately

END OF TY_VENDOR_MASTER,

• Int'table to hold Vendor Extend Data

BEGIN OF TY_VENDOR_EXTEND,

FLAG TYPE C, " Update Flag

LIFNR TYPE LIFNR, " Vendor Number

BUKRS TYPE BUKRS, " Company Code

KTOKK TYPE KTOKK, " Account Group

REF_LIFNR TYPE LIFNR, " Reference Vendor Number

REF_BUKRS TYPE BUKRS, " Reference Company Code

AKONT TYPE AKONT, " Reconciliation Account

FDGRV TYPE FDGRV, " Cash Management Group

ZTERM TYPE DZTERM, " Payment Terms

REPRF TYPE REPRF, " Check Double Invoice

ZWELS TYPE DZWELS, " Payment Methods

XPORE TYPE XPORE, " Pay all items separately

END OF TY_VENDOR_EXTEND,

• Int'table to hold Error Records Data

BEGIN OF TY_ERROR,

MSG(200) TYPE C, " To hold Message

LIFNR TYPE LIFNR, " Vendor Number

BUKRS TYPE BUKRS, " Company Code

END OF TY_ERROR.

************************************************************************

• DATA (Simple Fields)

************************************************************************

DATA : W_COUNT TYPE I, " Variable to hold count of Records

W_SUCC_REC TYPE I, " No. of Success Records

W_SUCC_REC1 TYPE I, " No. of Updated Records

W_ERR_REC TYPE I, " No. of Error Records

w_noupdate_rec type i. " No. of Records not Changed

************************************************************************

• INTERNAL TABLES

************************************************************************

• Int'table to hold uploaded data from File

DATA : IT_VENDOR_MASTER TYPE STANDARD TABLE OF TY_VENDOR_MASTER,

WA_IT_VENDOR_MASTER TYPE TY_VENDOR_MASTER,

IT_VENDOR_EXTEND TYPE STANDARD TABLE OF TY_VENDOR_EXTEND,

WA_IT_VENDOR_EXTEND TYPE TY_VENDOR_EXTEND,

WA_IT_BDCDATA TYPE BDCDATA,

IT_BDCDATA TYPE STANDARD TABLE OF BDCDATA,

WA_IT_MESSTAB TYPE BDCMSGCOLL,

IT_MESSTAB TYPE STANDARD TABLE OF BDCMSGCOLL,

IT_ERROR TYPE STANDARD TABLE OF TY_ERROR,

WA_IT_ERROR TYPE TY_ERROR,

it_error_fk01 type standard table of ty_error,

wa_it_error_fk01 type ty_error,

it_error_fk02 type standard table of ty_error,

wa_it_error_fk02 type ty_error,

it_succ_rec1 type standard table of ty_error,

wa_it_succ_rec1 type ty_error,

it_noupdate type standard table of ty_error,

wa_it_noupdate type ty_error.

************************************************************************

• FLAGS

************************************************************************

DATA : FL_FLAG1 TYPE C, " Flag to check error upload file

FL_FLAG2 TYPE C, " Flag to hold value

FL_FLAG3 TYPE C, " Flag to hold value

FL_FLAG4 TYPE C. " Flag to hold value

************************************************************************

• SELECTION-SCREEN

************************************************************************

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

SELECTION-SCREEN : BEGIN OF LINE,

COMMENT 1(30) TEXT-001,

POSITION POS_LOW.

PARAMETERS : P_FILE(128) DEFAULT 'C:\UPLOAD.TXT' OBLIGATORY.

SELECTION-SCREEN : END OF LINE.

SELECTION-SCREEN : BEGIN OF LINE,

COMMENT 1(30) TEXT-002,

POSITION POS_LOW.

PARAMETERS : P_VENMAS RADIOBUTTON GROUP R1 DEFAULT 'X'.

SELECTION-SCREEN : END OF LINE.

SELECTION-SCREEN : BEGIN OF LINE,

COMMENT 1(30) TEXT-003,

POSITION POS_LOW.

PARAMETERS : P_VENEXT RADIOBUTTON GROUP R1.

SELECTION-SCREEN : END OF LINE.

SELECTION-SCREEN SKIP 2.

SELECTION-SCREEN : BEGIN OF LINE,

COMMENT 1(30) TEXT-004,

POSITION POS_LOW.

PARAMETERS : P_MODE(1) DEFAULT 'N'.

SELECTION-SCREEN : END OF LINE.

SELECTION-SCREEN : BEGIN OF LINE,

COMMENT 1(30) TEXT-005,

POSITION POS_LOW.

PARAMETERS : P_GROUP(12) DEFAULT 'ZFC_VENDOR_C' OBLIGATORY.

SELECTION-SCREEN : END OF LINE.

SELECTION-SCREEN : BEGIN OF LINE,

COMMENT 1(30) TEXT-016,

POSITION POS_LOW.

PARAMETERS : P_GROUP1(12) DEFAULT 'ZFC_VENDOR_U' OBLIGATORY.

SELECTION-SCREEN : END OF LINE.

SELECTION-SCREEN END OF BLOCK B1.

************************************************************************

• AT SELECTION-SCREEN ON

************************************************************************

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.

• Form to get file path for upload of data

PERFORM GET_FILE_PATH.

AT SELECTION-SCREEN ON BLOCK B1.

• Form to Validate data specified on Selection Screen

CHECK SSCRFIELDS-UCOMM EQ 'ONLI'.

PERFORM VALIDATE_DATA.

************************************************************************

• START - OF - SELECTION

************************************************************************

START-OF-SELECTION.

IF P_VENMAS = 'X'.

• Form to upload data from Presentation Server for Vendor Master

PERFORM UPLOAD_DATA TABLES IT_VENDOR_MASTER.

IF FL_FLAG1 NE 'X'.

SORT IT_VENDOR_MASTER BY LIFNR BUKRS KTOKK.

DELETE IT_VENDOR_MASTER WHERE LIFNR = ' '

AND BUKRS = ' '

AND KTOKK = ' '.

• Form to process data for Vendor Master

PERFORM INSERT_VENDOR_MASTER_DATA.

ENDIF.

ELSEIF P_VENEXT = 'X'.

• Form to upload data from Presentation Server for Vendor Extend

PERFORM UPLOAD_DATA TABLES IT_VENDOR_EXTEND.

IF FL_FLAG1 NE 'X'.

SORT IT_VENDOR_EXTEND BY LIFNR BUKRS KTOKK.

DELETE IT_VENDOR_EXTEND WHERE LIFNR = ' '

AND BUKRS = ' '

AND KTOKK = ' '.

• Form to process data for Vendor Master

PERFORM CHK_AND_INS_VENDOR_EXTEND_DATA.

ENDIF.

ENDIF.

************************************************************************

• END - OF - SELECTION

************************************************************************

END-OF-SELECTION.

IF FL_FLAG1 NE 'X'.

FORMAT COLOR 7.

WRITE:/2 TEXT-O01. " Total Number of records read :

FORMAT COLOR OFF.

WRITE:40 W_COUNT.

FORMAT COLOR 7.

WRITE:/2 TEXT-O02. " Total Number of Success records :

FORMAT COLOR OFF.

WRITE:40 W_SUCC_REC.

FORMAT COLOR 7.

WRITE:/2 TEXT-O07. " Total Number of Updated records :

FORMAT COLOR OFF.

WRITE:40 W_SUCC_REC1.

FORMAT COLOR 7.

WRITE:/2 TEXT-O08. " Total Number of Unchanged records :

FORMAT COLOR OFF.

WRITE:40 W_noupdate_REC.

FORMAT COLOR 7.

WRITE:/2 TEXT-O03. " Total Number of Error records :

FORMAT COLOR OFF.

WRITE:40 W_ERR_REC.

if not it_succ_rec1 is initial.

skip 1.

perform display_changed_report.

endif.

if not it_noupdate is initial.

skip 1.

perform display_nochange_report.

endif.

IF NOT IT_ERROR IS INITIAL.

SKIP 3.

• Form to display error data

PERFORM DISPLAY_ERROR_REPORT.

ENDIF.

IF FL_FLAG2 = 'X'.

SKIP 2.

FORMAT COLOR 4.

WRITE:/2 TEXT-O04. " BDC Session Name for Creation (FK01) :

FORMAT COLOR OFF.

WRITE:40 P_GROUP.

perform display_error_report_fk01.

ENDIF.

IF FL_FLAG3 = 'X'.

SKIP 2.

FORMAT COLOR 4.

WRITE:/2 TEXT-O09. " BDC Session Name for Updation (FK02) :

FORMAT COLOR OFF.

WRITE:40 P_GROUP1.

perform display_error_report_fk02.

ENDIF.

ENDIF.

&----

---

*& Form GET_FILE_PATH

&----

---

• This form is used to get the specified path for uploading of data from

• flat file with the help of F4 function key

----

---

FORM GET_FILE_PATH .

CALL FUNCTION 'F4_FILENAME'

EXPORTING

PROGRAM_NAME = SYST-CPROG

DYNPRO_NUMBER = SYST-DYNNR

FIELD_NAME = ' '

IMPORTING

FILE_NAME = P_FILE.

ENDFORM. " GET_FILE_PATH

&----

---

*& Form VALIDATE_DATA

&----

---

• This form is used to validate the data given by user on the Selection

• Screen and the appropriate message is been displayed when an wrong

• entry is inputted

----

---

FORM VALIDATE_DATA .

IF SY-BATCH EQ 'X'.

CLEAR SSCRFIELDS-UCOMM.

MESSAGE E001(ZZ) WITH TEXT-011.

" Excel file not to be used in Batch Mode

ENDIF.

IF P_MODE NE 'A' AND P_MODE NE 'N' AND P_MODE NE 'E'.

MESSAGE E001(ZZ) WITH TEXT-012.

" Session Mode should be either A or N or E

ENDIF.

ENDFORM. " VALIDATE_DATA

&----

---

*& Form UPLOAD_DATA

&----

---

• This form is used to upload data from Presentation Server for either

• Vendor Master or Vendor Extend

----

---

FORM UPLOAD_DATA TABLES P_IT_VENDOR.

DATA : L_FILENAME TYPE STRING,

L_FILETYPE TYPE CHAR10 VALUE 'ASC',

L_HEADER_LENGTH TYPE I VALUE 0,

L_READ_BY_LINE TYPE CHAR01 VALUE 'X'.

MOVE P_FILE TO L_FILENAME.

CALL FUNCTION 'GUI_UPLOAD'

EXPORTING

FILENAME = L_FILENAME

FILETYPE = L_FILETYPE

HEADER_LENGTH = L_HEADER_LENGTH

READ_BY_LINE = L_READ_BY_LINE

HAS_FIELD_SEPARATOR = C_SPLIT

TABLES

DATA_TAB = P_IT_VENDOR

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.

IF SY-SUBRC <> 0.

• MESSAGE I001(ZZ) WITH TEXT-006 L_FILENAME.

MESSAGE ID SY-MSGID TYPE 'I' NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

FL_FLAG1 = 'X'.

ELSEIF P_IT_VENDOR[] IS INITIAL.

MESSAGE I001(ZZ) WITH TEXT-014. " Uploaded File contains no data

FL_FLAG1 = 'X'.

ENDIF.

ENDFORM. " UPLOAD_DATA

&----

---

*& Form INSERT_VENDOR_MASTER_DATA

&----

---

• This form is used to process BDC data for Vendor Master

&----

---

FORM INSERT_VENDOR_MASTER_DATA .

DATA : L_LIFNR TYPE LIFNR.

CLEAR : L_LIFNR.

sort it_vendor_master by flag.

LOOP AT IT_VENDOR_MASTER INTO WA_IT_VENDOR_MASTER.

W_COUNT = W_COUNT + 1.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = WA_IT_VENDOR_MASTER-LIFNR

IMPORTING

OUTPUT = WA_IT_VENDOR_MASTER-LIFNR.

if wa_it_vendor_master-flag = 'A'.

SELECT SINGLE LIFNR

FROM LFB1

INTO L_LIFNR

WHERE LIFNR = WA_IT_VENDOR_MASTER-LIFNR

AND BUKRS = WA_IT_VENDOR_MASTER-BUKRS.

IF SY-SUBRC EQ 0.

WA_IT_ERROR-LIFNR = WA_IT_VENDOR_MASTER-LIFNR.

WA_IT_ERROR-BUKRS = WA_IT_VENDOR_MASTER-BUKRS.

WA_IT_ERROR-MSG = TEXT-015.

APPEND WA_IT_ERROR TO IT_ERROR.

W_ERR_REC = W_ERR_REC + 1.

CLEAR : WA_IT_ERROR, L_LIFNR.

ELSE.

REFRESH IT_BDCDATA.

CLEAR IT_BDCDATA.

PERFORM POPULATE_BDC_DATA_VEN_MASTER.

PERFORM CALL_TRANSACTION.

ENDIF.

CLEAR : WA_IT_VENDOR_MASTER.

elseif wa_it_vendor_master-flag = 'C'.

IF FL_FLAG2 = 'X' and fl_flag4 ne 'X'.

PERFORM CLOSE_BDC_SESSION.

fl_flag4 = 'X'.

ENDIF.

REFRESH IT_BDCDATA.

CLEAR IT_BDCDATA.

PERFORM POPULATE_BDC_DATA_VEN_MASTER.

PERFORM CALL_TRANSACTION_FK02.

CLEAR : WA_IT_VENDOR_MASTER.

elseif wa_it_vendor_master-flag = 'N'.

WA_IT_noupdate-LIFNR = WA_IT_VENDOR_MASTER-LIFNR.

WA_IT_noupdate-BUKRS = WA_IT_VENDOR_MASTER-BUKRS.

WA_IT_noupdate-MSG = TEXT-018.

APPEND WA_IT_noupdate TO IT_noupdate.

W_noupdate_REC = W_noupdate_REC + 1.

CLEAR : WA_IT_noupdate, WA_IT_VENDOR_MASTER.

endif.

ENDLOOP.

IF FL_FLAG3 = 'X'.

PERFORM CLOSE_BDC_SESSION.

ENDIF.

ENDFORM. " INSERT_VENDOR_MASTER_DATA

&----

---

*& Form POPULATE_BDC_DATA_VEN_MASTER

&----

---

• This form is used to populate BDC data of Vendor Master

----

---

FORM POPULATE_BDC_DATA_VEN_MASTER .

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = WA_IT_VENDOR_MASTER-ZTERM

IMPORTING

OUTPUT = WA_IT_VENDOR_MASTER-ZTERM.

IF WA_IT_VENDOR_MASTER-REPRF = 'Y'.

WA_IT_VENDOR_MASTER-REPRF = 'X'.

ENDIF.

IF WA_IT_VENDOR_MASTER-XPORE = 'Y'.

WA_IT_VENDOR_MASTER-XPORE = 'X'.

ENDIF.

if wa_it_vendor_master-flag = 'A'.

PERFORM :BDC_DYNPRO USING 'SAPMF02K' '0105',

BDC_FIELD USING 'RF02K-LIFNR' WA_IT_VENDOR_MASTER-LIFNR,

BDC_FIELD USING 'RF02K-BUKRS' WA_IT_VENDOR_MASTER-BUKRS,

BDC_FIELD USING 'RF02K-KTOKK' WA_IT_VENDOR_MASTER-KTOKK,

BDC_FIELD USING 'BDC_OKCODE' '/00'.

elseif wa_it_vendor_master-flag = 'C'.

PERFORM :BDC_DYNPRO USING 'SAPMF02K' '0106',

BDC_FIELD USING 'RF02K-LIFNR' WA_IT_VENDOR_MASTER-LIFNR,

BDC_FIELD USING 'RF02K-BUKRS' WA_IT_VENDOR_MASTER-BUKRS,

BDC_FIELD USING 'BDC_OKCODE' '=MALL',

BDC_DYNPRO USING 'SAPMF02K' '0106',

BDC_FIELD USING 'RF02K-D0110' 'X',

BDC_FIELD USING 'RF02K-D0120' 'X',

BDC_FIELD USING 'RF02K-D0130' 'X',

BDC_FIELD USING 'RF02K-D0210' 'X',

BDC_FIELD USING 'RF02K-D0215' 'X',

BDC_FIELD USING 'RF02K-D0220' 'X',

BDC_FIELD USING 'BDC_OKCODE' '/00'.

endif.

perform :BDC_DYNPRO USING 'SAPMF02K' '0110',

BDC_FIELD USING 'LFA1-ANRED' WA_IT_VENDOR_MASTER-ANRED,

BDC_FIELD USING 'LFA1-NAME1' WA_IT_VENDOR_MASTER-NAME1,

BDC_FIELD USING 'LFA1-NAME2' WA_IT_VENDOR_MASTER-NAME2,

BDC_FIELD USING 'LFA1-SORTL' WA_IT_VENDOR_MASTER-SORTL,

BDC_FIELD USING 'LFA1-STRAS' WA_IT_VENDOR_MASTER-STRAS,

BDC_FIELD USING 'LFA1-ORT01' WA_IT_VENDOR_MASTER-ORT01,

BDC_FIELD USING 'LFA1-PSTLZ' WA_IT_VENDOR_MASTER-PSTLZ,

BDC_FIELD USING 'LFA1-LAND1' WA_IT_VENDOR_MASTER-LAND1,

BDC_FIELD USING 'LFA1-REGIO' WA_IT_VENDOR_MASTER-REGIO,

BDC_FIELD USING 'LFA1-SPRAS' WA_IT_VENDOR_MASTER-SPRAS,

BDC_FIELD USING 'BDC_OKCODE' '/00',

BDC_DYNPRO USING 'SAPMF02K' '0120',

BDC_FIELD USING 'LFA1-VBUND' WA_IT_VENDOR_MASTER-VBUND,

BDC_FIELD USING 'BDC_OKCODE' '/00',

BDC_DYNPRO USING 'SAPMF02K' '0130',

BDC_FIELD USING 'LFBK-BANKS(01)' WA_IT_VENDOR_MASTER-BANKS,

BDC_FIELD USING 'LFBK-BANKL(01)' WA_IT_VENDOR_MASTER-BANKL,

BDC_FIELD USING 'LFBK-BANKN(01)' WA_IT_VENDOR_MASTER-BANKN,

BDC_FIELD USING 'BDC_OKCODE' '=BANK',

BDC_DYNPRO USING 'SAPLBANK' '0100',

BDC_FIELD USING 'BNKA-BANKA' WA_IT_VENDOR_MASTER-BANKA,

BDC_FIELD USING 'BDC_OKCODE' '=ENTR',

BDC_DYNPRO USING 'SAPMF02K' '0130',

BDC_FIELD USING 'BDC_OKCODE' '=ENTR',

BDC_DYNPRO USING 'SAPMF02K' '0210',

BDC_FIELD USING 'LFB1-AKONT' WA_IT_VENDOR_MASTER-AKONT,

BDC_FIELD USING 'LFB1-FDGRV' WA_IT_VENDOR_MASTER-FDGRV,

BDC_FIELD USING 'BDC_OKCODE' '=/00',

BDC_DYNPRO USING 'SAPMF02K' '0215',

BDC_FIELD USING 'LFB1-ZTERM' WA_IT_VENDOR_MASTER-ZTERM,

BDC_FIELD USING 'LFB1-REPRF' WA_IT_VENDOR_MASTER-REPRF,

BDC_FIELD USING 'LFB1-ZWELS' WA_IT_VENDOR_MASTER-ZWELS,

BDC_FIELD USING 'LFB1-XPORE' WA_IT_VENDOR_MASTER-XPORE,

BDC_FIELD USING 'BDC_OKCODE' '=UPDA'.

ENDFORM. " POPULATE_BDC_DATA_VEN_MASTER

&----

---

*& Form BDC_DYNPRO

&----

---

• This form is used to move data to BDCDATA int'table

----

---

FORM BDC_DYNPRO USING PROGRAM TYPE BDC_PROG

DYNPRO TYPE BDC_DYNR.

CLEAR WA_IT_BDCDATA.

WA_IT_BDCDATA-PROGRAM = PROGRAM.

WA_IT_BDCDATA-DYNPRO = DYNPRO.

WA_IT_BDCDATA-DYNBEGIN = 'X'.

APPEND WA_IT_BDCDATA TO IT_BDCDATA.

ENDFORM. " BDC_DYNPRO

&----

---

*& Form BDC_FIELD

&----

---

• This form is used to move data to BDCDATA int'table

----

---

FORM BDC_FIELD USING FNAM TYPE ANY

FVAL TYPE ANY.

CLEAR WA_IT_BDCDATA.

WA_IT_BDCDATA-FNAM = FNAM.

WA_IT_BDCDATA-FVAL = FVAL.

APPEND WA_IT_BDCDATA TO IT_BDCDATA.

ENDFORM. " BDC_FIELD

&----

---

*& Form CALL_TRANSACTION

&----

---

• This form is used to Call FK01 for processing of data either for

• Vendor Master or Vendor Extend. The error records are inserted to

• Session which can be processed using SM35

----

---

FORM CALL_TRANSACTION .

DATA : L_OPTION TYPE CTU_PARAMS,

L_SUBRC TYPE SYSUBRC.

REFRESH IT_MESSTAB.

CLEAR IT_MESSTAB.

L_OPTION-DEFSIZE = 'X'.

L_OPTION-DISMODE = P_MODE.

L_OPTION-UPDMODE = 'S'.

CALL TRANSACTION 'FK01'

USING IT_BDCDATA

MESSAGES INTO IT_MESSTAB

OPTIONS FROM L_OPTION.

L_SUBRC = SY-SUBRC.

IF L_SUBRC = 0.

W_SUCC_REC = W_SUCC_REC + 1.

ELSE.

IF FL_FLAG2 NE 'X'.

PERFORM OPEN_BDC_SESSION.

FL_FLAG2 = 'X'.

ENDIF.

PERFORM BDC_INSERT.

W_ERR_REC = W_ERR_REC + 1.

PERFORM ERROR_RECORD_DATA.

ENDIF.

ENDFORM. " CALL_TRANSACTION

&----

---

*& Form OPEN_BDC_SESSION

&----

---

• Form used to open session for Error out Records

----

---

FORM OPEN_BDC_SESSION .

DATA : L_USERID TYPE APQ_MAPN, " Variable to hold user-id

L_GROUP TYPE APQ_GRPN. " Variable to hold value

MOVE P_GROUP TO L_GROUP.

MOVE SY-UNAME TO L_USERID.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

GROUP = L_GROUP

KEEP = SPACE

USER = L_USERID

EXCEPTIONS

CLIENT_INVALID = 1

DESTINATION_INVALID = 2

GROUP_INVALID = 3

GROUP_IS_LOCKED = 4

HOLDDATE_INVALID = 5

INTERNAL_ERROR = 6

QUEUE_ERROR = 7

RUNNING = 8

SYSTEM_LOCK_ERROR = 9

USER_INVALID = 10

OTHERS = 11.

IF SY-SUBRC <> 0.

WRITE:/ TEXT-008. " Unable to open BDC Session

ENDIF.

ENDFORM. " OPEN_BDC_SESSION

&----

---

*& Form BDC_INSERT

&----

---

• This form is used to insert error records to a Session method

----

---

FORM BDC_INSERT .

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = 'FK01'

TABLES

DYNPROTAB = IT_BDCDATA

EXCEPTIONS

INTERNAL_ERROR = 1

NOT_OPEN = 2

QUEUE_ERROR = 3

TCODE_INVALID = 4

PRINTING_INVALID = 5

POSTING_INVALID = 6

OTHERS = 7.

IF SY-SUBRC <> 0.

WRITE:/ TEXT-009. " Unable to Insert Data to BDC Session

ENDIF.

ENDFORM. " BDC_INSERT

&----

---

*& Form ERROR_RECORD_DATA

&----

---

• This form is used to process the messages for the error records which

• will be displayed on the output report

----

---

FORM ERROR_RECORD_DATA .

DATA : L_LINES TYPE I,

L_MSG(200) TYPE C.

DESCRIBE TABLE IT_MESSTAB LINES L_LINES.

READ TABLE IT_MESSTAB INTO WA_IT_MESSTAB INDEX L_LINES.

IF SY-SUBRC = 0.

CLEAR L_MSG.

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

ID = WA_IT_MESSTAB-MSGID

LANG = SY-LANGU

NO = WA_IT_MESSTAB-MSGNR

V1 = WA_IT_MESSTAB-MSGV1

V2 = WA_IT_MESSTAB-MSGV2

V3 = WA_IT_MESSTAB-MSGV3

V4 = WA_IT_MESSTAB-MSGV4

IMPORTING

MSG = L_MSG

EXCEPTIONS

NOT_FOUND = 1

OTHERS = 2.

IF SY-SUBRC = 0.

WA_IT_ERROR_fk01-MSG = L_MSG.

ENDIF.

IF P_VENMAS = 'X'.

WA_IT_ERROR_fk01-LIFNR = WA_IT_VENDOR_MASTER-LIFNR.

WA_IT_ERROR_fk01-BUKRS = WA_IT_VENDOR_MASTER-BUKRS.

ELSEIF P_VENEXT = 'X'.

WA_IT_ERROR_fk01-LIFNR = WA_IT_VENDOR_EXTEND-LIFNR.

WA_IT_ERROR_fk01-BUKRS = WA_IT_VENDOR_EXTEND-BUKRS.

ENDIF.

APPEND WA_IT_ERROR_fk01 TO IT_ERROR_fk01.

CLEAR WA_IT_ERROR_fk01.

ENDIF.

ENDFORM. " ERROR_RECORD_DATA

&----

---

*& Form CLOSE_BDC_SESSION

&----

---

• Form used to close session of the Error Records

----

---

FORM CLOSE_BDC_SESSION .

CALL FUNCTION 'BDC_CLOSE_GROUP'

EXCEPTIONS

NOT_OPEN = 1

QUEUE_ERROR = 2

OTHERS = 3.

IF SY-SUBRC <> 0.

WRITE:/ TEXT-010. " Unable to Close BDC Session

ENDIF.

ENDFORM. " CLOSE_BDC_SESSION

&----

---

*& Form CHK_AND_INS_VENDOR_EXTEND_DATA

&----

---

• This form is used to process BDC data for Vendor Extend

----

---

FORM CHK_AND_INS_VENDOR_EXTEND_DATA .

DATA : L_LIFNR TYPE LIFNR.

CLEAR : L_LIFNR, fl_flag4.

sort it_vendor_extend by flag.

LOOP AT IT_VENDOR_EXTEND INTO WA_IT_VENDOR_EXTEND.

W_COUNT = W_COUNT + 1.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = WA_IT_VENDOR_EXTEND-REF_LIFNR

IMPORTING

OUTPUT = WA_IT_VENDOR_EXTEND-REF_LIFNR.

if wa_it_vendor_extend-flag = 'A'.

SELECT SINGLE LIFNR

FROM LFB1

INTO L_LIFNR

WHERE LIFNR = WA_IT_VENDOR_EXTEND-REF_LIFNR

AND BUKRS = WA_IT_VENDOR_EXTEND-REF_BUKRS.

IF SY-SUBRC NE 0.

WA_IT_ERROR-LIFNR = WA_IT_VENDOR_EXTEND-REF_LIFNR.

WA_IT_ERROR-BUKRS = WA_IT_VENDOR_EXTEND-REF_BUKRS.

WA_IT_ERROR-MSG = TEXT-007.

APPEND WA_IT_ERROR TO IT_ERROR.

W_ERR_REC = W_ERR_REC + 1.

CLEAR : WA_IT_ERROR, L_LIFNR.

ELSE.

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = WA_IT_VENDOR_EXTEND-LIFNR

IMPORTING

OUTPUT = WA_IT_VENDOR_EXTEND-LIFNR.

SELECT SINGLE LIFNR

FROM LFB1

INTO L_LIFNR

WHERE LIFNR = WA_IT_VENDOR_EXTEND-LIFNR

AND BUKRS = WA_IT_VENDOR_EXTEND-BUKRS.

IF SY-SUBRC EQ 0.

WA_IT_ERROR-LIFNR = WA_IT_VENDOR_EXTEND-LIFNR.

WA_IT_ERROR-BUKRS = WA_IT_VENDOR_EXTEND-BUKRS.

WA_IT_ERROR-MSG = TEXT-015.

APPEND WA_IT_ERROR TO IT_ERROR.

W_ERR_REC = W_ERR_REC + 1.

CLEAR : WA_IT_ERROR, L_LIFNR.

ELSE.

REFRESH IT_BDCDATA.

CLEAR IT_BDCDATA.

PERFORM POPULATE_BDC_DATA_VEN_EXTEND.

PERFORM CALL_TRANSACTION.

ENDIF.

ENDIF.

CLEAR : WA_IT_VENDOR_EXTEND.

elseif wa_it_vendor_extend-flag = 'C'.

IF FL_FLAG2 = 'X' and fl_flag4 ne 'X'.

PERFORM CLOSE_BDC_SESSION.

fl_flag4 = 'X'.

ENDIF.

REFRESH IT_BDCDATA.

CLEAR IT_BDCDATA.

PERFORM POPULATE_BDC_DATA_VEN_extend.

PERFORM CALL_TRANSACTION_FK02.

CLEAR : WA_IT_VENDOR_EXTEND.

elseif wa_it_vendor_extend-flag = 'N'.

WA_IT_noupdate-LIFNR = WA_IT_VENDOR_extend-LIFNR.

WA_IT_noupdate-BUKRS = WA_IT_VENDOR_extend-BUKRS.

WA_IT_noupdate-MSG = TEXT-019.

APPEND WA_IT_noupdate TO IT_noupdate.

W_noupdate_REC = W_noupdate_REC + 1.

CLEAR : WA_IT_noupdate, WA_IT_VENDOR_EXTEND.

endif.

ENDLOOP.

IF FL_FLAG2 = 'X'.

PERFORM CLOSE_BDC_SESSION.

ENDIF.

if fl_flag3 = 'X'.

PERFORM CLOSE_BDC_SESSION.

ENDIF.

ENDFORM. " CHK_AND_INS_VENDOR_EXTEND_DATA

&----

---

*& Form POPULATE_BDC_DATA_VEN_EXTEND

&----

---

• This form is used to populate BDC data of Vendor Extend

----

---

FORM POPULATE_BDC_DATA_VEN_EXTEND .

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

EXPORTING

INPUT = WA_IT_VENDOR_EXTEND-ZTERM

IMPORTING

OUTPUT = WA_IT_VENDOR_EXTEND-ZTERM.

IF WA_IT_VENDOR_EXTEND-REPRF = 'Y'.

WA_IT_VENDOR_EXTEND-REPRF = 'X'.

ENDIF.

IF WA_IT_VENDOR_extend-XPORE = 'Y'.

WA_IT_VENDOR_extend-XPORE = 'X'.

ENDIF.

if wa_it_vendor_extend-flag = 'A'.

PERFORM :BDC_DYNPRO USING 'SAPMF02K' '0105',

BDC_FIELD USING 'RF02K-LIFNR' WA_IT_VENDOR_EXTEND-LIFNR,

BDC_FIELD USING 'RF02K-BUKRS' WA_IT_VENDOR_EXTEND-BUKRS,

BDC_FIELD USING 'RF02K-KTOKK' WA_IT_VENDOR_EXTEND-KTOKK,

BDC_FIELD USING 'RF02K-REF_LIFNR'

WA_IT_VENDOR_EXTEND-REF_LIFNR,

BDC_FIELD USING 'RF02K-REF_BUKRS'

WA_IT_VENDOR_EXTEND-REF_BUKRS,

BDC_FIELD USING 'BDC_OKCODE' '/00'.

elseif wa_it_vendor_extend-flag = 'C'.

PERFORM :BDC_DYNPRO USING 'SAPMF02K' '0106',

BDC_FIELD USING 'RF02K-LIFNR' WA_IT_VENDOR_extend-LIFNR,

BDC_FIELD USING 'RF02K-BUKRS' WA_IT_VENDOR_extend-BUKRS,

BDC_FIELD USING 'RF02K-D0210' 'X',

BDC_FIELD USING 'RF02K-D0215' 'X',

BDC_FIELD USING 'BDC_OKCODE' '/00'.

endif.

perform :BDC_DYNPRO USING 'SAPMF02K' '0210',

BDC_FIELD USING 'LFB1-AKONT' WA_IT_VENDOR_EXTEND-AKONT,

BDC_FIELD USING 'LFB1-FDGRV' WA_IT_VENDOR_EXTEND-FDGRV,

BDC_FIELD USING 'BDC_OKCODE' '=/00',

BDC_DYNPRO USING 'SAPMF02K' '0215',

BDC_FIELD USING 'LFB1-ZTERM' WA_IT_VENDOR_EXTEND-ZTERM,

BDC_FIELD USING 'LFB1-REPRF' WA_IT_VENDOR_EXTEND-REPRF,

BDC_FIELD USING 'LFB1-ZWELS' WA_IT_VENDOR_EXTEND-ZWELS,

BDC_FIELD USING 'LFB1-XPORE' WA_IT_VENDOR_extend-XPORE,

BDC_FIELD USING 'BDC_OKCODE' '=UPDA'.

ENDFORM. " POPULATE_BDC_DATA_VEN_EXTEND

&----

---

*& Form DISPLAY_ERROR_REPORT

&----

---

• This form is used to display the error records on the output screen

----

---

FORM DISPLAY_ERROR_REPORT .

IF P_VENMAS = 'X'.

WRITE:/ TEXT-O05. " Error List for Vendor Master

ELSEIF P_VENEXT = 'X'.

WRITE:/ TEXT-O06. " Error List for Vendor Master Extended

ENDIF.

WRITE:/ SY-ULINE(100).

FORMAT COLOR 1.

WRITE:/1 SY-VLINE,

2 TEXT-H01, " Vendor Number

17 SY-VLINE,

18 TEXT-H02, " Company Code

31 SY-VLINE,

32 TEXT-H03, " Error Message

100 SY-VLINE.

FORMAT COLOR OFF.

WRITE:/ SY-ULINE(100).

LOOP AT IT_ERROR INTO WA_IT_ERROR.

FORMAT COLOR 2.

WRITE:/1 SY-VLINE,

2 WA_IT_ERROR-LIFNR,

17 SY-VLINE,

18 WA_IT_ERROR-BUKRS,

31 SY-VLINE,

32 WA_IT_ERROR-MSG,

100 SY-VLINE.

CLEAR : WA_IT_ERROR.

FORMAT COLOR OFF.

ENDLOOP.

WRITE:/ SY-ULINE(100).

ENDFORM. " DISPLAY_ERROR_REPORT

&----

---

*& Form CALL_TRANSACTION_FK02

&----

---

• Form used to Call Transaction FK02

----

---

form CALL_TRANSACTION_FK02 .

DATA : L_OPTION TYPE CTU_PARAMS,

L_SUBRC TYPE SYSUBRC.

REFRESH IT_MESSTAB.

CLEAR IT_MESSTAB.

L_OPTION-DEFSIZE = 'X'.

L_OPTION-DISMODE = P_MODE.

L_OPTION-UPDMODE = 'S'.

CALL TRANSACTION 'FK02'

USING IT_BDCDATA

MESSAGES INTO IT_MESSTAB

OPTIONS FROM L_OPTION.

L_SUBRC = SY-SUBRC.

IF L_SUBRC = 0.

W_SUCC_REC1 = W_SUCC_REC1 + 1.

WA_IT_succ_rec1-MSG = Text-017.

IF P_VENMAS = 'X'.

WA_IT_succ_rec1-LIFNR = WA_IT_VENDOR_MASTER-LIFNR.

WA_IT_succ_rec1-BUKRS = WA_IT_VENDOR_MASTER-BUKRS.

ELSEIF P_VENEXT = 'X'.

WA_IT_succ_rec1-LIFNR = WA_IT_VENDOR_EXTEND-LIFNR.

WA_IT_succ_rec1-BUKRS = WA_IT_VENDOR_EXTEND-BUKRS.

ENDIF.

APPEND WA_IT_succ_rec1 TO IT_succ_rec1.

ELSE.

IF FL_FLAG3 NE 'X'.

PERFORM OPEN_BDC_SESSION_fk02.

FL_FLAG3 = 'X'.

ENDIF.

PERFORM BDC_INSERT_fk02.

W_ERR_REC = W_ERR_REC + 1.

PERFORM ERROR_RECORD_DATA1.

ENDIF.

endform. " CALL_TRANSACTION_FK02

&----

---

*& Form OPEN_BDC_SESSION_fk02

&----

---

• Form used to Open session for FK02

----

---

form OPEN_BDC_SESSION_fk02 .

DATA : L_USERID TYPE APQ_MAPN, " Variable to hold user-id

L_GROUP TYPE APQ_GRPN. " Variable to hold value

MOVE P_GROUP1 TO L_GROUP.

MOVE SY-UNAME TO L_USERID.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

GROUP = L_GROUP

KEEP = SPACE

USER = L_USERID

EXCEPTIONS

CLIENT_INVALID = 1

DESTINATION_INVALID = 2

GROUP_INVALID = 3

GROUP_IS_LOCKED = 4

HOLDDATE_INVALID = 5

INTERNAL_ERROR = 6

QUEUE_ERROR = 7

RUNNING = 8

SYSTEM_LOCK_ERROR = 9

USER_INVALID = 10

OTHERS = 11.

IF SY-SUBRC <> 0.

WRITE:/ TEXT-008. " Unable to open BDC Session

ENDIF.

endform. " OPEN_BDC_SESSION_fk02

&----

---

*& Form BDC_INSERT_fk02

&----

---

• Form used to insert data into BDC session using FK02

----

---

form BDC_INSERT_fk02 .

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = 'FK02'

TABLES

DYNPROTAB = IT_BDCDATA

EXCEPTIONS

INTERNAL_ERROR = 1

NOT_OPEN = 2

QUEUE_ERROR = 3

TCODE_INVALID = 4

PRINTING_INVALID = 5

POSTING_INVALID = 6

OTHERS = 7.

IF SY-SUBRC <> 0.

WRITE:/ TEXT-009. " Unable to Insert Data to BDC Session

ENDIF.

endform. " BDC_INSERT_fk02

&----

---

*& Form display_changed_report

&----

---

• Form to display Updated Vendor data

----

---

form display_changed_report .

IF P_VENMAS = 'X'.

WRITE:/ TEXT-O10. " Updated List for Vendor Master

ELSEIF P_VENEXT = 'X'.

WRITE:/ TEXT-O11. " Updated List for Vendor Master Extended

ENDIF.

WRITE:/ SY-ULINE(100).

FORMAT COLOR 1.

WRITE:/1 SY-VLINE,

2 TEXT-H01, " Vendor Number

17 SY-VLINE,

18 TEXT-H02, " Company Code

31 SY-VLINE,

32 TEXT-H04, " Message

100 SY-VLINE.

FORMAT COLOR OFF.

WRITE:/ SY-ULINE(100).

LOOP AT IT_succ_rec1 INTO WA_IT_succ_rec1.

FORMAT COLOR 2.

WRITE:/1 SY-VLINE,

2 WA_IT_succ_rec1-LIFNR,

17 SY-VLINE,

18 WA_IT_succ_rec1-BUKRS,

31 SY-VLINE,

32 WA_IT_succ_rec1-MSG,

100 SY-VLINE.

CLEAR : WA_IT_succ_rec1.

FORMAT COLOR OFF.

ENDLOOP.

WRITE:/ SY-ULINE(100).

endform. " display_changed_report

&----

---

*& Form display_nochange_report

&----

---

• Form to display No Changed data for Vendors

----

---

form display_nochange_report .

IF P_VENMAS = 'X'.

WRITE:/ TEXT-O12. " No Changes List for Vendor Master

ELSEIF P_VENEXT = 'X'.

WRITE:/ TEXT-O13. " No Changes List for Vendor Master Extended

ENDIF.

WRITE:/ SY-ULINE(100).

FORMAT COLOR 1.

WRITE:/1 SY-VLINE,

2 TEXT-H01, " Vendor Number

17 SY-VLINE,

18 TEXT-H02, " Company Code

31 SY-VLINE,

32 TEXT-H04, " Message

100 SY-VLINE.

FORMAT COLOR OFF.

WRITE:/ SY-ULINE(100).

LOOP AT IT_noupdate INTO WA_IT_noupdate.

FORMAT COLOR 2.

WRITE:/1 SY-VLINE,

2 WA_IT_noupdate-LIFNR,

17 SY-VLINE,

18 WA_IT_noupdate-BUKRS,

31 SY-VLINE,

32 WA_IT_noupdate-MSG,

100 SY-VLINE.

CLEAR : WA_IT_noupdate.

FORMAT COLOR OFF.

ENDLOOP.

WRITE:/ SY-ULINE(100).

endform. " display_nochange_report

&----

---

*& Form ERROR_RECORD_DATA1

&----

---

• Form to get Error Message for Changed Vendors

----

---

form ERROR_RECORD_DATA1 .

DATA : L_LINES TYPE I,

L_MSG(200) TYPE C.

DESCRIBE TABLE IT_MESSTAB LINES L_LINES.

READ TABLE IT_MESSTAB INTO WA_IT_MESSTAB INDEX L_LINES.

IF SY-SUBRC = 0.

CLEAR L_MSG.

CALL FUNCTION 'FORMAT_MESSAGE'

EXPORTING

ID = WA_IT_MESSTAB-MSGID

LANG = SY-LANGU

NO = WA_IT_MESSTAB-MSGNR

V1 = WA_IT_MESSTAB-MSGV1

V2 = WA_IT_MESSTAB-MSGV2

V3 = WA_IT_MESSTAB-MSGV3

V4 = WA_IT_MESSTAB-MSGV4

IMPORTING

MSG = L_MSG

EXCEPTIONS

NOT_FOUND = 1

OTHERS = 2.

IF SY-SUBRC = 0.

WA_IT_ERROR_fk02-MSG = L_MSG.

ENDIF.

IF P_VENMAS = 'X'.

WA_IT_ERROR_fk02-LIFNR = WA_IT_VENDOR_MASTER-LIFNR.

WA_IT_ERROR_fk02-BUKRS = WA_IT_VENDOR_MASTER-BUKRS.

ELSEIF P_VENEXT = 'X'.

WA_IT_ERROR_fk02-LIFNR = WA_IT_VENDOR_EXTEND-LIFNR.

WA_IT_ERROR_fk02-BUKRS = WA_IT_VENDOR_EXTEND-BUKRS.

ENDIF.

APPEND WA_IT_ERROR_fk02 TO IT_ERROR_fk02.

CLEAR WA_IT_ERROR_fk02.

ENDIF.

endform. " ERROR_RECORD_DATA1

&----

---

*& Form display_error_report_fk01

&----

---

• Form to display Error Report for Master Vendors (FK01)

----

---

form display_error_report_fk01 .

IF P_VENMAS = 'X'.

WRITE:/ TEXT-O05. " Error List for Vendor Master (FK01)

ELSEIF P_VENEXT = 'X'.

WRITE:/ TEXT-O06. " Error List for Vendor Master Extended (FK01)

ENDIF.

WRITE:/ SY-ULINE(100).

FORMAT COLOR 1.

WRITE:/1 SY-VLINE,

2 TEXT-H01, " Vendor Number

17 SY-VLINE,

18 TEXT-H02, " Company Code

31 SY-VLINE,

32 TEXT-H04, " Message

100 SY-VLINE.

FORMAT COLOR OFF.

WRITE:/ SY-ULINE(100).

LOOP AT IT_ERROR_fk01 INTO WA_IT_ERROR_fk01.

FORMAT COLOR 2.

WRITE:/1 SY-VLINE,

2 WA_IT_ERROR_fk01-LIFNR,

17 SY-VLINE,

18 WA_IT_ERROR_fk01-BUKRS,

31 SY-VLINE,

32 WA_IT_ERROR_fk01-MSG,

100 SY-VLINE.

CLEAR : WA_IT_ERROR_fk01.

FORMAT COLOR OFF.

ENDLOOP.

WRITE:/ SY-ULINE(100).

endform. " display_error_report_fk01

&----

---

*& Form display_error_report_fk02

&----

---

• Form to display Error Report for changed Vendors (FK02)

----

---

form display_error_report_fk02 .

IF P_VENMAS = 'X'.

WRITE:/ TEXT-O14. " Error List for Vendor Master (FK02)

ELSEIF P_VENEXT = 'X'.

WRITE:/ TEXT-O15. " Error List for Vendor Master Extended (FK02)

ENDIF.

WRITE:/ SY-ULINE(100).

FORMAT COLOR 1.

WRITE:/1 SY-VLINE,

2 TEXT-H01, " Vendor Number

17 SY-VLINE,

18 TEXT-H02, " Company Code

31 SY-VLINE,

32 TEXT-H04, " Message

100 SY-VLINE.

FORMAT COLOR OFF.

WRITE:/ SY-ULINE(100).

LOOP AT IT_ERROR_fk02 INTO WA_IT_ERROR_fk02.

FORMAT COLOR 2.

WRITE:/1 SY-VLINE,

2 WA_IT_ERROR_fk02-LIFNR,

17 SY-VLINE,

18 WA_IT_ERROR_fk02-BUKRS,

31 SY-VLINE,

32 WA_IT_ERROR_fk02-MSG,

100 SY-VLINE.

CLEAR : WA_IT_ERROR_fk02.

FORMAT COLOR OFF.

ENDLOOP.

WRITE:/ SY-ULINE(100).

endform. " display_error_report_fk02

[Former Member]

Dear Ramesh, Can I run copy & paste & run this Program. hayy if possible can u explain it nondetailly.

[Former Member]

Hi

Try the following code, this method is using both call transaction and session methods, but before this you should have a flat file of the internal table ie itab format, and you have to do recording in SHDB transaction for XK01 to load vendor data.

In SHDB create a recorder and give some name, give the transaction code, and it will start recording, enter the required data in the fields and continue till which screen you want data, then in the last screen click on save, so it will come to one screen then again click on save, then continue with the program.

tables lfa1.

data: bdcdata like bdcdata occurs 0 with header line,

bdcmsgcoll like bdcmsgcoll occurs 0 with header line,

err_msg(50) type c,

date like sy-datum.

date = sy-datum - 1.

data : begin of itab occurs 0,

lifnr(10),

ktokk(4),

name1(35),

sortl(10),

land1(3),

spras(2),

end of itab.

selection-screen: begin of screen 1.

selection-screen: begin of block b1 with frame title text-001.

parameters : rb1 radiobutton group g1,

rb2 radiobutton group g1.

selection-screen: end of block b1.

selection-screen: end of screen 1.

call function 'GUI_UPLOAD' - <b>this is used to get data from flat file to internal table</b>

exporting

filename = 'c:\data.txt'

filetype = 'ASC'

tables

data_tab = itab

.

call screen 1

starting at 5 5

ending at 90 10.

if rb1 = 'X'.

loop at itab.

perform assign_data.

call transaction 'XK01' using bdcdata update 's' mode 'N' messages

into bdcmsgcoll. - <b>this is call transaction method</b>

if sy-subrc = 0.

perform format_message.

endif.

refresh bdcdata.

endloop.

else.

<i><b>* This is starting of session method.</b></i>

call function 'BDC_OPEN_GROUP' - <b>here we are creating a session</b>

exporting

client = sy-mandt

group = 'SESSION' -<b> session name</b>

holddate = date

keep = 'X'

user = sy-uname

.

loop at itab.

perform assign_data.

call function 'BDC_INSERT'

exporting

tcode = 'XK01'

tables

dynprotab = bdcdata

exceptions

internal_error = 1

not_open = 2

queue_error = 3

tcode_invalid = 4

printing_invalid = 5

posting_invalid = 6

others = 7

.

refresh bdcdata.

endloop.

call function 'BDC_CLOSE_GROUP'

• EXCEPTIONS

• NOT_OPEN = 1

• QUEUE_ERROR = 2

• OTHERS = 3

.

if sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

endif.

<i><b>* End of session method</b></i>

endif.

<i><b>* Here you are loading screen fields with internal table data</b></i>

*&----

---

*

*& Form assign_data

*&----

---

*

• text

*----

---

*

• --> p1 text

• <-- p2 text

*----

---

*

form assign_data .

bdcdata-program = 'SAPMF02K'.

bdcdata-dynpro = '0100'.

bdcdata-dynbegin = 'X'.

bdcdata-fnam = 'rf02k-lifnr'. - <b>field name</b>

bdcdata-fval = itab-lifnr. - <b>internal table name and field name</b>

append bdcdata.

bdcdata-program = 'SAPMF02K'.

bdcdata-dynpro = '0100'.

bdcdata-dynbegin = ' '.

bdcdata-fnam = 'rf02k-ktokk'.

bdcdata-fval = itab-ktokk.

append bdcdata.

bdcdata-program = 'SAPMF02K'.

bdcdata-dynpro = '0100'.

bdcdata-dynbegin = ' '.

bdcdata-fnam = 'bdc_okcode'.

bdcdata-fval = '/00'.

append bdcdata.

bdcdata-program = 'SAPMF02K'.

bdcdata-dynpro = '0110'.

bdcdata-dynbegin = 'X'.

bdcdata-fnam = 'lfa1-name1'.

bdcdata-fval = itab-name1.

append bdcdata.

bdcdata-program = 'SAPMF02K'.

bdcdata-dynpro = '0110'.

bdcdata-dynbegin = ' '.

bdcdata-fnam = 'lfa1-sortl'.

bdcdata-fval = itab-sortl.

append bdcdata.

bdcdata-program = 'SAPMF02K'.

bdcdata-dynpro = '0110'.

bdcdata-dynbegin = ' '.

bdcdata-fnam = 'lfa1-land1'.

bdcdata-fval = itab-land1.

append bdcdata.

bdcdata-program = 'SAPMF02K'.

bdcdata-dynpro = '0110'.

bdcdata-dynbegin = ' '.

bdcdata-fnam = 'lfa1-spras'.

bdcdata-fval = itab-spras.

append bdcdata.

bdcdata-program = 'SAPMF02K'.

bdcdata-dynpro = '0110'.

bdcdata-dynbegin = ' '.

bdcdata-fnam = 'bdc_okcode'.

bdcdata-fval = '=UPDA'.

append bdcdata.

endform. " assign_data

<i><b>* This perform is used to catch error messages and display the messages</b></i>

*&----

---

*

*& Form format_message

*&----

---

*

• text

*----

---

*

• --> p1 text

• <-- p2 text

*----

---

*

form format_message .

call function 'FORMAT_MESSAGE'

exporting

id = sy-msgid

lang = '-D'

no = sy-msgno

v1 = sy-msgv1

v2 = sy-msgv2

v3 = sy-msgv3

v4 = sy-msgv4

importing

msg = err_msg

exceptions

not_found = 1

others = 2

.

write:/ err_msg.

endform. " format_message<b></b><b></b>

Regards

Haritha.

[Former Member]

Hi Farooq,

There is nothing to get confused w.r.t. BDC.

One of the main reason for Batch Data Communication, is prior to SAP implemetation, the organization might be using some other old (Legacy) system. So when we go for SAP we need the original old data to be present in our SAP system. So we have to do data transfer.

In this data transfer you have got lots of methods for Data transfer.

1) BDC 2) Direct Input 3) LSMW (Tool) etc. 4) CATT. Depending upon the quantum of the data and availability of appropriate method (direct input is not availbale for all) you will chose the method of transfer.

Now coming to your point BDC, see suppose you access the transaction MM02, then it will be accessing the data from multiple tables (MARA, MARC, MARD etc). Hence staright away you can't upload individual tables (Hope you understood). For this purpose you have to see the mandatory fields in the transactions (ex:MM01) and supply the value accordingly. You can catch the field names manually or through the help of SHDB (This will simply record the screen flow with requiered fields once you supply some dummy values).

Hence there won't be any inconsistencies in the system.

Hope this will clear your doubt.

Regards...

[Former Member]

Haayyy All,

Answers were really Great. My confusion is almost cleared. I just need to work on the real scenarios. However, Thanks a lot again.

Regards.

Farooq