00001 IDENTIFICATION DIVISION. 11/11/02 00002 PROGRAM-ID. DTSBD343. DTSBD343 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV008 00004 DATE-WRITTEN. JANUARY 1991. DTSBD343 00005 DATE-COMPILED. DTSBD343 00006 SKIP3 DTSBD343 00007 ***** DTSBD343 00008 * DTSBD343 00009 * FUNCTION: RATE NOTICE GENERATION. DTSBD343 00010 * DTSBD343 00011 * DTSBD343 00012 * MODIFICATION LOG: DTSBD343 00013 * DTSBD343 00014 * 01/09/92 INITIAL DEVELOPMENT. DTSBD343 00015 * WORK ORDER: PROGRAMMER: TCL DTSBD343 00016 * DTSBD343 00017 * 01/25/1999 REVIEWED AND MODIFIED FOR DC. DTSBD343 00018 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD343 00019 * DTSBD343 00020 * 08/20/2002 MODIFIED TO FINALIZE ESTIMATED RATE AND PRINT DTSBD343 00021 * RATE NOTICE WHEN T006-FINAL-RATE IS TRUE. DTSBD343 00022 * PROGRAM WILL PRINT ERROR REPORT IF DTSBD343 00023 * T006-FINAL-RATE IS NOT TRUE AND RATE IS DTSBD343 00024 * ESTIMATED. DTSBD343 00025 * REFERENCE: HOUSEHOLD PROGRAMMER: GD DTSBD343 00026 * DTSBD343 00027 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD343 00028 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD343 00029 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBD343 00030 * DTSBD343 00031 * DTSBD343 00032 * DESCRIPTION: DTSBD343 00033 * DTSBD343 00034 * IF, FOR A GIVEN EMP-NO AND START-YRQ, DTSBD343 IS CALLED DTSBD343 00035 * MORE THAN ONCE, THEN BYPASS PROCESSING ON ALL CALLS OTHER DTSBD343 00036 * THAN THE FIRST. YOU MAY ASSUME THE TRANSACTIONS WILL DTSBD343 00037 * ARRIVE IN T006-START-YRQ WITHIN T006-EMP-NO SEQUENCE. DTSBD343 00038 * DTSBD343 00039 * T006-START-YRQ IS THE START-YRQ OF THE RATE FOR WHICH DTSBD343 00040 * A RATE NOTICE IS TO BE PRINTED. IGNORE T006-END-YRQ. DTSBD343 00041 * DTSBD343 00042 * IF NO MRTE RECORD EXISTS FOR A SPECIFIED T006-START-YRQ, DTSBD343 00043 * THEN INDICATE THE TRANSACTION HAS FAILED. DTSBD343 00044 * DTSBD343 00045 * IF MRTE-RATE-TYPE-ESTIM-88, THEN INDICATE THE DTSBD343 00046 * TRANSACTION HAS FAILED. DTSBD343 00047 * DTSBD343 00048 * IF MRTE-NOTICE-MAIL-DATE = 0, THEN INDICATE THE DTSBD343 00049 * TRANSACTION HAS FAILED. DTSBD343 00050 * DTSBD343 00051 * READ THE MRCT RECORD CORRESPONDING TO T006-START-YRQ. DTSBD343 00052 * READ THE FCYR RECORD FOR THE YEAR INCLUDING DTSBD343 00053 * T006-START-YRQ. DTSBD343 00054 * DTSBD343 00055 * IF (THE MRCT RECORD DOES NOT EXIST) OR (THE MRCT DTSBD343 00056 * RECORD DOES NOT SUPPORT THE RATE IN THE MRTE DTSBD343 00057 * RECORD (AS DETERMINED BY A CALL TO DTSBU054)) OR DTSBD343 00058 * (THE FCYR RECORD DOES NOT EXIST); DTSBD343 00059 * DTSBD343 00060 * INDICATE THE TRANSACTION HAS FAILED DTSBD343 00061 * DTSBD343 00062 * ELSE DTSBD343 00063 * DTSBD343 00064 * GENERATE A R503 RECORD DTSBD343 00065 * IF L054-UI-PEN-RATE-YES-88 DTSBD343 00066 * GENERATE A R504 RECORD. DTSBD343 00067 * DTSBD343 00068 * DTSBD343 00069 * PLEASE SEE PRINTED OUTPUTS DESCRIPTIONS AND LAYOUTS DTSBD343 00070 * FOR FURTHER INFORMATION. DTSBD343 00071 * DTSBD343 00072 * DTSBD343 00073 * MASTER FILE RECORDS READ: DTSBD343 00074 * DTSBD343 00075 * MRCT DTSBD343 00076 * MRTE DTSBD343 00077 * DTSBD343 00078 * DTSBD343 00079 * REFERENCE FILE RECORDS READ: DTSBD343 00080 * DTSBD343 00081 * NONE. DTSBD343 00082 * DTSBD343 00083 * DTSBD343 00084 * MASTER FILE RECORDS UPDATED: DTSBD343 00085 * DTSBD343 00086 * NONE. DTSBD343 00087 * DTSBD343 00088 * DTSBD343 00089 * REPORT RECORDS WRITTEN: DTSBD343 00090 * DTSBD343 00091 * R503 RATE NOTICE. DTSBD343 00092 * R504 PENALTY RATE LETTER. DTSBD343 00093 * DTSBD343 00094 * DTSBD343 00095 * MODULES CALLED: DTSBD343 00096 * DTSBD343 00097 * DTSBU001 DATE EDIT/CONVERSION. DTSBD343 00098 * DTSBU004 QUARTER EDIT/CONVERSION. DTSBD343 00099 * DTSBU054 RATE DETERMINATION FROM RCT RECORD. DTSBD343 00100 * DTSBU111 LOOKUP ADDRESS. DTSBD343 00101 * DTSBU112 FORMAT ADDRESS. DTSBD343 00102 * DTSBU910 MASTER FILE I/O. DTSBD343 00103 * DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1. DTSBD343 00104 * DTSBD343 00105 * DTSBD343 00106 ***** DTSBD343 00107 SKIP3 DTSBD343 00108 ENVIRONMENT DIVISION. DTSBD343 00109 EJECT DTSBD343 00110 DATA DIVISION. DTSBD343 00111 SKIP3 DTSBD343 00112 WORKING-STORAGE SECTION. DTSBD343 001125 77 PAN-VALET PICTURE X(24) VALUE '008DTSBD343 11/11/02'. DTSBD343 00113 SKIP3 DTSBD343 00114 01 WRK-AREA. DTSBD343 00115 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +343.DTSBD343 00116 DTSBD343 00117 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD343'.DTSBD343 00118 DTSBD343 00119 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBD343 00120 DTSBD343 00121 05 WRK-EMP-NO PIC S9(07) COMP-3. DTSBD343 00122 DTSBD343 00123 05 WRK-START-YRQ PIC S9(05) COMP-3. DTSBD343 00124 SKIP3 DTSBD343 00125 01 MSG-TABLE. DTSBD343 00126 05 MSG1-NO-MRTE-REC. DTSBD343 00127 10 MSG1-ID PIC X(11) VALUE 'DTSBD343511'. DTSBD343 00128 10 MSG1-SHORT-TEXT PIC X(20) VALUE 'NO MRTE RECORD'. DTSBD343 00129 10 MSG1-LONG-TEXT. DTSBD343 00130 15 FILLER PIC X(30) DTSBD343 00131 VALUE 'TRANSACTION FAILED - RATE RECO'. DTSBD343 00132 15 FILLER PIC X(30) DTSBD343 00133 VALUE 'RD NOT FOUND '. DTSBD343 00134 DTSBD343 00135 05 MSG2-NO-MRCT-REC. DTSBD343 00136 10 MSG2-ID PIC X(11) VALUE 'DTSBD343512'. DTSBD343 00137 10 MSG2-SHORT-TEXT PIC X(20) VALUE 'NO MRCT RECORD'. DTSBD343 00138 10 MSG2-LONG-TEXT. DTSBD343 00139 15 FILLER PIC X(30) DTSBD343 00140 VALUE 'TRANSACTION FAILED - RATE EXPE'. DTSBD343 00141 15 FILLER PIC X(30) DTSBD343 00142 VALUE 'RIENCE CUTOFF RECORD NOT FOUND'. DTSBD343 00143 DTSBD343 00144 *****05 MSG3-NO-FCYR-REC. DTSBD343 00145 *********10 MSG3-ID PIC X(11) VALUE 'DTSBD343513'. DTSBD343 00146 *********10 MSG3-SHORT-TEXT PIC X(20) VALUE 'NO FCYR RECORD'. DTSBD343 00147 *********10 MSG3-LONG-TEXT. DTSBD343 00148 *************15 FILLER PIC X(30) DTSBD343 00149 *******************VALUE 'TRANSACTION FAILED - REFERENCE'. DTSBD343 00150 *************15 FILLER PIC X(30) DTSBD343 00151 *******************VALUE 'CALENDAR YEAR RECORD NOT FOUND'. DTSBD343 00152 DTSBD343 00153 05 MSG4-INVALID-MRCT-REC. DTSBD343 00154 10 MSG4-ID PIC X(11) VALUE 'DTSBD343514'. DTSBD343 00155 10 MSG4-SHORT-TEXT PIC X(20) VALUE 'RATE ERROR '. DTSBD343 00156 10 MSG4-LONG-TEXT. DTSBD343 00157 15 FILLER PIC X(30) DTSBD343 00158 VALUE 'TRANSACTION FAILED - RATE EXPE'. DTSBD343 00159 15 FILLER PIC X(30) DTSBD343 00160 VALUE 'RIENCE DOES NOT SUPPORT RATE '. DTSBD343 00161 DTSBD343 00162 05 MSG5-NO-NOTICE-DATE. DTSBD343 00163 10 MSG5-ID PIC X(11) VALUE 'DTSBD343515'. DTSBD343 00164 10 MSG5-SHORT-TEXT PIC X(20) VALUE 'RATE ERROR '. DTSBD343 00165 10 MSG5-LONG-TEXT. DTSBD343 00166 15 FILLER PIC X(30) DTSBD343 00167 VALUE 'TRANSACTION FAILED - NOTICE DA'. DTSBD343 00168 15 FILLER PIC X(30) DTSBD343 00169 VALUE 'TE DOES NOT EXIST '. DTSBD343 00170 DTSBD343 00171 05 MSG6-ESTIMATED-RATE. DTSBD343 00172 10 MSG6-ID PIC X(11) VALUE 'DTSBD343516'. DTSBD343 00173 10 MSG6-SHORT-TEXT PIC X(20) VALUE 'RATE ERROR '. DTSBD343 00174 10 MSG6-LONG-TEXT. DTSBD343 00175 15 FILLER PIC X(30) DTSBD343 00176 VALUE 'TRANSACTION FAILED - CANNOT PR'. DTSBD343 00177 15 FILLER PIC X(30) DTSBD343 00178 VALUE 'INT NOTICE FOR ESTIMATED RATE.'. DTSBD343 00179 EJECT DTSBD343 00180 01 L001-LINK-AREA. DTSBD343 00181 ++INCLUDE DTSIL001 DTSBD343 00182 EJECT DTSBD343 00183 01 L004-LINK-AREA. DTSBD343 00184 ++INCLUDE DTSIL004 DTSBD343 00185 EJECT DTSBD343 00186 01 L006-LINK-AREA. DTSBD343 00187 ++INCLUDE DTSIL006 DTSBD343 00188 EJECT DTSBD343 00189 01 L054-LINK-AREA. DTSBD343 00190 ++INCLUDE DTSIL054 DTSBD343 00191 EJECT DTSBD343 00192 01 L055-LINK-AREA. DTSBD343 00193 ++INCLUDE DTSIL055 DTSBD343 00194 EJECT DTSBD343 00195 01 L111-LINK-AREA. DTSBD343 00196 ++INCLUDE DTSIL111 DTSBD343 00197 EJECT DTSBD343 00198 01 L112-LINK-AREA. DTSBD343 00199 ++INCLUDE DTSIL112 DTSBD343 00200 EJECT DTSBD343 00201 01 L910-LINK-AREA. DTSBD343 00202 ++INCLUDE DTSIL910 DTSBD343 00203 EJECT DTSBD343 00204 01 MSKL-REC. DTSBD343 00205 ++INCLUDE DTSIMSKL DTSBD343 00206 EJECT DTSBD343 00207 01 MRCT-REC. DTSBD343 00208 ++INCLUDE DTSIMRCT DTSBD343 00209 EJECT DTSBD343 00210 01 MRTE-REC. DTSBD343 00211 ++INCLUDE DTSIMRTE DTSBD343 00212 EJECT DTSBD343 00213 *01 L931-LINK-AREA. DTSBD343 00214 ***INCLUDE DTSIL931 DTSBD343 00215 EJECT DTSBD343 00216 *01 FSKL-REC. DTSBD343 00217 ***INCLUDE DTSIFSKL DTSBD343 00218 EJECT DTSBD343 00219 *01 FCYR-REC. DTSBD343 00220 ***INCLUDE DTSIFCYR DTSBD343 00221 EJECT DTSBD343 00222 01 R503-REC. DTSBD343 00223 ++INCLUDE DTSIR503 DTSBD343 00224 EJECT DTSBD343 00225 01 R504-REC. DTSBD343 00226 ++INCLUDE DTSIR504 DTSBD343 00227 EJECT DTSBD343 00228 01 MMAX-LITERALS. DTSBD343 00229 ++INCLUDE DTSIMMAX DTSBD343 00230 EJECT DTSBD343 00231 LINKAGE SECTION. DTSBD343 00232 SKIP3 DTSBD343 00233 01 LBCM-LINK-AREA. DTSBD343 00234 ++INCLUDE DTSILBCM DTSBD343 00235 EJECT DTSBD343 00236 01 MPRF-REC. DTSBD343 00237 ++INCLUDE DTSIMPRF DTSBD343 00238 EJECT DTSBD343 00239 01 T006-REC. DTSBD343 00240 ++INCLUDE DTSIT006 DTSBD343 00241 EJECT DTSBD343 00242 PROCEDURE DIVISION USING LBCM-LINK-AREA DTSBD343 00243 MPRF-REC DTSBD343 00244 T006-REC. DTSBD343 00245 DTSBD343 00246 DTSBD343 00247 IF FIRST-TIME-IND = 'Y' DTSBD343 00248 PERFORM I0000-INITIATE THRU I0000-EXIT DTSBD343 00249 MOVE 'N' TO FIRST-TIME-IND. DTSBD343 00250 DTSBD343 00251 DTSBD343 00252 IF (MPRF-EMP-NO = WRK-EMP-NO) DTSBD343 00253 AND DTSBD343 00254 (T006-START-YRQ = WRK-START-YRQ) DTSBD343 00255 NEXT SENTENCE DTSBD343 00256 ELSE DTSBD343 00257 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBD343 00258 MOVE T006-START-YRQ TO WRK-START-YRQ DTSBD343 00259 MOVE MPRF-EMP-NO TO WRK-EMP-NO. DTSBD343 00260 DTSBD343 00261 DTSBD343 00262 GOBACK. DTSBD343 00263 EJECT DTSBD343 00264 I0000-INITIATE. DTSBD343 00265 MOVE LBCM-TRACE-IND TO L910-TRACE-IND. DTSBD343 00266 ****************************L931-TRACE-IND. DTSBD343 00267 DTSBD343 00268 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBD343 00269 ****************************L931-MOD-NAME. DTSBD343 00270 DTSBD343 00271 MOVE +0 TO WRK-EMP-NO DTSBD343 00272 WRK-START-YRQ. DTSBD343 00273 DTSBD343 00274 MOVE LENGTH OF R503-REC TO R503-LENGTH. DTSBD343 00275 DTSBD343 00276 MOVE LENGTH OF R504-REC TO R504-LENGTH. DTSBD343 00277 I0000-EXIT. DTSBD343 00278 EXIT. DTSBD343 00279 EJECT DTSBD343 00280 P0000-PROCESS. DTSBD343 00281 IF MPRF-CLASS-RATED-88 DTSBD343 00282 NEXT SENTENCE DTSBD343 00283 ELSE DTSBD343 00284 GO TO P0000-EXIT. DTSBD343 00285 DTSBD343 00286 DTSBD343 00287 MOVE LOW-VALUES TO MRTE-KEY-AREA. DTSBD343 00288 DTSBD343 00289 MOVE MPRF-EMP-NO TO MRTE-EMP-NO. DTSBD343 00290 DTSBD343 00291 SET MRTE-RTE-88 TO TRUE. DTSBD343 00292 DTSBD343 00293 MOVE T006-START-YRQ TO MRTE-EFF-YRQ. DTSBD343 00294 DTSBD343 00295 MOVE MRTE-KEY-AREA TO MSKL-KEY-AREA. DTSBD343 00296 DTSBD343 00297 PERFORM S910-READ THRU S910-EXIT. DTSBD343 00298 DTSBD343 00299 IF L910-NO-REC-88 DTSBD343 00300 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD343 00301 MOVE MSG1-NO-MRTE-REC TO LBCM-TRN-MSG-AREA DTSBD343 00302 GO TO P0000-EXIT. DTSBD343 00303 DTSBD343 00304 DTSBD343 00305 MOVE MSKL-REC TO MRTE-REC. DTSBD343 00306 DTSBD343 00307 DTSBD343 00308 IF MRTE-RATE-TYPE-ESTIM-88 DTSBD343 00309 IF T006-FINAL-RATE DTSBD343 00310 PERFORM P2000-UPDATE-MRTE THRU P2000-EXIT DTSBD343 00311 ELSE DTSBD343 00312 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD343 00313 MOVE MSG6-ESTIMATED-RATE TO LBCM-TRN-MSG-AREA DTSBD343 00314 GO TO P0000-EXIT. DTSBD343 00315 DTSBD343 00316 IF MRTE-NOTICE-DATE = 0 DTSBD343 00317 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD343 00318 MOVE MSG5-NO-NOTICE-DATE TO LBCM-TRN-MSG-AREA DTSBD343 00319 GO TO P0000-EXIT. DTSBD343 00320 DTSBD343 00321 DTSBD343 00322 MOVE LOW-VALUES TO MRCT-KEY-AREA. DTSBD343 00323 DTSBD343 00324 MOVE MPRF-EMP-NO TO MRCT-EMP-NO. DTSBD343 00325 DTSBD343 00326 SET MRCT-RCT-88 TO TRUE. DTSBD343 00327 DTSBD343 00328 MOVE T006-START-YRQ TO MRCT-EFF-YRQ. DTSBD343 00329 DTSBD343 00330 MOVE MRCT-KEY-AREA TO MSKL-KEY-AREA. DTSBD343 00331 DTSBD343 00332 PERFORM S910-READ THRU S910-EXIT. DTSBD343 00333 DTSBD343 00334 IF L910-NO-REC-88 DTSBD343 00335 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD343 00336 MOVE MSG2-NO-MRCT-REC TO LBCM-TRN-MSG-AREA DTSBD343 00337 GO TO P0000-EXIT. DTSBD343 00338 DTSBD343 00339 DTSBD343 00340 MOVE MSKL-REC TO MRCT-REC. DTSBD343 00341 DTSBD343 00342 DTSBD343 00343 *****MOVE LOW-VALUES TO FCYR-KEY-AREA. DTSBD343 00344 DTSBD343 00345 *****SET FCYR-CYR-88 TO TRUE. DTSBD343 00346 DTSBD343 00347 *****MOVE T006-START-YRQ TO L004-QTR-5-9. DTSBD343 00348 DTSBD343 00349 *****MOVE L004-QTR-5-YR TO FCYR-YR. DTSBD343 00350 DTSBD343 00351 *****MOVE FCYR-KEY-AREA TO FSKL-KEY-AREA. DTSBD343 00352 DTSBD343 00353 *****PERFORM S931-READ THRU S931-EXIT. DTSBD343 00354 DTSBD343 00355 *****IF L931-NO-REC-88 DTSBD343 00356 ********SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD343 00357 ********MOVE MSG3-NO-FCYR-REC TO LBCM-TRN-MSG-AREA DTSBD343 00358 ********GO TO P0000-EXIT. DTSBD343 00359 DTSBD343 00360 DTSBD343 00361 *****MOVE FSKL-REC TO FCYR-REC. DTSBD343 00362 DTSBD343 00363 DTSBD343 00364 IF MRTE-RATE-TYPE-ESTIM-88 DTSBD343 00365 OR MRTE-RATE-TYPE-FINAL-88 DTSBD343 00366 SET L054-ESTIMATED-RATE-YES-88 TO TRUE DTSBD343 00367 ELSE DTSBD343 00368 SET L054-ESTIMATED-RATE-NO-88 TO TRUE. DTSBD343 00369 DTSBD343 00370 PERFORM S054-RATE-LOOKUP-YES THRU S054-EXIT. DTSBD343 00371 DTSBD343 00372 DTSBD343 00373 PERFORM P1000-CHECK-CONSISTENCY THRU P1000-EXIT. DTSBD343 00374 DTSBD343 00375 DTSBD343 00376 IF LBCM-TRN-NOT-OK-88 DTSBD343 00377 MOVE MSG4-INVALID-MRCT-REC TO LBCM-TRN-MSG-AREA DTSBD343 00378 GO TO P0000-EXIT. DTSBD343 00379 DTSBD343 00380 DTSBD343 00381 MOVE MRTE-EFF-YRQ TO L006-YRQ. DTSBD343 00382 DTSBD343 00383 PERFORM S006-FROM-QTR THRU S006-EXIT. DTSBD343 00384 DTSBD343 00385 DTSBD343 00386 MOVE MRTE-EFF-YRQ TO L055-EFF-YRQ. DTSBD343 00387 DTSBD343 00388 PERFORM S055-FROM-EFF-YRQ THRU S055-EXIT. DTSBD343 00389 DTSBD343 00390 DTSBD343 00391 PERFORM S111-LOOKUP-UI-TAX-MAILING THRU S111-EXIT. DTSBD343 00392 DTSBD343 00393 IF L111-ADDR-FOUND-88 DTSBD343 00394 PERFORM S112-FORMAT-TAD-ADDR THRU S112-EXIT DTSBD343 00395 ELSE DTSBD343 00396 MOVE SPACES TO L112-ZIP DTSBD343 00397 L112-ADVANCED-BARCODE DTSBD343 00398 MOVE ALL '?' TO L112-MAILING-ADDRESS. DTSBD343 00399 DTSBD343 00400 DTSBD343 00401 IF L054-UI-PEN-RATE-YES-88 DTSBD343 00402 SET R503-UI-PEN-RATE-YES-88 TO TRUE DTSBD343 00403 ELSE DTSBD343 00404 SET R503-UI-PEN-RATE-NO-88 TO TRUE. DTSBD343 00405 DTSBD343 00406 MOVE LOW-VALUES TO R503-SORT-VAR-AREA. DTSBD343 00407 DTSBD343 00408 MOVE MPRF-EMP-NO TO R503-DLY-EMP-NO. DTSBD343 00409 DTSBD343 00410 MOVE MRTE-EFF-YRQ TO R503-DLY-EFF-YRQ. DTSBD343 00411 DTSBD343 00412 IF L054-CLASSIFIED-88 DTSBD343 00413 SET R503-CLASSIFIED-88 TO TRUE DTSBD343 00414 ELSE DTSBD343 00415 SET R503-NONCLASSIFIED-88 TO TRUE. DTSBD343 00416 DTSBD343 00417 MOVE MPRF-EMP-NO TO R503-EMP-NO. DTSBD343 00418 DTSBD343 00419 MOVE MRTE-EFF-YRQ TO R503-EFF-YRQ. DTSBD343 00420 DTSBD343 00421 MOVE L006-RTE-YR-DISP TO R503-RATE-YEAR. DTSBD343 00422 DTSBD343 00423 MOVE MRTE-NOTICE-DATE TO R503-NOTICE-DATE. DTSBD343 00424 DTSBD343 00425 IF R503-UI-PEN-RATE-YES-88 DTSBD343 00426 MOVE R503-NOTICE-DATE TO L001-FED-8-DATE-9 DTSBD343 00427 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBD343 00428 ADD +30 TO L001-JUL-ABS-DAY DTSBD343 00429 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT DTSBD343 00430 MOVE L001-FED-8-DATE-9 TO R503-PENALTY-DEADLINE-DATE DTSBD343 00431 ELSE DTSBD343 00432 MOVE +0 TO R503-PENALTY-DEADLINE-DATE. DTSBD343 00433 DTSBD343 00434 MOVE L112-MAILING-ADDRESS TO R503-FMT-ADDR. DTSBD343 00435 DTSBD343 00436 MOVE L112-ZIP TO R503-ZIP. DTSBD343 00437 DTSBD343 00438 MOVE L112-ADVANCED-BARCODE TO R503-ADVANCED-BARCODE. DTSBD343 00439 DTSBD343 00440 MOVE L054-UI-CALC-RATE TO R503-CALC-RATE. DTSBD343 00441 DTSBD343 00442 MOVE L054-UI-PEN-RATE TO R503-PEN-RATE. DTSBD343 00443 DTSBD343 00444 IF R503-UI-PEN-RATE-YES-88 DTSBD343 00445 MOVE L054-UI-PEN-RATE TO R503-UI-RATE DTSBD343 00446 ELSE DTSBD343 00447 MOVE L054-UI-CALC-RATE TO R503-UI-RATE. DTSBD343 00448 DTSBD343 00449 MOVE L055-CURRENT-RESERVE-THRU-DATE DTSBD343 00450 TO R503-CURRENT-RESERVE-THRU-DATE. DTSBD343 00451 DTSBD343 00452 MOVE L054-AVG-TAX-WAGE TO R503-AVG-TAX-WAGE. DTSBD343 00453 DTSBD343 00454 MOVE L054-RATIO TO R503-RESERVE-RATIO. DTSBD343 00455 DTSBD343 00456 MOVE MRCT-PRIOR-RESERVE-AMT TO R503-PRIOR-RESERVE-AMT. DTSBD343 00457 DTSBD343 00458 MOVE MRCT-TRUST-FUND-INTEREST-AMT DTSBD343 00459 TO R503-TRUST-FUND-INTEREST-AMT. DTSBD343 00460 DTSBD343 00461 MOVE MRCT-UI-TAX-PAID-AMT DTSBD343 00462 TO R503-UI-TAX-PAID-AMT. DTSBD343 00463 DTSBD343 00464 MOVE MRCT-BENEFITS-CHARGED-AMT TO R503-BENEFITS-CHARGED-AMT. DTSBD343 00465 DTSBD343 00466 MOVE L054-CURRENT-RESERVE-AMT TO R503-CURRENT-RESERVE-AMT. DTSBD343 00467 DTSBD343 00468 PERFORM S946-WRITE-R503 THRU S946-EXIT. DTSBD343 00469 DTSBD343 00470 DTSBD343 00471 IF R503-UI-PEN-RATE-YES-88 DTSBD343 00472 NEXT SENTENCE DTSBD343 00473 ELSE DTSBD343 00474 GO TO P0000-EXIT. DTSBD343 00475 DTSBD343 00476 DTSBD343 00477 MOVE LOW-VALUES TO R504-SORT-VAR-AREA. DTSBD343 00478 DTSBD343 00479 MOVE MPRF-EMP-NO TO R504-DLY-EMP-NO. DTSBD343 00480 DTSBD343 00481 MOVE MRCT-EFF-YRQ TO R504-DLY-EFF-YRQ. DTSBD343 00482 DTSBD343 00483 MOVE MPRF-EMP-NO TO R504-EMP-NO. DTSBD343 00484 DTSBD343 00485 MOVE MRCT-EFF-YRQ TO R504-EFF-YRQ. DTSBD343 00486 DTSBD343 00487 MOVE R503-RATE-YEAR TO R504-RATE-YEAR. DTSBD343 00488 DTSBD343 00489 MOVE R503-NOTICE-DATE TO R504-NOTICE-DATE. DTSBD343 00490 DTSBD343 00491 MOVE R503-PENALTY-DEADLINE-DATE DTSBD343 00492 TO R504-PENALTY-DEADLINE-DATE. DTSBD343 00493 DTSBD343 00494 MOVE L112-MAILING-ADDRESS TO R504-FMT-ADDR. DTSBD343 00495 DTSBD343 00496 MOVE L112-ZIP TO R504-ZIP. DTSBD343 00497 DTSBD343 00498 MOVE L112-ADVANCED-BARCODE TO R504-ADVANCED-BARCODE. DTSBD343 00499 DTSBD343 00500 MOVE R503-CALC-RATE TO R504-CALC-RATE. DTSBD343 00501 DTSBD343 00502 MOVE R503-PEN-RATE TO R504-PEN-RATE. DTSBD343 00503 DTSBD343 00504 PERFORM S946-WRITE-R504 THRU S946-EXIT. DTSBD343 00505 P0000-EXIT. DTSBD343 00506 EXIT. DTSBD343 00507 EJECT DTSBD343 00508 P1000-CHECK-CONSISTENCY. DTSBD343 00509 IF L054-OK-88 DTSBD343 00510 NEXT SENTENCE DTSBD343 00511 ELSE DTSBD343 00512 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD343 00513 GO TO P1000-EXIT. DTSBD343 00514 DTSBD343 00515 IF L054-UI-PEN-RATE-NO-88 OR L054-UI-PEN-RATE-INEFF-88 DTSBD343 00516 IF L054-UI-CALC-RATE = MRTE-UI-RATE DTSBD343 00517 NEXT SENTENCE DTSBD343 00518 ELSE DTSBD343 00519 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD343 00520 GO TO P1000-EXIT DTSBD343 00521 ELSE DTSBD343 00522 IF L054-UI-PEN-RATE-YES-88 DTSBD343 00523 IF L054-UI-PEN-RATE = MRTE-UI-RATE DTSBD343 00524 NEXT SENTENCE DTSBD343 00525 ELSE DTSBD343 00526 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD343 00527 GO TO P1000-EXIT DTSBD343 00528 ELSE DTSBD343 00529 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD343 00530 GO TO P1000-EXIT. DTSBD343 00531 P1000-EXIT. DTSBD343 00532 EXIT. DTSBD343 00533 DTSBD343 00534 P2000-UPDATE-MRTE. DTSBD343 00535 SET MRTE-RATE-TYPE-FINAL-88 TO TRUE. DTSBD343 00536 MOVE LBCM-CURR-MAIL-DATE TO MRTE-NOTICE-DATE. DTSBD343 00537 DTSBD343 00538 MOVE MRTE-REC TO MSKL-REC. DTSBD343 00539 PERFORM S910-REWRITE THRU S910-EXIT. DTSBD343 00540 DTSBD343 00541 P2000-EXIT. DTSBD343 00542 EXIT. DTSBD343 00543 EJECT DTSBD343 00544 S001-FROM-FED-8. DTSBD343 00545 SET L001-FROM-FED-8 TO TRUE. DTSBD343 00546 GO TO S001-DATE. DTSBD343 00547 DTSBD343 00548 S001-FROM-ABS-DAY. DTSBD343 00549 SET L001-FROM-ABS-DAY TO TRUE. DTSBD343 00550 GO TO S001-DATE. DTSBD343 00551 DTSBD343 00552 S001-DATE. DTSBD343 00553 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBD343 00554 S001-EXIT. DTSBD343 00555 EXIT. DTSBD343 00556 SKIP3 DTSBD343 00557 S004-FROM-5. DTSBD343 00558 SET L004-FROM-5 TO TRUE. DTSBD343 00559 GO TO S004-QTR. DTSBD343 00560 DTSBD343 00561 S004-QTR. DTSBD343 00562 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBD343 00563 S004-EXIT. DTSBD343 00564 EXIT. DTSBD343 00565 SKIP3 DTSBD343 00566 S006-FROM-QTR. DTSBD343 00567 SET L006-FROM-QTR TO TRUE. DTSBD343 00568 GO TO S006-RATING-YEAR. DTSBD343 00569 DTSBD343 00570 S006-RATING-YEAR. DTSBD343 00571 CALL 'DTSBU006' USING L006-LINK-AREA. DTSBD343 00572 S006-EXIT. DTSBD343 00573 EXIT. DTSBD343 00574 SKIP3 DTSBD343 00575 S054-RATE-LOOKUP-YES. DTSBD343 00576 SET L054-RATE-LOOKUP-YES-88 TO TRUE. DTSBD343 00577 GO TO S054-RATE-DETER. DTSBD343 00578 DTSBD343 00579 S054-RATE-DETER. DTSBD343 00580 CALL 'DTSBU054' USING L054-LINK-AREA DTSBD343 00581 MRCT-REC. DTSBD343 00582 S054-EXIT. DTSBD343 00583 EXIT. DTSBD343 00584 SKIP3 DTSBD343 00585 S055-FROM-EFF-YRQ. DTSBD343 00586 SET L055-FROM-EFF-YRQ-88 TO TRUE. DTSBD343 00587 GO TO S055-EXP-PERIOD-DATES. DTSBD343 00588 DTSBD343 00589 S055-EXP-PERIOD-DATES. DTSBD343 00590 CALL 'DTSBU055' USING L055-LINK-AREA. DTSBD343 00591 S055-EXIT. DTSBD343 00592 EXIT. DTSBD343 00593 SKIP3 DTSBD343 00594 S111-LOOKUP-UI-TAX-MAILING. DTSBD343 00595 MOVE MPRF-EMP-NO TO L111-EMP-NO. DTSBD343 00596 SET L111-LOOKUP-TAD-88 TO TRUE. DTSBD343 00597 SET L111-ID-NO-TAD-MAIL-88 TO TRUE. DTSBD343 00598 GO TO S111-LOOKUP-ADDRESS. DTSBD343 00599 DTSBD343 00600 S111-LOOKUP-ADDRESS. DTSBD343 00601 CALL 'DTSBU111' USING L111-LINK-AREA. DTSBD343 00602 S111-EXIT. DTSBD343 00603 EXIT. DTSBD343 00604 SKIP3 DTSBD343 00605 S112-FORMAT-TAD-ADDR. DTSBD343 00606 SET L112-TAD-ADDR-88 TO TRUE. DTSBD343 00607 SET L112-ANCHOR-LAST-88 TO TRUE. DTSBD343 00608 MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME. DTSBD343 00609 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA. DTSBD343 00610 GO TO S112-FORMAT-ADDRESS. DTSBD343 00611 DTSBD343 00612 S112-FORMAT-ADDRESS. DTSBD343 00613 CALL 'DTSBU112' USING L112-LINK-AREA. DTSBD343 00614 S112-EXIT. DTSBD343 00615 EXIT. DTSBD343 00616 SKIP3 DTSBD343 00617 S910-READ. DTSBD343 00618 SET L910-READ-88 TO TRUE. DTSBD343 00619 GO TO S910-MSTR-IO. DTSBD343 00620 DTSBD343 00621 S910-START-BROWSE. DTSBD343 00622 SET L910-START-BROWSE-88 TO TRUE. DTSBD343 00623 GO TO S910-MSTR-IO. DTSBD343 00624 DTSBD343 00625 S910-READ-NEXT. DTSBD343 00626 SET L910-READ-NEXT-88 TO TRUE. DTSBD343 00627 GO TO S910-MSTR-IO. DTSBD343 00628 DTSBD343 00629 S910-REWRITE. DTSBD343 00630 SET L910-REWRITE-88 TO TRUE. DTSBD343 00631 GO TO S910-MSTR-IO. DTSBD343 00632 DTSBD343 00633 S910-MSTR-IO. DTSBD343 00634 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD343 00635 MSKL-REC. DTSBD343 00636 S910-EXIT. DTSBD343 00637 EXIT. DTSBD343 00638 SKIP3 DTSBD343 00639 *S931-READ. DTSBD343 00640 *****SET L931-READ-88 TO TRUE. DTSBD343 00641 *****GO TO S931-REF-I. DTSBD343 00642 DTSBD343 00643 *S931-START-BROWSE. DTSBD343 00644 *****SET L931-START-BROWSE-88 TO TRUE. DTSBD343 00645 *****GO TO S931-REF-I. DTSBD343 00646 DTSBD343 00647 *S931-READ-NEXT. DTSBD343 00648 *****SET L931-READ-NEXT-88 TO TRUE. DTSBD343 00649 *****GO TO S931-REF-I. DTSBD343 00650 DTSBD343 00651 *S931-REF-I. DTSBD343 00652 *****CALL 'DTSBU931' USING L931-LINK-AREA DTSBD343 00653 ***************************FSKL-REC. DTSBD343 00654 *S931-EXIT. DTSBD343 00655 *****EXIT. DTSBD343 00656 SKIP3 DTSBD343 00657 S946-WRITE-R503. DTSBD343 00658 CALL 'DTSBU946' USING R503-REC. DTSBD343 00659 GO TO S946-EXIT. DTSBD343 00660 DTSBD343 00661 S946-WRITE-R504. DTSBD343 00662 CALL 'DTSBU946' USING R504-REC. DTSBD343 00663 GO TO S946-EXIT. DTSBD343 00664 DTSBD343 00665 S946-EXIT. DTSBD343 00666 EXIT. DTSBD343 00667 SKIP3 DTSBD343 00668 S999-ABEND. DTSBD343 00669 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD343 00670 S999-EXIT. DTSBD343 00671 EXIT. DTSBD343