00001 IDENTIFICATION DIVISION. 02/27/13 00002 PROGRAM-ID. DTSBE713. DTSBE713 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV010 00004 DATE-WRITTEN. SEPTEMBER 1994. DTSBE713 00005 DATE-COMPILED. DTSBE713 00006 SKIP3 DTSBE713 00007 ************************************************************* CL*10 00008 *<<<<<<<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>>>>>>>>>>>>>>> CL*10 00009 *<<<<<<<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>>>>>>>>>>>>>>> CL*10 00010 *<<<<<<<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>>>>>>>>>>>>>>> CL*10 00011 *<<<<<<<<<<<<<<<< PROGRAM NO LONGER NEEDED >>>>>>>>>>>>>>>>>> CL*10 00012 ************************************************************* CL*10 00013 * DTSBE713 00014 * FUNCTION: ETA-581 PROCESSING. DTSBE713 00015 * DTSBE713 00016 * DTSBE713 00017 * MODIFICATION LOG: DTSBE713 00018 * DTSBE713 00019 * 02/25/99 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS. CL**3 00020 * WORK ORDER: PROGRAMMER: DVS CL**3 00021 * DTSBE713 00022 * 05/24/1999 PICKUP MODIFICATION. WHEN MQTR-YRQ IS EQUAL TO CL**8 00023 * LECM-PICKUP-YRQ, BYPASS RECEIVABLES PROCESSING. CL**8 00024 * REFERENCE: PICKUP DIR PROGRAMMER: EHH CL**8 00025 * CL**8 00026 * 02/23/2000 ADDED *-INDCON-TO-EMPL-CNT PROCESSING. CL**9 00027 * REFERENCE: UIPL 03-99 PROGRAMMER: EHH CL**9 00028 * CL**9 00029 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**9 00030 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**9 00031 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX CL**9 00032 * CL**3 00033 * DTSBE713 00034 * DESCRIPTION: DTSBE713 00035 * DTSBE713 00036 * DTSBE713 00037 * INITIATION: DTSBE713 00038 * DTSBE713 00039 * SET LECM-MST-OPEN-READ-88 TO TRUE. DTSBE713 00040 * SET LECM-REF-OPEN-UPDATE-88 TO TRUE. DTSBE713 00041 * DTSBE713 00042 * EDIT AND DEFAULT PARAMETERS. DTSBE713 00043 * DTSBE713 00044 * DTSBE713 00045 * PROCESSING: DTSBE713 00046 * DTSBE713 00047 * SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (713R1). DTSBE713 00048 * DTSBE713 00049 * DTSBE713 00050 * TERMINATION: DTSBE713 00051 * DTSBE713 00052 * WRITE A R713 RECORD AND WRITE (OR REWRITE A F581 RECORD). DTSBE713 00053 * DTSBE713 00054 * DTSBE713 00055 * RECORDS READ: DTSBE713 00056 * DTSBE713 00057 * MASTER: DTSBE713 00058 * DTSBE713 00059 * MSOL DTSBE713 00060 * MERD DTSBE713 00061 * MQTR DTSBE713 00062 * MRPT DTSBE713 00063 * MJRN DTSBE713 00064 * MFAS DTSBE713 00065 * MAUR DTSBE713 00066 * MAUY DTSBE713 00067 * DTSBE713 00068 * DTSBE713 00069 * ALTERNATE INDEX: DTSBE713 00070 * DTSBE713 00071 * NONE. DTSBE713 00072 * DTSBE713 00073 * DTSBE713 00074 * REFERENCE: DTSBE713 00075 * DTSBE713 00076 * F581. DTSBE713 00077 * FQTR. DTSBE713 00078 * DTSBE713 00079 * DTSBE713 00080 * RECORDS UPDATED: DTSBE713 00081 * DTSBE713 00082 * F581 (WRITE, REWRITE). DTSBE713 00083 * DTSBE713 00084 * DTSBE713 00085 * REPORT RECORDS WRITTEN: DTSBE713 00086 * DTSBE713 00087 * R713 ETA-581 DOWNLOAD TRIGGER. DTSBE713 00088 * DTSBE713 00089 * DTSBE713 00090 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBE713 00091 * DTSBE713 00092 * NONE. DTSBE713 00093 * DTSBE713 00094 * DTSBE713 00095 * MODULES CALLED: DTSBE713 00096 * DTSBE713 00097 * DTSBU001 DATE EDIT/CONVERSION. CL**2 00098 * DTSBU004 QUARTER EDIT/CONVERSION. CL**2 00099 * DTSBU005 ABSOLUTE TIME CONVERSION/EDIT. CL**2 00100 * DTSBU910 MASTER FILE I/O. CL**2 00101 * DTSBU931 REFERENCE FILE I/O. CL**2 00102 * DTSBU946 VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1. CL**2 00103 * DTSBE713 00104 * DTSBE713 00105 * VERMONT REFERENCE: DTSBE713 00106 * DTSBE713 00107 * TXBE395 DTSBE713 00108 * DTSBE713 00109 ***** DTSBE713 00110 SKIP3 DTSBE713 00111 ENVIRONMENT DIVISION. DTSBE713 00112 EJECT DTSBE713 00113 DATA DIVISION. DTSBE713 00114 SKIP3 DTSBE713 00115 WORKING-STORAGE SECTION. DTSBE713 001155 77 PAN-VALET PICTURE X(24) VALUE '010DTSBE713 02/27/13'. DTSBE713 00116 SKIP3 DTSBE713 00117 01 WRK-AREA. DTSBE713 00118 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +713.DTSBE713 00119 DTSBE713 00120 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBE713'. CL**2 00121 DTSBE713 00122 05 ALL-NINES-YRQ PIC S9(05) COMP-3 DTSBE713 00123 VALUE +99999. DTSBE713 00124 SKIP3 DTSBE713 00125 05 ABEND-MSG PIC X(60). DTSBE713 00126 SKIP3 DTSBE713 00127 05 WRK-PARM-SUBJECT-YRQ PIC S9(05) COMP-3. DTSBE713 00128 DTSBE713 00129 05 WRK-PARM-EST-AVG-DUE PIC S9(05) COMP-3. DTSBE713 00130 DTSBE713 00131 05 WRK-PARM-TIMING-EDITS-IND PIC X(01). DTSBE713 00132 88 WRK-PARM-TIMING-EDITS-YES-88 VALUE 'Y'. DTSBE713 00133 88 WRK-PARM-TIMING-EDITS-NO-88 VALUE 'N'. DTSBE713 00134 DTSBE713 00135 05 WRK-PARM-MSTR-UPDATE-IND PIC X(01). DTSBE713 00136 88 WRK-PARM-MSTR-UPDATE-YES-88 VALUE 'Y'. DTSBE713 00137 88 WRK-PARM-MSTR-UPDATE-NO-88 VALUE 'N'. DTSBE713 00138 SKIP3 DTSBE713 00139 05 WRK-PERIOD-START-DATE PIC S9(09) COMP-3. DTSBE713 00140 DTSBE713 00141 05 WRK-PERIOD-END-DATE PIC S9(09) COMP-3. DTSBE713 00142 SKIP3 DTSBE713 00143 05 WRK-ZERO-TOT-WAGE-START-YRQ DTSBE713 00144 PIC S9(05) COMP-3. DTSBE713 00145 05 WRK-ZERO-TOT-WAGE-END-YRQ PIC S9(05) COMP-3. DTSBE713 00146 SKIP3 DTSBE713 00147 05 WRK-DEL-NOTICE-YRQ PIC S9(05) COMP-3. DTSBE713 00148 DTSBE713 00149 05 WRK-DEL-NOTICE-DATE PIC S9(09) COMP-3. DTSBE713 00150 DTSBE713 00151 05 WRK-DEL-NOTICE-MINUS-ONE-YRQ DTSBE713 00152 PIC S9(05) COMP-3. DTSBE713 00153 DTSBE713 00154 05 WRK-ITEM13-YRQ-CNT PIC S9(07) COMP-3. DTSBE713 00155 SKIP3 DTSBE713 00156 05 WRK-CON-RECVBL-BEG-PERIOD PIC S9(11)V9(02) COMP-3. DTSBE713 00157 DTSBE713 00158 05 WRK-REIMB-RECVBL-BEG-PERIOD PIC S9(11)V9(02) COMP-3. DTSBE713 00159 DTSBE713 00160 05 WRK-RECVBL-9-MOS-YRQ PIC S9(05) COMP-3. DTSBE713 00161 DTSBE713 00162 05 WRK-RECVBL-12-MOS-YRQ PIC S9(05) COMP-3. DTSBE713 00163 DTSBE713 00164 05 WRK-RECVBL-15-MOS-YRQ PIC S9(05) COMP-3. DTSBE713 00165 DTSBE713 00166 05 WRK-REMOVED-YRQ-1 PIC S9(05) COMP-3. DTSBE713 00167 DTSBE713 00168 05 WRK-REMOVED-YRQ-2 PIC S9(05) COMP-3. DTSBE713 00169 SKIP3 DTSBE713 00170 05 WRK-PERIOD-START-ABSTIME PIC S9(15) COMP-3. DTSBE713 00171 SKIP3 DTSBE713 00172 05 WRK-ACTIVE-DURING-PERIOD-IND DTSBE713 00173 PIC X(01). DTSBE713 00174 DTSBE713 00175 05 WRK-ALL-ZERO-TOT-WAGE-IND PIC X(01). DTSBE713 00176 88 WRK-ALL-ZERO-TOT-WAGE-YES-88 VALUE 'Y'. DTSBE713 00177 88 WRK-ALL-ZERO-TOT-WAGE-NO-88 VALUE 'N'. DTSBE713 00178 DTSBE713 00179 05 WRK-ENTRY-JUL-ABS-DAY PIC S9(08) COMP. DTSBE713 00180 DTSBE713 00181 05 WRK-TIME-LAPSE-DAYS PIC S9(08) COMP. DTSBE713 00182 SKIP3 DTSBE713 00183 05 WRK-ORIG-RPT-RECEIVED-DATE PIC S9(09) COMP-3. DTSBE713 00184 SKIP3 DTSBE713 00185 05 WRK-TOT-UI-BALANCE-OVERDUE PIC S9(09)V9(02) COMP-3. DTSBE713 00186 SKIP3 DTSBE713 00187 05 WRK-QTR-MAX PIC S9(04) COMP VALUE +400.DTSBE713 00188 DTSBE713 00189 05 WRK-QTR-SUB PIC S9(04) COMP. DTSBE713 00190 DTSBE713 00191 05 WRK-QTR-CNT PIC S9(04) COMP. DTSBE713 00192 DTSBE713 00193 05 WRK-QTR-AREA OCCURS 400 TIMES DTSBE713 00194 INDEXED BY WRK-QTR-IDX. DTSBE713 00195 10 WRK-QTR-YRQ PIC S9(05) COMP-3. DTSBE713 00196 10 WRK-QTR-PREV-REMOVED-IND PIC X(01). DTSBE713 00197 88 WRK-QTR-PREV-REMOVED-YES-88 VALUE 'Y'. DTSBE713 00198 88 WRK-QTR-PREV-REMOVED-NO-88 VALUE 'N'. DTSBE713 00199 10 WRK-QTR-PREV-UNCOLLECT-IND PIC X(01). DTSBE713 00200 88 WRK-QTR-PREV-UNCOLLECT-YES-88 VALUE 'Y'. DTSBE713 00201 88 WRK-QTR-PREV-UNCOLLECT-NO-88 VALUE 'N'. DTSBE713 00202 10 WRK-QTR-TAX-DUE-DATE PIC S9(09) COMP-3. DTSBE713 00203 DTSBE713 00204 05 WRK-QTR-UI-BALANCE-AMT PIC S9(09)V9(02) COMP-3. DTSBE713 00205 DTSBE713 00206 05 WRK-QTR-UI-WRITTEN-OFF-AMT PIC S9(09)V9(02) COMP-3. CL**4 00207 DTSBE713 00208 05 WRK-MJRN-YRQ PIC S9(05) COMP-3. DTSBE713 00209 SKIP3 DTSBE713 00210 05 WRK-CHANGE-AUDIT-IND PIC X(01). DTSBE713 00211 DTSBE713 00212 05 DISPLAY-AMT-X PIC X(15). DTSBE713 00213 05 DISPLAY-AMT REDEFINES DISPLAY-AMT-X DTSBE713 00214 PIC ZZZ,ZZZ,ZZ9.99-. DTSBE713 00215 EJECT DTSBE713 00216 01 L001-LINK-AREA. DTSBE713 00217 ++INCLUDE DTSIL001 CL**2 00218 EJECT DTSBE713 00219 01 L004-LINK-AREA. DTSBE713 00220 ++INCLUDE DTSIL004 CL**2 00221 EJECT DTSBE713 00222 01 L005-LINK-AREA. DTSBE713 00223 ++INCLUDE DTSIL005 CL**2 00224 EJECT DTSBE713 00225 01 L910-LINK-AREA. DTSBE713 00226 ++INCLUDE DTSIL910 CL**2 00227 SKIP3 DTSBE713 00228 01 MSKL-REC. DTSBE713 00229 ++INCLUDE DTSIMSKL CL**2 00230 SKIP3 DTSBE713 00231 01 MSOL-REC. DTSBE713 00232 ++INCLUDE DTSIMSOL CL**2 00233 SKIP3 DTSBE713 00234 01 MERD-REC. DTSBE713 00235 ++INCLUDE DTSIMERD CL**2 00236 SKIP3 DTSBE713 00237 01 MQTR-REC. DTSBE713 00238 ++INCLUDE DTSIMQTR CL**2 00239 SKIP3 DTSBE713 00240 01 MRPT-REC. DTSBE713 00241 ++INCLUDE DTSIMRPT CL**2 00242 SKIP3 DTSBE713 00243 01 MJRN-REC. DTSBE713 00244 ++INCLUDE DTSIMJRN CL**2 00245 SKIP3 DTSBE713 00246 01 MFAS-REC. DTSBE713 00247 ++INCLUDE DTSIMFAS CL**2 00248 SKIP3 DTSBE713 00249 01 MAUR-REC. DTSBE713 00250 ++INCLUDE DTSIMAUR CL**2 00251 SKIP3 DTSBE713 00252 01 MAUY-REC. DTSBE713 00253 ++INCLUDE DTSIMAUY CL**2 00254 EJECT DTSBE713 00255 01 L931-LINK-AREA. DTSBE713 00256 ++INCLUDE DTSIL931 CL**2 00257 SKIP3 DTSBE713 00258 01 FSKL-REC. DTSBE713 00259 ++INCLUDE DTSIFSKL CL**2 00260 SKIP3 DTSBE713 00261 01 F581-REC. DTSBE713 00262 ++INCLUDE DTSIF581 CL**2 00263 SKIP3 DTSBE713 00264 01 FQTR-REC. DTSBE713 00265 ++INCLUDE DTSIFQTR CL**2 00266 EJECT DTSBE713 00267 01 R713-REC. DTSBE713 00268 ++INCLUDE DTSIR713 CL**2 00269 EJECT DTSBE713 00270 01 MMAX-LITERALS. DTSBE713 00271 ++INCLUDE DTSIMMAX CL**2 00272 EJECT DTSBE713 00273 LINKAGE SECTION. DTSBE713 00274 SKIP3 DTSBE713 00275 01 LECM-LINK-AREA. DTSBE713 00276 ++INCLUDE DTSILECM CL**2 00277 SKIP3 DTSBE713 00278 10 FILLER REDEFINES LECM-EXTRACT-PARMS. DTSBE713 00279 15 LECM-PARM-SUBJECT-YRQ PIC X(03). DTSBE713 00280 15 FILLER PIC X(01). DTSBE713 00281 15 LECM-PARM-EST-AVG-DUE PIC X(05). DTSBE713 00282 15 LECM-PARM-EST-AVG-DUE-9 DTSBE713 00283 REDEFINES LECM-PARM-EST-AVG-DUE DTSBE713 00284 PIC 9(05). DTSBE713 00285 15 FILLER PIC X(01). DTSBE713 00286 15 LECM-PARM-TIMING-EDITS-IND PIC X(01). DTSBE713 00287 15 FILLER PIC X(01). DTSBE713 00288 15 LECM-PARM-MSTR-UPDATE-IND PIC X(01). DTSBE713 00289 15 FILLER PIC X(55). DTSBE713 00290 EJECT DTSBE713 00291 01 MPRF-LINK-REC. DTSBE713 00292 ++INCLUDE DTSIMPRF CL**2 00293 EJECT DTSBE713 00294 PROCEDURE DIVISION USING LECM-LINK-AREA DTSBE713 00295 MPRF-LINK-REC. DTSBE713 00296 SKIP2 DTSBE713 00297 MOVE LENGTH OF R713-REC TO R713-LENGTH. CL**4 00298 MOVE '713' TO R713-REC-TYPE. CL**4 00299 IF LECM-PROCESS-88 DTSBE713 00300 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBE713 00301 ELSE DTSBE713 00302 IF LECM-INITIALIZE-88 DTSBE713 00303 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBE713 00304 ELSE DTSBE713 00305 IF LECM-TERMINATE-88 DTSBE713 00306 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBE713 00307 ELSE DTSBE713 00308 MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED' DTSBE713 00309 TO ABEND-MSG DTSBE713 00310 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713 00311 SKIP2 DTSBE713 00312 GOBACK. DTSBE713 00313 EJECT DTSBE713 00314 I0000-INITIALIZE. DTSBE713 00315 SKIP2 DTSBE713 00316 MOVE LECM-TRACE-IND TO L910-TRACE-IND DTSBE713 00317 L931-TRACE-IND. DTSBE713 00318 MOVE WRK-MOD-NAME TO L910-MOD-NAME DTSBE713 00319 L931-MOD-NAME. DTSBE713 00320 DTSBE713 00321 PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT. DTSBE713 00322 DTSBE713 00323 PERFORM I2100-PERIOD-DATES THRU I2100-EXIT. DTSBE713 00324 DTSBE713 00325 IF WRK-PARM-TIMING-EDITS-YES-88 DTSBE713 00326 PERFORM I2200-TIMING-EDITS THRU I2200-EXIT. DTSBE713 00327 DTSBE713 00328 PERFORM I2300-DEL-NOTICE-INFO THRU I2300-EXIT. DTSBE713 00329 DTSBE713 00330 PERFORM I2400-ZERO-TOT-WAGE-YRQS THRU I2400-EXIT. DTSBE713 00331 DTSBE713 00332 MOVE +0 TO WRK-ITEM13-YRQ-CNT. DTSBE713 00333 DTSBE713 00334 PERFORM I2700-PERIOD-START-ABSTIME THRU I2700-EXIT. DTSBE713 00335 DTSBE713 00336 PERFORM I2800-RECVBL-YRQS THRU I2800-EXIT. DTSBE713 00337 DTSBE713 00338 PERFORM I2900-BEG-PERIOD-RECEIVABLES THRU I2900-EXIT. DTSBE713 00339 DTSBE713 00340 PERFORM I3100-INITIALIZE-F581 THRU I3100-EXIT. DTSBE713 00341 DTSBE713 00342 PERFORM I4100-DISPLAY THRU I4100-EXIT. DTSBE713 00343 DTSBE713 00344 IF WRK-PARM-MSTR-UPDATE-YES-88 DTSBE713 00345 SET LECM-MST-OPEN-UPDATE-88 TO TRUE DTSBE713 00346 ELSE DTSBE713 00347 SET LECM-MST-OPEN-READ-88 TO TRUE. DTSBE713 00348 DTSBE713 00349 SET LECM-REF-OPEN-UPDATE-88 TO TRUE. DTSBE713 00350 SKIP2 DTSBE713 00351 I0000-EXIT. DTSBE713 00352 EXIT. DTSBE713 00353 EJECT DTSBE713 00354 I1000-EDIT-AND-DEFAULT-PARMS. DTSBE713 00355 PERFORM I1100-SUBJECT-YRQ THRU I1100-EXIT. DTSBE713 00356 DTSBE713 00357 PERFORM I1200-EST-AVG-DUE THRU I1200-EXIT. DTSBE713 00358 DTSBE713 00359 PERFORM I1300-TIMING-EDITS-IND THRU I1300-EXIT. DTSBE713 00360 DTSBE713 00361 PERFORM I1400-MSTR-UPDATE-IND THRU I1400-EXIT. DTSBE713 00362 I1000-EXIT. DTSBE713 00363 EXIT. DTSBE713 00364 SKIP3 DTSBE713 00365 I1100-SUBJECT-YRQ. DTSBE713 00366 IF LECM-PARM-SUBJECT-YRQ = SPACES DTSBE713 00367 IF LECM-QTR-END DTSBE713 00368 MOVE LECM-PERIOD-END-DATE TO L004-DATE DTSBE713 00369 PERFORM S004-FROM-DATE THRU S004-EXIT DTSBE713 00370 MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ DTSBE713 00371 ELSE DTSBE713 00372 MOVE 'LECM-PARM-SUBJECT-YRQ SPACES AND NOT LECM-QTR-END' DTSBE713 00373 TO ABEND-MSG DTSBE713 00374 PERFORM S999-ABEND THRU S999-EXIT DTSBE713 00375 ELSE DTSBE713 00376 MOVE LECM-PARM-SUBJECT-YRQ TO L004-QTR-3-X DTSBE713 00377 PERFORM S004-FROM-3 THRU S004-EXIT DTSBE713 00378 IF L004-INVALID-QTR DTSBE713 00379 MOVE 'LECM-PARM-SUBJECT-YRQ NOT VALID' DTSBE713 00380 TO ABEND-MSG DTSBE713 00381 PERFORM S999-ABEND THRU S999-EXIT DTSBE713 00382 ELSE DTSBE713 00383 MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ. DTSBE713 00384 I1100-EXIT. DTSBE713 00385 EXIT. DTSBE713 00386 SKIP3 DTSBE713 00387 I1200-EST-AVG-DUE. DTSBE713 00388 IF LECM-PARM-EST-AVG-DUE = SPACES DTSBE713 00389 MOVE +157.20 TO WRK-PARM-EST-AVG-DUE DTSBE713 00390 ELSE DTSBE713 00391 IF LECM-PARM-EST-AVG-DUE NUMERIC DTSBE713 00392 MOVE LECM-PARM-EST-AVG-DUE-9 DTSBE713 00393 TO WRK-PARM-EST-AVG-DUE DTSBE713 00394 ELSE DTSBE713 00395 MOVE 'LECM-PARM-EST-AVG-DUE NOT NUMERIC' DTSBE713 00396 TO ABEND-MSG DTSBE713 00397 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713 00398 I1200-EXIT. DTSBE713 00399 EXIT. DTSBE713 00400 SKIP3 DTSBE713 00401 I1300-TIMING-EDITS-IND. DTSBE713 00402 IF LECM-PARM-TIMING-EDITS-IND = SPACES DTSBE713 00403 SET WRK-PARM-TIMING-EDITS-YES-88 TO TRUE DTSBE713 00404 ELSE DTSBE713 00405 IF LECM-PARM-TIMING-EDITS-IND = 'Y' OR 'N' DTSBE713 00406 MOVE LECM-PARM-TIMING-EDITS-IND DTSBE713 00407 TO WRK-PARM-TIMING-EDITS-IND DTSBE713 00408 ELSE DTSBE713 00409 MOVE 'LECM-PARM-TIMING-EDITS-IND NOT VALID' DTSBE713 00410 TO ABEND-MSG DTSBE713 00411 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713 00412 I1300-EXIT. DTSBE713 00413 EXIT. DTSBE713 00414 SKIP3 DTSBE713 00415 I1400-MSTR-UPDATE-IND. DTSBE713 00416 IF LECM-PARM-MSTR-UPDATE-IND = SPACES DTSBE713 00417 SET WRK-PARM-MSTR-UPDATE-YES-88 TO TRUE DTSBE713 00418 ELSE DTSBE713 00419 IF LECM-PARM-MSTR-UPDATE-IND = 'Y' OR 'N' DTSBE713 00420 MOVE LECM-PARM-MSTR-UPDATE-IND DTSBE713 00421 TO WRK-PARM-MSTR-UPDATE-IND DTSBE713 00422 ELSE DTSBE713 00423 MOVE 'LECM-PARM-MSTR-UPDATE-IND NO VALID' DTSBE713 00424 TO ABEND-MSG DTSBE713 00425 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713 00426 I1400-EXIT. DTSBE713 00427 EXIT. DTSBE713 00428 EJECT DTSBE713 00429 I2100-PERIOD-DATES. DTSBE713 00430 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9. DTSBE713 00431 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE713 00432 MOVE L004-QTR-START-DATE TO WRK-PERIOD-START-DATE. DTSBE713 00433 MOVE L004-QTR-END-DATE TO WRK-PERIOD-END-DATE. DTSBE713 00434 DTSBE713 00435 IF WRK-PERIOD-START-DATE > LECM-LAST-MJRN-PURGE-DATE DTSBE713 00436 NEXT SENTENCE DTSBE713 00437 ELSE DTSBE713 00438 MOVE DTSBE713 00439 'PERIOD-START-DATE NOT GREATER THAN LAST-MJRN-PURGE-DATE' DTSBE713 00440 TO ABEND-MSG DTSBE713 00441 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713 00442 I2100-EXIT. DTSBE713 00443 EXIT. DTSBE713 00444 EJECT DTSBE713 00445 I2200-TIMING-EDITS. DTSBE713 00446 IF (LECM-PRIOR-RUN-DATE NOT > WRK-PERIOD-END-DATE) DTSBE713 00447 AND DTSBE713 00448 (LECM-CURR-RUN-DATE > WRK-PERIOD-END-DATE) DTSBE713 00449 NEXT SENTENCE DTSBE713 00450 ELSE DTSBE713 00451 MOVE 'TIMING OF RUN IS NOT VALID' DTSBE713 00452 TO ABEND-MSG DTSBE713 00453 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713 00454 I2200-EXIT. DTSBE713 00455 EXIT. DTSBE713 00456 EJECT DTSBE713 00457 I2300-DEL-NOTICE-INFO. DTSBE713 00458 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9. DTSBE713 00459 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE713 00460 SUBTRACT 1 FROM L004-ABS-QTR. DTSBE713 00461 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713 00462 IF L004-QTR-5-9 > LECM-LAST-UC30-DEL-MAIL-YRQ CL**5 00463 MOVE LECM-LAST-UC30-DEL-MAIL-YRQ TO WRK-DEL-NOTICE-YRQ CL**5 00464 ELSE DTSBE713 00465 MOVE L004-QTR-5-9 TO WRK-DEL-NOTICE-YRQ. DTSBE713 00466 DTSBE713 00467 MOVE WRK-DEL-NOTICE-YRQ TO L004-QTR-5-9. DTSBE713 00468 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE713 00469 SUBTRACT 1 FROM L004-ABS-QTR. DTSBE713 00470 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713 00471 MOVE L004-QTR-5-9 TO WRK-DEL-NOTICE-MINUS-ONE-YRQ. DTSBE713 00472 DTSBE713 00473 MOVE LOW-VALUES TO FQTR-KEY-AREA. DTSBE713 00474 SET FQTR-QTR-88 TO TRUE. DTSBE713 00475 MOVE WRK-DEL-NOTICE-YRQ TO FQTR-YRQ. DTSBE713 00476 MOVE FQTR-KEY-AREA TO FSKL-KEY-AREA. DTSBE713 00477 PERFORM S931-READ THRU S931-EXIT. DTSBE713 00478 IF L931-NO-REC-88 DTSBE713 00479 MOVE 'DEL-NOTICE-YRQ FQTR RECORD NOT FOUND' DTSBE713 00480 TO ABEND-MSG DTSBE713 00481 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713 00482 DTSBE713 00483 MOVE FSKL-REC TO FQTR-REC. DTSBE713 00484 DTSBE713 00485 IF FQTR-UC30-FIRST-DEL-DATE = +0 CL**5 00486 MOVE 'WRK-DEL-NOTICE-DATE NOT FOUND' DTSBE713 00487 TO ABEND-MSG DTSBE713 00488 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713 00489 DTSBE713 00490 MOVE FQTR-UC30-FIRST-DEL-DATE TO WRK-DEL-NOTICE-DATE. CL**5 00491 I2300-EXIT. DTSBE713 00492 EXIT. DTSBE713 00493 EJECT DTSBE713 00494 I2400-ZERO-TOT-WAGE-YRQS. DTSBE713 00495 MOVE WRK-DEL-NOTICE-YRQ TO L004-QTR-5-9. DTSBE713 00496 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE713 00497 MOVE L004-QTR-5-9 TO WRK-ZERO-TOT-WAGE-END-YRQ. DTSBE713 00498 SUBTRACT 7 FROM L004-ABS-QTR. DTSBE713 00499 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713 00500 MOVE L004-QTR-5-9 TO WRK-ZERO-TOT-WAGE-START-YRQ. DTSBE713 00501 I2400-EXIT. DTSBE713 00502 EXIT. DTSBE713 00503 EJECT DTSBE713 00504 I2700-PERIOD-START-ABSTIME. DTSBE713 00505 MOVE WRK-PERIOD-START-DATE TO L001-FED-8-DATE-9. DTSBE713 00506 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBE713 00507 SUBTRACT 7 FROM L001-JUL-ABS-DAY. DTSBE713 00508 PERFORM S001-FROM-ABS-DAY THRU S001-EXIT. DTSBE713 00509 MOVE L001-FED-8-DATE-9 TO L005-DATE. DTSBE713 00510 MOVE +0 TO L005-TIME. DTSBE713 00511 PERFORM S005-FROM-DATE-TIME THRU S005-EXIT. DTSBE713 00512 MOVE L005-ABSTIME TO WRK-PERIOD-START-ABSTIME. DTSBE713 00513 I2700-EXIT. DTSBE713 00514 EXIT. DTSBE713 00515 EJECT DTSBE713 00516 I2800-RECVBL-YRQS. DTSBE713 00517 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9. DTSBE713 00518 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE713 00519 SUBTRACT 3 FROM L004-ABS-QTR. DTSBE713 00520 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713 00521 MOVE L004-QTR-5-9 TO WRK-RECVBL-9-MOS-YRQ. DTSBE713 00522 SUBTRACT 1 FROM L004-ABS-QTR. DTSBE713 00523 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713 00524 MOVE L004-QTR-5-9 TO WRK-RECVBL-12-MOS-YRQ. DTSBE713 00525 SUBTRACT 1 FROM L004-ABS-QTR. DTSBE713 00526 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713 00527 MOVE L004-QTR-5-9 TO WRK-RECVBL-15-MOS-YRQ. DTSBE713 00528 DTSBE713 00529 ***** DTSBE713 00530 * DTSBE713 00531 * LYNNETTE STERN STATES THAT PER A PHONE CONVERSATION WITH DTSBE713 00532 * GAIL EULIENSTIEN "THE FIRST QUARTER YOU SHOULD SHOW DTSBE713 00533 * ANYTHING IN ITEMS 25 AND 37 IS THE QUARTER ENDING 9/30/95". DTSBE713 00534 * DTSBE713 00535 * THIS CONFLICTS WITH THE ITEM 25 INSTRUCTIONS, BUT DTSBE713 00536 * LYNNETTE SAYS TO GO WITH THE PHONE CONVERSATION. DTSBE713 00537 * DTSBE713 00538 * THUS, THE TWO GOOFY IF STATEMENTS BELOW. DTSBE713 00539 * DTSBE713 00540 ***** DTSBE713 00541 DTSBE713 00542 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9. DTSBE713 00543 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE713 00544 SUBTRACT 1 FROM L004-ABS-QTR. DTSBE713 00545 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713 00546 IF L004-QTR-5-9 < 19951 DTSBE713 00547 MOVE ALL-NINES-YRQ TO WRK-REMOVED-YRQ-1 DTSBE713 00548 ELSE DTSBE713 00549 MOVE L004-QTR-5-9 TO WRK-REMOVED-YRQ-1. DTSBE713 00550 DTSBE713 00551 SUBTRACT 1 FROM L004-ABS-QTR. DTSBE713 00552 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713 00553 IF L004-QTR-5-9 < 19951 DTSBE713 00554 MOVE ALL-NINES-YRQ TO WRK-REMOVED-YRQ-2 DTSBE713 00555 ELSE DTSBE713 00556 MOVE L004-QTR-5-9 TO WRK-REMOVED-YRQ-2. DTSBE713 00557 I2800-EXIT. DTSBE713 00558 EXIT. DTSBE713 00559 EJECT DTSBE713 00560 I2900-BEG-PERIOD-RECEIVABLES. DTSBE713 00561 MOVE WRK-PARM-SUBJECT-YRQ TO L004-QTR-5-9. DTSBE713 00562 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE713 00563 SUBTRACT 1 FROM L004-ABS-QTR. DTSBE713 00564 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713 00565 DTSBE713 00566 MOVE LOW-VALUES TO F581-KEY-AREA. DTSBE713 00567 SET F581-581-88 TO TRUE. DTSBE713 00568 MOVE L004-QTR-5-9 TO F581-YRQ. DTSBE713 00569 MOVE F581-KEY-AREA TO FSKL-KEY-AREA. DTSBE713 00570 PERFORM S931-READ THRU S931-EXIT. DTSBE713 00571 IF L931-NO-REC-88 DTSBE713 00572 MOVE DTSBE713 00573 'PRIOR PERIOD END PERIOD RECEIVABLE AMOUNTS NOT AVAILABLE' DTSBE713 00574 TO ABEND-MSG DTSBE713 00575 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713 00576 MOVE FSKL-REC TO F581-REC. DTSBE713 00577 MOVE F581-CON-RECVBL-END-PERIOD DTSBE713 00578 TO WRK-CON-RECVBL-BEG-PERIOD. DTSBE713 00579 MOVE F581-REIMB-RECVBL-END-PERIOD DTSBE713 00580 TO WRK-REIMB-RECVBL-BEG-PERIOD. DTSBE713 00581 I2900-EXIT. DTSBE713 00582 EXIT. DTSBE713 00583 EJECT DTSBE713 00584 I3100-INITIALIZE-F581. DTSBE713 00585 MOVE LOW-VALUES TO F581-KEY-AREA. DTSBE713 00586 SET F581-581-88 TO TRUE. DTSBE713 00587 MOVE WRK-PARM-SUBJECT-YRQ TO F581-YRQ. DTSBE713 00588 MOVE F581-KEY-AREA TO FSKL-KEY-AREA. DTSBE713 00589 PERFORM S931-READ THRU S931-EXIT. DTSBE713 00590 IF L931-NO-REC-88 DTSBE713 00591 MOVE LECM-CURR-RUN-DATE TO L001-FED-8-DATE-9 DTSBE713 00592 ELSE DTSBE713 00593 MOVE FSKL-REC TO F581-REC DTSBE713 00594 MOVE F581-ESTB-DATE TO L001-FED-8-DATE-9. DTSBE713 00595 MOVE LOW-VALUES TO F581-REC. DTSBE713 00596 SET F581-581-88 TO TRUE. DTSBE713 00597 MOVE WRK-PARM-SUBJECT-YRQ TO F581-YRQ. DTSBE713 00598 INITIALIZE F581-DATA-AREA. DTSBE713 00599 MOVE L001-FED-8-DATE-9 TO F581-ESTB-DATE. DTSBE713 00600 MOVE LECM-CURR-RUN-DATE TO F581-CHNG-DATE. DTSBE713 00601 I3100-EXIT. DTSBE713 00602 EXIT. DTSBE713 00603 EJECT DTSBE713 00604 I4100-DISPLAY. DTSBE713 00605 DISPLAY ' WRK-PARM-SUBJECT-YRQ: ' DTSBE713 00606 WRK-PARM-SUBJECT-YRQ. DTSBE713 00607 DISPLAY ' WRK-PARM-EST-AVG-DUE: ' DTSBE713 00608 WRK-PARM-EST-AVG-DUE. DTSBE713 00609 DISPLAY ' WRK-PARM-TIMING-EDITS-IND: ' DTSBE713 00610 WRK-PARM-TIMING-EDITS-IND. DTSBE713 00611 DISPLAY ' WRK-PARM-MSTR-UPDATE-IND: ' DTSBE713 00612 WRK-PARM-MSTR-UPDATE-IND. DTSBE713 00613 DISPLAY ' WRK-PERIOD-START-DATE: ' DTSBE713 00614 WRK-PERIOD-START-DATE. DTSBE713 00615 DISPLAY ' WRK-PERIOD-END-DATE: ' DTSBE713 00616 WRK-PERIOD-END-DATE. DTSBE713 00617 DISPLAY ' WRK-ZERO-TOT-WAGE-START-YRQ: ' DTSBE713 00618 WRK-ZERO-TOT-WAGE-START-YRQ. DTSBE713 00619 DISPLAY ' WRK-ZERO-TOT-WAGE-END-YRQ: ' DTSBE713 00620 WRK-ZERO-TOT-WAGE-END-YRQ. DTSBE713 00621 DISPLAY ' WRK-DEL-NOTICE-YRQ: ' DTSBE713 00622 WRK-DEL-NOTICE-YRQ. DTSBE713 00623 DISPLAY ' WRK-DEL-NOTICE-DATE: ' DTSBE713 00624 WRK-DEL-NOTICE-DATE. DTSBE713 00625 DISPLAY ' WRK-DEL-NOTICE-MINUS-ONE-YRQ: ' DTSBE713 00626 WRK-DEL-NOTICE-MINUS-ONE-YRQ. DTSBE713 00627 DISPLAY ' WRK-CON-RECVBL-BEG-PERIOD: ' DTSBE713 00628 WRK-CON-RECVBL-BEG-PERIOD. DTSBE713 00629 DISPLAY ' WRK-REIMB-RECVBL-BEG-PERIOD: ' DTSBE713 00630 WRK-REIMB-RECVBL-BEG-PERIOD. DTSBE713 00631 DISPLAY ' WRK-RECVBL-9-MOS-YRQ: ' DTSBE713 00632 WRK-RECVBL-9-MOS-YRQ. DTSBE713 00633 DISPLAY ' WRK-RECVBL-12-MOS-YRQ: ' DTSBE713 00634 WRK-RECVBL-12-MOS-YRQ. DTSBE713 00635 DISPLAY ' WRK-RECVBL-15-MOS-YRQ: ' DTSBE713 00636 WRK-RECVBL-15-MOS-YRQ. DTSBE713 00637 DISPLAY ' WRK-REMOVED-YRQ-1: ' DTSBE713 00638 WRK-REMOVED-YRQ-1. DTSBE713 00639 DISPLAY ' WRK-REMOVED-YRQ-2: ' DTSBE713 00640 WRK-REMOVED-YRQ-2. DTSBE713 00641 DISPLAY ' WRK-PERIOD-START-ABSTIME: ' DTSBE713 00642 WRK-PERIOD-START-ABSTIME. DTSBE713 00643 I4100-EXIT. DTSBE713 00644 EXIT. DTSBE713 00645 EJECT DTSBE713 00646 P0000-PROCESS. DTSBE713 00647 PERFORM P1000-SUBJECTIVITY THRU P1000-EXIT. DTSBE713 00648 DTSBE713 00649 PERFORM P2000-MISSING-REPORTS THRU P2000-EXIT. DTSBE713 00650 DTSBE713 00651 PERFORM P3000-UI-TAX-RECEIVABLES THRU P3000-EXIT. DTSBE713 00652 DTSBE713 00653 PERFORM P4000-AUDIT-ACTIVITY THRU P4000-EXIT. DTSBE713 00654 P0000-EXIT. DTSBE713 00655 EXIT. DTSBE713 00656 EJECT DTSBE713 00657 P1000-SUBJECTIVITY. DTSBE713 00658 PERFORM P1100-ACTIVE THRU P1100-EXIT. DTSBE713 00659 DTSBE713 00660 MOVE LOW-VALUES TO MERD-KEY-AREA. DTSBE713 00661 MOVE MPRF-EMP-NO TO MERD-EMP-NO. DTSBE713 00662 SET MERD-ERD-88 TO TRUE. DTSBE713 00663 MOVE WRK-PERIOD-START-ABSTIME DTSBE713 00664 TO MERD-ESTB-ABSTIME. DTSBE713 00665 MOVE MERD-KEY-AREA TO MSKL-KEY-AREA. DTSBE713 00666 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE713 00667 PERFORM P1200-SCAN-MERD THRU P1200-EXIT DTSBE713 00668 UNTIL L910-NO-REC-88. DTSBE713 00669 P1000-EXIT. DTSBE713 00670 EXIT. DTSBE713 00671 SKIP3 DTSBE713 00672 P1100-ACTIVE. DTSBE713 00673 IF MPRF-CLASS-SUB-88 DTSBE713 00674 NEXT SENTENCE DTSBE713 00675 ELSE DTSBE713 00676 GO TO P1100-EXIT. DTSBE713 00677 DTSBE713 00678 MOVE 'N' TO WRK-ACTIVE-DURING-PERIOD-IND. DTSBE713 00679 DTSBE713 00680 MOVE LOW-VALUES TO MSOL-KEY-AREA. DTSBE713 00681 MOVE MPRF-EMP-NO TO MSOL-EMP-NO. DTSBE713 00682 SET MSOL-SOL-88 TO TRUE. DTSBE713 00683 MOVE MSOL-KEY-AREA TO MSKL-KEY-AREA. DTSBE713 00684 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE713 00685 PERFORM P1110-SCAN-MSOL THRU P1110-EXIT DTSBE713 00686 UNTIL (L910-NO-REC-88) DTSBE713 00687 OR DTSBE713 00688 (WRK-ACTIVE-DURING-PERIOD-IND = 'Y'). DTSBE713 00689 DTSBE713 00690 IF WRK-ACTIVE-DURING-PERIOD-IND = 'N' DTSBE713 00691 GO TO P1100-EXIT. DTSBE713 00692 DTSBE713 00693 MOVE 'Y' TO WRK-ALL-ZERO-TOT-WAGE-IND. DTSBE713 00694 DTSBE713 00695 MOVE WRK-ZERO-TOT-WAGE-START-YRQ TO L004-QTR-5-9. DTSBE713 00696 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE713 00697 PERFORM P1120-READ-MQTR THRU P1120-EXIT DTSBE713 00698 UNTIL (WRK-ALL-ZERO-TOT-WAGE-IND = 'N') DTSBE713 00699 OR DTSBE713 00700 (L004-QTR-5-9 > WRK-ZERO-TOT-WAGE-END-YRQ). DTSBE713 00701 DTSBE713 00702 IF WRK-ALL-ZERO-TOT-WAGE-IND = 'Y' DTSBE713 00703 GO TO P1100-EXIT. DTSBE713 00704 DTSBE713 00705 IF MPRF-CLASS-SELF-INS-88 CL**6 00706 ADD +1 TO F581-REIMB-EMP-CNT DTSBE713 00707 ELSE DTSBE713 00708 ADD +1 TO F581-CON-EMP-CNT. DTSBE713 00709 P1100-EXIT. DTSBE713 00710 EXIT. DTSBE713 00711 SKIP3 DTSBE713 00712 P1110-SCAN-MSOL. DTSBE713 00713 MOVE MSKL-REC TO MSOL-REC. DTSBE713 00714 DTSBE713 00715 ***** DTSBE713 00716 * DTSBE713 00717 * MONTANA INTERPRETS THE ETA 581 "ACTIVE EMPLOYER" DEFINITION DTSBE713 00718 * AS "ACTIVE ON THE LAST DAY OF THE REPORTING PERIOD". DTSBE713 00719 * DTSBE713 00720 ***** DTSBE713 00721 DTSBE713 00722 IF MSOL-INACT-WITHDRAWN-88 DTSBE713 00723 NEXT SENTENCE DTSBE713 00724 ELSE DTSBE713 00725 IF (MSOL-INACT-DATE < WRK-PERIOD-END-DATE) DTSBE713 00726 OR DTSBE713 00727 (MSOL-LIAB-DATE > WRK-PERIOD-END-DATE) DTSBE713 00728 NEXT SENTENCE DTSBE713 00729 ELSE DTSBE713 00730 MOVE 'Y' TO WRK-ACTIVE-DURING-PERIOD-IND DTSBE713 00731 GO TO P1110-EXIT. DTSBE713 00732 DTSBE713 00733 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE713 00734 P1110-EXIT. DTSBE713 00735 EXIT. DTSBE713 00736 SKIP3 DTSBE713 00737 P1120-READ-MQTR. DTSBE713 00738 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBE713 00739 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBE713 00740 SET MQTR-QTR-88 TO TRUE. DTSBE713 00741 MOVE L004-QTR-5-9 TO MQTR-YRQ. DTSBE713 00742 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBE713 00743 PERFORM S910-READ THRU S910-EXIT. DTSBE713 00744 IF L910-NO-REC-88 DTSBE713 00745 MOVE 'N' TO WRK-ALL-ZERO-TOT-WAGE-IND DTSBE713 00746 GO TO P1120-EXIT. DTSBE713 00747 MOVE MSKL-REC TO MQTR-REC. DTSBE713 00748 IF MQTR-CURR-RCVD-88 DTSBE713 00749 NEXT SENTENCE DTSBE713 00750 ELSE DTSBE713 00751 MOVE 'N' TO WRK-ALL-ZERO-TOT-WAGE-IND DTSBE713 00752 GO TO P1120-EXIT. DTSBE713 00753 IF MQTR-TOT-WAGE = +0 DTSBE713 00754 NEXT SENTENCE DTSBE713 00755 ELSE DTSBE713 00756 MOVE 'N' TO WRK-ALL-ZERO-TOT-WAGE-IND DTSBE713 00757 GO TO P1120-EXIT. DTSBE713 00758 DTSBE713 00759 ADD +1 TO L004-ABS-QTR. DTSBE713 00760 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBE713 00761 P1120-EXIT. DTSBE713 00762 EXIT. DTSBE713 00763 SKIP3 DTSBE713 00764 P1200-SCAN-MERD. DTSBE713 00765 MOVE MSKL-REC TO MERD-REC. DTSBE713 00766 DTSBE713 00767 IF (MERD-ESTB-DATE < WRK-PERIOD-START-DATE) DTSBE713 00768 OR DTSBE713 00769 (MERD-ESTB-DATE > WRK-PERIOD-END-DATE) DTSBE713 00770 NEXT SENTENCE DTSBE713 00771 ELSE DTSBE713 00772 PERFORM P1210-COUNT-MERD THRU P1210-EXIT. DTSBE713 00773 DTSBE713 00774 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE713 00775 P1200-EXIT. DTSBE713 00776 EXIT. DTSBE713 00777 SKIP3 DTSBE713 00778 P1210-COUNT-MERD. DTSBE713 00779 IF MERD-DETER-INACT-88 DTSBE713 00780 ADD +1 TO F581-TERMINATION-CNT DTSBE713 00781 GO TO P1210-EXIT. DTSBE713 00782 DTSBE713 00783 MOVE MERD-ESTB-DATE TO L001-FED-8-DATE-9. DTSBE713 00784 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBE713 00785 MOVE L001-JUL-ABS-DAY TO WRK-ENTRY-JUL-ABS-DAY. DTSBE713 00786 DTSBE713 00787 MOVE MERD-EFFECTIVE-DATE TO L004-DATE. DTSBE713 00788 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBE713 00789 MOVE L004-QTR-END-DATE TO L001-FED-8-DATE-9. DTSBE713 00790 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBE713 00791 DTSBE713 00792 COMPUTE WRK-TIME-LAPSE-DAYS DTSBE713 00793 = WRK-ENTRY-JUL-ABS-DAY - L001-JUL-ABS-DAY. DTSBE713 00794 DTSBE713 00795 IF MERD-DETER-NEW-88 DTSBE713 00796 ADD +1 TO F581-NEW-DETERM-CNT DTSBE713 00797 IF WRK-TIME-LAPSE-DAYS > +180 DTSBE713 00798 NEXT SENTENCE DTSBE713 00799 ELSE DTSBE713 00800 ADD +1 TO F581-NEW-DETERM-T180-CNT DTSBE713 00801 IF WRK-TIME-LAPSE-DAYS > +90 DTSBE713 00802 NEXT SENTENCE DTSBE713 00803 ELSE DTSBE713 00804 ADD +1 TO F581-NEW-DETERM-T90-CNT DTSBE713 00805 ELSE DTSBE713 00806 ADD +1 TO F581-SUC-DETERM-CNT DTSBE713 00807 IF WRK-TIME-LAPSE-DAYS > +180 DTSBE713 00808 NEXT SENTENCE DTSBE713 00809 ELSE DTSBE713 00810 ADD +1 TO F581-SUC-DETERM-T180-CNT DTSBE713 00811 IF WRK-TIME-LAPSE-DAYS > +90 DTSBE713 00812 NEXT SENTENCE DTSBE713 00813 ELSE DTSBE713 00814 ADD +1 TO F581-SUC-DETERM-T90-CNT. DTSBE713 00815 P1210-EXIT. DTSBE713 00816 EXIT. DTSBE713 00817 EJECT DTSBE713 00818 P2000-MISSING-REPORTS. DTSBE713 00819 PERFORM P2100-DEL-NOTICE-YRQ THRU P2100-EXIT. DTSBE713 00820 DTSBE713 00821 PERFORM P2200-DEL-NOTICE-MINUS-ONE-YRQ THRU P2200-EXIT. DTSBE713 00822 DTSBE713 00823 PERFORM P2300-OUTSTDG-QTRS-CNT THRU P2300-EXIT. DTSBE713 00824 P2000-EXIT. DTSBE713 00825 EXIT. DTSBE713 00826 SKIP3 DTSBE713 00827 P2100-DEL-NOTICE-YRQ. DTSBE713 00828 ***** DTSBE713 00829 * DTSBE713 00830 * MONTANA INTERPRETS A "SECURED" REPORT TO BE A REPORT DTSBE713 00831 * RECEIVED FROM THE EMPLOYER. DTSBE713 00832 * DTSBE713 00833 * MONTANA INTERPRETS A "TIMELY" REPORT TO BE A "SECURED" DTSBE713 00834 * REPORT WITH A REPORT RECEIVED DATE LESS THAN OR EQUAL DTSBE713 00835 * TO THE REPORT'S DUE DATE. DTSBE713 00836 * DTSBE713 00837 ***** DTSBE713 00838 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBE713 00839 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBE713 00840 SET MQTR-QTR-88 TO TRUE. DTSBE713 00841 MOVE WRK-DEL-NOTICE-YRQ TO MQTR-YRQ. DTSBE713 00842 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBE713 00843 PERFORM S910-READ THRU S910-EXIT. DTSBE713 00844 IF L910-NO-REC-88 DTSBE713 00845 GO TO P2100-EXIT. DTSBE713 00846 DTSBE713 00847 MOVE MSKL-REC TO MQTR-REC. DTSBE713 00848 DTSBE713 00849 IF MQTR-CURR-RCVD-88 DTSBE713 00850 NEXT SENTENCE DTSBE713 00851 ELSE DTSBE713 00852 GO TO P2100-EXIT. DTSBE713 00853 DTSBE713 00854 IF MPRF-CLASS-SELF-INS-88 CL**6 00855 ADD +1 TO F581-REIMB-SECURED-CNT DTSBE713 00856 ELSE DTSBE713 00857 ADD +1 TO F581-CON-SECURED-CNT. DTSBE713 00858 DTSBE713 00859 MOVE +0 TO WRK-ORIG-RPT-RECEIVED-DATE. DTSBE713 00860 DTSBE713 00861 MOVE LOW-VALUES TO MRPT-KEY-AREA. DTSBE713 00862 MOVE MPRF-EMP-NO TO MRPT-EMP-NO. DTSBE713 00863 SET MRPT-RPT-88 TO TRUE. DTSBE713 00864 MOVE WRK-DEL-NOTICE-YRQ TO MRPT-YRQ. DTSBE713 00865 MOVE MRPT-KEY-AREA TO MSKL-KEY-AREA. DTSBE713 00866 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE713 00867 PERFORM P2110-SCAN-MRPT THRU P2110-EXIT DTSBE713 00868 UNTIL L910-NO-REC-88. DTSBE713 00869 IF (WRK-ORIG-RPT-RECEIVED-DATE = +0) DTSBE713 00870 OR DTSBE713 00871 (WRK-ORIG-RPT-RECEIVED-DATE > MQTR-RPT-DUE-DATE) DTSBE713 00872 GO TO P2100-EXIT. DTSBE713 00873 DTSBE713 00874 IF MPRF-CLASS-SELF-INS-88 CL**6 00875 ADD +1 TO F581-REIMB-TIMELY-CNT DTSBE713 00876 ELSE DTSBE713 00877 ADD +1 TO F581-CON-TIMELY-CNT. DTSBE713 00878 P2100-EXIT. DTSBE713 00879 EXIT. DTSBE713 00880 SKIP3 DTSBE713 00881 P2110-SCAN-MRPT. DTSBE713 00882 MOVE MSKL-REC TO MRPT-REC. DTSBE713 00883 DTSBE713 00884 IF MRPT-YRQ = WRK-DEL-NOTICE-YRQ DTSBE713 00885 NEXT SENTENCE DTSBE713 00886 ELSE DTSBE713 00887 SET L910-NO-REC-88 TO TRUE DTSBE713 00888 GO TO P2110-EXIT. DTSBE713 00889 DTSBE713 00890 IF MRPT-ORIG-88 DTSBE713 00891 MOVE MRPT-RECEIVED-DATE TO WRK-ORIG-RPT-RECEIVED-DATE. DTSBE713 00892 DTSBE713 00893 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE713 00894 P2110-EXIT. DTSBE713 00895 EXIT. DTSBE713 00896 SKIP3 DTSBE713 00897 P2200-DEL-NOTICE-MINUS-ONE-YRQ. DTSBE713 00898 ***** DTSBE713 00899 * DTSBE713 00900 * MONTANA INTERPRETS A "RESOLVED" REPORT TO BE A REPORT DTSBE713 00901 * RECEIVED FROM THE EMPLOYER, A REPORT ESTIMATED BY THE DTSBE713 00902 * DEPARTMENT, OR THE EMPLOYER HAVING BEEN LIABLE AT THE DTSBE713 00903 * MISSING REPORT CUTOFF DATE AND THE EMPLOYER NO LONGER DTSBE713 00904 * LIABLE AT ETA581 RUN TIME. DTSBE713 00905 * DTSBE713 00906 ***** DTSBE713 00907 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBE713 00908 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBE713 00909 SET MQTR-QTR-88 TO TRUE. DTSBE713 00910 MOVE WRK-DEL-NOTICE-MINUS-ONE-YRQ TO MQTR-YRQ. DTSBE713 00911 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBE713 00912 PERFORM S910-READ THRU S910-EXIT. DTSBE713 00913 IF L910-NO-REC-88 DTSBE713 00914 GO TO P2200-EXIT. DTSBE713 00915 DTSBE713 00916 MOVE MSKL-REC TO MQTR-REC. DTSBE713 00917 DTSBE713 00918 IF MQTR-CURR-RCVD-88 OR MQTR-CURR-ESTIM-88 DTSBE713 00919 IF MPRF-CLASS-SELF-INS-88 CL**6 00920 ADD +1 TO F581-REIMB-RESOLVED-CNT DTSBE713 00921 GO TO P2200-EXIT DTSBE713 00922 ELSE DTSBE713 00923 ADD +1 TO F581-CON-RESOLVED-CNT DTSBE713 00924 GO TO P2200-EXIT. DTSBE713 00925 DTSBE713 00926 IF MQTR-MISS-NOT-LIABLE-88 DTSBE713 00927 GO TO P2200-EXIT. DTSBE713 00928 DTSBE713 00929 IF MQTR-CURR-NOT-LIABLE-88 DTSBE713 00930 IF MPRF-CLASS-SELF-INS-88 CL**6 00931 ADD +1 TO F581-REIMB-RESOLVED-CNT DTSBE713 00932 GO TO P2200-EXIT DTSBE713 00933 ELSE DTSBE713 00934 ADD +1 TO F581-CON-RESOLVED-CNT DTSBE713 00935 GO TO P2200-EXIT. DTSBE713 00936 P2200-EXIT. DTSBE713 00937 EXIT. DTSBE713 00938 SKIP3 DTSBE713 00939 P2300-OUTSTDG-QTRS-CNT. DTSBE713 00940 IF MPRF-CLASS-SELF-INS-88 CL**6 00941 GO TO P2300-EXIT. DTSBE713 00942 DTSBE713 00943 IF MPRF-PURSUED-RPT-CNT > +0 DTSBE713 00944 NEXT SENTENCE DTSBE713 00945 ELSE DTSBE713 00946 GO TO P2300-EXIT. DTSBE713 00947 DTSBE713 00948 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBE713 00949 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBE713 00950 SET MQTR-QTR-88 TO TRUE. DTSBE713 00951 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBE713 00952 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE713 00953 PERFORM P2310-SCAN-MQTR THRU P2310-EXIT DTSBE713 00954 UNTIL L910-NO-REC-88. DTSBE713 00955 P2300-EXIT. DTSBE713 00956 EXIT. DTSBE713 00957 SKIP3 DTSBE713 00958 P2310-SCAN-MQTR. DTSBE713 00959 MOVE MSKL-REC TO MQTR-REC. DTSBE713 00960 DTSBE713 00961 IF MQTR-RPT-IS-PURSUED-88 DTSBE713 00962 ADD +1 TO F581-OUTSTDG-QTRS-CNT DTSBE713 00963 IF MQTR-CURR-ESTIM-88 DTSBE713 00964 NEXT SENTENCE DTSBE713 00965 ELSE DTSBE713 00966 ADD +1 TO WRK-ITEM13-YRQ-CNT. DTSBE713 00967 DTSBE713 00968 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE713 00969 P2310-EXIT. DTSBE713 00970 EXIT. DTSBE713 00971 EJECT DTSBE713 00972 P3000-UI-TAX-RECEIVABLES. DTSBE713 00973 MOVE +0 TO WRK-QTR-CNT. DTSBE713 00974 DTSBE713 00975 MOVE +0 TO WRK-TOT-UI-BALANCE-OVERDUE. DTSBE713 00976 DTSBE713 00977 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBE713 00978 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBE713 00979 SET MSKL-QTR-88 TO TRUE. DTSBE713 00980 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE713 00981 PERFORM DTSBE713 00982 UNTIL L910-NO-REC-88 DTSBE713 00983 MOVE MSKL-REC TO MQTR-REC DTSBE713 00984 PERFORM P3100-PROCESS-MQTR THRU P3100-EXIT DTSBE713 00985 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE713 00986 END-PERFORM. DTSBE713 00987 DTSBE713 00988 IF WRK-TOT-UI-BALANCE-OVERDUE > +0 DTSBE713 00989 IF MPRF-CLASS-SELF-INS-88 CL**6 00990 ADD WRK-TOT-UI-BALANCE-OVERDUE DTSBE713 00991 TO F581-REIMB-RECVBL-END-PERIOD DTSBE713 00992 ADD +1 TO F581-REIMB-RECVBL-EMP-CNT DTSBE713 00993 ELSE DTSBE713 00994 ADD WRK-TOT-UI-BALANCE-OVERDUE DTSBE713 00995 TO F581-CON-RECVBL-END-PERIOD DTSBE713 00996 ADD +1 TO F581-CON-RECVBL-EMP-CNT. DTSBE713 00997 DTSBE713 00998 MOVE +0 TO WRK-QTR-SUB. DTSBE713 00999 DTSBE713 01000 MOVE LOW-VALUES TO MJRN-KEY-AREA. DTSBE713 01001 MOVE MPRF-EMP-NO TO MJRN-EMP-NO. DTSBE713 01002 SET MJRN-JRN-88 TO TRUE. DTSBE713 01003 MOVE WRK-PERIOD-START-ABSTIME TO MJRN-ESTB-ABSTIME. DTSBE713 01004 MOVE MJRN-KEY-AREA TO MSKL-KEY-AREA. DTSBE713 01005 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE713 01006 DTSBE713 01007 PERFORM DTSBE713 01008 UNTIL L910-NO-REC-88 DTSBE713 01009 MOVE MSKL-REC TO MJRN-REC DTSBE713 01010 PERFORM P3200-PROCESS-MJRN THRU P3200-EXIT DTSBE713 01011 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE713 01012 END-PERFORM. DTSBE713 01013 P3000-EXIT. DTSBE713 01014 EXIT. DTSBE713 01015 SKIP3 DTSBE713 01016 P3100-PROCESS-MQTR. DTSBE713 01017 ***** CL**8 01018 * CL**8 01019 * FOR ETA581 PURPOSES, IGNORE PICKUP ACTIVITY. CL**8 01020 * CL**8 01021 ***** CL**8 01022 CL**8 01023 IF MQTR-YRQ = LECM-PICKUP-YRQ CL**8 01024 GO TO P3100-EXIT. CL**8 01025 CL**8 01026 CL**8 01027 IF WRK-QTR-CNT < WRK-QTR-MAX DTSBE713 01028 NEXT SENTENCE DTSBE713 01029 ELSE DTSBE713 01030 MOVE 'LOGIC ERROR P3100-1' TO ABEND-MSG DTSBE713 01031 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713 01032 DTSBE713 01033 ADD +1 TO WRK-QTR-CNT. DTSBE713 01034 DTSBE713 01035 MOVE MQTR-YRQ TO WRK-QTR-YRQ (WRK-QTR-CNT). DTSBE713 01036 MOVE MQTR-ETA581-REMOVED-IND DTSBE713 01037 TO WRK-QTR-PREV-REMOVED-IND (WRK-QTR-CNT). DTSBE713 01038 MOVE MQTR-ETA581-UNCOLLECT-IND DTSBE713 01039 TO WRK-QTR-PREV-UNCOLLECT-IND (WRK-QTR-CNT). DTSBE713 01040 MOVE MQTR-TAX-DUE-DATE DTSBE713 01041 TO WRK-QTR-TAX-DUE-DATE (WRK-QTR-CNT). DTSBE713 01042 SKIP3 DTSBE713 01043 ***** DTSBE713 01044 * DTSBE713 01045 * PER THE 06/15/95 ZIP FROM LYNNETTE STERN, MONTANA DTSBE713 01046 * INTERPRETS THE "REMOVED" ITEM AND THE "UNCOLLECTIBLE" DTSBE713 01047 * ITEM INSTRUCTIONS TO MEAN THAT ONCE A BALANCE DUE IN A DTSBE713 01048 * QUARTER HAS BEEN REPORTED ON THE ETA581 AS REMOVED OR DTSBE713 01049 * ONCE A SUSPENDED AMOUNT IN A QUARTER HAS BEEN REPORTED CL**4 01050 * ON THE ETA581 AS UNCOLLECTIBLE, THEN ALL FURTHER DTSBE713 01051 * TRANSACTIONS AGAINST THE QUARTER ARE IGNORED FOR ETA581 DTSBE713 01052 * REPORTING PURPOSES. DTSBE713 01053 * DTSBE713 01054 * THE FOLLOWING CODE ACCOMPLISHES THE MONTANA INTERPERTATION DTSBE713 01055 * OF THE "REMOVED" ITEM AND THE MONTANA INTERPERTATION OF DTSBE713 01056 * THE "UNCOLLECTIBLE" ITEM. DTSBE713 01057 * DTSBE713 01058 ***** DTSBE713 01059 DTSBE713 01060 IF MQTR-ETA581-REMOVED-YES-88 DTSBE713 01061 GO TO P3100-EXIT. DTSBE713 01062 DTSBE713 01063 IF MQTR-ETA581-UNCOLLECT-YES-88 DTSBE713 01064 GO TO P3100-EXIT. DTSBE713 01065 DTSBE713 01066 MOVE +0 TO WRK-QTR-UI-BALANCE-AMT DTSBE713 01067 WRK-QTR-UI-WRITTEN-OFF-AMT. CL**4 01068 DTSBE713 01069 PERFORM DTSBE713 01070 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBE713 01071 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBE713 01072 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBE713 01073 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBE713 01074 TO WRK-QTR-UI-BALANCE-AMT DTSBE713 01075 ADD MQTR-WRITTEN-OFF-AMT (MQTR-ACCT-IDX) CL**4 01076 TO WRK-QTR-UI-WRITTEN-OFF-AMT CL**4 01077 END-IF DTSBE713 01078 END-PERFORM. DTSBE713 01079 DTSBE713 01080 IF WRK-QTR-UI-WRITTEN-OFF-AMT > +0 CL**4 01081 PERFORM P3130-UNCOLLECT THRU P3130-EXIT DTSBE713 01082 GO TO P3100-EXIT. DTSBE713 01083 DTSBE713 01084 IF WRK-QTR-UI-BALANCE-AMT > +0 DTSBE713 01085 NEXT SENTENCE DTSBE713 01086 ELSE DTSBE713 01087 GO TO P3100-EXIT. DTSBE713 01088 DTSBE713 01089 IF (MQTR-ETA581-OVR15MNTH-RPT-CNT = +2) DTSBE713 01090 AND DTSBE713 01091 (MQTR-ETA581-OVR15MNTH-RPT-YRQ (1) DTSBE713 01092 = WRK-REMOVED-YRQ-1 OR WRK-REMOVED-YRQ-2) DTSBE713 01093 AND DTSBE713 01094 (MQTR-ETA581-OVR15MNTH-RPT-YRQ (2) DTSBE713 01095 = WRK-REMOVED-YRQ-1 OR WRK-REMOVED-YRQ-2) DTSBE713 01096 PERFORM P3110-REMOVE-QTR THRU P3110-EXIT DTSBE713 01097 GO TO P3100-EXIT. DTSBE713 01098 DTSBE713 01099 IF MQTR-YRQ < WRK-PARM-SUBJECT-YRQ DTSBE713 01100 NEXT SENTENCE DTSBE713 01101 ELSE DTSBE713 01102 GO TO P3100-EXIT. DTSBE713 01103 DTSBE713 01104 IF MQTR-TAX-DUE-DATE > WRK-PERIOD-END-DATE DTSBE713 01105 GO TO P3100-EXIT. DTSBE713 01106 DTSBE713 01107 IF MPRF-CLASS-SELF-INS-88 CL**6 01108 IF MQTR-YRQ > WRK-RECVBL-9-MOS-YRQ DTSBE713 01109 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713 01110 TO F581-REIMB-RECVBL-6-MOS DTSBE713 01111 ELSE DTSBE713 01112 IF MQTR-YRQ = WRK-RECVBL-9-MOS-YRQ DTSBE713 01113 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713 01114 TO F581-REIMB-RECVBL-9-MOS DTSBE713 01115 ELSE DTSBE713 01116 IF MQTR-YRQ = WRK-RECVBL-12-MOS-YRQ DTSBE713 01117 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713 01118 TO F581-REIMB-RECVBL-12-MOS DTSBE713 01119 ELSE DTSBE713 01120 IF MQTR-YRQ = WRK-RECVBL-15-MOS-YRQ DTSBE713 01121 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713 01122 TO F581-REIMB-RECVBL-15-MOS DTSBE713 01123 ELSE DTSBE713 01124 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713 01125 TO F581-REIMB-RECVBL-OVER15-MOS DTSBE713 01126 PERFORM P3120-OVER15MNTH THRU P3120-EXIT DTSBE713 01127 ELSE DTSBE713 01128 IF MQTR-YRQ > WRK-RECVBL-9-MOS-YRQ DTSBE713 01129 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713 01130 TO F581-CON-RECVBL-6-MOS DTSBE713 01131 ELSE DTSBE713 01132 IF MQTR-YRQ = WRK-RECVBL-9-MOS-YRQ DTSBE713 01133 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713 01134 TO F581-CON-RECVBL-9-MOS DTSBE713 01135 ELSE DTSBE713 01136 IF MQTR-YRQ = WRK-RECVBL-12-MOS-YRQ DTSBE713 01137 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713 01138 TO F581-CON-RECVBL-12-MOS DTSBE713 01139 ELSE DTSBE713 01140 IF MQTR-YRQ = WRK-RECVBL-15-MOS-YRQ DTSBE713 01141 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713 01142 TO F581-CON-RECVBL-15-MOS DTSBE713 01143 ELSE DTSBE713 01144 ADD WRK-QTR-UI-BALANCE-AMT DTSBE713 01145 TO F581-CON-RECVBL-OVER15-MOS DTSBE713 01146 PERFORM P3120-OVER15MNTH THRU P3120-EXIT. DTSBE713 01147 DTSBE713 01148 ADD WRK-QTR-UI-BALANCE-AMT TO WRK-TOT-UI-BALANCE-OVERDUE. DTSBE713 01149 P3100-EXIT. DTSBE713 01150 EXIT. DTSBE713 01151 SKIP3 DTSBE713 01152 P3110-REMOVE-QTR. DTSBE713 01153 IF MPRF-CLASS-SELF-INS-88 CL**6 01154 ADD WRK-QTR-UI-BALANCE-AMT TO F581-REIMB-RECVBL-REMOVED DTSBE713 01155 ELSE DTSBE713 01156 ADD WRK-QTR-UI-BALANCE-AMT TO F581-CON-RECVBL-REMOVED. DTSBE713 01157 DTSBE713 01158 SET MQTR-ETA581-REMOVED-YES-88 TO TRUE. DTSBE713 01159 DTSBE713 01160 PERFORM P3190-REWRITE-MQTR THRU P3190-EXIT. DTSBE713 01161 P3110-EXIT. DTSBE713 01162 EXIT. DTSBE713 01163 SKIP3 DTSBE713 01164 P3120-OVER15MNTH. DTSBE713 01165 IF MQTR-ETA581-OVR15MNTH-RPT-CNT = +0 DTSBE713 01166 MOVE +1 TO MQTR-ETA581-OVR15MNTH-RPT-CNT DTSBE713 01167 MOVE WRK-PARM-SUBJECT-YRQ DTSBE713 01168 TO MQTR-ETA581-OVR15MNTH-RPT-YRQ (1) DTSBE713 01169 PERFORM P3190-REWRITE-MQTR THRU P3190-EXIT DTSBE713 01170 ELSE DTSBE713 01171 IF MQTR-ETA581-OVR15MNTH-RPT-CNT = +1 DTSBE713 01172 IF WRK-PARM-SUBJECT-YRQ DTSBE713 01173 = MQTR-ETA581-OVR15MNTH-RPT-YRQ (1) DTSBE713 01174 NEXT SENTENCE DTSBE713 01175 ELSE DTSBE713 01176 MOVE +2 TO MQTR-ETA581-OVR15MNTH-RPT-CNT DTSBE713 01177 MOVE WRK-PARM-SUBJECT-YRQ DTSBE713 01178 TO MQTR-ETA581-OVR15MNTH-RPT-YRQ (2) DTSBE713 01179 PERFORM P3190-REWRITE-MQTR THRU P3190-EXIT DTSBE713 01180 ELSE DTSBE713 01181 IF WRK-PARM-SUBJECT-YRQ DTSBE713 01182 = MQTR-ETA581-OVR15MNTH-RPT-YRQ (1) DTSBE713 01183 OR MQTR-ETA581-OVR15MNTH-RPT-YRQ (2) DTSBE713 01184 NEXT SENTENCE DTSBE713 01185 ELSE DTSBE713 01186 PERFORM P3121-MOVE-OVR15MNTH-YRQ THRU P3121-EXIT DTSBE713 01187 MOVE +2 TO MQTR-ETA581-OVR15MNTH-RPT-CNT DTSBE713 01188 MOVE WRK-PARM-SUBJECT-YRQ DTSBE713 01189 TO MQTR-ETA581-OVR15MNTH-RPT-YRQ (2) DTSBE713 01190 PERFORM P3190-REWRITE-MQTR THRU P3190-EXIT. DTSBE713 01191 P3120-EXIT. DTSBE713 01192 EXIT. DTSBE713 01193 SKIP3 DTSBE713 01194 P3121-MOVE-OVR15MNTH-YRQ. DTSBE713 01195 IF MQTR-ETA581-OVR15MNTH-RPT-YRQ (1) DTSBE713 01196 < MQTR-ETA581-OVR15MNTH-RPT-YRQ (2) DTSBE713 01197 MOVE MQTR-ETA581-OVR15MNTH-RPT-YRQ (2) DTSBE713 01198 TO MQTR-ETA581-OVR15MNTH-RPT-YRQ (1). DTSBE713 01199 P3121-EXIT. DTSBE713 01200 EXIT. DTSBE713 01201 SKIP3 DTSBE713 01202 P3130-UNCOLLECT. DTSBE713 01203 SET MQTR-ETA581-UNCOLLECT-YES-88 TO TRUE. DTSBE713 01204 DTSBE713 01205 PERFORM P3190-REWRITE-MQTR THRU P3190-EXIT. DTSBE713 01206 DTSBE713 01207 IF MPRF-CLASS-SELF-INS-88 CL**6 01208 ADD WRK-QTR-UI-WRITTEN-OFF-AMT CL**6 01209 TO F581-REIMB-RECVBL-UNCOLLECT CL**6 01210 ELSE DTSBE713 01211 ADD WRK-QTR-UI-WRITTEN-OFF-AMT CL**6 01212 TO F581-CON-RECVBL-UNCOLLECT. CL**7 01213 P3130-EXIT. DTSBE713 01214 EXIT. DTSBE713 01215 SKIP3 DTSBE713 01216 P3190-REWRITE-MQTR. DTSBE713 01217 IF WRK-PARM-MSTR-UPDATE-YES-88 DTSBE713 01218 MOVE LECM-CURR-RUN-DATE TO MQTR-CHNG-DATE DTSBE713 01219 MOVE MQTR-REC TO MSKL-REC DTSBE713 01220 PERFORM S910-REWRITE THRU S910-EXIT. DTSBE713 01221 P3190-EXIT. DTSBE713 01222 EXIT. DTSBE713 01223 SKIP3 DTSBE713 01224 P3200-PROCESS-MJRN. DTSBE713 01225 IF MJRN-TRAN-CNVR-88 DTSBE713 01226 GO TO P3200-EXIT. DTSBE713 01227 DTSBE713 01228 IF (MJRN-ESTB-DATE < WRK-PERIOD-START-DATE) DTSBE713 01229 OR DTSBE713 01230 (MJRN-ESTB-DATE > WRK-PERIOD-END-DATE) DTSBE713 01231 GO TO P3200-EXIT. DTSBE713 01232 DTSBE713 01233 PERFORM P3210-ACCT-GROUP THRU P3210-EXIT DTSBE713 01234 VARYING MJRN-OCC-IDX FROM 1 BY 1 DTSBE713 01235 UNTIL MJRN-OCC-IDX > MJRN-OCC-CNT. DTSBE713 01236 P3200-EXIT. DTSBE713 01237 EXIT. DTSBE713 01238 SKIP3 DTSBE713 01239 P3210-ACCT-GROUP. DTSBE713 01240 IF MJRN-ROW-UI-88 (MJRN-OCC-IDX) DTSBE713 01241 NEXT SENTENCE DTSBE713 01242 ELSE DTSBE713 01243 GO TO P3210-EXIT. DTSBE713 01244 DTSBE713 01245 IF (MJRN-COL-PAID-88 (MJRN-OCC-IDX)) DTSBE713 01246 OR DTSBE713 01247 (MJRN-COL-TOLERATED-88 (MJRN-OCC-IDX)) CL**4 01248 NEXT SENTENCE DTSBE713 01249 ELSE DTSBE713 01250 GO TO P3210-EXIT. DTSBE713 01251 DTSBE713 01252 MOVE MJRN-YRQ (MJRN-OCC-IDX) TO WRK-MJRN-YRQ. DTSBE713 01253 DTSBE713 01254 IF WRK-MJRN-YRQ = LECM-PICKUP-YRQ CL**8 01255 GO TO P3210-EXIT. CL**8 01256 CL**8 01257 IF WRK-MJRN-YRQ < WRK-PARM-SUBJECT-YRQ DTSBE713 01258 NEXT SENTENCE DTSBE713 01259 ELSE DTSBE713 01260 GO TO P3210-EXIT. DTSBE713 01261 DTSBE713 01262 IF (WRK-QTR-SUB = +0) DTSBE713 01263 OR DTSBE713 01264 (WRK-QTR-YRQ (WRK-QTR-SUB) NOT = WRK-MJRN-YRQ) DTSBE713 01265 MOVE +0 TO WRK-QTR-SUB DTSBE713 01266 PERFORM DTSBE713 01267 VARYING WRK-QTR-IDX FROM 1 BY 1 DTSBE713 01268 UNTIL (WRK-QTR-IDX > WRK-QTR-CNT) DTSBE713 01269 OR DTSBE713 01270 (WRK-QTR-SUB NOT = +0) DTSBE713 01271 IF WRK-MJRN-YRQ = WRK-QTR-YRQ (WRK-QTR-IDX) DTSBE713 01272 SET WRK-QTR-SUB TO WRK-QTR-IDX DTSBE713 01273 END-IF DTSBE713 01274 END-PERFORM. DTSBE713 01275 SKIP3 DTSBE713 01276 ***** DTSBE713 01277 * DTSBE713 01278 * FOR INTERPERTATION OF THE FOLLOWING SENTENCE, PLEASE DTSBE713 01279 * SEE THE COMMENT IN P3100. DTSBE713 01280 * DTSBE713 01281 ***** DTSBE713 01282 DTSBE713 01283 IF WRK-QTR-SUB = +0 DTSBE713 01284 NEXT SENTENCE DTSBE713 01285 ELSE DTSBE713 01286 IF (WRK-QTR-PREV-REMOVED-YES-88 (WRK-QTR-SUB)) DTSBE713 01287 OR DTSBE713 01288 (WRK-QTR-PREV-UNCOLLECT-YES-88 (WRK-QTR-SUB)) DTSBE713 01289 GO TO P3210-EXIT. DTSBE713 01290 DTSBE713 01291 ***** DTSBE713 01292 * PER LYNNETTE ON 06/01/95, ONLY AN INCREASE IN PAID AMT DTSBE713 01293 * OR AN INCREASE IN TOLERATED AMT IS TO BE COUNTED IN DTSBE713 01294 * LIQUIDATED. DTSBE713 01295 ***** DTSBE713 01296 IF MJRN-AMT (MJRN-OCC-IDX) > +0 DTSBE713 01297 NEXT SENTENCE DTSBE713 01298 ELSE DTSBE713 01299 GO TO P3210-EXIT. DTSBE713 01300 DTSBE713 01301 IF (WRK-QTR-SUB = +0) DTSBE713 01302 OR DTSBE713 01303 (MJRN-RECEIVED-DATE DTSBE713 01304 > WRK-QTR-TAX-DUE-DATE (WRK-QTR-SUB)) DTSBE713 01305 IF MPRF-CLASS-SELF-INS-88 CL**6 01306 ADD MJRN-AMT (MJRN-OCC-IDX) DTSBE713 01307 TO F581-REIMB-RECVBL-LIQUID DTSBE713 01308 ELSE DTSBE713 01309 ADD MJRN-AMT (MJRN-OCC-IDX) DTSBE713 01310 TO F581-CON-RECVBL-LIQUID. DTSBE713 01311 P3210-EXIT. DTSBE713 01312 EXIT. DTSBE713 01313 EJECT DTSBE713 01314 P4000-AUDIT-ACTIVITY. DTSBE713 01315 IF MPRF-NO-MFAS-88 DTSBE713 01316 GO TO P4000-EXIT. DTSBE713 01317 DTSBE713 01318 MOVE LOW-VALUES TO MFAS-KEY-AREA. DTSBE713 01319 MOVE MPRF-EMP-NO TO MFAS-EMP-NO. DTSBE713 01320 SET MFAS-FAS-88 TO TRUE. DTSBE713 01321 MOVE MFAS-KEY-AREA TO MSKL-KEY-AREA. DTSBE713 01322 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE713 01323 PERFORM P4100-SCAN-MFAS THRU P4100-EXIT DTSBE713 01324 UNTIL L910-NO-REC-88. DTSBE713 01325 P4000-EXIT. DTSBE713 01326 EXIT. DTSBE713 01327 SKIP3 DTSBE713 01328 P4100-SCAN-MFAS. DTSBE713 01329 MOVE MSKL-REC TO MFAS-REC. DTSBE713 01330 DTSBE713 01331 IF (MFAS-PROCESSED-DATE < WRK-PERIOD-START-DATE) DTSBE713 01332 OR DTSBE713 01333 (MFAS-PROCESSED-DATE > WRK-PERIOD-END-DATE) DTSBE713 01334 NEXT SENTENCE DTSBE713 01335 ELSE DTSBE713 01336 PERFORM P4110-AUDIT-RESULTS THRU P4110-EXIT DTSBE713 01337 MOVE MFAS-KEY-AREA TO MSKL-KEY-AREA DTSBE713 01338 PERFORM S910-START-BROWSE THRU S910-EXIT DTSBE713 01339 IF L910-NO-REC-88 DTSBE713 01340 MOVE 'LOGIC ERROR IN P4100' TO ABEND-MSG DTSBE713 01341 PERFORM S999-ABEND THRU S999-EXIT. DTSBE713 01342 DTSBE713 01343 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE713 01344 P4100-EXIT. DTSBE713 01345 EXIT. DTSBE713 01346 SKIP3 DTSBE713 01347 P4110-AUDIT-RESULTS. DTSBE713 01348 MOVE LOW-VALUES TO MAUR-KEY-AREA. DTSBE713 01349 MOVE MPRF-EMP-NO TO MAUR-EMP-NO. DTSBE713 01350 SET MAUR-AUR-88 TO TRUE. DTSBE713 01351 MOVE MFAS-ASSIGN-NO TO MAUR-ASSIGN-NO. DTSBE713 01352 MOVE MAUR-KEY-AREA TO MSKL-KEY-AREA. DTSBE713 01353 PERFORM S910-READ THRU S910-EXIT. DTSBE713 01354 IF L910-NO-REC-88 DTSBE713 01355 GO TO P4110-EXIT. DTSBE713 01356 DTSBE713 01357 MOVE MSKL-REC TO MAUR-REC. DTSBE713 01358 DTSBE713 01359 ADD +1 TO F581-AUDIT-TOT-EMP-CNT. DTSBE713 01360 DTSBE713 01361 IF MAUR-EMP-SIZE-LARGE-88 DTSBE713 01362 ADD +1 TO F581-AUDIT-LARGE-EMP-CNT. DTSBE713 01363 DTSBE713 01364 ADD MAUR-QTRS-AUDITED-CNT TO F581-AUDIT-QTR-CNT. DTSBE713 01365 DTSBE713 01366 ADD MAUR-AUDIT-HRS TO F581-AUDIT-HOURS-CNT. DTSBE713 01367 DTSBE713 01368 ADD MAUR-INDCON-TO-EMPL-CNT CL**9 01369 TO F581-AUDIT-INDCON-TO-EMPL-CNT. CL**9 01370 CL**9 01371 MOVE 'N' TO WRK-CHANGE-AUDIT-IND. DTSBE713 01372 DTSBE713 01373 MOVE LOW-VALUES TO MAUY-KEY-AREA. DTSBE713 01374 MOVE MPRF-EMP-NO TO MAUY-EMP-NO. DTSBE713 01375 SET MAUY-AUY-88 TO TRUE. DTSBE713 01376 MOVE MFAS-ASSIGN-NO TO MAUY-ASSIGN-NO. DTSBE713 01377 MOVE MAUY-KEY-AREA TO MSKL-KEY-AREA. DTSBE713 01378 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE713 01379 PERFORM P4111-SCAN-MAUY THRU P4111-EXIT DTSBE713 01380 UNTIL L910-NO-REC-88. DTSBE713 01381 DTSBE713 01382 IF WRK-CHANGE-AUDIT-IND = 'Y' DTSBE713 01383 ADD +1 TO F581-AUDIT-CHANGE-CNT. DTSBE713 01384 P4110-EXIT. DTSBE713 01385 EXIT. DTSBE713 01386 SKIP3 DTSBE713 01387 P4111-SCAN-MAUY. DTSBE713 01388 MOVE MSKL-REC TO MAUY-REC. DTSBE713 01389 DTSBE713 01390 IF MAUY-ASSIGN-NO = MFAS-ASSIGN-NO DTSBE713 01391 NEXT SENTENCE DTSBE713 01392 ELSE DTSBE713 01393 SET L910-NO-REC-88 TO TRUE DTSBE713 01394 GO TO P4111-EXIT. DTSBE713 01395 DTSBE713 01396 PERFORM P4111A-QTR-LOOP THRU P4111A-EXIT DTSBE713 01397 VARYING MAUY-QTR-IDX FROM 1 BY 1 DTSBE713 01398 UNTIL MAUY-QTR-IDX > MMAX-AUY-QTR-MAX. DTSBE713 01399 DTSBE713 01400 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE713 01401 P4111-EXIT. DTSBE713 01402 EXIT. DTSBE713 01403 SKIP3 DTSBE713 01404 P4111A-QTR-LOOP. DTSBE713 01405 IF MAUY-QTR-NOT-AUDITED-88 (MAUY-QTR-IDX) DTSBE713 01406 GO TO P4111A-EXIT. DTSBE713 01407 DTSBE713 01408 ADD MAUY-QTR-GROSS-PAYROLL (MAUY-QTR-IDX) DTSBE713 01409 TO F581-AUDIT-TOT-WAGES-POST. DTSBE713 01410 DTSBE713 01411 IF (MAUY-QTR-UNDER-TOT-WAGE (MAUY-QTR-IDX) = +0) DTSBE713 01412 AND DTSBE713 01413 (MAUY-QTR-UNDER-TAX-WAGE (MAUY-QTR-IDX) = +0) DTSBE713 01414 AND DTSBE713 01415 (MAUY-QTR-UNDER-CONTRIB (MAUY-QTR-IDX) = +0) DTSBE713 01416 AND DTSBE713 01417 (MAUY-QTR-OVER-TOT-WAGE (MAUY-QTR-IDX) = +0) DTSBE713 01418 AND DTSBE713 01419 (MAUY-QTR-OVER-TAX-WAGE (MAUY-QTR-IDX) = +0) DTSBE713 01420 AND DTSBE713 01421 (MAUY-QTR-OVER-CONTRIB (MAUY-QTR-IDX) = +0) DTSBE713 01422 GO TO P4111A-EXIT. DTSBE713 01423 DTSBE713 01424 MOVE 'Y' TO WRK-CHANGE-AUDIT-IND. DTSBE713 01425 DTSBE713 01426 ADD MAUY-QTR-UNDER-TOT-WAGE (MAUY-QTR-IDX) DTSBE713 01427 TO F581-AUDIT-UNDERRPT-TOT-WAGES. DTSBE713 01428 DTSBE713 01429 ADD MAUY-QTR-UNDER-TAX-WAGE (MAUY-QTR-IDX) DTSBE713 01430 TO F581-AUDIT-UNDERRPT-TAX-WAGES. DTSBE713 01431 DTSBE713 01432 ADD MAUY-QTR-UNDER-CONTRIB (MAUY-QTR-IDX) DTSBE713 01433 TO F581-AUDIT-UNDERRPT-CONTRIB. DTSBE713 01434 DTSBE713 01435 ADD MAUY-QTR-OVER-TOT-WAGE (MAUY-QTR-IDX) DTSBE713 01436 TO F581-AUDIT-OVERRPT-TOT-WAGES. DTSBE713 01437 DTSBE713 01438 ADD MAUY-QTR-OVER-TAX-WAGE (MAUY-QTR-IDX) DTSBE713 01439 TO F581-AUDIT-OVERRPT-TAX-WAGES. DTSBE713 01440 DTSBE713 01441 ADD MAUY-QTR-OVER-CONTRIB (MAUY-QTR-IDX) DTSBE713 01442 TO F581-AUDIT-OVERRPT-CONTRIB. DTSBE713 01443 P4111A-EXIT. DTSBE713 01444 EXIT. DTSBE713 01445 EJECT DTSBE713 01446 T0000-TERMINATE. DTSBE713 01447 MOVE WRK-PERIOD-START-DATE TO F581-PERIOD-BEGIN-DATE. DTSBE713 01448 MOVE WRK-PERIOD-END-DATE TO F581-PERIOD-END-DATE. DTSBE713 01449 DTSBE713 01450 ADD F581-CON-EMP-CNT DTSBE713 01451 F581-REIMB-EMP-CNT DTSBE713 01452 GIVING F581-TOTAL-EMP-CNT. DTSBE713 01453 DTSBE713 01454 MOVE WRK-DEL-NOTICE-DATE TO F581-DEL-CUTOFF-DATE. DTSBE713 01455 DTSBE713 01456 COMPUTE F581-EST-UI-DUE-AMT DTSBE713 01457 = WRK-PARM-EST-AVG-DUE * WRK-ITEM13-YRQ-CNT. DTSBE713 01458 DTSBE713 01459 MOVE WRK-CON-RECVBL-BEG-PERIOD TO F581-CON-RECVBL-BEG-PERIOD.DTSBE713 01460 DTSBE713 01461 COMPUTE F581-CON-RECVBL-DETERM DTSBE713 01462 = F581-CON-RECVBL-LIQUID DTSBE713 01463 + F581-CON-RECVBL-UNCOLLECT DTSBE713 01464 + F581-CON-RECVBL-REMOVED DTSBE713 01465 + F581-CON-RECVBL-END-PERIOD DTSBE713 01466 - F581-CON-RECVBL-BEG-PERIOD. DTSBE713 01467 DTSBE713 01468 MOVE WRK-REIMB-RECVBL-BEG-PERIOD DTSBE713 01469 TO F581-REIMB-RECVBL-BEG-PERIOD. DTSBE713 01470 DTSBE713 01471 COMPUTE F581-REIMB-RECVBL-DETERM DTSBE713 01472 = F581-REIMB-RECVBL-LIQUID DTSBE713 01473 + F581-REIMB-RECVBL-UNCOLLECT DTSBE713 01474 + F581-REIMB-RECVBL-REMOVED DTSBE713 01475 + F581-REIMB-RECVBL-END-PERIOD DTSBE713 01476 - F581-REIMB-RECVBL-BEG-PERIOD. DTSBE713 01477 DTSBE713 01478 COMPUTE F581-AUDIT-TOT-WAGES-PRE DTSBE713 01479 = F581-AUDIT-TOT-WAGES-POST DTSBE713 01480 - F581-AUDIT-UNDERRPT-TOT-WAGES DTSBE713 01481 + F581-AUDIT-OVERRPT-TOT-WAGES. DTSBE713 01482 DTSBE713 01483 MOVE F581-KEY-AREA TO FSKL-KEY-AREA. DTSBE713 01484 PERFORM S931-READ THRU S931-EXIT. DTSBE713 01485 IF L931-NO-REC-88 DTSBE713 01486 MOVE F581-REC TO FSKL-REC DTSBE713 01487 PERFORM S931-WRITE THRU S931-EXIT DTSBE713 01488 ELSE DTSBE713 01489 MOVE F581-REC TO FSKL-REC DTSBE713 01490 PERFORM S931-REWRITE THRU S931-EXIT. DTSBE713 01491 DTSBE713 01492 MOVE WRK-PARM-SUBJECT-YRQ TO R713-YRQ. DTSBE713 01493 PERFORM S946-WRITE-R713 THRU S946-EXIT. DTSBE713 01494 T0000-EXIT. DTSBE713 01495 EXIT. DTSBE713 01496 EJECT DTSBE713 01497 S001-FROM-FED-8. DTSBE713 01498 SET L001-FROM-FED-8 TO TRUE. DTSBE713 01499 GO TO S001-DATE. DTSBE713 01500 DTSBE713 01501 S001-FROM-ABS-DAY. DTSBE713 01502 SET L001-FROM-ABS-DAY TO TRUE. DTSBE713 01503 GO TO S001-DATE. DTSBE713 01504 DTSBE713 01505 S001-FROM-CAL-6. DTSBE713 01506 SET L001-FROM-CAL-6 TO TRUE. DTSBE713 01507 GO TO S001-DATE. DTSBE713 01508 DTSBE713 01509 S001-DATE. DTSBE713 01510 CALL 'DTSBU001' USING L001-LINK-AREA. CL**2 01511 S001-EXIT. DTSBE713 01512 EXIT. DTSBE713 01513 SKIP3 DTSBE713 01514 S004-FROM-5. DTSBE713 01515 SET L004-FROM-5 TO TRUE. DTSBE713 01516 GO TO S004-QTR. DTSBE713 01517 DTSBE713 01518 S004-FROM-ABS. DTSBE713 01519 SET L004-FROM-ABS TO TRUE. DTSBE713 01520 GO TO S004-QTR. DTSBE713 01521 DTSBE713 01522 S004-FROM-3. DTSBE713 01523 SET L004-FROM-3 TO TRUE. DTSBE713 01524 GO TO S004-QTR. DTSBE713 01525 DTSBE713 01526 S004-FROM-DATE. DTSBE713 01527 SET L004-FROM-DATE TO TRUE. DTSBE713 01528 GO TO S004-QTR. DTSBE713 01529 DTSBE713 01530 S004-QTR. DTSBE713 01531 DTSBE713 01532 CALL 'DTSBU004' USING L004-LINK-AREA. CL**2 01533 DTSBE713 01534 S004-EXIT. DTSBE713 01535 EXIT. DTSBE713 01536 SKIP3 DTSBE713 01537 S005-FROM-ABSTIME. DTSBE713 01538 SET L005-FROM-ABSTIME TO TRUE. DTSBE713 01539 GO TO S005-ABSTIME. DTSBE713 01540 DTSBE713 01541 S005-FROM-DATE-TIME. DTSBE713 01542 SET L005-FROM-DATE-TIME TO TRUE. DTSBE713 01543 GO TO S005-ABSTIME. DTSBE713 01544 DTSBE713 01545 S005-ABSTIME. DTSBE713 01546 CALL 'DTSBU005' USING L005-LINK-AREA. CL**2 01547 S005-EXIT. DTSBE713 01548 EXIT. DTSBE713 01549 SKIP3 DTSBE713 01550 S910-READ. DTSBE713 01551 SET L910-READ-88 TO TRUE. DTSBE713 01552 GO TO S910-MSTR-IO. DTSBE713 01553 DTSBE713 01554 S910-START-BROWSE. DTSBE713 01555 SET L910-START-BROWSE-88 TO TRUE. DTSBE713 01556 GO TO S910-MSTR-IO. DTSBE713 01557 DTSBE713 01558 S910-READ-NEXT. DTSBE713 01559 SET L910-READ-NEXT-88 TO TRUE. DTSBE713 01560 GO TO S910-MSTR-IO. DTSBE713 01561 DTSBE713 01562 *S910-COUNT. DTSBE713 01563 *****SET L910-COUNT-88 TO TRUE. DTSBE713 01564 *****GO TO S910-MSTR-IO. DTSBE713 01565 DTSBE713 01566 S910-REWRITE. DTSBE713 01567 SET L910-REWRITE-88 TO TRUE. DTSBE713 01568 SET LECM-EMP-UPDATED-YES-88 TO TRUE. DTSBE713 01569 GO TO S910-MSTR-IO. DTSBE713 01570 DTSBE713 01571 S910-MSTR-IO. DTSBE713 01572 CALL 'DTSBU910' USING L910-LINK-AREA CL**2 01573 MSKL-REC. DTSBE713 01574 S910-EXIT. DTSBE713 01575 EXIT. DTSBE713 01576 SKIP3 DTSBE713 01577 S931-READ. DTSBE713 01578 SET L931-READ-88 TO TRUE. DTSBE713 01579 GO TO S931-REF-I. DTSBE713 01580 DTSBE713 01581 *S931-START-BROWSE. DTSBE713 01582 *****SET L931-START-BROWSE-88 TO TRUE. DTSBE713 01583 *****GO TO S931-REF-I. DTSBE713 01584 DTSBE713 01585 *S931-READ-NEXT. DTSBE713 01586 *****SET L931-READ-NEXT-88 TO TRUE. DTSBE713 01587 *****GO TO S931-REF-I. DTSBE713 01588 DTSBE713 01589 S931-WRITE. DTSBE713 01590 SET L931-WRITE-88 TO TRUE. DTSBE713 01591 GO TO S931-REF-I. DTSBE713 01592 DTSBE713 01593 S931-REWRITE. DTSBE713 01594 SET L931-REWRITE-88 TO TRUE. DTSBE713 01595 GO TO S931-REF-I. DTSBE713 01596 DTSBE713 01597 *S931-DELETE. DTSBE713 01598 *****SET L931-DELETE-88 TO TRUE. DTSBE713 01599 *****GO TO S931-REF-I. DTSBE713 01600 DTSBE713 01601 S931-REF-I. DTSBE713 01602 CALL 'DTSBU931' USING L931-LINK-AREA CL**2 01603 FSKL-REC. DTSBE713 01604 S931-EXIT. DTSBE713 01605 EXIT. DTSBE713 01606 SKIP3 DTSBE713 01607 S946-WRITE-R713. DTSBE713 01608 CALL 'DTSBU946' USING R713-REC. CL**2 01609 GO TO S946-EXIT. DTSBE713 01610 DTSBE713 01611 S946-EXIT. DTSBE713 01612 EXIT. DTSBE713 01613 SKIP3 DTSBE713 01614 S999-ABEND. DTSBE713 01615 DISPLAY '*** DTSBE713 ABENDING. ' CL**2 01616 ABEND-MSG. DTSBE713 01617 DTSBE713 01618 CALL 'DTSBU999' USING WRK-ABEND-CD. CL**2 01619 S999-EXIT. DTSBE713 01620 EXIT. DTSBE713