32 lines
2.5 KiB
COBOL
32 lines
2.5 KiB
COBOL
00001 ***** 09/11/14
|
|
00002 * DTSIXAC9
|
|
00003 * EFTIFAC9 ACH DISHONORED CHECK FILE LV001
|
|
00004 * TRAILER RECORD DESCRIPTION DTSIXAC9
|
|
00005 * DTSIXAC9
|
|
00006 * THE BANK SENDS A FILE OF ELECTRONIC PAYMENTS THAT WERE DTSIXAC9
|
|
00007 * DISHONORED TO DOES EVERY DAY. DOES BUILDS NO GOOD DTSIXAC9
|
|
00008 * CHECK PAYMENT REVERSAL TRANSACTIONS FROM THESE RECORDS DTSIXAC9
|
|
00009 * THAT ARE INPUT TO THE DAILY ACCOUNTING UPDATE. DTSIXAC9
|
|
00010 * DTSIXAC9
|
|
00011 * THERE ARE 7 RECORD TYPES IN THIS FILE. DTSIXAC9
|
|
00012 * DTSIXAC9
|
|
00013 * THIS COPY BOOK CONTAINS THE RECORD DESCRIPTION FOR THE DTSIXAC9
|
|
00014 * TRAILER RECORD. DTSIXAC9
|
|
00015 * DTSIXAC9
|
|
00016 ***** DTSIXAC9
|
|
00017 10 FAC9-TRAILER-REC. DTSIXAC9
|
|
00018 15 FAC9-TYPE PIC X(01). DTSIXAC9
|
|
00019 88 FAC9-TYPE-HEADER-88 VALUE '1'. DTSIXAC9
|
|
00020 88 FAC9-TYPE-CMPNY-BTCH-HDR-88 VALUE '5'. DTSIXAC9
|
|
00021 88 FAC9-TYPE-ENTRY-DETAIL-88 VALUE '6'. DTSIXAC9
|
|
00022 88 FAC9-TYPE-ADDENDA-88 VALUE '7'. DTSIXAC9
|
|
00023 88 FAC9-TYPE-TRAILER-88 VALUE '9'. DTSIXAC9
|
|
00024 DTSIXAC9
|
|
00025 15 FAC9-BATCH-CNT PIC 9(06). DTSIXAC9
|
|
00026 15 FAC9-BLOCK-CNT PIC 9(06). DTSIXAC9
|
|
00027 15 FAC9-ENTRY-CNT PIC 9(08). DTSIXAC9
|
|
00028 15 FAC9-ENTRY-HASH PIC 9(10). DTSIXAC9
|
|
00029 15 FAC9-TOT-DEBIT-AMT PIC 9(12). DTSIXAC9
|
|
00030 15 FAC9-TOT-CREDIT-AMT PIC 9(12). DTSIXAC9
|
|
00031 15 FAC9-FILLER PIC X(39). DTSIXAC9
|