00001 IDENTIFICATION DIVISION. 05/01/07 00002 PROGRAM-ID. DTSBE453. DTSBE453 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV005 00004 DATE-WRITTEN. SEPTEMBER 2002. DTSBE453 00005 DATE-COMPILED. DTSBE453 00006 SKIP3 DTSBE453 00007 ***** DTSBE453 00008 * DTSBE453 00009 * FUNCTION: FINAL DELINQUENT REPORT EXTRACT FOR DTSBE453 00010 * EMPLOYERS FILING ANNUALLY. DTSBE453 00011 * DTSBE453 00012 * MODIFICATION LOG: DTSBE453 00013 * DTSBE453 00014 * 03/13/95 DON'T PRINT R453 WHEN NO IN-STATE FIELD REP. DTSBE453 00015 * WORK ORDER: CR049 PROGRAMMER: RHC DTSBE453 00016 * DTSBE453 00017 * 04/25/95 ADD R454-SUSPEND-COLL-IND TO REPORT RECORD. DTSBE453 00018 * WORK ORDER: CR082 PROGRAMMER: RHC DTSBE453 00019 * DTSBE453 00020 * 03/13/1999 REVIEWED AND MODIFIED FOR DC. DTSBE453 00021 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBE453 00022 * DTSBE453 00023 * 09/09/2002 INITIAL DEVELOPMENT AND CLONING FROM DTSBE420 DTSBE453 00024 * REFERENCE: HOUSEHOLD PROGRAMMER: RW1 DTSBE453 00025 * DTSBE453 00026 * 11/28/05 ADD MPRF-RETURN-MAIL-IND.IF MPRF-RETURN-MAIL-YES-88DTSBE453 00027 * ON MPRF-EMP-NO, BY PASS THAT ACCOUNT EXTRACT INFO- DTSBE453 00028 * MATION AND SEND NO ANNUAL DELINQUENT LETTER TO THATDTSBE453 00029 * EMPLOYER. DTSBE453 00030 * WORK ORDER: PROGRAMMER: RW1 DTSBE453 00031 * DTSBE453 00032 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBE453 00033 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBE453 00034 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBE453 00035 * DTSBE453 00036 * DTSBE453 00037 * DESCRIPTION: DTSBE453 00038 * DTSBE453 00039 * DTSBE453 00040 * INITIATION: DTSBE453 00041 * DTSBE453 00042 * IF LECM-PARM-NOTICE-IND = 'Y' DTSBE453 00043 * SET LECM-MST-OPEN-UPDATE-88 TO TRUE DTSBE453 00044 * SET LECM-REF-OPEN-UPDATE-88 TO TRUE DTSBE453 00045 * ELSE DTSBE453 00046 * SET LECM-MST-OPEN-READ-88 TO TRUE DTSBE453 00047 * SET LECM-REF-OPEN-READ-88 TO TRUE. DTSBE453 00048 * DTSBE453 00049 * EDIT AND DEFAULT PARAMETERS. SEE PRINTED OUTPUTS DTSBE453 00050 * DESCRIPTIONS AND LAYOUTS (453R1, 454R1). DTSBE453 00051 * DTSBE453 00052 * DTSBE453 00053 * PROCESSING: DTSBE453 00054 * DTSBE453 00055 * SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (453R1, DTSBE453 00056 * 454R1). DTSBE453 00057 * DTSBE453 00058 * DTSBE453 00059 * TERMINATION: DTSBE453 00060 * DTSBE453 00061 * IF WRK-PARM-NOTICE-IND = 'Y', THEN DTSBE453 00062 * READ FAFD RECORD FOR WRK-PARM-SUBJECT-YRQ. IF FOUND, DTSBE453 00063 * REWRITE; IF NOT FOUND, CREATE A FAFD RECORD AND WRITE. DTSBE453 00064 * MOVE LECM-CURR-RUN-DATE TO FAFD-UC30H-FINAL-DEL-MAIL-DATE. DTSBE453 00065 * DTSBE453 00066 * DTSBE453 00067 * RECORDS READ: DTSBE453 00068 * DTSBE453 00069 * MASTER: DTSBE453 00070 * DTSBE453 00071 * MQTR DTSBE453 00072 * MTAD DTSBE453 00073 * MOPO DTSBE453 00074 * MTAA DTSBE453 00075 * DTSBE453 00076 * DTSBE453 00077 * ALTERNATE INDEX: DTSBE453 00078 * DTSBE453 00079 * NONE. DTSBE453 00080 * DTSBE453 00081 * DTSBE453 00082 * REFERENCE: DTSBE453 00083 * DTSBE453 00084 * FAFD DTSBE453 00085 * DTSBE453 00086 * DTSBE453 00087 * RECORDS UPDATED: DTSBE453 00088 * DTSBE453 00089 * MEVL (WRITE) DTSBE453 00090 * DTSBE453 00091 * DTSBE453 00092 * REPORT RECORDS WRITTEN: DTSBE453 00093 * DTSBE453 00094 * R453 FINAL DELINQUENT REPORT NOTICE. DTSBE453 00095 * R454 FINAL DELINQUENT NOTICE LIST - FIELD CODE DTSBE453 00096 * SEQUENCE. DTSBE453 00097 * R907 UNUSUAL CONDITION ENCOUNTERED. DTSBE453 00098 * DTSBE453 00099 * DTSBE453 00100 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBE453 00101 * DTSBE453 00102 * NONE. DTSBE453 00103 * DTSBE453 00104 * DTSBE453 00105 * MODULES CALLED: DTSBE453 00106 * DTSBE453 00107 * DTSBU001 DATE CONVERSION/EDIT. DTSBE453 00108 * DTSBU004 QUARTER CONVERSION/EDIT. DTSBE453 00109 * DTSBU061 FIELD ZIP / FIELD REP ID. DTSBE453 00110 * DTSBU101 INTEREST COMPUTATION. DTSBE453 00111 * DTSBU111 ADDRESS LOOKUP. DTSBE453 00112 * DTSBU112 ADDRESS FORMAT. DTSBE453 00113 * DTSBU910 MASTER FILE I/O DRIVER. DTSBE453 00114 * DTSBU931 REFERENCE FILE I/O DRIVER. DTSBE453 00115 * DTSBU946 VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1. DTSBE453 00116 * DTSBE453 00117 ***** DTSBE453 00118 SKIP3 DTSBE453 00119 ENVIRONMENT DIVISION. DTSBE453 00120 EJECT DTSBE453 00121 DATA DIVISION. DTSBE453 00122 SKIP3 DTSBE453 00123 WORKING-STORAGE SECTION. DTSBE453 001235 77 PAN-VALET PICTURE X(24) VALUE '005DTSBE453 05/01/07'. DTSBE453 00124 SKIP3 DTSBE453 00125 01 WRK-AREA. DTSBE453 00126 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +453.DTSBE453 00127 DTSBE453 00128 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBE453'.DTSBE453 00129 DTSBE453 00130 DTSBE453 00131 05 ABEND-MSG PIC X(60). DTSBE453 00132 *RW1 DTSBE453 00133 05 WRK-START-YRQ PIC S9(05) COMP-3. DTSBE453 00134 05 WRK-END-YRQ PIC S9(05) COMP-3. DTSBE453 00135 *RW2 DTSBE453 00136 05 WRK-PARM-SUBJECT-YRQ PIC S9(05) COMP-3. DTSBE453 00137 DTSBE453 00138 * 05 WRK-SUBJECT-SLASH-QTR PIC X(04). DTSBE453 00139 05 WRK-SUBJECT-YEAR PIC X(04). DTSBE453 00140 DTSBE453 00141 05 WRK-PARM-NOTICE-IND PIC X(01). DTSBE453 00142 88 WRK-PARM-NOTICE-YES-88 VALUE 'Y'. DTSBE453 00143 88 WRK-PARM-NOTICE-NO-88 VALUE 'N'. DTSBE453 00144 DTSBE453 00145 05 WRK-PARM-INT-COMP-DATE PIC S9(09) COMP-3. DTSBE453 00146 DTSBE453 00147 05 WRK-PARM-FINAL-ACTION-DATE PIC S9(09) COMP-3. DTSBE453 00148 DTSBE453 00149 DTSBE453 00150 05 WRK-AS-OF-DATE PIC S9(09) COMP-3.DTSBE453 00151 DTSBE453 00152 05 WRK-UC30-FIRST-DEL-MAIL-DATE PIC S9(09) COMP-3.DTSBE453 00153 DTSBE453 00154 05 WRK-UC30-FINAL-DEL-CUTOFF-DATE PIC S9(09) COMP-3.DTSBE453 00155 DTSBE453 00156 05 WRK-UC30-FINAL-DEL-MAIL-DATE PIC S9(09) COMP-3.DTSBE453 00157 DTSBE453 00158 DTSBE453 00159 05 TAD-MISS-RPT-LTRS-IND PIC X(01). DTSBE453 00160 88 TAD-MISS-RPT-LTRS-YES-88 VALUE 'Y'. DTSBE453 00161 88 TAD-MISS-RPT-LTRS-NO-88 VALUE 'N'. DTSBE453 00162 DTSBE453 00163 05 OPO-MISS-RPT-LTRS-IND PIC X(01). DTSBE453 00164 88 OPO-MISS-RPT-LTRS-YES-88 VALUE 'Y'. DTSBE453 00165 88 OPO-MISS-RPT-LTRS-NO-88 VALUE 'N'. DTSBE453 00166 DTSBE453 00167 05 TAA-MISS-RPT-LTRS-IND PIC X(01). DTSBE453 00168 88 TAA-MISS-RPT-LTRS-YES-88 VALUE 'Y'. DTSBE453 00169 88 TAA-MISS-RPT-LTRS-NO-88 VALUE 'N'. DTSBE453 00170 DTSBE453 00171 DTSBE453 00172 05 WRK-TOTAL-RATE PIC S9(01)V9(04) COMP-3.DTSBE453 00173 DTSBE453 00174 05 WRK-RPT-DUE-DATE PIC S9(09) COMP-3.DTSBE453 00175 DTSBE453 00176 05 WRK-QUARTERLY-FILER-CNT PIC S9(07) COMP-3 DTSBE453 00177 VALUE +0. DTSBE453 00178 05 WRK-NOTICE-CNT PIC S9(07) COMP-3 DTSBE453 00179 VALUE +0. DTSBE453 00180 05 WRK-CNT-DISP PIC Z(06)9. DTSBE453 00181 DTSBE453 00182 05 EVL-TEXT. DTSBE453 00183 10 FILLER PIC X(29) DTSBE453 00184 VALUE 'FINAL MISSING RPT LETTER FOR '. DTSBE453 00185 * 10 EVL-SLASH-QTR PIC X(04). DTSBE453 00186 10 EVL-YEAR PIC X(04). DTSBE453 00187 10 FILLER PIC X(09) DTSBE453 00188 VALUE ' SENT TO '. DTSBE453 00189 10 EVL-ADDR-TYPE PIC X(04). DTSBE453 00190 10 FILLER PIC X(01) VALUE SPACES.DTSBE453 00191 10 EVL-ADDR-ID-NO PIC ZZ9. DTSBE453 00192 SKIP3 DTSBE453 00193 01 MSG-AREA. DTSBE453 00194 05 MSG1-AREA. DTSBE453 00195 10 MSG1-ID PIC X(03) VALUE '453'. DTSBE453 00196 10 MSG1-TEXT. DTSBE453 00197 15 FILLER PIC X(40) DTSBE453 00198 VALUE 'RATE MISSING. FINAL DELINQUENT REPORT L'. DTSBE453 00199 15 FILLER PIC X(40) DTSBE453 00200 VALUE 'ETTER PRINTED WITHOUT A RATE. YEAR = '. DTSBE453 00201 * 15 MSG1-SLASHED-YRQ PIC X(04). DTSBE453 00202 15 MSG1-YEAR PIC X(04). DTSBE453 00203 DTSBE453 00204 05 MSG2-AREA. DTSBE453 00205 10 MSG2-ID PIC X(03) VALUE '454'. DTSBE453 00206 10 MSG2-TEXT. DTSBE453 00207 15 FILLER PIC X(40) DTSBE453 00208 VALUE 'FINAL MISSING REPORT LETTER PRINTING SUP'. DTSBE453 00209 15 FILLER PIC X(40) DTSBE453 00210 VALUE 'PRESSED ON ALL MTAD RECORDS. YEAR = '. DTSBE453 00211 * 15 MSG2-SLASHED-YRQ PIC X(04). DTSBE453 00212 15 MSG2-YEAR PIC X(04). DTSBE453 00213 DTSBE453 00214 05 MSG3-AREA. DTSBE453 00215 10 MSG3-ID PIC X(03) VALUE '455'. DTSBE453 00216 10 MSG3-TEXT. DTSBE453 00217 15 FILLER PIC X(40) DTSBE453 00218 VALUE 'MORE THAN 19 ADDITIONAL QUARTERS ARE PUR'. DTSBE453 00219 15 FILLER PIC X(40) DTSBE453 00220 VALUE 'SUED. INCOMPLETE FINAL NOTICE LIST(S) P'. DTSBE453 00221 15 FILLER PIC X(20) DTSBE453 00222 VALUE 'RINTED. '. DTSBE453 00223 DTSBE453 00224 05 MSG4-AREA. DTSBE453 00225 10 MSG4-ID PIC X(03) VALUE '694'. DTSBE453 00226 10 MSG4-TEXT. DTSBE453 00227 15 FILLER PIC X(40) DTSBE453 00228 VALUE 'FINAL DELINQUENT NOTICE NOT PRINTED - NO'. DTSBE453 00229 15 FILLER PIC X(28) DTSBE453 00230 VALUE 'FIELD REP ASSIGNED. '. DTSBE453 00231 DTSBE453 00232 05 MSG5-AREA. DTSBE453 00233 10 MSG5-ID PIC X(03) VALUE '456'. DTSBE453 00234 10 MSG5-TEXT. DTSBE453 00235 15 FILLER PIC X(40) DTSBE453 00236 VALUE 'FINAL MISSING REPORT LETTER PRINTING SUP'. DTSBE453 00237 15 FILLER PIC X(40) DTSBE453 00238 VALUE 'PRESSED ON ALL ADDRESSES. YEAR = '. DTSBE453 00239 * 15 MSG5-SLASHED-YRQ PIC X(04). DTSBE453 00240 15 MSG5-YEAR PIC X(04). DTSBE453 00241 EJECT DTSBE453 00242 01 L001-LINK-AREA. DTSBE453 00243 ++INCLUDE DTSIL001 DTSBE453 00244 SKIP3 DTSBE453 00245 01 L004-LINK-AREA. DTSBE453 00246 ++INCLUDE DTSIL004 DTSBE453 00247 SKIP3 DTSBE453 00248 01 L005-LINK-AREA. DTSBE453 00249 ++INCLUDE DTSIL005 DTSBE453 00250 SKIP3 DTSBE453 00251 01 L061-LINK-AREA. DTSBE453 00252 ++INCLUDE DTSIL061 DTSBE453 00253 SKIP3 DTSBE453 00254 01 L101-LINK-AREA. DTSBE453 00255 ++INCLUDE DTSIL101 DTSBE453 00256 SKIP3 DTSBE453 00257 01 L410-LINK-AREA. DTSBE453 00258 ++INCLUDE DTSIL410 DTSBE453 00259 SKIP3 DTSBE453 00260 01 L415-LINK-AREA. DTSBE453 00261 ++INCLUDE DTSIL415 DTSBE453 00262 SKIP3 DTSBE453 00263 01 L109-LINK-AREA. DTSBE453 00264 ++INCLUDE DTSIL109 DTSBE453 00265 SKIP3 DTSBE453 00266 01 L111-LINK-AREA. DTSBE453 00267 ++INCLUDE DTSIL111 DTSBE453 00268 SKIP3 DTSBE453 00269 01 L112-LINK-AREA. DTSBE453 00270 ++INCLUDE DTSIL112 DTSBE453 00271 EJECT DTSBE453 00272 01 L910-LINK-AREA. DTSBE453 00273 ++INCLUDE DTSIL910 DTSBE453 00274 SKIP3 DTSBE453 00275 01 MSKL-REC. DTSBE453 00276 ++INCLUDE DTSIMSKL DTSBE453 00277 SKIP3 DTSBE453 00278 01 MQTR-REC. DTSBE453 00279 ++INCLUDE DTSIMQTR DTSBE453 00280 SKIP3 DTSBE453 00281 01 MTAD-REC. DTSBE453 00282 ++INCLUDE DTSIMTAD DTSBE453 00283 SKIP3 DTSBE453 00284 01 MEVL-REC. DTSBE453 00285 ++INCLUDE DTSIMEVL DTSBE453 00286 SKIP3 DTSBE453 00287 01 MSOL-REC. DTSBE453 00288 ++INCLUDE DTSIMSOL DTSBE453 00289 SKIP3 DTSBE453 00290 01 MOPO-REC. DTSBE453 00291 ++INCLUDE DTSIMOPO DTSBE453 00292 SKIP3 DTSBE453 00293 01 MTAA-REC. DTSBE453 00294 ++INCLUDE DTSIMTAA DTSBE453 00295 EJECT DTSBE453 00296 01 L931-LINK-AREA. DTSBE453 00297 ++INCLUDE DTSIL931 DTSBE453 00298 SKIP3 DTSBE453 00299 01 FSKL-REC. DTSBE453 00300 ++INCLUDE DTSIFSKL DTSBE453 00301 SKIP3 DTSBE453 00302 01 FAFD-REC. DTSBE453 00303 ++INCLUDE DTSIFAFD DTSBE453 00304 EJECT DTSBE453 00305 01 R453-REC. DTSBE453 00306 ++INCLUDE DTSIR453 DTSBE453 00307 SKIP3 DTSBE453 00308 01 R454-REC. DTSBE453 00309 ++INCLUDE DTSIR454 DTSBE453 00310 SKIP3 DTSBE453 00311 01 R907-REC. DTSBE453 00312 ++INCLUDE DTSIR907 DTSBE453 00313 EJECT DTSBE453 00314 LINKAGE SECTION. DTSBE453 00315 SKIP3 DTSBE453 00316 01 LECM-LINK-AREA. DTSBE453 00317 ++INCLUDE DTSILECM DTSBE453 00318 SKIP3 DTSBE453 00319 10 FILLER REDEFINES LECM-EXTRACT-PARMS. DTSBE453 00320 15 LECM-PARM-NOTICE-IND PIC X(01). DTSBE453 00321 15 FILLER PIC X(01). DTSBE453 00322 15 LECM-PARM-SUBJECT-YRQ PIC X(03). DTSBE453 00323 15 FILLER PIC X(01). DTSBE453 00324 15 LECM-PARM-INT-COMP-DATE PIC X(06). DTSBE453 00325 15 FILLER PIC X(01). DTSBE453 00326 15 LECM-PARM-FINAL-ACTION-DATE DTSBE453 00327 PIC X(06). DTSBE453 00328 15 FILLER PIC X(49). DTSBE453 00329 EJECT DTSBE453 00330 01 MPRF-LINK-REC. DTSBE453 00331 ++INCLUDE DTSIMPRF DTSBE453 00332 EJECT DTSBE453 00333 PROCEDURE DIVISION USING LECM-LINK-AREA DTSBE453 00334 MPRF-LINK-REC. DTSBE453 00335 DTSBE453 00336 DTSBE453 00337 IF LECM-PROCESS-88 DTSBE453 00338 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBE453 00339 ELSE DTSBE453 00340 IF LECM-INITIALIZE-88 DTSBE453 00341 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBE453 00342 ELSE DTSBE453 00343 IF LECM-TERMINATE-88 DTSBE453 00344 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBE453 00345 ELSE DTSBE453 00346 MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED' DTSBE453 00347 TO ABEND-MSG DTSBE453 00348 PERFORM S999-ABEND THRU S999-EXIT. DTSBE453 00349 DTSBE453 00350 DTSBE453 00351 GOBACK. DTSBE453 00352 EJECT DTSBE453 00353 I0000-INITIALIZE. DTSBE453 00354 MOVE LECM-TRACE-IND TO L910-TRACE-IND DTSBE453 00355 L931-TRACE-IND. DTSBE453 00356 DTSBE453 00357 MOVE WRK-MOD-NAME TO L910-MOD-NAME DTSBE453 00358 L931-MOD-NAME DTSBE453 00359 R907-MODULE-NAME. DTSBE453 00360 DTSBE453 00361 DTSBE453 00362 MOVE LENGTH OF R453-REC TO R453-LENGTH. DTSBE453 00363 DTSBE453 00364 MOVE '453' TO R453-REC-TYPE. DTSBE453 00365 DTSBE453 00366 MOVE LENGTH OF R454-REC TO R454-LENGTH. DTSBE453 00367 DTSBE453 00368 MOVE '454' TO R454-REC-TYPE. DTSBE453 00369 DTSBE453 00370 MOVE LENGTH OF R907-REC TO R907-LENGTH. DTSBE453 00371 DTSBE453 00372 MOVE '907' TO R907-REC-TYPE. DTSBE453 00373 DTSBE453 00374 DTSBE453 00375 PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT. DTSBE453 00376 DTSBE453 00377 DTSBE453 00378 IF WRK-PARM-NOTICE-YES-88 DTSBE453 00379 SET LECM-MST-OPEN-UPDATE-88 TO TRUE DTSBE453 00380 SET LECM-REF-OPEN-UPDATE-88 TO TRUE DTSBE453 00381 ELSE DTSBE453 00382 SET LECM-MST-OPEN-READ-88 TO TRUE DTSBE453 00383 SET LECM-REF-OPEN-READ-88 TO TRUE. DTSBE453 00384 SKIP2 DTSBE453 00385 I0000-EXIT. DTSBE453 00386 EXIT. DTSBE453 00387 SKIP3 DTSBE453 00388 I1000-EDIT-AND-DEFAULT-PARMS. DTSBE453 00389 PERFORM I1100-NOTICE-IND THRU I1100-EXIT. DTSBE453 00390 DTSBE453 00391 DTSBE453 00392 PERFORM I1300-SUBJECT-YRQ THRU I1300-EXIT. DTSBE453 00393 DTSBE453 00394 DTSBE453 00395 PERFORM I1400-INT-COMP-DATE THRU I1400-EXIT. DTSBE453 00396 DTSBE453 00397 DTSBE453 00398 MOVE +0 TO WRK-PARM-FINAL-ACTION-DATE DTSBE453 00399 WRK-AS-OF-DATE DTSBE453 00400 WRK-UC30-FIRST-DEL-MAIL-DATE DTSBE453 00401 WRK-UC30-FINAL-DEL-CUTOFF-DATE DTSBE453 00402 WRK-UC30-FINAL-DEL-MAIL-DATE. DTSBE453 00403 DTSBE453 00404 DTSBE453 00405 IF WRK-PARM-NOTICE-YES-88 DTSBE453 00406 PERFORM I2000-NOTICE-PARAMETERS THRU I2000-EXIT. DTSBE453 00407 I1000-EXIT. DTSBE453 00408 EXIT. DTSBE453 00409 SKIP3 DTSBE453 00410 I1100-NOTICE-IND. DTSBE453 00411 DTSBE453 00412 IF LECM-PARM-NOTICE-IND = SPACES DTSBE453 00413 SET WRK-PARM-NOTICE-NO-88 TO TRUE DTSBE453 00414 ELSE DTSBE453 00415 IF LECM-PARM-NOTICE-IND = 'N' OR 'Y' DTSBE453 00416 MOVE LECM-PARM-NOTICE-IND TO WRK-PARM-NOTICE-IND DTSBE453 00417 ELSE DTSBE453 00418 MOVE 'PARM-NOTICE-IND NOT VALID' DTSBE453 00419 TO ABEND-MSG DTSBE453 00420 PERFORM S999-ABEND THRU S999-EXIT. DTSBE453 00421 I1100-EXIT. DTSBE453 00422 EXIT. DTSBE453 00423 SKIP3 DTSBE453 00424 I1300-SUBJECT-YRQ. DTSBE453 00425 *RW1 DTSBE453 00426 SET L415-MODE-MOST-RECENT-88 TO TRUE. DTSBE453 00427 PERFORM S415-HOUSEHOLD-DATES THRU S415-EXIT. DTSBE453 00428 MOVE L415-UC30H-FIRST-DEL-STRT-YRQ TO L004-QTR-5-9. DTSBE453 00429 *RW2 DTSBE453 00430 IF LECM-PARM-SUBJECT-YRQ = SPACES DTSBE453 00431 ** MOVE LECM-LAST-UC30-DEL-MAIL-YRQ TO WRK-PARM-SUBJECT-YRQ DTSBE453 00432 MOVE L415-UC30H-FIRST-DEL-STRT-YRQ TO WRK-PARM-SUBJECT-YRQDTSBE453 00433 ELSE DTSBE453 00434 MOVE LECM-PARM-SUBJECT-YRQ TO L004-QTR-3-X DTSBE453 00435 PERFORM S004-FROM-3 THRU S004-EXIT DTSBE453 00436 IF L004-VALID-QTR DTSBE453 00437 *RW1 DTSBE453 00438 IF L004-QTR-5-Q = 1 DTSBE453 00439 MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ DTSBE453 00440 ELSE DTSBE453 00441 MOVE 'PARM-SUBJECT-YRQ NOT VALID' DTSBE453 00442 TO ABEND-MSG DTSBE453 00443 PERFORM S999-ABEND THRU S999-EXIT DTSBE453 00444 END-IF DTSBE453 00445 *RW2 DTSBE453 00446 ELSE DTSBE453 00447 MOVE 'PARM-SUBJECT-YRQ NOT VALID' DTSBE453 00448 TO ABEND-MSG DTSBE453 00449 PERFORM S999-ABEND THRU S999-EXIT. DTSBE453 00450 DTSBE453 00451 * IF WRK-PARM-SUBJECT-YRQ > LECM-LAST-UC30-DEL-MAIL-YRQ DTSBE453 00452 IF WRK-PARM-SUBJECT-YRQ > L415-UC30H-MASS-MAIL-STRT-YRQ DTSBE453 00453 MOVE DTSBE453 00454 'PARM-SUBJ-YRQ NOT COMP WITH L415-UC30H-MASS-MAIL-STRT-YRQ' DTSBE453 00455 TO ABEND-MSG DTSBE453 00456 PERFORM S999-ABEND THRU S999-EXIT. DTSBE453 00457 DTSBE453 00458 DTSBE453 00459 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9. DTSBE453 00460 DTSBE453 00461 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE453 00462 DTSBE453 00463 * MOVE L004-SLASH-QTR TO WRK-SUBJECT-SLASH-QTR. DTSBE453 00464 MOVE L004-QTR-5-YR TO WRK-SUBJECT-YEAR. DTSBE453 00465 *RW1 DTSBE453 00466 MOVE L004-QTR-5-9 TO WRK-START-YRQ. DTSBE453 00467 MOVE 4 TO L004-QTR-5-Q. DTSBE453 00468 MOVE L004-QTR-5-9 TO WRK-END-YRQ. DTSBE453 00469 *RW2 DTSBE453 00470 I1300-EXIT. DTSBE453 00471 EXIT. DTSBE453 00472 SKIP3 DTSBE453 00473 I1400-INT-COMP-DATE. DTSBE453 00474 IF LECM-PARM-INT-COMP-DATE = SPACES DTSBE453 00475 MOVE LECM-CURR-RUN-DATE TO WRK-PARM-INT-COMP-DATE DTSBE453 00476 ELSE DTSBE453 00477 MOVE LECM-PARM-INT-COMP-DATE TO L001-CAL-6-DATE-X DTSBE453 00478 PERFORM S001-FROM-CAL-6 THRU S001-EXIT DTSBE453 00479 IF L001-VALID-DATE DTSBE453 00480 MOVE L001-FED-8-DATE-9 TO WRK-PARM-INT-COMP-DATE DTSBE453 00481 ELSE DTSBE453 00482 MOVE 'PARM-INT-COMP-DATE NOT VALID' DTSBE453 00483 TO ABEND-MSG DTSBE453 00484 PERFORM S999-ABEND THRU S999-EXIT. DTSBE453 00485 I1400-EXIT. DTSBE453 00486 EXIT. DTSBE453 00487 EJECT DTSBE453 00488 I2000-NOTICE-PARAMETERS. DTSBE453 00489 * MOVE LOW-VALUES TO FQTR-KEY-AREA. DTSBE453 00490 * DTSBE453 00491 * SET FQTR-QTR-88 TO TRUE. DTSBE453 00492 * DTSBE453 00493 * MOVE WRK-PARM-SUBJECT-YRQ TO FQTR-YRQ. DTSBE453 00494 * DTSBE453 00495 * MOVE FQTR-KEY-AREA TO FSKL-KEY-AREA. DTSBE453 00496 * DTSBE453 00497 * PERFORM S931-READ THRU S931-EXIT. DTSBE453 00498 * DTSBE453 00499 * IF L931-NO-REC-88 DTSBE453 00500 * MOVE 'FQTR RECORD FOR SUBJECT YRQ NOT FOUND' DTSBE453 00501 * TO ABEND-MSG DTSBE453 00502 * PERFORM S999-ABEND THRU S999-EXIT. DTSBE453 00503 * DTSBE453 00504 * DTSBE453 00505 * MOVE FSKL-REC TO FQTR-REC. DTSBE453 00506 * DTSBE453 00507 *RW1 DTSBE453 00508 MOVE L004-QTR-5-YR TO L415-YR. DTSBE453 00509 SET L415-MODE-INPUT-YEAR-88 TO TRUE. DTSBE453 00510 PERFORM S415-HOUSEHOLD-DATES THRU S415-EXIT. DTSBE453 00511 IF L415-OK-88 DTSBE453 00512 *RW2 DTSBE453 00513 PERFORM I2100-FINAL-ACTION-DATE THRU I2100-EXIT DTSBE453 00514 ELSE DTSBE453 00515 MOVE 'ANNUAL FILING LINKAGE ACCESS ERROR' DTSBE453 00516 TO ABEND-MSG DTSBE453 00517 PERFORM S999-ABEND THRU S999-EXIT. DTSBE453 00518 DTSBE453 00519 MOVE LECM-PRIOR-RUN-DATE TO WRK-AS-OF-DATE. DTSBE453 00520 DTSBE453 00521 DTSBE453 00522 * IF FQTR-UC30-FIRST-DEL-DATE = +0 DTSBE453 00523 IF L415-UC30H-FIRST-DEL-DATE = +0 DTSBE453 00524 MOVE 'L415-UC30-FIRST-DEL-DATE NOT FOUND' DTSBE453 00525 TO ABEND-MSG DTSBE453 00526 PERFORM S999-ABEND THRU S999-EXIT DTSBE453 00527 ELSE DTSBE453 00528 * MOVE FQTR-UC30-FIRST-DEL-DATE DTSBE453 00529 MOVE L415-UC30H-FIRST-DEL-DATE DTSBE453 00530 TO WRK-UC30-FIRST-DEL-MAIL-DATE. DTSBE453 00531 DTSBE453 00532 DTSBE453 00533 MOVE LECM-CURR-RUN-DATE TO WRK-UC30-FINAL-DEL-CUTOFF-DATE DTSBE453 00534 WRK-UC30-FINAL-DEL-MAIL-DATE. DTSBE453 00535 DTSBE453 00536 DTSBE453 00537 IF (WRK-UC30-FIRST-DEL-MAIL-DATE DTSBE453 00538 < WRK-UC30-FINAL-DEL-MAIL-DATE) DTSBE453 00539 AND DTSBE453 00540 (WRK-UC30-FINAL-DEL-MAIL-DATE DTSBE453 00541 < WRK-PARM-FINAL-ACTION-DATE) DTSBE453 00542 NEXT SENTENCE DTSBE453 00543 ELSE DTSBE453 00544 MOVE 'INCONSISTENT DATES ENCOUNTERED' DTSBE453 00545 TO ABEND-MSG DTSBE453 00546 PERFORM S999-ABEND THRU S999-EXIT. DTSBE453 00547 I2000-EXIT. DTSBE453 00548 EXIT. DTSBE453 00549 SKIP3 DTSBE453 00550 I2100-FINAL-ACTION-DATE. DTSBE453 00551 IF LECM-PARM-FINAL-ACTION-DATE = SPACES DTSBE453 00552 * IF FQTR-UC30-FINAL-ACTION-DATE = +0 DTSBE453 00553 IF L415-UC30H-FINAL-ACTION-DATE = +0 DTSBE453 00554 MOVE LECM-CURR-RUN-DATE TO L001-FED-8-DATE-9 DTSBE453 00555 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBE453 00556 ADD +14 TO L001-JUL-ABS-DAY DTSBE453 00557 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT DTSBE453 00558 MOVE L001-FED-8-DATE-9 DTSBE453 00559 TO WRK-PARM-FINAL-ACTION-DATE DTSBE453 00560 ELSE DTSBE453 00561 * MOVE FQTR-UC30-FINAL-ACTION-DATE DTSBE453 00562 MOVE L415-UC30H-FINAL-ACTION-DATE DTSBE453 00563 TO WRK-PARM-FINAL-ACTION-DATE DTSBE453 00564 ELSE DTSBE453 00565 MOVE LECM-PARM-FINAL-ACTION-DATE DTSBE453 00566 TO L001-CAL-6-DATE-X DTSBE453 00567 PERFORM S001-FROM-CAL-6 THRU S001-EXIT DTSBE453 00568 IF L001-VALID-DATE DTSBE453 00569 MOVE L001-FED-8-DATE-9 DTSBE453 00570 TO WRK-PARM-FINAL-ACTION-DATE DTSBE453 00571 ELSE DTSBE453 00572 MOVE 'INVALID PARM-FINAL-ACTION-DATE ENCOUNTERED' DTSBE453 00573 TO ABEND-MSG DTSBE453 00574 PERFORM S999-ABEND THRU S999-EXIT. DTSBE453 00575 I2100-EXIT. DTSBE453 00576 EXIT. DTSBE453 00577 EJECT DTSBE453 00578 P0000-PROCESS. DTSBE453 00579 *****IF (MPRF-EMP-NO < 360094) DTSBE453 00580 ***************OR DTSBE453 00581 ********(MPRF-EMP-NO > 360098) DTSBE453 00582 *********GO TO P0000-EXIT. DTSBE453 00583 DTSBE453 00584 DTSBE453 00585 MOVE MPRF-EMP-NO TO R907-EMP-NO. DTSBE453 00586 DTSBE453 00587 IF MPRF-PURSUED-RPT-CNT > +0 DTSBE453 00588 NEXT SENTENCE DTSBE453 00589 ELSE DTSBE453 00590 GO TO P0000-EXIT. DTSBE453 00591 *RW DTSBE453 00592 IF MPRF-RETURN-MAIL-YES-88 DTSBE453 00593 GO TO P0000-EXIT. DTSBE453 00594 *RW DTSBE453 00595 SET L410-MODE-INPUT-YRQ-88 TO TRUE DTSBE453 00596 MOVE MPRF-EMP-NO TO L410-EMP-NO DTSBE453 00597 MOVE WRK-PARM-SUBJECT-YRQ TO L410-YRQ DTSBE453 00598 PERFORM S410-FILE-SCHED THRU S410-EXIT DTSBE453 00599 IF L410-ANN-SCHED-88 DTSBE453 00600 NEXT SENTENCE DTSBE453 00601 ELSE DTSBE453 00602 IF L410-QTRLY-SCHED-88 DTSBE453 00603 ADD +1 TO WRK-QUARTERLY-FILER-CNT DTSBE453 00604 GO TO P0000-EXIT DTSBE453 00605 ELSE DTSBE453 00606 ADD +1 TO WRK-QUARTERLY-FILER-CNT DTSBE453 00607 GO TO P0000-EXIT DTSBE453 00608 END-IF DTSBE453 00609 END-IF. DTSBE453 00610 DTSBE453 00611 DTSBE453 00612 DISPLAY 'EMP NO ' MPRF-EMP-NO. DTSBE453 00613 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBE453 00614 DTSBE453 00615 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBE453 00616 DTSBE453 00617 SET MQTR-QTR-88 TO TRUE. DTSBE453 00618 DTSBE453 00619 MOVE WRK-PARM-SUBJECT-YRQ TO MQTR-YRQ. DTSBE453 00620 DTSBE453 00621 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBE453 00622 DTSBE453 00623 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE453 00624 DTSBE453 00625 IF L910-NO-REC-88 DTSBE453 00626 GO TO P0000-EXIT. DTSBE453 00627 DTSBE453 00628 MOVE MSKL-REC TO MQTR-REC. DTSBE453 00629 DTSBE453 00630 IF (MQTR-YRQ >= WRK-START-YRQ) AND (MQTR-YRQ <= WRK-END-YRQ) DTSBE453 00631 IF MQTR-RPT-NOT-PURSUED-88 DTSBE453 00632 GO TO P0000-EXIT DTSBE453 00633 END-IF DTSBE453 00634 ELSE DTSBE453 00635 GO TO P0000-EXIT. DTSBE453 00636 DTSBE453 00637 DTSBE453 00638 IF MQTR-MISS-LETTER-SENT-88 DTSBE453 00639 NEXT SENTENCE DTSBE453 00640 ELSE DTSBE453 00641 GO TO P0000-EXIT. DTSBE453 00642 DTSBE453 00643 DTSBE453 00644 SET TAD-MISS-RPT-LTRS-NO-88 TO TRUE. DTSBE453 00645 DTSBE453 00646 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE453 00647 DTSBE453 00648 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE453 00649 DTSBE453 00650 SET MSKL-TAD-88 TO TRUE. DTSBE453 00651 DTSBE453 00652 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE453 00653 DTSBE453 00654 PERFORM DTSBE453 00655 UNTIL L910-NO-REC-88 DTSBE453 00656 MOVE MSKL-REC TO MTAD-REC DTSBE453 00657 IF MTAD-MISSING-RPT-LTRS-YES-88 DTSBE453 00658 SET TAD-MISS-RPT-LTRS-YES-88 TO TRUE DTSBE453 00659 END-IF DTSBE453 00660 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE453 00661 END-PERFORM. DTSBE453 00662 DTSBE453 00663 DTSBE453 00664 SET OPO-MISS-RPT-LTRS-NO-88 TO TRUE. DTSBE453 00665 DTSBE453 00666 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE453 00667 DTSBE453 00668 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE453 00669 DTSBE453 00670 SET MSKL-OPO-88 TO TRUE. DTSBE453 00671 DTSBE453 00672 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE453 00673 DTSBE453 00674 PERFORM DTSBE453 00675 UNTIL L910-NO-REC-88 DTSBE453 00676 MOVE MSKL-REC TO MOPO-REC DTSBE453 00677 IF MOPO-MISSING-RPT-LTRS-YES-88 DTSBE453 00678 SET OPO-MISS-RPT-LTRS-YES-88 TO TRUE DTSBE453 00679 END-IF DTSBE453 00680 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE453 00681 END-PERFORM. DTSBE453 00682 DTSBE453 00683 DTSBE453 00684 SET TAA-MISS-RPT-LTRS-NO-88 TO TRUE. DTSBE453 00685 DTSBE453 00686 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE453 00687 DTSBE453 00688 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE453 00689 DTSBE453 00690 SET MSKL-TAA-88 TO TRUE. DTSBE453 00691 DTSBE453 00692 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE453 00693 DTSBE453 00694 PERFORM DTSBE453 00695 UNTIL L910-NO-REC-88 DTSBE453 00696 MOVE MSKL-REC TO MTAA-REC DTSBE453 00697 IF MTAA-MISSING-RPT-LTRS-YES-88 DTSBE453 00698 SET TAA-MISS-RPT-LTRS-YES-88 TO TRUE DTSBE453 00699 END-IF DTSBE453 00700 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE453 00701 END-PERFORM. DTSBE453 00702 DTSBE453 00703 DTSBE453 00704 IF TAD-MISS-RPT-LTRS-NO-88 DTSBE453 00705 MOVE MSG2-ID TO R907-MSG-ID DTSBE453 00706 * MOVE WRK-SUBJECT-SLASH-QTR TO MSG2-SLASHED-YRQ DTSBE453 00707 MOVE WRK-SUBJECT-YEAR TO MSG2-YEAR DTSBE453 00708 MOVE MSG2-TEXT TO R907-MSG-TEXT DTSBE453 00709 PERFORM S946-WRITE-R907 THRU S946-EXIT. DTSBE453 00710 DTSBE453 00711 DTSBE453 00712 IF (TAD-MISS-RPT-LTRS-NO-88) DTSBE453 00713 AND DTSBE453 00714 (OPO-MISS-RPT-LTRS-NO-88) DTSBE453 00715 AND DTSBE453 00716 (TAA-MISS-RPT-LTRS-NO-88) DTSBE453 00717 MOVE MSG5-ID TO R907-MSG-ID DTSBE453 00718 * MOVE WRK-SUBJECT-SLASH-QTR TO MSG5-SLASHED-YRQ DTSBE453 00719 MOVE WRK-SUBJECT-YEAR TO MSG5-YEAR DTSBE453 00720 MOVE MSG5-TEXT TO R907-MSG-TEXT DTSBE453 00721 PERFORM S946-WRITE-R907 THRU S946-EXIT DTSBE453 00722 GO TO P0000-EXIT. DTSBE453 00723 DTSBE453 00724 DTSBE453 00725 PERFORM P1000-TOTAL-RATE THRU P1000-EXIT. DTSBE453 00726 DTSBE453 00727 DTSBE453 00728 MOVE MQTR-RPT-DUE-DATE TO WRK-RPT-DUE-DATE. DTSBE453 00729 DTSBE453 00730 DTSBE453 00731 PERFORM P2000-FIELD-LIST THRU P2000-EXIT. DTSBE453 00732 DTSBE453 00733 DTSBE453 00734 IF WRK-PARM-NOTICE-YES-88 DTSBE453 00735 * ADD +1 TO WRK-NOTICE-CNT DTSBE453 00736 PERFORM P3000-FINAL-NOTICE THRU P3000-EXIT. DTSBE453 00737 P0000-EXIT. DTSBE453 00738 EXIT. DTSBE453 00739 EJECT DTSBE453 00740 P1000-TOTAL-RATE. DTSBE453 00741 IF MPRF-CLASS-SELF-INS-88 DTSBE453 00742 PERFORM S109-LOOKUP-SUR-RATE THRU S109-EXIT DTSBE453 00743 MOVE L109-SUR-RATE TO WRK-TOTAL-RATE DTSBE453 00744 ELSE DTSBE453 00745 IF MQTR-NO-UI-RATE-88 DTSBE453 00746 MOVE MQTR-UI-RATE TO WRK-TOTAL-RATE DTSBE453 00747 ELSE DTSBE453 00748 PERFORM S109-LOOKUP-SUR-RATE THRU S109-EXIT DTSBE453 00749 ADD MQTR-UI-RATE DTSBE453 00750 L109-SUR-RATE GIVING WRK-TOTAL-RATE. DTSBE453 00751 P1000-EXIT. DTSBE453 00752 EXIT. DTSBE453 00753 EJECT DTSBE453 00754 P2000-FIELD-LIST. DTSBE453 00755 PERFORM S061-DETERMINE-FLD-REP THRU S061-EXIT. DTSBE453 00756 DTSBE453 00757 DTSBE453 00758 MOVE L061-FLD-REP-ID TO R454-FIELD-REP-ID. DTSBE453 00759 DTSBE453 00760 MOVE MPRF-FLD-ZIP TO R454-FIELD-ZIP. DTSBE453 00761 DTSBE453 00762 MOVE MPRF-EMP-NO TO R454-EMP-NO. DTSBE453 00763 DTSBE453 00764 DTSBE453 00765 MOVE LOW-VALUES TO R454-DATA-AREA. DTSBE453 00766 DTSBE453 00767 DTSBE453 00768 MOVE WRK-PARM-SUBJECT-YRQ TO R454-YRQ. DTSBE453 00769 DTSBE453 00770 MOVE WRK-PARM-INT-COMP-DATE TO R454-COMPUTATION-DATE. DTSBE453 00771 DTSBE453 00772 MOVE MPRF-SUSPEND-COLL-IND TO R454-SUSPEND-COLL-IND. DTSBE453 00773 DTSBE453 00774 MOVE MPRF-PRIMARY-NAME TO R454-PRIMARY-NAME. DTSBE453 00775 DTSBE453 00776 DTSBE453 00777 MOVE LOW-VALUES TO MTAD-KEY-AREA. DTSBE453 00778 DTSBE453 00779 MOVE MPRF-EMP-NO TO MTAD-EMP-NO. DTSBE453 00780 DTSBE453 00781 SET MTAD-TAD-88 TO TRUE. DTSBE453 00782 DTSBE453 00783 MOVE +1 TO MTAD-ID-NO. DTSBE453 00784 DTSBE453 00785 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA. DTSBE453 00786 DTSBE453 00787 PERFORM S910-READ THRU S910-EXIT. DTSBE453 00788 DTSBE453 00789 IF L910-OK-88 DTSBE453 00790 MOVE MSKL-REC TO MTAD-REC DTSBE453 00791 MOVE MTAD-ATTN-LINE TO R454-ADDR1-ATTN-LINE DTSBE453 00792 MOVE MTAD-DELIV-LINE-1 TO R454-ADDR1-DELIV-LINE-1 DTSBE453 00793 MOVE MTAD-DELIV-LINE-2 TO R454-ADDR1-DELIV-LINE-2 DTSBE453 00794 MOVE MTAD-CITY TO R454-ADDR1-CITY DTSBE453 00795 MOVE MTAD-ST TO R454-ADDR1-STATE DTSBE453 00796 MOVE MTAD-ZIP TO R454-ADDR1-ZIP DTSBE453 00797 MOVE MTAD-VOICE-1 TO R454-EMPLOYER-VOICE (1) DTSBE453 00798 MOVE MTAD-VOICE-2 TO R454-EMPLOYER-VOICE (2) DTSBE453 00799 ELSE DTSBE453 00800 MOVE SPACE TO R454-ADDR1-ATTN-LINE DTSBE453 00801 R454-ADDR1-DELIV-LINE-1 DTSBE453 00802 R454-ADDR1-DELIV-LINE-2 DTSBE453 00803 R454-ADDR1-CITY DTSBE453 00804 R454-ADDR1-STATE DTSBE453 00805 R454-ADDR1-ZIP DTSBE453 00806 R454-EMPLOYER-VOICE (1) DTSBE453 00807 R454-EMPLOYER-VOICE (2). DTSBE453 00808 DTSBE453 00809 DTSBE453 00810 MOVE +2 TO MTAD-ID-NO. DTSBE453 00811 DTSBE453 00812 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA. DTSBE453 00813 DTSBE453 00814 PERFORM S910-READ THRU S910-EXIT. DTSBE453 00815 DTSBE453 00816 IF L910-OK-88 DTSBE453 00817 MOVE MSKL-REC TO MTAD-REC DTSBE453 00818 MOVE MTAD-ATTN-LINE TO R454-ADDR2-ATTN-LINE DTSBE453 00819 MOVE MTAD-DELIV-LINE-1 TO R454-ADDR2-DELIV-LINE-1 DTSBE453 00820 MOVE MTAD-DELIV-LINE-2 TO R454-ADDR2-DELIV-LINE-2 DTSBE453 00821 MOVE MTAD-CITY TO R454-ADDR2-CITY DTSBE453 00822 MOVE MTAD-ST TO R454-ADDR2-STATE DTSBE453 00823 MOVE MTAD-ZIP TO R454-ADDR2-ZIP DTSBE453 00824 MOVE MTAD-VOICE-1 TO R454-EMPLOYER-VOICE (3) DTSBE453 00825 MOVE MTAD-VOICE-2 TO R454-EMPLOYER-VOICE (4) DTSBE453 00826 ELSE DTSBE453 00827 MOVE SPACE TO R454-ADDR2-ATTN-LINE DTSBE453 00828 R454-ADDR2-DELIV-LINE-1 DTSBE453 00829 R454-ADDR2-DELIV-LINE-2 DTSBE453 00830 R454-ADDR2-CITY DTSBE453 00831 R454-ADDR2-STATE DTSBE453 00832 R454-ADDR2-ZIP DTSBE453 00833 R454-EMPLOYER-VOICE (3) DTSBE453 00834 R454-EMPLOYER-VOICE (4). DTSBE453 00835 DTSBE453 00836 DTSBE453 00837 MOVE +0 TO R454-INACT-DATE. DTSBE453 00838 DTSBE453 00839 IF MPRF-STATUS-INACT-88 DTSBE453 00840 MOVE LOW-VALUES TO MSKL-KEY-AREA DTSBE453 00841 MOVE MPRF-EMP-NO TO MSKL-EMP-NO DTSBE453 00842 SET MSKL-SOL-88 TO TRUE DTSBE453 00843 PERFORM S910-START-BROWSE THRU S910-EXIT DTSBE453 00844 PERFORM DTSBE453 00845 UNTIL L910-NO-REC-88 DTSBE453 00846 MOVE MSKL-REC TO MSOL-REC DTSBE453 00847 MOVE MSOL-INACT-DATE TO R454-INACT-DATE DTSBE453 00848 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE453 00849 END-PERFORM. DTSBE453 00850 DTSBE453 00851 DTSBE453 00852 MOVE WRK-TOTAL-RATE TO R454-TOTAL-RATE. DTSBE453 00853 DTSBE453 00854 DTSBE453 00855 MOVE +0 TO R454-BALANCE-AMT. DTSBE453 00856 DTSBE453 00857 IF MPRF-TOT-BALANCE-AMT > +0 DTSBE453 00858 MOVE LOW-VALUES TO MSKL-KEY-AREA DTSBE453 00859 MOVE MPRF-EMP-NO TO MSKL-EMP-NO DTSBE453 00860 SET MSKL-QTR-88 TO TRUE DTSBE453 00861 PERFORM S910-START-BROWSE THRU S910-EXIT DTSBE453 00862 PERFORM P2100-SCAN-MQTR THRU P2100-EXIT DTSBE453 00863 UNTIL L910-NO-REC-88. DTSBE453 00864 DTSBE453 00865 DTSBE453 00866 MOVE MPRF-TOT-CREDIT-AMT TO R454-CREDIT-AMT. DTSBE453 00867 DTSBE453 00868 DTSBE453 00869 MOVE +0 TO R454-ADDITIONAL-RPT-CNT. DTSBE453 00870 DTSBE453 00871 IF MPRF-PURSUED-RPT-CNT > +1 DTSBE453 00872 MOVE LOW-VALUES TO MSKL-KEY-AREA DTSBE453 00873 MOVE MPRF-EMP-NO TO MSKL-EMP-NO DTSBE453 00874 SET MSKL-QTR-88 TO TRUE DTSBE453 00875 PERFORM S910-START-BROWSE THRU S910-EXIT DTSBE453 00876 PERFORM P2200-SCAN-MQTR THRU P2200-EXIT DTSBE453 00877 UNTIL L910-NO-REC-88. DTSBE453 00878 DTSBE453 00879 DTSBE453 00880 MOVE +0 TO R454-OPO-NAME-CNT. DTSBE453 00881 DTSBE453 00882 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE453 00883 DTSBE453 00884 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE453 00885 DTSBE453 00886 SET MSKL-OPO-88 TO TRUE. DTSBE453 00887 DTSBE453 00888 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE453 00889 DTSBE453 00890 PERFORM P2300-SCAN-MOPO THRU P2300-EXIT DTSBE453 00891 UNTIL L910-NO-REC-88. DTSBE453 00892 DTSBE453 00893 DTSBE453 00894 PERFORM S946-WRITE-R454 THRU S946-EXIT. DTSBE453 00895 P2000-EXIT. DTSBE453 00896 EXIT. DTSBE453 00897 SKIP3 DTSBE453 00898 P2100-SCAN-MQTR. DTSBE453 00899 MOVE MSKL-REC TO MQTR-REC. DTSBE453 00900 DTSBE453 00901 DTSBE453 00902 MOVE +0 TO L101-PAID-CHNG. DTSBE453 00903 DTSBE453 00904 PERFORM DTSBE453 00905 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBE453 00906 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBE453 00907 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBE453 00908 TO R454-BALANCE-AMT DTSBE453 00909 IF MQTR-ACCT-TAX-88 (MQTR-ACCT-IDX) DTSBE453 00910 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBE453 00911 TO L101-PAID-CHNG DTSBE453 00912 END-IF DTSBE453 00913 END-PERFORM. DTSBE453 00914 DTSBE453 00915 IF L101-PAID-CHNG > +0 DTSBE453 00916 PERFORM P2110-PROJECT-PEN-INT THRU P2110-EXIT. DTSBE453 00917 DTSBE453 00918 DTSBE453 00919 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE453 00920 P2100-EXIT. DTSBE453 00921 EXIT. DTSBE453 00922 SKIP3 DTSBE453 00923 P2110-PROJECT-PEN-INT. DTSBE453 00924 MOVE WRK-PARM-INT-COMP-DATE TO L101-RECEIVED-DATE. DTSBE453 00925 DTSBE453 00926 SET L101-WAIVE-INT-NO-88 TO TRUE. DTSBE453 00927 DTSBE453 00928 MOVE MQTR-TAX-DUE-DATE TO L101-TAX-DUE-DATE. DTSBE453 00929 DTSBE453 00930 MOVE MQTR-INT-AREA TO L101-INT-AREA. DTSBE453 00931 DTSBE453 00932 PERFORM S101-PER-MONTH-NO THRU S101-EXIT. DTSBE453 00933 DTSBE453 00934 ADD L101-INT-CHARGE-CHNG TO R454-BALANCE-AMT. DTSBE453 00935 DTSBE453 00936 SUBTRACT L101-INT-WAIVE-CHNG FROM R454-BALANCE-AMT. DTSBE453 00937 P2110-EXIT. DTSBE453 00938 EXIT. DTSBE453 00939 SKIP3 DTSBE453 00940 P2200-SCAN-MQTR. DTSBE453 00941 MOVE MSKL-REC TO MQTR-REC. DTSBE453 00942 * EVEN WE RUN ANNUAL THE FOLLOWING IF STATEMENT O.K. ? DTSBE453 00943 IF MQTR-YRQ = WRK-PARM-SUBJECT-YRQ DTSBE453 00944 NEXT SENTENCE DTSBE453 00945 ELSE DTSBE453 00946 IF MQTR-RPT-IS-PURSUED-88 DTSBE453 00947 IF R454-ADDITIONAL-RPT-CNT < +19 DTSBE453 00948 ADD +1 TO R454-ADDITIONAL-RPT-CNT DTSBE453 00949 MOVE MQTR-YRQ DTSBE453 00950 TO R454-ADDITIONAL-RPT-YRQ DTSBE453 00951 (R454-ADDITIONAL-RPT-CNT) DTSBE453 00952 ELSE DTSBE453 00953 MOVE MSG3-ID TO R907-MSG-ID DTSBE453 00954 MOVE MSG3-TEXT TO R907-MSG-TEXT DTSBE453 00955 PERFORM S946-WRITE-R907 THRU S946-EXIT DTSBE453 00956 SET L910-NO-REC-88 TO TRUE DTSBE453 00957 GO TO P2200-EXIT. DTSBE453 00958 DTSBE453 00959 DTSBE453 00960 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE453 00961 P2200-EXIT. DTSBE453 00962 EXIT. DTSBE453 00963 SKIP3 DTSBE453 00964 P2300-SCAN-MOPO. DTSBE453 00965 MOVE MSKL-REC TO MOPO-REC. DTSBE453 00966 DTSBE453 00967 ADD +1 TO R454-OPO-NAME-CNT. DTSBE453 00968 DTSBE453 00969 MOVE MOPO-NAME TO R454-OPO-NAME (R454-OPO-NAME-CNT). DTSBE453 00970 DTSBE453 00971 IF R454-OPO-NAME-CNT < +6 DTSBE453 00972 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE453 00973 ELSE DTSBE453 00974 SET L910-NO-REC-88 TO TRUE. DTSBE453 00975 P2300-EXIT. DTSBE453 00976 EXIT. DTSBE453 00977 EJECT DTSBE453 00978 P3000-FINAL-NOTICE. DTSBE453 00979 IF L061-FLD-REP-ID = '??' DTSBE453 00980 MOVE MSG4-ID TO R907-MSG-ID DTSBE453 00981 MOVE MSG4-TEXT TO R907-MSG-TEXT DTSBE453 00982 PERFORM S946-WRITE-R907 THRU S946-EXIT DTSBE453 00983 GO TO P3000-EXIT DTSBE453 00984 ELSE DTSBE453 00985 IF L061-FLD-DESK-88 DTSBE453 00986 SET R453-FLD-DESK-YES-88 TO TRUE DTSBE453 00987 ELSE DTSBE453 00988 SET R453-FLD-DESK-NO-88 TO TRUE. DTSBE453 00989 DTSBE453 00990 ADD +1 TO WRK-NOTICE-CNT DTSBE453 00991 DTSBE453 00992 MOVE SPACES TO R453-SORT-ZIP. DTSBE453 00993 DTSBE453 00994 MOVE MPRF-EMP-NO TO R453-EMP-NO. DTSBE453 00995 DTSBE453 00996 MOVE LOW-VALUES TO R453-DATA-AREA. DTSBE453 00997 DTSBE453 00998 MOVE L061-FLD-REP-ID TO R453-FIELD-REP-ID. DTSBE453 00999 DTSBE453 01000 MOVE WRK-UC30-FINAL-DEL-MAIL-DATE TO R453-MAIL-DATE. DTSBE453 01001 DTSBE453 01002 MOVE WRK-AS-OF-DATE TO R453-AS-OF-DATE. DTSBE453 01003 DTSBE453 01004 MOVE WRK-UC30-FIRST-DEL-MAIL-DATE DTSBE453 01005 TO R453-UC30-FIRST-DEL-MAIL-DATE. DTSBE453 01006 DTSBE453 01007 MOVE WRK-PARM-FINAL-ACTION-DATE DTSBE453 01008 TO R453-FINAL-ACTION-DATE. DTSBE453 01009 DTSBE453 01010 MOVE SPACES TO R453-FMT-ADDR DTSBE453 01011 R453-ZIP DTSBE453 01012 R453-ADVANCED-BARCODE. DTSBE453 01013 DTSBE453 01014 MOVE WRK-TOTAL-RATE TO R453-TOTAL-RATE. DTSBE453 01015 DTSBE453 01016 IF R453-NO-UI-RATE-88 DTSBE453 01017 MOVE MSG1-ID TO R907-MSG-ID DTSBE453 01018 * MOVE WRK-SUBJECT-SLASH-QTR TO MSG1-SLASHED-YRQ DTSBE453 01019 MOVE WRK-SUBJECT-YEAR TO MSG1-YEAR DTSBE453 01020 MOVE MSG1-TEXT TO R907-MSG-TEXT DTSBE453 01021 PERFORM S946-WRITE-R907 THRU S946-EXIT. DTSBE453 01022 DTSBE453 01023 MOVE WRK-PARM-SUBJECT-YRQ TO R453-YRQ. DTSBE453 01024 DTSBE453 01025 MOVE WRK-RPT-DUE-DATE TO R453-DUE-DATE. DTSBE453 01026 DTSBE453 01027 DTSBE453 01028 MOVE R454-ADDITIONAL-RPT-CNT TO R453-ADDITIONAL-RPT-CNT. DTSBE453 01029 DTSBE453 01030 PERFORM DTSBE453 01031 VARYING R454-YRQ-IDX FROM 1 BY 1 DTSBE453 01032 UNTIL R454-YRQ-IDX > R454-ADDITIONAL-RPT-CNT DTSBE453 01033 SET R453-YRQ-IDX TO R454-YRQ-IDX DTSBE453 01034 MOVE R454-ADDITIONAL-RPT-YRQ (R454-YRQ-IDX) DTSBE453 01035 TO R453-ADDITIONAL-RPT-YRQ (R453-YRQ-IDX) DTSBE453 01036 END-PERFORM. DTSBE453 01037 DTSBE453 01038 DTSBE453 01039 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE453 01040 DTSBE453 01041 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE453 01042 DTSBE453 01043 SET MSKL-TAD-88 TO TRUE. DTSBE453 01044 DTSBE453 01045 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE453 01046 DTSBE453 01047 PERFORM DTSBE453 01048 UNTIL L910-NO-REC-88 DTSBE453 01049 MOVE MSKL-REC TO MTAD-REC DTSBE453 01050 IF MTAD-MISSING-RPT-LTRS-YES-88 DTSBE453 01051 PERFORM P3100-TAD-PROCESS THRU P3100-EXIT DTSBE453 01052 MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA DTSBE453 01053 PERFORM S910-READ THRU S910-EXIT DTSBE453 01054 END-IF DTSBE453 01055 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE453 01056 END-PERFORM. DTSBE453 01057 DTSBE453 01058 DTSBE453 01059 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE453 01060 DTSBE453 01061 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE453 01062 DTSBE453 01063 SET MSKL-OPO-88 TO TRUE. DTSBE453 01064 DTSBE453 01065 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE453 01066 DTSBE453 01067 PERFORM DTSBE453 01068 UNTIL L910-NO-REC-88 DTSBE453 01069 MOVE MSKL-REC TO MOPO-REC DTSBE453 01070 IF MOPO-MISSING-RPT-LTRS-YES-88 DTSBE453 01071 PERFORM P3200-OPO-PROCESS THRU P3200-EXIT DTSBE453 01072 MOVE MOPO-KEY-AREA TO MSKL-KEY-AREA DTSBE453 01073 PERFORM S910-READ THRU S910-EXIT DTSBE453 01074 END-IF DTSBE453 01075 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE453 01076 END-PERFORM. DTSBE453 01077 DTSBE453 01078 DTSBE453 01079 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE453 01080 DTSBE453 01081 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE453 01082 DTSBE453 01083 SET MSKL-TAA-88 TO TRUE. DTSBE453 01084 DTSBE453 01085 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE453 01086 DTSBE453 01087 PERFORM DTSBE453 01088 UNTIL L910-NO-REC-88 DTSBE453 01089 MOVE MSKL-REC TO MTAA-REC DTSBE453 01090 IF MTAA-MISSING-RPT-LTRS-YES-88 DTSBE453 01091 PERFORM P3300-TAA-PROCESS THRU P3300-EXIT DTSBE453 01092 MOVE MTAA-KEY-AREA TO MSKL-KEY-AREA DTSBE453 01093 PERFORM S910-READ THRU S910-EXIT DTSBE453 01094 END-IF DTSBE453 01095 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE453 01096 END-PERFORM. DTSBE453 01097 P3000-EXIT. DTSBE453 01098 EXIT. DTSBE453 01099 SKIP3 DTSBE453 01100 P3100-TAD-PROCESS. DTSBE453 01101 MOVE MTAD-ID-NO TO L111-ID-NO. DTSBE453 01102 DTSBE453 01103 PERFORM S111-LOOKUP-TAD THRU S111-EXIT. DTSBE453 01104 DTSBE453 01105 IF L111-ADDR-NOT-FOUND-88 DTSBE453 01106 GO TO P3100-EXIT. DTSBE453 01107 DTSBE453 01108 DTSBE453 01109 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA. DTSBE453 01110 DTSBE453 01111 PERFORM S112-FORMAT-TAD THRU S112-EXIT. DTSBE453 01112 DTSBE453 01113 DTSBE453 01114 MOVE L112-ZIP TO R453-SORT-ZIP. DTSBE453 01115 DTSBE453 01116 MOVE L112-MAILING-ADDRESS TO R453-FMT-ADDR. DTSBE453 01117 DTSBE453 01118 MOVE L112-ZIP TO R453-ZIP. DTSBE453 01119 DTSBE453 01120 MOVE L112-ADVANCED-BARCODE TO R453-ADVANCED-BARCODE. DTSBE453 01121 DTSBE453 01122 DTSBE453 01123 PERFORM S946-WRITE-R453 THRU S946-EXIT. DTSBE453 01124 DTSBE453 01125 DTSBE453 01126 MOVE 'MTAD' TO EVL-ADDR-TYPE. DTSBE453 01127 DTSBE453 01128 MOVE L111-ID-NO TO EVL-ADDR-ID-NO. DTSBE453 01129 DTSBE453 01130 * MOVE WRK-SUBJECT-SLASH-QTR TO EVL-SLASH-QTR. DTSBE453 01131 MOVE WRK-SUBJECT-YEAR TO EVL-YEAR. DTSBE453 01132 DTSBE453 01133 PERFORM S1000-WRITE-MEVL THRU S1000-EXIT. DTSBE453 01134 P3100-EXIT. DTSBE453 01135 EXIT. DTSBE453 01136 SKIP3 DTSBE453 01137 P3200-OPO-PROCESS. DTSBE453 01138 MOVE MOPO-ID-NO TO L111-ID-NO. DTSBE453 01139 DTSBE453 01140 PERFORM S111-LOOKUP-OPO THRU S111-EXIT. DTSBE453 01141 DTSBE453 01142 IF L111-ADDR-NOT-FOUND-88 DTSBE453 01143 GO TO P3200-EXIT. DTSBE453 01144 DTSBE453 01145 DTSBE453 01146 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA. DTSBE453 01147 DTSBE453 01148 PERFORM S112-FORMAT-OPO THRU S112-EXIT. DTSBE453 01149 DTSBE453 01150 DTSBE453 01151 MOVE L112-ZIP TO R453-SORT-ZIP. DTSBE453 01152 DTSBE453 01153 MOVE L112-MAILING-ADDRESS TO R453-FMT-ADDR. DTSBE453 01154 DTSBE453 01155 MOVE L112-ZIP TO R453-ZIP. DTSBE453 01156 DTSBE453 01157 MOVE L112-ADVANCED-BARCODE TO R453-ADVANCED-BARCODE. DTSBE453 01158 DTSBE453 01159 DTSBE453 01160 PERFORM S946-WRITE-R453 THRU S946-EXIT. DTSBE453 01161 DTSBE453 01162 DTSBE453 01163 MOVE 'MOPO' TO EVL-ADDR-TYPE. DTSBE453 01164 DTSBE453 01165 MOVE L111-ID-NO TO EVL-ADDR-ID-NO. DTSBE453 01166 DTSBE453 01167 * MOVE WRK-SUBJECT-SLASH-QTR TO EVL-SLASH-QTR. DTSBE453 01168 MOVE WRK-SUBJECT-YEAR TO EVL-YEAR. DTSBE453 01169 DTSBE453 01170 PERFORM S1000-WRITE-MEVL THRU S1000-EXIT. DTSBE453 01171 P3200-EXIT. DTSBE453 01172 EXIT. DTSBE453 01173 SKIP3 DTSBE453 01174 P3300-TAA-PROCESS. DTSBE453 01175 MOVE MTAA-ID-NO TO L111-ID-NO. DTSBE453 01176 DTSBE453 01177 PERFORM S111-LOOKUP-TAA THRU S111-EXIT. DTSBE453 01178 DTSBE453 01179 IF L111-ADDR-NOT-FOUND-88 DTSBE453 01180 GO TO P3300-EXIT. DTSBE453 01181 DTSBE453 01182 DTSBE453 01183 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA. DTSBE453 01184 DTSBE453 01185 PERFORM S112-FORMAT-TAA THRU S112-EXIT. DTSBE453 01186 DTSBE453 01187 DTSBE453 01188 MOVE L112-ZIP TO R453-SORT-ZIP. DTSBE453 01189 DTSBE453 01190 MOVE L112-MAILING-ADDRESS TO R453-FMT-ADDR. DTSBE453 01191 DTSBE453 01192 MOVE L112-ZIP TO R453-ZIP. DTSBE453 01193 DTSBE453 01194 MOVE L112-ADVANCED-BARCODE TO R453-ADVANCED-BARCODE. DTSBE453 01195 DTSBE453 01196 DTSBE453 01197 PERFORM S946-WRITE-R453 THRU S946-EXIT. DTSBE453 01198 DTSBE453 01199 DTSBE453 01200 MOVE 'MTAA' TO EVL-ADDR-TYPE. DTSBE453 01201 DTSBE453 01202 MOVE L111-ID-NO TO EVL-ADDR-ID-NO. DTSBE453 01203 DTSBE453 01204 * MOVE WRK-SUBJECT-SLASH-QTR TO EVL-SLASH-QTR. DTSBE453 01205 MOVE WRK-SUBJECT-YEAR TO EVL-YEAR. DTSBE453 01206 DTSBE453 01207 PERFORM S1000-WRITE-MEVL THRU S1000-EXIT. DTSBE453 01208 P3300-EXIT. DTSBE453 01209 EXIT. DTSBE453 01210 EJECT DTSBE453 01211 T0000-TERMINATE. DTSBE453 01212 MOVE WRK-NOTICE-CNT TO WRK-CNT-DISP. DTSBE453 01213 DISPLAY SPACE. DTSBE453 01214 DISPLAY '*******************************************'. DTSBE453 01215 DISPLAY '** DTSBE453 COUNTS **'. DTSBE453 01216 DISPLAY '** **'. DTSBE453 01217 DISPLAY '** NOTICES SENT: ' WRK-CNT-DISP DTSBE453 01218 ' **'. DTSBE453 01219 DISPLAY '** **'. DTSBE453 01220 MOVE WRK-QUARTERLY-FILER-CNT TO WRK-CNT-DISP. DTSBE453 01221 DISPLAY '** NONE ANNUAL FILERS BYPASSED: ' WRK-CNT-DISP DTSBE453 01222 ' **'. DTSBE453 01223 DISPLAY '** **'. DTSBE453 01224 DISPLAY '*******************************************'. DTSBE453 01225 IF WRK-PARM-NOTICE-YES-88 DTSBE453 01226 MOVE LOW-VALUES TO FAFD-KEY-AREA DTSBE453 01227 SET FAFD-AFD-88 TO TRUE DTSBE453 01228 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9 DTSBE453 01229 MOVE L004-QTR-5-YR TO FAFD-YR DTSBE453 01230 MOVE FAFD-KEY-AREA TO FSKL-KEY-AREA DTSBE453 01231 PERFORM S931-READ THRU S931-EXIT DTSBE453 01232 IF L931-NO-REC-88 DTSBE453 01233 MOVE 'LOGIC ERROR T0000-1' TO ABEND-MSG DTSBE453 01234 PERFORM S999-ABEND THRU S999-EXIT DTSBE453 01235 ELSE DTSBE453 01236 MOVE FSKL-REC TO FAFD-REC DTSBE453 01237 MOVE WRK-UC30-FINAL-DEL-CUTOFF-DATE DTSBE453 01238 TO FAFD-UC30H-FINAL-DEL-DATE DTSBE453 01239 MOVE WRK-PARM-FINAL-ACTION-DATE DTSBE453 01240 TO FAFD-UC30H-FINAL-ACTION-DATE DTSBE453 01241 MOVE LECM-CURR-RUN-DATE TO FAFD-CHNG-DATE DTSBE453 01242 MOVE FAFD-REC TO FSKL-REC DTSBE453 01243 PERFORM S931-REWRITE THRU S931-EXIT. DTSBE453 01244 T0000-EXIT. DTSBE453 01245 EXIT. DTSBE453 01246 EJECT DTSBE453 01247 S1000-WRITE-MEVL. DTSBE453 01248 ADD +1000 TO LECM-EMP-ABSTIME. DTSBE453 01249 DTSBE453 01250 MOVE LECM-EMP-ABSTIME TO L005-ABSTIME. DTSBE453 01251 DTSBE453 01252 PERFORM S005-FROM-ABSTIME THRU S005-EXIT. DTSBE453 01253 DTSBE453 01254 DTSBE453 01255 MOVE LOW-VALUES TO MEVL-REC. DTSBE453 01256 DTSBE453 01257 MOVE MPRF-EMP-NO TO MEVL-EMP-NO. DTSBE453 01258 DTSBE453 01259 SET MEVL-EVL-88 TO TRUE. DTSBE453 01260 DTSBE453 01261 MOVE L005-DATE TO MEVL-DATE. DTSBE453 01262 DTSBE453 01263 MOVE L005-TIME TO MEVL-TIME. DTSBE453 01264 DTSBE453 01265 DTSBE453 01266 MOVE ZEROS TO MEVL-PURGE-DATE. DTSBE453 01267 DTSBE453 01268 DTSBE453 01269 MOVE EVL-TEXT TO MEVL-TEXT. DTSBE453 01270 DTSBE453 01271 SET MEVL-SOURCE-SYSTEM-88 TO TRUE. DTSBE453 01272 DTSBE453 01273 SET MEVL-NOT-CONVERTED-88 TO TRUE. DTSBE453 01274 DTSBE453 01275 MOVE LECM-CURR-RUN-DATE TO MEVL-ESTB-DATE DTSBE453 01276 MEVL-CHNG-DATE. DTSBE453 01277 DTSBE453 01278 DTSBE453 01279 MOVE MEVL-REC TO MSKL-REC. DTSBE453 01280 DTSBE453 01281 PERFORM S910-WRITE THRU S910-EXIT. DTSBE453 01282 S1000-EXIT. DTSBE453 01283 EXIT. DTSBE453 01284 EJECT DTSBE453 01285 S001-FROM-FED-8. DTSBE453 01286 SET L001-FROM-FED-8 TO TRUE. DTSBE453 01287 GO TO S001-DATE. DTSBE453 01288 DTSBE453 01289 S001-FROM-CAL-6. DTSBE453 01290 SET L001-FROM-CAL-6 TO TRUE. DTSBE453 01291 GO TO S001-DATE. DTSBE453 01292 DTSBE453 01293 S001-FROM-ABS-DAY. DTSBE453 01294 SET L001-FROM-ABS-DAY TO TRUE. DTSBE453 01295 GO TO S001-DATE. DTSBE453 01296 DTSBE453 01297 S001-DATE. DTSBE453 01298 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBE453 01299 S001-EXIT. DTSBE453 01300 EXIT. DTSBE453 01301 SKIP3 DTSBE453 01302 S004-FROM-5. DTSBE453 01303 SET L004-FROM-5 TO TRUE. DTSBE453 01304 GO TO S004-QTR. DTSBE453 01305 DTSBE453 01306 S004-FROM-3. DTSBE453 01307 SET L004-FROM-3 TO TRUE. DTSBE453 01308 GO TO S004-QTR. DTSBE453 01309 DTSBE453 01310 S004-QTR. DTSBE453 01311 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBE453 01312 S004-EXIT. DTSBE453 01313 EXIT. DTSBE453 01314 SKIP3 DTSBE453 01315 S005-FROM-ABSTIME. DTSBE453 01316 SET L005-FROM-ABSTIME TO TRUE. DTSBE453 01317 GO TO S005-ABSTIME. DTSBE453 01318 DTSBE453 01319 S005-ABSTIME. DTSBE453 01320 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBE453 01321 S005-EXIT. DTSBE453 01322 EXIT. DTSBE453 01323 SKIP3 DTSBE453 01324 S061-DETERMINE-FLD-REP. DTSBE453 01325 MOVE MPRF-FLD-ZIP-ST TO L061-FLD-ZIP-ST. DTSBE453 01326 DTSBE453 01327 MOVE MPRF-EMP-NO TO L061-EMP-NO. DTSBE453 01328 DTSBE453 01329 CALL 'DTSBU061' USING L061-LINK-AREA. DTSBE453 01330 S061-EXIT. DTSBE453 01331 EXIT. DTSBE453 01332 SKIP3 DTSBE453 01333 S101-PER-MONTH-NO. DTSBE453 01334 SET L101-PER-MONTH-NO-88 TO TRUE. DTSBE453 01335 GO TO S101-INT-COMP. DTSBE453 01336 DTSBE453 01337 S101-INT-COMP. DTSBE453 01338 CALL 'DTSBU101' USING L101-LINK-AREA. DTSBE453 01339 S101-EXIT. DTSBE453 01340 EXIT. DTSBE453 01341 SKIP3 DTSBE453 01342 S109-LOOKUP-SUR-RATE. DTSBE453 01343 MOVE MPRF-EMP-CLASS TO L109-EMP-CLASS. DTSBE453 01344 DTSBE453 01345 MOVE MQTR-YRQ TO L109-YRQ. DTSBE453 01346 DTSBE453 01347 CALL 'DTSBU109' USING L109-LINK-AREA. DTSBE453 01348 S109-EXIT. DTSBE453 01349 EXIT. DTSBE453 01350 SKIP3 DTSBE453 01351 S111-LOOKUP-TAD. DTSBE453 01352 SET L111-LOOKUP-TAD-88 TO TRUE. DTSBE453 01353 GO TO S111-LOOKUP-ADDR. DTSBE453 01354 DTSBE453 01355 S111-LOOKUP-TAA. DTSBE453 01356 SET L111-LOOKUP-TAA-88 TO TRUE. DTSBE453 01357 GO TO S111-LOOKUP-ADDR. DTSBE453 01358 DTSBE453 01359 S111-LOOKUP-OPO. DTSBE453 01360 SET L111-LOOKUP-OPO-88 TO TRUE. DTSBE453 01361 GO TO S111-LOOKUP-ADDR. DTSBE453 01362 DTSBE453 01363 S111-LOOKUP-ADDR. DTSBE453 01364 MOVE MPRF-EMP-NO TO L111-EMP-NO. DTSBE453 01365 DTSBE453 01366 CALL 'DTSBU111' USING L111-LINK-AREA. DTSBE453 01367 S111-EXIT. DTSBE453 01368 EXIT. DTSBE453 01369 SKIP3 DTSBE453 01370 S112-FORMAT-TAD. DTSBE453 01371 SET L112-TAD-ADDR-88 TO TRUE. DTSBE453 01372 GO TO S112-FORMAT-ADDR. DTSBE453 01373 DTSBE453 01374 S112-FORMAT-TAA. DTSBE453 01375 SET L112-TAA-ADDR-88 TO TRUE. DTSBE453 01376 GO TO S112-FORMAT-ADDR. DTSBE453 01377 DTSBE453 01378 S112-FORMAT-OPO. DTSBE453 01379 SET L112-OPO-ADDR-88 TO TRUE. DTSBE453 01380 GO TO S112-FORMAT-ADDR. DTSBE453 01381 DTSBE453 01382 S112-FORMAT-ADDR. DTSBE453 01383 SET L112-ANCHOR-LAST-88 TO TRUE. DTSBE453 01384 DTSBE453 01385 MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME. DTSBE453 01386 DTSBE453 01387 CALL 'DTSBU112' USING L112-LINK-AREA. DTSBE453 01388 S112-EXIT. DTSBE453 01389 EXIT. DTSBE453 01390 SKIP3 DTSBE453 01391 S410-FILE-SCHED. DTSBE453 01392 CALL 'DTSBU410' USING L410-LINK-AREA. DTSBE453 01393 S410-EXIT. DTSBE453 01394 EXIT. DTSBE453 01395 SKIP3 DTSBE453 01396 S415-HOUSEHOLD-DATES. DTSBE453 01397 CALL 'DTSBU415' USING L415-LINK-AREA. DTSBE453 01398 S415-EXIT. DTSBE453 01399 EXIT. DTSBE453 01400 SKIP3 DTSBE453 01401 S910-READ. DTSBE453 01402 SET L910-READ-88 TO TRUE. DTSBE453 01403 GO TO S910-MSTR-IO. DTSBE453 01404 DTSBE453 01405 S910-START-BROWSE. DTSBE453 01406 SET L910-START-BROWSE-88 TO TRUE. DTSBE453 01407 GO TO S910-MSTR-IO. DTSBE453 01408 DTSBE453 01409 S910-READ-NEXT. DTSBE453 01410 SET L910-READ-NEXT-88 TO TRUE. DTSBE453 01411 GO TO S910-MSTR-IO. DTSBE453 01412 DTSBE453 01413 *S910-COUNT. DTSBE453 01414 *****SET L910-COUNT-88 TO TRUE. DTSBE453 01415 *****GO TO S910-MSTR-IO. DTSBE453 01416 DTSBE453 01417 S910-WRITE. DTSBE453 01418 SET L910-WRITE-88 TO TRUE. DTSBE453 01419 SET LECM-EMP-UPDATED-YES-88 TO TRUE. DTSBE453 01420 GO TO S910-MSTR-IO. DTSBE453 01421 DTSBE453 01422 *S910-REWRITE. DTSBE453 01423 *****SET L910-REWRITE-88 TO TRUE. DTSBE453 01424 *****SET LECM-EMP-UPDATED-YES-88 TO TRUE. DTSBE453 01425 *****GO TO S910-MSTR-IO. DTSBE453 01426 DTSBE453 01427 *S910-DELETE. DTSBE453 01428 *****SET L910-DELETE-88 TO TRUE. DTSBE453 01429 *****SET LECM-EMP-UPDATED-YES-88 TO TRUE. DTSBE453 01430 *****GO TO S910-MSTR-IO. DTSBE453 01431 DTSBE453 01432 S910-MSTR-IO. DTSBE453 01433 CALL 'DTSBU910' USING L910-LINK-AREA DTSBE453 01434 MSKL-REC. DTSBE453 01435 S910-EXIT. DTSBE453 01436 EXIT. DTSBE453 01437 SKIP3 DTSBE453 01438 S931-READ. DTSBE453 01439 SET L931-READ-88 TO TRUE. DTSBE453 01440 GO TO S931-REF-I. DTSBE453 01441 DTSBE453 01442 *S931-START-BROWSE. DTSBE453 01443 *****SET L931-START-BROWSE-88 TO TRUE. DTSBE453 01444 *****GO TO S931-REF-I. DTSBE453 01445 DTSBE453 01446 *S931-READ-NEXT. DTSBE453 01447 *****SET L931-READ-NEXT-88 TO TRUE. DTSBE453 01448 *****GO TO S931-REF-I. DTSBE453 01449 DTSBE453 01450 *S931-WRITE. DTSBE453 01451 *****SET L931-WRITE-88 TO TRUE. DTSBE453 01452 *****GO TO S931-REF-I. DTSBE453 01453 DTSBE453 01454 S931-REWRITE. DTSBE453 01455 SET L931-REWRITE-88 TO TRUE. DTSBE453 01456 GO TO S931-REF-I. DTSBE453 01457 DTSBE453 01458 *S931-DELETE. DTSBE453 01459 *****SET L931-DELETE-88 TO TRUE. DTSBE453 01460 *****GO TO S931-REF-I. DTSBE453 01461 DTSBE453 01462 S931-REF-I. DTSBE453 01463 CALL 'DTSBU931' USING L931-LINK-AREA DTSBE453 01464 FSKL-REC. DTSBE453 01465 S931-EXIT. DTSBE453 01466 EXIT. DTSBE453 01467 SKIP3 DTSBE453 01468 S946-WRITE-R453. DTSBE453 01469 CALL 'DTSBU946' USING R453-REC. DTSBE453 01470 GO TO S946-EXIT. DTSBE453 01471 DTSBE453 01472 S946-WRITE-R454. DTSBE453 01473 CALL 'DTSBU946' USING R454-REC. DTSBE453 01474 GO TO S946-EXIT. DTSBE453 01475 DTSBE453 01476 S946-WRITE-R907. DTSBE453 01477 CALL 'DTSBU946' USING R907-REC. DTSBE453 01478 GO TO S946-EXIT. DTSBE453 01479 DTSBE453 01480 S946-EXIT. DTSBE453 01481 EXIT. DTSBE453 01482 SKIP3 DTSBE453 01483 S999-ABEND. DTSBE453 01484 DISPLAY '*** DTSBE453 ABENDING. ' DTSBE453 01485 ABEND-MSG. DTSBE453 01486 DTSBE453 01487 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBE453 01488 S999-EXIT. DTSBE453 01489 EXIT. DTSBE453