00001 *****                                                             04/24/03
00002 *                                                                 EFTIFACH
00003 *    EFTIFACH    ACH DISHONORED CHECK FILE                           LV039
00004 *                SKELETAL RECORD DESCRIPTION                         CL*39
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 *    SKELETAL RECORD THAT CAN CONTAIN ANY OF THESE RECORD            CL*39
00015 *    TYPES. THE IMPORT PROCESS READS THE INPUT DATA INTO THIS        CL*39
00016 *    RECORD, AND THEN MOVES IT TO THE APPROPRIATE COPY BOOK          CL*39
00017 *    BASED ON THE VALUE IN THE FIRST FIELD (RECORD TYPE CODE).       CL*39
00018 *                                                                    CL*23
00019 *****                                                             EFTIFACH
00020      10  FACH-SKELETAL-REC.                                          CL*39
00021          15  FACH-TYPE                  PIC  X(01).                  CL*39
00022              88  FACH-TYPE-HEADER-88          VALUE '1'.             CL*39
00023              88  FACH-TYPE-CMPNY-BTCH-HDR-88  VALUE '5'.             CL*39
00024              88  FACH-TYPE-ENTRY-DETAIL-88    VALUE '6'.             CL*39
00025              88  FACH-TYPE-ADDENDA-88         VALUE '7'.             CL*39
00026              88  FACH-TYPE-TRAILER-88         VALUE '9'.             CL*39
00027                                                                      CL*30
00028          15  FACH-FILLER                PIC  X(93).                  CL*39