DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
40
Copybook/DTSIXAC7.cpy
Normal file
40
Copybook/DTSIXAC7.cpy
Normal file
@ -0,0 +1,40 @@
|
||||
00001 ***** 12/30/16
|
||||
00002 * DTSIXAC7
|
||||
00003 * EFTIFAC7 ACH DISHONORED CHECK FILE LV006
|
||||
00004 * ENTRY DETAIL RECORD DESCRIPTION DTSIXAC7
|
||||
00005 * DTSIXAC7
|
||||
00006 * THE BANK SENDS A FILE OF ELECTRONIC PAYMENTS THAT WERE DTSIXAC7
|
||||
00007 * DISHONORED TO DOES EVERY DAY. DOES BUILDS NO GOOD DTSIXAC7
|
||||
00008 * CHECK PAYMENT REVERSAL TRANSACTIONS FROM THESE RECORDS DTSIXAC7
|
||||
00009 * THAT ARE INPUT TO THE DAILY ACCOUNTING UPDATE. DTSIXAC7
|
||||
00010 * DTSIXAC7
|
||||
00011 * THERE ARE 7 RECORD TYPES IN THIS FILE. DTSIXAC7
|
||||
00012 * DTSIXAC7
|
||||
00013 * THIS COPY BOOK CONTAINS THE RECORD DESCRIPTION FOR THE DTSIXAC7
|
||||
00014 * ENTRY DETAIL RECORD. THIS RECORD CONTAINS THE DTSIXAC7
|
||||
00015 * INFORMATION THAT IDENTIFIES DISHONORED CHECKS. THERE DTSIXAC7
|
||||
00016 * ARE TWO VERSIONS OF THIS RECORD TYPE - THEY DIFFER IN DTSIXAC7
|
||||
00017 * THE POSITIONS 55 - 79. SINCE THESE FIELDS ARE NOT DTSIXAC7
|
||||
00018 * NEEDED FOR OUR PURPOSES, THEY ARE DEFINED AS FILLER DTSIXAC7
|
||||
00019 * IN THE RECORD LAYOUT, SO BOTH SORTS OF TYPE 6 RECORD DTSIXAC7
|
||||
00020 * CAN USE THIS COPY BOOK. DTSIXAC7
|
||||
00021 * DTSIXAC7
|
||||
00022 ***** DTSIXAC7
|
||||
00023 10 FAC7-HEADER-REC. CL**2
|
||||
00024 15 FAC7-TYPE PIC X(01). CL**2
|
||||
00025 88 FAC7-TYPE-HEADER-88 VALUE '1'. CL**2
|
||||
00026 88 FAC7-TYPE-CMPNY-BTCH-HDR-88 VALUE '5'. CL**2
|
||||
00027 88 FAC7-TYPE-ENTRY-DETAIL-88 VALUE '6'. CL**2
|
||||
00028 88 FAC7-TYPE-ADDENDA-88 VALUE '7'. CL**2
|
||||
00029 88 FAC7-TYPE-TRAILER-88 VALUE '9'. CL**2
|
||||
00030 DTSIXAC7
|
||||
00031 15 FAC7-RTN-CD PIC X(05). CL**4
|
||||
00032 15 XAC7-RTN-CD REDEFINES FAC7-RTN-CD. CL**6
|
||||
00033 20 FAC7-TRANS-CD PIC X(02). CL**6
|
||||
00034 20 FAC7-RETURN-CODE PIC X(03). CL**6
|
||||
00035 15 FAC7-TRACE-NUMBER PIC X(15). CL**2
|
||||
00036 15 FAC7-DATE-OF-DEATH PIC X(06). CL**2
|
||||
00037 15 FAC7-TRANSIT-NO PIC X(08). CL**2
|
||||
00038 15 FAC7-ADDENDA-CODE PIC X(02). CL**2
|
||||
00039 15 FAC7-ADDENDA-DESC PIC X(42). CL**2
|
||||
00040 15 FAC7-BANK-TRACE-NO PIC 9(15). CL**2
|
||||
Reference in New Issue
Block a user