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