830 lines
66 KiB
COBOL
830 lines
66 KiB
COBOL
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
|