30 lines
2.3 KiB
COBOL
30 lines
2.3 KiB
COBOL
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
|