DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
36
Copybook/EFTIFAC1.cpy
Normal file
36
Copybook/EFTIFAC1.cpy
Normal file
@ -0,0 +1,36 @@
|
||||
00001 ***** 04/24/03
|
||||
00002 * EFTIFAC1
|
||||
00003 * EFTIFAC1 ACH DISHONORED CHECK FILE LV042
|
||||
00004 * HEADER RECORD DESCRIPTION CL*40
|
||||
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 * HEADER RECORD. CL*40
|
||||
00015 * CL*23
|
||||
00016 ***** EFTIFAC1
|
||||
00017 10 FAC1-HEADER-REC. CL*40
|
||||
00018 15 FAC1-TYPE PIC X(01). CL*40
|
||||
00019 88 FAC1-TYPE-HEADER-88 VALUE '1'. CL*40
|
||||
00020 88 FAC1-TYPE-CMPNY-BTCH-HDR-88 VALUE '5'. CL*40
|
||||
00021 88 FAC1-TYPE-ENTRY-DETAIL-88 VALUE '6'. CL*40
|
||||
00022 88 FAC1-TYPE-ADDENDA-88 VALUE '7'. CL*40
|
||||
00023 88 FAC1-TYPE-TRAILER-88 VALUE '9'. CL*40
|
||||
00024 CL*30
|
||||
00025 15 FAC1-PRIORITY-CD PIC X(02). CL*42
|
||||
00026 15 FAC1-IMMEDIATE-DEST PIC X(10). CL*42
|
||||
00027 15 FAC1-IMMEDIATE-ORIG PIC X(10). CL*42
|
||||
00028 15 FAC1-FILE-CREATE-DATE PIC X(06). CL*42
|
||||
00029 15 FAC1-FILE-CREATE-TIME PIC X(04). CL*42
|
||||
00030 15 FAC1-FILE-ID-MOD PIC X(01). CL*42
|
||||
00031 15 FAC1-RECORD-SIZE PIC X(03). CL*42
|
||||
00032 15 FAC1-BLOCK-FACTOR PIC X(02). CL*42
|
||||
00033 15 FAC1-FORMAT-CD PIC X(01). CL*42
|
||||
00034 15 FAC1-IMMEDIATE-DEST-NAME PIC X(23). CL*42
|
||||
00035 15 FAC1-IMMEDIATE-ORIG-NAME PIC X(23). CL*42
|
||||
00036 15 FAC1-REFERENCE-CD PIC X(08). CL*42
|
||||
Reference in New Issue
Block a user