00001 ***** 12/08/21 00002 * DTSIC031 00003 * DTSIC031 EMPLOYER REGISTRATION CODES VALUES LV042 00004 * AND DESCRIPTIONS. DTSIC031 00005 * DTSIC031 00006 * 05-09-2012 CORRECTED OCCURS COUNTER FOR LIABILITY CODE. GD DTSIC031 00007 * 04/29/2013 ADDED SUTA DUMPING CODE (MREL RECORD) GD DTSIC031 00008 * 09=25=2014 ADDES CODE FOR UCPIA 15% PENALTY ZL1 DTSIC031 00009 * 03=25=2015 ADDES CODES FOR DUA AND GPA ACCOUNTS ZL1 DTSIC031 00010 * 04=07=2020 ADDES FPUC AND FRUR PANDEMIC CODES ZL1 DTSIC031 00011 * 04/24/2020 ADDED PEUC ZL1 DTSIC031 00012 * 05/08/2020 ADDED RATED EMPLOYER UNEMPLOYENT RELIEF ZL1 DTSIC031 00013 * 09/02/2020 ADDED LWA ZL1 DTSIC031 00014 * 12/05/2020 ADDED PUA STIMULUS CODE 37 ZL1 DTSIC031 00015 * 02/16/2021 ADDED MEUC CODE 38 ZL1 DTSIC031 00016 * 12/06/2021 ADDED MEUC CODE 39 ZL1 DTSIC031 00017 ***** DTSIC031 00018 SKIP1 DTSIC031 00019 ***** DTSIC031 00020 * OPTION 01 = MPRF-EMP-CLASS DTSIC031 00021 ***** DTSIC031 00022 10 C031-01-AREA. DTSIC031 00023 15 FILLER PIC X(01) VALUE 'C'. DTSIC031 00024 15 FILLER PIC X(10) VALUE 'CHARGING'. DTSIC031 00025 15 FILLER PIC X(40) DTSIC031 00026 VALUE 'CHARGING ONLY'. DTSIC031 00027 15 FILLER PIC X(01) VALUE 'R'. DTSIC031 00028 15 FILLER PIC X(10) VALUE 'RATED'. DTSIC031 00029 15 FILLER PIC X(40) DTSIC031 00030 VALUE 'RATED (PRIVATE CONTRIBUTORY)'. DTSIC031 00031 15 FILLER PIC X(01) VALUE 'S'. DTSIC031 00032 15 FILLER PIC X(10) VALUE 'SELF INSRD'. DTSIC031 00033 15 FILLER PIC X(40) DTSIC031 00034 VALUE 'SELF INSURED (REIMBURSING)'. DTSIC031 00035 15 FILLER PIC X(01) VALUE 'U'. DTSIC031 00036 15 FILLER PIC X(10) VALUE 'UNKNOWN'. DTSIC031 00037 15 FILLER PIC X(40) DTSIC031 00038 VALUE 'UNKNOWN'. DTSIC031 00039 SKIP1 DTSIC031 00040 10 FILLER REDEFINES C031-01-AREA. DTSIC031 00041 15 C031-01-ENTRY OCCURS 4 TIMES DTSIC031 00042 INDEXED BY C031-01-IDX. DTSIC031 00043 20 C031-01-CD PIC X(01). DTSIC031 00044 20 C031-01-SHORT-DSCR PIC X(10). DTSIC031 00045 20 C031-01-LONG-DSCR PIC X(40). DTSIC031 00046 SKIP3 DTSIC031 00047 ***** DTSIC031 00048 * OPTION 02 = MPRF-EMP-STATUS DTSIC031 00049 ***** DTSIC031 00050 10 C031-02-AREA. DTSIC031 00051 15 FILLER PIC X(01) VALUE 'A'. DTSIC031 00052 15 FILLER PIC X(10) VALUE 'ACTIVE'. DTSIC031 00053 15 FILLER PIC X(40) DTSIC031 00054 VALUE 'ACTIVE'. DTSIC031 00055 15 FILLER PIC X(01) VALUE 'I'. DTSIC031 00056 15 FILLER PIC X(10) VALUE 'INACTIVE'. DTSIC031 00057 15 FILLER PIC X(40) DTSIC031 00058 VALUE 'INACTIVE'. DTSIC031 00059 15 FILLER PIC X(01) VALUE 'N'. DTSIC031 00060 15 FILLER PIC X(10) VALUE 'NEVER SUBJ'. DTSIC031 00061 15 FILLER PIC X(40) DTSIC031 00062 VALUE 'NEVER SUBJECT'. DTSIC031 00063 15 FILLER PIC X(01) VALUE 'U'. DTSIC031 00064 15 FILLER PIC X(10) VALUE 'UNKNOWN'. DTSIC031 00065 15 FILLER PIC X(40) DTSIC031 00066 VALUE 'UNKNOWN - SUBJECTIVITY NOT DETERMINED'. DTSIC031 00067 SKIP1 DTSIC031 00068 10 FILLER REDEFINES C031-02-AREA. DTSIC031 00069 15 C031-02-ENTRY OCCURS 4 TIMES DTSIC031 00070 INDEXED BY C031-02-IDX. DTSIC031 00071 20 C031-02-CD PIC X(01). DTSIC031 00072 20 C031-02-SHORT-DSCR PIC X(10). DTSIC031 00073 20 C031-02-LONG-DSCR PIC X(40). DTSIC031 00074 SKIP3 DTSIC031 00075 ***** DTSIC031 00076 * OPTION 03 = MPRF-ELIGIBLE-CD DTSIC031 00077 ***** DTSIC031 00078 10 C031-03-AREA. DTSIC031 00079 15 FILLER PIC X(03) VALUE '000'. DTSIC031 00080 15 FILLER PIC X(10) VALUE 'CONTRIB'. DTSIC031 00081 15 FILLER PIC X(40) DTSIC031 00082 VALUE 'CONTRIBUTORY - PRIVATE SECTOR'. DTSIC031 00083 15 FILLER PIC X(03) VALUE '001'. DTSIC031 00084 15 FILLER PIC X(10) VALUE 'UCX'. DTSIC031 00085 15 FILLER PIC X(40) DTSIC031 00086 VALUE 'CHARGING ONLY - UCX'. DTSIC031 00087 15 FILLER PIC X(03) VALUE '002'. DTSIC031 00088 15 FILLER PIC X(10) VALUE 'UCFE'. DTSIC031 00089 15 FILLER PIC X(40) DTSIC031 00090 VALUE 'CHARGING ONLY - UCFE'. DTSIC031 00091 15 FILLER PIC X(03) VALUE '004'. DTSIC031 00092 15 FILLER PIC X(10) VALUE 'INTERSTATE'. DTSIC031 00093 15 FILLER PIC X(40) DTSIC031 00094 VALUE 'CHARGING ONLY - INTERSTATE'. DTSIC031 00095 15 FILLER PIC X(03) VALUE '005'. DTSIC031 00096 15 FILLER PIC X(10) VALUE 'VOL QUIT'. DTSIC031 00097 15 FILLER PIC X(40) DTSIC031 00098 VALUE 'CHARGING ONLY - VOLUNTARY QUIT'. DTSIC031 00099 15 FILLER PIC X(03) VALUE '006'. DTSIC031 00100 15 FILLER PIC X(10) VALUE 'MISCONDUCT'. DTSIC031 00101 15 FILLER PIC X(40) DTSIC031 00102 VALUE 'CHARGING ONLY - MISCONDUCT'. DTSIC031 00103 15 FILLER PIC X(03) VALUE '007'. DTSIC031 00104 15 FILLER PIC X(10) VALUE 'EB'. DTSIC031 00105 15 FILLER PIC X(40) DTSIC031 00106 VALUE 'CHARGING ONLY - EXTENDED BENEFITS'. DTSIC031 00107 15 FILLER PIC X(03) VALUE '008'. DTSIC031 00108 15 FILLER PIC X(10) VALUE 'SELF INSRD'. DTSIC031 00109 15 FILLER PIC X(40) DTSIC031 00110 VALUE 'SELF INSURED'. DTSIC031 00111 15 FILLER PIC X(03) VALUE '009'. DTSIC031 00112 15 FILLER PIC X(10) VALUE 'TRA'. DTSIC031 00113 15 FILLER PIC X(40) DTSIC031 00114 VALUE 'CHARGING ONLY - TRA'. DTSIC031 00115 15 FILLER PIC X(03) VALUE '010'. DTSIC031 00116 15 FILLER PIC X(10) VALUE 'DC GOVT'. DTSIC031 00117 15 FILLER PIC X(40) DTSIC031 00118 VALUE 'CHARGING ONLY - DC GOVERNMENT'. DTSIC031 00119 15 FILLER PIC X(03) VALUE '013'. DTSIC031 00120 15 FILLER PIC X(10) VALUE 'NOT SUBJ'. DTSIC031 00121 15 FILLER PIC X(40) DTSIC031 00122 VALUE 'ACCOUNTS NOT SUBJECT'. DTSIC031 00123 15 FILLER PIC X(03) VALUE '015'. DTSIC031 00124 15 FILLER PIC X(10) VALUE 'CONT EMP'. DTSIC031 00125 15 FILLER PIC X(40) DTSIC031 00126 VALUE 'CONTINUED EMPLOYMENT'. DTSIC031 00127 15 FILLER PIC X(03) VALUE '016'. DTSIC031 00128 15 FILLER PIC X(10) VALUE 'TEUC '. DTSIC031 00129 15 FILLER PIC X(40) DTSIC031 00130 VALUE 'TEUC '. DTSIC031 00131 15 FILLER PIC X(03) VALUE '017'. DTSIC031 00132 15 FILLER PIC X(10) VALUE 'DOM VIOL'. DTSIC031 00133 15 FILLER PIC X(40) DTSIC031 00134 VALUE 'DOMESTIC VIOLENCE '. DTSIC031 00135 15 FILLER PIC X(03) VALUE '018'. DTSIC031 00136 15 FILLER PIC X(10) VALUE 'EDU STEP'. DTSIC031 00137 15 FILLER PIC X(40) DTSIC031 00138 VALUE 'EDUCATION STEPLADDER'. DTSIC031 00139 15 FILLER PIC X(03) VALUE '019'. DTSIC031 00140 15 FILLER PIC X(10) VALUE 'EUC 2008'. DTSIC031 00141 15 FILLER PIC X(40) DTSIC031 00142 VALUE 'CHARGING ONLY - EUC 2008 '. DTSIC031 00143 15 FILLER PIC X(03) VALUE '020'. DTSIC031 00144 15 FILLER PIC X(10) VALUE 'FAC '. DTSIC031 00145 15 FILLER PIC X(40) DTSIC031 00146 VALUE 'CHRG ONLY - FED ADDL COMPENSATION '. DTSIC031 00147 15 FILLER PIC X(03) VALUE '021'. DTSIC031 00148 15 FILLER PIC X(10) VALUE 'AB '. DTSIC031 00149 15 FILLER PIC X(40) DTSIC031 00150 VALUE 'CHRG ONLY - ADDITIONAL BENEFITS '. DTSIC031 00151 15 FILLER PIC X(03) VALUE '022'. DTSIC031 00152 15 FILLER PIC X(10) VALUE 'DEPENDNT'. DTSIC031 00153 15 FILLER PIC X(40) DTSIC031 00154 VALUE 'CHRG ONLY - DEPENDENT ALLOWANCE '. DTSIC031 00155 15 FILLER PIC X(03) VALUE '023'. DTSIC031 00156 15 FILLER PIC X(10) VALUE 'TRAINING'. DTSIC031 00157 15 FILLER PIC X(40) DTSIC031 00158 VALUE 'CHRG ONLY - TRAINING EXTEN BEN PRG'. DTSIC031 00159 15 FILLER PIC X(03) VALUE '024'. DTSIC031 00160 15 FILLER PIC X(10) VALUE 'EUC08 2+'. DTSIC031 00161 15 FILLER PIC X(40) DTSIC031 00162 VALUE 'CHRG ONLY - EUC 2008 TIER 2 PLUS '. DTSIC031 00163 15 FILLER PIC X(03) VALUE '025'. DTSIC031 00164 15 FILLER PIC X(10) VALUE 'EUC08TR3'. DTSIC031 00165 15 FILLER PIC X(40) DTSIC031 00166 VALUE 'CHRG ONLY - EUC 2008 TIER 3 '. DTSIC031 00167 15 FILLER PIC X(03) VALUE '026'. DTSIC031 00168 15 FILLER PIC X(10) VALUE 'EUC08TR4'. DTSIC031 00169 15 FILLER PIC X(40) DTSIC031 00170 VALUE 'CHRG ONLY - EUC 2008 TIER 4 '. DTSIC031 00171 15 FILLER PIC X(03) VALUE '027'. DTSIC031 00172 15 FILLER PIC X(10) VALUE 'SPECIAL PA'. DTSIC031 00173 15 FILLER PIC X(40) DTSIC031 00174 VALUE 'Y '. DTSIC031 00175 15 FILLER PIC X(03) VALUE '028'. DTSIC031 00176 15 FILLER PIC X(10) VALUE 'UCPIA UNEM'. DTSIC031 00177 15 FILLER PIC X(40) DTSIC031 00178 VALUE 'PLOY COMP PROGRAM INTEGRITY AMEND '. DTSIC031 00179 15 FILLER PIC X(03) VALUE '029'. DTSIC031 00180 15 FILLER PIC X(10) VALUE 'DUA DISAST'. DTSIC031 00181 15 FILLER PIC X(40) DTSIC031 00182 VALUE 'ER UNEMPLOYMENT ASSISTANCE '. DTSIC031 00183 15 FILLER PIC X(03) VALUE '031'. DTSIC031 00184 15 FILLER PIC X(10) VALUE 'GPA GENERA'. DTSIC031 00185 15 FILLER PIC X(40) DTSIC031 00186 VALUE 'L PURPOSE ACCOUNT '. DTSIC031 00187 15 FILLER PIC X(03) VALUE '032'. DTSIC031 00188 15 FILLER PIC X(10) VALUE 'FPUC FEDER'. DTSIC031 00189 15 FILLER PIC X(40) DTSIC031 00190 VALUE 'AL PANDEMIC UNEMPLOYMENT COMP '. DTSIC031 00191 15 FILLER PIC X(03) VALUE '033'. DTSIC031 00192 15 FILLER PIC X(10) VALUE 'FRUR FEDER'. DTSIC031 00193 15 FILLER PIC X(40) DTSIC031 00194 VALUE 'AL REIMBURSING UNEMPLOYMENT RELIEF'. DTSIC031 00195 15 FILLER PIC X(03) VALUE '034'. DTSIC031 00196 15 FILLER PIC X(10) VALUE 'PEUC PANDE'. DTSIC031 00197 15 FILLER PIC X(40) DTSIC031 00198 VALUE 'MIC EMERGENCY UNEMPLOYMENT COMP '. DTSIC031 00199 15 FILLER PIC X(03) VALUE '035'. DTSIC031 00200 15 FILLER PIC X(10) VALUE 'REUR RATED'. DTSIC031 00201 15 FILLER PIC X(40) DTSIC031 00202 VALUE 'EMPLOYER UNEMPLOYMENT RELIEF '. DTSIC031 00203 15 FILLER PIC X(03) VALUE '036'. DTSIC031 00204 15 FILLER PIC X(10) VALUE 'LWA '. DTSIC031 00205 15 FILLER PIC X(40) DTSIC031 00206 VALUE 'LOST WAGES ASSISTANCE '. DTSIC031 00207 15 FILLER PIC X(03) VALUE '037'. DTSIC031 00208 15 FILLER PIC X(10) VALUE 'PUA STMULS'. DTSIC031 00209 15 FILLER PIC X(40) DTSIC031 00210 VALUE 'PUA STIMULUS '. DTSIC031 00211 15 FILLER PIC X(03) VALUE '038'. DTSIC031 00212 15 FILLER PIC X(10) VALUE 'MEUC '. DTSIC031 00213 15 FILLER PIC X(40) DTSIC031 00214 VALUE 'MIXED EMPLOYER UNEMPLOYMENT COMP '. DTSIC031 00215 15 FILLER PIC X(03) VALUE '039'. DTSIC031 00216 15 FILLER PIC X(10) VALUE 'DUC '. DTSIC031 00217 15 FILLER PIC X(40) DTSIC031 00218 VALUE 'DISTRICT UNEMPLOYMENT COMP '. DTSIC031 00219 SKIP1 DTSIC031 00220 10 FILLER REDEFINES C031-03-AREA. DTSIC031 00221 15 C031-03-ENTRY OCCURS 35 TIMES DTSIC031 00222 INDEXED BY C031-03-IDX. DTSIC031 00223 20 C031-03-CD PIC X(03). DTSIC031 00224 20 C031-03-SHORT-DSCR PIC X(10). DTSIC031 00225 20 C031-03-LONG-DSCR PIC X(40). DTSIC031 00226 SKIP3 DTSIC031 00227 ***** DTSIC031 00228 * OPTION 04 = MPRF-ORG-TYPE DTSIC031 00229 ***** DTSIC031 00230 10 C031-04-AREA. DTSIC031 00231 15 FILLER PIC X(03) VALUE 'S '. DTSIC031 00232 15 FILLER PIC X(10) VALUE 'SOLE PROP'. DTSIC031 00233 15 FILLER PIC X(40) DTSIC031 00234 VALUE 'SOLE PROPRIETORSHIP'. DTSIC031 00235 15 FILLER PIC X(03) VALUE 'P '. DTSIC031 00236 15 FILLER PIC X(10) VALUE 'PARTNERSHP'. DTSIC031 00237 15 FILLER PIC X(40) DTSIC031 00238 VALUE 'PARTNERSHIP'. DTSIC031 00239 15 FILLER PIC X(03) VALUE 'LLC'. DTSIC031 00240 15 FILLER PIC X(10) VALUE 'LM LIAB CO'. DTSIC031 00241 15 FILLER PIC X(40) DTSIC031 00242 VALUE 'LIMITED LIABILITY COMPANY'. DTSIC031 00243 15 FILLER PIC X(03) VALUE 'LLP'. DTSIC031 00244 15 FILLER PIC X(10) VALUE 'LM LIAB PR'. DTSIC031 00245 15 FILLER PIC X(40) DTSIC031 00246 VALUE 'LIMITED LIABILITY PARTNERSHIP'. DTSIC031 00247 15 FILLER PIC X(03) VALUE 'C '. DTSIC031 00248 15 FILLER PIC X(10) VALUE 'CORP'. DTSIC031 00249 15 FILLER PIC X(40) DTSIC031 00250 VALUE 'CORPORATION'. DTSIC031 00251 15 FILLER PIC X(03) VALUE 'SC '. DTSIC031 00252 15 FILLER PIC X(10) VALUE 'S-CORP'. DTSIC031 00253 15 FILLER PIC X(40) DTSIC031 00254 VALUE 'S-CORPORATION'. DTSIC031 00255 15 FILLER PIC X(03) VALUE 'J '. DTSIC031 00256 15 FILLER PIC X(10) VALUE 'JOINT VNTR'. DTSIC031 00257 15 FILLER PIC X(40) DTSIC031 00258 VALUE 'JOINT VENTURE'. DTSIC031 00259 15 FILLER PIC X(03) VALUE 'H '. DTSIC031 00260 15 FILLER PIC X(10) VALUE 'HOUSEHOLD'. DTSIC031 00261 15 FILLER PIC X(40) DTSIC031 00262 VALUE 'HOUSEHOLD/DOMESTIC'. DTSIC031 00263 15 FILLER PIC X(03) VALUE 'TB '. DTSIC031 00264 15 FILLER PIC X(10) VALUE 'TRST BNKR'. DTSIC031 00265 15 FILLER PIC X(40) DTSIC031 00266 VALUE 'TRUSTEE IN BANKRUPTCY'. DTSIC031 00267 15 FILLER PIC X(03) VALUE 'R '. DTSIC031 00268 15 FILLER PIC X(10) VALUE 'RCVRSHIP'. DTSIC031 00269 15 FILLER PIC X(40) DTSIC031 00270 VALUE 'RECEIVERSHIP'. DTSIC031 00271 15 FILLER PIC X(03) VALUE 'ASS'. DTSIC031 00272 15 FILLER PIC X(10) VALUE 'ASSOC'. DTSIC031 00273 15 FILLER PIC X(40) DTSIC031 00274 VALUE 'ASSOCIATION'. DTSIC031 00275 15 FILLER PIC X(03) VALUE 'NP '. DTSIC031 00276 15 FILLER PIC X(10) VALUE 'NON-PROFIT'. DTSIC031 00277 15 FILLER PIC X(40) DTSIC031 00278 VALUE 'NON-PROFIT'. DTSIC031 00279 15 FILLER PIC X(03) VALUE 'T/P'. DTSIC031 00280 15 FILLER PIC X(10) VALUE 'TRST/PENSN'. DTSIC031 00281 15 FILLER PIC X(40) DTSIC031 00282 VALUE 'TRUSTS/PENSIONS'. DTSIC031 00283 15 FILLER PIC X(03) VALUE 'ONG'. DTSIC031 00284 15 FILLER PIC X(10) VALUE 'OTHR NON-G'. DTSIC031 00285 15 FILLER PIC X(40) DTSIC031 00286 VALUE 'OTHER - NOT GOVERNMENT'. DTSIC031 00287 15 FILLER PIC X(03) VALUE 'ST '. DTSIC031 00288 15 FILLER PIC X(10) VALUE 'STATE GOVT'. DTSIC031 00289 15 FILLER PIC X(40) DTSIC031 00290 VALUE 'STATE GOVERNMENT'. DTSIC031 00291 15 FILLER PIC X(03) VALUE 'CO '. DTSIC031 00292 15 FILLER PIC X(10) VALUE 'CNTY GOVT'. DTSIC031 00293 15 FILLER PIC X(40) DTSIC031 00294 VALUE 'COUNTY GOVERNMENT'. DTSIC031 00295 15 FILLER PIC X(03) VALUE 'CTY'. DTSIC031 00296 15 FILLER PIC X(10) VALUE 'CITY GOVT'. DTSIC031 00297 15 FILLER PIC X(40) DTSIC031 00298 VALUE 'CITY GOVERNMENT'. DTSIC031 00299 15 FILLER PIC X(03) VALUE 'SCH'. DTSIC031 00300 15 FILLER PIC X(10) VALUE 'SCHOO DIST'. DTSIC031 00301 15 FILLER PIC X(40) DTSIC031 00302 VALUE 'SCHOOL DISTRICT'. DTSIC031 00303 15 FILLER PIC X(03) VALUE 'FG '. DTSIC031 00304 15 FILLER PIC X(10) VALUE 'FRGN GOVT'. DTSIC031 00305 15 FILLER PIC X(40) DTSIC031 00306 VALUE 'FOREIGN GOVERNMENT'. DTSIC031 00307 15 FILLER PIC X(03) VALUE 'OG '. DTSIC031 00308 15 FILLER PIC X(10) VALUE 'OTHER GOVT'. DTSIC031 00309 15 FILLER PIC X(40) DTSIC031 00310 VALUE 'OTHER GOVERNMENT'. DTSIC031 00311 15 FILLER PIC X(03) VALUE 'UNK'. DTSIC031 00312 15 FILLER PIC X(10) VALUE 'UNKNOWN'. DTSIC031 00313 15 FILLER PIC X(40) DTSIC031 00314 VALUE 'UNKNOWN'. DTSIC031 00315 15 FILLER PIC X(03) VALUE 'UNA'. DTSIC031 00316 15 FILLER PIC X(10) VALUE 'UINC ASSO'. DTSIC031 00317 15 FILLER PIC X(40) DTSIC031 00318 VALUE 'UNINCORPORATED ASSOCIATION'. DTSIC031 00319 15 FILLER PIC X(03) VALUE 'FIT'. DTSIC031 00320 15 FILLER PIC X(10) VALUE 'IND TRIBE'. DTSIC031 00321 15 FILLER PIC X(40) DTSIC031 00322 VALUE 'FED RECOGNIZED INDIAN TRIBES'. DTSIC031 00323 15 FILLER PIC X(03) VALUE 'OTH'. DTSIC031 00324 15 FILLER PIC X(10) VALUE 'OTHER '. DTSIC031 00325 15 FILLER PIC X(40) DTSIC031 00326 VALUE 'OTHER '. DTSIC031 00327 SKIP1 DTSIC031 00328 10 FILLER REDEFINES C031-04-AREA. DTSIC031 00329 15 C031-04-ENTRY OCCURS 24 TIMES DTSIC031 00330 INDEXED BY C031-04-IDX. DTSIC031 00331 20 C031-04-CD PIC X(03). DTSIC031 00332 20 C031-04-SHORT-DSCR PIC X(10). DTSIC031 00333 20 C031-04-LONG-DSCR PIC X(40). DTSIC031 00334 SKIP3 DTSIC031 00335 ***** DTSIC031 00336 * OPTION 05 = MPRF-FISCAL-AGENT-CD DTSIC031 00337 ***** DTSIC031 00338 10 C031-05-AREA. DTSIC031 00339 15 FILLER PIC X(03) VALUE ' '. DTSIC031 00340 15 FILLER PIC X(10) VALUE 'NO AGENT'. DTSIC031 00341 15 FILLER PIC X(40) DTSIC031 00342 VALUE 'NO ONE IS A FISCAL AGENT'. DTSIC031 00343 15 FILLER PIC X(03) VALUE 'ADV'. DTSIC031 00344 15 FILLER PIC X(10) VALUE 'ADVANTAGE'. DTSIC031 00345 15 FILLER PIC X(40) DTSIC031 00346 VALUE 'ADVANTAGE BUSINESS SERVICE'. DTSIC031 00347 15 FILLER PIC X(03) VALUE 'BAR'. DTSIC031 00348 15 FILLER PIC X(10) VALUE 'BARNETT'. DTSIC031 00349 15 FILLER PIC X(40) DTSIC031 00350 VALUE 'BARNETT ASSOC.'. DTSIC031 00351 15 FILLER PIC X(03) VALUE 'FP '. DTSIC031 00352 15 FILLER PIC X(10) VALUE 'FIRST PAY'. DTSIC031 00353 15 FILLER PIC X(40) DTSIC031 00354 VALUE 'FIRST PAY'. DTSIC031 00355 15 FILLER PIC X(03) VALUE 'JJ '. DTSIC031 00356 15 FILLER PIC X(10) VALUE 'JON JAY'. DTSIC031 00357 15 FILLER PIC X(40) DTSIC031 00358 VALUE 'JON JAY ASSOC.'. DTSIC031 00359 15 FILLER PIC X(03) VALUE 'PC '. DTSIC031 00360 15 FILLER PIC X(10) VALUE 'PAYCHEX'. DTSIC031 00361 15 FILLER PIC X(40) DTSIC031 00362 VALUE 'PAYCHEX'. DTSIC031 00363 15 FILLER PIC X(03) VALUE 'PA '. DTSIC031 00364 15 FILLER PIC X(10) VALUE 'PAY AMERCA'. DTSIC031 00365 15 FILLER PIC X(40) DTSIC031 00366 VALUE 'PAY AMERICA'. DTSIC031 00367 15 FILLER PIC X(03) VALUE 'PP '. DTSIC031 00368 15 FILLER PIC X(10) VALUE 'PRIME PAY'. DTSIC031 00369 15 FILLER PIC X(40) DTSIC031 00370 VALUE 'PRIME PAY'. DTSIC031 00371 15 FILLER PIC X(03) VALUE 'UC '. DTSIC031 00372 15 FILLER PIC X(10) VALUE 'UC'. DTSIC031 00373 15 FILLER PIC X(40) DTSIC031 00374 VALUE 'UC CONSULTANTS'. DTSIC031 00375 15 FILLER PIC X(03) VALUE 'SC '. DTSIC031 00376 15 FILLER PIC X(10) VALUE 'STAFF CNSL'. DTSIC031 00377 15 FILLER PIC X(40) DTSIC031 00378 VALUE 'STAFF CONSULTANTS'. DTSIC031 00379 15 FILLER PIC X(03) VALUE 'ADP'. DTSIC031 00380 15 FILLER PIC X(10) VALUE 'ADP'. DTSIC031 00381 15 FILLER PIC X(40) DTSIC031 00382 VALUE 'ADP'. DTSIC031 00383 15 FILLER PIC X(03) VALUE 'CD '. DTSIC031 00384 15 FILLER PIC X(10) VALUE 'CNTRL DATA'. DTSIC031 00385 15 FILLER PIC X(40) DTSIC031 00386 VALUE 'CONTROL DATA'. DTSIC031 00387 15 FILLER PIC X(03) VALUE 'REH'. DTSIC031 00388 15 FILLER PIC X(10) VALUE 'HARRINGTON'. DTSIC031 00389 15 FILLER PIC X(40) DTSIC031 00390 VALUE 'R E HARRINGTON'. DTSIC031 00391 15 FILLER PIC X(03) VALUE 'JF '. DTSIC031 00392 15 FILLER PIC X(10) VALUE 'J FRICK'. DTSIC031 00393 15 FILLER PIC X(40) DTSIC031 00394 VALUE 'JAMES FRICK'. DTSIC031 00395 15 FILLER PIC X(03) VALUE 'BA '. DTSIC031 00396 15 FILLER PIC X(10) VALUE 'BK AMERICA'. DTSIC031 00397 15 FILLER PIC X(40) DTSIC031 00398 VALUE 'BANK OF AMERICA'. DTSIC031 00399 15 FILLER PIC X(03) VALUE 'GM '. DTSIC031 00400 15 FILLER PIC X(10) VALUE 'G MCDONALD'. DTSIC031 00401 15 FILLER PIC X(40) DTSIC031 00402 VALUE 'GATES MCDONALD'. DTSIC031 00403 15 FILLER PIC X(03) VALUE 'GIB'. DTSIC031 00404 15 FILLER PIC X(10) VALUE 'GIBBENS'. DTSIC031 00405 15 FILLER PIC X(40) DTSIC031 00406 VALUE 'GIBBENS'. DTSIC031 00407 15 FILLER PIC X(03) VALUE 'EU '. DTSIC031 00408 15 FILLER PIC X(10) VALUE 'EMPR UNITY'. DTSIC031 00409 15 FILLER PIC X(40) DTSIC031 00410 VALUE 'EMPLOYERS UNITY'. DTSIC031 00411 15 FILLER PIC X(03) VALUE 'CER'. DTSIC031 00412 15 FILLER PIC X(10) VALUE 'CERIDAN'. DTSIC031 00413 15 FILLER PIC X(40) DTSIC031 00414 VALUE 'CERIDAN'. DTSIC031 00415 15 FILLER PIC X(03) VALUE 'STS'. DTSIC031 00416 15 FILLER PIC X(10) VALUE 'STS'. DTSIC031 00417 15 FILLER PIC X(40) DTSIC031 00418 VALUE 'STS'. DTSIC031 00419 15 FILLER PIC X(03) VALUE 'CIT'. DTSIC031 00420 15 FILLER PIC X(10) VALUE 'CITADEL'. DTSIC031 00421 15 FILLER PIC X(40) DTSIC031 00422 VALUE 'CITADEL'. DTSIC031 00423 15 FILLER PIC X(03) VALUE 'ACT'. DTSIC031 00424 15 FILLER PIC X(10) VALUE 'OTHER'. DTSIC031 00425 15 FILLER PIC X(40) DTSIC031 00426 VALUE 'OTHER ACCOUNTANT'. DTSIC031 00427 SKIP1 DTSIC031 00428 10 FILLER REDEFINES C031-05-AREA. DTSIC031 00429 15 C031-05-ENTRY OCCURS 22 TIMES DTSIC031 00430 INDEXED BY C031-05-IDX. DTSIC031 00431 20 C031-05-CD PIC X(03). DTSIC031 00432 20 C031-05-SHORT-DSCR PIC X(10). DTSIC031 00433 20 C031-05-LONG-DSCR PIC X(40). DTSIC031 00434 SKIP3 DTSIC031 00435 ***** DTSIC031 00436 * OPTION 10 = MERA-SOURCE-CD DTSIC031 00437 ***** DTSIC031 00438 10 C031-10-AREA. DTSIC031 00439 15 FILLER PIC X(02) VALUE '00'. DTSIC031 00440 15 FILLER PIC X(10) VALUE 'CNTRC CMPL'. DTSIC031 00441 15 FILLER PIC X(40) DTSIC031 00442 VALUE 'CONTRACT COMPLIANCE'. DTSIC031 00443 15 FILLER PIC X(02) VALUE '01'. DTSIC031 00444 15 FILLER PIC X(10) VALUE 'PHONE CALL'. DTSIC031 00445 15 FILLER PIC X(40) DTSIC031 00446 VALUE 'TELEPHONE CALL'. DTSIC031 00447 15 FILLER PIC X(02) VALUE '02'. DTSIC031 00448 15 FILLER PIC X(10) VALUE 'WRITTEN RQ'. DTSIC031 00449 15 FILLER PIC X(40) DTSIC031 00450 VALUE 'WRITTEN REQUEST'. DTSIC031 00451 15 FILLER PIC X(02) VALUE '03'. DTSIC031 00452 15 FILLER PIC X(10) VALUE 'VOLUNTARY'. DTSIC031 00453 15 FILLER PIC X(40) DTSIC031 00454 VALUE 'VOLUNTARY REGISTRATION'. DTSIC031 00455 15 FILLER PIC X(02) VALUE '04'. DTSIC031 00456 15 FILLER PIC X(10) VALUE 'UC-30 PRED'. DTSIC031 00457 15 FILLER PIC X(40) DTSIC031 00458 VALUE 'UC-30 OF PREDECESSOR'. DTSIC031 00459 15 FILLER PIC X(02) VALUE '05'. DTSIC031 00460 15 FILLER PIC X(10) VALUE 'BEN REQST'. DTSIC031 00461 15 FILLER PIC X(40) DTSIC031 00462 VALUE 'REQUEST FROM BENEFITS (193)'. DTSIC031 00463 15 FILLER PIC X(02) VALUE '06'. DTSIC031 00464 15 FILLER PIC X(10) VALUE '940 CERT'. DTSIC031 00465 15 FILLER PIC X(40) DTSIC031 00466 VALUE '940 CERTIFICATION'. DTSIC031 00467 15 FILLER PIC X(02) VALUE '07'. DTSIC031 00468 15 FILLER PIC X(10) VALUE 'UNION HALL'. DTSIC031 00469 15 FILLER PIC X(40) DTSIC031 00470 VALUE 'UNION HALL'. DTSIC031 00471 15 FILLER PIC X(02) VALUE '08'. DTSIC031 00472 15 FILLER PIC X(10) VALUE 'FIELD REP'. DTSIC031 00473 15 FILLER PIC X(40) DTSIC031 00474 VALUE 'FIELD REPRESENTATIVE'. DTSIC031 00475 15 FILLER PIC X(02) VALUE '09'. DTSIC031 00476 15 FILLER PIC X(10) VALUE 'FOLLOW UP'. DTSIC031 00477 15 FILLER PIC X(40) DTSIC031 00478 VALUE 'FOLLOW UP'. DTSIC031 00479 15 FILLER PIC X(02) VALUE '10'. DTSIC031 00480 15 FILLER PIC X(10) VALUE 'DEPT REV'. DTSIC031 00481 15 FILLER PIC X(40) DTSIC031 00482 VALUE 'DEPARTMENT OF REVENUE'. DTSIC031 00483 15 FILLER PIC X(02) VALUE '11'. DTSIC031 00484 15 FILLER PIC X(10) VALUE 'WORKR COMP'. DTSIC031 00485 15 FILLER PIC X(40) DTSIC031 00486 VALUE 'WORKERS COMPENSATION LIST'. DTSIC031 00487 15 FILLER PIC X(02) VALUE '12'. DTSIC031 00488 15 FILLER PIC X(10) VALUE 'LIQ LICENS'. DTSIC031 00489 15 FILLER PIC X(40) DTSIC031 00490 VALUE 'LIQUOR LICENSE LIST'. DTSIC031 00491 15 FILLER PIC X(02) VALUE '13'. DTSIC031 00492 15 FILLER PIC X(10) VALUE 'FEIN LIST'. DTSIC031 00493 15 FILLER PIC X(40) DTSIC031 00494 VALUE 'FEIN LIST'. DTSIC031 00495 15 FILLER PIC X(02) VALUE '14'. DTSIC031 00496 15 FILLER PIC X(10) VALUE 'UC-30 RCVD'. DTSIC031 00497 15 FILLER PIC X(40) DTSIC031 00498 VALUE 'UC-30 RECEIVED UNSOLICITED'. DTSIC031 00499 15 FILLER PIC X(02) VALUE '15'. DTSIC031 00500 15 FILLER PIC X(10) VALUE 'UC-30 SYS '. DTSIC031 00501 15 FILLER PIC X(40) DTSIC031 00502 VALUE 'UC-30 PROCESSED BY SYSTEM '. DTSIC031 00503 15 FILLER PIC X(02) VALUE '16'. DTSIC031 00504 15 FILLER PIC X(10) VALUE 'FISC AGENT'. DTSIC031 00505 15 FILLER PIC X(40) DTSIC031 00506 VALUE 'REGISTRATION FROM FISCAL AGENT'. DTSIC031 00507 15 FILLER PIC X(02) VALUE '17'. DTSIC031 00508 15 FILLER PIC X(10) VALUE 'WEB REGIST'. DTSIC031 00509 15 FILLER PIC X(40) DTSIC031 00510 VALUE 'REGISTRATION FROM WEB '. DTSIC031 00511 15 FILLER PIC X(02) VALUE '18'. DTSIC031 00512 15 FILLER PIC X(10) VALUE 'WEB PRED '. DTSIC031 00513 15 FILLER PIC X(40) DTSIC031 00514 VALUE 'PRED REGISTRATION FROM WEB '. DTSIC031 00515 15 FILLER PIC X(02) VALUE '19'. DTSIC031 00516 15 FILLER PIC X(10) VALUE 'WEB SUCC '. DTSIC031 00517 15 FILLER PIC X(40) DTSIC031 00518 VALUE 'SUCC REGISTRATION FROM WEB '. DTSIC031 00519 15 FILLER PIC X(02) VALUE '98'. DTSIC031 00520 15 FILLER PIC X(10) VALUE 'OTHER'. DTSIC031 00521 15 FILLER PIC X(40) DTSIC031 00522 VALUE 'OTHER'. DTSIC031 00523 15 FILLER PIC X(02) VALUE '99'. DTSIC031 00524 15 FILLER PIC X(10) VALUE 'UNKNOWN'. DTSIC031 00525 15 FILLER PIC X(40) DTSIC031 00526 VALUE 'UNKNOWN'. DTSIC031 00527 15 FILLER PIC X(02) VALUE 'NA'. DTSIC031 00528 15 FILLER PIC X(10) VALUE 'NO CYCLE A'. DTSIC031 00529 15 FILLER PIC X(40) DTSIC031 00530 VALUE 'NO CYCLE A'. DTSIC031 00531 SKIP1 DTSIC031 00532 10 FILLER REDEFINES C031-10-AREA. DTSIC031 00533 15 C031-10-ENTRY OCCURS 23 TIMES DTSIC031 00534 INDEXED BY C031-10-IDX. DTSIC031 00535 20 C031-10-CD PIC X(02). DTSIC031 00536 20 C031-10-SHORT-DSCR PIC X(10). DTSIC031 00537 20 C031-10-LONG-DSCR PIC X(40). DTSIC031 00538 SKIP3 DTSIC031 00539 ***** DTSIC031 00540 * OPTION 11 = MERA-STATUS-CD DTSIC031 00541 ***** DTSIC031 00542 10 C031-11-AREA. DTSIC031 00543 15 FILLER PIC X(02) VALUE '00'. DTSIC031 00544 15 FILLER PIC X(10) VALUE 'SETUP'. DTSIC031 00545 15 FILLER PIC X(40) DTSIC031 00546 VALUE 'SETUP'. DTSIC031 00547 15 FILLER PIC X(02) VALUE '01'. DTSIC031 00548 15 FILLER PIC X(10) VALUE '1ST LT SNT'. DTSIC031 00549 15 FILLER PIC X(40) DTSIC031 00550 VALUE 'FIRST LETTER SENT'. DTSIC031 00551 15 FILLER PIC X(02) VALUE '02'. DTSIC031 00552 15 FILLER PIC X(10) VALUE '2ND LT SNT'. DTSIC031 00553 15 FILLER PIC X(40) DTSIC031 00554 VALUE 'SECOND LETTER SENT'. DTSIC031 00555 15 FILLER PIC X(02) VALUE '05'. DTSIC031 00556 15 FILLER PIC X(10) VALUE 'COOP AGNCY'. DTSIC031 00557 15 FILLER PIC X(40) DTSIC031 00558 VALUE 'LTR TO COOP (OUT OF STATE) AGENCY SENT'. DTSIC031 00559 15 FILLER PIC X(02) VALUE '06'. DTSIC031 00560 15 FILLER PIC X(10) VALUE 'FLD ASSIGN'. DTSIC031 00561 15 FILLER PIC X(40) DTSIC031 00562 VALUE 'FIELD ASSIGNMENT GENERATED'. DTSIC031 00563 15 FILLER PIC X(02) VALUE '09'. DTSIC031 00564 15 FILLER PIC X(10) VALUE 'MANUAL'. DTSIC031 00565 15 FILLER PIC X(40) DTSIC031 00566 VALUE 'CYCLE IS UNDER MANUAL CONTROL'. DTSIC031 00567 15 FILLER PIC X(02) VALUE '11'. DTSIC031 00568 15 FILLER PIC X(10) VALUE 'ER FRM RCV'. DTSIC031 00569 15 FILLER PIC X(40) DTSIC031 00570 VALUE 'EMPLOYER REGISTRATION FORM RECEIVED'. DTSIC031 00571 15 FILLER PIC X(02) VALUE '12'. DTSIC031 00572 15 FILLER PIC X(10) VALUE 'HOLD'. DTSIC031 00573 15 FILLER PIC X(40) DTSIC031 00574 VALUE 'HOLD - TAKE NO ACTION'. DTSIC031 00575 15 FILLER PIC X(02) VALUE '13'. DTSIC031 00576 15 FILLER PIC X(10) VALUE 'NOT ACTIVE'. DTSIC031 00577 15 FILLER PIC X(40) DTSIC031 00578 VALUE 'CYCLE "A" NOT ACTIVE'. DTSIC031 00579 15 FILLER PIC X(02) VALUE '21'. DTSIC031 00580 15 FILLER PIC X(10) VALUE 'NOT LIABLE'. DTSIC031 00581 15 FILLER PIC X(40) DTSIC031 00582 VALUE 'MOST RECENT DETERMINATION: NOT LIABLE'. DTSIC031 00583 15 FILLER PIC X(02) VALUE '31'. DTSIC031 00584 15 FILLER PIC X(10) VALUE 'FND LIABLE'. DTSIC031 00585 15 FILLER PIC X(40) DTSIC031 00586 VALUE 'MOST RECENT DETERMINATION: LIABLE'. DTSIC031 00587 SKIP1 DTSIC031 00588 10 FILLER REDEFINES C031-11-AREA. DTSIC031 00589 15 C031-11-ENTRY OCCURS 11 TIMES DTSIC031 00590 INDEXED BY C031-11-IDX. DTSIC031 00591 20 C031-11-CD PIC X(02). DTSIC031 00592 20 C031-11-SHORT-DSCR PIC X(10). DTSIC031 00593 20 C031-11-LONG-DSCR PIC X(40). DTSIC031 00594 SKIP3 DTSIC031 00595 ***** DTSIC031 00596 * OPTION 12 = MERA-LETTER-1-CD DTSIC031 00597 ***** DTSIC031 00598 10 C031-12-AREA. DTSIC031 00599 15 FILLER PIC X(02) VALUE '01'. DTSIC031 00600 15 FILLER PIC X(10) VALUE 'GENERIC'. DTSIC031 00601 15 FILLER PIC X(40) DTSIC031 00602 VALUE 'GENERIC'. DTSIC031 00603 15 FILLER PIC X(02) VALUE '02'. DTSIC031 00604 15 FILLER PIC X(10) VALUE 'EMPLYR REQ'. DTSIC031 00605 15 FILLER PIC X(40) DTSIC031 00606 VALUE 'EMPLOYER REQUESTED'. DTSIC031 00607 15 FILLER PIC X(02) VALUE '04'. DTSIC031 00608 15 FILLER PIC X(10) VALUE 'UC-30 RCVD'. DTSIC031 00609 15 FILLER PIC X(40) DTSIC031 00610 VALUE 'UC-30 RECEIVED'. DTSIC031 00611 15 FILLER PIC X(02) VALUE '05'. DTSIC031 00612 15 FILLER PIC X(10) VALUE 'CLMNT WGES'. DTSIC031 00613 15 FILLER PIC X(40) DTSIC031 00614 VALUE 'CLAIMANT WAGES'. DTSIC031 00615 SKIP1 DTSIC031 00616 10 FILLER REDEFINES C031-12-AREA. DTSIC031 00617 15 C031-12-ENTRY OCCURS 4 TIMES DTSIC031 00618 INDEXED BY C031-12-IDX. DTSIC031 00619 20 C031-12-CD PIC X(02). DTSIC031 00620 20 C031-12-SHORT-DSCR PIC X(10). DTSIC031 00621 20 C031-12-LONG-DSCR PIC X(40). DTSIC031 00622 SKIP3 DTSIC031 00623 ***** DTSIC031 00624 * OPTION 17 = MREL-RELATIONSHIP-CD DTSIC031 00625 ***** DTSIC031 00626 10 C031-17-AREA. DTSIC031 00627 15 FILLER PIC X(02) VALUE '01'. DTSIC031 00628 15 FILLER PIC X(10) VALUE 'CHNG OWNER'. DTSIC031 00629 15 FILLER PIC X(40) DTSIC031 00630 VALUE 'CHANGE OF OWNERSHIP'. DTSIC031 00631 15 FILLER PIC X(02) VALUE '02'. DTSIC031 00632 15 FILLER PIC X(10) VALUE 'ACQUIRED'. DTSIC031 00633 15 FILLER PIC X(40) DTSIC031 00634 VALUE 'ACQUIRED'. DTSIC031 00635 15 FILLER PIC X(02) VALUE '03'. DTSIC031 00636 15 FILLER PIC X(10) VALUE 'MERGER'. DTSIC031 00637 15 FILLER PIC X(40) DTSIC031 00638 VALUE 'MERGER'. DTSIC031 00639 15 FILLER PIC X(02) VALUE '04'. DTSIC031 00640 15 FILLER PIC X(10) VALUE 'INCORPORAT'. DTSIC031 00641 15 FILLER PIC X(40) DTSIC031 00642 VALUE 'INCORPORATED'. DTSIC031 00643 15 FILLER PIC X(02) VALUE '05'. DTSIC031 00644 15 FILLER PIC X(10) VALUE 'SPLIT'. DTSIC031 00645 15 FILLER PIC X(40) DTSIC031 00646 VALUE 'SPLIT'. DTSIC031 00647 15 FILLER PIC X(02) VALUE '08'. DTSIC031 00648 15 FILLER PIC X(10) VALUE 'REG ->REIM'. DTSIC031 00649 15 FILLER PIC X(40) DTSIC031 00650 VALUE 'REGULAR TO REIMBURSING'. DTSIC031 00651 15 FILLER PIC X(02) VALUE '09'. DTSIC031 00652 15 FILLER PIC X(10) VALUE 'REIM ->REG'. DTSIC031 00653 15 FILLER PIC X(40) DTSIC031 00654 VALUE 'REIMBURSING TO REGULAR'. DTSIC031 00655 15 FILLER PIC X(02) VALUE '96'. DTSIC031 00656 15 FILLER PIC X(10) VALUE 'EXP RAT VD'. DTSIC031 00657 15 FILLER PIC X(40) DTSIC031 00658 VALUE 'EXPERIENCE RATING RECORD VOID'. DTSIC031 00659 15 FILLER PIC X(02) VALUE '97'. DTSIC031 00660 15 FILLER PIC X(10) VALUE 'EXP RAT TR'. DTSIC031 00661 15 FILLER PIC X(40) DTSIC031 00662 VALUE 'EXPERIENCE RATING RECORD TRANSFERRED'. DTSIC031 00663 15 FILLER PIC X(02) VALUE '98'. DTSIC031 00664 15 FILLER PIC X(10) VALUE 'OTHER'. DTSIC031 00665 15 FILLER PIC X(40) DTSIC031 00666 VALUE 'OTHER'. DTSIC031 00667 15 FILLER PIC X(02) VALUE '99'. DTSIC031 00668 15 FILLER PIC X(10) VALUE 'UNKNOWN'. DTSIC031 00669 15 FILLER PIC X(40) DTSIC031 00670 VALUE 'UNKNOWN'. DTSIC031 00671 SKIP1 DTSIC031 00672 10 FILLER REDEFINES C031-17-AREA. DTSIC031 00673 15 C031-17-ENTRY OCCURS 11 TIMES DTSIC031 00674 INDEXED BY C031-17-IDX. DTSIC031 00675 20 C031-17-CD PIC X(02). DTSIC031 00676 20 C031-17-SHORT-DSCR PIC X(10). DTSIC031 00677 20 C031-17-LONG-DSCR PIC X(40). DTSIC031 00678 SKIP3 DTSIC031 00679 ***** DTSIC031 00680 * OPTION 18 = MREL-SUTA-DUMPING-CD DTSIC031 00681 ***** DTSIC031 00682 10 C031-18-AREA. DTSIC031 00683 15 FILLER PIC X(01) VALUE 'M'. DTSIC031 00684 15 FILLER PIC X(10) VALUE 'MANDATORY '. DTSIC031 00685 15 FILLER PIC X(40) DTSIC031 00686 VALUE 'SUTA DUMPING: MANDATORY TRANSFER'. DTSIC031 00687 15 FILLER PIC X(01) VALUE 'P'. DTSIC031 00688 15 FILLER PIC X(10) VALUE 'PROHIBITED'. DTSIC031 00689 15 FILLER PIC X(40) DTSIC031 00690 VALUE 'SUTA DUMPING: PROHIBITED TRANSFER'. DTSIC031 00691 DTSIC031 00692 10 FILLER REDEFINES C031-18-AREA. DTSIC031 00693 15 C031-18-ENTRY OCCURS 2 TIMES DTSIC031 00694 INDEXED BY C031-18-IDX. DTSIC031 00695 20 C031-18-CD PIC X(02). DTSIC031 00696 20 C031-18-SHORT-DSCR PIC X(10). DTSIC031 00697 20 C031-18-LONG-DSCR PIC X(40). DTSIC031 00698 ***** DTSIC031 00699 * OPTION 22 = MSOL-LIAB-CD DTSIC031 00700 ***** DTSIC031 00701 10 C031-22-AREA. DTSIC031 00702 15 FILLER PIC X(02) VALUE '01'. DTSIC031 00703 15 FILLER PIC X(10) VALUE 'REGULAR'. DTSIC031 00704 15 FILLER PIC X(40) DTSIC031 00705 VALUE 'REGULAR'. DTSIC031 00706 15 FILLER PIC X(02) VALUE '02'. DTSIC031 00707 15 FILLER PIC X(10) VALUE 'NON-PROFIT'. DTSIC031 00708 15 FILLER PIC X(40) DTSIC031 00709 VALUE 'NON-PROFIT'. DTSIC031 00710 15 FILLER PIC X(02) VALUE '04'. DTSIC031 00711 15 FILLER PIC X(10) VALUE 'DOMESTIC'. DTSIC031 00712 15 FILLER PIC X(40) DTSIC031 00713 VALUE 'HOUSEHOLD/DOMESTIC'. DTSIC031 00714 15 FILLER PIC X(02) VALUE '05'. DTSIC031 00715 15 FILLER PIC X(10) VALUE 'SUCCESSOR'. DTSIC031 00716 15 FILLER PIC X(40) DTSIC031 00717 VALUE 'SUCCESSOR'. DTSIC031 00718 15 FILLER PIC X(02) VALUE '06'. DTSIC031 00719 15 FILLER PIC X(10) VALUE 'FUTA'. DTSIC031 00720 15 FILLER PIC X(40) DTSIC031 00721 VALUE 'FUTA'. DTSIC031 00722 15 FILLER PIC X(02) VALUE '07'. DTSIC031 00723 15 FILLER PIC X(10) VALUE 'FRGN GOVT'. DTSIC031 00724 15 FILLER PIC X(40) DTSIC031 00725 VALUE 'FOREIGN GOVERNMENT'. DTSIC031 00726 15 FILLER PIC X(02) VALUE '08'. DTSIC031 00727 15 FILLER PIC X(10) VALUE 'REG VOLUN'. DTSIC031 00728 15 FILLER PIC X(40) DTSIC031 00729 VALUE 'REGULAR: VOLUNTARY ELECTION'. DTSIC031 00730 15 FILLER PIC X(02) VALUE '09'. DTSIC031 00731 15 FILLER PIC X(10) VALUE 'REG OTHER'. DTSIC031 00732 15 FILLER PIC X(40) DTSIC031 00733 VALUE 'REGULAR: OTHER'. DTSIC031 00734 15 FILLER PIC X(02) VALUE '10'. DTSIC031 00735 15 FILLER PIC X(10) VALUE 'REG CVRTD'. DTSIC031 00736 15 FILLER PIC X(40) DTSIC031 00737 VALUE 'REGULAR: CONVERTED (UNKNOWN)'. DTSIC031 00738 15 FILLER PIC X(02) VALUE '11'. DTSIC031 00739 15 FILLER PIC X(10) VALUE 'REG UNKNW'. DTSIC031 00740 15 FILLER PIC X(40) DTSIC031 00741 VALUE 'REGULAR: UNKNOWN'. DTSIC031 00742 DTSIC031 00743 15 FILLER PIC X(02) VALUE '21'. DTSIC031 00744 15 FILLER PIC X(10) VALUE 'SLF SCHOOL'. DTSIC031 00745 15 FILLER PIC X(40) DTSIC031 00746 VALUE 'SELF INSURED: SCHOOL DISTRICT'. DTSIC031 00747 15 FILLER PIC X(02) VALUE '22'. DTSIC031 00748 15 FILLER PIC X(10) VALUE 'SELF CITY'. DTSIC031 00749 15 FILLER PIC X(40) DTSIC031 00750 VALUE 'SELF INSURED: CITY'. DTSIC031 00751 15 FILLER PIC X(02) VALUE '23'. DTSIC031 00752 15 FILLER PIC X(10) VALUE 'SELF CNTY'. DTSIC031 00753 15 FILLER PIC X(40) DTSIC031 00754 VALUE 'SELF INSURED: COUNTY'. DTSIC031 00755 15 FILLER PIC X(02) VALUE '24'. DTSIC031 00756 15 FILLER PIC X(10) VALUE 'SELF STATE'. DTSIC031 00757 15 FILLER PIC X(40) DTSIC031 00758 VALUE 'SELF INSURED: STATE'. DTSIC031 00759 15 FILLER PIC X(02) VALUE '25'. DTSIC031 00760 15 FILLER PIC X(10) VALUE 'CHURCH'. DTSIC031 00761 15 FILLER PIC X(40) DTSIC031 00762 VALUE 'CHURCH'. DTSIC031 00763 15 FILLER PIC X(02) VALUE '26'. DTSIC031 00764 15 FILLER PIC X(10) VALUE 'NON-PROFIT'. DTSIC031 00765 15 FILLER PIC X(40) DTSIC031 00766 VALUE 'NON-PROFIT'. DTSIC031 00767 15 FILLER PIC X(02) VALUE '27'. DTSIC031 00768 15 FILLER PIC X(10) VALUE 'SELF OTHER'. DTSIC031 00769 15 FILLER PIC X(40) DTSIC031 00770 VALUE 'SELF INSURED: OTHER'. DTSIC031 00771 15 FILLER PIC X(02) VALUE '28'. DTSIC031 00772 15 FILLER PIC X(10) VALUE 'SELF CVRTD'. DTSIC031 00773 15 FILLER PIC X(40) DTSIC031 00774 VALUE 'SELF INSURED: CONVERTED (UNKNOWN)'. DTSIC031 00775 15 FILLER PIC X(02) VALUE '29'. DTSIC031 00776 15 FILLER PIC X(10) VALUE 'SELF UNKNW'. DTSIC031 00777 15 FILLER PIC X(40) DTSIC031 00778 VALUE 'SELF INSURED: UNKNOWN'. DTSIC031 00779 15 FILLER PIC X(02) VALUE '30'. DTSIC031 00780 15 FILLER PIC X(10) VALUE 'SELF VOLUN'. DTSIC031 00781 15 FILLER PIC X(40) DTSIC031 00782 VALUE 'SELF INSURED: VOLUNTARY ELECTION'. DTSIC031 00783 SKIP1 DTSIC031 00784 10 FILLER REDEFINES C031-22-AREA. DTSIC031 00785 15 C031-22-ENTRY OCCURS 20 TIMES DTSIC031 00786 INDEXED BY C031-22-IDX. DTSIC031 00787 20 C031-22-CD PIC X(02). DTSIC031 00788 20 C031-22-SHORT-DSCR PIC X(10). DTSIC031 00789 20 C031-22-LONG-DSCR PIC X(40). DTSIC031 00790 SKIP3 DTSIC031 00791 ***** DTSIC031 00792 * OPTION 23 = MSOL-INACT-CD DTSIC031 00793 ***** DTSIC031 00794 10 C031-23-AREA. DTSIC031 00795 15 FILLER PIC X(02) VALUE ' '. DTSIC031 00796 15 FILLER PIC X(10) VALUE 'ACTIVE'. DTSIC031 00797 15 FILLER PIC X(40) DTSIC031 00798 VALUE 'SPAN IS ACTIVE'. DTSIC031 00799 15 FILLER PIC X(02) VALUE '01'. DTSIC031 00800 15 FILLER PIC X(10) VALUE 'ADMIN OUT'. DTSIC031 00801 15 FILLER PIC X(40) DTSIC031 00802 VALUE 'ADMINISTRATIVELY OUT OF BUSINESS'. DTSIC031 00803 15 FILLER PIC X(02) VALUE '02'. DTSIC031 00804 15 FILLER PIC X(10) VALUE 'OUT OF BUS'. DTSIC031 00805 15 FILLER PIC X(40) DTSIC031 00806 VALUE 'OUT OF BUSINESS'. DTSIC031 00807 15 FILLER PIC X(02) VALUE '04'. DTSIC031 00808 15 FILLER PIC X(10) VALUE 'WTHDWN DUP'. DTSIC031 00809 15 FILLER PIC X(40) DTSIC031 00810 VALUE 'WITHDRAWN - DUPLICATE ACCOUNT'. DTSIC031 00811 15 FILLER PIC X(02) VALUE '05'. DTSIC031 00812 15 FILLER PIC X(10) VALUE 'WTHDWN CAN'. DTSIC031 00813 15 FILLER PIC X(40) DTSIC031 00814 VALUE 'WITHDRAWN - CANCELED ACCOUNT'. DTSIC031 00815 15 FILLER PIC X(02) VALUE '06'. DTSIC031 00816 15 FILLER PIC X(10) VALUE 'SUCCEEDED'. DTSIC031 00817 15 FILLER PIC X(40) DTSIC031 00818 VALUE 'SUCCEEDED'. DTSIC031 00819 15 FILLER PIC X(02) VALUE '07'. DTSIC031 00820 15 FILLER PIC X(10) VALUE 'PAY METHOD'. DTSIC031 00821 15 FILLER PIC X(40) DTSIC031 00822 VALUE 'CHANGED METHOD OF PAYMENT'. DTSIC031 00823 SKIP1 DTSIC031 00824 10 FILLER REDEFINES C031-23-AREA. DTSIC031 00825 15 C031-23-ENTRY OCCURS 7 TIMES DTSIC031 00826 INDEXED BY C031-23-IDX. DTSIC031 00827 20 C031-23-CD PIC X(02). DTSIC031 00828 20 C031-23-SHORT-DSCR PIC X(10). DTSIC031 00829 20 C031-23-LONG-DSCR PIC X(40). DTSIC031