00001 ***** 10/01/03 00002 * EFTIFEWR 00003 * EFTIFEWR ELECTRONIC PAYMENT AND REPORTING LV051 00004 * EMPLOYEE WAGE DATA RECORD DESCRIPTION CL*29 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 * EMPLOYEE WAGE DATA NEEDED FOR THE REPORTING APPLICATION. CL*44 00012 * IT CONTAINS REPORTED WAGES FROM PRIOR QUARTERS IN THE CL*23 00013 * CALENDAR YEAR. AND IS USED TO CALCULATE TAXABLE WAGES CL*23 00014 * FOR THE CURRENT QUARTER. THERE WILL BE ONE RECORD FOR CL*23 00015 * EACH EMPLOYER/QUARTER/SSN. CL*23 00016 * CL*23 00017 ***** EFTIFEWR 00018 ***** CL*37 00019 CL*37 00020 10 FEWR-LENGTH PIC S9(04) COMP. CL*49 00021 CL*37 00022 10 FEWR-SORT-AREA. CL*38 00023 15 FEWR-TYPE PIC X(02). CL*38 00024 88 FEWR-TYPE-GLOBAL-DATA-88 VALUE '01'. CL*38 00025 88 FEWR-TYPE-EMP-STATUS-88 VALUE '10'. CL*38 00026 88 FEWR-TYPE-WAGE-EXP-88 VALUE '11'. CL*38 00027 88 FEWR-TYPE-VALID-EMP-NO-88 VALUE '12'. CL*38 00028 88 FEWR-TYPE-QTR-TAX-RPT-88 VALUE '30'. CL*38 00029 88 FEWR-TYPE-ANN-TAX-RPT-88 VALUE '31'. CL*38 00030 88 FEWR-TYPE-PAYMENT-88 VALUE '32'. CL*38 00031 88 FEWR-TYPE-WAGE-IMP-88 VALUE '33'. CL*38 00032 88 FEWR-TYPE-STATUS-CHANGE-88 VALUE '34'. CL*51 00033 88 FEWR-TYPE-ENROLL-88 VALUE '35'. CL*39 00034 CL*28 00035 15 FEWR-SUB-TYPE PIC X(01). CL*38 00036 88 FEWR-SUB-TYPE-HEADER-88 VALUE '0'. CL*38 00037 88 FEWR-SUB-TYPE-DATA-88 VALUE '1'. CL*38 00038 88 FEWR-SUB-TYPE-TRAILER-88 VALUE '9'. CL*38 00039 EFTIFEWR 00040 10 FEWR-DATA-AREA. CL*38 00041 15 FEWR-EMP-NO PIC 9(06). CL*38 00042 15 FEWR-EMPL-SSN PIC 9(09). CL*38 00043 15 FEWR-EMPL-NAME. CL*38 00044 20 FEWR-FIRST-NAME PIC X(15). CL*38 00045 20 FEWR-MIDDLE-INITIAL PIC X(01). CL*38 00046 20 FEWR-LAST-NAME PIC X(20). CL*38 00047 15 FEWR-YR-TO-DATE-WAGES PIC S9(11)V99. CL*44 00048 **** 15 FEWR-FILLER PIC X(436). CL*40