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
