00001 *****                                                             11/17/03
00002 *                                                                 EFTIFGOV
00003 *    EFTIFGOV    ELECTRONIC PAYMENT AND REPORTING                    LV049
00004 *                HEADER RECORD DESCRIPTION                           CL*17
00005 *                                                                    CL*17
00006 *    THE COPYBOOK IS DUPLICATE OF THE EFTIFHDR FILE. IT IS USED TO   CL*35
00007 *    READ THE LAST GDG PROCESSED FROM GOVONE.                        CL*38
00008 *                                                                    CL*17
00009 *    THIS COPY BOOK CONTAINS THE RECORD DESCRIPTION FOR THE          CL*17
00010 *    HEADER RECORD.                                                  CL*17
00011 *                                                                    CL*17
00012 *                                                                    CL*34
00013 *****                                                                CL*34
00014      10  FGOV-LENGTH                    PIC S9(04) COMP.             CL*45
00015                                                                      CL*41
00016                                                                      CL*26
00017      10  FGOV-SORT-AREA.                                             CL*35
00018          15  FGOV-TYPE                  PIC  X(02).                  CL*35
00019              88  FGOV-TYPE-GLOBAL-DATA-88     VALUE '01'.            CL*35
00020              88  FGOV-TYPE-EMP-STATUS-88      VALUE '10'.            CL*35
00021              88  FGOV-TYPE-WAGE-EXP-88        VALUE '11'.            CL*35
00022              88  FGOV-TYPE-VALID-EMP-NO-88    VALUE '12'.            CL*35
00023              88  FGOV-TYPE-QTR-TAX-RPT-88     VALUE '30'.            CL*35
00024              88  FGOV-TYPE-ANN-TAX-RPT-88     VALUE '31'.            CL*35
00025              88  FGOV-TYPE-PAYMENT-88         VALUE '32'.            CL*35
00026              88  FGOV-TYPE-WAGE-IMP-88        VALUE '33'.            CL*35
00027              88  FGOV-TYPE-STATUS-CHANGE-88   VALUE '34'.            CL*48
00028              88  FGOV-TYPE-ENROLL-88          VALUE '35'.            CL*35
00029              88  FGOV-TYPE-VALID-88     VALUE '30' '32'              CL*39
00030                                               '33' '34'              CL*48
00031                                               '35'.                  CL*48
00032          15  FGOV-SUB-TYPE              PIC  X(01).                  CL*35
00033              88  FGOV-SUB-TYPE-HEADER-88      VALUE '0'.             CL*35
00034              88  FGOV-SUB-TYPE-DATA-88        VALUE '1'.             CL*35
00035              88  FGOV-SUB-TYPE-TRAILER-88     VALUE '9'.             CL*35
00036                                                                   EFTIFGOV
00037      10  FGOV-DATA-AREA.                                             CL*35
00038          15  FGOV-CREATE-DATE           PIC  9(08).                  CL*35
00039          15  FGOV-FILLER                PIC  X(2983).                CL*49