00001 IDENTIFICATION DIVISION. 02/02/07 00002 PROGRAM-ID. DTSBU055 DTSBU055 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV009 00004 DATE-WRITTEN JULY 1994. DTSBU055 00005 DATE-COMPILED. DTSBU055 00006 SKIP3 DTSBU055 00007 ***** DTSBU055 00008 * DTSBU055 00009 * FUNCTION: RATING EXPERIENCE PERIOD MODULE. DTSBU055 00010 * DTSBU055 00011 * MODIFICATION LOG: DTSBU055 00012 * DTSBU055 00013 * 07/12/94 CLONED FROM DTSCU055. DTSBU055 00014 * WORK ORDER: PROGRAMMER: RHC DTSBU055 00015 * DTSBU055 00016 * 11/09/1998 REVIEWED AND MODIFIED FOR DC. DTSBU055 00017 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBU055 00018 * DTSBU055 00019 * 12/05/2006 MODIFIED FOR ALTERNATE BASE PERIOD. DTSBU055 00020 * REFERENCE: ALTERNATE BASE PROGRAMMER: GD DTSBU055 00021 * DTSBU055 00022 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU055 00023 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU055 00024 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBU055 00025 * DTSBU055 00026 * DTSBU055 00027 * DESCRIPTION: DTSBU055 00028 * DTSBU055 00029 ***** DTSBU055 00030 SKIP3 DTSBU055 00031 ENVIRONMENT DIVISION. DTSBU055 00032 DTSBU055 00033 DATA DIVISION. DTSBU055 00034 SKIP3 DTSBU055 00035 WORKING-STORAGE SECTION. DTSBU055 000355 77 PAN-VALET PICTURE X(24) VALUE '009DTSBU055 02/02/07'. DTSBU055 00036 DTSBU055 00037 01 WRK-AREA. DTSBU055 00038 05 WRK-ABEND-CODE PIC S9(04) COMP DTSBU055 00039 VALUE +055. DTSBU055 00040 ************************************************************* DTSBU055 00041 * THE FIRST YEAR IN WHICH BENEFIT ELIGIBILITY DETERMINATIONS DTSBU055 00042 * CAN USE THE ALTERNATE BASE PERIOD: DTSBU055 00043 ************************************************************* DTSBU055 00044 05 WRK-ALT-BASE-START-YEAR PIC S9(04) COMP DTSBU055 00045 VALUE +2003. DTSBU055 00046 DTSBU055 00047 05 WS-YRQ-X. DTSBU055 00048 10 WS-YR PIC 9(04). DTSBU055 00049 10 WS-Q PIC 9(01). DTSBU055 00050 05 WS-YRQ-9 REDEFINES WS-YRQ-X PIC 9(05). DTSBU055 00051 EJECT DTSBU055 00052 01 L001-LINK-AREA. DTSBU055 00053 ++INCLUDE DTSIL001 DTSBU055 00054 EJECT DTSBU055 00055 01 L004-LINK-AREA. DTSBU055 00056 ++INCLUDE DTSIL004 DTSBU055 00057 EJECT DTSBU055 00058 01 L006-LINK-AREA. DTSBU055 00059 ++INCLUDE DTSIL006 DTSBU055 00060 EJECT DTSBU055 00061 LINKAGE SECTION. DTSBU055 00062 01 L055-LINK-AREA. DTSBU055 00063 ++INCLUDE DTSIL055 DTSBU055 00064 EJECT DTSBU055 00065 PROCEDURE DIVISION USING L055-LINK-AREA. DTSBU055 00066 DTSBU055 00067 DTSBU055 00068 IF L055-FROM-EFF-YRQ-88 DTSBU055 00069 PERFORM P1000-FROM-EFF-YRQ THRU P1000-EXIT DTSBU055 00070 ELSE DTSBU055 00071 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00072 DTSBU055 00073 DTSBU055 00074 GOBACK. DTSBU055 00075 EJECT DTSBU055 00076 P1000-FROM-EFF-YRQ. DTSBU055 00077 MOVE L055-EFF-YRQ TO L006-YRQ. DTSBU055 00078 DTSBU055 00079 PERFORM S006-FROM-QTR THRU S006-EXIT. DTSBU055 00080 DTSBU055 00081 IF L006-RTE-YR-START-YRQ = L055-EFF-YRQ DTSBU055 00082 CONTINUE DTSBU055 00083 ELSE DTSBU055 00084 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00085 DTSBU055 00086 DTSBU055 00087 MOVE L055-EFF-YRQ TO WS-YRQ-9. DTSBU055 00088 DTSBU055 00089 DTSBU055 00090 MOVE 19390701 TO L055-PRIOR-RESERVE-FROM-DATE. DTSBU055 00091 DTSBU055 00092 DTSBU055 00093 COMPUTE L001-FED-8-YR = WS-YR - 2. DTSBU055 00094 DTSBU055 00095 MOVE 06 TO L001-FED-8-MO. DTSBU055 00096 DTSBU055 00097 MOVE 30 TO L001-FED-8-DA. DTSBU055 00098 DTSBU055 00099 MOVE L001-FED-8-DATE-9 TO L055-PRIOR-RESERVE-THRU-DATE. DTSBU055 00100 DTSBU055 00101 DTSBU055 00102 COMPUTE L001-FED-8-YR = WS-YR - 2. DTSBU055 00103 DTSBU055 00104 MOVE 07 TO L001-FED-8-MO. DTSBU055 00105 DTSBU055 00106 MOVE 01 TO L001-FED-8-DA. DTSBU055 00107 DTSBU055 00108 MOVE L001-FED-8-DATE-9 TO L055-UI-TAX-PAID-FROM-DATE. DTSBU055 00109 DTSBU055 00110 DTSBU055 00111 COMPUTE L001-FED-8-YR = WS-YR - 1. DTSBU055 00112 DTSBU055 00113 MOVE 06 TO L001-FED-8-MO. DTSBU055 00114 DTSBU055 00115 MOVE 30 TO L001-FED-8-DA. DTSBU055 00116 DTSBU055 00117 MOVE L001-FED-8-DATE-9 TO L055-UI-TAX-PAID-THRU-DATE. DTSBU055 00118 DTSBU055 00119 DTSBU055 00120 COMPUTE L001-FED-8-YR = WS-YR - 2. DTSBU055 00121 DTSBU055 00122 MOVE 04 TO L001-FED-8-MO. DTSBU055 00123 DTSBU055 00124 MOVE 01 TO L001-FED-8-DA. DTSBU055 00125 DTSBU055 00126 MOVE L001-FED-8-DATE-9 TO L055-TRUST-FUND-INT-FROM-DATE. DTSBU055 00127 DTSBU055 00128 DTSBU055 00129 COMPUTE L001-FED-8-YR = WS-YR - 1. DTSBU055 00130 DTSBU055 00131 MOVE 03 TO L001-FED-8-MO. DTSBU055 00132 DTSBU055 00133 MOVE 31 TO L001-FED-8-DA. DTSBU055 00134 DTSBU055 00135 MOVE L001-FED-8-DATE-9 TO L055-TRUST-FUND-INT-THRU-DATE. DTSBU055 00136 DTSBU055 00137 DTSBU055 00138 MOVE L055-UI-TAX-PAID-FROM-DATE DTSBU055 00139 TO L055-UI-BEN-CHGD-FROM-DATE. DTSBU055 00140 DTSBU055 00141 DTSBU055 00142 MOVE L055-UI-TAX-PAID-THRU-DATE DTSBU055 00143 TO L055-UI-BEN-CHGD-THRU-DATE. DTSBU055 00144 DTSBU055 00145 DTSBU055 00146 MOVE L055-PRIOR-RESERVE-FROM-DATE DTSBU055 00147 TO L055-CURRENT-RESERVE-FROM-DATE. DTSBU055 00148 DTSBU055 00149 DTSBU055 00150 COMPUTE L001-FED-8-YR = WS-YR - 1. DTSBU055 00151 DTSBU055 00152 MOVE 06 TO L001-FED-8-MO. DTSBU055 00153 DTSBU055 00154 MOVE 30 TO L001-FED-8-DA. DTSBU055 00155 DTSBU055 00156 MOVE L001-FED-8-DATE-9 TO L055-CURRENT-RESERVE-THRU-DATE. DTSBU055 00157 DTSBU055 00158 DTSBU055 00159 ************************************************************* DTSBU055 00160 * ADJUST NONCLASSIFIED-FROM-DATE BASED ON WHETHER THE RATING DTSBU055 00161 * YEAR - 4 IS LESS THAN THE YEAR IN WHICH ALTERNATE BASE DTSBU055 00162 * TOOK EFFECT. DTSBU055 00163 ************************************************************* DTSBU055 00164 COMPUTE L001-FED-8-YR = WS-YR - 4. DTSBU055 00165 DTSBU055 00166 IF WS-YR < WRK-ALT-BASE-START-YEAR DTSBU055 00167 MOVE 04 TO L001-FED-8-MO DTSBU055 00168 ELSE DTSBU055 00169 MOVE 07 TO L001-FED-8-MO DTSBU055 00170 END-IF. DTSBU055 00171 DTSBU055 00172 MOVE 01 TO L001-FED-8-DA. DTSBU055 00173 DTSBU055 00174 MOVE L001-FED-8-DATE-9 TO L055-NONCLASSIFIED-FROM-DATE. DTSBU055 00175 DTSBU055 00176 DTSBU055 00177 MOVE L055-PRIOR-RESERVE-FROM-DATE TO L004-DATE. DTSBU055 00178 DTSBU055 00179 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBU055 00180 DTSBU055 00181 IF L004-INVALID-QTR DTSBU055 00182 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00183 DTSBU055 00184 MOVE L004-QTR-5-9 TO L055-PRIOR-RESERVE-FROM-YRQ. DTSBU055 00185 DTSBU055 00186 DTSBU055 00187 MOVE L055-PRIOR-RESERVE-THRU-DATE TO L004-DATE. DTSBU055 00188 DTSBU055 00189 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBU055 00190 DTSBU055 00191 IF L004-INVALID-QTR DTSBU055 00192 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00193 DTSBU055 00194 MOVE L004-QTR-5-9 TO L055-PRIOR-RESERVE-THRU-YRQ. DTSBU055 00195 DTSBU055 00196 DTSBU055 00197 MOVE L055-UI-TAX-PAID-FROM-DATE TO L004-DATE. DTSBU055 00198 DTSBU055 00199 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBU055 00200 DTSBU055 00201 IF L004-INVALID-QTR DTSBU055 00202 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00203 DTSBU055 00204 MOVE L004-QTR-5-9 TO L055-UI-TAX-PAID-FROM-YRQ. DTSBU055 00205 DTSBU055 00206 DTSBU055 00207 MOVE L055-UI-TAX-PAID-THRU-DATE TO L004-DATE. DTSBU055 00208 DTSBU055 00209 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBU055 00210 DTSBU055 00211 IF L004-INVALID-QTR DTSBU055 00212 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00213 DTSBU055 00214 MOVE L004-QTR-5-9 TO L055-UI-TAX-PAID-THRU-YRQ. DTSBU055 00215 DTSBU055 00216 DTSBU055 00217 MOVE L055-TRUST-FUND-INT-FROM-DATE TO L004-DATE. DTSBU055 00218 DTSBU055 00219 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBU055 00220 DTSBU055 00221 IF L004-INVALID-QTR DTSBU055 00222 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00223 DTSBU055 00224 MOVE L004-QTR-5-9 TO L055-TRUST-FUND-INT-FROM-YRQ. DTSBU055 00225 DTSBU055 00226 DTSBU055 00227 MOVE L055-TRUST-FUND-INT-THRU-DATE TO L004-DATE. DTSBU055 00228 DTSBU055 00229 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBU055 00230 DTSBU055 00231 IF L004-INVALID-QTR DTSBU055 00232 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00233 DTSBU055 00234 MOVE L004-QTR-5-9 TO L055-TRUST-FUND-INT-THRU-YRQ. DTSBU055 00235 DTSBU055 00236 DTSBU055 00237 MOVE L055-UI-BEN-CHGD-FROM-DATE TO L004-DATE. DTSBU055 00238 DTSBU055 00239 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBU055 00240 DTSBU055 00241 IF L004-INVALID-QTR DTSBU055 00242 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00243 DTSBU055 00244 MOVE L004-QTR-5-9 TO L055-UI-BEN-CHGD-FROM-YRQ. DTSBU055 00245 DTSBU055 00246 DTSBU055 00247 MOVE L055-UI-BEN-CHGD-THRU-DATE TO L004-DATE. DTSBU055 00248 DTSBU055 00249 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBU055 00250 DTSBU055 00251 IF L004-INVALID-QTR DTSBU055 00252 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00253 DTSBU055 00254 MOVE L004-QTR-5-9 TO L055-UI-BEN-CHGD-THRU-YRQ. DTSBU055 00255 DTSBU055 00256 DTSBU055 00257 MOVE L055-CURRENT-RESERVE-FROM-DATE TO L004-DATE. DTSBU055 00258 DTSBU055 00259 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBU055 00260 DTSBU055 00261 IF L004-INVALID-QTR DTSBU055 00262 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00263 DTSBU055 00264 MOVE L004-QTR-5-9 TO L055-CURRENT-RESERVE-FROM-YRQ. DTSBU055 00265 DTSBU055 00266 DTSBU055 00267 MOVE L055-CURRENT-RESERVE-THRU-DATE TO L004-DATE. DTSBU055 00268 DTSBU055 00269 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBU055 00270 DTSBU055 00271 IF L004-INVALID-QTR DTSBU055 00272 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00273 DTSBU055 00274 MOVE L004-QTR-5-9 TO L055-CURRENT-RESERVE-THRU-YRQ. DTSBU055 00275 DTSBU055 00276 DTSBU055 00277 MOVE L055-NONCLASSIFIED-FROM-DATE TO L004-DATE. DTSBU055 00278 DTSBU055 00279 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBU055 00280 DTSBU055 00281 IF L004-INVALID-QTR DTSBU055 00282 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00283 DTSBU055 00284 MOVE L004-QTR-5-9 TO L055-NONCLASSIFIED-FROM-YRQ. DTSBU055 00285 DTSBU055 00286 DTSBU055 00287 DTSBU055 00288 DTSBU055 00289 COMPUTE L001-FED-8-YR = WS-YR - 4. DTSBU055 00290 DTSBU055 00291 MOVE 04 TO L001-FED-8-MO. DTSBU055 00292 DTSBU055 00293 MOVE 01 TO L001-FED-8-DA. DTSBU055 00294 DTSBU055 00295 MOVE L001-FED-8-DATE-9 TO L055-WAGES-FROM-DATE (1). DTSBU055 00296 DTSBU055 00297 DTSBU055 00298 COMPUTE L001-FED-8-YR = WS-YR - 3. DTSBU055 00299 DTSBU055 00300 MOVE 03 TO L001-FED-8-MO. DTSBU055 00301 DTSBU055 00302 MOVE 31 TO L001-FED-8-DA. DTSBU055 00303 DTSBU055 00304 MOVE L001-FED-8-DATE-9 TO L055-WAGES-THRU-DATE (1). DTSBU055 00305 DTSBU055 00306 DTSBU055 00307 MOVE L055-WAGES-FROM-DATE (1) TO L004-DATE. DTSBU055 00308 DTSBU055 00309 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBU055 00310 DTSBU055 00311 IF L004-INVALID-QTR DTSBU055 00312 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00313 DTSBU055 00314 MOVE L004-QTR-5-9 TO L055-WAGES-FROM-YRQ (1). DTSBU055 00315 DTSBU055 00316 DTSBU055 00317 MOVE L055-WAGES-THRU-DATE (1) TO L004-DATE. DTSBU055 00318 DTSBU055 00319 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBU055 00320 DTSBU055 00321 IF L004-INVALID-QTR DTSBU055 00322 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00323 DTSBU055 00324 MOVE L004-QTR-5-9 TO L055-WAGES-THRU-YRQ (1). DTSBU055 00325 DTSBU055 00326 DTSBU055 00327 DTSBU055 00328 DTSBU055 00329 COMPUTE L001-FED-8-YR = WS-YR - 3. DTSBU055 00330 DTSBU055 00331 MOVE 04 TO L001-FED-8-MO. DTSBU055 00332 DTSBU055 00333 MOVE 01 TO L001-FED-8-DA. DTSBU055 00334 DTSBU055 00335 MOVE L001-FED-8-DATE-9 TO L055-WAGES-FROM-DATE (2). DTSBU055 00336 DTSBU055 00337 DTSBU055 00338 COMPUTE L001-FED-8-YR = WS-YR - 2. DTSBU055 00339 DTSBU055 00340 MOVE 03 TO L001-FED-8-MO. DTSBU055 00341 DTSBU055 00342 MOVE 31 TO L001-FED-8-DA. DTSBU055 00343 DTSBU055 00344 MOVE L001-FED-8-DATE-9 TO L055-WAGES-THRU-DATE (2). DTSBU055 00345 DTSBU055 00346 DTSBU055 00347 MOVE L055-WAGES-FROM-DATE (2) TO L004-DATE. DTSBU055 00348 DTSBU055 00349 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBU055 00350 DTSBU055 00351 IF L004-INVALID-QTR DTSBU055 00352 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00353 DTSBU055 00354 MOVE L004-QTR-5-9 TO L055-WAGES-FROM-YRQ (2). DTSBU055 00355 DTSBU055 00356 DTSBU055 00357 MOVE L055-WAGES-THRU-DATE (2) TO L004-DATE. DTSBU055 00358 DTSBU055 00359 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBU055 00360 DTSBU055 00361 IF L004-INVALID-QTR DTSBU055 00362 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00363 DTSBU055 00364 MOVE L004-QTR-5-9 TO L055-WAGES-THRU-YRQ (2). DTSBU055 00365 DTSBU055 00366 DTSBU055 00367 DTSBU055 00368 DTSBU055 00369 COMPUTE L001-FED-8-YR = WS-YR - 2. DTSBU055 00370 DTSBU055 00371 MOVE 04 TO L001-FED-8-MO. DTSBU055 00372 DTSBU055 00373 MOVE 01 TO L001-FED-8-DA. DTSBU055 00374 DTSBU055 00375 MOVE L001-FED-8-DATE-9 TO L055-WAGES-FROM-DATE (3). DTSBU055 00376 DTSBU055 00377 DTSBU055 00378 COMPUTE L001-FED-8-YR = WS-YR - 1. DTSBU055 00379 DTSBU055 00380 MOVE 03 TO L001-FED-8-MO. DTSBU055 00381 DTSBU055 00382 MOVE 31 TO L001-FED-8-DA. DTSBU055 00383 DTSBU055 00384 MOVE L001-FED-8-DATE-9 TO L055-WAGES-THRU-DATE (3). DTSBU055 00385 DTSBU055 00386 DTSBU055 00387 MOVE L055-WAGES-FROM-DATE (3) TO L004-DATE. DTSBU055 00388 DTSBU055 00389 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBU055 00390 DTSBU055 00391 IF L004-INVALID-QTR DTSBU055 00392 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00393 DTSBU055 00394 MOVE L004-QTR-5-9 TO L055-WAGES-FROM-YRQ (3). DTSBU055 00395 DTSBU055 00396 DTSBU055 00397 MOVE L055-WAGES-THRU-DATE (3) TO L004-DATE. DTSBU055 00398 DTSBU055 00399 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBU055 00400 DTSBU055 00401 IF L004-INVALID-QTR DTSBU055 00402 PERFORM S999-ABEND THRU S999-EXIT. DTSBU055 00403 DTSBU055 00404 MOVE L004-QTR-5-9 TO L055-WAGES-THRU-YRQ (3). DTSBU055 00405 P1000-EXIT. DTSBU055 00406 EXIT. DTSBU055 00407 EJECT DTSBU055 00408 S004-FROM-DATE. DTSBU055 00409 SET L004-FROM-DATE TO TRUE. DTSBU055 00410 GO TO S004-YRQ. DTSBU055 00411 DTSBU055 00412 S004-YRQ. DTSBU055 00413 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBU055 00414 S004-EXIT. DTSBU055 00415 EXIT. DTSBU055 00416 SKIP3 DTSBU055 00417 S006-FROM-QTR. DTSBU055 00418 SET L006-FROM-QTR TO TRUE. DTSBU055 00419 GO TO S006-RATE-YEAR. DTSBU055 00420 DTSBU055 00421 S006-RATE-YEAR. DTSBU055 00422 CALL 'DTSBU006' USING L006-LINK-AREA. DTSBU055 00423 S006-EXIT. DTSBU055 00424 EXIT. DTSBU055 00425 EJECT DTSBU055 00426 S999-ABEND. DTSBU055 00427 CALL 'DTSBU999' USING WRK-ABEND-CODE. DTSBU055 00428 S999-EXIT. DTSBU055 00429 EXIT. DTSBU055