37 lines
2.8 KiB
COBOL
37 lines
2.8 KiB
COBOL
00001 ***** 09/11/14
|
|
00002 * DTSIXAC5
|
|
00003 * EFTIFAC5 ACH DISHONORED CHECK FILE LV001
|
|
00004 * BATCH HEADER RECORD DESCRIPTION DTSIXAC5
|
|
00005 * DTSIXAC5
|
|
00006 * THE BANK SENDS A FILE OF ELECTRONIC PAYMENTS THAT WERE DTSIXAC5
|
|
00007 * DISHONORED TO DOES EVERY DAY. DOES BUILDS NO GOOD DTSIXAC5
|
|
00008 * CHECK PAYMENT REVERSAL TRANSACTIONS FROM THESE RECORDS DTSIXAC5
|
|
00009 * THAT ARE INPUT TO THE DAILY ACCOUNTING UPDATE. DTSIXAC5
|
|
00010 * DTSIXAC5
|
|
00011 * THERE ARE 7 RECORD TYPES IN THIS FILE. DTSIXAC5
|
|
00012 * DTSIXAC5
|
|
00013 * THIS COPY BOOK CONTAINS THE RECORD DESCRIPTION FOR THE DTSIXAC5
|
|
00014 * BATCH HEADER RECORD. DTSIXAC5
|
|
00015 * DTSIXAC5
|
|
00016 ***** DTSIXAC5
|
|
00017 10 FAC5-HEADER-REC. DTSIXAC5
|
|
00018 15 FAC5-TYPE PIC X(01). DTSIXAC5
|
|
00019 88 FAC5-TYPE-HEADER-88 VALUE '1'. DTSIXAC5
|
|
00020 88 FAC5-TYPE-CMPNY-BTCH-HDR-88 VALUE '5'. DTSIXAC5
|
|
00021 88 FAC5-TYPE-ENTRY-DETAIL-88 VALUE '6'. DTSIXAC5
|
|
00022 88 FAC5-TYPE-ADDENDA-88 VALUE '7'. DTSIXAC5
|
|
00023 88 FAC5-TYPE-TRAILER-88 VALUE '9'. DTSIXAC5
|
|
00024 DTSIXAC5
|
|
00025 15 FAC5-SERVICE-CLASS-CD PIC X(03). DTSIXAC5
|
|
00026 15 FAC5-COMPANY-NAME PIC X(16). DTSIXAC5
|
|
00027 15 FAC5-COMPANY-DATA PIC X(20). DTSIXAC5
|
|
00028 15 FAC5-COMPANY-ID PIC X(10). DTSIXAC5
|
|
00029 15 FAC5-STD-ENTRY-CLASS-CD PIC X(03). DTSIXAC5
|
|
00030 15 FAC5-COMPANY-ENTRY-DESC PIC X(10). DTSIXAC5
|
|
00031 15 FAC5-COMPANY-DESC-DATE PIC X(06). DTSIXAC5
|
|
00032 15 FAC5-EFF-ENTRY-DATE PIC X(06). DTSIXAC5
|
|
00033 15 FAC5-JUL-SETTLMNT-DATE PIC X(03). DTSIXAC5
|
|
00034 15 FAC5-ORIG-STATUS-CD PIC X(01). DTSIXAC5
|
|
00035 15 FAC5-ORIG-DFI PIC X(08). DTSIXAC5
|
|
00036 15 FAC5-BATCH-NO PIC X(07). DTSIXAC5
|