47 lines
3.6 KiB
COBOL
47 lines
3.6 KiB
COBOL
00001 ***** 04/29/16
|
|
00002 * DTSIXAC6
|
|
00003 * EFTIFAC6 ACH DISHONORED CHECK FILE LV006
|
|
00004 * ENTRY DETAIL RECORD DESCRIPTION DTSIXAC6
|
|
00005 * DTSIXAC6
|
|
00006 * THE BANK SENDS A FILE OF ELECTRONIC PAYMENTS THAT WERE DTSIXAC6
|
|
00007 * DISHONORED TO DOES EVERY DAY. DOES BUILDS NO GOOD DTSIXAC6
|
|
00008 * CHECK PAYMENT REVERSAL TRANSACTIONS FROM THESE RECORDS DTSIXAC6
|
|
00009 * THAT ARE INPUT TO THE DAILY ACCOUNTING UPDATE. DTSIXAC6
|
|
00010 * DTSIXAC6
|
|
00011 * THERE ARE 7 RECORD TYPES IN THIS FILE. DTSIXAC6
|
|
00012 * DTSIXAC6
|
|
00013 * THIS COPY BOOK CONTAINS THE RECORD DESCRIPTION FOR THE DTSIXAC6
|
|
00014 * ENTRY DETAIL RECORD. THIS RECORD CONTAINS THE DTSIXAC6
|
|
00015 * INFORMATION THAT IDENTIFIES DISHONORED CHECKS. THERE DTSIXAC6
|
|
00016 * ARE TWO VERSIONS OF THIS RECORD TYPE - THEY DIFFER IN DTSIXAC6
|
|
00017 * THE POSITIONS 55 - 79. SINCE THESE FIELDS ARE NOT DTSIXAC6
|
|
00018 * NEEDED FOR OUR PURPOSES, THEY ARE DEFINED AS FILLER DTSIXAC6
|
|
00019 * IN THE RECORD LAYOUT, SO BOTH SORTS OF TYPE 6 RECORD DTSIXAC6
|
|
00020 * CAN USE THIS COPY BOOK. DTSIXAC6
|
|
00021 * DTSIXAC6
|
|
00022 ***** DTSIXAC6
|
|
00023 10 FAC6-HEADER-REC. DTSIXAC6
|
|
00024 15 FAC6-TYPE PIC X(01). DTSIXAC6
|
|
00025 88 FAC6-TYPE-HEADER-88 VALUE '1'. DTSIXAC6
|
|
00026 88 FAC6-TYPE-CMPNY-BTCH-HDR-88 VALUE '5'. DTSIXAC6
|
|
00027 88 FAC6-TYPE-ENTRY-DETAIL-88 VALUE '6'. DTSIXAC6
|
|
00028 88 FAC6-TYPE-ADDENDA-88 VALUE '7'. DTSIXAC6
|
|
00029 88 FAC6-TYPE-TRAILER-88 VALUE '9'. DTSIXAC6
|
|
00030 DTSIXAC6
|
|
00031 15 FAC6-TRANS-CD PIC X(02). DTSIXAC6
|
|
00032 15 FAC6-RECV-BANK-ID PIC X(08). DTSIXAC6
|
|
00033 15 FAC6-CHECK-DIGIT PIC X(01). DTSIXAC6
|
|
00034 15 FAC6-BANK-ACCT-NO PIC X(17). DTSIXAC6
|
|
00035 15 FAC6-AMOUNT PIC 9(08)V99. DTSIXAC6
|
|
00036 15 FAC6-DOES-TRACE-NO PIC X(06). CL**4
|
|
00037 15 FILLER PIC X(09). CL**4
|
|
00038 15 FAC6-DUTAS-KEY. CL**2
|
|
00039 20 FILLER PIC X(12). CL**4
|
|
00040 20 FAC6-DUTAS-EMP-NO. CL**5
|
|
00041 25 FAC6-DUTAS-EMP-NOA PIC X(02). CL**6
|
|
00042 25 FAC6-DUTAS-EMP-NOB PIC X(04). CL**6
|
|
00043 20 FAC6-DUTAS-EMP-NAME PIC X(04). CL**2
|
|
00044 15 FAC6-FILLER PIC X(02). CL**2
|
|
00045 15 FAC6-REC-INDICATOR PIC X(01). DTSIXAC6
|
|
00046 15 FAC6-BANK-TRACE-NO PIC 9(15). DTSIXAC6
|