00001 *****                                                             04/24/03
00002 *                                                                 EFTIFAC1
00003 *    EFTIFAC1    ACH DISHONORED CHECK FILE                           LV042
00004 *                HEADER RECORD DESCRIPTION                           CL*40
00005 *                                                                    CL*17
00006 *    THE BANK SENDS A FILE OF ELECTRONIC PAYMENTS THAT WERE          CL*39
00007 *    DISHONORED TO DOES EVERY DAY.  DOES BUILDS NO GOOD              CL*39
00008 *    CHECK PAYMENT REVERSAL TRANSACTIONS FROM THESE RECORDS          CL*39
00009 *    THAT ARE INPUT TO THE DAILY ACCOUNTING UPDATE.                  CL*39
00010 *                                                                    CL*39
00011 *    THERE ARE 7 RECORD TYPES IN THIS FILE.                          CL*39
00012 *                                                                    CL*39
00013 *    THIS COPY BOOK CONTAINS THE RECORD DESCRIPTION FOR THE          CL*17
00014 *    HEADER RECORD.                                                  CL*40
00015 *                                                                    CL*23
00016 *****                                                             EFTIFAC1
00017      10  FAC1-HEADER-REC.                                            CL*40
00018          15  FAC1-TYPE                  PIC  X(01).                  CL*40
00019              88  FAC1-TYPE-HEADER-88          VALUE '1'.             CL*40
00020              88  FAC1-TYPE-CMPNY-BTCH-HDR-88  VALUE '5'.             CL*40
00021              88  FAC1-TYPE-ENTRY-DETAIL-88    VALUE '6'.             CL*40
00022              88  FAC1-TYPE-ADDENDA-88         VALUE '7'.             CL*40
00023              88  FAC1-TYPE-TRAILER-88         VALUE '9'.             CL*40
00024                                                                      CL*30
00025          15  FAC1-PRIORITY-CD           PIC  X(02).                  CL*42
00026          15  FAC1-IMMEDIATE-DEST        PIC  X(10).                  CL*42
00027          15  FAC1-IMMEDIATE-ORIG        PIC  X(10).                  CL*42
00028          15  FAC1-FILE-CREATE-DATE      PIC  X(06).                  CL*42
00029          15  FAC1-FILE-CREATE-TIME      PIC  X(04).                  CL*42
00030          15  FAC1-FILE-ID-MOD           PIC  X(01).                  CL*42
00031          15  FAC1-RECORD-SIZE           PIC  X(03).                  CL*42
00032          15  FAC1-BLOCK-FACTOR          PIC  X(02).                  CL*42
00033          15  FAC1-FORMAT-CD             PIC  X(01).                  CL*42
00034          15  FAC1-IMMEDIATE-DEST-NAME   PIC  X(23).                  CL*42
00035          15  FAC1-IMMEDIATE-ORIG-NAME   PIC  X(23).                  CL*42
00036          15  FAC1-REFERENCE-CD          PIC  X(08).                  CL*42