BDC For F-02

Former Member · ‎05-20-2006

Is it possible to create a BDC for TCode F-02

former_member184569 · ‎05-20-2006

Hi Sayantan..

Yes, its possible to create BDC for F-02.

Attaching a sample code for that.

REPORT Zf02 MESSAGE-ID Z1.

TABLES: T001, "Company Codes

SKB1, "GL Account Master (Company Code)

AUFK, "Order Master data

BKPF, "Document Header Table

ZMETA, "Meta Table used for messaging

TCURC, "Currency Check Table

TGSB, "Check table for business area

T100. "Message Table

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

Input table to load Interface File

DATA: BEGIN OF INFILE OCCURS 0,

REC_TYPE(01) TYPE C,

POST_KEY(02) TYPE C,

FILL_01(08) TYPE C,

ACCNT(10) TYPE C,

FILL_02(04) TYPE C,

AMOUNT(16) TYPE C,

BUSINESS_AREA(03) TYPE C,

FILL_03(06) TYPE C,

SPECIAL_GL(01) TYPE C,

FILL_04(05) TYPE C,

ORDER(10) TYPE C,

FILL_05(25) TYPE C,

TEXT(50) TYPE C,

FILL_07(65) TYPE C,

DUE_ON_DATE(8) TYPE C,

DOLLAR_AMT TYPE P DECIMALS 2,

SORT_FIELD(13) TYPE C,

FILL_06(05) TYPE C,

END OF INFILE.

DATA: BEGIN OF BA_CNT_TAB OCCURS 5,

BUSINESS_AREA(04) TYPE C,

REC_CNT TYPE I,

DOLLAR_AMT TYPE P DECIMALS 2,

DEBIT_ACCUM TYPE P DECIMALS 2,

CREDIT_ACCUM TYPE P DECIMALS 2,

END OF BA_CNT_TAB.

DATA: BEGIN OF BDC_TAB OCCURS 100.

INCLUDE STRUCTURE BDCDATA.

DATA: END OF BDC_TAB.

DATA: BEGIN OF HEADER,

REC_TYPE(01) TYPE C,

DOC_MDY(10) TYPE C,

POST_MDY(10) TYPE C,

DOC_TYPE(02) TYPE C,

FILL03(18) TYPE C,

COMPANY_CODE(04) TYPE C,

FILL04(05) TYPE C,

PERIOD(02) TYPE C,

FILL05(04) TYPE C,

CURRENCY(05) TYPE C,

FILL06(10) TYPE C,

REFERENCE_DOC(16) TYPE C,

FILL09(04) TYPE C,

TEXT(25) TYPE C,

FILL07(25) TYPE C,

END OF HEADER.

DATA: BEGIN OF IN_TRAILER,

RECORD_TYPE(01) TYPE C,

INTERFACE_ID(04) TYPE C,

FILL_02(06) TYPE C,

REC_CNT(06) TYPE N,

FILL_03(04) TYPE C,

TOT_AMOUNT(20) TYPE N,

DR_CR_IND(01) TYPE C,

DATE(08) TYPE C,

TIME(06) TYPE C,

FILE_NAME(15) TYPE C,

END OF IN_TRAILER.

DATA: BEGIN OF GROUP_NAME,

FILLER(01) TYPE C VALUE 'Z',

INF_ID(04) TYPE C VALUE 'AR01', "Interface Id

INF_NAME(07) TYPE C VALUE 'GEN_AR ',

END OF GROUP_NAME.

DATA: EXECUTION(15) TYPE C VALUE 'DEAMON',

BEGIN(01) TYPE C VALUE 'X',

WORK_DOC_DATE(08) TYPE C,

FILE(45) TYPE C,

PREV_PK(02) TYPE C,

PREV_BUSINESS_AREA LIKE INFILE-BUSINESS_AREA,

PREV_AMOUNT LIKE INFILE-AMOUNT,

PREV_DOLLAR_AMT LIKE INFILE-DOLLAR_AMT,

PREV_ORDER LIKE INFILE-ORDER,

PREV_TEXT LIKE INFILE-TEXT,

PREV_DUE_ON_DATE LIKE INFILE-DUE_ON_DATE,

POSTING_KEY(02) TYPE C,

FIRST_TIME(05) TYPE C VALUE 'TRUE ',

NEW_BDC(05) TYPE C VALUE 'TRUE ',

ABEND_JOB(05) TYPE C VALUE 'FALSE',

BDC_OPENNED(05) TYPE C VALUE 'FALSE',

TRAILER_PRESENT(05) TYPE C VALUE 'FALSE',

BDC_TAB_CREATED(05) TYPE C VALUE 'FALSE',

BAD_FILE(05) TYPE C VALUE 'FALSE',

EOJ(05) TYPE C VALUE 'FALSE',

CHAR_DATA(16) TYPE C,

DISPLAY_DEBIT(16) TYPE C,

DISPLAY_CREDIT(16) TYPE C,

FULL_FIL_NAME(40) TYPE C,

NUMERIC_10(10) TYPE N,

CHAR_12(12) TYPE C,

NUMERIC_12(12) TYPE N,

NUMERIC_2(02) TYPE N,

BDC_TRANS_CNT TYPE I,

TOTAL_RECS TYPE I,

DETAIL_REC_CNT TYPE I,

PHANTOM_ACCUM TYPE P DECIMALS 2,

AMT_DEBIT_ADDED TYPE P DECIMALS 2,

NUM_DATA TYPE P DECIMALS 2,

AMT_CREDIT_ADDED TYPE P DECIMALS 2,

TOT_AMOUNT TYPE P DECIMALS 2,

TOT_DEBIT TYPE P DECIMALS 2,

TOT_CREDIT TYPE P DECIMALS 2.

DATA NO_BA_FLG(1) TYPE C.

CONSTANTS: DEFAULT_FILENAME(15) TYPE C VALUE 'ar_upload ',

HEADER_REC(01) TYPE C VALUE 'H',

DETAIL_REC(01) TYPE C VALUE 'D',

TRAILER_REC(01) TYPE C VALUE 'T',

POST(03) TYPE C VALUE '/11',

PHANTOM_ACCNT(10) TYPE C VALUE '199997',

DEBIT_PK01(02) TYPE C VALUE '01',

DEBIT_PK09(02) TYPE C VALUE '09',

DEBIT_PK40(02) TYPE C VALUE '40',

CREDIT_PK19(02) TYPE C VALUE '19',

CREDIT_PK50(02) TYPE C VALUE '50',

CREDIT_PK11(02) TYPE C VALUE '11',

NUMERIC_DATA(10) TYPE C VALUE '0123456789',

NUMERIC_DATA_SPACE(11) TYPE C VALUE ' 0123456789',

TRANS_CODE(20) TYPE C VALUE 'F-02',

COMMA_DATA(01) TYPE C VALUE ','.

INCLUDE ZI000001.

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

PARAMETERS

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

PARAMETERS:

FIL_NAME(15) DEFAULT 'ar_upload' LOWER CASE,

FIL_PATH(40) DEFAULT '/data/work/' LOWER CASE,

*To submit the bdc session for automatic processing

submit AS CHECKBOX DEFAULT 'X'.

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

*----

Main Program

*----

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

Entry point for manual execution

*----

EXECUTION = 'ONLINE'.

PERFORM MAINLINE_ROUTINE USING FIL_NAME FIL_PATH ABEND_JOB.

*----

Entry point for execution by DEAMON

*----

FORM MAINLINE_ROUTINE USING FILENAME PATH ABORT.

MOVE FILENAME TO FULL_FIL_NAME.

PERFORM PROCESS_INPUT_FILE USING FILENAME PATH.

IF ABEND_JOB = FALSE.

PERFORM PREPARE_DATA.

IF BAD_FILE = FALSE.

PERFORM PROCESS_TRAILER.

ENDIF.

This creates the BDC.

<b> IF ABEND_JOB = FALSE.

PERFORM PROCESS_INFILE.

ENDIF.</b>

PERFORM EOJ_ROUTINE.

MOVE: ABEND_JOB TO ABORT.

ENDFORM.

----

END OF MAIN ROUTINE

----

FORM PROCESS_INPUT_FILE USING FILENAME PATH.

CONCATENATE PATH FILENAME INTO FILE.

TRANSLATE FILE TO LOWER CASE.

MOVE: DEFAULT_FILENAME TO IN_TRAILER-FILE_NAME.

OPEN DATASET FILE FOR INPUT IN TEXT MODE.

IF SY-SUBRC NE 0.

MOVE: TRUE TO ABEND_JOB.

ELSE.

DO.

READ DATASET FILE INTO INFILE.

IF SY-SUBRC NE 0.

TOTAL_RECS = SY-INDEX - 3.

EXIT.

ENDIF.

APPEND INFILE.

ENDDO.

CLOSE DATASET FILE.

ENDIF.

ENDFORM.

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

Load input data to work table(s)

FORM PREPARE_DATA.

SORT INFILE BY REC_TYPE DESCENDING BUSINESS_AREA.

SY-SUBRC = 0.

LOOP AT INFILE.

IF SY-SUBRC NE 0.

EXIT.

ENDIF.

CASE INFILE-REC_TYPE. "Use field that is to be used to

"determine type of record

WHEN HEADER_REC.

MOVE: INFILE TO HEADER.

DELETE INFILE INDEX SY-TABIX.

WHEN DETAIL_REC.

IF INFILE-AMOUNT CA COMMA_DATA.

MOVE TRUE TO ABEND_JOB.

ELSE.

IF INFILE-POST_KEY = DEBIT_PK01 OR

INFILE-POST_KEY = DEBIT_PK09 OR

INFILE-POST_KEY = DEBIT_PK40.

INFILE-DOLLAR_AMT = INFILE-AMOUNT.

ELSEIF INFILE-POST_KEY = CREDIT_PK19 OR

INFILE-POST_KEY = CREDIT_PK11 OR

INFILE-POST_KEY = CREDIT_PK50.

INFILE-DOLLAR_AMT = INFILE-AMOUNT * -1.

ELSE.

MOVE: TRUE TO ABEND_JOB,

TRUE TO BAD_FILE.

ENDIF.

MODIFY INFILE INDEX SY-TABIX.

ENDIF.

WHEN TRAILER_REC.

MOVE: INFILE TO IN_TRAILER,

TRUE TO TRAILER_PRESENT.

DELETE INFILE INDEX SY-TABIX.

PERFORM CHECK_DATE_CONTROL_FILE.

IF ABEND_JOB = TRUE.

EXIT.

ENDIF.

WHEN OTHERS.

ENDCASE.

ENDLOOP.

ENDFORM.

PROCESS TRAILER RECORD

*----

FORM PROCESS_TRAILER.

*----

IF TOTAL_RECS = 0.

MOVE: TRUE TO ABEND_JOB.

EXIT.

ELSEIF TRAILER_PRESENT = FALSE.

MOVE: TRUE TO ABEND_JOB.

EXIT.

ENDIF.

ENDFORM.

----

FORM PROCESS_INFILE *

----

........ *

----

FORM PROCESS_INFILE.

*----

This routine loops through the Infile Table created from the input
file and creates the appropriate BDC transactions necessary to
input the data into SAP

*----

MOVE: 0 TO SY-SUBRC.

SORT INFILE BY BUSINESS_AREA AMOUNT POST_KEY.

LOOP AT INFILE.

PERFORM CREATE_BDC.

ENDLOOP.

Handle the last break occurring because at end of file

IF ABEND_JOB = FALSE.

MOVE: TRUE TO EOJ.

PERFORM FORMAT_SCRN_0300_LAST.

PERFORM INSERT_BDCDATA.

ENDIF.

ENDFORM.

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

Create BDC

FORM CREATE_BDC.

*----

Include logic applicable to Interface that is necessary to format
the necessary BDC screens.

*----

SY-SUBRC = 0.

IF NEW_BDC EQ TRUE.

PERFORM OPEN_BDC.

IF ABEND_JOB = TRUE.

EXIT.

ENDIF.

IF FIRST_TIME = TRUE.

CLEAR BA_CNT_TAB.

PERFORM FORMAT_SCRN_0100.

PERFORM FORMAT_BREAK_FIELDS.

ELSEIF INFILE-BUSINESS_AREA NE PREV_BUSINESS_AREA OR

DETAIL_REC_CNT = 49.

PERFORM FORMAT_SCRN_0300_LAST.

PERFORM INSERT_BDCDATA.

IF ABEND_JOB = FALSE.

MOVE: TRUE TO BDC_TAB_CREATED.

PERFORM FORMAT_SCRN_0100.

PERFORM FORMAT_BREAK_FIELDS.

ENDIF.

ELSE.

PERFORM FORMAT_SCRN_0300_DETAIL.

PERFORM FORMAT_BREAK_FIELDS.

ENDIF.

IF ABEND_JOB = FALSE.

IF FIRST_TIME = TRUE.

MOVE: TRUE TO BDC_TAB_CREATED,

FALSE TO FIRST_TIME.

ENDIF.

ELSE.

EXIT.

ENDIF.

ENDFORM.

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

Format Break Fields

FORM FORMAT_BREAK_FIELDS.

*----

This form format fields necessary for breaking logic and postions
the BA_CNT_TAB at the Business Area being processed.

MOVE: INFILE-BUSINESS_AREA TO PREV_BUSINESS_AREA,

INFILE-POST_KEY TO PREV_PK,

INFILE-AMOUNT TO PREV_AMOUNT,

INFILE-DOLLAR_AMT TO PREV_DOLLAR_AMT,

INFILE-ORDER TO PREV_ORDER,

INFILE-TEXT TO PREV_TEXT,

INFILE-DUE_ON_DATE TO PREV_DUE_ON_DATE.

ENDFORM.

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

format screen 0100

FORM FORMAT_SCRN_0100.

*----

This form contains the logic to create screen 0100

SY-SUBRC = 0.

IF BA_CNT_TAB-BUSINESS_AREA NE INFILE-BUSINESS_AREA.

Position BA_CNT_TAB at business area currently processing.

LOOP AT BA_CNT_TAB.

IF BA_CNT_TAB-BUSINESS_AREA = INFILE-BUSINESS_AREA.

EXIT.

ENDIF.

ENDLOOP.

ENDIF.

PERFORM DYNPRO_SAPMF05A_0100 USING INFILE-POST_KEY INFILE-ACCNT.

ENDFORM.

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

FORMAT SCREEN 0300 FOR LAST DETAIL

FORM FORMAT_SCRN_0300_LAST.

*----

This form formats the last detail screen 0300 and a phantom entry
if needed. Screen 0002 is also formatted for each 0300.

ADD: PREV_DOLLAR_AMT TO PHANTOM_ACCUM,

1 TO DETAIL_REC_CNT.

IF PREV_DOLLAR_AMT GT 0.

ADD: PREV_DOLLAR_AMT TO AMT_DEBIT_ADDED.

ELSE.

ADD: PREV_DOLLAR_AMT TO AMT_CREDIT_ADDED.

ENDIF.

IF DETAIL_REC_CNT LT BA_CNT_TAB-REC_CNT.

IF PHANTOM_ACCUM LT 0.

Reverse posting key since being posted as an offset to the accumulated
Amount.

MOVE DEBIT_PK40 TO POSTING_KEY.

NUM_DATA = PHANTOM_ACCUM * -1.

ELSE.

MOVE CREDIT_PK50 TO POSTING_KEY.

NUM_DATA = PHANTOM_ACCUM.

ENDIF.

PERFORM DYNPRO_SAPMF05A_0300 USING PREV_AMOUNT PREV_TEXT

PREV_DUE_ON_DATE POSTING_KEY PHANTOM_ACCNT ' '.

IF PREV_PK = '40' OR

PREV_PK = '50'.

PERFORM DYNPRO_SAPLKACB_0002 USING

PREV_BUSINESS_AREA PREV_ORDER.

ENDIF.

MOVE: NUM_DATA TO CHAR_DATA,

POSTING_KEY TO PREV_PK.

PERFORM DYNPRO_SAPMF05A_0300 USING CHAR_DATA '' '' '' '' ''.

PERFORM BDC_VALUE USING 'BDC_OKCODE' POST.

PERFORM DYNPRO_SAPLKACB_0002 USING PREV_BUSINESS_AREA ' '.

ELSE.

PERFORM DYNPRO_SAPMF05A_0300 USING PREV_AMOUNT PREV_TEXT

PREV_DUE_ON_DATE '' '' ''.

PERFORM BDC_VALUE USING 'BDC_OKCODE' POST.

IF PREV_PK = '40' OR

PREV_PK = '50'.

PERFORM DYNPRO_SAPLKACB_0002 USING

PREV_BUSINESS_AREA PREV_ORDER.

ENDIF.

CLEAR: DETAIL_REC_CNT,

PHANTOM_ACCUM.

ENDFORM.

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

FORMAT DETAIL FOR SCREEN 0300

FORM FORMAT_SCRN_0300_DETAIL.

*----

This FORM formats screen 0300 for a detail record along with its
screen 0002

ADD: PREV_DOLLAR_AMT TO PHANTOM_ACCUM.

PERFORM DYNPRO_SAPMF05A_0300 USING PREV_AMOUNT PREV_TEXT

PREV_DUE_ON_DATE INFILE-POST_KEY INFILE-ACCNT INFILE-SPECIAL_GL.

IF PREV_PK = '40' OR

PREV_PK = '50'.

PERFORM DYNPRO_SAPLKACB_0002 USING

PREV_BUSINESS_AREA PREV_ORDER.

ENDIF.

IF PREV_DOLLAR_AMT LT 0.

ADD: PREV_DOLLAR_AMT TO AMT_CREDIT_ADDED.

ELSE.

ADD: PREV_DOLLAR_AMT TO AMT_DEBIT_ADDED.

ENDIF.

ADD: 1 TO DETAIL_REC_CNT.

ENDFORM.

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

Dynpro for program SAPMF05A Screen 0100

FORM DYNPRO_SAPMF05A_0100 USING POST_KEY POST_ACCNT.

*----

This FORM formats SCREEN 0100

*----

This PERFORM is done once for each screen.

PERFORM BDC_DYNPRO USING 'SAPMF05A' '0100'.

This PERFORM is done as many times as there are fields to be
populated for the screen being processed.

PERFORM BDC_VALUE USING 'BKPF-BLDAT' HEADER-DOC_MDY.

PERFORM BDC_VALUE USING 'BKPF-BUDAT' HEADER-POST_MDY.

PERFORM BDC_VALUE USING 'BKPF-BLART' HEADER-DOC_TYPE.

PERFORM BDC_VALUE USING 'BKPF-BUKRS' HEADER-COMPANY_CODE.

PERFORM BDC_VALUE USING 'BKPF-MONAT' HEADER-PERIOD.

PERFORM BDC_VALUE USING 'BKPF-WAERS' HEADER-CURRENCY.

PERFORM BDC_VALUE USING 'BKPF-XBLNR' HEADER-REFERENCE_DOC.

PERFORM BDC_VALUE USING 'BKPF-BKTXT' HEADER-TEXT.

PERFORM BDC_VALUE USING 'RF05A-NEWBS' POST_KEY.

PERFORM BDC_VALUE USING 'RF05A-NEWKO' POST_ACCNT.

PERFORM BDC_VALUE USING 'RF05A-NEWUM' INFILE-SPECIAL_GL.

ENDFORM.

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

Dynpro for program SAPMF05A Screen 0300

FORM DYNPRO_SAPMF05A_0300 USING AMOUNT TEXT DUE_ON_DATE

POST_KEY POST_ACCNT SPECIAL_GL.

*----

This FORM formats SCREEN 0300

*----

This PERFORM is done once for each screen.

IF PREV_PK = '01' OR PREV_PK = '11'.

PERFORM BDC_DYNPRO USING 'SAPMF05A' '0301'.

ELSEIF PREV_PK = '09' OR

PREV_PK = '19'.

PERFORM BDC_DYNPRO USING 'SAPMF05A' '0303'.

PERFORM BDC_VALUE USING 'BSEG-ZFBDT' HEADER-DOC_MDY.

ELSE.

PERFORM BDC_DYNPRO USING 'SAPMF05A' '0300'.

ENDIF.

This PERFORM is done as many times as there are fields to be
populated for the screen being processed.

PERFORM BDC_VALUE USING 'BSEG-WRBTR' AMOUNT.

PERFORM BDC_VALUE USING 'RF05A-NEWBS' POST_KEY.

PERFORM BDC_VALUE USING 'RF05A-NEWKO' POST_ACCNT.

PERFORM BDC_VALUE USING 'RF05A-NEWUM' SPECIAL_GL.

IF TEXT NE SPACE.

PERFORM BDC_VALUE USING 'BSEG-SGTXT' TEXT.

ENDIF.

IF DUE_ON_DATE NE SPACE.

PERFORM BDC_VALUE USING 'BSEG-ZFBDT' DUE_ON_DATE.

ENDIF.

IF NO_BA_FLG = 'N'.

IF PREV_PK = '09' OR

PREV_PK = '19' OR

PREV_PK = '11' OR

PREV_PK = '01'.

PERFORM BDC_VALUE USING 'BSEG-GSBER' PREV_BUSINESS_AREA.

ENDIF.

ENDFORM.

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

Dynpro for program SAPLKACB Screen 0002

FORM DYNPRO_SAPLKACB_0002 USING BUSINESS_AREA ORDER.

*----

This FORM formats SCREEN 0002 WHICH IS A POP-UP SCREEN
THAT DOES NOT APPEAR DURING ON-LINE PROCESSING

*----

This PERFORM is done once for each screen.

PERFORM BDC_DYNPRO USING 'SAPLKACB' '0002'.

This PERFORM is done as many times as there are fields to be
populated for the screen being processed.

IF BUSINESS_AREA NE '700'.

PERFORM BDC_VALUE USING 'COBL-GSBER' BUSINESS_AREA.

ENDIF.

IF ORDER NE SPACE.

PERFORM BDC_VALUE USING 'COBL-AUFNR' ORDER.

ENDIF.

ENDFORM.

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

BDC Dynpro

FORM BDC_DYNPRO USING PGM SCRN.

*----

This FORM formats the transaction that tells the BDC which screen is
to be populated.

*----

CLEAR BDC_TAB.

MOVE: PGM TO BDC_TAB-PROGRAM,

SCRN TO BDC_TAB-DYNPRO,

BEGIN TO BDC_TAB-DYNBEGIN.

APPEND BDC_TAB.

ENDFORM.

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

BDC Value

FORM BDC_VALUE USING FIELD VAL.

*----

This FORM tells the BDC which field is to be populated and the value
to use.

*----

CLEAR BDC_TAB.

MOVE: FIELD TO BDC_TAB-FNAM,

VAL TO BDC_TAB-FVAL.

APPEND BDC_TAB.

ENDFORM.

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

FORM OPEN_BDC.

*----

This routine opens the BDC data file

*----

SY-SUBRC = 0.

CALL FUNCTION 'BDC_OPEN_GROUP'

EXPORTING

CLIENT = SY-MANDT

GROUP = GROUP_NAME

KEEP = 'X'

USER = SY-UNAME

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 NE 0.

MOVE: TRUE TO ABEND_JOB.

CASE SY-SUBRC.

WHEN 01.

PERFORM PROCESS_MSG USING '109' SY-MANDT 'BDC OPEN' ''.

WHEN 02.

PERFORM PROCESS_MSG USING '109' 'BDC OPEN' '' ''.

WHEN 03.

PERFORM PROCESS_MSG USING '111' 'BDC OPEN' '' ''.

WHEN 04.

PERFORM PROCESS_MSG USING '124' 'BDC OPEN' '' ''.

WHEN 05.

PERFORM PROCESS_MSG USING '112' 'BDC OPEN' '' ''.

WHEN 06.

PERFORM PROCESS_MSG USING '113' 'BDC OPEN' '' ''.

WHEN 07.

PERFORM PROCESS_MSG USING '114' 'BDC OPEN' '' ''.

WHEN 08.

PERFORM PROCESS_MSG USING '115' 'BDC OPEN' '' ''.

WHEN 09.

PERFORM PROCESS_MSG USING '125' 'BDC OPEN' '' ''.

WHEN 10.

PERFORM PROCESS_MSG USING '116' 'BDC OPEN' '' ''.

WHEN 11.

PERFORM PROCESS_MSG USING '126' 'BDC OPEN' '' ''.

ENDCASE.

ELSE.

MOVE: TRUE TO BDC_OPENNED,

FALSE TO NEW_BDC.

ENDIF.

ENDFORM.

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

Insert BDC data

FORM INSERT_BDCDATA.

*----

This routine inserts a scenario into the BDC batch session.
Add the actual value of the particular Transaction code relevant
to the scenario being processed for the constant TRANS_CODE.

*----

SY-SUBRC = 0.

CALL FUNCTION 'BDC_INSERT'

EXPORTING

TCODE = TRANS_CODE

TABLES

DYNPROTAB = BDC_TAB

EXCEPTIONS

INTERNAL_ERROR = 1

NOT_OPEN = 2

QUEUE_ERROR = 3

TCODE_INVALID = 4

OTHERS = 5.

IF SY-SUBRC NE 0.

MOVE: TRUE TO ABEND_JOB.

CASE SY-SUBRC.

WHEN 01.

PERFORM PROCESS_MSG USING '113' 'BDC INSERT' '' ''.

WHEN 02.

PERFORM PROCESS_MSG USING '117' 'BDC INSERT' '' ''.

WHEN 03.

PERFORM PROCESS_MSG USING '114' 'BDC INSERT' '' ''.

WHEN 04.

PERFORM PROCESS_MSG USING '118' 'BDC INSERT' '' ''.

WHEN 05.

PERFORM PROCESS_MSG USING '126' 'BDC INSERT' '' ''.

ENDCASE.

ELSE.

BDC_TRANS_CNT = BDC_TRANS_CNT + 1.

ENDIF.

Initialize table after inserting the processed BDC Transactions
for one scenario

REFRESH BDC_TAB.

ENDFORM.

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

End of Job Routine

FORM EOJ_ROUTINE.

IF BDC_OPENNED = TRUE.

PERFORM CLOSE_BDC.

IF BDC_TAB_CREATED = TRUE AND

ABEND_JOB = FALSE.

TRANSLATE SUBMIT TO UPPER CASE.

IF SUBMIT = 'X'.

PERFORM SUBMIT_BDC_TO_BATCH.

ENDIF.

IF ABEND_JOB = TRUE.

PERFORM ABEND_JOB.

PERFORM ALERT_CHECK.

ELSE.

WRITE: /1 ' End of Job Run'.

TRANSLATE IN_TRAILER-INTERFACE_ID TO UPPER CASE.

IF IN_TRAILER-INTERFACE_ID NE 'AR01'.

SELECT UNIX_NAME PRINTER CONTACT

INTO (TEMP_UNIX_NAME, TEMP_PRINTER, TEMP_CONTACT)

FROM ZMETA WHERE ID EQ IN_TRAILER-INTERFACE_ID.

ENDSELECT.

IF SY-SUBRC NE 0. SY-SUBRC = 0. ENDIF.

ENDIF.

TRANSLATE TEMP_UNIX_NAME TO LOWER CASE.

SHIFT FULL_FIL_NAME UP TO TEMP_UNIX_NAME+0(9).

SUBMIT ZUXMV WITH FILENAME EQ FULL_FIL_NAME

WITH FROMPATH EQ TEMP_UNIX_PATH

WITH TO_PATH EQ TEMP_ARC_PATH

AND RETURN.

ENDIF.

SUBMIT ZUXLP WITH FILENAME = TEMP_LOG_NAME

WITH PATH = TEMP_LOG_PATH

WITH PRINTER = TEMP_PRINTER

AND RETURN.

IF ABEND_JOB = TRUE.

IF EXECUTION = 'ONLINE'.

MESSAGE A100 WITH IN_TRAILER-INTERFACE_ID.

ENDIF.

CLOSE DATASET LOGFILE.

ENDFORM.

Close BDC data

FORM CLOSE_BDC.

*----

This routine closes the BDC batch session.

*----

SY-SUBRC = 0.

CALL FUNCTION 'BDC_CLOSE_GROUP'

EXCEPTIONS

NOT_OPEN = 1

QUEUE_ERROR = 2

OTHERS = 3.

IF SY-SUBRC NE 0.

MOVE: TRUE TO ABEND_JOB.

CASE SY-SUBRC.

WHEN 01.

PERFORM PROCESS_MSG USING '117' 'BDC CLOSE' '' ''.

WHEN 02.

PERFORM PROCESS_MSG USING '114' 'BDC CLOSE' '' ''.

WHEN 03.

PERFORM PROCESS_MSG USING '126' 'BDC CLOSE' '' ''.

ENDCASE.

ENDIF.

ENDFORM.

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

Abend Job

FORM ABEND_JOB.

*----

This form updates the Interface Date/Time Control File with a status
of 'A' to indicate that this Interface has abended. The Date/Time
stamp on the Control file will not be updated with the date/time
from the current file. The parameter FILE_OPERATION OF '3' initiates
this process. Any time Operation '3' is used with the
Date/Time Control File, the calling program must abend using an 'A'
Message. A generic abend message of 100 has been set up in the
T100 table.

*----

CALL FUNCTION 'Z_PROCESS_INTERFACE_CTL_TABLE'

EXPORTING

FILE_ID = IN_TRAILER-INTERFACE_ID

FILE_NAME = IN_TRAILER-FILE_NAME

FILE_DATE = IN_TRAILER-DATE

FILE_TIME = IN_TRAILER-TIME

FILE_OPERATION = '3'

EXCEPTIONS

DUP_FILE_ERROR = 1

FILE_ID_NOT_FOUND = 2

TABLE_NOT_UPDATED = 3

OTHERS = 4.

IF SY-SUBRC NE 0.

CASE SY-SUBRC.

WHEN 01.

PERFORM PROCESS_MSG USING '127' IN_TRAILER-INTERFACE_ID

IN_TRAILER-FILE_NAME 'OPERATION 3'.

WHEN 02.

PERFORM PROCESS_MSG USING '128' IN_TRAILER-INTERFACE_ID

IN_TRAILER-FILE_NAME 'OPERATION 3'.

WHEN 03.

PERFORM PROCESS_MSG USING '129' 'ZTAG' 'OPERATION 3' ''.

WHEN 04.

PERFORM PROCESS_MSG USING '126' 'OPERATION 3' '' ''.

ENDCASE.

ENDIF.

PERFORM PROCESS_MSG USING '100' IN_TRAILER-INTERFACE_ID '' ''.

ENDFORM.

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

Submit BDC to Batch

FORM SUBMIT_BDC_TO_BATCH.

*----

This FORM submits the completed BDC Table to Batch to be processed
for all the transactions processed from the Interface input file.

*----

SUBMIT RSBDCSUB WITH MAPPE EQ GROUP_NAME AND RETURN.

ENDFORM.

INCLUDE ZI000002.

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

Hope that helps.

Best Regards,

Susmitha

Lakshmant1 · ‎05-20-2006

Hi Sayantan,

It is possible to create with BDC but you should take care lot of different scenarios as the fields in the Accounts document vary depending on the Field Status Group.

If it is only for single document type BDC is OK but for multiple document type with differnt scenarios it is always better to go with BAPI's. If the requirement is an Conversion then go for Direct Input program.

You can try these BAPI's

BAPI_ACC_DOCUMENT_POST

BAPI_ACC_BILLING_POST

Hope this helps.

Thanks

Lakshman.

Former Member · ‎10-13-2006

URGENT

i need sample code for BDC of F-02. any quick help.