367 lines
29 KiB
COBOL
367 lines
29 KiB
COBOL
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
|