Hi Despina,
Please find below code for sample of EB.ACCOUNTING.
RAISE.ENTRY:
*-----------*
* Form the stmt entry array
LOCKER.ENTRY<AC.STE.ACCOUNT.NUMBER> =
ACCOUNT.ID LOCKER.ENTRY<
AC.STE.CUSTOMER.ID> =
CUSTOMER.ID
LOCKER.ENTRY<AC.STE.PRODUCT.CATEGORY> = ACCT.CATEGORY
LOCKER.ENTRY<AC.STE.CURRENCY.MARKET> = CCY.MKT
LOCKER.ENTRY<AC.STE.COMPANY.CODE> = ID.COMPANY
LOCKER.ENTRY<
AC.STE.SYSTEM.ID> = 'FT'
LOCKER.ENTRY<AC.STE.TRANS.REFERENCE> = TRANS.REF
LOCKER.ENTRY<AC.STE.BOOKING.DATE> = BOOK.DATE
LOCKER.ENTRY<AC.STE.REVERSAL.MARKER> = ''
LOCKER.ENTRY<AC.STE.POSITION.TYPE> = ACCT.POSITION.TYPE
LOCKER.ENTRY<AC.STE.PL.CATEGORY> = ''
LOCKER.ENTRY<AC.STE.DEPARTMENT.CODE> = DEPT.CODE
LOCKER.ENTRY<AC.STE.OUR.REFERENCE> = TRANS.REF
LOCKER.ENTRY<AC.STE.THEIR.REFERENCE> = TRANS.REF
LOCKER.ENTRY<AC.STE.VALUE.DATE> = BOOK.DATE
LOCKER.ENTRY<AC.STE.EXPOSURE.DATE> = BOOK.DATE
LOCKER.ENTRY<AC.STE.CURRENCY> = ACCT.CURR
LOCKER.ENTRY<AC.STE.AMOUNT.LCY> = -1 * AMOUNT.LCY
IF AMOUNT.FCY THEN
LOCKER.ENTRY<AC.STE.AMOUNT.FCY> = -1 * AMOUNT.FCY
END
LOCKER.ENTRY<AC.STE.ACCOUNT.OFFICER> = ACCT.OFFICER
LOCKER.ENTRY<AC.STE.TRANSACTION.CODE> = DR.TRANS.CODE
LOCKER.ENTRY = LOWER(LOCKER.ENTRY)
TEMP.ENTRY<-1> = LOCKER.ENTRY
* Form the Categ entry array
LOCKER.ENTRY = ''
LOCKER.ENTRY<AC.STE.CURRENCY.MARKET> = CCY.MKT
LOCKER.ENTRY<AC.STE.COMPANY.CODE> = ID.COMPANY
LOCKER.ENTRY<
AC.STE.SYSTEM.ID> = 'FT'
LOCKER.ENTRY<AC.STE.TRANS.REFERENCE> = TRANS.REF
LOCKER.ENTRY<AC.STE.BOOKING.DATE> = BOOK.DATE
LOCKER.ENTRY<AC.STE.REVERSAL.MARKER> = ''
LOCKER.ENTRY<AC.STE.POSITION.TYPE> = ACCT.POSITION.TYPE
LOCKER.ENTRY<
AC.STE.CUSTOMER.ID> =
CUSTOMER.ID LOCKER.ENTRY<AC.STE.PL.CATEGORY> = PL.CATEG
LOCKER.ENTRY<AC.STE.ACCOUNT.OFFICER> = ACCT.OFFICER
LOCKER.ENTRY<AC.STE.PRODUCT.CATEGORY> = ACCT.CATEGORY
LOCKER.ENTRY<AC.STE.DEPARTMENT.CODE> = DEPT.CODE
LOCKER.ENTRY<AC.STE.OUR.REFERENCE> = TRANS.REF
LOCKER.ENTRY<AC.STE.THEIR.REFERENCE> = TRANS.REF
LOCKER.ENTRY<AC.STE.VALUE.DATE> = BOOK.DATE
LOCKER.ENTRY<AC.STE.EXPOSURE.DATE> = BOOK.DATE
LOCKER.ENTRY<AC.STE.CURRENCY> = LCCY
LOCKER.ENTRY<AC.STE.AMOUNT.LCY> = AMOUNT.LCY
IF AMOUNT.FCY THEN
LOCKER.ENTRY<AC.STE.AMOUNT.FCY> = AMOUNT.FCY
END
LOCKER.ENTRY<AC.STE.TRANSACTION.CODE> = CR.TRANS.CODE
LOCKER.ENTRY = LOWER(LOCKER.ENTRY)
TEMP.ENTRY<-1> = LOCKER.ENTRY
LOCKER.ENTRY = ''
LOCKER.ENTRY = TEMP.ENTRY
CALL EB.ACCOUNTING('EB',"SAO",LOCKER.ENTRY,'0')
RETURN
REVERSE.ORIGINAL.ENTRIES:
*-----------------------*
FT.TAPES.STMT.NO = R.TELLER<
TT.TE.STMT.NO>
V = FT.AUDIT.DATE.TIME
APPLICATION = "FUNDS.TRANSFER"
R.NEW(FT.STMT.NOS) =
FT.TAPES.STMT.NO CALL EB.ACCOUNTING('FT','REV',"",'')
CALL EB.ACCOUNTING('FT','AUT',"",'')
RETURN
The argument descriptions for EB.ACCOUNTING is been given below for your feature reference, in case if you want to use it for any other developments.
EB.ACCOUNTING(PGM, TYPE, ENTRIES, FORWARD)
*
*************************************************************************
*
*** <region name= Modification log>
***
* Application interface routine to the accounting system. Invokes the
* routines to validate & post entries, determines the suspense categories
* for value dated transactions (value dated accounting) and
* maintains currency positions.
*
* Arguments
* ---------
* PGM Calling application either product, FT, or routine
* name eg DATA.CAPTURE.
*
* TYPE Dynamic array, where first field is action type,
* second field is optional to say "STORE.OVERRIDES"
* and is used only in FWD.ACCOUNTING, and the third
* field which is also optional says "UPDATE.ACTIVITY"
* which will update the ACCT.ACTIVITY file and is only
* used in the EOD process.
*
* Action Type can be:
*
* CHG Change previous entries
* DEL Delete previous entries
* VAL Input entries
* VALAUT Input & authories entries
* REV Reverse authorised entries
* SAO Automatically overridden when an override conditions
* SNP Return control to calling application when an override
* SSS Customer account entries suspensed when an override
* For More details for SAO,SSS & SNP see EOD.ACCOUNTING routine.
* RSAO Reversal - store overrides
* SNP Suspense on override
* ADD Input entries
* AUT Authorise entries
* ADD.AUT Input & authorise entries
*
* ENTRIES Dynamic array of entries.
* Format as per STMT.ENTRY but separators are lowered
*
* FORWARD 1/0 flag to indicate entries a FWD.ACCOUNTING entries
* "CONSOL" indicates that only CONSOL.ENT.TODAY records
* are to be raised
Regards,
Mohan