00001 ***** 10/01/03 00002 * EFTIFESR 00003 * EFTIFESR ELECTRONIC PAYMENT AND REPORTING LV059 00004 * EMPLOYER STATUS RECORD DESCRIPTION CL*49 00005 * CL*26 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 THE CL*34 00011 * EMPLOYER STATUS DATA NEEDED FOR THE TAX REPORTING CL*34 00012 * APPLICATION. CL*34 00013 * RULE. CL*29 00014 * CL*26 00015 ***** EFTIFESR 00016 ***** CL*48 00017 CL*48 00018 10 FESR-LENGTH PIC S9(04) COMP. CL*58 00019 CL*48 00020 10 FESR-SORT-AREA. CL*49 00021 15 FESR-TYPE PIC X(02). CL*49 00022 88 FESR-TYPE-GLOBAL-DATA-88 VALUE '01'. CL*49 00023 88 FESR-TYPE-EMP-STATUS-88 VALUE '10'. CL*49 00024 88 FESR-TYPE-WAGE-EXP-88 VALUE '11'. CL*49 00025 88 FESR-TYPE-VALID-EMP-NO-88 VALUE '12'. CL*49 00026 88 FESR-TYPE-QTR-TAX-RPT-88 VALUE '30'. CL*49 00027 88 FESR-TYPE-ANN-TAX-RPT-88 VALUE '31'. CL*49 00028 88 FESR-TYPE-PAYMENT-88 VALUE '32'. CL*49 00029 88 FESR-TYPE-WAGE-IMP-88 VALUE '33'. CL*49 00030 88 FESR-TYPE-STATUS-CHANGE-88 VALUE '34'. CL*59 00031 88 FESR-TYPE-ENROLL-88 VALUE '35'. CL*50 00032 CL*33 00033 15 FESR-SUB-TYPE PIC X(01). CL*49 00034 88 FESR-SUB-TYPE-HEADER-88 VALUE '0'. CL*49 00035 88 FESR-SUB-TYPE-DATA-88 VALUE '1'. CL*49 00036 88 FESR-SUB-TYPE-TRAILER-88 VALUE '9'. CL*49 00037 EFTIFESR 00038 10 FESR-DATA-AREA. CL*49 00039 15 FESR-EMP-NO PIC 9(06). CL*49 00040 CL*43 00041 15 FESR-LIABILITY-IND PIC X(01). CL*49 00042 88 FESR-LIAB-YES-88 VALUE 'Y'. CL*49 00043 88 FESR-LIAB-NO-88 VALUE 'N'. CL*49 00044 CL*30 00045 15 FESR-FILING-SCHED-IND PIC X(01). CL*49 00046 88 FESR-QTRLY-SCHED-88 VALUE '0'. CL*49 00047 88 FESR-ANN-SCHED-88 VALUE '1'. CL*49 00048 CL*30 00049 15 FESR-FISCAL-AGENT-IND PIC X(01). CL*49 00050 88 FESR-FISCAL-AGENT-NO-88 VALUE 'N'. CL*49 00051 88 FESR-FISCAL-AGENT-YES-88 VALUE 'Y'. CL*49 00052 CL*30 00053 15 FESR-REPORT-ON-FILE-IND PIC X(01). CL*49 00054 88 FESR-QTR-REPORT-NO-88 VALUE 'N'. CL*49 00055 88 FESR-QTR-REPORT-YES-88 VALUE 'Y'. CL*49 00056 CL*30 00057 15 FESR-EMPLOYER-CLASS-IND PIC X(01). CL*49 00058 88 FESR-EMPL-RATED-88 VALUE '0'. CL*49 00059 88 FESR-EMPL-SELF-INSURED-88 VALUE '1'. CL*49 00060 CL*30 00061 15 FESR-EMPLOYER-RATE PIC S9V9999. CL*54 00062 15 FESR-CREDIT-AVAILABLE PIC S9(08)V99. CL*55 00063 15 FESR-PRIOR-BALANCE-DUE PIC S9(08)V99. CL*55 00064 15 FESR-REPORT-DUE-DATE PIC 9(08). CL*49 00065 CL*31 00066 15 FESR-CHARGE-INTEREST-IND PIC X(01). CL*49 00067 88 FESR-CHRG-INTEREST-YES-88 VALUE 'Y'. CL*49 00068 88 FESR-CHRG-INTEREST-NO-88 VALUE 'N'. CL*49 00069 CL*31 00070 15 FESR-CHARGE-PENALTY-IND PIC X(01). CL*49 00071 88 FESR-CHRG-PENALTY-YES-88 VALUE 'Y'. CL*49 00072 88 FESR-CHRG-PENALTY-NO-88 VALUE 'N'. CL*49 00073 CL*29 00074 15 FESR-CALC-TAX-WAGE-IND PIC X(01). CL*49 00075 88 FESR-CALC-TAX-WAGE-YES-88 VALUE 'Y'. CL*49 00076 88 FESR-CALC-TAX-WAGE-NO-88 VALUE 'N'. CL*49 00077 CL*37 00078 15 FESR-ENTITY-NAME PIC X(40). CL*49 00079 CL*43 00080 15 FESR-TRADE-NAME PIC X(40). CL*49 00081 CL*43 00082 15 FESR-BUSINESS-PHONE. CL*49 00083 20 FESR-BUSINESS-AREA-CD PIC X(03). CL*49 00084 20 FESR-BUSINESS-PREFIX PIC X(03). CL*49 00085 20 FESR-BUSINESS-SUFFIX PIC X(04). CL*49 00086 20 FESR-BUSINESS-EXT PIC X(05). CL*49 00087 CL*43 00088 15 FESR-FAX. CL*49 00089 20 FESR-FAX-AREA-CD PIC X(03). CL*49 00090 20 FESR-FAX-PREFIX PIC X(03). CL*49 00091 20 FESR-FAX-SUFFIX PIC X(04). CL*49 00092 CL*43 00093 15 FESR-EMAIL-ADDRESS PIC X(40). CL*49 00094 CL*43 00095 15 FESR-FEIN PIC 9(09). CL*49 00096 CL*45 00097 15 FESR-ATTN-LINE PIC X(40). CL*49 00098 15 FESR-STREET-ADDRESS-1 PIC X(40). CL*49 00099 15 FESR-STREET-ADDRESS-2 PIC X(40). CL*49 00100 15 FESR-CITY PIC X(25). CL*49 00101 15 FESR-STATE PIC X(02). CL*49 00102 15 FESR-ZIP PIC X(10). CL*49 00103 CL*43 00104 15 FESR-CONTACT-FIRST-NAME PIC X(15). CL*49 00105 15 FESR-CONTACT-MI PIC X(01). CL*49 00106 15 FESR-CONTACT-LAST-NAME PIC X(20). CL*49 00107 CL*43 00108 15 FESR-CONTACT-PHONE. CL*49 00109 20 FESR-CONTACT-AREA-CD PIC X(03). CL*49 00110 20 FESR-CONTACT-PREFIX PIC X(03). CL*49 00111 20 FESR-CONTACT-SUFFIX PIC X(04). CL*49 00112 20 FESR-CONTACT-EXT PIC X(05). CL*49 00113 CL*43 00114 *** 15 FESR-FILLER PIC X(83). CL*51