DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
29
Copybook/DTSIXACH.cpy
Normal file
29
Copybook/DTSIXACH.cpy
Normal file
@ -0,0 +1,29 @@
|
||||
00001 ***** 04/16/15
|
||||
00002 * DTSIXACH
|
||||
00003 * EFTIFACH ACH DISHONORED CHECK FILE LV002
|
||||
00004 * SKELETAL RECORD DESCRIPTION DTSIXACH
|
||||
00005 * DTSIXACH
|
||||
00006 * THE BANK SENDS A FILE OF ELECTRONIC PAYMENTS THAT WERE DTSIXACH
|
||||
00007 * DISHONORED TO DOES EVERY DAY. DOES BUILDS NO GOOD DTSIXACH
|
||||
00008 * CHECK PAYMENT REVERSAL TRANSACTIONS FROM THESE RECORDS DTSIXACH
|
||||
00009 * THAT ARE INPUT TO THE DAILY ACCOUNTING UPDATE. DTSIXACH
|
||||
00010 * DTSIXACH
|
||||
00011 * THERE ARE 7 RECORD TYPES IN THIS FILE. DTSIXACH
|
||||
00012 * DTSIXACH
|
||||
00013 * THIS COPY BOOK CONTAINS THE RECORD DESCRIPTION FOR THE DTSIXACH
|
||||
00014 * SKELETAL RECORD THAT CAN CONTAIN ANY OF THESE RECORD DTSIXACH
|
||||
00015 * TYPES. THE IMPORT PROCESS READS THE INPUT DATA INTO THIS DTSIXACH
|
||||
00016 * RECORD, AND THEN MOVES IT TO THE APPROPRIATE COPY BOOK DTSIXACH
|
||||
00017 * BASED ON THE VALUE IN THE FIRST FIELD (RECORD TYPE CODE). DTSIXACH
|
||||
00018 * DTSIXACH
|
||||
00019 ***** DTSIXACH
|
||||
00020 10 FACH-SKELETAL-REC. DTSIXACH
|
||||
00021 15 FACH-TYPE PIC X(01). DTSIXACH
|
||||
00022 88 FACH-TYPE-HEADER-88 VALUE '1'. DTSIXACH
|
||||
00023 88 FACH-TYPE-CMPNY-BTCH-HDR-88 VALUE '5'. DTSIXACH
|
||||
00024 88 FACH-TYPE-ENTRY-DETAIL-88 VALUE '6'. DTSIXACH
|
||||
00025 88 FACH-TYPE-ADDENDA-88 VALUE '7'. DTSIXACH
|
||||
00026 88 FACH-TYPE-CMPNY-BTCH-SMY-88 VALUE '8'. CL**2
|
||||
00027 88 FACH-TYPE-TRAILER-88 VALUE '9'. DTSIXACH
|
||||
00028 DTSIXACH
|
||||
00029 15 FACH-FILLER PIC X(93). DTSIXACH
|
||||
Reference in New Issue
Block a user