00001 ***** 12/08/21 00002 * DTSIMPRF 00003 * DTSIMPRF MASTER FILE 'EMPLOYER PROFILE' RECORD DEFINITION. LV050 00004 * DTSIMPRF 00005 * DTSIMPRF 00006 * 08/28/1998 REVIEWED AND MODIFIED FOR DC. EHH DTSIMPRF 00007 * 09/14/2005 ADDED S-CORPORATION OR ORG TYPE GD DTSIMPRF 00008 * 10/24/2005 ADDED RETURN MAIL INDICATOR ZL1 DTSIMPRF 00009 * 02/26/2009 ADDED FAC ELIGIBILITY CODE GD DTSIMPRF 00010 * 07/14/2009 ADDED AB AND DEPENDENCY DTSIMPRF 00011 * ELIGIBILITY CODES GD DTSIMPRF 00012 * 07/15/2009 ADDED POWER OF ATTORNEY RECEIVED DTSIMPRF 00013 * DATE GD DTSIMPRF 00014 * 07/30/2009 ADDED TRAINING EXTENSTION BEN PROG DTSIMPRF 00015 * ELIGIBILITY CODE GD DTSIMPRF 00016 * 11/17/2009 ADDED EUC TIER 3 AND TIER 4 DTSIMPRF 00017 * ELIGIBILITY CODES GD DTSIMPRF 00018 * 03/31/2010 ADDED SPECIAL PAYMENTS DTSIMPRF 00019 * ELIGIBILITY CODE GD DTSIMPRF 00020 * DTSIMPRF 00021 * 03/18/2013 ADDED STC ELIGIBILITY CODE GD DTSIMPRF 00022 * DTSIMPRF 00023 * DTSIMPRF 00024 * 09/25/2014 REPLACED STC ELIGIBILITY CODE ZL1 DTSIMPRF 00025 * 09/25/2014 ADDED UCPIA ELIGIBILITY CODE ZL1 DTSIMPRF 00026 * 03/13/2015 ADDED DISASTER UNEMPLOYMENT ADMIN DTSIMPRF 00027 * ELIGIBILITY CODE(NON-CHARGING) ZL1 DTSIMPRF 00028 * 03/13/2015 ADDED GENERAL PURPOSE ACCOUNT DTSIMPRF 00029 * ELIG CODE (NON-CHARGING) ZL1 DTSIMPRF 00030 * 04/03/2015 CODE 30 ALREADY USED IN DOCS DTSIMPRF 00031 * USING 31 ELIG CODE (NON-CHARGING) ZL1 DTSIMPRF 00032 * 09/15/2015 ADDED NEW ORG CODE FROM ESSP DTSIMPRF 00033 * UNA FIT AND OTH ZL1 DTSIMPRF 00034 ***** DTSIMPRF 00035 * 04/07/2020 ADDED NEW CODE FPUC AND FRUR DTSIMPRF 00036 * FOR PANDEMIC CHARGING ZL1 DTSIMPRF 00037 * 04/24/2020 ADDED NEW CODE PEUC DTSIMPRF 00038 * FOR PANDEMIC CHARGING ZL1 DTSIMPRF 00039 * 05/08/2020 ADDED NEW CODE REUR DTSIMPRF 00040 * FOR PANDEMIC CHARGING ZL1 DTSIMPRF 00041 * 09/02/2020 ADDED NEW CODE LWA DTSIMPRF 00042 * FOR PANDEMIC CHARGING ZL1 DTSIMPRF 00043 * DTSIMPRF 00044 * 02/16/2021 ADDED NEW CODE MEUC DTSIMPRF 00045 * FOR PANDEMIC CHARGING ZL1 DTSIMPRF 00046 ***** DTSIMPRF 00047 * 12/06/2021 ADDED NEW CODE DUC DTSIMPRF 00048 * FOR PANDEMIC CHARGING ZL1 DTSIMPRF 00049 ***** DTSIMPRF 00050 DTSIMPRF 00051 10 MPRF-KEY-AREA. DTSIMPRF 00052 15 MPRF-EMP-NO PIC S9(07) COMP-3. DTSIMPRF 00053 15 MPRF-REC-TYPE PIC S9(04) COMP. DTSIMPRF 00054 88 MPRF-PRF-88 VALUE +02. DTSIMPRF 00055 15 MPRF-KEY-FILLER PIC X(10). DTSIMPRF 00056 DTSIMPRF 00057 DTSIMPRF 00058 10 MPRF-PURGE-DATE PIC S9(09) COMP-3. DTSIMPRF 00059 DTSIMPRF 00060 DTSIMPRF 00061 10 MPRF-DATA-AREA. DTSIMPRF 00062 15 MPRF-EMP-CLASS PIC X(01). DTSIMPRF 00063 88 MPRF-CLASS-CHG-ONLY-88 VALUE 'C'. DTSIMPRF 00064 88 MPRF-CLASS-RATED-88 VALUE 'R'. DTSIMPRF 00065 88 MPRF-CLASS-SELF-INS-88 VALUE 'S'. DTSIMPRF 00066 88 MPRF-CLASS-UNK-88 VALUE 'U'. DTSIMPRF 00067 88 MPRF-CLASS-SUB-88 VALUE 'R' 'S'. DTSIMPRF 00068 DTSIMPRF 00069 15 MPRF-EMP-STATUS PIC X(01). DTSIMPRF 00070 88 MPRF-STATUS-ACT-88 VALUE 'A'. DTSIMPRF 00071 88 MPRF-STATUS-INACT-88 VALUE 'I'. DTSIMPRF 00072 88 MPRF-STATUS-NEVERSUB-88 VALUE 'N'. DTSIMPRF 00073 88 MPRF-STATUS-UNK-88 VALUE 'U'. DTSIMPRF 00074 88 MPRF-STATUS-SUB-88 VALUE 'A' 'I'. DTSIMPRF 00075 DTSIMPRF 00076 15 MPRF-ELIGIBLE-CD PIC S9(03) COMP-3. DTSIMPRF 00077 88 MPRF-ELIGIBLE-RATED-88 VALUE +00. DTSIMPRF 00078 88 MPRF-ELIGIBLE-UCX-88 VALUE +01. DTSIMPRF 00079 88 MPRF-ELIGIBLE-UCFE-88 VALUE +02. DTSIMPRF 00080 88 MPRF-ELIGIBLE-INTERSTATE-88 VALUE +04. DTSIMPRF 00081 88 MPRF-ELIGIBLE-VOL-QUIT-88 VALUE +05. DTSIMPRF 00082 88 MPRF-ELIGIBLE-MISCONDUCT-88 VALUE +06. DTSIMPRF 00083 88 MPRF-ELIGIBLE-EB-88 VALUE +07. DTSIMPRF 00084 88 MPRF-ELIGIBLE-SELF-INS-88 VALUE +08. DTSIMPRF 00085 88 MPRF-ELIGIBLE-TRA-88 VALUE +09. DTSIMPRF 00086 88 MPRF-ELIGIBLE-DC-GOV-88 VALUE +10. DTSIMPRF 00087 88 MPRF-ELIGIBLE-NOT-SUBJECT-88 VALUE +13. DTSIMPRF 00088 88 MPRF-ELIGIBLE-CONT-EMPLMT-88 VALUE +15. DTSIMPRF 00089 88 MPRF-ELIGIBLE-TEUC-88 VALUE +16. DTSIMPRF 00090 88 MPRF-ELIGIBLE-DOM-VIOLNCE-88 VALUE +17. DTSIMPRF 00091 88 MPRF-ELIGIBLE-ED-STPLADDR-88 VALUE +18. DTSIMPRF 00092 88 MPRF-ELIGIBLE-EUC08-88 VALUE +19. DTSIMPRF 00093 88 MPRF-ELIGIBLE-FAC-88 VALUE +20. DTSIMPRF 00094 88 MPRF-ELIGIBLE-AB-88 VALUE +21. DTSIMPRF 00095 88 MPRF-ELIGIBLE-DEPENDENTS-88 VALUE +22. DTSIMPRF 00096 88 MPRF-ELIGIBLE-TRAINING-88 VALUE +23. DTSIMPRF 00097 88 MPRF-ELIGIBLE-EUC08-2PLUS-88 VALUE +24. DTSIMPRF 00098 88 MPRF-ELIGIBLE-EUC08-TIER3-88 VALUE +25. DTSIMPRF 00099 88 MPRF-ELIGIBLE-EUC08-TIER4-88 VALUE +26. DTSIMPRF 00100 88 MPRF-ELIGIBLE-SPECIAL-PAY-88 VALUE +27. DTSIMPRF 00101 88 MPRF-ELIGIBLE-UCPIA-88 VALUE +28. DTSIMPRF 00102 88 MPRF-ELIGIBLE-DUA-88 VALUE +29. DTSIMPRF 00103 88 MPRF-ELIGIBLE-GPA-88 VALUE +31. DTSIMPRF 00104 88 MPRF-ELIGIBLE-FPUC-88 VALUE +32. DTSIMPRF 00105 88 MPRF-ELIGIBLE-FRUR-88 VALUE +33. DTSIMPRF 00106 88 MPRF-ELIGIBLE-PEUC-88 VALUE +34. DTSIMPRF 00107 88 MPRF-ELIGIBLE-REUR-88 VALUE +35. DTSIMPRF 00108 88 MPRF-ELIGIBLE-LWA-88 VALUE +36. DTSIMPRF 00109 88 MPRF-ELIGIBLE-PUAS-88 VALUE +37. DTSIMPRF 00110 88 MPRF-ELIGIBLE-MEUC-88 VALUE +38. DTSIMPRF 00111 88 MPRF-ELIGIBLE-DUC-88 VALUE +39. DTSIMPRF 00112 88 MPRF-ELIGIBLE-CHG-ONLY-88 VALUE DTSIMPRF 00113 +01 +02 +04 +05 +06 +07 +09 DTSIMPRF 00114 +10 +15 +16 +17 +18 +19 +20 DTSIMPRF 00115 +21 +22 +23 +24 +25 +26 +27 DTSIMPRF 00116 +28 +29 +31 +32 +33 +34 +35 DTSIMPRF 00117 +36 +37 +38 +39. DTSIMPRF 00118 DTSIMPRF 00119 DTSIMPRF 00120 15 MPRF-PRIMARY-NAME PIC X(40). DTSIMPRF 00121 DTSIMPRF 00122 15 MPRF-ENTITY-NAME-IND PIC X(01). DTSIMPRF 00123 88 MPRF-PRIMARY-IS-ENTITY-88 VALUE 'Y'. DTSIMPRF 00124 88 MPRF-PRIMARY-IS-NOT-ENTITY-88 VALUE 'N'. DTSIMPRF 00125 DTSIMPRF 00126 15 MPRF-ENTITY-NAME PIC X(40). DTSIMPRF 00127 DTSIMPRF 00128 DTSIMPRF 00129 15 MPRF-UC30-MASS-MAIL-IND PIC X(01). DTSIMPRF 00130 88 MPRF-UC30-MASS-MAIL-YES-88 VALUE 'Y'. DTSIMPRF 00131 88 MPRF-UC30-MASS-MAIL-NO-88 VALUE 'N'. DTSIMPRF 00132 DTSIMPRF 00133 15 MPRF-UC30-CREDIT-IND PIC X(01). DTSIMPRF 00134 88 MPRF-UC30-CREDIT-YES-88 VALUE 'Y'. DTSIMPRF 00135 88 MPRF-UC30-CREDIT-NO-88 VALUE 'N'. DTSIMPRF 00136 DTSIMPRF 00137 15 MPRF-FEIN-HARASS-IND PIC X(01). DTSIMPRF 00138 88 MPRF-FEIN-HARASS-YES-88 VALUE 'Y'. DTSIMPRF 00139 88 MPRF-FEIN-HARASS-NO-88 VALUE 'N'. DTSIMPRF 00140 DTSIMPRF 00141 15 MPRF-CHRG-STMT-PRINT-IND DTSIMPRF 00142 PIC X(01). DTSIMPRF 00143 88 MPRF-CHRG-STMT-PRINT-YES-88 VALUE 'Y'. DTSIMPRF 00144 88 MPRF-CHRG-STMT-PRINT-NO-88 VALUE 'N'. DTSIMPRF 00145 DTSIMPRF 00146 15 MPRF-DC-CONTRACTOR-IND PIC X(01). DTSIMPRF 00147 88 MPRF-DC-CONTRACTOR-YES-88 VALUE 'Y'. DTSIMPRF 00148 88 MPRF-DC-CONTRACTOR-NO-88 VALUE 'N'. DTSIMPRF 00149 DTSIMPRF 00150 15 MPRF-ORG-TYPE PIC X(03). DTSIMPRF 00151 88 MPRF-ORG-SOLE-PROPRIETOR-88 VALUE 'S '. DTSIMPRF 00152 88 MPRF-ORG-PARTNERSHIP-88 VALUE 'P '. DTSIMPRF 00153 88 MPRF-ORG-LTD-LIAB-CO-88 VALUE 'LLC'. DTSIMPRF 00154 88 MPRF-ORG-LTD-LIAB-PARTN-88 VALUE 'LLP'. DTSIMPRF 00155 88 MPRF-ORG-CORPORATION-88 VALUE 'C '. DTSIMPRF 00156 88 MPRF-ORG-S-CORPORATION-88 VALUE 'SC '. DTSIMPRF 00157 88 MPRF-ORG-JOINT-VENTURE-88 VALUE 'J '. DTSIMPRF 00158 88 MPRF-ORG-HSEHLD-DMSTIC-88 VALUE 'H '. DTSIMPRF 00159 88 MPRF-ORG-TRST-IN-BNKRPT-88 VALUE 'TB '. DTSIMPRF 00160 88 MPRF-ORG-RECEIVERSHIP-88 VALUE 'R '. DTSIMPRF 00161 88 MPRF-ORG-ASSOCIATION-88 VALUE 'ASS'. DTSIMPRF 00162 88 MPRF-ORG-NON-PROFIT-88 VALUE 'NP '. DTSIMPRF 00163 88 MPRF-ORG-TRUST-PENSION-88 VALUE 'T/P'. DTSIMPRF 00164 88 MPRF-ORG-OTH-NON-GOV-88 VALUE 'ONG'. DTSIMPRF 00165 88 MPRF-ORG-UNINC-ASSOC-88 VALUE 'UNA'. DTSIMPRF 00166 88 MPRF-ORG-FED-IND-TRIBE-88 VALUE 'FIT'. DTSIMPRF 00167 88 MPRF-ORG-OTH-88 VALUE 'OTH'. DTSIMPRF 00168 DTSIMPRF 00169 88 MPRF-ORG-STATE-88 VALUE 'ST '. DTSIMPRF 00170 88 MPRF-ORG-COUNTY-88 VALUE 'CO '. DTSIMPRF 00171 88 MPRF-ORG-CITY-88 VALUE 'CTY'. DTSIMPRF 00172 88 MPRF-ORG-SCHOOL-DISTRICT-88 VALUE 'SCH'. DTSIMPRF 00173 88 MPRF-ORG-FORGN-GOV-88 VALUE 'FG '. DTSIMPRF 00174 88 MPRF-ORG-OTH-GOV-88 VALUE 'OG '. DTSIMPRF 00175 DTSIMPRF 00176 88 MPRF-ORG-UNK-88 VALUE 'UNK'. DTSIMPRF 00177 DTSIMPRF 00178 88 MPRF-ORG-PRIVATE-88 VALUE DTSIMPRF 00179 'S ' 'P ' 'LLC' 'LLP' 'C ' 'J ' DTSIMPRF 00180 'H ' 'TB ' 'R ' 'ASS' 'NP ' 'T/P' DTSIMPRF 00181 'ONG' 'SC ' 'UNA' 'FIT' 'OTH'. DTSIMPRF 00182 DTSIMPRF 00183 88 MPRF-ORG-GOV-88 VALUE DTSIMPRF 00184 'ST ' 'CO ' 'CTY' 'SCH' 'FG ' 'OG '. DTSIMPRF 00185 DTSIMPRF 00186 15 MPRF-FISCAL-AGENT-CD PIC X(03). DTSIMPRF 00187 88 MPRF-FISC-AG-NONE-88 VALUE ' '. DTSIMPRF 00188 DTSIMPRF 00189 15 MPRF-FEIN PIC S9(09) COMP-3. DTSIMPRF 00190 88 MPRF-FEIN-DUP-OK-88 VALUE +0. DTSIMPRF 00191 DTSIMPRF 00192 15 MPRF-DC-BUSINESS-TAX-ACCT-NO DTSIMPRF 00193 PIC S9(09) COMP-3. DTSIMPRF 00194 DTSIMPRF 00195 15 MPRF-SUSPEND-COLL-IND PIC X(01). DTSIMPRF 00196 88 MPRF-SUSPEND-COLL-NO-88 VALUE 'N'. DTSIMPRF 00197 88 MPRF-SUSPEND-COLL-YES-88 VALUE 'Y'. DTSIMPRF 00198 DTSIMPRF 00199 15 MPRF-WRITE-OFF-DATE PIC S9(09) COMP-3. DTSIMPRF 00200 88 MPRF-NOT-WRITTEN-OFF-88 VALUE +0. DTSIMPRF 00201 DTSIMPRF 00202 15 MPRF-PURGE-IND PIC X(01). DTSIMPRF 00203 88 MPRF-PURGE-ALL-YES-88 VALUE 'Y'. DTSIMPRF 00204 88 MPRF-PURGE-ALL-NO-88 VALUE 'N'. DTSIMPRF 00205 DTSIMPRF 00206 DTSIMPRF 00207 15 MPRF-SIC-CD-AREA. DTSIMPRF 00208 20 MPRF-SIC-CD PIC X(04). DTSIMPRF 00209 88 MPRF-SIC-CD-NONCLASSIF-88 DTSIMPRF 00210 VALUE '9999'. DTSIMPRF 00211 88 MPRF-SIC-PRIV-HOUSEHOLDS-88 DTSIMPRF 00212 VALUE '8811'. DTSIMPRF 00213 20 MPRF-OLD-SIC-CD PIC X(04). DTSIMPRF 00214 20 MPRF-SIC-CHNG-DATE PIC S9(09) COMP-3. DTSIMPRF 00215 20 MPRF-SIC-AUXILIARY-CD PIC X(01). DTSIMPRF 00216 88 MPRF-SIC-AUX-UNK-88 VALUE '0'. DTSIMPRF 00217 88 MPRF-SIC-AUX-ADMIN-88 VALUE '1'. DTSIMPRF 00218 88 MPRF-SIC-AUX-RESEARCH-88 VALUE '2'. DTSIMPRF 00219 88 MPRF-SIC-AUX-WAREHOUSE-88 VALUE '3'. DTSIMPRF 00220 88 MPRF-SIC-AUX-NOTAUX-88 VALUE '5'. DTSIMPRF 00221 88 MPRF-SIC-AUX-OTHER-88 VALUE '9'. DTSIMPRF 00222 DTSIMPRF 00223 15 MPRF-NAICS-CD-AREA. DTSIMPRF 00224 20 MPRF-NAICS-CD PIC X(06). DTSIMPRF 00225 88 MPRF-NAICS-CD-NONCLASSIF-88 DTSIMPRF 00226 VALUE '999999'. DTSIMPRF 00227 88 MPRF-NAICS-PRIV-HOUSEHOLDS-88 DTSIMPRF 00228 VALUE '814110'. DTSIMPRF 00229 20 MPRF-OLD-NAICS-CD PIC X(06). DTSIMPRF 00230 20 MPRF-NAICS-CHNG-DATE PIC S9(09) COMP-3. DTSIMPRF 00231 20 MPRF-NAICS-AUXILIARY-CD PIC X(01). DTSIMPRF 00232 88 MPRF-NAICS-AUX-UNK-88 VALUE '0'. DTSIMPRF 00233 88 MPRF-NAICS-AUX-ADMIN-88 VALUE '1'. DTSIMPRF 00234 88 MPRF-NAICS-AUX-RESEARCH-88 VALUE '2'. DTSIMPRF 00235 88 MPRF-NAICS-AUX-WAREHOUSE-88 VALUE '3'. DTSIMPRF 00236 88 MPRF-NAICS-AUX-NOTAUX-88 VALUE '5'. DTSIMPRF 00237 88 MPRF-NAICS-AUX-OTHER-88 VALUE '9'. DTSIMPRF 00238 DTSIMPRF 00239 15 MPRF-OWN-CD-AREA. DTSIMPRF 00240 20 MPRF-OWN-CD PIC X(02). DTSIMPRF 00241 88 MPRF-OWN-FED-GOV-88 DTSIMPRF 00242 VALUE '10'. DTSIMPRF 00243 88 MPRF-OWN-STATE-GOV-88 DTSIMPRF 00244 VALUE '20'. DTSIMPRF 00245 88 MPRF-OWN-LOC-GOV-88 DTSIMPRF 00246 VALUE '30'. DTSIMPRF 00247 88 MPRF-OWN-INTERNATIONAL-88 DTSIMPRF 00248 VALUE '40'. DTSIMPRF 00249 88 MPRF-OWN-PRIVATE-88 DTSIMPRF 00250 VALUE '50' THRU '59'. DTSIMPRF 00251 88 MPRF-OWN-CD-NONCLASSIF-88 DTSIMPRF 00252 VALUE '99'. DTSIMPRF 00253 20 MPRF-OLD-OWN-CD PIC X(02). DTSIMPRF 00254 20 MPRF-OWN-CHNG-DATE PIC S9(09) COMP-3. DTSIMPRF 00255 DTSIMPRF 00256 15 MPRF-MULTI-IND PIC X(01). DTSIMPRF 00257 88 MPRF-SINGLE-UNIT-88 VALUE 'N'. DTSIMPRF 00258 88 MPRF-MULTIPLE-UNIT-88 VALUE 'Y'. DTSIMPRF 00259 DTSIMPRF 00260 15 MPRF-WARD-CD PIC X(02). DTSIMPRF 00261 88 MPRF-WARD-UNKNOWN-88 VALUE '00'. DTSIMPRF 00262 88 MPRF-WARD-VALID-88 VALUE '00' THRU '08'. DTSIMPRF 00263 DTSIMPRF 00264 DTSIMPRF 00265 15 MPRF-PURSUED-RPT-CNT PIC S9(03) COMP-3. DTSIMPRF 00266 DTSIMPRF 00267 15 MPRF-TOT-BALANCE-AMT PIC S9(09)V9(02) COMP-3. DTSIMPRF 00268 DTSIMPRF 00269 15 MPRF-TOT-CREDIT-AMT PIC S9(09)V9(02) COMP-3. DTSIMPRF 00270 DTSIMPRF 00271 15 MPRF-BANKRUPTCY-OPEN-IND DTSIMPRF 00272 PIC X(01). DTSIMPRF 00273 88 MPRF-BANKRP-OPEN-88 VALUE 'Y'. DTSIMPRF 00274 88 MPRF-BANKRP-NOT-OPEN-88 VALUE 'N'. DTSIMPRF 00275 DTSIMPRF 00276 15 MPRF-ARCHIVED-AUDIT-YRQ PIC S9(05) COMP-3. DTSIMPRF 00277 DTSIMPRF 00278 15 MPRF-LAST-ARCHIVED-YRQ PIC S9(05) COMP-3. DTSIMPRF 00279 DTSIMPRF 00280 15 MPRF-TAX-REC-ADDR-EXISTS-IND DTSIMPRF 00281 PIC X(01). DTSIMPRF 00282 88 MPRF-TAX-REC-ADDR-NO-88 VALUE 'N'. DTSIMPRF 00283 88 MPRF-TAX-REC-ADDR-YES-88 VALUE 'Y'. DTSIMPRF 00284 DTSIMPRF 00285 15 MPRF-BEN-MAIL-ADDR-EXISTS-IND DTSIMPRF 00286 PIC X(01). DTSIMPRF 00287 88 MPRF-BEN-MAIL-ADDR-NO-88 VALUE 'N'. DTSIMPRF 00288 88 MPRF-BEN-MAIL-ADDR-YES-88 VALUE 'Y'. DTSIMPRF 00289 DTSIMPRF 00290 15 MPRF-FLD-ZIP-ST. DTSIMPRF 00291 20 MPRF-FLD-ZIP PIC X(10). DTSIMPRF 00292 20 MPRF-FLD-ST PIC X(02). DTSIMPRF 00293 DTSIMPRF 00294 15 MPRF-MAPL-IND PIC X(01). DTSIMPRF 00295 88 MPRF-MAPL-EXISTS-88 VALUE 'Y'. DTSIMPRF 00296 88 MPRF-NO-MAPL-88 VALUE 'N'. DTSIMPRF 00297 DTSIMPRF 00298 15 MPRF-MLIN-IND PIC X(01). DTSIMPRF 00299 88 MPRF-MLIN-EXISTS-88 VALUE 'Y'. DTSIMPRF 00300 88 MPRF-NO-MLIN-88 VALUE 'N'. DTSIMPRF 00301 DTSIMPRF 00302 15 MPRF-MDPC-IND PIC X(01). DTSIMPRF 00303 88 MPRF-MDPC-EXISTS-88 VALUE 'Y'. DTSIMPRF 00304 88 MPRF-NO-MDPC-88 VALUE 'N'. DTSIMPRF 00305 DTSIMPRF 00306 15 MPRF-MFAS-IND PIC X(01). DTSIMPRF 00307 88 MPRF-MFAS-EXISTS-88 VALUE 'Y'. DTSIMPRF 00308 88 MPRF-NO-MFAS-88 VALUE 'N'. DTSIMPRF 00309 DTSIMPRF 00310 15 MPRF-EFT-SOLICITED-IND PIC X(01). DTSIMPRF 00311 88 MPRF-EFT-SOLICITED-YES-88 VALUE 'Y'. DTSIMPRF 00312 88 MPRF-EFT-SOLICITED-NO-88 VALUE 'N'. DTSIMPRF 00313 DTSIMPRF 00314 15 MPRF-EFT-ENROLLED-IND PIC X(01). DTSIMPRF 00315 88 MPRF-EFT-ENROLLED-YES-88 VALUE 'Y'. DTSIMPRF 00316 88 MPRF-EFT-ENROLLED-NO-88 VALUE 'N'. DTSIMPRF 00317 DTSIMPRF 00318 15 MPRF-RETURN-MAIL-IND DTSIMPRF 00319 PIC X(01). DTSIMPRF 00320 88 MPRF-RETURN-MAIL-YES-88 VALUE 'Y'. DTSIMPRF 00321 88 MPRF-RETURN-MAIL-NO-88 VALUE 'N'. DTSIMPRF 00322 DTSIMPRF 00323 15 MPRF-LAST-SQL-EXT-DATE PIC S9(09) COMP-3. DTSIMPRF 00324 DTSIMPRF 00325 15 MPRF-PWR-OF-ATTORNEY-DT PIC S9(09) COMP-3. DTSIMPRF 00326 DTSIMPRF 00327 15 FILLER PIC X(99). DTSIMPRF 00328 DTSIMPRF 00329 DTSIMPRF 00330 15 MPRF-UPDATE-DATA. DTSIMPRF 00331 20 MPRF-UPDATE-END-ABSTIME DTSIMPRF 00332 PIC S9(15) COMP-3. DTSIMPRF 00333 88 MPRF-UPDATED-NEVER-88 DTSIMPRF 00334 VALUE +0. DTSIMPRF 00335 88 MPRF-UPDATE-ACTIVE-88 DTSIMPRF 00336 VALUE +999999999999999. DTSIMPRF 00337 **************************************************************** DTSIMPRF 00338 ** UPDATE-END-ABSTIME = ALL 9'S MEANS LOCKED FOR UPDATE !! DTSIMPRF 00339 ** (EITHER AN UPDATE IS IN PROGRESS OR FAILED TO COMPLETE DTSIMPRF 00340 ** SUCCESSFULLY OR SOMEONE, VIA SCREEN 99, HAS LOCKED THIS DTSIMPRF 00341 ** EMPLOYERS RECORDS AGAINST FURTHER UPDATE. DTSIMPRF 00342 **************************************************************** DTSIMPRF 00343 20 MPRF-UPDATE-TASK-ID PIC S9(08) COMP. DTSIMPRF 00344 20 MPRF-UPDATE-OP-ID PIC X(08). DTSIMPRF 00345 20 MPRF-UPDATE-TERMID PIC X(04). DTSIMPRF 00346 20 MPRF-UPDATE-NETNAME PIC X(08). DTSIMPRF 00347 20 MPRF-UPDATE-START-DATE DTSIMPRF 00348 PIC S9(09) COMP-3. DTSIMPRF 00349 20 MPRF-UPDATE-START-TIME DTSIMPRF 00350 PIC S9(07) COMP-3. DTSIMPRF 00351 20 MPRF-UPDATE-SCR-ID PIC X(02). DTSIMPRF 00352 20 MPRF-UPDATE-FUNCTION DTSIMPRF 00353 PIC X(01). DTSIMPRF 00354 88 MPRF-UPDATE-ADD-88 VALUE 'A'. DTSIMPRF 00355 88 MPRF-UPDATE-MODIFY-88 VALUE 'M'. DTSIMPRF 00356 88 MPRF-UPDATE-DELETE-88 VALUE 'D'. DTSIMPRF 00357 DTSIMPRF 00358 DTSIMPRF 00359 15 MPRF-CONVERTED-IND PIC X(01). DTSIMPRF 00360 88 MPRF-CONVERTED-88 VALUE 'Y'. DTSIMPRF 00361 88 MPRF-NOT-CONVERTED-88 VALUE 'N'. DTSIMPRF 00362 DTSIMPRF 00363 DTSIMPRF 00364 15 MPRF-ESTB-DATE PIC S9(09) COMP-3. DTSIMPRF 00365 DTSIMPRF 00366 15 MPRF-CHNG-DATE PIC S9(09) COMP-3. DTSIMPRF