1204 lines
95 KiB
COBOL
1204 lines
95 KiB
COBOL
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
|