00001 *****                                                             10/01/03
00002 *                                                                 EFTIFGRD
00003 *    EDTIFGRD    ELECTRONIC PAYMENT                                  LV040
00004 *                GLOBAL RECORD DESCRIPTION                           CL*34
00005 *                                                                    CL*17
00006 *    THE EXPORT AND IMPORT FILES FOR THE ELECTRONIC PAYMENT AND      CL*17
00007 *    FILING APPLICATIONS CONSIST OF MULTIPLE RECORD TYPES            CL*17
00008 *    SEPARATED BY HEADER AND TRAILER RECORDS.                        CL*17
00009 *                                                                    CL*17
00010 *    THIS COPY BOOK CONTAINS THE RECORD DESCRIPTION FOR THE          CL*17
00011 *    CURRENT QUARTER START AND END DATES, WHICH CONTAIN THE          CL*28
00012 *    RANGE OF DATES FOR WHICH THE SYSTEM MAY ACCEPT REPORTS          CL*28
00013 *    FOR THE CURRENT QUARTER. ON THE DAY FOLLOWING THE END           CL*28
00014 *    DATE, THE SYSTEM WILL ACCEPT REPORTS ONLY FOR THE NEXT          CL*28
00015 *    QUARTER. THE TAXABLE WAGE BASE IS THE MAXIMUM TAXABLE           CL*28
00016 *    AMOUNT $9000.00 FOR A GIVEN EMPLOYEE FOR A CALENDER             CL*28
00017 *    YEAR. SINCE THE EMPLOYER PAYS TAXES ONLY FOR THE FIRST          CL*28
00018 *    $9000.00 THE EMPLOYEE EARNS DURING THE CALENDER YEAR.           CL*28
00019 *                                                                    CL*28
00020 *****                                                             EFTIFGRD
00021      10  FGRD-LENGTH                    PIC S9(04) COMP.             CL*38
00022                                                                      CL*38
00023      10  FGRD-SORT-AREA.                                             CL*34
00024          15  FGRD-TYPE                  PIC  X(02).                  CL*34
00025              88  FGRD-TYPE-GLOBAL-DATA-88     VALUE '01'.            CL*34
00026              88  FGRD-TYPE-EMP-STATUS-88      VALUE '10'.            CL*34
00027              88  FGRD-TYPE-WAGE-EXP-88        VALUE '11'.            CL*34
00028              88  FGRD-TYPE-VALID-EMP-NO-88    VALUE '12'.            CL*34
00029              88  FGRD-TYPE-QTR-TAX-RPT-88     VALUE '30'.            CL*34
00030              88  FGRD-TYPE-ANN-TAX-RPT-88     VALUE '31'.            CL*34
00031              88  FGRD-TYPE-PAYMENT-88         VALUE '32'.            CL*34
00032              88  FGRD-TYPE-WAGE-IMP-88        VALUE '33'.            CL*34
00033              88  FGRD-TYPE-STATUS-CHANGE-88   VALUE '34'.            CL*40
00034              88  FGRD-TYPE-ENROLL-88          VALUE '35'.            CL*35
00035                                                                      CL*25
00036          15  FGRD-SUB-TYPE              PIC  X(01).                  CL*34
00037              88  FGRD-SUB-TYPE-HEADER-88      VALUE '0'.             CL*34
00038              88  FGRD-SUB-TYPE-DATA-88        VALUE '1'.             CL*34
00039              88  FGRD-SUB-TYPE-TRAILER-88     VALUE '9'.             CL*34
00040                                                                   EFTIFGRD
00041      10  FGRD-DATA-AREA.                                             CL*34
00042          15  FGRD-CURR-QTR              PIC  9(05).                  CL*34
00043          15  FGRD-CURR-QTR-START        PIC  9(08).                  CL*34
00044          15  FGRD-CURR-QTR-END          PIC  9(08).                  CL*34
00045          15  FGRD-TAXABLE-WAGE-BASE     PIC S9(07)V99.               CL*36