00001 *****                                                             10/01/03
00002 *                                                                 EFTIFDMY
00003 *    EFTIFDMY    ELECTRONIC PAYMENT                                  LV039
00004 *                DUMMY RECORD                                        CL*35
00005 *                RECORD DESCRIPTION                                  CL*30
00006 *                                                                    CL*17
00007 *    THE EXPORT AND IMPORT FILES FOR THE ELECTRONIC PAYMENT AND      CL*17
00008 *    FILING APPLICATIONS CONSIST OF MULTIPLE RECORD TYPES            CL*17
00009 *    SEPARATED BY HEADER AND TRAILER RECORDS.                        CL*17
00010 *                                                                    CL*17
00011 *    THIS COPY BOOK DESCRIBES THE DUMMY RECORD CREATED BY EFTB100    CL*35
00012 *    PROGRAM FOR THE EFT SYSTEM. THE DUMMY RECORD WILL BE WRITTEN    CL*35
00013 *    WHEN THERE ARE NO VALID DATA RECORDS TO PASS ON.                CL*35
00014 *                                                                    CL*19
00015 *****                                                             EFTIFDMY
00016      10  FDMY-LENGTH                    PIC S9(04) COMP.             CL*38
00017                                                                      CL*38
00018      10  FDMY-SORT-AREA.                                             CL*35
00019          15  FDMY-TYPE                  PIC  X(02).                  CL*35
00020              88  FDMY-TYPE-GLOBAL-DATA-88     VALUE '01'.            CL*35
00021              88  FDMY-TYPE-EMP-STATUS-88      VALUE '10'.            CL*35
00022              88  FDMY-TYPE-WAGE-EXP-88        VALUE '11'.            CL*35
00023              88  FDMY-TYPE-QTR-TAX-RPT-88     VALUE '30'.            CL*35
00024              88  FDMY-TYPE-ANN-TAX-RPT-88     VALUE '31'.            CL*35
00025              88  FDMY-TYPE-PAYMENT-88         VALUE '32'.            CL*35
00026              88  FDMY-TYPE-WAGE-IMP-88        VALUE '33'.            CL*35
00027              88  FDMY-TYPE-STATUS-CHANGE-88   VALUE '34'.            CL*39
00028              88  FDMY-TYPE-ENROLL-88          VALUE '35'.            CL*37
00029              88  FDMY-TYPE-DUMMY-88           VALUE '99'.            CL*35
00030                                                                      CL*22
00031          15  FDMY-SUB-TYPE              PIC  X(01).                  CL*35
00032              88  FDMY-SUB-TYPE-HEADER-88      VALUE '0'.             CL*35
00033              88  FDMY-SUB-TYPE-DATA-88        VALUE '1'.             CL*35
00034              88  FDMY-SUB-TYPE-TRAILER-88     VALUE '9'.             CL*35
00035                                                                   EFTIFDMY
00036      10  FDMY-DATA-AREA.                                             CL*35
00037          15  FDMY-EMP-NO                PIC  9(06).                  CL*35
00038          15  FDMY-CONTACT-NAME          PIC  X(26).                  CL*35
00039          15  FDMY-CONTACT-PHONE.                                     CL*35
00040              20  FDMY-VOICE-1-AREA-CD   PIC  X(03).                  CL*35
00041              20  FDMY-VOICE-1-PREFIX    PIC  X(03).                  CL*35
00042              20  FDMY-VOICE-1-SUFFIX    PIC  X(04).                  CL*35
00043              20  FDMY-VOICE-1-EXT       PIC  X(05).                  CL*35
00044                                                                      CL*34
00045          15  FDMY-FILLER                PIC  X(33).                  CL*35