giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
Copybook/EFTIFAC6.cpy Normal file
View File

@ -0,0 +1,41 @@
00001 ***** 09/15/03
00002 * EFTIFAC6
00003 * EFTIFAC6 ACH DISHONORED CHECK FILE LV050
00004 * ENTRY DETAIL RECORD DESCRIPTION CL*43
00005 * CL*17
00006 * THE BANK SENDS A FILE OF ELECTRONIC PAYMENTS THAT WERE CL*39
00007 * DISHONORED TO DOES EVERY DAY. DOES BUILDS NO GOOD CL*39
00008 * CHECK PAYMENT REVERSAL TRANSACTIONS FROM THESE RECORDS CL*39
00009 * THAT ARE INPUT TO THE DAILY ACCOUNTING UPDATE. CL*39
00010 * CL*39
00011 * THERE ARE 7 RECORD TYPES IN THIS FILE. CL*39
00012 * CL*39
00013 * THIS COPY BOOK CONTAINS THE RECORD DESCRIPTION FOR THE CL*17
00014 * ENTRY DETAIL RECORD. THIS RECORD CONTAINS THE CL*43
00015 * INFORMATION THAT IDENTIFIES DISHONORED CHECKS. THERE CL*43
00016 * ARE TWO VERSIONS OF THIS RECORD TYPE - THEY DIFFER IN CL*43
00017 * THE POSITIONS 55 - 79. SINCE THESE FIELDS ARE NOT CL*44
00018 * NEEDED FOR OUR PURPOSES, THEY ARE DEFINED AS FILLER CL*43
00019 * IN THE RECORD LAYOUT, SO BOTH SORTS OF TYPE 6 RECORD CL*43
00020 * CAN USE THIS COPY BOOK. CL*43
00021 * CL*43
00022 ***** EFTIFAC6
00023 10 FAC6-HEADER-REC. CL*43
00024 15 FAC6-TYPE PIC X(01). CL*43
00025 88 FAC6-TYPE-HEADER-88 VALUE '1'. CL*43
00026 88 FAC6-TYPE-CMPNY-BTCH-HDR-88 VALUE '5'. CL*43
00027 88 FAC6-TYPE-ENTRY-DETAIL-88 VALUE '6'. CL*43
00028 88 FAC6-TYPE-ADDENDA-88 VALUE '7'. CL*43
00029 88 FAC6-TYPE-TRAILER-88 VALUE '9'. CL*43
00030 CL*30
00031 15 FAC6-TRANS-CD PIC X(02). CL*43
00032 15 FAC6-RECV-BANK-ID PIC X(08). CL*43
00033 15 FAC6-CHECK-DIGIT PIC X(01). CL*43
00034 15 FAC6-BANK-ACCT-NO PIC X(17). CL*43
00035 15 FAC6-AMOUNT PIC 9(08)V99. CL*47
00036 15 FAC6-DOES-FILLER PIC X(02). CL*50
00037 15 FAC6-DOES-TRACE-NO PIC X(13). CL*50
00038 15 FAC6-EMP-NAME PIC X(22). CL*48
00039 15 FAC6-USER-DATA PIC X(02). CL*48
00040 15 FAC6-REC-INDICATOR PIC X(01). CL*48
00041 15 FAC6-BANK-TRACE-NO PIC 9(15). CL*49