00001 IDENTIFICATION DIVISION. 04/28/20 00002 PROGRAM-ID. DTSBE119. DTSBE119 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV032 00004 DATE-WRITTEN. AUGUST 1994. DTSBE119 00005 DATE-COMPILED. DTSBE119 00006 SKIP3 DTSBE119 00007 ** DTSBE119 00008 * DTSBE119 00009 * FUNCTION: ZERO TOTAL WAGE LIST AND LETTERS EXTRACT. DTSBE119 00010 * (COMMONLY CALLED THE "8 QTR NONE" LIST) DTSBE119 00011 * DTSBE119 00012 * DTSBE119 00013 * MODIFICATION LOG: DTSBE119 00014 * DTSBE119 00015 * 03/14/95 DROP ADDRESS FROM REPORT. DTSBE119 00016 * WORK ORDER: CR051 PROGRAMMER: RHC DTSBE119 00017 * DTSBE119 00018 * 02/14/96 IF PARM-END-QUARTER IS DELINQUENT USERS WANT TO DTSBE119 00019 * KNOW IF THE 8 QTRS PREVIOUS TO IT HAVE "NONE" DTSBE119 00020 * REPORTS. ADDED HOLD-ABS-QTR, WRK-END-ABS-QTR- DTSBE119 00021 * MINUS-8, WRK-LAST-QTR-DELQ-IND, AND P1100-READ- DTSBE119 00022 * ADDL-QTR TO ACCOMODATE THEIR REQUEST. SINCE THEY DTSBE119 00023 * ONLY WANT TO GO THROUGH THIS ROUTINE IF THE JOB DTSBE119 00024 * IS THEIR "8 QTR NONE" JOB (AS OPPOSED TO ANY OTHER DTSBE119 00025 * NUMBER OF QUARTERS BEING EXAMINED), ALSO ADDED DTSBE119 00026 * WRK-USUAL-QTRS-NUM AND WRK-USUAL-QTRS-IND... DTSBE119 00027 * REFERENCE RFP #PROD RECOVERY PROGRAMMER: MJA DTSBE119 00028 * DTSBE119 00029 * 03/12/1999 DC MODIFICATIONS. THE PROGRAM WIL AUTOMATICALLY DTSBE119 00030 * INACTIVATE ANY EMPLOLYER MEETING THE CRITERIA. DTSBE119 00031 * ADDED PROCESSING TO CREATE R116 REPORT RECORD. DTSBE119 00032 * REMOVED LETTER PARAMETER - THE PROGRAM WILL DTSBE119 00033 * PRODUCE A LETTER FOR ANY EMPLOYER INACTIVATED. DTSBE119 00034 * THE EXTRACT REQUESTS THAT THE MASTER FILE BE DTSBE119 00035 * OPENED IN UPDATE MODE - IT UPDATES THE MSOL DTSBE119 00036 * AND MPRF. DTSBE119 00037 * REFERENCE RFP #XXX PROGRAMMER: GD DTSBE119 00038 * DTSBE119 00039 * 06/02/1999 FURTHER DC MODIFICATIONS. THE IMPLICATIONS OF DTSBE119 00040 * ACTUALLY INACTIVATING EMPLOYERS DURING THIS DTSBE119 00041 * PROCESS (RATHER THAN JUST LISTING THEM AS DTSBE119 00042 * CANDIDATES FOR INACTIVATION) GOT A LITTLE UGLY. DTSBE119 00043 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBE119 00044 * DTSBE119 00045 * 06/29/2012 FURTHER DC MODIFICATIONS. INACTIVATE EMPLOYERS DTSBE119 00046 * THAT HAVE NOT FILED A REPORT FOR 8 OR MORE DTSBE119 00047 * QUARTERS DTSBE119 00048 * REFERENCE: DC DEVELOPMENT PROGRAMMER: ZL1 DTSBE119 00049 * DTSBE119 00050 * 09/29/2017 FURTHER DC MODIFICATIONS. INACTIVATE EMPLOYERS DTSBE119 00051 * THAT HAVE THEIR LIABILITY ESTABLISHED DATE NOT DTSBE119 00052 * WITHIN THE 8 QUARTERS IN QUESTION. DTSBE119 00053 * REFERENCE: DC DEVELOPMENT PROGRAMMER: ZL1 DTSBE119 00054 * DTSBE119 00055 * DTSBE119 00056 * 10/24/2017 FURTHER DC MODIFICATIONS. DO NOT COUNT ESTIMATEDDTSBE119 00057 * REPORTS AS ZERO WAGE REPORTS - DO NOT INACTIVATE DTSBE119 00058 * WITHIN THE 8 QUARTERS IN QUESTION. DTSBE119 00059 * REFERENCE: DC DEVELOPMENT PROGRAMMER: ZL1 DTSBE119 00060 * DTSBE119 00061 * DTSBE119 00062 * 08/24/2018 FURTHER DC MODIFICATIONS. COUNT ESTIMATED DTSBE119 00063 * REPORTS AS ZERO WAGE REPORTS - INACTIVATE DTSBE119 00064 * WITHIN THE 8 QUARTERS IN QUESTION AND SET DTSBE119 00065 * INACTIVATION DATE AS END OF 8 QUATER END DATE. DTSBE119 00066 * REFERENCE: DC DEVELOPMENT PROGRAMMER: ZL1 DTSBE119 00067 * DTSBE119 00068 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBE119 00069 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBE119 00070 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBE119 00071 * DTSBE119 00072 * DTSBE119 00073 * DESCRIPTION: DTSBE119 00074 * DTSBE119 00075 * DTSBE119 00076 * INITIATION: DTSBE119 00077 * DTSBE119 00078 * SET LECM-MST-OPEN-UPDATE-88 TO TRUE. DTSBE119 00079 * SET LECM-REF-OPEN-READ-88 TO TRUE. DTSBE119 00080 * DTSBE119 00081 * EDIT AND DEFAULT PARAMETERS. SEE PRINTED OUTPUTS DTSBE119 00082 * DESCRIPTIONS AND LAYOUTS (119R1 AND 119R2). DTSBE119 00083 * DTSBE119 00084 * DTSBE119 00085 * PROCESSING: DTSBE119 00086 * DTSBE119 00087 * SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (119R1 AND DTSBE119 00088 * (119R2). DTSBE119 00089 * DTSBE119 00090 * DTSBE119 00091 * TERMINATION: DTSBE119 00092 * DTSBE119 00093 * NONE. DTSBE119 00094 * DTSBE119 00095 * DTSBE119 00096 * RECORDS READ: DTSBE119 00097 * DTSBE119 00098 * MASTER: DTSBE119 00099 * DTSBE119 00100 * MQTR DTSBE119 00101 * MSOL DTSBE119 00102 * DTSBE119 00103 * DTSBE119 00104 * ALTERNATE INDEX: DTSBE119 00105 * DTSBE119 00106 * NONE. DTSBE119 00107 * DTSBE119 00108 * DTSBE119 00109 * REFERENCE: DTSBE119 00110 * DTSBE119 00111 * NONE. DTSBE119 00112 * DTSBE119 00113 * DTSBE119 00114 * RECORDS UPDATED: DTSBE119 00115 * DTSBE119 00116 * MSOL. DTSBE119 00117 * MPRF. DTSBE119 00118 * MERD. DTSBE119 00119 * DTSBE119 00120 * DTSBE119 00121 * REPORT RECORDS WRITTEN: DTSBE119 00122 * DTSBE119 00123 * R116 NEW, REACTIVATED, INACTIVATED EMPLOYERS LIST DTSBE119 00124 * R117 INACTIVATION LETTER. DTSBE119 00125 * R119 ZERO TOTAL WAGE LIST. DTSBE119 00126 * DTSBE119 00127 * DTSBE119 00128 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBE119 00129 * DTSBE119 00130 * NONE. DTSBE119 00131 * DTSBE119 00132 * DTSBE119 00133 * MODULES CALLED: DTSBE119 00134 * DTSBE119 00135 * DTSBU001 DATE CONVERSION/EDIT. DTSBE119 00136 * DTSBU004 QUARTER CONVERSION/EDIT. DTSBE119 00137 * DTSBU061 FIELD ZIP / FIELD REP ID. DTSBE119 00138 * DTSBU082 OPERATOR ID EDIT/LOOKUP. DTSBE119 00139 * DTSBU111 ADDRESS LOOKUP. DTSBE119 00140 * DTSBU112 ADDRESS FORMAT. DTSBE119 00141 * DTSBU331 FORMAT AND WRITE MLOG RECORD OCCURRENCE. DTSBE119 00142 * DTSBU910 MASTER FILE I/O DRIVER. DTSBE119 00143 * DTSBU946 VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1. DTSBE119 00144 * DTSBU927 BTC FILE OUTPUT. DTSBE119 00145 * DTSBE119 00146 ***** DTSBE119 00147 SKIP3 DTSBE119 00148 ENVIRONMENT DIVISION. DTSBE119 00149 EJECT DTSBE119 00150 DATA DIVISION. DTSBE119 00151 SKIP3 DTSBE119 00152 WORKING-STORAGE SECTION. DTSBE119 001525 77 PAN-VALET PICTURE X(24) VALUE '032DTSBE119 04/28/20'. DTSBE119 00153 77 PAN-VALET PICTURE X(24) VALUE '060DTSBE119 02/12/19'. DTSBE119 00154 77 PAN-VALET PICTURE X(24) VALUE '025DTSBE119 01/10/19'. DTSBE119 00155 SKIP3 DTSBE119 00156 01 WRK-AREA. DTSBE119 00157 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +119.DTSBE119 00158 DTSBE119 00159 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBE119'.DTSBE119 00160 DTSBE119 00161 05 ALL-NINES-DATE PIC S9(09) COMP-3 DTSBE119 00162 VALUE +999999999. DTSBE119 00163 DTSBE119 00164 05 WRK-1ST-LIAB-QTR PIC 9(05) VALUE 0. CL*13 00165 05 ALL-NINES-YRQ PIC S9(05) COMP-3 CL*13 00166 VALUE +99999. DTSBE119 00167 DTSBE119 00168 05 WRK-EMP-9THQTR PIC 9(01) VALUE 0. CL**2 00169 DTSBE119 00170 05 ABEND-MSG PIC X(60). DTSBE119 00171 DTSBE119 00172 05 WRK-MEVL-TEXT PIC X(50) VALUE DTSBE119 00173 'INACTIVATED DURING 8 QTR ZERO WAGE RUN'. DTSBE119 00174 DTSBE119 00175 DTSBE119 00176 05 WRK-BYPASS-IND PIC X(01). DTSBE119 00177 88 WRK-BYPASS-YES-88 VALUE 'Y'. DTSBE119 00178 88 WRK-BYPASS-NO-88 VALUE 'N'. DTSBE119 00179 DTSBE119 00180 05 AUTO-INACT-IND PIC X(01). DTSBE119 00181 88 AUTO-INACT-YES-88 VALUE 'Y'. DTSBE119 00182 88 AUTO-INACT-NO-88 VALUE 'N'. DTSBE119 00183 DTSBE119 00184 05 WRK-LAST-YRQ-DELQ-IND PIC X(01). DTSBE119 00185 88 WRK-LAST-YRQ-DELQ-IND-NO-88 VALUE 'N'. DTSBE119 00186 88 WRK-LAST-YRQ-DELQ-IND-YES-88 VALUE 'Y'. DTSBE119 00187 DTSBE119 00188 05 WRK-EMP-INACTIVATED-IND PIC X(01). DTSBE119 00189 88 WRK-EMP-INACTIVATED-NO-88 VALUE 'N'. DTSBE119 00190 88 WRK-EMP-INACTIVATED-YES-88 VALUE 'Y'. DTSBE119 00191 DTSBE119 00192 05 WRK-LAST-NON-ZERO-WAGE-YRQ PIC S9(05) COMP-3. DTSBE119 00193 05 WRK-NEXT-UC30-DEL-MAIL-YRQ PIC S9(05) COMP-3. DTSBE119 00194 05 WRK-INACT-DATE PIC S9(09) COMP-3. DTSBE119 00195 05 WRK-START-YRQ-DATE PIC S9(09) COMP-3 VALUE 0. DTSBE119 00196 05 WRK-END-YRQ-DATE PIC S9(09) COMP-3 VALUE 0. DTSBE119 00197 05 WRK-PARM-END-ZRQ PIC 9(03) VALUE 0. CL*10 00198 05 WRK-NEVER-FILED PIC 9(01) VALUE 0. DTSBE119 00199 05 NEXT-QTR-REC-FOUND PIC 9(07) VALUE 0. DTSBE119 00200 05 ACT-EMP PIC 9(07) VALUE 0. DTSBE119 00201 05 INA-EMP PIC 9(07) VALUE 0. DTSBE119 00202 05 SUB-EMP PIC 9(07) VALUE 0. DTSBE119 00203 05 SEL-EMP PIC 9(07) VALUE 0. DTSBE119 00204 05 TOT-EMP PIC 9(07) VALUE 0. DTSBE119 00205 05 ICL-EMP PIC 9(07) VALUE 0. DTSBE119 00206 05 TOT-READ-ANN-FILER PIC 9(07) VALUE 0. DTSBE119 00207 05 TOT-SELF-INS-FILER PIC 9(07) VALUE 0. DTSBE119 00208 05 ZERO-WAGE-EMP PIC 9(07) VALUE 0. DTSBE119 00209 05 MISS-WAGE-EMP PIC 9(07) VALUE 0. DTSBE119 00210 05 TOTL-WAGE-EMP PIC 9(07) VALUE 0. DTSBE119 00211 05 ESTM-WAGE-EMP PIC 9(07) VALUE 0. DTSBE119 00212 05 ZERO-WAGES PIC 9(07) VALUE 0. DTSBE119 00213 05 MISS-WAGES PIC 9(07) VALUE 0. DTSBE119 00214 05 TOTL-WAGES PIC 9(07) VALUE 0. DTSBE119 00215 EJECT DTSBE119 00216 01 L001-LINK-AREA. DTSBE119 00217 ++INCLUDE DTSIL001 DTSBE119 00218 EJECT DTSBE119 00219 01 L004-LINK-AREA. DTSBE119 00220 ++INCLUDE DTSIL004 DTSBE119 00221 EJECT DTSBE119 00222 01 L005-LINK-AREA. DTSBE119 00223 ++INCLUDE DTSIL005 DTSBE119 00224 EJECT DTSBE119 00225 01 L061-LINK-AREA. DTSBE119 00226 ++INCLUDE DTSIL061 DTSBE119 00227 EJECT DTSBE119 00228 01 L082-LINK-AREA. DTSBE119 00229 ++INCLUDE DTSIL082 DTSBE119 00230 EJECT DTSBE119 00231 01 L111-LINK-AREA. DTSBE119 00232 ++INCLUDE DTSIL111 DTSBE119 00233 EJECT DTSBE119 00234 01 L112-LINK-AREA. DTSBE119 00235 ++INCLUDE DTSIL112 DTSBE119 00236 EJECT DTSBE119 00237 01 L331-LINK-AREA. DTSBE119 00238 ++INCLUDE DTSIL331 DTSBE119 00239 EJECT DTSBE119 00240 01 L910-LINK-AREA. DTSBE119 00241 ++INCLUDE DTSIL910 DTSBE119 00242 EJECT DTSBE119 00243 01 MSKL-REC. DTSBE119 00244 ++INCLUDE DTSIMSKL DTSBE119 00245 EJECT DTSBE119 00246 01 MQTR-REC. DTSBE119 00247 ++INCLUDE DTSIMQTR DTSBE119 00248 EJECT DTSBE119 00249 01 MSOL-REC. DTSBE119 00250 ++INCLUDE DTSIMSOL DTSBE119 00251 EJECT DTSBE119 00252 01 MERD-REC. DTSBE119 00253 ++INCLUDE DTSIMERD DTSBE119 00254 EJECT DTSBE119 00255 01 MEVL-REC. DTSBE119 00256 ++INCLUDE DTSIMEVL DTSBE119 00257 EJECT DTSBE119 00258 01 R116-REC. DTSBE119 00259 ++INCLUDE DTSIR116 DTSBE119 00260 EJECT DTSBE119 00261 01 R117-REC. DTSBE119 00262 ++INCLUDE DTSIR117 DTSBE119 00263 EJECT DTSBE119 00264 01 R119-REC. DTSBE119 00265 ++INCLUDE DTSIR119 DTSBE119 00266 EJECT DTSBE119 00267 01 L927-LINK-AREA. DTSBE119 00268 ++INCLUDE DTSIL927 DTSBE119 00269 EJECT DTSBE119 00270 01 L516-LINK-AREA. DTSBE119 00271 ++INCLUDE DTSIL516 DTSBE119 00272 EJECT DTSBE119 00273 01 T031-REC. DTSBE119 00274 ++INCLUDE DTSIT031 DTSBE119 00275 EJECT DTSBE119 00276 ++INCLUDE OJRWE119 DTSBE119 00277 EJECT DTSBE119 00278 LINKAGE SECTION. DTSBE119 00279 SKIP3 DTSBE119 00280 01 LECM-LINK-AREA. DTSBE119 00281 ++INCLUDE DTSILECM DTSBE119 00282 SKIP3 DTSBE119 00283 10 FILLER REDEFINES LECM-EXTRACT-PARMS. DTSBE119 00284 15 LECM-PARM-RESP-OP-ID PIC X(08). DTSBE119 00285 15 FILLER PIC X(01). DTSBE119 00286 15 LECM-PARM-START-YRQ PIC X(03). DTSBE119 00287 15 FILLER PIC X(01). DTSBE119 00288 15 LECM-PARM-END-YRQ PIC X(03). DTSBE119 00289 15 FILLER PIC X(01). DTSBE119 00290 15 LECM-PARM-AUTO-INACT-IND PIC X(01). DTSBE119 00291 15 FILLER PIC X(01). DTSBE119 00292 15 LECM-PARM-EMP-CLASS PIC X(01). DTSBE119 00293 15 FILLER PIC X(48). DTSBE119 00294 EJECT DTSBE119 00295 01 MPRF-LINK-REC. DTSBE119 00296 ++INCLUDE DTSIMPRF DTSBE119 00297 EJECT DTSBE119 00298 PROCEDURE DIVISION USING LECM-LINK-AREA DTSBE119 00299 MPRF-LINK-REC. DTSBE119 00300 DTSBE119 00301 EVALUATE TRUE DTSBE119 00302 WHEN LECM-PROCESS-88 DTSBE119 00303 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBE119 00304 DTSBE119 00305 WHEN LECM-INITIALIZE-88 DTSBE119 00306 SET WRK-EDIT-PASSED-88 TO TRUE DTSBE119 00307 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBE119 00308 IF WRK-EDIT-FAILED-88 DTSBE119 00309 PERFORM S999-ABEND THRU S999-EXIT DTSBE119 00310 END-IF DTSBE119 00311 DTSBE119 00312 WHEN LECM-TERMINATE-88 DTSBE119 00313 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBE119 00314 DTSBE119 00315 WHEN OTHER DTSBE119 00316 MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED' DTSBE119 00317 TO ABEND-MSG DTSBE119 00318 PERFORM S999-ABEND THRU S999-EXIT DTSBE119 00319 DTSBE119 00320 END-EVALUATE. DTSBE119 00321 DTSBE119 00322 SKIP2 DTSBE119 00323 GOBACK. DTSBE119 00324 EJECT DTSBE119 00325 I0000-INITIALIZE. DTSBE119 00326 MOVE LECM-TRACE-IND TO L910-TRACE-IND. DTSBE119 00327 DTSBE119 00328 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBE119 00329 DTSBE119 00330 DTSBE119 00331 MOVE LECM-TRACE-IND TO L927-TRACE-IND. DTSBE119 00332 DTSBE119 00333 MOVE WRK-MOD-NAME TO L927-MOD-NAME. DTSBE119 00334 DTSBE119 00335 DTSBE119 00336 MOVE LENGTH OF R116-REC TO R116-LENGTH. DTSBE119 00337 DTSBE119 00338 MOVE '116' TO R116-REC-TYPE. DTSBE119 00339 DTSBE119 00340 DTSBE119 00341 MOVE LENGTH OF R117-REC TO R117-LENGTH. DTSBE119 00342 DTSBE119 00343 MOVE '117' TO R117-REC-TYPE. DTSBE119 00344 DTSBE119 00345 DTSBE119 00346 MOVE LENGTH OF R119-REC TO R119-LENGTH. DTSBE119 00347 DTSBE119 00348 MOVE '119' TO R119-REC-TYPE. DTSBE119 00349 DTSBE119 00350 DTSBE119 00351 MOVE LENGTH OF T031-REC TO T031-LENGTH. DTSBE119 00352 DTSBE119 00353 MOVE '031' TO T031-REC-TYPE. DTSBE119 00354 DTSBE119 00355 *OJR DTSBE119 00356 ************** DTSBE119 00357 DISPLAY '##' DTSBE119 00358 DISPLAY 'LOPID ' LECM-PARM-RESP-OP-ID DTSBE119 00359 DISPLAY 'LSYRQ ' LECM-PARM-START-YRQ DTSBE119 00360 DISPLAY 'LEYRQ ' LECM-PARM-END-YRQ DTSBE119 00361 DISPLAY 'LAINA ' LECM-PARM-AUTO-INACT-IND DTSBE119 00362 DISPLAY 'LEMPC ' LECM-PARM-EMP-CLASS DTSBE119 00363 DISPLAY 'LMYRQ ' LECM-LAST-UC30-DEL-MAIL-YRQ DTSBE119 00364 DISPLAY 'LFPUR ' LECM-FIRST-PURSUED-RPT-YRQ DTSBE119 00365 ************** DTSBE119 00366 MOVE LECM-PARM-RESP-OP-ID TO OJR-PARM-RESP-OP-ID. DTSBE119 00367 MOVE LECM-PARM-START-YRQ TO OJR-PARM-START-YRQ. DTSBE119 00368 MOVE LECM-PARM-END-YRQ TO OJR-PARM-END-YRQ. DTSBE119 00369 MOVE LECM-PARM-END-YRQ TO WRK-PARM-END-ZRQ. CL*10 00370 MOVE LECM-PARM-AUTO-INACT-IND TO OJR-PARM-AUTO-INACT-IND. DTSBE119 00371 MOVE LECM-PARM-EMP-CLASS TO OJR-PARM-EMP-CLASS. DTSBE119 00372 MOVE LECM-LAST-UC30-DEL-MAIL-YRQ DTSBE119 00373 TO OJR-LAST-UC30-DEL-MAIL-YRQ. DTSBE119 00374 MOVE LECM-FIRST-PURSUED-RPT-YRQ DTSBE119 00375 TO OJR-FIRST-PURSUED-RPT-YRQ. DTSBE119 00376 DTSBE119 00377 DTSBE119 00378 PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT. DTSBE119 00379 DTSBE119 00380 DTSBE119 00381 * IF LECM-PARM-AUTO-INACT-IND = 'Y' CL*15 00382 COMPUTE WRK-NEXT-UC30-DEL-MAIL-YRQ = DTSBE119 00383 LECM-LAST-UC30-DEL-MAIL-YRQ + 1 CL**8 00384 * ELSE CL*15 00385 * MOVE 20201 TO WRK-NEXT-UC30-DEL-MAIL-YRQ. CL*15 00386 * COMPUTE WRK-NEXT-UC30-DEL-MAIL-YRQ = CL*11 00387 * WRK-PARM-END-ZRQ + 1. CL*11 00388 DTSBE119 00389 DISPLAY '##' DTSBE119 00390 DISPLAY 'WRKSTART-DATE: ' WRK-START-YRQ-DATE. DTSBE119 00391 DISPLAY 'WRKEND---DATE: ' WRK-END-YRQ-DATE. DTSBE119 00392 DISPLAY ' NEXT DELQ YRQ ' WRK-NEXT-UC30-DEL-MAIL-YRQ. DTSBE119 00393 DTSBE119 00394 IF WRK-PARM-AUTO-INACT-YES-88 DTSBE119 00395 SET LECM-MST-OPEN-UPDATE-88 TO TRUE DTSBE119 00396 ELSE DTSBE119 00397 SET LECM-MST-OPEN-READ-88 TO TRUE. DTSBE119 00398 DTSBE119 00399 SET LECM-REF-OPEN-READ-88 TO TRUE. DTSBE119 00400 SKIP2 DTSBE119 00401 I0000-EXIT. DTSBE119 00402 EXIT. DTSBE119 00403 DTSBE119 00404 SKIP3 DTSBE119 00405 ++INCLUDE OJRPE119 DTSBE119 00406 SKIP3 DTSBE119 00407 DTSBE119 00408 P0000-PROCESS. DTSBE119 00409 * DISPLAY 'RESP-ID3411 ' LECM-PARM-RESP-OP-ID DTSBE119 00410 ADD 1 TO TOT-EMP. DTSBE119 00411 IF MPRF-STATUS-ACT-88 DTSBE119 00412 ADD 1 TO ACT-EMP DTSBE119 00413 ELSE DTSBE119 00414 ADD 1 TO INA-EMP DTSBE119 00415 GO TO P0000-EXIT. DTSBE119 00416 DTSBE119 00417 IF WRK-PARM-CLASS-ALL-88 DTSBE119 00418 IF MPRF-CLASS-SUB-88 DTSBE119 00419 NEXT SENTENCE DTSBE119 00420 ELSE DTSBE119 00421 ADD 1 TO SUB-EMP DTSBE119 00422 GO TO P0000-EXIT DTSBE119 00423 ELSE DTSBE119 00424 IF MPRF-EMP-CLASS = WRK-PARM-EMP-CLASS DTSBE119 00425 NEXT SENTENCE DTSBE119 00426 ELSE DTSBE119 00427 ADD 1 TO ICL-EMP DTSBE119 00428 GO TO P0000-EXIT. DTSBE119 00429 DTSBE119 00430 MOVE WRK-PARM-START-YRQ TO L516-YRQ. DTSBE119 00431 PERFORM S516-LIABILITY THRU S516-EXIT. DTSBE119 00432 DTSBE119 00433 IF L516-ANN-SCHED-88 DTSBE119 00434 ADD 1 TO TOT-READ-ANN-FILER DTSBE119 00435 GO TO P0000-EXIT. DTSBE119 00436 IF MPRF-CLASS-SELF-INS-88 DTSBE119 00437 ADD 1 TO TOT-SELF-INS-FILER. DTSBE119 00438 * GO TO P0000-EXIT. DTSBE119 00439 DTSBE119 00440 SET WRK-EMP-INACTIVATED-NO-88 TO TRUE. CL**2 00441 SET WRK-BYPASS-NO-88 TO TRUE. DTSBE119 00442 DTSBE119 00443 SET WRK-LAST-YRQ-DELQ-IND-NO-88 TO TRUE. DTSBE119 00444 DTSBE119 00445 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBE119 00446 DTSBE119 00447 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBE119 00448 DTSBE119 00449 SET MQTR-QTR-88 TO TRUE. DTSBE119 00450 DTSBE119 00451 MOVE WRK-PARM-START-ABS-QTR TO L004-ABS-QTR. DTSBE119 00452 MOVE +0 TO ZERO-WAGE-EMP MISS-WAGE-EMP TOTL-WAGE-EMP DTSBE119 00453 ESTM-WAGE-EMP. DTSBE119 00454 DTSBE119 00455 PERFORM DTSBE119 00456 UNTIL (WRK-BYPASS-YES-88) DTSBE119 00457 OR DTSBE119 00458 (L004-ABS-QTR > WRK-PARM-END-ABS-QTR) DTSBE119 00459 PERFORM S004-FROM-ABS THRU S004-EXIT DTSBE119 00460 MOVE L004-QTR-5-9 TO MQTR-YRQ DTSBE119 00461 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA DTSBE119 00462 PERFORM S910-READ THRU S910-EXIT DTSBE119 00463 PERFORM P1000-EXAMINE-MQTR THRU P1000-EXIT DTSBE119 00464 ADD +1 TO L004-ABS-QTR DTSBE119 00465 END-PERFORM. DTSBE119 00466 DTSBE119 00467 COMPUTE TOTL-WAGE-EMP = ZERO-WAGE-EMP + MISS-WAGE-EMP DTSBE119 00468 CL*12 00469 DISPLAY 'ZERO: ' ZERO-WAGE-EMP ' MISS: ' MISS-WAGE-EMP CL*12 00470 ' TOTL: ' TOTL-WAGE-EMP. CL*12 00471 DTSBE119 00472 IF ZERO-WAGE-EMP > 7 OR CL*12 00473 MISS-WAGE-EMP > 7 OR CL*12 00474 TOTL-WAGE-EMP > 7 CL*12 00475 NEXT SENTENCE DTSBE119 00476 ELSE DTSBE119 00477 GO TO P0000-EXIT. DTSBE119 00478 DTSBE119 00479 IF ZERO-WAGE-EMP = 8 DTSBE119 00480 ADD 1 TO ZERO-WAGES DTSBE119 00481 ELSE DTSBE119 00482 IF MISS-WAGE-EMP = 8 DTSBE119 00483 ADD 1 TO MISS-WAGES DTSBE119 00484 ELSE DTSBE119 00485 IF TOTL-WAGE-EMP = 8 DTSBE119 00486 ADD 1 TO TOTL-WAGES. CL*12 00487 * ELSE CL*12 00488 * GO TO P0000-EXIT. CL*12 00489 DTSBE119 00490 DISPLAY 'EMP: ' MQTR-EMP-NO ' ' ZERO-WAGE-EMP ' ' DTSBE119 00491 ' ' MISS-WAGE-EMP ' ' TOTL-WAGE-EMP. DTSBE119 00492 DTSBE119 00493 PERFORM P1900-EXAMINE-NEXT-MQTR THRU P1900-EXIT DTSBE119 00494 DTSBE119 00495 IF WRK-BYPASS-YES-88 DTSBE119 00496 GO TO P0000-EXIT. DTSBE119 00497 DTSBE119 00498 DISPLAY 'SELECTED FOR INACTIVATION ' MQTR-EMP-NO DTSBE119 00499 'MQTR-YRQ ' MQTR-YRQ ' RPT TYPE ' MQTR-CURR-RPT-TYPE. DTSBE119 00500 DTSBE119 00501 SET R119-AUTOMATIC-INACT-YES-88 TO TRUE. DTSBE119 00502 SET AUTO-INACT-YES-88 TO TRUE DTSBE119 00503 DTSBE119 00504 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE119 00505 DTSBE119 00506 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE119 00507 DTSBE119 00508 SET MSKL-SOL-88 TO TRUE. DTSBE119 00509 DTSBE119 00510 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE119 00511 PERFORM UNTIL L910-NO-REC-88 DTSBE119 00512 MOVE MSKL-REC TO MSOL-REC DTSBE119 00513 IF MSOL-INACT-ACTIVE-88 DTSBE119 00514 MOVE MSOL-FIRST-LIAB-YRQ TO WRK-1ST-LIAB-QTR CL*13 00515 DISPLAY ' MSOLED: ' MSOL-ESTB-DATE CL*14 00516 ' WSRQDT: ' WRK-START-YRQ-DATE CL*14 00517 IF MSOL-ESTB-DATE > WRK-START-YRQ-DATE OR CL*14 00518 MSOL-INACT-REVERSE-DATE > WRK-START-YRQ-DATE DTSBE119 00519 SET AUTO-INACT-NO-88 TO TRUE DTSBE119 00520 END-IF DTSBE119 00521 END-IF DTSBE119 00522 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE119 00523 END-PERFORM. DTSBE119 00524 DTSBE119 00525 IF AUTO-INACT-NO-88 AND CL*13 00526 WRK-1ST-LIAB-QTR > WRK-PARM-START-YRQ CL*13 00527 DISPLAY ' NOT LIAB FOR 8 QTRS: ' MPRF-EMP-NO ' ' CL*13 00528 WRK-1ST-LIAB-QTR CL*13 00529 GO TO P0000-EXIT. CL*13 00530 CL*13 00531 IF AUTO-INACT-NO-88 CL*13 00532 DISPLAY ' INACTIVATION CANNOT OCCUR - LIABILITY OCCURRED ' CL**6 00533 MPRF-EMP-NO ' LIAB ESTB DATE: ' MSOL-ESTB-DATE CL**6 00534 SET R119-AUTO-INACT-NO-LIAB-88 TO TRUE CL**6 00535 PERFORM P3000-CONSTRUCT-R119 THRU P3000-EXIT CL**6 00536 GO TO P0000-EXIT. DTSBE119 00537 DTSBE119 00538 DISPLAY ' INACTIVATION 'MPRF-EMP-NO. CL**6 00539 DTSBE119 00540 * IF ESTM-WAGE-EMP > 0 DTSBE119 00541 * SET R119-AUTO-INACT-NO-ESTM-88 TO TRUE DTSBE119 00542 * DISPLAY ' INACTIVATION CANNOT OCCUR - ESTIMATED OCCURRED 'DTSBE119 00543 * PERFORM P3000-CONSTRUCT-R119 THRU P3000-EXIT DTSBE119 00544 * GO TO P0000-EXIT. DTSBE119 00545 DTSBE119 00546 DTSBE119 00547 ADD 1 TO SEL-EMP. DTSBE119 00548 IF WRK-PARM-AUTO-INACT-YES-88 DTSBE119 00549 PERFORM P2000-INACTIVATE-EMP THRU P2000-EXIT. DTSBE119 00550 DTSBE119 00551 DISPLAY ' INACTIVATION 'MPRF-EMP-NO. CL**6 00552 DTSBE119 00553 PERFORM P3000-CONSTRUCT-R119 THRU P3000-EXIT. DTSBE119 00554 P0000-EXIT. DTSBE119 00555 EXIT. DTSBE119 00556 EJECT DTSBE119 00557 P1000-EXAMINE-MQTR. DTSBE119 00558 IF L910-NO-REC-88 DTSBE119 00559 DISPLAY 'NO QTR REC FOUND ' MPRF-EMP-NO ' ' MQTR-YRQ DTSBE119 00560 ADD 1 TO MISS-WAGE-EMP DTSBE119 00561 * SET WRK-BYPASS-YES-88 TO TRUE DTSBE119 00562 GO TO P1000-EXIT. DTSBE119 00563 DTSBE119 00564 MOVE MSKL-REC TO MQTR-REC. DTSBE119 00565 DISPLAY 'QTR RPT TYP: ' MQTR-EMP-NO ' ' MQTR-YRQ ' ' DTSBE119 00566 MQTR-CURR-RPT-TYPE. DTSBE119 00567 IF MQTR-CURR-RCVD-88 AND MQTR-TOT-WAGE = +0 DTSBE119 00568 DISPLAY 'ZERO WAGES: ' MQTR-EMP-NO ' ' MQTR-YRQ DTSBE119 00569 ADD 1 TO ZERO-WAGE-EMP DTSBE119 00570 ELSE DTSBE119 00571 IF MQTR-CURR-MISSING-88 DTSBE119 00572 DISPLAY 'QUARTER MISSING: ' MQTR-EMP-NO ' ' MQTR-YRQ DTSBE119 00573 ADD 1 TO MISS-WAGE-EMP DTSBE119 00574 ELSE DTSBE119 00575 IF MQTR-CURR-NOT-DUE-88 CL*16 00576 DISPLAY 'QUARTER MISSING: ' MQTR-EMP-NO ' ' MQTR-YRQ CL*16 00577 ADD 1 TO MISS-WAGE-EMP CL*16 00578 ELSE CL*16 00579 IF MQTR-CURR-ESTIM-88 DTSBE119 00580 * ADD 1 TO ESTM-WAGE-EMP DTSBE119 00581 DISPLAY 'QUARTER ESTIMAT: ' MQTR-EMP-NO ' ' MQTR-YRQ DTSBE119 00582 ADD 1 TO ZERO-WAGE-EMP. DTSBE119 00583 * DISPLAY 'QTR REPORT ESTIMATED: ' MQTR-EMP-NO. DTSBE119 00584 DTSBE119 00585 P1000-EXIT. DTSBE119 00586 EXIT. DTSBE119 00587 EJECT DTSBE119 00588 DTSBE119 00589 P1900-EXAMINE-NEXT-MQTR. DTSBE119 00590 MOVE 0 TO WRK-EMP-9THQTR CL**3 00591 MOVE WRK-NEXT-UC30-DEL-MAIL-YRQ TO MQTR-YRQ. DTSBE119 00592 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA DTSBE119 00593 PERFORM S910-READ THRU S910-EXIT DTSBE119 00594 IF L910-NO-REC-88 DTSBE119 00595 * DISPLAY 'NO QTR REC FOUND ' MPRF-EMP-NO DTSBE119 00596 GO TO P1900-EXIT. DTSBE119 00597 DTSBE119 00598 MOVE MSKL-REC TO MQTR-REC. DTSBE119 00599 IF MQTR-CURR-RCVD-88 AND MQTR-TOT-WAGE > +0 DTSBE119 00600 DISPLAY 'EMP FILED 9TH QTR REPORT: ' MPRF-EMP-NO DTSBE119 00601 MOVE 1 TO WRK-EMP-9THQTR CL**4 00602 ADD 1 TO NEXT-QTR-REC-FOUND. CL**5 00603 * SET WRK-BYPASS-YES-88 TO TRUE. CL**5 00604 DTSBE119 00605 P1900-EXIT. DTSBE119 00606 EXIT. DTSBE119 00607 EJECT DTSBE119 00608 DTSBE119 00609 P2000-INACTIVATE-EMP. DTSBE119 00610 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE119 00611 DTSBE119 00612 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE119 00613 DTSBE119 00614 SET MSKL-SOL-88 TO TRUE. DTSBE119 00615 DTSBE119 00616 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE119 00617 DTSBE119 00618 IF L910-NO-REC-88 DTSBE119 00619 GO TO P2000-EXIT. DTSBE119 00620 DTSBE119 00621 MOVE MSKL-REC TO MSOL-REC. DTSBE119 00622 DTSBE119 00623 PERFORM DTSBE119 00624 UNTIL (L910-NO-REC-88) DTSBE119 00625 OR DTSBE119 00626 (MSOL-INACT-ACTIVE-88) DTSBE119 00627 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE119 00628 IF L910-OK-88 DTSBE119 00629 MOVE MSKL-REC TO MSOL-REC DTSBE119 00630 END-IF DTSBE119 00631 END-PERFORM. DTSBE119 00632 DTSBE119 00633 IF L910-NO-REC-88 DTSBE119 00634 DISPLAY ' NO SOL REC FOUND NOT INACT ' MPRF-EMP-NO DTSBE119 00635 GO TO P2000-EXIT. DTSBE119 00636 DTSBE119 00637 DTSBE119 00638 MOVE +0 TO WRK-INACT-DATE. DTSBE119 00639 DTSBE119 00640 PERFORM P2150-DETERMINE-NEW-INACT-DATE THRU P2150-EXIT. DTSBE119 00641 DTSBE119 00642 IF WRK-INACT-DATE = +0 DTSBE119 00643 DISPLAY ' WRK DATE = ZERO ' DTSBE119 00644 GO TO P2000-EXIT. DTSBE119 00645 DTSBE119 00646 IF L516-ANN-SCHED-88 DTSBE119 00647 GO TO P2000-EXIT. DTSBE119 00648 DTSBE119 00649 DISPLAY ' INACTIVATE DATE ' WRK-INACT-DATE ' ' MPRF-EMP-NO DTSBE119 00650 ' MSOL DATE ' MSOL-LIAB-DATE. DTSBE119 00651 DTSBE119 00652 MOVE MPRF-EMP-NO TO L331-EMP-NO. DTSBE119 00653 DTSBE119 00654 MOVE LECM-CURR-RUN-DATE TO L331-CURR-RUN-DATE. DTSBE119 00655 DTSBE119 00656 MOVE LECM-EMP-ABSTIME TO L331-UPDATE-ABSTIME. DTSBE119 00657 DTSBE119 00658 MOVE 'BE119' TO L331-OP-ID. DTSBE119 00659 DTSBE119 00660 PERFORM P2200-MPRF-UPDATE THRU P2200-EXIT. DTSBE119 00661 DTSBE119 00662 PERFORM P2300-MSOL-UPDATE THRU P2300-EXIT. DTSBE119 00663 DTSBE119 00664 MOVE L331-UPDATE-ABSTIME TO LECM-EMP-ABSTIME. DTSBE119 00665 DTSBE119 00666 PERFORM P2400-MERD-WRITE THRU P2400-EXIT. DTSBE119 00667 DTSBE119 00668 PERFORM P2500-CONSTRUCT-T031 THRU P2500-EXIT. DTSBE119 00669 DTSBE119 00670 PERFORM P2600-CONSTRUCT-R116 THRU P2600-EXIT. DTSBE119 00671 DTSBE119 00672 PERFORM P2700-CONSTRUCT-R117 THRU P2700-EXIT. DTSBE119 00673 DTSBE119 00674 PERFORM P2800-EVENT-LOG THRU P2800-EXIT. DTSBE119 00675 DTSBE119 00676 SET WRK-EMP-INACTIVATED-YES-88 TO TRUE. DTSBE119 00677 P2000-EXIT. DTSBE119 00678 EXIT. DTSBE119 00679 SKIP3 DTSBE119 00680 P2100-DETERMINE-INACT-DATE. DTSBE119 00681 MOVE +0 TO WRK-LAST-NON-ZERO-WAGE-YRQ DTSBE119 00682 WRK-NEVER-FILED. DTSBE119 00683 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE119 00684 DTSBE119 00685 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE119 00686 DTSBE119 00687 SET MSKL-QTR-88 TO TRUE. DTSBE119 00688 DTSBE119 00689 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE119 00690 DTSBE119 00691 PERFORM DTSBE119 00692 UNTIL L910-NO-REC-88 DTSBE119 00693 MOVE MSKL-REC TO MQTR-REC DTSBE119 00694 IF MQTR-CURR-RCVD-88 AND MQTR-TOT-WAGE > +0 DTSBE119 00695 MOVE MQTR-YRQ TO WRK-LAST-NON-ZERO-WAGE-YRQ DTSBE119 00696 DISPLAY 'LQTR PD ' MQTR-YRQ ' ' MQTR-TOT-WAGE DTSBE119 00697 END-IF DTSBE119 00698 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE119 00699 END-PERFORM. DTSBE119 00700 DTSBE119 00701 IF WRK-LAST-NON-ZERO-WAGE-YRQ > +0 DTSBE119 00702 MOVE WRK-LAST-NON-ZERO-WAGE-YRQ TO L004-QTR-5-9 DTSBE119 00703 PERFORM S004-FROM-5 THRU S004-EXIT DTSBE119 00704 IF L004-INVALID-QTR DTSBE119 00705 MOVE 'UNEXPECTED L004-INVALID-QTR ENCOUNTERED: P2100-1' DTSBE119 00706 TO ABEND-MSG DTSBE119 00707 PERFORM S999-ABEND THRU S999-EXIT DTSBE119 00708 ELSE DTSBE119 00709 DISPLAY 'NANCY' CL*32 00710 DISPLAY 'L004-QTR-END-DATE' L004-QTR-END-DATE CL*31 00711 MOVE L004-QTR-END-DATE TO WRK-INACT-DATE. CL*30 00712 DTSBE119 00713 IF WRK-LAST-NON-ZERO-WAGE-YRQ > WRK-PARM-END-YRQ DTSBE119 00714 *& DTSBE119 00715 DISPLAY 'LAST NON ZERO WAGE YRQ > PARM END YRQ ' DTSBE119 00716 MPRF-EMP-NO ' ' DTSBE119 00717 WRK-LAST-NON-ZERO-WAGE-YRQ ' '. DTSBE119 00718 *& DTSBE119 00719 * MOVE ZERO TO WRK-INACT-DATE DTSBE119 00720 * GO TO P2100-EXIT. DTSBE119 00721 DTSBE119 00722 * IF WRK-INACT-DATE >= MSOL-LIAB-DATE DTSBE119 00723 * GO TO P2100-EXIT. DTSBE119 00724 DTSBE119 00725 IF WRK-INACT-DATE > +0 DTSBE119 00726 GO TO P2100-EXIT. DTSBE119 00727 DTSBE119 00728 MOVE +0 TO WRK-INACT-DATE. DTSBE119 00729 DTSBE119 00730 MOVE MSOL-LIAB-DATE TO L004-DATE. DTSBE119 00731 DTSBE119 00732 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBE119 00733 DTSBE119 00734 IF L004-INVALID-QTR DTSBE119 00735 MOVE 'UNEXPECTED L004-INVALID-QTR ENCOUNTERED: P2100-2' DTSBE119 00736 TO ABEND-MSG DTSBE119 00737 PERFORM S999-ABEND THRU S999-EXIT. DTSBE119 00738 DTSBE119 00739 IF L516-ANN-SCHED-88 DTSBE119 00740 DISPLAY ' ANN FILER NEVER FILED ' MPRF-EMP-NO DTSBE119 00741 GO TO P2100-EXIT. DTSBE119 00742 MOVE 1 TO WRK-NEVER-FILED. DTSBE119 00743 * IF L004-QTR-END-DATE >= MSOL-LIAB-DATE DTSBE119 00744 * MOVE L004-QTR-END-DATE TO WRK-INACT-DATE. DTSBE119 00745 MOVE MSOL-LIAB-DATE TO WRK-INACT-DATE. DTSBE119 00746 P2100-EXIT. DTSBE119 00747 EXIT. DTSBE119 00748 SKIP3 DTSBE119 00749 P2150-DETERMINE-NEW-INACT-DATE. DTSBE119 00750 MOVE +0 TO WRK-LAST-NON-ZERO-WAGE-YRQ DTSBE119 00751 WRK-INACT-DATE. DTSBE119 00752 DTSBE119 00753 MOVE WRK-PARM-END-YRQ TO L004-QTR-5-9 DTSBE119 00754 PERFORM S004-FROM-5 THRU S004-EXIT DTSBE119 00755 IF L004-INVALID-QTR DTSBE119 00756 MOVE 'UNEXPECTED L004-INVALID-QTR ENCOUNTERED: P2100-1' DTSBE119 00757 TO ABEND-MSG DTSBE119 00758 PERFORM S999-ABEND THRU S999-EXIT DTSBE119 00759 ELSE DTSBE119 00760 MOVE L004-QTR-END-DATE TO WRK-INACT-DATE. CL*27 00761 ** MOVE WRK-PARM-END-YRQ TO WRK-INACT-DATE. CL*27 00762 DTSBE119 00763 DISPLAY 'P2150 ' CL*17 00764 DISPLAY 'EMP INACTIVATED ' MPRF-EMP-NO ' ' WRK-INACT-DATE. CL*19 00765 DTSBE119 00766 P2150-EXIT. DTSBE119 00767 EXIT. DTSBE119 00768 SKIP3 DTSBE119 00769 P2200-MPRF-UPDATE. DTSBE119 00770 MOVE SPACES TO L331-REC-OCC-ID. DTSBE119 00771 DTSBE119 00772 MOVE 'MPRF-EMP-STATUS' TO L331-FIELD-NAME. DTSBE119 00773 DTSBE119 00774 MOVE MPRF-EMP-STATUS TO L331-FROM-VALUE. DTSBE119 00775 DTSBE119 00776 SET MPRF-STATUS-INACT-88 TO TRUE. DTSBE119 00777 DTSBE119 00778 MOVE LECM-CURR-RUN-DATE TO MPRF-CHNG-DATE. DTSBE119 00779 DTSBE119 00780 SET LECM-EMP-UPDATED-YES-88 TO TRUE. DTSBE119 00781 DTSBE119 00782 MOVE MPRF-EMP-STATUS TO L331-TO-VALUE. DTSBE119 00783 DTSBE119 00784 PERFORM S331-WRITE-MLOG THRU S331-EXIT. DTSBE119 00785 P2200-EXIT. DTSBE119 00786 EXIT. DTSBE119 00787 SKIP3 DTSBE119 00788 P2300-MSOL-UPDATE. DTSBE119 00789 MOVE MSOL-LIAB-DATE TO L001-FED-8-DATE-9. DTSBE119 00790 DTSBE119 00791 MOVE L001-FED-8-DATE-X TO L331-REC-OCC-ID. DTSBE119 00792 DTSBE119 00793 MOVE 'MSOL-INACT-DATE' TO L331-FIELD-NAME. DTSBE119 00794 DTSBE119 00795 IF MSOL-INACT-DATE = +0 DTSBE119 00796 MOVE SPACES TO L331-FROM-VALUE DTSBE119 00797 ELSE DTSBE119 00798 IF MSOL-INACT-DATE = ALL-NINES-DATE DTSBE119 00799 MOVE '99/99/99' TO L331-FROM-VALUE DTSBE119 00800 ELSE DTSBE119 00801 MOVE MSOL-INACT-DATE TO L001-FED-8-DATE-9 DTSBE119 00802 PERFORM S001-FROM-FED-8 THRU S001-EXIT DTSBE119 00803 MOVE L001-SLASH-DATE TO L331-FROM-VALUE. DTSBE119 00804 DTSBE119 00805 MOVE WRK-INACT-DATE TO L001-FED-8-DATE-9. DTSBE119 00806 DTSBE119 00807 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBE119 00808 DTSBE119 00809 MOVE L001-SLASH-DATE TO L331-TO-VALUE. DTSBE119 00810 DTSBE119 00811 PERFORM S331-WRITE-MLOG THRU S331-EXIT. DTSBE119 00812 DTSBE119 00813 MOVE WRK-INACT-DATE TO MSOL-INACT-DATE. DTSBE119 00814 DTSBE119 00815 DTSBE119 00816 MOVE 'MSOL-LAST-LIAB-YRQ' TO L331-FIELD-NAME. DTSBE119 00817 DTSBE119 00818 IF MSOL-LAST-LIAB-YRQ = +0 DTSBE119 00819 MOVE SPACES TO L331-FROM-VALUE DTSBE119 00820 ELSE DTSBE119 00821 IF MSOL-LAST-LIAB-YRQ = ALL-NINES-YRQ DTSBE119 00822 MOVE '99/9' TO L331-FROM-VALUE DTSBE119 00823 ELSE DTSBE119 00824 MOVE MSOL-LAST-LIAB-YRQ TO L004-QTR-5-9 DTSBE119 00825 PERFORM S004-FROM-5 THRU S004-EXIT DTSBE119 00826 MOVE L004-SLASH-QTR TO L331-FROM-VALUE. DTSBE119 00827 DTSBE119 00828 MOVE WRK-INACT-DATE TO L004-DATE. CL*28 00829 CL*29 00830 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBE119 00831 DTSBE119 00832 IF L004-INVALID-QTR DTSBE119 00833 MOVE 'UNEXPECTED L004-INVALID-QTR ENCOUNTERED: P2300-1' DTSBE119 00834 TO ABEND-MSG DTSBE119 00835 PERFORM S999-ABEND THRU S999-EXIT. DTSBE119 00836 DTSBE119 00837 MOVE L004-SLASH-QTR TO L331-TO-VALUE. DTSBE119 00838 DTSBE119 00839 PERFORM S331-WRITE-MLOG THRU S331-EXIT. DTSBE119 00840 DTSBE119 00841 MOVE L004-QTR-5-9 TO MSOL-LAST-LIAB-YRQ. DTSBE119 00842 DTSBE119 00843 DTSBE119 00844 MOVE LECM-CURR-RUN-DATE TO MSOL-INACT-ENTER-DATE. DTSBE119 00845 DTSBE119 00846 DTSBE119 00847 MOVE +0 TO MSOL-INACT-REVERSE-DATE. DTSBE119 00848 DTSBE119 00849 DTSBE119 00850 MOVE 'MSOL-INACT-CD' TO L331-FIELD-NAME. DTSBE119 00851 DTSBE119 00852 MOVE MSOL-INACT-CD TO L331-FROM-VALUE. DTSBE119 00853 DTSBE119 00854 IF WRK-NEVER-FILED = 0 DTSBE119 00855 SET MSOL-INACT-TERMINATION-88 TO TRUE DTSBE119 00856 ELSE DTSBE119 00857 MOVE +0 TO MSOL-FIRST-LIAB-YRQ DTSBE119 00858 MSOL-LAST-LIAB-YRQ DTSBE119 00859 SET MSOL-INACT-WDRW-CAN-88 TO TRUE. DTSBE119 00860 DTSBE119 00861 MOVE MSOL-INACT-CD TO L331-TO-VALUE. DTSBE119 00862 DTSBE119 00863 PERFORM S331-WRITE-MLOG THRU S331-EXIT. DTSBE119 00864 DTSBE119 00865 DTSBE119 00866 MOVE LECM-CURR-RUN-DATE TO MSOL-CHNG-DATE. DTSBE119 00867 DTSBE119 00868 DTSBE119 00869 MOVE MSOL-REC TO MSKL-REC. DTSBE119 00870 DTSBE119 00871 DTSBE119 00872 PERFORM S910-REWRITE THRU S910-EXIT. DTSBE119 00873 P2300-EXIT. DTSBE119 00874 EXIT. DTSBE119 00875 SKIP3 DTSBE119 00876 P2400-MERD-WRITE. DTSBE119 00877 MOVE LOW-VALUES TO MERD-REC. DTSBE119 00878 DTSBE119 00879 DTSBE119 00880 MOVE MPRF-EMP-NO TO MERD-EMP-NO. DTSBE119 00881 DTSBE119 00882 SET MERD-ERD-88 TO TRUE. DTSBE119 00883 DTSBE119 00884 ADD +1 TO LECM-EMP-ABSTIME. DTSBE119 00885 DTSBE119 00886 MOVE LECM-EMP-ABSTIME TO MERD-ESTB-ABSTIME. DTSBE119 00887 DTSBE119 00888 MOVE +0 TO MERD-PURGE-DATE. DTSBE119 00889 DTSBE119 00890 SET MERD-DETER-INACT-88 TO TRUE. DTSBE119 00891 DTSBE119 00892 MOVE MSOL-INACT-DATE TO MERD-EFFECTIVE-DATE. DTSBE119 00893 DTSBE119 00894 MOVE ' ' TO MERD-SCREEN-ID. DTSBE119 00895 DTSBE119 00896 MOVE 'BATCH' TO MERD-OP-ID. DTSBE119 00897 DTSBE119 00898 SET MERD-NOT-CONVERTED-88 TO TRUE. DTSBE119 00899 DTSBE119 00900 MOVE LECM-CURR-RUN-DATE TO MERD-ESTB-DATE. DTSBE119 00901 DTSBE119 00902 DTSBE119 00903 MOVE MERD-REC TO MSKL-REC. DTSBE119 00904 DTSBE119 00905 PERFORM S910-WRITE THRU S910-EXIT. DTSBE119 00906 P2400-EXIT. DTSBE119 00907 EXIT. DTSBE119 00908 SKIP3 DTSBE119 00909 P2500-CONSTRUCT-T031. DTSBE119 00910 MOVE MPRF-EMP-NO TO T031-EMP-NO. DTSBE119 00911 DTSBE119 00912 MOVE WRK-MOD-NAME TO T031-ORIGIN. DTSBE119 00913 DTSBE119 00914 MOVE LECM-SYS-DATE TO T031-SYS-DATE. DTSBE119 00915 DTSBE119 00916 MOVE LECM-SYS-TIME TO T031-SYS-TIME. DTSBE119 00917 DTSBE119 00918 MOVE LOW-VALUES TO T031-DATA-AREA. DTSBE119 00919 DTSBE119 00920 SET T031-AUTO-PROCESS TO TRUE. DTSBE119 00921 DTSBE119 00922 MOVE MSOL-LAST-LIAB-YRQ TO T031-START-YRQ. DTSBE119 00923 DTSBE119 00924 MOVE ALL-NINES-YRQ TO T031-END-YRQ. DTSBE119 00925 DTSBE119 00926 MOVE +0 TO T031-WAIVER-START-YRQ DTSBE119 00927 T031-WAIVER-END-YRQ DTSBE119 00928 T031-WAIVER-EXT-DATE. DTSBE119 00929 DTSBE119 00930 SET T031-TRANSFER-NO-88 TO TRUE. DTSBE119 00931 DTSBE119 00932 MOVE +0 TO T031-TRANSFER-TO-EMP-NO. DTSBE119 00933 DTSBE119 00934 DTSBE119 00935 PERFORM S927-WRITE-T031 THRU S927-EXIT. DTSBE119 00936 P2500-EXIT. DTSBE119 00937 EXIT. DTSBE119 00938 SKIP3 DTSBE119 00939 P2600-CONSTRUCT-R116. DTSBE119 00940 SET R116-INACT-88 TO TRUE. DTSBE119 00941 DTSBE119 00942 MOVE LOW-VALUES TO R116-SORT-VAR-AREA. DTSBE119 00943 DTSBE119 00944 MOVE MPRF-EMP-NO TO R116-INACT-EMP-NO. DTSBE119 00945 DTSBE119 00946 MOVE MSOL-LIAB-DATE TO R116-INACT-LIAB-DATE. DTSBE119 00947 DTSBE119 00948 MOVE MPRF-PRIMARY-NAME TO R116-PRIMARY-NAME. DTSBE119 00949 DTSBE119 00950 MOVE MSOL-INACT-DATE TO R116-INACT-DATE. DTSBE119 00951 DTSBE119 00952 MOVE MPRF-EMP-CLASS TO R116-EMP-CLASS. DTSBE119 00953 DTSBE119 00954 MOVE MPRF-PURSUED-RPT-CNT TO R116-NUM-DELQ-RPTS. DTSBE119 00955 DTSBE119 00956 PERFORM S946-WRITE-R116 THRU S946-EXIT. DTSBE119 00957 P2600-EXIT. DTSBE119 00958 EXIT. DTSBE119 00959 SKIP3 DTSBE119 00960 P2700-CONSTRUCT-R117. DTSBE119 00961 MOVE WRK-PARM-RESP-OP-ID TO R117-OP-ID. DTSBE119 00962 DTSBE119 00963 SET R117-8ZEROWAGE-88 TO TRUE. DTSBE119 00964 DTSBE119 00965 MOVE MPRF-EMP-NO TO R117-EMP-NO. DTSBE119 00966 DTSBE119 00967 MOVE LECM-PRIOR-MAIL-DATE TO R117-MAIL-DATE. DTSBE119 00968 DTSBE119 00969 MOVE ALL '?' TO R117-FMT-ADDR DTSBE119 00970 R117-ZIP DTSBE119 00971 R117-ADVANCED-BARCODE. DTSBE119 00972 DTSBE119 00973 MOVE MPRF-EMP-NO TO L111-EMP-NO. DTSBE119 00974 DTSBE119 00975 SET L111-LOOKUP-TAD-88 TO TRUE. DTSBE119 00976 DTSBE119 00977 SET L111-ID-NO-TAD-MAIL-88 TO TRUE. DTSBE119 00978 DTSBE119 00979 PERFORM S111-LOOKUP-ADDR THRU S111-EXIT. DTSBE119 00980 DTSBE119 00981 IF L111-ADDR-FOUND-88 DTSBE119 00982 SET L112-TAD-ADDR-88 TO TRUE DTSBE119 00983 SET L112-ANCHOR-LAST-88 TO TRUE DTSBE119 00984 MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME DTSBE119 00985 MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA DTSBE119 00986 PERFORM S112-FORMAT-ADDR THRU S112-EXIT DTSBE119 00987 MOVE L112-MAILING-ADDRESS TO R117-FMT-ADDR DTSBE119 00988 MOVE L112-ZIP TO R117-ZIP DTSBE119 00989 MOVE L112-ADVANCED-BARCODE TO R117-ADVANCED-BARCODE. DTSBE119 00990 DTSBE119 00991 MOVE WRK-INACT-DATE TO R117-INACT-DATE. CL**7 00992 PERFORM S946-WRITE-R117 THRU S946-EXIT. DTSBE119 00993 P2700-EXIT. DTSBE119 00994 EXIT. DTSBE119 00995 DTSBE119 00996 P2800-EVENT-LOG. DTSBE119 00997 ADD +1000 TO LECM-EMP-ABSTIME. DTSBE119 00998 MOVE LECM-EMP-ABSTIME TO L005-ABSTIME. DTSBE119 00999 PERFORM S005-FROM-ABSTIME THRU S005-EXIT. DTSBE119 01000 DTSBE119 01001 MOVE LOW-VALUES TO MEVL-REC. DTSBE119 01002 MOVE MPRF-EMP-NO TO MEVL-EMP-NO. DTSBE119 01003 SET MEVL-EVL-88 TO TRUE. DTSBE119 01004 MOVE L005-DATE TO MEVL-DATE. DTSBE119 01005 MOVE L005-TIME TO MEVL-TIME. DTSBE119 01006 MOVE ZERO TO MEVL-PURGE-DATE. DTSBE119 01007 MOVE WRK-MEVL-TEXT TO MEVL-TEXT. DTSBE119 01008 SET MEVL-SOURCE-SYSTEM-88 TO TRUE. DTSBE119 01009 SET MEVL-NOT-CONVERTED-88 TO TRUE. DTSBE119 01010 MOVE LECM-CURR-RUN-DATE TO MEVL-ESTB-DATE DTSBE119 01011 MEVL-CHNG-DATE. DTSBE119 01012 DTSBE119 01013 MOVE MEVL-REC TO MSKL-REC. DTSBE119 01014 PERFORM S910-WRITE THRU S910-EXIT. DTSBE119 01015 DTSBE119 01016 P2800-EXIT. DTSBE119 01017 EXIT. DTSBE119 01018 EJECT DTSBE119 01019 P3000-CONSTRUCT-R119. DTSBE119 01020 MOVE MPRF-EMP-NO TO R119-EMP-NO. DTSBE119 01021 DTSBE119 01022 MOVE WRK-PARM-START-YRQ TO R119-FIRST-QTR. DTSBE119 01023 DTSBE119 01024 MOVE WRK-PARM-END-YRQ TO R119-LAST-QTR. DTSBE119 01025 DTSBE119 01026 MOVE MPRF-PRIMARY-NAME TO R119-PRIMARY-NAME. DTSBE119 01027 DTSBE119 01028 MOVE MPRF-EMP-CLASS TO R119-EMP-CLASS. DTSBE119 01029 DTSBE119 01030 PERFORM S061-DETERMINE-FLD-REP THRU S061-EXIT. DTSBE119 01031 DTSBE119 01032 MOVE L061-FLD-REP-ID TO R119-FLD-REP-ID. DTSBE119 01033 DTSBE119 01034 MOVE WRK-LAST-YRQ-DELQ-IND TO R119-LAST-YRQ-DELQ-IND. DTSBE119 01035 DTSBE119 01036 SET R119-9THQTR-RPTWGE-NO-88 TO TRUE CL**2 01037 CL**2 01038 IF WRK-EMP-9THQTR = 1 CL**2 01039 SET R119-9THQTR-RPTWGE-YES-88 TO TRUE. CL**2 01040 DTSBE119 01041 DTSBE119 01042 PERFORM S946-WRITE-R119 THRU S946-EXIT. DTSBE119 01043 P3000-EXIT. DTSBE119 01044 EXIT. DTSBE119 01045 EJECT DTSBE119 01046 T0000-TERMINATE. DTSBE119 01047 DISPLAY ' BE119 TERMINATION DISPLAYS ' DTSBE119 01048 DISPLAY ' ' DTSBE119 01049 DISPLAY ' TOTAL EMPL READ ' TOT-EMP. DTSBE119 01050 DISPLAY ' TOTAL EMPL INACT BYPASS ' INA-EMP. DTSBE119 01051 DISPLAY ' TOTAL EMPL NOT SUB BYPASS ' SUB-EMP. DTSBE119 01052 DISPLAY ' TOTAL ANNUAL FILERS BYPASS ' TOT-READ-ANN-FILER DTSBE119 01053 DISPLAY ' TOTAL SELF INSURED BYPASS ' TOT-SELF-INS-FILER DTSBE119 01054 DISPLAY ' 8 QTRS 0 RPTS; NXT QTR FND ' NEXT-QTR-REC-FOUND. DTSBE119 01055 DISPLAY ' ' DTSBE119 01056 DISPLAY ' TOTAL EMPL SELECTED ' SEL-EMP. DTSBE119 01057 DISPLAY ' ZERO WAGES 8 QUARTERS ' ZERO-WAGES. DTSBE119 01058 DISPLAY ' MISSING REPORTS 8 QTRS ' MISS-WAGES. DTSBE119 01059 DISPLAY ' MISS RPTS/ZERO WAGES ' TOTL-WAGES. DTSBE119 01060 DTSBE119 01061 T0000-EXIT. DTSBE119 01062 EXIT. DTSBE119 01063 EJECT DTSBE119 01064 S001-FROM-FED-8. DTSBE119 01065 SET L001-FROM-FED-8 TO TRUE. DTSBE119 01066 GO TO S001-DATE. DTSBE119 01067 DTSBE119 01068 S001-FROM-ABS-DAY. DTSBE119 01069 SET L001-FROM-ABS-DAY TO TRUE. DTSBE119 01070 GO TO S001-DATE. DTSBE119 01071 DTSBE119 01072 S001-DATE. DTSBE119 01073 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBE119 01074 S001-EXIT. DTSBE119 01075 EXIT. DTSBE119 01076 SKIP3 DTSBE119 01077 S004-FROM-5. DTSBE119 01078 SET L004-FROM-5 TO TRUE. DTSBE119 01079 GO TO S004-QTR. DTSBE119 01080 DTSBE119 01081 S004-FROM-ABS. DTSBE119 01082 SET L004-FROM-ABS TO TRUE. DTSBE119 01083 GO TO S004-QTR. DTSBE119 01084 DTSBE119 01085 S004-FROM-3. DTSBE119 01086 SET L004-FROM-3 TO TRUE. DTSBE119 01087 GO TO S004-QTR. DTSBE119 01088 DTSBE119 01089 S004-FROM-DATE. DTSBE119 01090 SET L004-FROM-DATE TO TRUE. DTSBE119 01091 GO TO S004-QTR. DTSBE119 01092 DTSBE119 01093 S004-QTR. DTSBE119 01094 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBE119 01095 S004-EXIT. DTSBE119 01096 EXIT. DTSBE119 01097 SKIP3 DTSBE119 01098 S005-FROM-ABSTIME. DTSBE119 01099 SET L005-FROM-ABSTIME TO TRUE. DTSBE119 01100 GO TO S005-ABSTIME. DTSBE119 01101 DTSBE119 01102 S005-ABSTIME. DTSBE119 01103 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBE119 01104 S005-EXIT. DTSBE119 01105 EXIT. DTSBE119 01106 SKIP3 DTSBE119 01107 S061-DETERMINE-FLD-REP. DTSBE119 01108 MOVE MPRF-FLD-ZIP-ST TO L061-FLD-ZIP-ST. DTSBE119 01109 DTSBE119 01110 MOVE MPRF-EMP-NO TO L061-EMP-NO. DTSBE119 01111 DTSBE119 01112 CALL 'DTSBU061' USING L061-LINK-AREA. DTSBE119 01113 S061-EXIT. DTSBE119 01114 EXIT. DTSBE119 01115 SKIP3 DTSBE119 01116 S082-LOOKUP-OP-ID. DTSBE119 01117 CALL 'DTSBU082' USING L082-LINK-AREA. DTSBE119 01118 S082-EXIT. DTSBE119 01119 EXIT. DTSBE119 01120 SKIP3 DTSBE119 01121 S111-LOOKUP-ADDR. DTSBE119 01122 CALL 'DTSBU111' USING L111-LINK-AREA. DTSBE119 01123 S111-EXIT. DTSBE119 01124 EXIT. DTSBE119 01125 SKIP3 DTSBE119 01126 S112-FORMAT-ADDR. DTSBE119 01127 CALL 'DTSBU112' USING L112-LINK-AREA. DTSBE119 01128 S112-EXIT. DTSBE119 01129 EXIT. DTSBE119 01130 SKIP3 DTSBE119 01131 S331-WRITE-MLOG. DTSBE119 01132 CALL 'DTSBU331' USING L331-LINK-AREA. DTSBE119 01133 DTSBE119 01134 SET LECM-EMP-UPDATED-YES-88 TO TRUE. DTSBE119 01135 S331-EXIT. DTSBE119 01136 EXIT. DTSBE119 01137 SKIP3 DTSBE119 01138 S516-LIABILITY. DTSBE119 01139 CALL 'DTSBU516' USING L516-LINK-AREA DTSBE119 01140 MPRF-LINK-REC. DTSBE119 01141 S516-EXIT. DTSBE119 01142 EXIT. DTSBE119 01143 SKIP3 DTSBE119 01144 S910-READ. DTSBE119 01145 SET L910-READ-88 TO TRUE. DTSBE119 01146 GO TO S910-MSTR-IO. DTSBE119 01147 DTSBE119 01148 S910-START-BROWSE. DTSBE119 01149 SET L910-START-BROWSE-88 TO TRUE. DTSBE119 01150 GO TO S910-MSTR-IO. DTSBE119 01151 DTSBE119 01152 S910-READ-NEXT. DTSBE119 01153 SET L910-READ-NEXT-88 TO TRUE. DTSBE119 01154 GO TO S910-MSTR-IO. DTSBE119 01155 DTSBE119 01156 S910-REWRITE. DTSBE119 01157 SET L910-REWRITE-88 TO TRUE. DTSBE119 01158 SET LECM-EMP-UPDATED-YES-88 TO TRUE. DTSBE119 01159 GO TO S910-MSTR-IO. DTSBE119 01160 DTSBE119 01161 S910-WRITE. DTSBE119 01162 SET L910-WRITE-88 TO TRUE. DTSBE119 01163 SET LECM-EMP-UPDATED-YES-88 TO TRUE. DTSBE119 01164 GO TO S910-MSTR-IO. DTSBE119 01165 DTSBE119 01166 S910-MSTR-IO. DTSBE119 01167 CALL 'DTSBU910' USING L910-LINK-AREA DTSBE119 01168 MSKL-REC. DTSBE119 01169 S910-EXIT. DTSBE119 01170 EXIT. DTSBE119 01171 SKIP3 DTSBE119 01172 S927-WRITE-T031. DTSBE119 01173 SET L927-WRITE-88 TO TRUE. DTSBE119 01174 CALL 'DTSBU927' USING L927-LINK-AREA DTSBE119 01175 T031-REC. DTSBE119 01176 GO TO S927-EXIT. DTSBE119 01177 DTSBE119 01178 S927-EXIT. DTSBE119 01179 EXIT. DTSBE119 01180 SKIP3 DTSBE119 01181 S946-WRITE-R116. DTSBE119 01182 CALL 'DTSBU946' USING R116-REC. DTSBE119 01183 GO TO S946-EXIT. DTSBE119 01184 DTSBE119 01185 S946-WRITE-R117. DTSBE119 01186 CALL 'DTSBU946' USING R117-REC. DTSBE119 01187 GO TO S946-EXIT. DTSBE119 01188 DTSBE119 01189 S946-WRITE-R119. DTSBE119 01190 CALL 'DTSBU946' USING R119-REC. DTSBE119 01191 GO TO S946-EXIT. DTSBE119 01192 DTSBE119 01193 S946-EXIT. DTSBE119 01194 EXIT. DTSBE119 01195 SKIP3 DTSBE119 01196 S999-ABEND. DTSBE119 01197 DISPLAY '*** DTSBE119 ABENDING. ' DTSBE119 01198 ABEND-MSG. DTSBE119 01199 DTSBE119 01200 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBE119 01201 S999-EXIT. DTSBE119 01202 EXIT. DTSBE119