1160 lines
92 KiB
COBOL
1160 lines
92 KiB
COBOL
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
|