Code required for this BDC fb02.

Question

Hi All,
I am sending you the Functional and tech flow design. Can any one write the code as per the below technical flow and send me the code immediately. The time is very less. Further queries give me reply.Points will be definetely rewarded
Functional over view:
This document covers the check and ACH which will be generated through F110 (Automatic Payment Program). A few hours after transmitting checks (the EDI 820’s and 831), Wolseley receive an EDI 824 summary document telling if the transmitted file is ok.  That is, the count and total amount of all the checks matches the count and total in the control totals EDI 831 file.  Wolseley will also receive an EDI 824 detail report of any rejected checks (date is too old, dollar amount is negative, bank routing number is wrong, etc…).  The next morning, Wolseley receives an EDI 821 confirmation that the checks were processed and mailed.  The EDI 821 is a detail document listing all checks that were processed ok.  Any check numbers missing from this file are a result of problems with printing or mailing the checks (the style ID is bad, etc…).
Technical Flow Description
1.     Declare internal tables similar to structures EDI 821 and EDI 824.
2.     Populate these internal tables with flat file data using read dataset or gui_upload. (It depends on type of file i.e sequential file or presentation file)
3.     Get the document number (PAYR-VBLNR), Company code (PAYR-ZBUKR) and Fiscal year (PAYR-GJAHR) from table PAYR into t_tab1 based on check number in the flat file.
4.     Get the number of line items (BSEG-BUZEI) and posting key (BSEG-BSCHL) for accounting document based on internal table t_tab1.
5.     Take the posting key as 25.
6.     Do the recording for Transaction FB02.
7.     If flat file has Record name 'BANK_NOTES' IF CHECK_NUMBER of CHECK_ADVICE of the flat file = BSEG-CHECT then insert NOTES of BANK_NOTES of Flat file into BSEG-SGTXT
8.     If flat file has Record name 'BANK_NOTES' IF CHECK_NUMBER of CHECK_ADVICE of the flat file = BSEG-CHECT. Then update SAP field BSEG-XREF2 .
9.     When Flat file check Number = PAYR-CHECT then Insert Flat file RECEIPT_DATE into SAP field BSEG-XREF1. Then update SAP fields BSEG-XREF1, BSEG-XREF2 and BSEG-SGTXT using BDC call transaction ‘FB02’.

Answer 1

Hi ,
Can any one send me atleast the sample code for my Spec. Its very urgent. Please check my spec and tell me whether you can give me the code.
Functional over view:
This document covers the check and ACH which will be generated through F110 (Automatic Payment Program). A few hours after transmitting checks (the EDI 820’s and 831), Wolseley receive an EDI 824 summary document telling if the transmitted file is ok. That is, the count and total amount of all the checks matches the count and total in the control totals EDI 831 file. Wolseley will also receive an EDI 824 detail report of any rejected checks (date is too old, dollar amount is negative, bank routing number is wrong, etc…). The next morning, Wolseley receives an EDI 821 confirmation that the checks were processed and mailed. The EDI 821 is a detail document listing all checks that were processed ok. Any check numbers missing from this file are a result of problems with printing or mailing the checks (the style ID is bad, etc…).
Technical Flow Description
1. Declare internal tables similar to structures EDI 821 and EDI 824.
2. Populate these internal tables with flat file data using read dataset or gui_upload. (It depends on type of file i.e sequential file or presentation file)
3. Get the document number (PAYR-VBLNR), Company code (PAYR-ZBUKR) and Fiscal year (PAYR-GJAHR) from table PAYR into t_tab1 based on check number in the flat file.
4. Get the number of line items (BSEG-BUZEI) and posting key (BSEG-BSCHL) for accounting document based on internal table t_tab1.
5. Take the posting key as 25.
6. Do the recording for Transaction FB02.
7. If flat file has Record name 'BANK_NOTES' IF CHECK_NUMBER of CHECK_ADVICE of the flat file = BSEG-CHECT then insert NOTES of BANK_NOTES of Flat file into BSEG-SGTXT
8. If flat file has Record name 'BANK_NOTES' IF CHECK_NUMBER of CHECK_ADVICE of the flat file = BSEG-CHECT. Then update SAP field BSEG-XREF2 .
9. When Flat file check Number = PAYR-CHECT then Insert Flat file RECEIPT_DATE into SAP field BSEG-XREF1. Then update SAP fields BSEG-XREF1, BSEG-XREF2 and BSEG-SGTXT using BDC call transaction ‘FB02’.
DATA : BEGIN OF T_ED824 OCCURS 1,
       PAY_ADVICE_HDR(30)  TYPE C,
       CUST_REF(30)        TYPE C,
       PROCESSED_DATE(10)  TYPE C,
       PROCESSED_TIME(5)   TYPE C,
       PAYMENT_ADVICE(30)  TYPE C,
       PAYADVICE_TYPE(3)   TYPE C,
       PAYADVICE_CODE(3)   TYPE C,
       PAYEDBACH(15)       TYPE C,
       TRACE_NUMBER(30)    TYPE C,
       BATCH_AMOUNT(18)    TYPE C,
       ACCEPT_AMOUNT(18)   TYPE C,
       BANK_AMOUNT(18)     TYPE C,
       REJECT_AMOUNT(18)   TYPE C,
       BATCH_COUNT(15)     TYPE C,
       ACCEPT_COUNT(15)    TYPE C,
       BANK_COUNT(15)      TYPE C,
       REJECT_COUNT(15)    TYPE C,
       ADVICE_DESC(30)     TYPE C,
       BANK_NOTES(30)      TYPE C,
       B_TYPE(3)           TYPE C,
       B_NOTES(60)         TYPE C,
       CHECK_ADVICE(30)    TYPE C,
       CHKADVICE_TYPE(3)   TYPE C,
       CHKADVICE_CODE(10)  TYPE C,
       CHECK_NUMBER(10)    TYPE C,
       CHECK_NOTES(30)     TYPE C,
       C_TYPE(3)           TYPE C,
       C_NOTES(60)         TYPE C,
       END OF T_ED824.
DATA : BEGIN OF T_ED821 OCCURS 1,
       PAY_REPORT_HDR(30) TYPE C,
       REPORT_TYPE(5)     TYPE C,
       RECEIPT_DATE(10)   TYPE C,
       CURRENT_DATE(10)   TYPE C,
       PAY_REPORT(30)     TYPE C,
       CUST_ACCT_NUM(35)  TYPE C,
       ISSUE_DATE(10)     TYPE C,
       TRANSAC_AMOUNT     TYPE C,
       CHECK_NUMBER(20)   TYPE C,
       PAYEE_NAME(50)     TYPE C,
       FINANCIAL_CODE(30) TYPE C,
       CHECK_CODE(3)      TYPE C,
       INST_NAME(35)      TYPE C,
END OF T_ED821.
Points will be definetely rewarded