00001  IDENTIFICATION DIVISION.                                         04/26/24
00002  PROGRAM-ID.             DTSBE127.                                DTSBE127
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV064
00004  DATE-WRITTEN.           AUGUST 1994.                             DTSBE127
00005  DATE-COMPILED.                                                   DTSBE127
00006      SKIP3                                                        DTSBE127
00007 **                                                                   CL**8
00008 *                                                                 DTSBE127
00009 *    FUNCTION:  ZERO TOTAL WAGE LIST AND LETTERS EXTRACT.         DTSBE127
00010 *               (COMMONLY CALLED THE "8 QTR NONE" LIST)           DTSBE127
00011 *                                                                 DTSBE127
00012 ************ HOUSEHOLD ANNUAL FILERS ONLY *****************          CL*16
00013 *                                                                    CL*16
00014 *    MODIFICATION LOG:                                            DTSBE127
00015 *                                                                 DTSBE127
00016 *    03/14/95  DROP ADDRESS FROM REPORT.                          DTSBE127
00017 *              WORK ORDER: CR051                PROGRAMMER: RHC   DTSBE127
00018 *                                                                 DTSBE127
00019 *    02/14/96  IF PARM-END-QUARTER IS DELINQUENT USERS WANT TO    DTSBE127
00020 *              KNOW IF THE 8 QTRS PREVIOUS TO IT HAVE "NONE"      DTSBE127
00021 *              REPORTS.  ADDED HOLD-ABS-QTR, WRK-END-ABS-QTR-     DTSBE127
00022 *              MINUS-8, WRK-LAST-QTR-DELQ-IND, AND P1100-READ-    DTSBE127
00023 *              ADDL-QTR TO ACCOMODATE THEIR REQUEST.  SINCE THEY  DTSBE127
00024 *              ONLY WANT TO GO THROUGH THIS ROUTINE IF THE JOB    DTSBE127
00025 *              IS THEIR "8 QTR NONE" JOB (AS OPPOSED TO ANY OTHER DTSBE127
00026 *              NUMBER OF QUARTERS BEING EXAMINED), ALSO ADDED     DTSBE127
00027 *              WRK-USUAL-QTRS-NUM AND WRK-USUAL-QTRS-IND...       DTSBE127
00028 *              REFERENCE RFP #PROD RECOVERY     PROGRAMMER: MJA   DTSBE127
00029 *                                                                 DTSBE127
00030 *    03/12/1999  DC MODIFICATIONS.  THE PROGRAM WIL AUTOMATICALLY DTSBE127
00031 *                INACTIVATE ANY EMPLOLYER MEETING THE CRITERIA.   DTSBE127
00032 *                ADDED PROCESSING TO CREATE R116 REPORT RECORD.   DTSBE127
00033 *                REMOVED LETTER PARAMETER - THE PROGRAM WILL      DTSBE127
00034 *                PRODUCE A LETTER FOR ANY EMPLOYER INACTIVATED.   DTSBE127
00035 *                THE EXTRACT REQUESTS THAT THE MASTER FILE BE     DTSBE127
00036 *                OPENED IN UPDATE MODE - IT UPDATES THE MSOL      DTSBE127
00037 *                AND MPRF.                                        DTSBE127
00038 *                REFERENCE RFP #XXX               PROGRAMMER: GD  DTSBE127
00039 *                                                                 DTSBE127
00040 *    06/02/1999  FURTHER DC MODIFICATIONS.  THE IMPLICATIONS OF   DTSBE127
00041 *                ACTUALLY INACTIVATING EMPLOYERS DURING THIS      DTSBE127
00042 *                PROCESS (RATHER THAN JUST LISTING THEM AS        DTSBE127
00043 *                CANDIDATES FOR INACTIVATION) GOT A LITTLE UGLY.  DTSBE127
00044 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBE127
00045 *                                                                 DTSBE127
00046 *    06/29/2012  FURTHER DC MODIFICATIONS.  INACTIVATE EMPLOYERS  DTSBE127
00047 *                THAT HAVE NOT FILED A REPORT FOR 8 OR MORE       DTSBE127
00048 *                QUARTERS                                         DTSBE127
00049 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: ZL1   DTSBE127
00050 *                                                                 DTSBE127
00051 *    09/29/2017  FURTHER DC MODIFICATIONS.  INACTIVATE EMPLOYERS     CL**4
00052 *                THAT HAVE THEIR LIABILITY ESTABLISHED DATE NOT      CL**4
00053 *                WITHIN THE 8 QUARTERS IN QUESTION.                  CL**4
00054 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: ZL1      CL**4
00055 *                                                                    CL**4
00056 *                                                                    CL*14
00057 *    10/24/2017  FURTHER DC MODIFICATIONS.  DO NOT COUNT ESTIMATED   CL*14
00058 *                REPORTS AS ZERO WAGE REPORTS - DO NOT INACTIVATE    CL*14
00059 *                WITHIN THE 8 QUARTERS IN QUESTION.                  CL*14
00060 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: ZL1      CL*14
00061 *                                                                    CL*14
00062 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE127
00063 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE127
00064 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBE127
00065 *                                                                 DTSBE127
00066 *                                                                 DTSBE127
00067 *  DESCRIPTION:                                                   DTSBE127
00068 *                                                                 DTSBE127
00069 *                                                                 DTSBE127
00070 *    INITIATION:                                                  DTSBE127
00071 *                                                                 DTSBE127
00072 *      SET LECM-MST-OPEN-UPDATE-88 TO TRUE.                       DTSBE127
00073 *      SET LECM-REF-OPEN-READ-88 TO TRUE.                         DTSBE127
00074 *                                                                 DTSBE127
00075 *      EDIT AND DEFAULT PARAMETERS.  SEE PRINTED OUTPUTS          DTSBE127
00076 *      DESCRIPTIONS AND LAYOUTS (119R1 AND 119R2).                DTSBE127
00077 *                                                                 DTSBE127
00078 *                                                                 DTSBE127
00079 *    PROCESSING:                                                  DTSBE127
00080 *                                                                 DTSBE127
00081 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (119R1 AND     DTSBE127
00082 *      (119R2).                                                   DTSBE127
00083 *                                                                 DTSBE127
00084 *                                                                 DTSBE127
00085 *    TERMINATION:                                                 DTSBE127
00086 *                                                                 DTSBE127
00087 *      NONE.                                                      DTSBE127
00088 *                                                                 DTSBE127
00089 *                                                                 DTSBE127
00090 *    RECORDS READ:                                                DTSBE127
00091 *                                                                 DTSBE127
00092 *      MASTER:                                                    DTSBE127
00093 *                                                                 DTSBE127
00094 *        MQTR                                                     DTSBE127
00095 *        MSOL                                                     DTSBE127
00096 *                                                                 DTSBE127
00097 *                                                                 DTSBE127
00098 *      ALTERNATE INDEX:                                           DTSBE127
00099 *                                                                 DTSBE127
00100 *        NONE.                                                    DTSBE127
00101 *                                                                 DTSBE127
00102 *                                                                 DTSBE127
00103 *      REFERENCE:                                                 DTSBE127
00104 *                                                                 DTSBE127
00105 *        NONE.                                                    DTSBE127
00106 *                                                                 DTSBE127
00107 *                                                                 DTSBE127
00108 *    RECORDS UPDATED:                                             DTSBE127
00109 *                                                                 DTSBE127
00110 *        MSOL.                                                    DTSBE127
00111 *        MPRF.                                                    DTSBE127
00112 *        MERD.                                                    DTSBE127
00113 *                                                                 DTSBE127
00114 *                                                                 DTSBE127
00115 *    REPORT RECORDS WRITTEN:                                      DTSBE127
00116 *                                                                 DTSBE127
00117 *        R116 NEW, REACTIVATED, INACTIVATED EMPLOYERS LIST        DTSBE127
00118 *        R117 INACTIVATION LETTER.                                DTSBE127
00119 *        R119 ZERO TOTAL WAGE LIST.                               DTSBE127
00120 *                                                                 DTSBE127
00121 *                                                                 DTSBE127
00122 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE127
00123 *                                                                 DTSBE127
00124 *        NONE.                                                    DTSBE127
00125 *                                                                 DTSBE127
00126 *                                                                 DTSBE127
00127 *    MODULES CALLED:                                              DTSBE127
00128 *                                                                 DTSBE127
00129 *        DTSBU001  DATE CONVERSION/EDIT.                          DTSBE127
00130 *        DTSBU004  QUARTER CONVERSION/EDIT.                       DTSBE127
00131 *        DTSBU061  FIELD ZIP / FIELD REP ID.                      DTSBE127
00132 *        DTSBU082  OPERATOR ID EDIT/LOOKUP.                       DTSBE127
00133 *        DTSBU111  ADDRESS LOOKUP.                                DTSBE127
00134 *        DTSBU112  ADDRESS FORMAT.                                DTSBE127
00135 *        DTSBU331  FORMAT AND WRITE MLOG RECORD OCCURRENCE.       DTSBE127
00136 *        DTSBU910  MASTER FILE I/O DRIVER.                        DTSBE127
00137 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.   DTSBE127
00138 *        DTSBU927  BTC FILE OUTPUT.                               DTSBE127
00139 *                                                                 DTSBE127
00140 *****                                                             DTSBE127
00141      SKIP3                                                        DTSBE127
00142  ENVIRONMENT DIVISION.                                            DTSBE127
00143      EJECT                                                        DTSBE127
00144  DATA DIVISION.                                                   DTSBE127
00145      SKIP3                                                        DTSBE127
00146  WORKING-STORAGE SECTION.                                         DTSBE127
001465 77  PAN-VALET PICTURE X(24) VALUE '064DTSBE127  04/26/24'.       DTSBE127
00147      SKIP3                                                        DTSBE127
00148  01  WRK-AREA.                                                    DTSBE127
00149      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +127.   CL*32
00150                                                                   DTSBE127
00151      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE127'.   CL*32
00152                                                                   DTSBE127
00153      05  ALL-NINES-DATE              PIC S9(09)  COMP-3           DTSBE127
00154                                              VALUE +999999999.    DTSBE127
00155                                                                   DTSBE127
00156      05  ALL-NINES-YRQ               PIC S9(05)  COMP-3           DTSBE127
00157                                              VALUE +99999.        DTSBE127
00158                                                                   DTSBE127
00159                                                                   DTSBE127
00160      05  ABEND-MSG                       PIC  X(60).              DTSBE127
00161                                                                   DTSBE127
00162      05  WRK-MEVL-TEXT                   PIC  X(50) VALUE         DTSBE127
00163          'INACTIVATED DURING ANNUAL ADMIN OUT PROCESS   '.           CL*37
00164                                                                   DTSBE127
00165                                                                   DTSBE127
00166      05  WRK-BYPASS-IND                  PIC  X(01).              DTSBE127
00167          88  WRK-BYPASS-YES-88                  VALUE 'Y'.        DTSBE127
00168          88  WRK-BYPASS-NO-88                   VALUE 'N'.        DTSBE127
00169                                                                   DTSBE127
00170      05  AUTO-INACT-IND                  PIC  X(01).                 CL**5
00171          88  AUTO-INACT-YES-88              VALUE 'Y'.               CL**5
00172          88  AUTO-INACT-NO-88               VALUE 'N'.               CL**5
00173                                                                      CL**4
00174      05  WRK-LAST-YRQ-DELQ-IND           PIC  X(01).              DTSBE127
00175          88  WRK-LAST-YRQ-DELQ-IND-NO-88        VALUE 'N'.        DTSBE127
00176          88  WRK-LAST-YRQ-DELQ-IND-YES-88       VALUE 'Y'.        DTSBE127
00177                                                                   DTSBE127
00178      05  WRK-EMP-INACTIVATED-IND         PIC  X(01).              DTSBE127
00179          88  WRK-EMP-INACTIVATED-NO-88          VALUE 'N'.        DTSBE127
00180          88  WRK-EMP-INACTIVATED-YES-88         VALUE 'Y'.        DTSBE127
00181                                                                   DTSBE127
00182      05  WRK-LAST-NON-ZERO-WAGE-YRQ      PIC S9(05)  COMP-3.      DTSBE127
00183      05  WRK-NEXT-UC30-DEL-MAIL-YRQ      PIC S9(05)  COMP-3.      DTSBE127
00184      05  WRK-INACT-DATE                  PIC S9(09)  COMP-3.      DTSBE127
00185      05  WRK-START-YRQ-DATE        PIC S9(09)  COMP-3 VALUE 0.       CL**6
00186      05  WRK-END-YRQ-DATE          PIC S9(09)  COMP-3 VALUE 0.       CL**6
00187      05  WRK-NEVER-FILED                 PIC 9(01)   VALUE 0.     DTSBE127
00188      05  NEXT-QTR-REC-FOUND              PIC  9(07)  VALUE 0.     DTSBE127
00189      05  WRK-LECM-PARM-END-YRQ           PIC  9(03)  VALUE 0.        CL*18
00190      05  ZRK-LECM-PARM-END-YRQ REDEFINES WRK-LECM-PARM-END-YRQ.      CL*22
00191          10 ZRK-LECM-PARM-END-YY         PIC  9(02).                 CL*23
00192          10 ZRK-LECM-PARM-END-YQ         PIC  9(01).                 CL*23
00193      05  ACT-EMP                         PIC  9(07)  VALUE 0.        CL*18
00194      05  INA-EMP                         PIC  9(07)  VALUE 0.     DTSBE127
00195      05  SUB-EMP                         PIC  9(07)  VALUE 0.     DTSBE127
00196      05  SEL-EMP                         PIC  9(07)  VALUE 0.     DTSBE127
00197      05  TOT-EMP                         PIC  9(07)  VALUE 0.     DTSBE127
00198      05  ICL-EMP                         PIC  9(07)  VALUE 0.     DTSBE127
00199      05  TOT-READ-ANN-FILER              PIC  9(07)  VALUE 0.     DTSBE127
00200      05  TOT-SELF-INS-FILER              PIC  9(07)  VALUE 0.     DTSBE127
00201      05  ZERO-WAGE-EMP                   PIC  9(07)  VALUE 0.     DTSBE127
00202      05  MISS-WAGE-EMP                   PIC  9(07)  VALUE 0.     DTSBE127
00203      05  TOTL-WAGE-EMP                   PIC  9(07)  VALUE 0.     DTSBE127
00204      05  ESTM-WAGE-EMP                   PIC  9(07)  VALUE 0.        CL*12
00205      05  ZERO-WAGES                      PIC  9(07)  VALUE 0.     DTSBE127
00206      05  MISS-WAGES                      PIC  9(07)  VALUE 0.     DTSBE127
00207      05  TOTL-WAGES                      PIC  9(07)  VALUE 0.     DTSBE127
00208      EJECT                                                        DTSBE127
00209  01  L001-LINK-AREA.                                              DTSBE127
00210  ++INCLUDE DTSIL001                                               DTSBE127
00211      EJECT                                                        DTSBE127
00212  01  L004-LINK-AREA.                                              DTSBE127
00213  ++INCLUDE DTSIL004                                               DTSBE127
00214      EJECT                                                        DTSBE127
00215  01  L005-LINK-AREA.                                              DTSBE127
00216  ++INCLUDE DTSIL005                                               DTSBE127
00217      EJECT                                                        DTSBE127
00218  01  L061-LINK-AREA.                                              DTSBE127
00219  ++INCLUDE DTSIL061                                               DTSBE127
00220      EJECT                                                        DTSBE127
00221  01  L082-LINK-AREA.                                              DTSBE127
00222  ++INCLUDE DTSIL082                                               DTSBE127
00223      EJECT                                                        DTSBE127
00224  01  L111-LINK-AREA.                                              DTSBE127
00225  ++INCLUDE DTSIL111                                               DTSBE127
00226      EJECT                                                        DTSBE127
00227  01  L112-LINK-AREA.                                              DTSBE127
00228  ++INCLUDE DTSIL112                                               DTSBE127
00229      EJECT                                                        DTSBE127
00230  01  L331-LINK-AREA.                                              DTSBE127
00231  ++INCLUDE DTSIL331                                               DTSBE127
00232      EJECT                                                        DTSBE127
00233  01  L910-LINK-AREA.                                              DTSBE127
00234  ++INCLUDE DTSIL910                                               DTSBE127
00235      EJECT                                                        DTSBE127
00236  01  MSKL-REC.                                                    DTSBE127
00237  ++INCLUDE DTSIMSKL                                               DTSBE127
00238      EJECT                                                        DTSBE127
00239  01  MQTR-REC.                                                    DTSBE127
00240  ++INCLUDE DTSIMQTR                                               DTSBE127
00241      EJECT                                                        DTSBE127
00242  01  MSOL-REC.                                                    DTSBE127
00243  ++INCLUDE DTSIMSOL                                               DTSBE127
00244      EJECT                                                        DTSBE127
00245  01  MERD-REC.                                                    DTSBE127
00246  ++INCLUDE DTSIMERD                                               DTSBE127
00247      EJECT                                                        DTSBE127
00248  01  MEVL-REC.                                                    DTSBE127
00249  ++INCLUDE DTSIMEVL                                               DTSBE127
00250      EJECT                                                        DTSBE127
00251  01  R116-REC.                                                    DTSBE127
00252  ++INCLUDE DTSIR116                                               DTSBE127
00253      EJECT                                                        DTSBE127
00254  01  R117-REC.                                                    DTSBE127
00255  ++INCLUDE DTSIR117                                               DTSBE127
00256      EJECT                                                        DTSBE127
00257  01  R119-REC.                                                    DTSBE127
00258  ++INCLUDE DTSIR119                                               DTSBE127
00259      EJECT                                                        DTSBE127
00260  01  L927-LINK-AREA.                                              DTSBE127
00261  ++INCLUDE DTSIL927                                               DTSBE127
00262      EJECT                                                        DTSBE127
00263  01  L516-LINK-AREA.                                              DTSBE127
00264  ++INCLUDE DTSIL516                                               DTSBE127
00265      EJECT                                                        DTSBE127
00266  01  T031-REC.                                                    DTSBE127
00267  ++INCLUDE DTSIT031                                               DTSBE127
00268      EJECT                                                        DTSBE127
00269  ++INCLUDE OJRWE119                                               DTSBE127
00270      EJECT                                                        DTSBE127
00271  LINKAGE SECTION.                                                 DTSBE127
00272      SKIP3                                                        DTSBE127
00273  01  LECM-LINK-AREA.                                              DTSBE127
00274  ++INCLUDE DTSILECM                                               DTSBE127
00275      SKIP3                                                        DTSBE127
00276          10  FILLER REDEFINES LECM-EXTRACT-PARMS.                 DTSBE127
00277              15  LECM-PARM-RESP-OP-ID    PIC  X(08).              DTSBE127
00278              15  FILLER                  PIC  X(01).              DTSBE127
00279              15  LECM-PARM-START-YRQ     PIC  X(03).                 CL*18
00280              15  FILLER                  PIC  X(01).              DTSBE127
00281              15  LECM-PARM-END-YRQ       PIC  X(03).                 CL*18
00282              15  FILLER                  PIC  X(01).              DTSBE127
00283              15  LECM-PARM-AUTO-INACT-IND PIC X(01).              DTSBE127
00284              15  FILLER                  PIC  X(01).              DTSBE127
00285              15  LECM-PARM-EMP-CLASS     PIC  X(01).              DTSBE127
00286              15  FILLER                  PIC  X(48).              DTSBE127
00287      EJECT                                                        DTSBE127
00288  01  MPRF-LINK-REC.                                               DTSBE127
00289  ++INCLUDE DTSIMPRF                                               DTSBE127
00290      EJECT                                                        DTSBE127
00291  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE127
00292                           MPRF-LINK-REC.                          DTSBE127
00293                                                                   DTSBE127
00294      EVALUATE TRUE                                                DTSBE127
00295          WHEN LECM-PROCESS-88                                     DTSBE127
00296              PERFORM P0000-PROCESS THRU P0000-EXIT                DTSBE127
00297                                                                   DTSBE127
00298          WHEN LECM-INITIALIZE-88                                  DTSBE127
00299              SET WRK-EDIT-PASSED-88   TO TRUE                     DTSBE127
00300              PERFORM I0000-INITIALIZE THRU I0000-EXIT             DTSBE127
00301              IF WRK-EDIT-FAILED-88                                DTSBE127
00302                  PERFORM S999-ABEND THRU S999-EXIT                DTSBE127
00303              END-IF                                               DTSBE127
00304                                                                   DTSBE127
00305          WHEN LECM-TERMINATE-88                                   DTSBE127
00306              PERFORM T0000-TERMINATE THRU T0000-EXIT              DTSBE127
00307                                                                   DTSBE127
00308          WHEN OTHER                                               DTSBE127
00309              MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'        DTSBE127
00310                    TO ABEND-MSG                                   DTSBE127
00311              PERFORM S999-ABEND THRU S999-EXIT                    DTSBE127
00312                                                                   DTSBE127
00313      END-EVALUATE.                                                DTSBE127
00314                                                                   DTSBE127
00315      SKIP2                                                        DTSBE127
00316      GOBACK.                                                      DTSBE127
00317      EJECT                                                        DTSBE127
00318  I0000-INITIALIZE.                                                DTSBE127
00319      MOVE LECM-TRACE-IND TO L910-TRACE-IND.                       DTSBE127
00320                                                                   DTSBE127
00321      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBE127
00322                                                                   DTSBE127
00323                                                                   DTSBE127
00324      MOVE LECM-TRACE-IND TO L927-TRACE-IND.                       DTSBE127
00325                                                                   DTSBE127
00326      MOVE WRK-MOD-NAME TO L927-MOD-NAME.                          DTSBE127
00327                                                                   DTSBE127
00328                                                                   DTSBE127
00329      MOVE LENGTH OF R116-REC TO R116-LENGTH.                      DTSBE127
00330                                                                   DTSBE127
00331      MOVE '116' TO R116-REC-TYPE.                                 DTSBE127
00332                                                                   DTSBE127
00333                                                                   DTSBE127
00334      MOVE LENGTH OF R117-REC TO R117-LENGTH.                      DTSBE127
00335                                                                   DTSBE127
00336      MOVE '117' TO R117-REC-TYPE.                                 DTSBE127
00337                                                                   DTSBE127
00338                                                                   DTSBE127
00339      MOVE LENGTH OF R119-REC TO R119-LENGTH.                      DTSBE127
00340                                                                   DTSBE127
00341      MOVE '119' TO R119-REC-TYPE.                                 DTSBE127
00342                                                                   DTSBE127
00343                                                                   DTSBE127
00344      MOVE LENGTH OF T031-REC TO T031-LENGTH.                      DTSBE127
00345                                                                   DTSBE127
00346      MOVE '031' TO T031-REC-TYPE.                                 DTSBE127
00347                                                                   DTSBE127
00348 *OJR                                                              DTSBE127
00349 **************                                                    DTSBE127
00350      DISPLAY '##'                                                 DTSBE127
00351      DISPLAY 'LOPID ' LECM-PARM-RESP-OP-ID                        DTSBE127
00352      DISPLAY 'LSYRQ ' LECM-PARM-START-YRQ                         DTSBE127
00353      DISPLAY 'LEYRQ ' LECM-PARM-END-YRQ                           DTSBE127
00354      DISPLAY 'LAINA ' LECM-PARM-AUTO-INACT-IND                    DTSBE127
00355      DISPLAY 'LEMPC ' LECM-PARM-EMP-CLASS                         DTSBE127
00356      DISPLAY 'LMYRQ ' LECM-LAST-UC30-DEL-MAIL-YRQ                 DTSBE127
00357      DISPLAY 'LFPUR ' LECM-FIRST-PURSUED-RPT-YRQ                  DTSBE127
00358 **************                                                    DTSBE127
00359      MOVE LECM-PARM-RESP-OP-ID      TO OJR-PARM-RESP-OP-ID.       DTSBE127
00360      MOVE LECM-PARM-START-YRQ       TO OJR-PARM-START-YRQ.        DTSBE127
00361      MOVE LECM-PARM-END-YRQ         TO OJR-PARM-END-YRQ.          DTSBE127
00362      MOVE LECM-PARM-AUTO-INACT-IND  TO OJR-PARM-AUTO-INACT-IND.   DTSBE127
00363      MOVE LECM-PARM-EMP-CLASS       TO OJR-PARM-EMP-CLASS.        DTSBE127
00364      MOVE LECM-LAST-UC30-DEL-MAIL-YRQ                             DTSBE127
00365                                 TO OJR-LAST-UC30-DEL-MAIL-YRQ.    DTSBE127
00366      MOVE LECM-FIRST-PURSUED-RPT-YRQ                              DTSBE127
00367                                     TO OJR-FIRST-PURSUED-RPT-YRQ. DTSBE127
00368                                                                   DTSBE127
00369                                                                   DTSBE127
00370      PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT.        DTSBE127
00371                                                                   DTSBE127
00372 *        10 ZRK-LECM-PARM-END-YY         PIC  9(02)  VALUE 0.        CL*22
00373 *        10 ZRK-LECM-PARM-END-YQ         PIC  9(01)  VALUE 0.        CL*22
00374 *    MOVE LECM-PARM-END-YRQ TO WRK-LECM-PARM-END-YRQ                 CL*22
00375 *    COMPUTE WRK-NEXT-UC30-DEL-MAIL-YRQ =                            CL*22
00376 *        WRK-LECM-PARM-END-YRQ + 1.                                  CL*22
00377      MOVE 20241 TO WRK-NEXT-UC30-DEL-MAIL-YRQ.                       CL*64
00378                                                                   DTSBE127
00379      DISPLAY '##'                                                    CL**7
00380      DISPLAY 'WRKSTART-DATE: ' WRK-START-YRQ-DATE.                   CL**7
00381      DISPLAY 'WRKEND---DATE: ' WRK-END-YRQ-DATE.                     CL**7
00382      DISPLAY ' NEXT DELQ YRQ ' WRK-NEXT-UC30-DEL-MAIL-YRQ.        DTSBE127
00383                                                                   DTSBE127
00384      IF WRK-PARM-AUTO-INACT-YES-88                                DTSBE127
00385          SET LECM-MST-OPEN-UPDATE-88 TO TRUE                      DTSBE127
00386      ELSE                                                         DTSBE127
00387          SET LECM-MST-OPEN-READ-88 TO TRUE.                       DTSBE127
00388                                                                   DTSBE127
00389      SET LECM-REF-OPEN-READ-88 TO TRUE.                           DTSBE127
00390      SKIP2                                                        DTSBE127
00391  I0000-EXIT.                                                      DTSBE127
00392      EXIT.                                                        DTSBE127
00393                                                                   DTSBE127
00394      SKIP3                                                        DTSBE127
00395  ++INCLUDE OJRPE127                                                  CL*33
00396      SKIP3                                                        DTSBE127
00397                                                                   DTSBE127
00398  P0000-PROCESS.                                                   DTSBE127
00399 *    DISPLAY 'RESP-ID3411 ' LECM-PARM-RESP-OP-ID                  DTSBE127
00400      ADD 1 TO TOT-EMP.                                            DTSBE127
00401      IF MPRF-STATUS-ACT-88                                        DTSBE127
00402         ADD 1 TO ACT-EMP                                          DTSBE127
00403      ELSE                                                         DTSBE127
00404         ADD 1 TO INA-EMP                                          DTSBE127
00405          GO TO P0000-EXIT.                                        DTSBE127
00406                                                                   DTSBE127
00407      IF WRK-PARM-CLASS-ALL-88                                     DTSBE127
00408          IF MPRF-CLASS-SUB-88                                     DTSBE127
00409              NEXT SENTENCE                                        DTSBE127
00410          ELSE                                                     DTSBE127
00411              ADD 1 TO SUB-EMP                                     DTSBE127
00412              GO TO P0000-EXIT                                     DTSBE127
00413      ELSE                                                         DTSBE127
00414          IF MPRF-EMP-CLASS = WRK-PARM-EMP-CLASS                   DTSBE127
00415              NEXT SENTENCE                                        DTSBE127
00416          ELSE                                                     DTSBE127
00417              ADD 1 TO ICL-EMP                                     DTSBE127
00418           DISPLAY 'EMP CLASS ' MPRF-EMP-NO                           CL*43
00419              GO TO P0000-EXIT.                                    DTSBE127
00420                                                                   DTSBE127
00421       MOVE WRK-PARM-START-YRQ       TO L516-YRQ.                  DTSBE127
00422       PERFORM S516-LIABILITY THRU S516-EXIT.                      DTSBE127
00423                                                                   DTSBE127
00424       IF NOT L516-ANN-SCHED-88                                       CL*16
00425           DISPLAY 'NOT ANNUL ' MPRF-EMP-NO                           CL*43
00426           GO TO P0000-EXIT.                                          CL**4
00427                                                                      CL*25
00428       ADD 1 TO TOT-READ-ANN-FILER                                    CL*26
00429       IF MPRF-CLASS-SELF-INS-88                                   DTSBE127
00430          ADD 1 TO TOT-SELF-INS-FILER                                 CL*29
00431          GO TO P0000-EXIT.                                           CL*25
00432                                                                   DTSBE127
00433      SET WRK-BYPASS-NO-88 TO TRUE.                                DTSBE127
00434                                                                   DTSBE127
00435      SET WRK-LAST-YRQ-DELQ-IND-NO-88 TO TRUE.                     DTSBE127
00436                                                                   DTSBE127
00437      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSBE127
00438                                                                   DTSBE127
00439      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBE127
00440                                                                   DTSBE127
00441      SET MQTR-QTR-88 TO TRUE.                                     DTSBE127
00442                                                                   DTSBE127
00443      MOVE WRK-PARM-START-ABS-QTR TO L004-ABS-QTR.                 DTSBE127
00444      MOVE +0 TO ZERO-WAGE-EMP MISS-WAGE-EMP TOTL-WAGE-EMP            CL*12
00445                 ESTM-WAGE-EMP.                                       CL*12
00446                                                                   DTSBE127
00447      PERFORM                                                      DTSBE127
00448        UNTIL (WRK-BYPASS-YES-88)                                  DTSBE127
00449                    OR                                             DTSBE127
00450              (L004-ABS-QTR > WRK-PARM-END-ABS-QTR)                DTSBE127
00451          PERFORM S004-FROM-ABS THRU S004-EXIT                     DTSBE127
00452          MOVE L004-QTR-5-9 TO MQTR-YRQ                            DTSBE127
00453          MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA                      DTSBE127
00454          PERFORM S910-READ THRU S910-EXIT                         DTSBE127
00455          PERFORM P1000-EXAMINE-MQTR THRU P1000-EXIT               DTSBE127
00456          ADD +1 TO L004-ABS-QTR                                   DTSBE127
00457      END-PERFORM.                                                 DTSBE127
00458                                                                   DTSBE127
00459      COMPUTE TOTL-WAGE-EMP = ZERO-WAGE-EMP + MISS-WAGE-EMP        DTSBE127
00460                                                                   DTSBE127
00461      IF ZERO-WAGE-EMP = 08 OR                                        CL*37
00462         MISS-WAGE-EMP = 08 OR                                        CL*37
00463         TOTL-WAGE-EMP = 08                                           CL*37
00464         NEXT SENTENCE                                             DTSBE127
00465      ELSE                                                         DTSBE127
00466           DISPLAY 'NOT 8 QTR ' MPRF-EMP-NO                           CL*43
00467          GO TO P0000-EXIT.                                        DTSBE127
00468                                                                   DTSBE127
00469      IF ZERO-WAGE-EMP = 08                                           CL*37
00470         ADD 1 TO ZERO-WAGES                                       DTSBE127
00471      ELSE                                                         DTSBE127
00472       IF MISS-WAGE-EMP = 08                                          CL*37
00473          ADD 1 TO MISS-WAGES                                      DTSBE127
00474      ELSE                                                         DTSBE127
00475        IF TOTL-WAGE-EMP = 08                                         CL*37
00476           ADD 1 TO TOTL-WAGES                                     DTSBE127
00477      ELSE                                                         DTSBE127
00478          GO TO P0000-EXIT.                                        DTSBE127
00479                                                                   DTSBE127
00480      PERFORM P1900-EXAMINE-NEXT-MQTR THRU P1900-EXIT              DTSBE127
00481                                                                   DTSBE127
00482      IF WRK-BYPASS-YES-88                                         DTSBE127
00483        GO TO P0000-EXIT.                                          DTSBE127
00484                                                                   DTSBE127
00485      DISPLAY 'SELECTED FOR INACTIVATION  ' MQTR-EMP-NO            DTSBE127
00486         'MQTR-YRQ ' MQTR-YRQ  ' RPT TYPE ' MQTR-CURR-RPT-TYPE.    DTSBE127
00487                                                                      CL**8
00488      SET R119-AUTOMATIC-INACT-YES-88 TO TRUE.                        CL*15
00489      SET AUTO-INACT-YES-88 TO TRUE                                   CL**8
00490                                                                      CL*15
00491      MOVE LOW-VALUES TO MSKL-KEY-AREA.                               CL*36
00492                                                                      CL**8
00493      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                                CL*36
00494                                                                      CL**8
00495      SET MSKL-SOL-88 TO TRUE.                                        CL*36
00496                                                                      CL**8
00497      PERFORM S910-START-BROWSE THRU S910-EXIT.                       CL*36
00498      PERFORM UNTIL L910-NO-REC-88                                    CL*36
00499         MOVE MSKL-REC TO MSOL-REC                                    CL*36
00500         IF MSOL-INACT-ACTIVE-88                                      CL*36
00501            IF MSOL-ESTB-DATE > WRK-START-YRQ-DATE OR                 CL*60
00502               MSOL-INACT-REVERSE-DATE > WRK-START-YRQ-DATE           CL*62
00503         DISPLAY 'INA ' MSOL-EMP-NO ' ' MSOL-INACT-REVERSE-DATE       CL*59
00504               SET AUTO-INACT-NO-88 TO TRUE                           CL*36
00505           END-IF                                                     CL*61
00506         END-IF                                                       CL*36
00507         PERFORM S910-READ-NEXT    THRU S910-EXIT                     CL*36
00508      END-PERFORM.                                                    CL*36
00509                                                                      CL**8
00510      IF AUTO-INACT-NO-88                                             CL*36
00511         DISPLAY ' INACTIVATION CANNOT OCCUR - LIABILITY OCCURRED '   CL*36
00512         MPRF-EMP-NO ' LIAB ESTB DATE: ' MSOL-ESTB-DATE               CL*36
00513         SET R119-AUTO-INACT-NO-LIAB-88 TO TRUE                       CL*36
00514         PERFORM P3000-CONSTRUCT-R119 THRU P3000-EXIT                 CL*36
00515      GO TO P0000-EXIT.                                               CL*36
00516                                                                      CL**8
00517      ADD 1 TO SEL-EMP.                                            DTSBE127
00518      SET WRK-EMP-INACTIVATED-NO-88 TO TRUE.                          CL*36
00519                                                                   DTSBE127
00520 *    IF ESTM-WAGE-EMP > 0                                            CL*32
00521 *       SET R119-AUTO-INACT-NO-ESTM-88 TO TRUE                       CL*32
00522 *       DISPLAY ' INACTIVATION CANNOT OCCUR - ESTIMATED OCCURRED '   CL*32
00523 *       PERFORM P3000-CONSTRUCT-R119 THRU P3000-EXIT                 CL*32
00524 *    GO TO P0000-EXIT.                                               CL*32
00525                                                                      CL*13
00526                                                                   DTSBE127
00527      IF WRK-PARM-AUTO-INACT-YES-88                                DTSBE127
00528          PERFORM P2000-INACTIVATE-EMP THRU P2000-EXIT.            DTSBE127
00529                                                                   DTSBE127
00530                                                                   DTSBE127
00531      PERFORM P3000-CONSTRUCT-R119 THRU P3000-EXIT.                DTSBE127
00532  P0000-EXIT.                                                      DTSBE127
00533      EXIT.                                                        DTSBE127
00534      EJECT                                                        DTSBE127
00535  P1000-EXAMINE-MQTR.                                              DTSBE127
00536      IF L910-NO-REC-88                                            DTSBE127
00537          DISPLAY 'QTR REC NOT FOUND: ' MPRF-EMP-NO ' ' MQTR-YRQ      CL*26
00538          ADD 1 TO MISS-WAGE-EMP                                      CL*11
00539 *        SET WRK-BYPASS-YES-88 TO TRUE                               CL*11
00540          GO TO P1000-EXIT.                                        DTSBE127
00541                                                                   DTSBE127
00542      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE127
00543                                                                   DTSBE127
00544      DISPLAY 'QREC: ' MPRF-EMP-NO ' ' MQTR-YRQ ' '                   CL*27
00545                       MQTR-CURR-RPT-TYPE ' ' MQTR-TOT-WAGE.          CL*27
00546                                                                      CL*27
00547      IF MQTR-CURR-RCVD-88 AND MQTR-TOT-WAGE = +0                  DTSBE127
00548         DISPLAY ' EIGHT ZERO WAGES: ' MQTR-EMP-NO ' ' MQTR-YRQ       CL*26
00549          ADD 1 TO ZERO-WAGE-EMP                                   DTSBE127
00550      ELSE                                                         DTSBE127
00551        IF MQTR-CURR-MISSING-88                                       CL*26
00552           DISPLAY 'EIGHT QTR MISSING: ' MQTR-EMP-NO ' ' MQTR-YRQ     CL*26
00553              ADD 1 TO MISS-WAGE-EMP                                  CL*11
00554        IF MQTR-CURR-ESTIM-88                                         CL*26
00555           ADD 1 TO ESTM-WAGE-EMP                                     CL*26
00556           DISPLAY 'QTR RPT ESTIMATED: ' MQTR-EMP-NO ' ' MQTR-YRQ.    CL*26
00557                                                                   DTSBE127
00558  P1000-EXIT.                                                      DTSBE127
00559      EXIT.                                                        DTSBE127
00560      EJECT                                                        DTSBE127
00561                                                                   DTSBE127
00562  P1900-EXAMINE-NEXT-MQTR.                                         DTSBE127
00563          MOVE WRK-NEXT-UC30-DEL-MAIL-YRQ TO MQTR-YRQ.             DTSBE127
00564          MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA                      DTSBE127
00565          PERFORM S910-READ THRU S910-EXIT                         DTSBE127
00566      IF L910-NO-REC-88                                            DTSBE127
00567          DISPLAY 'NO QTR REC FOUND ' MPRF-EMP-NO                     CL*20
00568         GO TO P1900-EXIT.                                         DTSBE127
00569                                                                   DTSBE127
00570      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE127
00571      IF MQTR-CURR-RCVD-88 AND MQTR-TOT-WAGE > +0                     CL*39
00572          SET WRK-BYPASS-YES-88 TO TRUE                               CL*42
00573         GO TO P1900-EXIT                                             CL*41
00574      ELSE                                                            CL*41
00575 *    IF MQTR-CURR-RCVD-88                                            CL*21
00576          DISPLAY 'NEXT QTR REC FOUND 0 WAGE RPT ' MPRF-EMP-NO        CL*41
00577                  ' ' MQTR-CURR-RPT-TYPE                              CL*39
00578          ADD 1 TO NEXT-QTR-REC-FOUND.                                CL*39
00579 *        SET WRK-BYPASS-YES-88 TO TRUE.                              CL*39
00580                                                                   DTSBE127
00581  P1900-EXIT.                                                      DTSBE127
00582      EXIT.                                                        DTSBE127
00583      EJECT                                                        DTSBE127
00584                                                                   DTSBE127
00585  P2000-INACTIVATE-EMP.                                            DTSBE127
00586      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBE127
00587                                                                   DTSBE127
00588      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBE127
00589                                                                   DTSBE127
00590      SET MSKL-SOL-88 TO TRUE.                                     DTSBE127
00591                                                                   DTSBE127
00592      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE127
00593                                                                   DTSBE127
00594      IF L910-NO-REC-88                                            DTSBE127
00595          GO TO P2000-EXIT.                                        DTSBE127
00596                                                                   DTSBE127
00597      MOVE MSKL-REC TO MSOL-REC.                                   DTSBE127
00598                                                                   DTSBE127
00599      PERFORM                                                      DTSBE127
00600        UNTIL (L910-NO-REC-88)                                     DTSBE127
00601                  OR                                               DTSBE127
00602              (MSOL-INACT-ACTIVE-88)                               DTSBE127
00603          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBE127
00604          IF L910-OK-88                                            DTSBE127
00605              MOVE MSKL-REC TO MSOL-REC                            DTSBE127
00606          END-IF                                                   DTSBE127
00607      END-PERFORM.                                                 DTSBE127
00608                                                                   DTSBE127
00609      IF L910-NO-REC-88                                            DTSBE127
00610          DISPLAY ' NO SOL REC FOUND NOT INACT ' MPRF-EMP-NO       DTSBE127
00611          GO TO P2000-EXIT.                                        DTSBE127
00612                                                                   DTSBE127
00613                                                                   DTSBE127
00614      MOVE +0 TO WRK-INACT-DATE.                                   DTSBE127
00615                                                                   DTSBE127
00616      PERFORM P2100-DETERMINE-INACT-DATE THRU P2100-EXIT.          DTSBE127
00617                                                                   DTSBE127
00618      IF WRK-INACT-DATE = +0                                       DTSBE127
00619         DISPLAY ' WRK DATE = ZERO '                               DTSBE127
00620          GO TO P2000-EXIT.                                        DTSBE127
00621                                                                   DTSBE127
00622       IF NOT L516-ANN-SCHED-88                                       CL*16
00623          GO TO P2000-EXIT.                                        DTSBE127
00624                                                                   DTSBE127
00625      DISPLAY ' INACTIVATE DATE  ' WRK-INACT-DATE ' ' MPRF-EMP-NO  DTSBE127
00626         ' MSOL DATE ' MSOL-LIAB-DATE.                             DTSBE127
00627                                                                   DTSBE127
00628      MOVE MPRF-EMP-NO TO L331-EMP-NO.                             DTSBE127
00629                                                                   DTSBE127
00630      MOVE LECM-CURR-RUN-DATE TO L331-CURR-RUN-DATE.               DTSBE127
00631                                                                   DTSBE127
00632      MOVE LECM-EMP-ABSTIME TO L331-UPDATE-ABSTIME.                DTSBE127
00633                                                                   DTSBE127
00634      MOVE 'BATCH' TO L331-OP-ID.                                  DTSBE127
00635                                                                   DTSBE127
00636      PERFORM P2200-MPRF-UPDATE THRU P2200-EXIT.                   DTSBE127
00637                                                                   DTSBE127
00638      PERFORM P2300-MSOL-UPDATE THRU P2300-EXIT.                   DTSBE127
00639                                                                   DTSBE127
00640      MOVE L331-UPDATE-ABSTIME TO LECM-EMP-ABSTIME.                DTSBE127
00641                                                                   DTSBE127
00642      PERFORM P2400-MERD-WRITE THRU P2400-EXIT.                    DTSBE127
00643                                                                   DTSBE127
00644      PERFORM P2500-CONSTRUCT-T031 THRU P2500-EXIT.                DTSBE127
00645                                                                   DTSBE127
00646      PERFORM P2600-CONSTRUCT-R116 THRU P2600-EXIT.                DTSBE127
00647                                                                   DTSBE127
00648      PERFORM P2700-CONSTRUCT-R117 THRU P2700-EXIT.                   CL**2
00649                                                                   DTSBE127
00650      PERFORM P2800-EVENT-LOG      THRU P2800-EXIT.                DTSBE127
00651                                                                   DTSBE127
00652      SET WRK-EMP-INACTIVATED-YES-88 TO TRUE.                      DTSBE127
00653  P2000-EXIT.                                                      DTSBE127
00654      EXIT.                                                        DTSBE127
00655      SKIP3                                                        DTSBE127
00656  P2100-DETERMINE-INACT-DATE.                                      DTSBE127
00657      MOVE +0 TO WRK-LAST-NON-ZERO-WAGE-YRQ                        DTSBE127
00658                WRK-NEVER-FILED.                                   DTSBE127
00659      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBE127
00660                                                                   DTSBE127
00661      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBE127
00662                                                                   DTSBE127
00663      SET MSKL-QTR-88 TO TRUE.                                     DTSBE127
00664                                                                   DTSBE127
00665      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE127
00666                                                                   DTSBE127
00667      PERFORM                                                      DTSBE127
00668        UNTIL L910-NO-REC-88                                       DTSBE127
00669          MOVE MSKL-REC TO MQTR-REC                                DTSBE127
00670          IF MQTR-CURR-RCVD-88 AND MQTR-TOT-WAGE > +0              DTSBE127
00671              MOVE MQTR-YRQ TO WRK-LAST-NON-ZERO-WAGE-YRQ          DTSBE127
00672              DISPLAY 'LQTR PD ' MQTR-YRQ ' ' MQTR-TOT-WAGE        DTSBE127
00673          END-IF                                                   DTSBE127
00674          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBE127
00675      END-PERFORM.                                                 DTSBE127
00676                                                                   DTSBE127
00677      IF WRK-LAST-NON-ZERO-WAGE-YRQ > +0                           DTSBE127
00678          MOVE WRK-LAST-NON-ZERO-WAGE-YRQ TO L004-QTR-5-9          DTSBE127
00679          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBE127
00680          IF L004-INVALID-QTR                                      DTSBE127
00681           MOVE 'UNEXPECTED L004-INVALID-QTR ENCOUNTERED: P2100-1' DTSBE127
00682                TO ABEND-MSG                                       DTSBE127
00683              PERFORM S999-ABEND THRU S999-EXIT                    DTSBE127
00684          ELSE                                                     DTSBE127
00685              MOVE WRK-END-YRQ-DATE  TO WRK-INACT-DATE                CL*50
00686 **           MOVE WRK-PARM-END-YRQ  TO WRK-INACT-DATE.               CL*45
00687                                                                   DTSBE127
00688      IF WRK-LAST-NON-ZERO-WAGE-YRQ > WRK-PARM-END-YRQ             DTSBE127
00689 *&                                                                DTSBE127
00690          DISPLAY 'LAST NON ZERO WAGE YRQ > PARM END YRQ '         DTSBE127
00691             MPRF-EMP-NO '  '                                      DTSBE127
00692             WRK-LAST-NON-ZERO-WAGE-YRQ '  '.                      DTSBE127
00693 *&                                                                DTSBE127
00694 *        MOVE ZERO TO WRK-INACT-DATE                              DTSBE127
00695 *        GO TO P2100-EXIT.                                        DTSBE127
00696                                                                   DTSBE127
00697 *    IF WRK-INACT-DATE >= MSOL-LIAB-DATE                          DTSBE127
00698 *        GO TO P2100-EXIT.                                        DTSBE127
00699                                                                   DTSBE127
00700      IF WRK-INACT-DATE > +0                                       DTSBE127
00701          GO TO P2100-EXIT.                                        DTSBE127
00702                                                                   DTSBE127
00703      MOVE +0 TO WRK-INACT-DATE.                                   DTSBE127
00704                                                                   DTSBE127
00705      MOVE MSOL-LIAB-DATE TO L004-DATE.                            DTSBE127
00706                                                                   DTSBE127
00707      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBE127
00708                                                                   DTSBE127
00709      IF L004-INVALID-QTR                                          DTSBE127
00710          MOVE 'UNEXPECTED L004-INVALID-QTR ENCOUNTERED: P2100-2'  DTSBE127
00711            TO ABEND-MSG                                           DTSBE127
00712          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE127
00713                                                                   DTSBE127
00714       IF NOT L516-ANN-SCHED-88                                       CL*16
00715 *         DISPLAY ' ANN FILER NEVER FILED ' MPRF-EMP-NO              CL*16
00716          GO TO P2100-EXIT.                                        DTSBE127
00717      MOVE 1 TO WRK-NEVER-FILED.                                   DTSBE127
00718 *    IF L004-QTR-END-DATE >= MSOL-LIAB-DATE                       DTSBE127
00719 *        MOVE L004-QTR-END-DATE TO WRK-INACT-DATE.                DTSBE127
00720          MOVE WRK-END-YRQ-DATE  TO WRK-INACT-DATE                    CL*51
00721 **   MOVE MSOL-LIAB-DATE TO WRK-INACT-DATE.                          CL*51
00722      DISPLAY 'WRK-INACT-DATE' WRK-INACT-DATE.                        CL*46
00723  P2100-EXIT.                                                      DTSBE127
00724      EXIT.                                                        DTSBE127
00725      SKIP3                                                        DTSBE127
00726  P2200-MPRF-UPDATE.                                               DTSBE127
00727      MOVE SPACES TO L331-REC-OCC-ID.                              DTSBE127
00728                                                                   DTSBE127
00729      MOVE 'MPRF-EMP-STATUS' TO L331-FIELD-NAME.                   DTSBE127
00730                                                                   DTSBE127
00731      MOVE MPRF-EMP-STATUS TO L331-FROM-VALUE.                     DTSBE127
00732                                                                   DTSBE127
00733      SET MPRF-STATUS-INACT-88 TO TRUE.                            DTSBE127
00734                                                                   DTSBE127
00735      MOVE LECM-CURR-RUN-DATE TO MPRF-CHNG-DATE.                   DTSBE127
00736                                                                   DTSBE127
00737      SET LECM-EMP-UPDATED-YES-88 TO TRUE.                         DTSBE127
00738                                                                   DTSBE127
00739      MOVE MPRF-EMP-STATUS TO L331-TO-VALUE.                       DTSBE127
00740                                                                   DTSBE127
00741      PERFORM S331-WRITE-MLOG THRU S331-EXIT.                      DTSBE127
00742  P2200-EXIT.                                                      DTSBE127
00743      EXIT.                                                        DTSBE127
00744      SKIP3                                                        DTSBE127
00745  P2300-MSOL-UPDATE.                                               DTSBE127
00746      MOVE MSOL-LIAB-DATE TO L001-FED-8-DATE-9.                    DTSBE127
00747                                                                   DTSBE127
00748      MOVE L001-FED-8-DATE-X TO L331-REC-OCC-ID.                   DTSBE127
00749                                                                   DTSBE127
00750      MOVE 'MSOL-INACT-DATE' TO L331-FIELD-NAME.                   DTSBE127
00751                                                                   DTSBE127
00752      IF MSOL-INACT-DATE = +0                                      DTSBE127
00753          MOVE SPACES TO L331-FROM-VALUE                           DTSBE127
00754      ELSE                                                         DTSBE127
00755      IF MSOL-INACT-DATE = ALL-NINES-DATE                          DTSBE127
00756          MOVE '99/99/99' TO L331-FROM-VALUE                       DTSBE127
00757      ELSE                                                         DTSBE127
00758          MOVE MSOL-INACT-DATE TO L001-FED-8-DATE-9                DTSBE127
00759          PERFORM S001-FROM-FED-8 THRU S001-EXIT                   DTSBE127
00760          MOVE L001-SLASH-DATE TO L331-FROM-VALUE.                 DTSBE127
00761                                                                   DTSBE127
00762      MOVE WRK-INACT-DATE TO L001-FED-8-DATE-9.                    DTSBE127
00763                                                                   DTSBE127
00764      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBE127
00765                                                                   DTSBE127
00766      MOVE L001-SLASH-DATE TO L331-TO-VALUE.                       DTSBE127
00767                                                                   DTSBE127
00768      PERFORM S331-WRITE-MLOG THRU S331-EXIT.                      DTSBE127
00769                                                                   DTSBE127
00770      MOVE WRK-INACT-DATE TO MSOL-INACT-DATE.                      DTSBE127
00771                                                                   DTSBE127
00772                                                                   DTSBE127
00773      MOVE 'MSOL-LAST-LIAB-YRQ' TO L331-FIELD-NAME.                DTSBE127
00774                                                                   DTSBE127
00775      IF MSOL-LAST-LIAB-YRQ = +0                                   DTSBE127
00776          MOVE SPACES TO L331-FROM-VALUE                           DTSBE127
00777      ELSE                                                         DTSBE127
00778      IF MSOL-LAST-LIAB-YRQ = ALL-NINES-YRQ                        DTSBE127
00779          MOVE '99/9' TO L331-FROM-VALUE                           DTSBE127
00780      ELSE                                                         DTSBE127
00781          MOVE MSOL-LAST-LIAB-YRQ TO L004-QTR-5-9                  DTSBE127
00782          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBE127
00783          MOVE L004-SLASH-QTR TO L331-FROM-VALUE.                  DTSBE127
00784                                                                   DTSBE127
00785      MOVE WRK-INACT-DATE TO L004-DATE.                            DTSBE127
00786                                                                   DTSBE127
00787      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBE127
00788                                                                   DTSBE127
00789      IF L004-INVALID-QTR                                          DTSBE127
00790          MOVE 'UNEXPECTED L004-INVALID-QTR ENCOUNTERED: P2300-1'  DTSBE127
00791            TO ABEND-MSG                                           DTSBE127
00792          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE127
00793                                                                   DTSBE127
00794      MOVE L004-SLASH-QTR TO L331-TO-VALUE.                        DTSBE127
00795                                                                   DTSBE127
00796      PERFORM S331-WRITE-MLOG THRU S331-EXIT.                      DTSBE127
00797                                                                   DTSBE127
00798      MOVE L004-QTR-5-9 TO MSOL-LAST-LIAB-YRQ.                     DTSBE127
00799                                                                   DTSBE127
00800                                                                   DTSBE127
00801      MOVE LECM-CURR-RUN-DATE TO MSOL-INACT-ENTER-DATE.            DTSBE127
00802                                                                   DTSBE127
00803                                                                   DTSBE127
00804      MOVE +0 TO MSOL-INACT-REVERSE-DATE.                          DTSBE127
00805                                                                   DTSBE127
00806                                                                   DTSBE127
00807      MOVE 'MSOL-INACT-CD' TO L331-FIELD-NAME.                     DTSBE127
00808                                                                   DTSBE127
00809      MOVE MSOL-INACT-CD TO L331-FROM-VALUE.                       DTSBE127
00810                                                                   DTSBE127
00811      IF WRK-NEVER-FILED = 0                                       DTSBE127
00812         SET MSOL-INACT-TERMINATION-88 TO TRUE                     DTSBE127
00813      ELSE                                                         DTSBE127
00814          MOVE +0 TO MSOL-FIRST-LIAB-YRQ                           DTSBE127
00815                     MSOL-LAST-LIAB-YRQ                            DTSBE127
00816         SET MSOL-INACT-TERMINATION-88 TO TRUE.                       CL*55
00817 **      SET MSOL-INACT-WDRW-CAN-88 TO TRUE.                          CL*55
00818                                                                   DTSBE127
00819      MOVE MSOL-INACT-CD TO L331-TO-VALUE.                         DTSBE127
00820                                                                   DTSBE127
00821      PERFORM S331-WRITE-MLOG THRU S331-EXIT.                      DTSBE127
00822                                                                   DTSBE127
00823                                                                   DTSBE127
00824      MOVE LECM-CURR-RUN-DATE TO MSOL-CHNG-DATE.                   DTSBE127
00825                                                                   DTSBE127
00826                                                                   DTSBE127
00827      MOVE MSOL-REC TO MSKL-REC.                                   DTSBE127
00828                                                                   DTSBE127
00829                                                                   DTSBE127
00830      PERFORM S910-REWRITE THRU S910-EXIT.                         DTSBE127
00831  P2300-EXIT.                                                      DTSBE127
00832      EXIT.                                                        DTSBE127
00833      SKIP3                                                        DTSBE127
00834  P2400-MERD-WRITE.                                                DTSBE127
00835      MOVE LOW-VALUES TO MERD-REC.                                 DTSBE127
00836                                                                   DTSBE127
00837                                                                   DTSBE127
00838      MOVE MPRF-EMP-NO TO MERD-EMP-NO.                             DTSBE127
00839                                                                   DTSBE127
00840      SET MERD-ERD-88 TO TRUE.                                     DTSBE127
00841                                                                   DTSBE127
00842      ADD +1 TO LECM-EMP-ABSTIME.                                  DTSBE127
00843                                                                   DTSBE127
00844      MOVE LECM-EMP-ABSTIME TO MERD-ESTB-ABSTIME.                  DTSBE127
00845                                                                   DTSBE127
00846      MOVE +0 TO MERD-PURGE-DATE.                                  DTSBE127
00847                                                                   DTSBE127
00848      SET MERD-DETER-INACT-88 TO TRUE.                             DTSBE127
00849                                                                   DTSBE127
00850      MOVE MSOL-INACT-DATE TO MERD-EFFECTIVE-DATE.                 DTSBE127
00851                                                                   DTSBE127
00852      MOVE '  ' TO MERD-SCREEN-ID.                                 DTSBE127
00853                                                                   DTSBE127
00854      MOVE 'BATCH' TO MERD-OP-ID.                                  DTSBE127
00855                                                                   DTSBE127
00856      SET MERD-NOT-CONVERTED-88 TO TRUE.                           DTSBE127
00857                                                                   DTSBE127
00858      MOVE LECM-CURR-RUN-DATE TO MERD-ESTB-DATE.                   DTSBE127
00859                                                                   DTSBE127
00860                                                                   DTSBE127
00861      MOVE MERD-REC TO MSKL-REC.                                   DTSBE127
00862                                                                   DTSBE127
00863      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBE127
00864  P2400-EXIT.                                                      DTSBE127
00865      EXIT.                                                        DTSBE127
00866      SKIP3                                                        DTSBE127
00867  P2500-CONSTRUCT-T031.                                            DTSBE127
00868      MOVE MPRF-EMP-NO TO T031-EMP-NO.                             DTSBE127
00869                                                                   DTSBE127
00870      MOVE WRK-MOD-NAME TO T031-ORIGIN.                            DTSBE127
00871                                                                   DTSBE127
00872      MOVE LECM-SYS-DATE TO T031-SYS-DATE.                         DTSBE127
00873                                                                   DTSBE127
00874      MOVE LECM-SYS-TIME TO T031-SYS-TIME.                         DTSBE127
00875                                                                   DTSBE127
00876      MOVE LOW-VALUES TO T031-DATA-AREA.                           DTSBE127
00877                                                                   DTSBE127
00878      SET T031-AUTO-PROCESS TO TRUE.                               DTSBE127
00879                                                                   DTSBE127
00880      MOVE MSOL-LAST-LIAB-YRQ TO T031-START-YRQ.                   DTSBE127
00881                                                                   DTSBE127
00882      MOVE ALL-NINES-YRQ TO T031-END-YRQ.                          DTSBE127
00883                                                                   DTSBE127
00884      MOVE +0 TO T031-WAIVER-START-YRQ                             DTSBE127
00885                 T031-WAIVER-END-YRQ                               DTSBE127
00886                 T031-WAIVER-EXT-DATE.                             DTSBE127
00887                                                                   DTSBE127
00888      SET T031-TRANSFER-NO-88 TO TRUE.                             DTSBE127
00889                                                                   DTSBE127
00890      MOVE +0 TO T031-TRANSFER-TO-EMP-NO.                          DTSBE127
00891                                                                   DTSBE127
00892                                                                   DTSBE127
00893      PERFORM S927-WRITE-T031 THRU S927-EXIT.                      DTSBE127
00894  P2500-EXIT.                                                      DTSBE127
00895      EXIT.                                                        DTSBE127
00896      SKIP3                                                        DTSBE127
00897  P2600-CONSTRUCT-R116.                                            DTSBE127
00898      SET R116-INACT-88 TO TRUE.                                   DTSBE127
00899                                                                   DTSBE127
00900      MOVE LOW-VALUES TO R116-SORT-VAR-AREA.                       DTSBE127
00901                                                                   DTSBE127
00902      MOVE MPRF-EMP-NO TO R116-INACT-EMP-NO.                       DTSBE127
00903                                                                   DTSBE127
00904      MOVE MSOL-LIAB-DATE TO R116-INACT-LIAB-DATE.                 DTSBE127
00905                                                                   DTSBE127
00906      MOVE MPRF-PRIMARY-NAME TO R116-PRIMARY-NAME.                 DTSBE127
00907                                                                   DTSBE127
00908      MOVE MSOL-INACT-DATE TO R116-INACT-DATE.                     DTSBE127
00909                                                                   DTSBE127
00910      MOVE MPRF-EMP-CLASS TO R116-EMP-CLASS.                       DTSBE127
00911                                                                   DTSBE127
00912      MOVE MPRF-PURSUED-RPT-CNT TO R116-NUM-DELQ-RPTS.             DTSBE127
00913                                                                   DTSBE127
00914      PERFORM S946-WRITE-R116 THRU S946-EXIT.                      DTSBE127
00915  P2600-EXIT.                                                      DTSBE127
00916      EXIT.                                                        DTSBE127
00917      SKIP3                                                        DTSBE127
00918  P2700-CONSTRUCT-R117.                                            DTSBE127
00919      MOVE WRK-PARM-RESP-OP-ID TO R117-OP-ID.                      DTSBE127
00920                                                                   DTSBE127
00921      SET R117-8ZEROWAGE-88 TO TRUE.                               DTSBE127
00922                                                                   DTSBE127
00923      MOVE MPRF-EMP-NO TO R117-EMP-NO.                             DTSBE127
00924                                                                   DTSBE127
00925      MOVE LECM-PRIOR-MAIL-DATE TO R117-MAIL-DATE.                 DTSBE127
00926                                                                   DTSBE127
00927      MOVE ALL '?' TO R117-FMT-ADDR                                DTSBE127
00928                      R117-ZIP                                     DTSBE127
00929                      R117-ADVANCED-BARCODE.                       DTSBE127
00930                                                                   DTSBE127
00931      MOVE MPRF-EMP-NO TO L111-EMP-NO.                             DTSBE127
00932                                                                   DTSBE127
00933      SET L111-LOOKUP-TAD-88 TO TRUE.                              DTSBE127
00934                                                                   DTSBE127
00935      SET L111-ID-NO-TAD-MAIL-88 TO TRUE.                          DTSBE127
00936                                                                   DTSBE127
00937      PERFORM S111-LOOKUP-ADDR THRU S111-EXIT.                     DTSBE127
00938                                                                   DTSBE127
00939      IF L111-ADDR-FOUND-88                                        DTSBE127
00940          SET L112-TAD-ADDR-88 TO TRUE                             DTSBE127
00941          SET L112-ANCHOR-LAST-88 TO TRUE                          DTSBE127
00942          MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME              DTSBE127
00943          MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA          DTSBE127
00944          PERFORM S112-FORMAT-ADDR THRU S112-EXIT                  DTSBE127
00945          MOVE L112-MAILING-ADDRESS TO R117-FMT-ADDR               DTSBE127
00946          MOVE L112-ZIP TO R117-ZIP                                DTSBE127
00947          MOVE L112-ADVANCED-BARCODE TO R117-ADVANCED-BARCODE.     DTSBE127
00948                                                                   DTSBE127
00949      MOVE WRK-INACT-DATE TO R117-INACT-DATE.                         CL*53
00950                                                                      CL*53
00951      PERFORM S946-WRITE-R117 THRU S946-EXIT.                      DTSBE127
00952  P2700-EXIT.                                                      DTSBE127
00953      EXIT.                                                        DTSBE127
00954                                                                   DTSBE127
00955  P2800-EVENT-LOG.                                                 DTSBE127
00956      ADD +1000                 TO LECM-EMP-ABSTIME.               DTSBE127
00957      MOVE LECM-EMP-ABSTIME     TO L005-ABSTIME.                   DTSBE127
00958      PERFORM S005-FROM-ABSTIME THRU S005-EXIT.                    DTSBE127
00959                                                                   DTSBE127
00960      MOVE LOW-VALUES           TO MEVL-REC.                       DTSBE127
00961      MOVE MPRF-EMP-NO          TO MEVL-EMP-NO.                    DTSBE127
00962      SET MEVL-EVL-88           TO TRUE.                           DTSBE127
00963      MOVE L005-DATE            TO MEVL-DATE.                      DTSBE127
00964      MOVE L005-TIME            TO MEVL-TIME.                      DTSBE127
00965      MOVE ZERO                 TO MEVL-PURGE-DATE.                DTSBE127
00966      MOVE WRK-MEVL-TEXT        TO MEVL-TEXT.                      DTSBE127
00967      SET MEVL-SOURCE-SYSTEM-88 TO TRUE.                           DTSBE127
00968      SET MEVL-NOT-CONVERTED-88 TO TRUE.                           DTSBE127
00969      MOVE LECM-CURR-RUN-DATE   TO MEVL-ESTB-DATE                  DTSBE127
00970                                   MEVL-CHNG-DATE.                 DTSBE127
00971                                                                   DTSBE127
00972      MOVE MEVL-REC             TO MSKL-REC.                       DTSBE127
00973      PERFORM S910-WRITE        THRU S910-EXIT.                    DTSBE127
00974                                                                   DTSBE127
00975  P2800-EXIT.                                                      DTSBE127
00976      EXIT.                                                        DTSBE127
00977      EJECT                                                        DTSBE127
00978  P3000-CONSTRUCT-R119.                                            DTSBE127
00979      MOVE MPRF-EMP-NO TO R119-EMP-NO.                             DTSBE127
00980                                                                   DTSBE127
00981      MOVE WRK-PARM-START-YRQ TO R119-FIRST-QTR.                   DTSBE127
00982                                                                   DTSBE127
00983      MOVE WRK-PARM-END-YRQ TO R119-LAST-QTR.                      DTSBE127
00984                                                                   DTSBE127
00985      MOVE MPRF-PRIMARY-NAME TO R119-PRIMARY-NAME.                 DTSBE127
00986                                                                   DTSBE127
00987      MOVE MPRF-EMP-CLASS TO R119-EMP-CLASS.                       DTSBE127
00988                                                                   DTSBE127
00989      PERFORM S061-DETERMINE-FLD-REP THRU S061-EXIT.               DTSBE127
00990                                                                   DTSBE127
00991      MOVE L061-FLD-REP-ID TO R119-FLD-REP-ID.                     DTSBE127
00992                                                                   DTSBE127
00993      MOVE WRK-LAST-YRQ-DELQ-IND TO R119-LAST-YRQ-DELQ-IND.        DTSBE127
00994                                                                   DTSBE127
00995 *    MOVE WRK-EMP-INACTIVATED-IND TO R119-AUTOMATIC-INACT-IND.       CL*15
00996                                                                   DTSBE127
00997                                                                   DTSBE127
00998      PERFORM S946-WRITE-R119 THRU S946-EXIT.                      DTSBE127
00999  P3000-EXIT.                                                      DTSBE127
01000      EXIT.                                                        DTSBE127
01001      EJECT                                                        DTSBE127
01002  T0000-TERMINATE.                                                 DTSBE127
01003       DISPLAY ' BE127 ANNUAL FILERS INACTIVATED'                     CL*31
01004       DISPLAY '  '                                                DTSBE127
01005       DISPLAY ' TOTAL EMPL READ            ' TOT-EMP.             DTSBE127
01006       DISPLAY ' TOTAL EMPL INACT    BYPASS ' INA-EMP.             DTSBE127
01007       DISPLAY ' TOTAL EMPL NOT SUB  BYPASS ' SUB-EMP.             DTSBE127
01008       DISPLAY ' TOTAL ANNUAL FILERS BYPASS ' TOT-READ-ANN-FILER   DTSBE127
01009       DISPLAY ' TOTAL SELF INSURED  BYPASS ' TOT-SELF-INS-FILER   DTSBE127
01010       DISPLAY '08 QTRS 0 RPTS; NXT QTR FND ' NEXT-QTR-REC-FOUND.     CL*39
01011       DISPLAY '  '                                                DTSBE127
01012       DISPLAY ' TOTAL EMPL SELECTED        ' SEL-EMP.             DTSBE127
01013       DISPLAY '    ZERO WAGES 08 QUARTERS  ' ZERO-WAGES.             CL*39
01014       DISPLAY '    MISSING REPORTS 08 QTRS ' MISS-WAGES.             CL*39
01015       DISPLAY '     MISS RPTS/ZERO WAGES   ' TOTL-WAGES.          DTSBE127
01016                                                                   DTSBE127
01017  T0000-EXIT.                                                      DTSBE127
01018      EXIT.                                                        DTSBE127
01019      EJECT                                                        DTSBE127
01020  S001-FROM-FED-8.                                                 DTSBE127
01021      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE127
01022      GO TO S001-DATE.                                             DTSBE127
01023                                                                   DTSBE127
01024  S001-FROM-ABS-DAY.                                               DTSBE127
01025      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBE127
01026      GO TO S001-DATE.                                             DTSBE127
01027                                                                   DTSBE127
01028  S001-DATE.                                                       DTSBE127
01029      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBE127
01030  S001-EXIT.                                                       DTSBE127
01031      EXIT.                                                        DTSBE127
01032      SKIP3                                                        DTSBE127
01033  S004-FROM-5.                                                     DTSBE127
01034      SET L004-FROM-5 TO TRUE.                                     DTSBE127
01035      GO TO S004-QTR.                                              DTSBE127
01036                                                                   DTSBE127
01037  S004-FROM-ABS.                                                   DTSBE127
01038      SET L004-FROM-ABS TO TRUE.                                   DTSBE127
01039      GO TO S004-QTR.                                              DTSBE127
01040                                                                   DTSBE127
01041  S004-FROM-3.                                                     DTSBE127
01042      SET L004-FROM-3 TO TRUE.                                     DTSBE127
01043      GO TO S004-QTR.                                              DTSBE127
01044                                                                   DTSBE127
01045  S004-FROM-DATE.                                                  DTSBE127
01046      SET L004-FROM-DATE TO TRUE.                                  DTSBE127
01047      GO TO S004-QTR.                                              DTSBE127
01048                                                                   DTSBE127
01049  S004-QTR.                                                        DTSBE127
01050      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBE127
01051  S004-EXIT.                                                       DTSBE127
01052      EXIT.                                                        DTSBE127
01053      SKIP3                                                        DTSBE127
01054  S005-FROM-ABSTIME.                                               DTSBE127
01055      SET L005-FROM-ABSTIME TO TRUE.                               DTSBE127
01056      GO TO S005-ABSTIME.                                          DTSBE127
01057                                                                   DTSBE127
01058  S005-ABSTIME.                                                    DTSBE127
01059      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBE127
01060  S005-EXIT.                                                       DTSBE127
01061      EXIT.                                                        DTSBE127
01062      SKIP3                                                        DTSBE127
01063  S061-DETERMINE-FLD-REP.                                          DTSBE127
01064      MOVE MPRF-FLD-ZIP-ST TO L061-FLD-ZIP-ST.                     DTSBE127
01065                                                                   DTSBE127
01066      MOVE MPRF-EMP-NO TO L061-EMP-NO.                             DTSBE127
01067                                                                   DTSBE127
01068      CALL 'DTSBU061' USING L061-LINK-AREA.                        DTSBE127
01069  S061-EXIT.                                                       DTSBE127
01070      EXIT.                                                        DTSBE127
01071      SKIP3                                                        DTSBE127
01072  S082-LOOKUP-OP-ID.                                               DTSBE127
01073      CALL 'DTSBU082' USING L082-LINK-AREA.                        DTSBE127
01074  S082-EXIT.                                                       DTSBE127
01075      EXIT.                                                        DTSBE127
01076      SKIP3                                                        DTSBE127
01077  S111-LOOKUP-ADDR.                                                DTSBE127
01078      CALL 'DTSBU111' USING L111-LINK-AREA.                        DTSBE127
01079  S111-EXIT.                                                       DTSBE127
01080      EXIT.                                                        DTSBE127
01081      SKIP3                                                        DTSBE127
01082  S112-FORMAT-ADDR.                                                DTSBE127
01083      CALL 'DTSBU112' USING L112-LINK-AREA.                        DTSBE127
01084  S112-EXIT.                                                       DTSBE127
01085      EXIT.                                                        DTSBE127
01086      SKIP3                                                        DTSBE127
01087  S331-WRITE-MLOG.                                                 DTSBE127
01088      CALL 'DTSBU331' USING L331-LINK-AREA.                        DTSBE127
01089                                                                   DTSBE127
01090      SET LECM-EMP-UPDATED-YES-88 TO TRUE.                         DTSBE127
01091  S331-EXIT.                                                       DTSBE127
01092      EXIT.                                                        DTSBE127
01093      SKIP3                                                        DTSBE127
01094  S516-LIABILITY.                                                  DTSBE127
01095       CALL 'DTSBU516' USING L516-LINK-AREA                        DTSBE127
01096                             MPRF-LINK-REC.                        DTSBE127
01097  S516-EXIT.                                                       DTSBE127
01098       EXIT.                                                       DTSBE127
01099       SKIP3                                                       DTSBE127
01100  S910-READ.                                                       DTSBE127
01101      SET L910-READ-88 TO TRUE.                                    DTSBE127
01102      GO TO S910-MSTR-IO.                                          DTSBE127
01103                                                                   DTSBE127
01104  S910-START-BROWSE.                                               DTSBE127
01105      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE127
01106      GO TO S910-MSTR-IO.                                          DTSBE127
01107                                                                   DTSBE127
01108  S910-READ-NEXT.                                                  DTSBE127
01109      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE127
01110      GO TO S910-MSTR-IO.                                          DTSBE127
01111                                                                   DTSBE127
01112  S910-REWRITE.                                                    DTSBE127
01113      SET L910-REWRITE-88 TO TRUE.                                 DTSBE127
01114      SET LECM-EMP-UPDATED-YES-88 TO TRUE.                         DTSBE127
01115      GO TO S910-MSTR-IO.                                          DTSBE127
01116                                                                   DTSBE127
01117  S910-WRITE.                                                      DTSBE127
01118      SET L910-WRITE-88 TO TRUE.                                   DTSBE127
01119      SET LECM-EMP-UPDATED-YES-88 TO TRUE.                         DTSBE127
01120      GO TO S910-MSTR-IO.                                          DTSBE127
01121                                                                   DTSBE127
01122  S910-MSTR-IO.                                                    DTSBE127
01123      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBE127
01124                            MSKL-REC.                              DTSBE127
01125  S910-EXIT.                                                       DTSBE127
01126      EXIT.                                                        DTSBE127
01127      SKIP3                                                        DTSBE127
01128  S927-WRITE-T031.                                                 DTSBE127
01129      SET L927-WRITE-88 TO TRUE.                                   DTSBE127
01130      CALL 'DTSBU927' USING L927-LINK-AREA                         DTSBE127
01131                            T031-REC.                              DTSBE127
01132      GO TO S927-EXIT.                                             DTSBE127
01133                                                                   DTSBE127
01134  S927-EXIT.                                                       DTSBE127
01135      EXIT.                                                        DTSBE127
01136      SKIP3                                                        DTSBE127
01137  S946-WRITE-R116.                                                 DTSBE127
01138      CALL 'DTSBU946' USING R116-REC.                              DTSBE127
01139      GO TO S946-EXIT.                                             DTSBE127
01140                                                                   DTSBE127
01141  S946-WRITE-R117.                                                 DTSBE127
01142      CALL 'DTSBU946' USING R117-REC.                              DTSBE127
01143      GO TO S946-EXIT.                                             DTSBE127
01144                                                                   DTSBE127
01145  S946-WRITE-R119.                                                 DTSBE127
01146      CALL 'DTSBU946' USING R119-REC.                              DTSBE127
01147      GO TO S946-EXIT.                                             DTSBE127
01148                                                                   DTSBE127
01149  S946-EXIT.                                                       DTSBE127
01150      EXIT.                                                        DTSBE127
01151      SKIP3                                                        DTSBE127
01152  S999-ABEND.                                                      DTSBE127
01153      DISPLAY '*** DTSBE119 ABENDING.  '                           DTSBE127
01154              ABEND-MSG.                                           DTSBE127
01155                                                                   DTSBE127
01156      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBE127
01157  S999-EXIT.                                                       DTSBE127
01158      EXIT.                                                        DTSBE127
