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