DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
829
Copybook/DTSIC031.cpy
Normal file
829
Copybook/DTSIC031.cpy
Normal file
@ -0,0 +1,829 @@
|
||||
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
|
||||
Reference in New Issue
Block a user