00001 IDENTIFICATION DIVISION. 08/28/02 00002 PROGRAM-ID. DESBD411. DESBD411 00003 AUTHOR. TRW. LV001 00004 DATE-WRITTEN. MARCH 2001. DESBD411 00005 DATE-COMPILED. DESBD411 00006 SKIP3 DESBD411 00007 ***** DESBD411 00008 * DESBD411 00009 * FUNCTION: ELECTRONIC MEDIA TRACKING DESBD411 00010 * PERIODIC REPORT EXTRACT DESBD411 00011 * BASED ON LOG NUMBER DESBD411 00012 * DESBD411 00013 * DESBD411 00014 * MODIFICATION LOG: DESBD411 00015 * DESBD411 00016 * 03/15/2018 MODIFIED FROM DTSBR400. DESBD411 00017 * REFERENCE: DC DEVELOPMENT PROGRAMMER: GD DESBD411 00018 * DESBD411 00019 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD411 00020 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DESBD411 00021 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DESBD411 00022 * DESBD411 00023 * DESBD411 00024 * DESCRIPTION: DESBD411 00025 * DESBD411 00026 * INITIATION. DESBD411 00027 * DESBD411 00028 * PROCESS PARAMETERS INPUT VIA LINKAGE (IN PARM-AREA). DESBD411 00029 * DESBD411 00030 * DESBD411 00031 * READ THE PARM-FILE UNTIL PARM-EOF. ONE TO FIFTY PARM DESBD411 00032 * RECORDS WILL BE INPUT. DESBD411 00033 * DESBD411 00034 * DISPLAY EACH PARM RECORD. DESBD411 00035 * DESBD411 00036 * EACH PARM RECORD INDICATES AN EXTRACT MODULE TO BE CALLED DESBD411 00037 * DURING THIS PARTICULAR RUN, AND CONTAINS ANY EXTRACT DESBD411 00038 * MODULE SPECIFIC PARAMETERS. DESBD411 00039 * DESBD411 00040 * TABLE PARM RECORDS 1 THRU N IN WRK-EXTRACT-AREA. DESBD411 00041 * DESBD411 00042 * THE SAME WRK-EXTRACT-ID VALUE IN MULTIPLE OCCURRENCES OF DESBD411 00043 * WRK-EXTRACT-AREA IS NOT ALLOWED. IF THIS CONDITION DESBD411 00044 * OCCURS, THEN ABEND THE MODULE. DESBD411 00045 * DESBD411 00046 * MAKE AN 'INITIALIZATION' CALL TO EACH OF THE EXTRACT DESBD411 00047 * MODULES TABLED IN WRK-EXTRACT-AREA. SAVE THE HIGHEST DESBD411 00048 * VALUE RETURNED IN LECM-OPEN-MST-IND AND SAVE THE DESBD411 00049 * HIGHEST VALUE RETURNED IN LECM-OPEN-REF-IND. DESBD411 00050 * DESBD411 00051 * OPEN THE MASTER FILE, ALTERNATE INDEX FILE AND DESBD411 00052 * REFERENCE FILE WITH THE OPEN COMMAND (READ ONLY DESBD411 00053 * OR UPDATE) AS INDICATED BY THE INFORMATION RETURNED DESBD411 00054 * BY THE "INITIALIZATION" CALLS. DESBD411 00055 * DESBD411 00056 * DESBD411 00057 * READ THE MHDR RECORD. DESBD411 00058 * DESBD411 00059 * IF L910-NO-REC-88 DESBD411 00060 * ABEND THE MODULE. DESBD411 00061 * DESBD411 00062 * INITIALIZE THE LECM FIELDS. DESBD411 00063 * DESBD411 00064 * SET LECM-PROCESS-88 TO TRUE. DESBD411 00065 * DESBD411 00066 * SET L921 TO BROWSE ACTIVE LOG RECORDS THROUGH THE DESBD411 00067 * IEAL AIX RECORD. DESBD411 00068 * DESBD411 00069 * MOVE +0 TO WRK-ELOG-CNT. DESBD411 00070 * DESBD411 00071 * DESBD411 00072 * DESBD411 00073 * PROCESSING. DESBD411 00074 * DESBD411 00075 * PERFORM P1000-READ-NEXT DESBD411 00076 * UNTIL L921-NO-REC-88. DESBD411 00077 * DESBD411 00078 * P1000-READ-NEXT. DESBD411 00079 * READ THE NEXT IEAL RECORD. DESBD411 00080 * IF L921-OK-88 DESBD411 00081 * READ THE ELOG RECORD DESBD411 00082 * IF L935-OK-88 DESBD411 00083 * ADD +1 TO WRK-ELOG-CNT DESBD411 00084 * PERFORM S1000-CALL-EXTRACT DESBD411 00085 * VARYING WRK-EXT-IDX FROM 1 BY 1 DESBD411 00086 * UNTIL WRK-EXT-IDX > WRK-EXTRACT-CNT. DESBD411 00087 * DESBD411 00088 * S1000-CALL-EXTRACT. DESBD411 00089 * MOVE WRK-EXTRACT-PARMS (WRK-EXT-IDX) DESBD411 00090 * TO LECM-EXTRACT-PARMS. DESBD411 00091 * DESBD411 00092 * CALL 'DESBE***' USING LECM-LINK-AREA DESBD411 00093 * EPRF-REC DESBD411 00094 * ELOG-REC DESBD411 00095 * DESBD411 00096 * IF NO EXTRACT MODULE CORRESPONDING TO WRK-EXTRACT-SUB DESBD411 00097 * EXISTS, THEN THE STEP ABENDS (MODULE NOT FOUND). DESBD411 00098 * DESBD411 00099 * DESBD411 00100 * DESBD411 00101 * TERMINATION. DESBD411 00102 * DESBD411 00103 * SET LECM-TERMINATE-88 TO TRUE. DESBD411 00104 * DESBD411 00105 * PERFORM S1000-CALL-EXTRACT DESBD411 00106 * VARYING WRK-EXT-IDX FROM 1 BY 1 DESBD411 00107 * UNTIL WRK-EXT-IDX > WRK-EXTRACT-CNT. DESBD411 00108 * DESBD411 00109 * DISPLAY TERMINATION STATISTICS (VARIOUS LECM FIELDS AND DESBD411 00110 * WRK-ELOG-CNT. DESBD411 00111 * DESBD411 00112 * CLOSE TAX MASTER FILE. DESBD411 00113 * CLOSE ELECTRONIC MEDIA FILES. DESBD411 00114 * CLOSE ALTERNATE INDEX FILE. DESBD411 00115 * CLOSE REFERENCE FILE. DESBD411 00116 * CLOSE REPORT RECORD FILE. DESBD411 00117 * DESBD411 00118 * SET RETURN-CODE TO 0. DESBD411 00119 * DESBD411 00120 ***** DESBD411 00121 SKIP3 DESBD411 00122 ENVIRONMENT DIVISION. DESBD411 00123 SKIP2 DESBD411 00124 INPUT-OUTPUT SECTION. DESBD411 00125 DESBD411 00126 FILE-CONTROL. DESBD411 00127 SELECT PARM-FILE ASSIGN TO SYSIN. DESBD411 00128 EJECT DESBD411 00129 DATA DIVISION. DESBD411 00130 SKIP3 DESBD411 00131 FILE SECTION. DESBD411 00132 SKIP2 DESBD411 00133 FD PARM-FILE DESBD411 00134 RECORDING MODE IS F DESBD411 00135 BLOCK CONTAINS 0 RECORDS. DESBD411 00136 DESBD411 00137 01 PARM-REC. DESBD411 00138 10 PREC-EXTRACT-ID PIC X(03). DESBD411 00139 10 FILLER PIC X(01). DESBD411 00140 10 PREC-EXTRACT-PARMS PIC X(68). DESBD411 00141 10 FILLER PIC X(08). DESBD411 00142 EJECT DESBD411 00143 WORKING-STORAGE SECTION. DESBD411 001435 77 PAN-VALET PICTURE X(24) VALUE '001DESBD411 08/28/02'. DESBD411 00144 SKIP3 DESBD411 00145 01 WRK-AREA. DESBD411 00146 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +411.DESBD411 00147 DESBD411 00148 05 WRK-MOD-NAME PIC X(08) VALUE 'DESBD411'.DESBD411 00149 DESBD411 00150 05 WRK-ELOG-CNT PIC S9(07) COMP-3. DESBD411 00151 DESBD411 00152 05 WRK-UPDATED-CNT PIC S9(07) COMP-3. DESBD411 00153 DESBD411 00154 05 PARM-REC-CNT PIC S9(07) COMP-3. DESBD411 00155 DESBD411 00156 05 HOLD-EXTRACT-SUB PIC S9(04) COMP. DESBD411 00157 DESBD411 00158 05 WRK-SUB PIC S9(04) COMP. DESBD411 00159 DESBD411 00160 05 PARM-EOF-IND PIC X(01). DESBD411 00161 DESBD411 00162 05 WRK-RUN-TYPE PIC X(02). DESBD411 00163 DESBD411 00164 05 WRK-PRE-BACKUP-IND PIC X(01). DESBD411 00165 DESBD411 00166 05 WRK-ONLY-CHECK-PARM-IND PIC X(01). DESBD411 00167 DESBD411 00168 05 WRK-TRACE-IND PIC X(01). DESBD411 00169 DESBD411 00170 05 WRK-MST-OPEN-IND PIC X(01). DESBD411 00171 DESBD411 00172 05 WRK-REF-OPEN-IND PIC X(01). DESBD411 00173 DESBD411 00174 *****05 WRK-BTC-IND PIC X(01). DESBD411 00175 DESBD411 00176 05 WRK-LOG-UPDATED-IND PIC X(01). DESBD411 00177 88 WRK-LOG-UPDATED-NO-88 VALUE 'N'. DESBD411 00178 88 WRK-LOG-UPDATED-YES-88 VALUE 'Y'. DESBD411 00179 SKIP3 DESBD411 00180 05 WRK-EXTRACT-CNT PIC S9(04) COMP. DESBD411 00181 DESBD411 00182 05 WRK-EXTRACT-AREA OCCURS 50 TIMES DESBD411 00183 INDEXED BY WRK-EXT-IDX. DESBD411 00184 10 WRK-EXTRACT-ID PIC X(03). DESBD411 00185 10 WRK-EXTRACT-PARMS PIC X(68). DESBD411 00186 SKIP3 DESBD411 00187 05 WRK-START-ABSTIME PIC S9(15) COMP-3. DESBD411 00188 DESBD411 00189 05 WRK-STEP-DURATION-X PIC X(09). DESBD411 00190 05 WRK-STEP-DURATION REDEFINES WRK-STEP-DURATION-X DESBD411 00191 PIC ZZ,ZZ9.99. DESBD411 00192 SKIP3 DESBD411 00193 05 EXTRACT-MOD-NAME. DESBD411 00194 10 FILLER PIC X(05) VALUE 'DESBE'. DESBD411 00195 10 EXTRACT-MOD-ID PIC X(03). DESBD411 00196 EJECT DESBD411 00197 01 MSG-TABLE. DESBD411 00198 05 MSG1-UPDATE-LOCKED-EMP. DESBD411 00199 10 MSG1-ID PIC X(03) VALUE '991'. DESBD411 00200 10 MSG1-TEXT. DESBD411 00201 15 FILLER PIC X(30) DESBD411 00202 VALUE 'DESPITE BEING LOCKED AGAINST U'. DESBD411 00203 15 FILLER PIC X(30) DESBD411 00204 VALUE 'PDATE, A PERIODIC EXTRACT PROC'. DESBD411 00205 15 FILLER PIC X(05) DESBD411 00206 VALUE 'ESS ('. DESBD411 00207 15 MSG1-EXTRACT-ID PIC X(03). DESBD411 00208 15 FILLER PIC X(31) DESBD411 00209 VALUE ') UPDATED THE EMPLOYERS RECORDS'. DESBD411 00210 EJECT DESBD411 00211 01 LECM-LINK-AREA. DESBD411 00212 ++INCLUDE DTSILECM DESBD411 00213 EJECT DESBD411 00214 01 L910-LINK-AREA. DESBD411 00215 ++INCLUDE DTSIL910 DESBD411 00216 EJECT DESBD411 00217 01 MSKL-REC. DESBD411 00218 ++INCLUDE DTSIMSKL DESBD411 00219 EJECT DESBD411 00220 01 MHDR-REC REDEFINES MSKL-REC. DESBD411 00221 ++INCLUDE DTSIMHDR DESBD411 00222 EJECT DESBD411 00223 01 MPRF-REC REDEFINES MSKL-REC. DESBD411 00224 ++INCLUDE DTSIMPRF DESBD411 00225 EJECT DESBD411 00226 01 L921-LINK-AREA. DESBD411 00227 ++INCLUDE DTSIL921 DESBD411 00228 EJECT DESBD411 00229 01 ISKL-REC. DESBD411 00230 ++INCLUDE DTSIISKL DESBD411 00231 EJECT DESBD411 00232 01 IEAL-REC. DESBD411 00233 ++INCLUDE DTSIIEAL DESBD411 00234 EJECT DESBD411 00235 01 L935-LINK-AREA. DESBD411 00236 ++INCLUDE DTSIL935 DESBD411 00237 EJECT DESBD411 00238 01 ESKL-REC. DESBD411 00239 ++INCLUDE DTSIESKL DESBD411 00240 EJECT DESBD411 00241 01 EPRF-REC. DESBD411 00242 ++INCLUDE DTSIEPRF DESBD411 00243 EJECT DESBD411 00244 01 ELOG-REC. DESBD411 00245 ++INCLUDE DTSIELOG DESBD411 00246 EJECT DESBD411 00247 01 L927-LINK-AREA. DESBD411 00248 ++INCLUDE DTSIL927 DESBD411 00249 EJECT DESBD411 00250 01 RSKL-REC. DESBD411 00251 ++INCLUDE DTSIRSK1 DESBD411 00252 SKIP3 DESBD411 00253 01 R907-REC. DESBD411 00254 ++INCLUDE DTSIR907 DESBD411 00255 EJECT DESBD411 00256 01 L931-LINK-AREA. DESBD411 00257 ++INCLUDE DTSIL931 DESBD411 00258 EJECT DESBD411 00259 01 FSKL-REC. DESBD411 00260 ++INCLUDE DTSIFSKL DESBD411 00261 EJECT DESBD411 00262 01 L005-LINK-AREA. DESBD411 00263 ++INCLUDE DTSIL005 DESBD411 00264 EJECT DESBD411 00265 LINKAGE SECTION. DESBD411 00266 SKIP3 DESBD411 00267 01 PARM-AREA. DESBD411 00268 05 PARM-LENGTH PIC S9(04) COMP. DESBD411 00269 05 PARM-DATA. DESBD411 00270 10 PARM-RUN-TYPE PIC X(02). DESBD411 00271 10 FILLER PIC X(01). DESBD411 00272 10 PARM-PRE-BACKUP-IND PIC X(01). DESBD411 00273 10 FILLER PIC X(01). DESBD411 00274 10 PARM-ONLY-CHECK-PARM-IND PIC X(01). DESBD411 00275 10 FILLER PIC X(01). DESBD411 00276 10 PARM-TRACE-IND PIC X(01). DESBD411 00277 EJECT DESBD411 00278 PROCEDURE DIVISION USING PARM-AREA. DESBD411 00279 SKIP2 DESBD411 00280 PERFORM I0000-INITIATE THRU I0000-EXIT. DESBD411 00281 DESBD411 00282 IF WRK-ONLY-CHECK-PARM-IND = 'Y' DESBD411 00283 NEXT SENTENCE DESBD411 00284 ELSE DESBD411 00285 PERFORM P0000-PROCESS THRU P0000-EXIT. DESBD411 00286 DESBD411 00287 PERFORM T0000-TERMINATE THRU T0000-EXIT. DESBD411 00288 SKIP2 DESBD411 00289 GOBACK. DESBD411 00290 EJECT DESBD411 00291 I0000-INITIATE. DESBD411 00292 SKIP2 DESBD411 00293 PERFORM I1000-PROCESS-PARMS THRU I1000-EXIT. DESBD411 00294 DESBD411 00295 PERFORM I2000-OPEN-FILES-1 THRU I2000-EXIT. DESBD411 00296 DESBD411 00297 PERFORM I3000-INITIALIZE-WRK THRU I3000-EXIT. DESBD411 00298 DESBD411 00299 PERFORM I4000-INITIAL-CALLS THRU I4000-EXIT. DESBD411 00300 DESBD411 00301 IF WRK-ONLY-CHECK-PARM-IND = 'Y' DESBD411 00302 NEXT SENTENCE DESBD411 00303 ELSE DESBD411 00304 PERFORM I5000-OPEN-FILES-2 THRU I5000-EXIT. DESBD411 00305 DESBD411 00306 PERFORM I6000-RERUN-INSTRUCTIONS THRU I6000-EXIT. DESBD411 00307 SKIP2 DESBD411 00308 I0000-EXIT. DESBD411 00309 EXIT. DESBD411 00310 EJECT DESBD411 00311 I1000-PROCESS-PARMS. DESBD411 00312 DISPLAY ' '. DESBD411 00313 DESBD411 00314 DISPLAY '*** DESBD411 PARAMETERS'. DESBD411 00315 DESBD411 00316 DESBD411 00317 IF PARM-LENGTH = +8 DESBD411 00318 NEXT SENTENCE DESBD411 00319 ELSE DESBD411 00320 DISPLAY 'PARM LENGTH NOT EQUAL TO EIGHT' DESBD411 00321 PERFORM S999-ABEND THRU S999-EXIT. DESBD411 00322 DESBD411 00323 DESBD411 00324 IF PARM-PRE-BACKUP-IND = SPACES DESBD411 00325 MOVE 'N' TO WRK-PRE-BACKUP-IND DESBD411 00326 ELSE DESBD411 00327 IF PARM-PRE-BACKUP-IND = 'Y' OR 'N' DESBD411 00328 MOVE PARM-PRE-BACKUP-IND DESBD411 00329 TO WRK-PRE-BACKUP-IND DESBD411 00330 ELSE DESBD411 00331 DISPLAY 'PARM PRE BACKUP IND = ' DESBD411 00332 PARM-PRE-BACKUP-IND DESBD411 00333 ' IS NOT A VALID VALUE' DESBD411 00334 PERFORM S999-ABEND THRU S999-EXIT. DESBD411 00335 DESBD411 00336 DESBD411 00337 IF PARM-RUN-TYPE = SPACES DESBD411 00338 MOVE 'OR' TO WRK-RUN-TYPE DESBD411 00339 ELSE DESBD411 00340 IF PARM-RUN-TYPE = 'WE' OR 'MC' OR 'ME' OR 'QR' OR 'QP' DESBD411 00341 OR 'QD' DESBD411 00342 OR 'QE' OR 'QF' OR 'YE' OR 'OR' DESBD411 00343 MOVE PARM-RUN-TYPE TO WRK-RUN-TYPE DESBD411 00344 ELSE DESBD411 00345 DISPLAY 'PARM RUN TYPE = ' DESBD411 00346 PARM-RUN-TYPE DESBD411 00347 ' IS NOT A VALID RUN TYPE' DESBD411 00348 PERFORM S999-ABEND THRU S999-EXIT. DESBD411 00349 DESBD411 00350 DESBD411 00351 IF PARM-ONLY-CHECK-PARM-IND = SPACES DESBD411 00352 MOVE 'N' TO WRK-ONLY-CHECK-PARM-IND DESBD411 00353 ELSE DESBD411 00354 IF PARM-ONLY-CHECK-PARM-IND = 'Y' OR 'N' DESBD411 00355 MOVE PARM-ONLY-CHECK-PARM-IND DESBD411 00356 TO WRK-ONLY-CHECK-PARM-IND DESBD411 00357 ELSE DESBD411 00358 DISPLAY 'PARM ONLY CHECK PARM IND = ' DESBD411 00359 PARM-ONLY-CHECK-PARM-IND DESBD411 00360 ' IS NOT A VALID VALUE' DESBD411 00361 PERFORM S999-ABEND THRU S999-EXIT. DESBD411 00362 DESBD411 00363 DESBD411 00364 IF PARM-TRACE-IND = SPACES DESBD411 00365 MOVE 'N' TO WRK-TRACE-IND DESBD411 00366 ELSE DESBD411 00367 MOVE PARM-TRACE-IND TO WRK-TRACE-IND. DESBD411 00368 DESBD411 00369 DESBD411 00370 DISPLAY ' '. DESBD411 00371 DESBD411 00372 DISPLAY ' RUN TYPE: ' DESBD411 00373 WRK-RUN-TYPE. DESBD411 00374 DESBD411 00375 DISPLAY ' PRE-BACKUP IND: ' DESBD411 00376 WRK-PRE-BACKUP-IND. DESBD411 00377 DESBD411 00378 DISPLAY 'ONLY CHECK PARM: ' DESBD411 00379 WRK-ONLY-CHECK-PARM-IND. DESBD411 00380 DESBD411 00381 DISPLAY 'TRACE INDICATOR: ' DESBD411 00382 WRK-TRACE-IND. DESBD411 00383 DESBD411 00384 DISPLAY ' '. DESBD411 00385 DESBD411 00386 DESBD411 00387 OPEN INPUT PARM-FILE. DESBD411 00388 DESBD411 00389 MOVE 'N' TO PARM-EOF-IND. DESBD411 00390 DESBD411 00391 MOVE +0 TO PARM-REC-CNT. DESBD411 00392 DESBD411 00393 MOVE +0 TO WRK-EXTRACT-CNT. DESBD411 00394 DESBD411 00395 PERFORM I1100-READ-PARM THRU I1100-EXIT DESBD411 00396 UNTIL PARM-EOF-IND = 'Y'. DESBD411 00397 DESBD411 00398 IF PARM-REC-CNT < 1 OR > 50 DESBD411 00399 DISPLAY 'MORE THAN 50 PARAMETER RECORDS IS NOT VALID' DESBD411 00400 PERFORM S999-ABEND THRU S999-EXIT. DESBD411 00401 DESBD411 00402 CLOSE PARM-FILE. DESBD411 00403 I1000-EXIT. DESBD411 00404 EXIT. DESBD411 00405 EJECT DESBD411 00406 I1100-READ-PARM. DESBD411 00407 READ PARM-FILE DESBD411 00408 AT END DESBD411 00409 MOVE 'Y' TO PARM-EOF-IND DESBD411 00410 GO TO I1100-EXIT. DESBD411 00411 DESBD411 00412 DESBD411 00413 DISPLAY '*** ' DESBD411 00414 PARM-REC. DESBD411 00415 DESBD411 00416 DESBD411 00417 IF PREC-EXTRACT-ID = '***' DESBD411 00418 GO TO I1100-EXIT. DESBD411 00419 DESBD411 00420 DESBD411 00421 ADD +1 TO PARM-REC-CNT. DESBD411 00422 DESBD411 00423 PERFORM I1200-LOAD-PARM-TABLE THRU I1200-EXIT. DESBD411 00424 I1100-EXIT. DESBD411 00425 EXIT. DESBD411 00426 EJECT DESBD411 00427 I1200-LOAD-PARM-TABLE. DESBD411 00428 IF WRK-EXTRACT-CNT > 0 DESBD411 00429 PERFORM I1250-DUP-EXTRACT-ID-CHECK THRU I1250-EXIT DESBD411 00430 VARYING WRK-SUB FROM 1 BY 1 DESBD411 00431 UNTIL WRK-SUB > WRK-EXTRACT-CNT. DESBD411 00432 DESBD411 00433 ADD +1 TO WRK-EXTRACT-CNT. DESBD411 00434 DESBD411 00435 IF WRK-EXTRACT-CNT > 50 DESBD411 00436 DISPLAY 'MORE THAN 50 EXTRACT ID CODES INVALID' DESBD411 00437 PERFORM S999-ABEND THRU S999-EXIT. DESBD411 00438 DESBD411 00439 MOVE PREC-EXTRACT-ID DESBD411 00440 TO WRK-EXTRACT-ID (WRK-EXTRACT-CNT). DESBD411 00441 DESBD411 00442 MOVE PREC-EXTRACT-PARMS DESBD411 00443 TO WRK-EXTRACT-PARMS (WRK-EXTRACT-CNT). DESBD411 00444 I1200-EXIT. DESBD411 00445 EXIT. DESBD411 00446 EJECT DESBD411 00447 I1250-DUP-EXTRACT-ID-CHECK. DESBD411 00448 IF PREC-EXTRACT-ID = WRK-EXTRACT-ID (WRK-SUB) DESBD411 00449 DISPLAY 'DUPLICATE EXTRACT ID CODES INVALID ' DESBD411 00450 WRK-EXTRACT-ID (WRK-SUB) DESBD411 00451 PERFORM S999-ABEND THRU S999-EXIT. DESBD411 00452 I1250-EXIT. DESBD411 00453 EXIT. DESBD411 00454 EJECT DESBD411 00455 I2000-OPEN-FILES-1. DESBD411 00456 MOVE WRK-TRACE-IND TO L910-TRACE-IND DESBD411 00457 L921-TRACE-IND DESBD411 00458 L927-TRACE-IND DESBD411 00459 L931-TRACE-IND DESBD411 00460 L935-TRACE-IND. DESBD411 00461 DESBD411 00462 MOVE WRK-MOD-NAME TO L910-MOD-NAME DESBD411 00463 L921-MOD-NAME DESBD411 00464 L927-MOD-NAME DESBD411 00465 L931-MOD-NAME DESBD411 00466 L935-MOD-NAME. DESBD411 00467 DESBD411 00468 PERFORM S910-OPEN-READ THRU S910-EXIT. DESBD411 00469 DESBD411 00470 PERFORM S921-OPEN-READ THRU S921-EXIT. DESBD411 00471 DESBD411 00472 PERFORM S927-OPEN-UPDATE THRU S927-EXIT. DESBD411 00473 DESBD411 00474 PERFORM S931-OPEN-READ THRU S931-EXIT. DESBD411 00475 DESBD411 00476 PERFORM S935-OPEN-READ THRU S935-EXIT. DESBD411 00477 DESBD411 00478 MOVE LENGTH OF R907-REC TO R907-LENGTH. DESBD411 00479 I2000-EXIT. DESBD411 00480 EXIT. DESBD411 00481 EJECT DESBD411 00482 I3000-INITIALIZE-WRK. DESBD411 00483 MOVE LOW-VALUES TO MHDR-KEY-AREA. DESBD411 00484 DESBD411 00485 MOVE +0 TO MHDR-EMP-NO. DESBD411 00486 DESBD411 00487 SET MHDR-HDR-88 TO TRUE. DESBD411 00488 DESBD411 00489 PERFORM S910-READ THRU S910-EXIT. DESBD411 00490 DESBD411 00491 IF L910-NO-REC-88 DESBD411 00492 PERFORM S999-ABEND THRU S999-EXIT. DESBD411 00493 DESBD411 00494 PERFORM S005-FROM-SYS THRU S005-EXIT. DESBD411 00495 DESBD411 00496 MOVE L005-ABSTIME TO WRK-START-ABSTIME. DESBD411 00497 DESBD411 00498 PERFORM I3100-INIT-LECM-PARMS THRU I3100-EXIT. DESBD411 00499 DESBD411 00500 PERFORM S910-CLOSE THRU S910-EXIT. DESBD411 00501 DESBD411 00502 MOVE +0 TO WRK-ELOG-CNT DESBD411 00503 WRK-UPDATED-CNT. DESBD411 00504 I3000-EXIT. DESBD411 00505 EXIT. DESBD411 00506 EJECT DESBD411 00507 I3100-INIT-LECM-PARMS. DESBD411 00508 MOVE WRK-RUN-TYPE TO LECM-RUN-TYPE. DESBD411 00509 DESBD411 00510 IF WRK-RUN-TYPE = 'WE' DESBD411 00511 MOVE MHDR-CMPL-WEEK-BEGIN-DATE TO LECM-PERIOD-START-DATE DESBD411 00512 MOVE MHDR-CMPL-WEEK-END-DATE TO LECM-PERIOD-END-DATE DESBD411 00513 ELSE DESBD411 00514 IF WRK-RUN-TYPE = 'MC' OR 'ME' DESBD411 00515 MOVE MHDR-CMPL-MONTH-BEGIN-DATE TO LECM-PERIOD-START-DATE DESBD411 00516 MOVE MHDR-CMPL-MONTH-END-DATE TO LECM-PERIOD-END-DATE DESBD411 00517 ELSE DESBD411 00518 IF WRK-RUN-TYPE = 'QR' OR 'QD' OR 'QE' OR 'QF' OR 'QP' DESBD411 00519 MOVE MHDR-CMPL-QTR-BEGIN-DATE TO LECM-PERIOD-START-DATE DESBD411 00520 MOVE MHDR-CMPL-QTR-END-DATE TO LECM-PERIOD-END-DATE DESBD411 00521 ELSE DESBD411 00522 IF WRK-RUN-TYPE = 'YE' DESBD411 00523 MOVE MHDR-CMPL-YEAR-BEGIN-DATE TO LECM-PERIOD-START-DATE DESBD411 00524 MOVE MHDR-CMPL-YEAR-END-DATE TO LECM-PERIOD-END-DATE DESBD411 00525 ELSE DESBD411 00526 MOVE +0 TO LECM-PERIOD-START-DATE DESBD411 00527 MOVE +0 TO LECM-PERIOD-END-DATE. DESBD411 00528 DESBD411 00529 MOVE L005-ABSTIME TO LECM-RUN-ABSTIME. DESBD411 00530 DESBD411 00531 MOVE L005-DATE TO LECM-SYS-DATE. DESBD411 00532 DESBD411 00533 MOVE L005-TIME TO LECM-SYS-TIME. DESBD411 00534 DESBD411 00535 MOVE MHDR-CURR-RUN-DATE TO LECM-CURR-RUN-DATE. DESBD411 00536 DESBD411 00537 MOVE MHDR-CURR-MAIL-DATE TO LECM-CURR-MAIL-DATE. DESBD411 00538 DESBD411 00539 MOVE MHDR-PRIOR-RUN-DATE TO LECM-PRIOR-RUN-DATE. DESBD411 00540 DESBD411 00541 MOVE MHDR-PRIOR-MAIL-DATE TO LECM-PRIOR-MAIL-DATE. DESBD411 00542 DESBD411 00543 MOVE MHDR-LAST-UC30-MASS-MAIL-YRQ DESBD411 00544 TO LECM-LAST-UC30-MASS-MAIL-YRQ. DESBD411 00545 DESBD411 00546 MOVE MHDR-LAST-PEN-ASSESSED-YRQ DESBD411 00547 TO LECM-LAST-PEN-ASSESSED-YRQ. DESBD411 00548 DESBD411 00549 MOVE MHDR-LAST-UC30-DEL-MAIL-YRQ DESBD411 00550 TO LECM-LAST-UC30-DEL-MAIL-YRQ. DESBD411 00551 DESBD411 00552 MOVE MHDR-FIRST-PURSUED-RPT-YRQ DESBD411 00553 TO LECM-FIRST-PURSUED-RPT-YRQ. DESBD411 00554 DESBD411 00555 MOVE MHDR-LAST-RATE-END-YRQ DESBD411 00556 TO LECM-LAST-RATE-END-YRQ. DESBD411 00557 DESBD411 00558 MOVE MHDR-LAST-MJRN-PURGE-DATE DESBD411 00559 TO LECM-LAST-MJRN-PURGE-DATE. DESBD411 00560 DESBD411 00561 MOVE +19924 TO LECM-PICKUP-YRQ. DESBD411 00562 DESBD411 00563 MOVE WRK-TRACE-IND TO LECM-TRACE-IND. DESBD411 00564 I3100-EXIT. DESBD411 00565 EXIT. DESBD411 00566 EJECT DESBD411 00567 I4000-INITIAL-CALLS. DESBD411 00568 SET LECM-INITIALIZE-88 TO TRUE. DESBD411 00569 DESBD411 00570 SET LECM-MST-OPEN-READ-88 TO TRUE. DESBD411 00571 DESBD411 00572 SET LECM-REF-OPEN-READ-88 TO TRUE. DESBD411 00573 DESBD411 00574 MOVE LECM-MST-OPEN-IND TO WRK-MST-OPEN-IND. DESBD411 00575 DESBD411 00576 MOVE LECM-REF-OPEN-IND TO WRK-REF-OPEN-IND. DESBD411 00577 DESBD411 00578 PERFORM I4100-EXTRACT-LOOP THRU I4100-EXIT DESBD411 00579 VARYING WRK-EXT-IDX FROM 1 BY 1 DESBD411 00580 UNTIL WRK-EXT-IDX > WRK-EXTRACT-CNT. DESBD411 00581 I4000-EXIT. DESBD411 00582 EXIT. DESBD411 00583 SKIP3 DESBD411 00584 I4100-EXTRACT-LOOP. DESBD411 00585 SET LECM-MST-OPEN-READ-88 TO TRUE. DESBD411 00586 DESBD411 00587 SET LECM-REF-OPEN-READ-88 TO TRUE. DESBD411 00588 DESBD411 00589 PERFORM S1000-CALL-EXTRACT THRU S1000-EXIT. DESBD411 00590 DESBD411 00591 IF LECM-MST-OPEN-IND > WRK-MST-OPEN-IND DESBD411 00592 MOVE LECM-MST-OPEN-IND TO WRK-MST-OPEN-IND. DESBD411 00593 DESBD411 00594 IF LECM-REF-OPEN-IND > WRK-REF-OPEN-IND DESBD411 00595 MOVE LECM-REF-OPEN-IND TO WRK-REF-OPEN-IND. DESBD411 00596 I4100-EXIT. DESBD411 00597 EXIT. DESBD411 00598 EJECT DESBD411 00599 I5000-OPEN-FILES-2. DESBD411 00600 MOVE WRK-MST-OPEN-IND TO LECM-MST-OPEN-IND. DESBD411 00601 DESBD411 00602 MOVE WRK-REF-OPEN-IND TO LECM-REF-OPEN-IND. DESBD411 00603 DESBD411 00604 IF (LECM-MST-OPEN-UPDATE-HDR-88) DESBD411 00605 OR DESBD411 00606 (LECM-MST-OPEN-UPDATE-88) DESBD411 00607 IF WRK-PRE-BACKUP-IND = 'Y' DESBD411 00608 NEXT SENTENCE DESBD411 00609 ELSE DESBD411 00610 DISPLAY 'MASTER FILE UPDATING POSSIBLE ' DESBD411 00611 'BUT PARM-PRE-BACKUP-IND NOT EQUAL TO "Y"' DESBD411 00612 PERFORM S999-ABEND THRU S999-EXIT. DESBD411 00613 DESBD411 00614 IF LECM-MST-OPEN-READ-88 DESBD411 00615 NEXT SENTENCE DESBD411 00616 ELSE DESBD411 00617 PERFORM S935-CLOSE THRU S935-EXIT DESBD411 00618 IF LECM-MST-OPEN-UPDATE-HDR-88 DESBD411 00619 PERFORM S935-OPEN-UPDATE-HDR THRU S935-EXIT DESBD411 00620 ELSE DESBD411 00621 IF LECM-MST-OPEN-UPDATE-88 DESBD411 00622 PERFORM S921-CLOSE THRU S921-EXIT DESBD411 00623 PERFORM S935-OPEN-UPDATE THRU S935-EXIT DESBD411 00624 PERFORM S921-OPEN-UPDATE THRU S921-EXIT DESBD411 00625 ELSE DESBD411 00626 PERFORM S999-ABEND THRU S999-EXIT. DESBD411 00627 DESBD411 00628 IF LECM-REF-OPEN-UPDATE-88 DESBD411 00629 IF WRK-PRE-BACKUP-IND = 'Y' DESBD411 00630 NEXT SENTENCE DESBD411 00631 ELSE DESBD411 00632 DISPLAY 'REFERENCE FILE UPDATING POSSIBLE ' DESBD411 00633 'BUT PARM-PRE-BACKUP-IND NOT EQUAL TO "Y"' DESBD411 00634 PERFORM S999-ABEND THRU S999-EXIT. DESBD411 00635 DESBD411 00636 IF LECM-REF-OPEN-UPDATE-88 DESBD411 00637 PERFORM S931-CLOSE THRU S931-EXIT DESBD411 00638 PERFORM S931-OPEN-UPDATE THRU S931-EXIT. DESBD411 00639 I5000-EXIT. DESBD411 00640 EXIT. DESBD411 00641 EJECT DESBD411 00642 I6000-RERUN-INSTRUCTIONS. DESBD411 00643 DISPLAY ' '. DESBD411 00644 DESBD411 00645 DISPLAY ' '. DESBD411 00646 DESBD411 00647 DISPLAY '****************************************' DESBD411 00648 '****************************************'. DESBD411 00649 DESBD411 00650 DISPLAY '** ' DESBD411 00651 ' **'. DESBD411 00652 DESBD411 00653 DISPLAY '** DESBD411 RERUN' DESBD411 00654 ' INSTRUCTIONS **'. DESBD411 00655 DESBD411 00656 DISPLAY '** ' DESBD411 00657 ' **'. DESBD411 00658 DESBD411 00659 DISPLAY '** IF DESBD411 ABENDS THEN: ' DESBD411 00660 ' **'. DESBD411 00661 DESBD411 00662 IF LECM-MST-OPEN-UPDATE-HDR-88 DESBD411 00663 DISPLAY '** ' DESBD411 00664 ' **' DESBD411 00665 DISPLAY '** RESTORE MASTER FILE HEADER R' DESBD411 00666 'ECORD PRIOR TO ATTEMPTING RERUN. **'. DESBD411 00667 DESBD411 00668 IF LECM-MST-OPEN-UPDATE-88 DESBD411 00669 DISPLAY '** ' DESBD411 00670 ' **' DESBD411 00671 DISPLAY '** RESTORE MASTER FILE PRIOR TO' DESBD411 00672 ' ATTEMPTING RERUN. **'. DESBD411 00673 DESBD411 00674 IF LECM-REF-OPEN-UPDATE-88 DESBD411 00675 DISPLAY '** ' DESBD411 00676 ' **' DESBD411 00677 DISPLAY '** RESTORE REFERENCE FILE PRIOR' DESBD411 00678 ' TO ATTEMPTING RERUN. **'. DESBD411 00679 DESBD411 00680 IF (LECM-MST-OPEN-UPDATE-HDR-88) DESBD411 00681 OR DESBD411 00682 (LECM-MST-OPEN-UPDATE-88) DESBD411 00683 OR DESBD411 00684 (LECM-REF-OPEN-UPDATE-88) DESBD411 00685 NEXT SENTENCE DESBD411 00686 ELSE DESBD411 00687 DISPLAY '** ' DESBD411 00688 ' **' DESBD411 00689 DISPLAY '** NO SPECIAL ACTIONS NEEDED. ' DESBD411 00690 ' **'. DESBD411 00691 DESBD411 00692 DISPLAY '** ' DESBD411 00693 ' **'. DESBD411 00694 DESBD411 00695 DISPLAY '****************************************' DESBD411 00696 '****************************************'. DESBD411 00697 DESBD411 00698 DISPLAY ' '. DESBD411 00699 DESBD411 00700 DISPLAY ' '. DESBD411 00701 I6000-EXIT. DESBD411 00702 EXIT. DESBD411 00703 EJECT DESBD411 00704 P0000-PROCESS. DESBD411 00705 SET LECM-PROCESS-88 TO TRUE. DESBD411 00706 DESBD411 00707 MOVE LOW-VALUES TO ELOG-REC. DESBD411 00708 SET ELOG-LOG-88 TO TRUE. DESBD411 00709 MOVE ZERO TO ELOG-LOG-NO DESBD411 00710 MOVE ELOG-KEY-AREA TO ESKL-KEY-AREA. DESBD411 00711 DESBD411 00712 PERFORM S935-START-BROWSE THRU S935-EXIT. DESBD411 00713 IF L935-OK-88 DESBD411 00714 MOVE ESKL-REC TO ELOG-REC DESBD411 00715 ELSE DESBD411 00716 DISPLAY 'LOG FILE EMPTY' DESBD411 00717 SET L935-NO-REC-88 TO TRUE DESBD411 00718 GO TO P0000-EXIT. DESBD411 00719 DESBD411 00720 PERFORM P1000-READ-NEXT THRU P1000-EXIT DESBD411 00721 UNTIL L935-NO-REC-88. DESBD411 00722 P0000-EXIT. DESBD411 00723 EXIT. DESBD411 00724 EJECT DESBD411 00725 P1000-READ-NEXT. DESBD411 00726 MOVE LOW-VALUES TO EPRF-REC. DESBD411 00727 SET EPRF-PRF-88 TO TRUE. DESBD411 00728 MOVE ELOG-ELF-ID TO EPRF-ELF-ID. DESBD411 00729 MOVE ELOG-DATA-TYPE-CD TO EPRF-DATA-TYPE-CD. DESBD411 00730 MOVE EPRF-KEY-AREA TO ESKL-KEY-AREA. DESBD411 00731 DESBD411 00732 PERFORM S935-READ THRU S935-EXIT. DESBD411 00733 IF L935-OK-88 DESBD411 00734 MOVE ESKL-REC TO EPRF-REC DESBD411 00735 ELSE DESBD411 00736 DISPLAY 'CANNOT READ PRF ' EPRF-ELF-ID DESBD411 00737 SET L935-NO-REC-88 TO TRUE DESBD411 00738 GO TO P1000-EXIT. DESBD411 00739 DESBD411 00740 ADD +1 TO WRK-ELOG-CNT. DESBD411 00741 DESBD411 00742 SET WRK-LOG-UPDATED-NO-88 TO TRUE. DESBD411 00743 DESBD411 00744 MOVE LECM-RUN-ABSTIME TO LECM-EMP-ABSTIME. DESBD411 00745 DESBD411 00746 PERFORM S1000-CALL-EXTRACT THRU S1000-EXIT DESBD411 00747 VARYING WRK-EXT-IDX FROM 1 BY 1 DESBD411 00748 UNTIL WRK-EXT-IDX > WRK-EXTRACT-CNT. DESBD411 00749 DESBD411 00750 IF WRK-LOG-UPDATED-YES-88 DESBD411 00751 PERFORM P1100-EMPLOYER-UPDATED THRU P1100-EXIT. DESBD411 00752 DESBD411 00753 MOVE ELOG-KEY-AREA TO ESKL-KEY-AREA. DESBD411 00754 PERFORM S935-START-BROWSE THRU S935-EXIT. DESBD411 00755 PERFORM S935-READ-NEXT THRU S935-EXIT. DESBD411 00756 IF L935-OK-88 DESBD411 00757 MOVE ESKL-REC TO ELOG-REC DESBD411 00758 ELSE DESBD411 00759 SET L935-NO-REC-88 TO TRUE. DESBD411 00760 DESBD411 00761 P1000-EXIT. DESBD411 00762 EXIT. DESBD411 00763 SKIP3 DESBD411 00764 P1100-EMPLOYER-UPDATED. DESBD411 00765 IF EPRF-UPD-ACTIVE-88 DESBD411 00766 NEXT SENTENCE DESBD411 00767 ELSE DESBD411 00768 MOVE LECM-RUN-ABSTIME TO EPRF-UPDATE-END-ABSTIME DESBD411 00769 MOVE +0 TO MPRF-UPDATE-TASK-ID DESBD411 00770 MOVE 'BATCH' TO EPRF-UPDATE-OP-ID DESBD411 00771 MOVE SPACES TO EPRF-UPDATE-TERMID DESBD411 00772 MOVE SPACES TO EPRF-UPDATE-NETNAME DESBD411 00773 MOVE LECM-SYS-DATE TO EPRF-UPDATE-START-DATE DESBD411 00774 MOVE LECM-SYS-TIME TO EPRF-UPDATE-START-TIME DESBD411 00775 MOVE SPACES TO EPRF-UPDATE-SCR-ID DESBD411 00776 EPRF-UPDATE-FUNCTION DESBD411 00777 MOVE LECM-CURR-RUN-DATE TO EPRF-CHNG-DATE. DESBD411 00778 DESBD411 00779 MOVE EPRF-REC TO ESKL-REC. DESBD411 00780 PERFORM S935-REWRITE THRU S935-EXIT. DESBD411 00781 DESBD411 00782 MOVE ELOG-REC TO ESKL-REC. DESBD411 00783 PERFORM S935-REWRITE THRU S935-EXIT. DESBD411 00784 DESBD411 00785 ADD +1 TO WRK-UPDATED-CNT. DESBD411 00786 P1100-EXIT. DESBD411 00787 EXIT. DESBD411 00788 EJECT DESBD411 00789 T0000-TERMINATE. DESBD411 00790 IF WRK-ONLY-CHECK-PARM-IND = 'Y' DESBD411 00791 NEXT SENTENCE DESBD411 00792 ELSE DESBD411 00793 SET LECM-TERMINATE-88 TO TRUE DESBD411 00794 PERFORM S1000-CALL-EXTRACT THRU S1000-EXIT DESBD411 00795 VARYING WRK-EXT-IDX FROM 1 BY 1 DESBD411 00796 UNTIL WRK-EXT-IDX > WRK-EXTRACT-CNT. DESBD411 00797 DESBD411 00798 DESBD411 00799 DISPLAY ' '. DESBD411 00800 DESBD411 00801 DISPLAY '*** DESBD411 TERMINATION STATISTICS ***'. DESBD411 00802 DESBD411 00803 DISPLAY ' '. DESBD411 00804 DESBD411 00805 DISPLAY 'NUMBER OF MASTER FILE PROFILE RECORDS ENCOUNTERED: 'DESBD411 00806 WRK-ELOG-CNT. DESBD411 00807 DESBD411 00808 DISPLAY ' '. DESBD411 00809 DESBD411 00810 DISPLAY 'NUMBER OF MASTER FILE EMPLOYERS UPDATED : 'DESBD411 00811 WRK-UPDATED-CNT. DESBD411 00812 DESBD411 00813 DISPLAY ' '. DESBD411 00814 DESBD411 00815 DISPLAY 'MODULE LINKAGE - RUN TYPE : ' DESBD411 00816 LECM-RUN-TYPE. DESBD411 00817 DESBD411 00818 DISPLAY ' '. DESBD411 00819 DESBD411 00820 DISPLAY 'MODULE LINKAGE - PERIOD START DATE : ' DESBD411 00821 LECM-PERIOD-START-DATE. DESBD411 00822 DESBD411 00823 DISPLAY ' '. DESBD411 00824 DESBD411 00825 DISPLAY 'MODULE LINKAGE - PERIOD END DATE : ' DESBD411 00826 LECM-PERIOD-END-DATE. DESBD411 00827 DESBD411 00828 DISPLAY ' '. DESBD411 00829 DESBD411 00830 DESBD411 00831 PERFORM S935-CLOSE THRU S935-EXIT. DESBD411 00832 DESBD411 00833 PERFORM S921-CLOSE THRU S921-EXIT. DESBD411 00834 DESBD411 00835 PERFORM S927-CLOSE THRU S927-EXIT. DESBD411 00836 DESBD411 00837 PERFORM S931-CLOSE THRU S931-EXIT. DESBD411 00838 DESBD411 00839 MOVE -1 TO RSK1-LENGTH. DESBD411 00840 DESBD411 00841 PERFORM S946-RPT-O THRU S946-EXIT. DESBD411 00842 DESBD411 00843 DESBD411 00844 PERFORM S005-FROM-SYS THRU S005-EXIT. DESBD411 00845 DESBD411 00846 COMPUTE WRK-STEP-DURATION ROUNDED DESBD411 00847 = (L005-ABSTIME - WRK-START-ABSTIME ) / 1000. DESBD411 00848 DESBD411 00849 DISPLAY '*** ' DESBD411 00850 WRK-STEP-DURATION-X DESBD411 00851 ' STEP DURATION (SECONDS)'. DESBD411 00852 DESBD411 00853 *****MOVE WRK-MST-OPEN-IND TO LECM-MST-OPEN-IND. DESBD411 00854 DESBD411 00855 *****MOVE WRK-REF-OPEN-IND TO LECM-REF-OPEN-IND. DESBD411 00856 DESBD411 00857 *****IF LECM-MST-OPEN-READ-88 DESBD411 00858 ***** MOVE +0 TO RETURN-CODE DESBD411 00859 *****ELSE DESBD411 00860 *****IF LECM-MST-OPEN-UPDATE-HDR-88 DESBD411 00861 ***** MOVE +1 TO RETURN-CODE DESBD411 00862 *****ELSE DESBD411 00863 ***** MOVE +2 TO RETURN-CODE. DESBD411 00864 T0000-EXIT. DESBD411 00865 EXIT. DESBD411 00866 EJECT DESBD411 00867 S1000-CALL-EXTRACT. DESBD411 00868 SET LECM-EMP-UPDATED-NO-88 TO TRUE. DESBD411 00869 DESBD411 00870 MOVE WRK-EXTRACT-PARMS (WRK-EXT-IDX) DESBD411 00871 TO LECM-EXTRACT-PARMS. DESBD411 00872 DESBD411 00873 MOVE WRK-EXTRACT-ID (WRK-EXT-IDX) TO EXTRACT-MOD-ID. DESBD411 00874 DESBD411 00875 CALL EXTRACT-MOD-NAME USING LECM-LINK-AREA DESBD411 00876 EPRF-REC DESBD411 00877 ELOG-REC. DESBD411 00878 DESBD411 00879 IF LECM-EMP-UPDATED-YES-88 DESBD411 00880 PERFORM S1100-EMPLOYER-UPDATED THRU S1100-EXIT. DESBD411 00881 S1000-EXIT. DESBD411 00882 EXIT. DESBD411 00883 SKIP3 DESBD411 00884 S1100-EMPLOYER-UPDATED. DESBD411 00885 IF LECM-PROCESS-88 DESBD411 00886 NEXT SENTENCE DESBD411 00887 ELSE DESBD411 00888 GO TO S1100-EXIT. DESBD411 00889 DESBD411 00890 SET WRK-LOG-UPDATED-YES-88 TO TRUE. DESBD411 00891 DESBD411 00892 IF EPRF-UPD-ACTIVE-88 DESBD411 00893 MOVE MSG1-ID TO R907-MSG-ID DESBD411 00894 MOVE EPRF-ELF-ID TO R907-EMP-NO DESBD411 00895 MOVE EXTRACT-MOD-ID TO MSG1-EXTRACT-ID DESBD411 00896 MOVE MSG1-TEXT TO R907-MSG-TEXT DESBD411 00897 MOVE WRK-MOD-NAME TO R907-MODULE-NAME DESBD411 00898 MOVE R907-REC TO RSKL-REC DESBD411 00899 PERFORM S946-RPT-O THRU S946-EXIT. DESBD411 00900 S1100-EXIT. DESBD411 00901 EXIT. DESBD411 00902 EJECT DESBD411 00903 S005-FROM-SYS. DESBD411 00904 SET L005-FROM-SYS TO TRUE. DESBD411 00905 GO TO S005-ABSTIME. DESBD411 00906 DESBD411 00907 S005-ABSTIME. DESBD411 00908 CALL 'DTSBU005' USING L005-LINK-AREA. DESBD411 00909 S005-EXIT. DESBD411 00910 EXIT. DESBD411 00911 SKIP3 DESBD411 00912 S910-OPEN-READ. DESBD411 00913 SET L910-OPEN-READ-88 TO TRUE. DESBD411 00914 GO TO S910-MSTR-IO. DESBD411 00915 DESBD411 00916 S910-OPEN-UPDATE-HDR. DESBD411 00917 SET L910-OPEN-UPDATE-HDR-88 TO TRUE. DESBD411 00918 GO TO S910-MSTR-IO. DESBD411 00919 DESBD411 00920 S910-OPEN-UPDATE. DESBD411 00921 SET L910-OPEN-UPDATE-88 TO TRUE. DESBD411 00922 GO TO S910-MSTR-IO. DESBD411 00923 DESBD411 00924 S910-READ. DESBD411 00925 SET L910-READ-88 TO TRUE. DESBD411 00926 GO TO S910-MSTR-IO. DESBD411 00927 DESBD411 00928 S910-START-BROWSE. DESBD411 00929 SET L910-START-BROWSE-88 TO TRUE. DESBD411 00930 GO TO S910-MSTR-IO. DESBD411 00931 DESBD411 00932 S910-READ-NEXT. DESBD411 00933 SET L910-READ-NEXT-88 TO TRUE. DESBD411 00934 GO TO S910-MSTR-IO. DESBD411 00935 DESBD411 00936 S910-REWRITE. DESBD411 00937 SET L910-REWRITE-88 TO TRUE. DESBD411 00938 GO TO S910-MSTR-IO. DESBD411 00939 DESBD411 00940 S910-CLOSE. DESBD411 00941 SET L910-CLOSE-88 TO TRUE. DESBD411 00942 GO TO S910-MSTR-IO. DESBD411 00943 DESBD411 00944 S910-MSTR-IO. DESBD411 00945 CALL 'DTSBU910' USING L910-LINK-AREA DESBD411 00946 MSKL-REC. DESBD411 00947 S910-EXIT. DESBD411 00948 EXIT. DESBD411 00949 SKIP3 DESBD411 00950 S921-OPEN-READ. DESBD411 00951 SET L921-OPEN-READ-88 TO TRUE. DESBD411 00952 GO TO S921-AIX-IO. DESBD411 00953 DESBD411 00954 S921-OPEN-UPDATE. DESBD411 00955 SET L921-OPEN-UPDATE-88 TO TRUE. DESBD411 00956 GO TO S921-AIX-IO. DESBD411 00957 DESBD411 00958 S921-START-BROWSE. DESBD411 00959 SET L921-START-BROWSE-88 TO TRUE. DESBD411 00960 GO TO S921-AIX-IO. DESBD411 00961 DESBD411 00962 S921-READ-NEXT. DESBD411 00963 SET L921-READ-NEXT-88 TO TRUE. DESBD411 00964 GO TO S921-AIX-IO. DESBD411 00965 DESBD411 00966 S921-CLOSE. DESBD411 00967 SET L921-CLOSE-88 TO TRUE. DESBD411 00968 GO TO S921-AIX-IO. DESBD411 00969 DESBD411 00970 S921-AIX-IO. DESBD411 00971 CALL 'DTSBU921' USING L921-LINK-AREA DESBD411 00972 ISKL-REC. DESBD411 00973 S921-EXIT. DESBD411 00974 EXIT. DESBD411 00975 SKIP3 DESBD411 00976 S927-OPEN-UPDATE. DESBD411 00977 SET L927-OPEN-UPDATE-88 TO TRUE. DESBD411 00978 GO TO S927-BTC-O. DESBD411 00979 DESBD411 00980 S927-CLOSE. DESBD411 00981 SET L927-CLOSE-88 TO TRUE. DESBD411 00982 GO TO S927-BTC-O. DESBD411 00983 DESBD411 00984 S927-BTC-O. DESBD411 00985 CALL 'DTSBU927' USING L927-LINK-AREA DESBD411 00986 RSKL-REC. DESBD411 00987 S927-EXIT. DESBD411 00988 EXIT. DESBD411 00989 SKIP3 DESBD411 00990 S931-OPEN-READ. DESBD411 00991 SET L931-OPEN-READ-88 TO TRUE. DESBD411 00992 GO TO S931-REF-IO. DESBD411 00993 DESBD411 00994 S931-OPEN-UPDATE. DESBD411 00995 SET L931-OPEN-UPDATE-88 TO TRUE. DESBD411 00996 GO TO S931-REF-IO. DESBD411 00997 DESBD411 00998 S931-CLOSE. DESBD411 00999 SET L931-CLOSE-88 TO TRUE. DESBD411 01000 GO TO S931-REF-IO. DESBD411 01001 DESBD411 01002 S931-REF-IO. DESBD411 01003 CALL 'DTSBU931' USING L931-LINK-AREA DESBD411 01004 FSKL-REC. DESBD411 01005 S931-EXIT. DESBD411 01006 EXIT. DESBD411 01007 SKIP3 DESBD411 01008 S935-OPEN-READ. DESBD411 01009 SET L935-OPEN-READ-88 TO TRUE. DESBD411 01010 GO TO S935-MSTR-IO. DESBD411 01011 DESBD411 01012 S935-OPEN-UPDATE-HDR. DESBD411 01013 SET L935-OPEN-UPDATE-HDR-88 TO TRUE. DESBD411 01014 GO TO S935-MSTR-IO. DESBD411 01015 DESBD411 01016 S935-OPEN-UPDATE. DESBD411 01017 SET L935-OPEN-UPDATE-88 TO TRUE. DESBD411 01018 GO TO S935-MSTR-IO. DESBD411 01019 DESBD411 01020 S935-READ. DESBD411 01021 SET L935-READ-88 TO TRUE. DESBD411 01022 GO TO S935-MSTR-IO. DESBD411 01023 DESBD411 01024 S935-START-BROWSE. DESBD411 01025 SET L935-START-BROWSE-88 TO TRUE. DESBD411 01026 GO TO S935-MSTR-IO. DESBD411 01027 DESBD411 01028 S935-READ-NEXT. DESBD411 01029 SET L935-READ-NEXT-88 TO TRUE. DESBD411 01030 GO TO S935-MSTR-IO. DESBD411 01031 DESBD411 01032 S935-REWRITE. DESBD411 01033 SET L935-REWRITE-88 TO TRUE. DESBD411 01034 GO TO S935-MSTR-IO. DESBD411 01035 DESBD411 01036 S935-CLOSE. DESBD411 01037 SET L935-CLOSE-88 TO TRUE. DESBD411 01038 GO TO S935-MSTR-IO. DESBD411 01039 DESBD411 01040 S935-MSTR-IO. DESBD411 01041 CALL 'DTSBU935' USING L935-LINK-AREA DESBD411 01042 ESKL-REC. DESBD411 01043 S935-EXIT. DESBD411 01044 EXIT. DESBD411 01045 SKIP3 DESBD411 01046 S946-RPT-O. DESBD411 01047 CALL 'DTSBU946' USING RSKL-REC. DESBD411 01048 S946-EXIT. DESBD411 01049 EXIT. DESBD411 01050 SKIP3 DESBD411 01051 S999-ABEND. DESBD411 01052 CALL 'DTSBU999' USING WRK-ABEND-CD. DESBD411 01053 S999-EXIT. DESBD411 01054 EXIT. DESBD411