00001  IDENTIFICATION DIVISION.                                         03/12/15
00002  PROGRAM-ID.             DTSBD142.                                DTSBD142
00003  AUTHOR.                 NORTHROP GRUMMAN.                           LV009
00004  DATE-WRITTEN.           MAY 2005.                                DTSBD142
00005  DATE-COMPILED.                                                   DTSBD142
00006      SKIP3                                                        DTSBD142
00007 *****                                                             DTSBD142
00008 *                                                                 DTSBD142
00009 *    FUNCTION:  BUILD MPRF AND MERA DATABASE RECORDS, AND         DTSBD142
00010 *               T001 AND T031 TRANSACTIONS, BASED ON T002         DTSBD142
00011 *               TRANSACTIONS INPUT FROM WEB REGISTRATION          DTSBD142
00012 *               AND OTHER BATCH PROCESSES.                        DTSBD142
00013 *                                                                 DTSBD142
00014 *    MODIFICATION LOG:                                            DTSBD142
00015 *                                                                 DTSBD142
00016 *    06/01/2005  INITIAL DEVELOPMENT                              DTSBD142
00017 *                WORK ORDER:                      PROGRAMMER: GD  DTSBD142
00018 *                                                                 DTSBD142
00019 *    01/29/2010  MODIFIED P4000, CORRECTING SETTING OF START      DTSBD142
00020 *                QUARTER FOR MFSC: SHOULD ALWAYS BE THE           DTSBD142
00021 *                FIRST QUARTER.                                   DTSBD142
00022 *                WORK ORDER:                      PROGRAMMER: GD  DTSBD142
00023 *    03/02/2015  MODIFIED TO MOVE THE NAICS CODE FROM ESSP TO     DTSBD142
00024 *                MPRF RECORD.                                     DTSBD142
00025 *                WORK ORDER:                      PROGRAMMER: ZL1 DTSBD142
00026 *                                                                 DTSBD142
00027 *    99/99/9999  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD142
00028 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD142
00029 *                WORK ORDER:                      PROGRAMMER: XXX DTSBD142
00030 *                                                                 DTSBD142
00031 *  DESCRIPTION:                                                   DTSBD142
00032 *                                                                 DTSBD142
00033 *    INITIATION:                                                  DTSBD142
00034 *      NONE                                                       DTSBD142
00035 *                                                                 DTSBD142
00036 *    INPUT:                                                       DTSBD142
00037 *      DTSIT002  EMPLOYER UPDATE TRANSACTIONS                     DTSBD142
00038 *                                                                 DTSBD142
00039 *                                                                 DTSBD142
00040 *    PROCESSING:                                                  DTSBD142
00041 *                                                                 DTSBD142
00042 *                                                                 DTSBD142
00043 *                                                                 DTSBD142
00044 *                                                                 DTSBD142
00045 *                                                                 DTSBD142
00046 *                                                                 DTSBD142
00047 *                                                                 DTSBD142
00048 *                                                                 DTSBD142
00049 *                                                                 DTSBD142
00050 *                                                                 DTSBD142
00051 *                                                                 DTSBD142
00052 *                                                                 DTSBD142
00053 *    TERMINATION:                                                 DTSBD142
00054 *      OUTPUT STATISTICAL RECORDS COUNT.                          DTSBD142
00055 *                                                                 DTSBD142
00056 *    RECORDS READ:                                                DTSBD142
00057 *      MASTER:                                                    DTSBD142
00058 *                                                                 DTSBD142
00059 *                                                                 DTSBD142
00060 *      ALTERNATE INDEX:                                           DTSBD142
00061 *        NONE.                                                    DTSBD142
00062 *                                                                 DTSBD142
00063 *      REFERENCE:                                                 DTSBD142
00064 *        NONE.                                                    DTSBD142
00065 *                                                                 DTSBD142
00066 *    RECORDS UPDATED:                                             DTSBD142
00067 *        MPRF                                                     DTSBD142
00068 *        MERA                                                     DTSBD142
00069 *                                                                 DTSBD142
00070 *    REPORT RECORDS WRITTEN:                                      DTSBD142
00071 *        R907 ERROR REPORT RECORDS.                               DTSBD142
00072 *                                                                 DTSBD142
00073 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBD142
00074 *        T001 RECORDS                                             DTSBD142
00075 *        T031 RECORDS                                             DTSBD142
00076 *                                                                 DTSBD142
00077 *                                                                 DTSBD142
00078 *    MODULES CALLED:                                              DTSBD142
00079 *        DTSBU001  DATE CONVERSION/EDIT.                          DTSBD142
00080 *        DTSBU004  QUARERLY SUMMARY REPORT REC.                   DTSBD142
00081 *        DTSBU910  VSAM MASTER FILES I/O.                         DTSBD142
00082 *        DTSBU927  VARIABLE LENGTH RECORDS BTC OUTPUT.            DTSBD142
00083 *        DTSBU941  VARIABLE LENGTH RECORDS INPUT 1.               DTSBD142
00084 *        DTSBU947  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 2.   DTSBD142
00085 *        DTSBU983  BATCH WAGE TRANSACTION FILE INPUT/OUTPUT.      DTSBD142
00086 *                                                                 DTSBD142
00087 *                                                                 DTSBD142
00088 *****                                                             DTSBD142
00089      SKIP3                                                        DTSBD142
00090  ENVIRONMENT DIVISION.                                            DTSBD142
00091                                                                   DTSBD142
00092  DATA DIVISION.                                                   DTSBD142
00093                                                                   DTSBD142
00094  WORKING-STORAGE SECTION.                                         DTSBD142
000945 77  PAN-VALET PICTURE X(24) VALUE '009DTSBD142  03/12/15'.       DTSBD142
00095  77  PAN-VALET PICTURE X(24) VALUE '003DTSBD142  03/04/15'.       DTSBD142
00096  77  PAN-VALET PICTURE X(24) VALUE '007DTSBD142  02/12/14'.       DTSBD142
00097  77  PAN-VALET PICTURE X(24) VALUE '008DTSBD142  10/09/13'.       DTSBD142
00098  77  PAN-VALET PICTURE X(24) VALUE '005DTSBD142  02/24/10'.       DTSBD142
00099                                                                   DTSBD142
00100  01  WRK-AREA.                                                    DTSBD142
00101      05  W-ABEND-CD                  PIC S9(04)  COMP  VALUE +142.DTSBD142
00102      05  W-MOD-NAME                  PIC  X(08)  VALUE 'DTSBD142'.DTSBD142
00103      05  W-ABEND-MSG                 PIC  X(60).                  DTSBD142
00104                                                                   DTSBD142
00105      05  W-TRACE-IND                 PIC  X(01)  VALUE SPACES.    DTSBD142
00106                                                                   DTSBD142
00107      05  W-ERROR-IND                 PIC  X(01).                  DTSBD142
00108          88 W-ERROR-YES-88                VALUE 'Y'.              DTSBD142
00109          88 W-ERROR-NO-88                 VALUE 'N'.              DTSBD142
00110                                                                   DTSBD142
00111      05  W-CURR-RUN-DATE             PIC S9(09)  COMP-3.          DTSBD142
00112      05  W-SYS-TIME                  PIC  X(06)  VALUE SPACES.    DTSBD142
00113      05  W-SYS-DATE                  PIC  X(08)  VALUE SPACES.    DTSBD142
00114      05  W-SYS-ABSTIME               PIC S9(15)  COMP-3.          DTSBD142
00115      05  W-FIRST-LIAB-YRQ            PIC S9(05)  COMP-3.          DTSBD142
00116      05  W-LAST-LIAB-YRQ             PIC S9(05)  COMP-3.          DTSBD142
00117      05  W-LIAB-DATE                 PIC S9(09)  COMP-3.          DTSBD142
00118      05  W-ALL-NINES-QTR             PIC S9(05)  COMP-3           DTSBD142
00119                                       VALUE +99999.               DTSBD142
00120      05  W-ALL-NINES-DATE            PIC S9(09)  COMP-3           DTSBD142
00121                                       VALUE +999999999.           DTSBD142
00122      05  W-FOLLOWUP-DT               PIC S9(09)  COMP-3.          DTSBD142
00123      05  W-RUN-DATE-DISP             PIC  X(10).                  DTSBD142
00124                                                                   DTSBD142
00125      05  W-T002-CNT                PIC S9(07)  COMP-3 VALUE +0.   DTSBD142
00126      05  W-MPRF-CNT                PIC S9(07)  COMP-3 VALUE +0.   DTSBD142
00127      05  W-MERA-CNT                PIC S9(07)  COMP-3 VALUE +0.   DTSBD142
00128      05  W-T001-LIAB-CNT           PIC S9(07)  COMP-3 VALUE +0.   DTSBD142
00129      05  W-T001-FILE-CLERK-CNT     PIC S9(07)  COMP-3 VALUE +0.   DTSBD142
00130      05  W-T031-CNT                PIC S9(07)  COMP-3 VALUE +0.   DTSBD142
00131      05  W-R907-CNT                PIC S9(07)  COMP-3 VALUE +0.   DTSBD142
00132                                                                   DTSBD142
00133      05  MSG1-AREA.                                               DTSBD142
00134          10  MSG1-ID           PIC X(03) VALUE '101'.             DTSBD142
00135          10  MSG1-TEXT.                                           DTSBD142
00136              15  FILLER        PIC X(30)                          DTSBD142
00137                    VALUE 'TOTAL WAGES DO NOT =  REPORTED'.        DTSBD142
00138              15  FILLER        PIC X(30)                          DTSBD142
00139                    VALUE ' TOTAL WAGES OR NO WAGES RECS '.        DTSBD142
00140              15  FILLER        PIC X(02) VALUE SPACES.            DTSBD142
00141              15  MSG1-TRACE-NO PIC 9(13).                         DTSBD142
00142                                                                   DTSBD142
00143  01  T002-REC.                                                    DTSBD142
00144  ++INCLUDE DTSIT002                                               DTSBD142
00145                                                                   DTSBD142
00146  01  Y104-REC.                                                    DTSBD142
00147  ++INCLUDE DTSIY104                                               DTSBD142
00148                                                                   DTSBD142
00149  01  R907-REC.                                                    DTSBD142
00150  ++INCLUDE DTSIR907                                               DTSBD142
00151                                                                   DTSBD142
00152  01  L001-LINK-AREA.                                              DTSBD142
00153  ++INCLUDE DTSIL001                                               DTSBD142
00154      EJECT                                                        DTSBD142
00155  01  L003-LINK-AREA.                                              DTSBD142
00156  ++INCLUDE DTSIL003                                               DTSBD142
00157      EJECT                                                        DTSBD142
00158  01  L004-LINK-AREA.                                              DTSBD142
00159  ++INCLUDE DTSIL004                                               DTSBD142
00160      EJECT                                                        DTSBD142
00161  01  L005-COMM-AREA.                                              DTSBD142
00162  ++INCLUDE DTSIL005                                               DTSBD142
00163      EJECT                                                        DTSBD142
00164  01  L331-LINK-AREA.                                              DTSBD142
00165  ++INCLUDE DTSIL331                                               DTSBD142
00166      EJECT                                                        DTSBD142
00167  01  L910-LINK-AREA.                                              DTSBD142
00168  ++INCLUDE DTSIL910                                               DTSBD142
00169      EJECT                                                        DTSBD142
00170  01  MSKL-REC.                                                    DTSBD142
00171  ++INCLUDE DTSIMSKL                                               DTSBD142
00172      EJECT                                                        DTSBD142
00173  01  MHDR-REC.                                                    DTSBD142
00174  ++INCLUDE DTSIMHDR                                               DTSBD142
00175      EJECT                                                        DTSBD142
00176  01  MPRF-REC.                                                    DTSBD142
00177  ++INCLUDE DTSIMPRF                                               DTSBD142
00178      EJECT                                                        DTSBD142
00179  01  MERA-REC.                                                    DTSBD142
00180  ++INCLUDE DTSIMERA                                               DTSBD142
00181      EJECT                                                        DTSBD142
00182  01  MSOL-REC.                                                    DTSBD142
00183  ++INCLUDE DTSIMSOL                                               DTSBD142
00184      EJECT                                                        DTSBD142
00185  01  MERD-REC.                                                    DTSBD142
00186  ++INCLUDE DTSIMERD                                               DTSBD142
00187      EJECT                                                        DTSBD142
00188  01  MEVL-REC.                                                    DTSBD142
00189  ++INCLUDE DTSIMEVL                                               DTSBD142
00190      EJECT                                                        DTSBD142
00191  01  MFSC-REC.                                                    DTSBD142
00192  ++INCLUDE DTSIMFSC                                               DTSBD142
00193      EJECT                                                        DTSBD142
00194  01  MTCK-REC.                                                    DTSBD142
00195  ++INCLUDE DTSIMTCK                                               DTSBD142
00196      EJECT                                                        DTSBD142
00197  01  RSKL-REC.                                                    DTSBD142
00198  ++INCLUDE DTSIRSK3                                               DTSBD142
00199      EJECT                                                        DTSBD142
00200  01  T001-REC.                                                    DTSBD142
00201  ++INCLUDE DTSIT001                                               DTSBD142
00202                                                                   DTSBD142
00203  01  T031-REC.                                                    DTSBD142
00204  ++INCLUDE DTSIT031                                               DTSBD142
00205                                                                   DTSBD142
00206  LINKAGE SECTION.                                                 DTSBD142
00207  01  L142-LINK-AREA.                                              DTSBD142
00208  ++INCLUDE DTSIL142                                               DTSBD142
00209                                                                   DTSBD142
00210  01  TSKL-REC.                                                    DTSBD142
00211  ++INCLUDE DTSITSKL                                               DTSBD142
00212                                                                   DTSBD142
00213  PROCEDURE DIVISION USING                                         DTSBD142
00214                     L142-LINK-AREA                                DTSBD142
00215                     TSKL-REC.                                     DTSBD142
00216                                                                   DTSBD142
00217      EVALUATE TRUE                                                DTSBD142
00218        WHEN L142-INITIATE-88                                      DTSBD142
00219           PERFORM I0000-INITIALIZE  THRU I0000-EXIT               DTSBD142
00220                                                                   DTSBD142
00221        WHEN L142-PROCESS-88                                       DTSBD142
00222           PERFORM P0000-PROCESS     THRU P0000-EXIT               DTSBD142
00223                                                                   DTSBD142
00224        WHEN L142-TERMINATE-88                                     DTSBD142
00225           PERFORM T0000-TERMINATE   THRU T0000-EXIT               DTSBD142
00226                                                                   DTSBD142
00227      END-EVALUATE.                                                DTSBD142
00228                                                                   DTSBD142
00229      GOBACK.                                                      DTSBD142
00230      EJECT                                                        DTSBD142
00231  I0000-INITIALIZE.                                                DTSBD142
00232 *&                                                                DTSBD142
00233      DISPLAY 'DTSBD142 - INITIALIZE'.                             DTSBD142
00234 *&                                                                DTSBD142
00235      PERFORM I1000-SYS-DATE    THRU I1000-EXIT.                   DTSBD142
00236      MOVE L142-CURR-RUN-DATE   TO W-CURR-RUN-DATE                 DTSBD142
00237                                   L001-FED-8-DATE-9.              DTSBD142
00238      PERFORM S001-FROM-FED-8   THRU S001-EXIT.                    DTSBD142
00239      MOVE L001-SLASH-8-DATE    TO W-RUN-DATE-DISP.                DTSBD142
00240                                                                   DTSBD142
00241  I0000-EXIT.                                                      DTSBD142
00242      EXIT.                                                        DTSBD142
00243                                                                   DTSBD142
00244  I1000-SYS-DATE.                                                  DTSBD142
00245      SET L005-FROM-SYS       TO TRUE.                             DTSBD142
00246      PERFORM S005-SYS-DATE   THRU S005-EXIT.                      DTSBD142
00247      MOVE L005-DATE          TO W-SYS-DATE.                       DTSBD142
00248      MOVE L005-TIME          TO W-SYS-TIME.                       DTSBD142
00249      MOVE L005-ABSTIME       TO W-SYS-ABSTIME.                    DTSBD142
00250                                                                   DTSBD142
00251  I1000-EXIT.                                                      DTSBD142
00252      EXIT.                                                        DTSBD142
00253                                                                   DTSBD142
00254                                                                   DTSBD142
00255 ***************************************************************   DTSBD142
00256 ***************************************************************   DTSBD142
00257                                                                   DTSBD142
00258  P0000-PROCESS.                                                   DTSBD142
00259      SET W-ERROR-NO-88             TO TRUE.                       DTSBD142
00260      ADD +1                        TO W-T002-CNT.                 DTSBD142
00261      IF TSKL-AUTO-EMP-STATUS-88                                   DTSBD142
00262         MOVE TSKL-REC                   TO T002-REC               DTSBD142
00263         IF T002-DETERM-88                                         DTSBD142
00264            MOVE T002-DATA-AREA          TO Y104-REC               DTSBD142
00265            PERFORM P1000-ADD-MPRF       THRU P1000-EXIT           DTSBD142
00266            IF W-ERROR-NO-88                                       DTSBD142
00267               PERFORM P2000-ADD-MERA    THRU P2000-EXIT           DTSBD142
00268               PERFORM P3000-ADD-MEVL    THRU P3000-EXIT           DTSBD142
00269               PERFORM P4000-CHK-MFSC    THRU P4000-EXIT           DTSBD142
00270               PERFORM P5000-ADD-T031    THRU P5000-EXIT           DTSBD142
00271            END-IF                                                 DTSBD142
00272         END-IF                                                    DTSBD142
00273      END-IF.                                                      DTSBD142
00274                                                                   DTSBD142
00275                                                                   DTSBD142
00276  P0000-EXIT.                                                      DTSBD142
00277      EXIT.                                                        DTSBD142
00278                                                                   DTSBD142
00279  P1000-ADD-MPRF.                                                  DTSBD142
00280 *&                                                                DTSBD142
00281      DISPLAY 'BD142 P1000 ' T002-EMP-NO.                          DTSBD142
00282 *&                                                                DTSBD142
00283                                                                   DTSBD142
00284 *************************************                             DTSBD142
00285 *  CHECK FOR DUPLICATE                                            DTSBD142
00286 *************************************                             DTSBD142
00287      MOVE LOW-VALUES          TO MPRF-REC.                        DTSBD142
00288      MOVE T002-EMP-NO         TO MPRF-EMP-NO.                     DTSBD142
00289      SET MPRF-PRF-88          TO TRUE.                            DTSBD142
00290      MOVE MPRF-KEY-AREA       TO MSKL-KEY-AREA.                   DTSBD142
00291      PERFORM S910-READ        THRU S910-EXIT.                     DTSBD142
00292      IF L910-OK-88                                                DTSBD142
00293         DISPLAY 'ACCOUNT NBR ALREADY ON FILE: '                   DTSBD142
00294            T002-EMP-NO '  ' Y104-FEIN  '  SOURCE: '               DTSBD142
00295            Y104-SOURCE-CD                                         DTSBD142
00296         SET W-ERROR-YES-88                TO TRUE                 DTSBD142
00297         GO TO P1000-EXIT                                          DTSBD142
00298      END-IF.                                                      DTSBD142
00299                                                                   DTSBD142
00300      MOVE LOW-VALUES TO MPRF-REC.                                 DTSBD142
00301                                                                   DTSBD142
00302      MOVE T002-EMP-NO TO MPRF-EMP-NO.                             DTSBD142
00303                                                                   DTSBD142
00304      SET MPRF-PRF-88 TO TRUE.                                     DTSBD142
00305                                                                   DTSBD142
00306      MOVE +0 TO MPRF-PURGE-DATE.                                  DTSBD142
00307                                                                   DTSBD142
00308      PERFORM P1100-CLASS-STATUS   THRU P1100-EXIT.                DTSBD142
00309                                                                   DTSBD142
00310      IF Y104-SOURCE-FEIN-LIST-88                                  DTSBD142
00311         SET MPRF-ELIGIBLE-NOT-SUBJECT-88  TO TRUE                 DTSBD142
00312      ELSE                                                         DTSBD142
00313         MOVE Y104-ELIG-CD                 TO MPRF-ELIGIBLE-CD     DTSBD142
00314      END-IF.                                                      DTSBD142
00315                                                                   DTSBD142
00316      IF Y104-TRADE-NAME = SPACES                                  DTSBD142
00317         MOVE Y104-ENTITY-NAME TO MPRF-PRIMARY-NAME                DTSBD142
00318         SET MPRF-PRIMARY-IS-ENTITY-88 TO TRUE                     DTSBD142
00319         MOVE SPACES TO MPRF-ENTITY-NAME                           DTSBD142
00320      ELSE                                                         DTSBD142
00321         MOVE Y104-TRADE-NAME TO MPRF-PRIMARY-NAME                 DTSBD142
00322         MOVE Y104-ENTITY-NAME TO MPRF-ENTITY-NAME                 DTSBD142
00323         SET MPRF-PRIMARY-IS-NOT-ENTITY-88 TO TRUE                 DTSBD142
00324      END-IF.                                                      DTSBD142
00325                                                                   DTSBD142
00326      SET MPRF-UC30-MASS-MAIL-YES-88 TO TRUE.                      DTSBD142
00327                                                                   DTSBD142
00328      SET MPRF-UC30-CREDIT-YES-88 TO TRUE.                         DTSBD142
00329                                                                   DTSBD142
00330      SET MPRF-FEIN-HARASS-YES-88 TO TRUE.                         DTSBD142
00331                                                                   DTSBD142
00332      SET MPRF-CHRG-STMT-PRINT-YES-88 TO TRUE.                     DTSBD142
00333                                                                   DTSBD142
00334      SET MPRF-DC-CONTRACTOR-NO-88 TO TRUE.                        DTSBD142
00335                                                                   DTSBD142
00336      MOVE Y104-ORG-TYPE         TO MPRF-ORG-TYPE.                 DTSBD142
00337                                                                   DTSBD142
00338      SET MPRF-FISC-AG-NONE-88 TO TRUE.                            DTSBD142
00339                                                                   DTSBD142
00340      MOVE Y104-FEIN TO MPRF-FEIN.                                 DTSBD142
00341                                                                   DTSBD142
00342      MOVE +0 TO MPRF-DC-BUSINESS-TAX-ACCT-NO.                     DTSBD142
00343                                                                   DTSBD142
00344      SET MPRF-SUSPEND-COLL-NO-88 TO TRUE.                         DTSBD142
00345                                                                   DTSBD142
00346      SET MPRF-NOT-WRITTEN-OFF-88 TO TRUE.                         DTSBD142
00347                                                                   DTSBD142
00348      SET MPRF-PURGE-ALL-NO-88 TO TRUE.                            DTSBD142
00349                                                                   DTSBD142
00350      SET MPRF-SIC-CD-NONCLASSIF-88 TO TRUE.                       DTSBD142
00351                                                                   DTSBD142
00352      MOVE SPACES TO MPRF-OLD-SIC-CD.                              DTSBD142
00353                                                                   DTSBD142
00354      MOVE +0 TO MPRF-SIC-CHNG-DATE.                               DTSBD142
00355                                                                   DTSBD142
00356      SET MPRF-SIC-AUX-UNK-88 TO TRUE.                             DTSBD142
00357                                                                   DTSBD142
00358 *    SET MPRF-NAICS-CD-NONCLASSIF-88 TO TRUE.                     DTSBD142
00359      MOVE Y104-NAICS TO MPRF-NAICS-CD.                            DTSBD142
00360      DISPLAY ' >>>>>>>>>>>> ESSP NAICS ' Y104-NAICS.              DTSBD142
00361      DISPLAY ' <<<<<<<<<<<< MPRF NAICS ' MPRF-NAICS-CD.           DTSBD142
00362                                                                   DTSBD142
00363      MOVE SPACES TO MPRF-OLD-NAICS-CD.                            DTSBD142
00364                                                                   DTSBD142
00365      MOVE W-CURR-RUN-DATE      TO MPRF-NAICS-CHNG-DATE.           DTSBD142
00366                                                                   DTSBD142
00367      SET MPRF-NAICS-AUX-UNK-88 TO TRUE.                           DTSBD142
00368                                                                   DTSBD142
00369      SET MPRF-OWN-CD-NONCLASSIF-88 TO TRUE.                       DTSBD142
00370                                                                   DTSBD142
00371      MOVE SPACES TO MPRF-OLD-OWN-CD.                              DTSBD142
00372                                                                   DTSBD142
00373      MOVE +0 TO MPRF-OWN-CHNG-DATE.                               DTSBD142
00374                                                                   DTSBD142
00375      SET MPRF-SINGLE-UNIT-88 TO TRUE.                             DTSBD142
00376                                                                   DTSBD142
00377      SET MPRF-WARD-UNKNOWN-88 TO TRUE.                            DTSBD142
00378                                                                   DTSBD142
00379      MOVE +0 TO MPRF-PURSUED-RPT-CNT.                             DTSBD142
00380                                                                   DTSBD142
00381      MOVE +0 TO MPRF-TOT-BALANCE-AMT.                             DTSBD142
00382                                                                   DTSBD142
00383      MOVE +0 TO MPRF-TOT-CREDIT-AMT.                              DTSBD142
00384                                                                   DTSBD142
00385      SET MPRF-BANKRP-NOT-OPEN-88 TO TRUE.                         DTSBD142
00386                                                                   DTSBD142
00387      MOVE +0 TO MPRF-ARCHIVED-AUDIT-YRQ.                          DTSBD142
00388                                                                   DTSBD142
00389      MOVE 19941           TO MPRF-LAST-ARCHIVED-YRQ.              DTSBD142
00390                                                                   DTSBD142
00391      SET MPRF-TAX-REC-ADDR-NO-88 TO TRUE.                         DTSBD142
00392                                                                   DTSBD142
00393      SET MPRF-BEN-MAIL-ADDR-NO-88 TO TRUE.                        DTSBD142
00394                                                                   DTSBD142
00395      SET MPRF-RETURN-MAIL-NO-88 TO TRUE.                          DTSBD142
00396                                                                   DTSBD142
00397      MOVE Y104-FIELD-ZIP          TO MPRF-FLD-ZIP.                DTSBD142
00398      MOVE Y104-FIELD-STATE        TO MPRF-FLD-ST.                 DTSBD142
00399                                                                   DTSBD142
00400      SET MPRF-NO-MAPL-88 TO TRUE.                                 DTSBD142
00401                                                                   DTSBD142
00402      SET MPRF-NO-MLIN-88 TO TRUE.                                 DTSBD142
00403                                                                   DTSBD142
00404      SET MPRF-NO-MDPC-88 TO TRUE.                                 DTSBD142
00405                                                                   DTSBD142
00406      SET MPRF-NO-MFAS-88 TO TRUE.                                 DTSBD142
00407                                                                   DTSBD142
00408      SET MPRF-UPDATED-NEVER-88 TO TRUE.                           DTSBD142
00409                                                                   DTSBD142
00410      MOVE +0 TO MPRF-UPDATE-TASK-ID.                              DTSBD142
00411                                                                   DTSBD142
00412      MOVE SPACES TO MPRF-UPDATE-OP-ID.                            DTSBD142
00413                                                                   DTSBD142
00414      MOVE SPACES TO MPRF-UPDATE-TERMID.                           DTSBD142
00415                                                                   DTSBD142
00416      MOVE SPACES TO MPRF-UPDATE-NETNAME.                          DTSBD142
00417                                                                   DTSBD142
00418      MOVE +0 TO MPRF-UPDATE-START-DATE.                           DTSBD142
00419                                                                   DTSBD142
00420      MOVE SPACES TO MPRF-UPDATE-SCR-ID.                           DTSBD142
00421                                                                   DTSBD142
00422      MOVE SPACES TO MPRF-UPDATE-FUNCTION.                         DTSBD142
00423                                                                   DTSBD142
00424      SET MPRF-NOT-CONVERTED-88 TO TRUE.                           DTSBD142
00425                                                                   DTSBD142
00426      MOVE W-CURR-RUN-DATE      TO MPRF-ESTB-DATE                  DTSBD142
00427                                   MPRF-CHNG-DATE.                 DTSBD142
00428                                                                   DTSBD142
00429      MOVE MPRF-REC TO MSKL-REC.                                   DTSBD142
00430                                                                   DTSBD142
00431      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD142
00432                                                                   DTSBD142
00433      ADD +1             TO W-MPRF-CNT.                            DTSBD142
00434                                                                   DTSBD142
00435  P1000-EXIT.                                                      DTSBD142
00436      EXIT.                                                        DTSBD142
00437                                                                   DTSBD142
00438  P1100-CLASS-STATUS.                                              DTSBD142
00439      MOVE Y104-LIAB-CD                TO MSOL-LIAB-CD.            DTSBD142
00440                                                                   DTSBD142
00441      EVALUATE TRUE                                                DTSBD142
00442        WHEN Y104-STAFF-REVIEW-YES-88                              DTSBD142
00443           SET MPRF-CLASS-UNK-88       TO TRUE                     DTSBD142
00444           SET MPRF-STATUS-UNK-88      TO TRUE                     DTSBD142
00445                                                                   DTSBD142
00446        WHEN MSOL-LIAB-REG-88                                      DTSBD142
00447           SET MPRF-CLASS-RATED-88     TO TRUE                     DTSBD142
00448           SET MPRF-STATUS-ACT-88      TO TRUE                     DTSBD142
00449                                                                   DTSBD142
00450        WHEN MSOL-LIAB-SELF-88                                     DTSBD142
00451           SET MPRF-CLASS-SELF-INS-88  TO TRUE                     DTSBD142
00452           SET MPRF-STATUS-ACT-88      TO TRUE                     DTSBD142
00453                                                                   DTSBD142
00454        WHEN MSOL-LIAB-CD = '00'                                   DTSBD142
00455           SET MPRF-CLASS-UNK-88       TO TRUE                     DTSBD142
00456           SET MPRF-STATUS-NEVERSUB-88 TO TRUE                     DTSBD142
00457                                                                   DTSBD142
00458        WHEN OTHER                                                 DTSBD142
00459           SET MPRF-CLASS-UNK-88       TO TRUE                     DTSBD142
00460           SET MPRF-STATUS-UNK-88      TO TRUE                     DTSBD142
00461                                                                   DTSBD142
00462      END-EVALUATE.                                                DTSBD142
00463                                                                   DTSBD142
00464  P1100-EXIT.                                                      DTSBD142
00465      EXIT.                                                        DTSBD142
00466                                                                   DTSBD142
00467  P2000-ADD-MERA.                                                  DTSBD142
00468 *&                                                                DTSBD142
00469 *    DISPLAY 'BD142 P2000 ' T002-EMP-NO.                          DTSBD142
00470 *&                                                                DTSBD142
00471      MOVE LOW-VALUES TO MERA-REC.                                 DTSBD142
00472                                                                   DTSBD142
00473      MOVE MPRF-EMP-NO TO MERA-EMP-NO.                             DTSBD142
00474                                                                   DTSBD142
00475      SET MERA-ERA-88 TO TRUE.                                     DTSBD142
00476                                                                   DTSBD142
00477      MOVE +0 TO MERA-PURGE-DATE.                                  DTSBD142
00478                                                                   DTSBD142
00479      MOVE Y104-SOURCE-CD      TO MERA-SOURCE-CD.                  DTSBD142
00480                                                                   DTSBD142
00481      MOVE +0 TO MERA-CLAIMANT-SSN.                                DTSBD142
00482                                                                   DTSBD142
00483      MOVE SPACE TO MERA-CLAIMANT-NAME.                            DTSBD142
00484                                                                   DTSBD142
00485      MOVE SPACE TO MERA-RESPONSIBLE-OP-ID.                        DTSBD142
00486                                                                   DTSBD142
00487      MOVE +0 TO MERA-POT-PRED-EMP-NO.                             DTSBD142
00488                                                                   DTSBD142
00489      MOVE SPACE TO MERA-NOTE.                                     DTSBD142
00490                                                                   DTSBD142
00491      SET MERA-LETTER-GENERIC-88 TO TRUE.                          DTSBD142
00492                                                                   DTSBD142
00493      SET MERA-FIRST-LABEL-NEEDED-88 TO TRUE.                      DTSBD142
00494                                                                   DTSBD142
00495      MOVE +1 TO MERA-LABEL-CNT.                                   DTSBD142
00496                                                                   DTSBD142
00497      PERFORM P2100-STATUS           THRU P2100-EXIT.              DTSBD142
00498                                                                   DTSBD142
00499      IF MERA-SOURCE-FEIN-LIST-88                                  DTSBD142
00500         MOVE ZERO               TO MERA-RECEIVED-DATE             DTSBD142
00501      ELSE                                                         DTSBD142
00502         MOVE W-CURR-RUN-DATE    TO MERA-RECEIVED-DATE             DTSBD142
00503      END-IF.                                                      DTSBD142
00504                                                                   DTSBD142
00505      MOVE +0 TO MERA-MAIL-DATE-1                                  DTSBD142
00506                 MERA-MAIL-DATE-2                                  DTSBD142
00507                 MERA-COOP-AGENCY-REQ-DATE                         DTSBD142
00508                 MERA-FIELD-ASSIGN-DATE                            DTSBD142
00509                 MERA-DETER-NOTSUB-DATE.                           DTSBD142
00510                                                                   DTSBD142
00511      SET MERA-NOT-CONVERTED-88 TO TRUE.                           DTSBD142
00512                                                                   DTSBD142
00513      MOVE W-CURR-RUN-DATE    TO MERA-ESTB-DATE                    DTSBD142
00514                                 MERA-CHNG-DATE.                   DTSBD142
00515                                                                   DTSBD142
00516      MOVE MERA-REC TO MSKL-REC.                                   DTSBD142
00517                                                                   DTSBD142
00518      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD142
00519                                                                   DTSBD142
00520      ADD +1             TO W-MERA-CNT.                            DTSBD142
00521                                                                   DTSBD142
00522  P2000-EXIT.                                                      DTSBD142
00523      EXIT.                                                        DTSBD142
00524                                                                   DTSBD142
00525  P2100-STATUS.                                                    DTSBD142
00526      MOVE W-CURR-RUN-DATE    TO MERA-STATUS-CHNG-DATE.            DTSBD142
00527                                                                   DTSBD142
00528      EVALUATE TRUE                                                DTSBD142
00529        WHEN MERA-SOURCE-UC30-88                                   DTSBD142
00530          SET MERA-STATUS-SETUP-88       TO TRUE                   DTSBD142
00531                                                                   DTSBD142
00532        WHEN MERA-SOURCE-FEIN-LIST-88                              DTSBD142
00533          SET MERA-STATUS-SETUP-88       TO TRUE                   DTSBD142
00534                                                                   DTSBD142
00535        WHEN Y104-STAFF-REVIEW-YES-88                              DTSBD142
00536        OR Y104-LIAB-CD = '  '                                     DTSBD142
00537          SET MERA-STATUS-MANUAL-88      TO TRUE                   DTSBD142
00538                                                                   DTSBD142
00539        WHEN Y104-LIAB-CD = '00'                                   DTSBD142
00540          SET MERA-STATUS-NOT-LIAB-88    TO TRUE                   DTSBD142
00541                                                                   DTSBD142
00542        WHEN OTHER                                                 DTSBD142
00543          SET MERA-STATUS-LIAB-88        TO TRUE                   DTSBD142
00544                                                                   DTSBD142
00545      END-EVALUATE.                                                DTSBD142
00546                                                                   DTSBD142
00547  P2100-EXIT.                                                      DTSBD142
00548      EXIT.                                                        DTSBD142
00549                                                                   DTSBD142
00550  P3000-ADD-MEVL.                                                  DTSBD142
00551      MOVE LOW-VALUES TO MEVL-REC.                                 DTSBD142
00552                                                                   DTSBD142
00553      MOVE MPRF-EMP-NO TO MEVL-EMP-NO.                             DTSBD142
00554                                                                   DTSBD142
00555      SET MEVL-EVL-88 TO TRUE.                                     DTSBD142
00556                                                                   DTSBD142
00557      MOVE L005-DATE TO MEVL-DATE.                                 DTSBD142
00558                                                                   DTSBD142
00559      MOVE L005-TIME TO MEVL-TIME.                                 DTSBD142
00560                                                                   DTSBD142
00561      MOVE +0 TO MEVL-PURGE-DATE.                                  DTSBD142
00562                                                                   DTSBD142
00563      IF MERA-SOURCE-FEIN-LIST-88                                  DTSBD142
00564         MOVE 'FUTA QUARTERLY EIN' TO MEVL-TEXT                    DTSBD142
00565         MOVE 'FUTA EIN'           TO MEVL-SOURCE                  DTSBD142
00566      ELSE                                                         DTSBD142
00567         MOVE 'WEB REGISTRATION'   TO MEVL-TEXT                    DTSBD142
00568         MOVE 'WEB REG'            TO MEVL-SOURCE                  DTSBD142
00569      END-IF.                                                      DTSBD142
00570                                                                   DTSBD142
00571                                                                   DTSBD142
00572      SET MEVL-NOT-CONVERTED-88 TO TRUE.                           DTSBD142
00573                                                                   DTSBD142
00574      MOVE W-CURR-RUN-DATE    TO MEVL-ESTB-DATE                    DTSBD142
00575                                 MEVL-CHNG-DATE.                   DTSBD142
00576                                                                   DTSBD142
00577      MOVE MEVL-REC TO MSKL-REC.                                   DTSBD142
00578                                                                   DTSBD142
00579      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD142
00580                                                                   DTSBD142
00581  P3000-EXIT.                                                      DTSBD142
00582      EXIT.                                                        DTSBD142
00583                                                                   DTSBD142
00584  P4000-CHK-MFSC.                                                  DTSBD142
00585      IF Y104-ORG-HOUSEHOLD-88                                     DTSBD142
00586         IF Y104-HH-ANNUAL-88                                      DTSBD142
00587         OR Y104-HH-QUARTERLY-88                                   DTSBD142
00588            PERFORM P4100-ADD-MFSC   THRU P4100-EXIT               DTSBD142
00589         END-IF                                                    DTSBD142
00590      END-IF.                                                      DTSBD142
00591                                                                   DTSBD142
00592  P4000-EXIT.                                                      DTSBD142
00593      EXIT.                                                        DTSBD142
00594                                                                   DTSBD142
00595  P4100-ADD-MFSC.                                                  DTSBD142
00596      MOVE Y104-FIRST-WAGE-DT       TO L004-DATE                   DTSBD142
00597      PERFORM S004-FROM-DATE        THRU S004-EXIT                 DTSBD142
00598      IF Y104-HH-ANNUAL-88                                         DTSBD142
00599         MOVE 1                     TO L004-QTR-5-Q                DTSBD142
00600         PERFORM S004-FROM-5        THRU S004-EXIT                 DTSBD142
00601      END-IF.                                                      DTSBD142
00602                                                                   DTSBD142
00603      DISPLAY 'BD142 ANN ' MPRF-EMP-NO                             DTSBD142
00604         '  ANN ' Y104-HOUSEHOLD-FILING                            DTSBD142
00605         '  LIAB ' Y104-FIRST-WAGE-DT                              DTSBD142
00606         '  QTR ' L004-QTR-5-9.                                    DTSBD142
00607                                                                   DTSBD142
00608      MOVE LOW-VALUES               TO MFSC-REC.                   DTSBD142
00609      MOVE MPRF-EMP-NO              TO MFSC-EMP-NO.                DTSBD142
00610      SET MFSC-FSC-88 TO TRUE.                                     DTSBD142
00611      MOVE L004-ABS-QTR             TO MFSC-ABS-QTR.               DTSBD142
00612      MOVE W-SYS-ABSTIME            TO MFSC-ABSTIME.               DTSBD142
00613      MOVE +0                       TO MFSC-PURGE-DATE.            DTSBD142
00614      SET MFSC-STATUS-OPEN-88       TO TRUE.                       DTSBD142
00615      MOVE L004-QTR-5-9             TO MFSC-START-YRQ.             DTSBD142
00616      MOVE W-ALL-NINES-QTR          TO MFSC-END-YRQ.               DTSBD142
00617      MOVE Y104-HOUSEHOLD-FILING    TO MFSC-FILING-SCHEDULE-CD.    DTSBD142
00618      SET MFSC-REQ-LIAB-DETERM-88   TO TRUE.                       DTSBD142
00619      MOVE SPACES                   TO MFSC-CHANGE-REASON-CD       DTSBD142
00620                                       MFSC-INIT-NOTICE-TYPE       DTSBD142
00621                                       MFSC-CONFIRM-NOTICE-TYPE    DTSBD142
00622                                       MFSC-DENIAL-NOTICE-TYPE.    DTSBD142
00623      MOVE ZERO                     TO MFSC-INITIAL-MAIL-DATE      DTSBD142
00624                                       MFSC-CONFIRM-MAIL-DATE      DTSBD142
00625                                       MFSC-DENIAL-MAIL-DATE.      DTSBD142
00626      MOVE W-CURR-RUN-DATE          TO MFSC-ESTB-DATE              DTSBD142
00627                                       MFSC-CHNG-DATE.             DTSBD142
00628      MOVE 'WEB REG'                TO MFSC-CHNG-OP-ID.            DTSBD142
00629      MOVE +0 TO  MFSC-NOTE-CNT.                                   DTSBD142
00630                                                                   DTSBD142
00631      MOVE MFSC-REC TO MSKL-REC.                                   DTSBD142
00632                                                                   DTSBD142
00633      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD142
00634                                                                   DTSBD142
00635  P4100-EXIT.                                                      DTSBD142
00636      EXIT.                                                        DTSBD142
00637                                                                   DTSBD142
00638  P5000-ADD-T031.                                                  DTSBD142
00639      IF MERA-STATUS-LIAB-88                                       DTSBD142
00640         PERFORM P5100-LIABLE            THRU P5100-EXIT           DTSBD142
00641      ELSE                                                         DTSBD142
00642         IF MERA-SOURCE-FEIN-LIST-88                               DTSBD142
00643            PERFORM P5300-POTENTIAL-EMP  THRU P5300-EXIT           DTSBD142
00644 ***  ELSE                                                         DTSBD142
00645 ***     PERFORM P5200-NOT-LIABLE        THRU P5200-EXIT           DTSBD142
00646      END-IF.                                                      DTSBD142
00647                                                                   DTSBD142
00648  P5000-EXIT.                                                      DTSBD142
00649      EXIT.                                                        DTSBD142
00650                                                                   DTSBD142
00651  P5100-LIABLE.                                                    DTSBD142
00652 *&                                                                DTSBD142
00653      DISPLAY 'BD142 P5100 ' T002-EMP-NO.                          DTSBD142
00654 *&                                                                DTSBD142
00655      MOVE ZERO                    TO W-FIRST-LIAB-YRQ             DTSBD142
00656                                      W-LAST-LIAB-YRQ.             DTSBD142
00657      IF Y104-FIRST-WAGE-DT = ZERO                                 DTSBD142
00658         DISPLAY 'LIABLE EMPLOYER BUT NO FIRST WAGE DT '           DTSBD142
00659            MPRF-EMP-NO                                            DTSBD142
00660         GO TO P5100-EXIT                                          DTSBD142
00661      END-IF.                                                      DTSBD142
00662                                                                   DTSBD142
00663      PERFORM P5110-LIAB-DATES      THRU P5110-EXIT.               DTSBD142
00664                                                                   DTSBD142
00665      PERFORM P5910-INITIALIZE-T031 THRU P5910-EXIT.               DTSBD142
00666      MOVE MPRF-EMP-NO          TO T031-EMP-NO.                    DTSBD142
00667      SET T031-AUTO-PROCESS     TO TRUE.                           DTSBD142
00668      MOVE W-FIRST-LIAB-YRQ     TO T031-START-YRQ                  DTSBD142
00669      MOVE W-LAST-LIAB-YRQ      TO T031-END-YRQ                    DTSBD142
00670      MOVE ZERO                 TO T031-WAIVER-START-YRQ           DTSBD142
00671                                   T031-WAIVER-END-YRQ             DTSBD142
00672                                   T031-WAIVER-EXT-DATE.           DTSBD142
00673      MOVE T031-REC             TO RSKL-REC.                       DTSBD142
00674                                                                   DTSBD142
00675      PERFORM S946-WRITE-TRANS  THRU S946-EXIT.                    DTSBD142
00676      ADD +1             TO W-T031-CNT.                            DTSBD142
00677                                                                   DTSBD142
00678 *&                                                                DTSBD142
00679         DISPLAY 'BD142 P5100 ' T002-EMP-NO                        DTSBD142
00680            '  T031 FIRST ' T031-START-YRQ                         DTSBD142
00681            '  T031 LAST ' T031-END-YRQ.                           DTSBD142
00682 *&                                                                DTSBD142
00683  P5100-EXIT.                                                      DTSBD142
00684      EXIT.                                                        DTSBD142
00685                                                                   DTSBD142
00686  P5110-LIAB-DATES.                                                DTSBD142
00687      MOVE Y104-FIRST-WAGE-DT  TO L004-DATE.                       DTSBD142
00688      PERFORM S004-FROM-DATE   THRU S004-EXIT                      DTSBD142
00689      IF NOT L004-VALID-QTR                                        DTSBD142
00690         DISPLAY 'P5110: INVALID FIRST WAGE DATE '                 DTSBD142
00691            MPRF-EMP-NO '  ' Y104-FIRST-WAGE-DT                    DTSBD142
00692 ***     SET W-ERROR-YES-88  TO TRUE                               DTSBD142
00693      ELSE                                                         DTSBD142
00694         MOVE L004-QTR-5-9          TO W-FIRST-LIAB-YRQ            DTSBD142
00695         MOVE W-ALL-NINES-QTR       TO W-LAST-LIAB-YRQ             DTSBD142
00696         MOVE Y104-FIRST-WAGE-DT    TO W-LIAB-DATE                 DTSBD142
00697 *&                                                                DTSBD142
00698         DISPLAY 'BD142 P5110 ' T002-EMP-NO                        DTSBD142
00699            '  FIRST LIAB ' W-FIRST-LIAB-YRQ                       DTSBD142
00700            '  LAST LIAB ' W-LAST-LIAB-YRQ                         DTSBD142
00701 *&                                                                DTSBD142
00702      END-IF.                                                      DTSBD142
00703                                                                   DTSBD142
00704  P5110-EXIT.                                                      DTSBD142
00705      EXIT.                                                        DTSBD142
00706                                                                   DTSBD142
00707 *P5200-NOT-LIABLE.                                                DTSBD142
00708 *    MOVE ZERO                           TO W-FOLLOWUP-DT.        DTSBD142
00709 *                                                                 DTSBD142
00710 *    IF T002-WAGES-PLANNED-DT > ZERO                              DTSBD142
00711 *       MOVE T002-WAGES-PLANNED-DT       TO W-FOLLOWUP-DT         DTSBD142
00712 *    ELSE                                                         DTSBD142
00713 *       IF T002-500-PLANNED-QTR > ZERO                            DTSBD142
00714 *          MOVE T002-500-PLANNED-QTR     TO L004-QTR-5-9          DTSBD142
00715 *          PERFORM S004-FROM-5           THRU S004-EXIT           DTSBD142
00716 *          IF L004-VALID-QTR                                      DTSBD142
00717 *             MOVE L004-QTR-END-DATE     TO L001-FED-8-DATE-9     DTSBD142
00718 *             PERFORM S001-FROM-FED-8    THRU S001-EXIT           DTSBD142
00719 *             ADD +60                    TO L001-JUL-ABS-DAY      DTSBD142
00720 *             PERFORM S001-FROM-ABS-DAY  THRU S001-EXIT           DTSBD142
00721 *             MOVE L001-FED-8-DATE-9     TO W-FOLLOWUP-DT         DTSBD142
00722 *          END-IF                                                 DTSBD142
00723 *       END-IF                                                    DTSBD142
00724 *    END-IF.                                                      DTSBD142
00725 *                                                                 DTSBD142
00726 *    IF W-FOLLOWUP-DT > ZERO                                      DTSBD142
00727 *       PERFORM P5210-TICKLER            THRU P5210-EXIT          DTSBD142
00728 *    END-IF.                                                      DTSBD142
00729 *                                                                 DTSBD142
00730 *P5200-EXIT.                                                      DTSBD142
00731 *    EXIT.                                                        DTSBD142
00732 *                                                                 DTSBD142
00733 *P5210-TICKLER.                                                   DTSBD142
00734 *    MOVE LOW-VALUES              TO MTCK-REC                     DTSBD142
00735 *    MOVE MPRF-EMP-NO             TO MTCK-EMP-NO                  DTSBD142
00736 *    SET MTCK-TCK-88              TO TRUE                         DTSBD142
00737 *    ADD +1000                    TO L005-ABSTIME.                DTSBD142
00738 *    MOVE L005-ABSTIME            TO MTCK-ESTB-ABSTIME            DTSBD142
00739 *    MOVE +0                      TO MTCK-PURGE-DATE              DTSBD142
00740 *    SET MTCK-TYPE-MANUAL-88      TO TRUE                         DTSBD142
00741 *    MOVE W-FOLLOWUP-DT           TO MTCK-TRIGGER-DATE            DTSBD142
00742 *    MOVE +0                      TO MTCK-ACKNOWLEDGED-DATE       DTSBD142
00743 *    MOVE W-MOD-NAME              TO MTCK-SOURCE-OP-ID            DTSBD142
00744 *    MOVE 'STATUS'                TO MTCK-DEST-OP-ID              DTSBD142
00745 *    SET MTCK-NOT-CONVERTED-88    TO TRUE                         DTSBD142
00746 *    MOVE W-CURR-RUN-DATE         TO MTCK-ESTB-DATE               DTSBD142
00747 *                                    MTCK-CHNG-DATE               DTSBD142
00748 *    MOVE +1                      TO MTCK-TEXT-CNT                DTSBD142
00749 *    MOVE SPACES                  TO MTCK-TEXT (1)                DTSBD142
00750 *    STRING 'WEB REGISTRATION - WAGES NOT YET PAID '              DTSBD142
00751 *             DELIMITED BY SIZE                                   DTSBD142
00752 *           W-RUN-DATE-DISP                                       DTSBD142
00753 *             DELIMITED BY SIZE                                   DTSBD142
00754 *           '.  FOLLOW UP?'                                       DTSBD142
00755 *             DELIMITED BY SIZE                                   DTSBD142
00756 *        INTO                                                     DTSBD142
00757 *            MTCK-TEXT (1)                                        DTSBD142
00758 *    MOVE MTCK-REC                TO MSKL-REC                     DTSBD142
00759 *    PERFORM S910-WRITE           THRU S910-EXIT.                 DTSBD142
00760 *                                                                 DTSBD142
00761 *P5210-EXIT.                                                      DTSBD142
00762 *    EXIT.                                                        DTSBD142
00763                                                                   DTSBD142
00764  P5300-POTENTIAL-EMP.                                             DTSBD142
00765 *&                                                                DTSBD142
00766      DISPLAY 'BD142 P5300 ' MPRF-EMP-NO.                          DTSBD142
00767 *&                                                                DTSBD142
00768      MOVE LOW-VALUES              TO MTCK-REC                     DTSBD142
00769      MOVE MPRF-EMP-NO             TO MTCK-EMP-NO                  DTSBD142
00770      SET MTCK-TCK-88              TO TRUE                         DTSBD142
00771      ADD +1000                    TO L005-ABSTIME.                DTSBD142
00772      MOVE L005-ABSTIME            TO MTCK-ESTB-ABSTIME            DTSBD142
00773      MOVE +0                      TO MTCK-PURGE-DATE              DTSBD142
00774      SET MTCK-TYPE-CYCLE-A-88     TO TRUE                         DTSBD142
00775      MOVE W-CURR-RUN-DATE         TO MTCK-TRIGGER-DATE            DTSBD142
00776      MOVE +0                      TO MTCK-ACKNOWLEDGED-DATE       DTSBD142
00777      SET MTCK-SOURCE-SYSTEM-88    TO TRUE.                        DTSBD142
00778      SET MTCK-DEST-SYSTEM-88      TO TRUE.                        DTSBD142
00779      SET MTCK-NOT-CONVERTED-88    TO TRUE                         DTSBD142
00780      MOVE W-CURR-RUN-DATE         TO MTCK-ESTB-DATE               DTSBD142
00781                                      MTCK-CHNG-DATE               DTSBD142
00782      MOVE +0                      TO MTCK-TEXT-CNT                DTSBD142
00783                                                                   DTSBD142
00784      MOVE MTCK-REC                TO MSKL-REC                     DTSBD142
00785      PERFORM S910-WRITE           THRU S910-EXIT.                 DTSBD142
00786                                                                   DTSBD142
00787  P5300-EXIT.                                                      DTSBD142
00788      EXIT.                                                        DTSBD142
00789                                                                   DTSBD142
00790  P5900-INITIALIZE-T001.                                           DTSBD142
00791      MOVE LENGTH OF T001-REC TO T001-LENGTH.                      DTSBD142
00792      MOVE 'WEB REG'  TO T001-OP-ID.                               DTSBD142
00793      MOVE SPACES     TO T001-SCR-ID.                              DTSBD142
00794      MOVE L005-DATE  TO T001-SYS-DATE.                            DTSBD142
00795      MOVE L005-TIME  TO T001-SYS-TIME.                            DTSBD142
00796      MOVE SPACES     TO T001-RESP-OP-ID.                          DTSBD142
00797      MOVE SPACES TO T001-INACT-LTR-TYPE                           DTSBD142
00798                     T001-NOT-LIABLE-LTR-TYPE                      DTSBD142
00799                     T001-WELCOME-LTR-IND.                         DTSBD142
00800                                                                   DTSBD142
00801  P5900-EXIT.                                                      DTSBD142
00802      EXIT.                                                        DTSBD142
00803                                                                   DTSBD142
00804  P5910-INITIALIZE-T031.                                           DTSBD142
00805      MOVE LENGTH OF T031-REC TO T031-LENGTH.                      DTSBD142
00806      MOVE 'WEB REG'  TO T031-OP-ID.                               DTSBD142
00807      MOVE SPACES     TO T031-SCR-ID.                              DTSBD142
00808      MOVE L005-DATE  TO T031-SYS-DATE.                            DTSBD142
00809      MOVE L005-TIME  TO T031-SYS-TIME.                            DTSBD142
00810      MOVE +0 TO T031-START-YRQ                                    DTSBD142
00811                 T031-END-YRQ                                      DTSBD142
00812                 T031-WAIVER-START-YRQ                             DTSBD142
00813                 T031-WAIVER-END-YRQ                               DTSBD142
00814                 T031-WAIVER-EXT-DATE.                             DTSBD142
00815      SET T031-TRANSFER-NO-88 TO TRUE.                             DTSBD142
00816      MOVE +0 TO T031-TRANSFER-TO-EMP-NO.                          DTSBD142
00817                                                                   DTSBD142
00818  P5910-EXIT.                                                      DTSBD142
00819      EXIT.                                                        DTSBD142
00820                                                                   DTSBD142
00821  T0000-TERMINATE.                                                 DTSBD142
00822                                                                   DTSBD142
00823      DISPLAY ' '.                                                 DTSBD142
00824      DISPLAY ' '.                                                 DTSBD142
00825                                                                   DTSBD142
00826      DISPLAY '*** DTSBD142 TERMINATION STATISTICS ***'.           DTSBD142
00827                                                                   DTSBD142
00828      DISPLAY '  '.                                                DTSBD142
00829      DISPLAY 'T002 INPUT COUNT                              :'    DTSBD142
00830              W-T002-CNT.                                          DTSBD142
00831                                                                   DTSBD142
00832      DISPLAY '  '.                                                DTSBD142
00833      DISPLAY 'MPRF ADDED COUNT                              :'    DTSBD142
00834              W-MPRF-CNT.                                          DTSBD142
00835                                                                   DTSBD142
00836      DISPLAY '  '.                                                DTSBD142
00837      DISPLAY 'MERA ADDED COUNT                              :'    DTSBD142
00838              W-MERA-CNT.                                          DTSBD142
00839                                                                   DTSBD142
00840      DISPLAY '  '.                                                DTSBD142
00841      DISPLAY 'T001 LIABLE COUNT                             :'    DTSBD142
00842              W-T001-LIAB-CNT.                                     DTSBD142
00843                                                                   DTSBD142
00844      DISPLAY 'T001 FILE CLERK LIST COUNT                    :'    DTSBD142
00845              W-T001-FILE-CLERK-CNT.                               DTSBD142
00846                                                                   DTSBD142
00847      DISPLAY '  '.                                                DTSBD142
00848      DISPLAY 'T031 QUARTER PROCESS COUNT                    :'    DTSBD142
00849              W-T031-CNT.                                          DTSBD142
00850                                                                   DTSBD142
00851      DISPLAY '  '.                                                DTSBD142
00852      DISPLAY 'R907 ERROR REPORT RECORD COUNT                :'    DTSBD142
00853              W-R907-CNT.                                          DTSBD142
00854                                                                   DTSBD142
00855  T0000-EXIT.                                                      DTSBD142
00856      EXIT.                                                        DTSBD142
00857                                                                   DTSBD142
00858  S1000-INIT-MLOG.                                                 DTSBD142
00859      MOVE T002-EMP-NO            TO L331-EMP-NO.                  DTSBD142
00860      MOVE W-CURR-RUN-DATE        TO L331-CURR-RUN-DATE.           DTSBD142
00861      ADD  +1000                  TO W-SYS-ABSTIME.                DTSBD142
00862      MOVE W-SYS-ABSTIME          TO L331-UPDATE-ABSTIME.          DTSBD142
00863      MOVE 'WEB REG'              TO L331-OP-ID.                   DTSBD142
00864      SET L005-FROM-ABSTIME       TO TRUE.                         DTSBD142
00865      MOVE W-SYS-ABSTIME          TO L005-ABSTIME.                 DTSBD142
00866      PERFORM S005-SYS-DATE       THRU S005-EXIT.                  DTSBD142
00867      MOVE L005-DATE-8-SLASH-TIME TO L331-REC-OCC-ID.              DTSBD142
00868                                                                   DTSBD142
00869  S1000-EXIT.                                                      DTSBD142
00870      EXIT.                                                        DTSBD142
00871                                                                   DTSBD142
00872  S001-FROM-FED-8.                                                 DTSBD142
00873      SET L001-FROM-FED-8 TO TRUE.                                 DTSBD142
00874      GO TO S001-DATE.                                             DTSBD142
00875                                                                   DTSBD142
00876  S001-FROM-ABS-DAY.                                               DTSBD142
00877      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBD142
00878      GO TO S001-DATE.                                             DTSBD142
00879                                                                   DTSBD142
00880  S001-FROM-CAL-6.                                                 DTSBD142
00881      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBD142
00882      GO TO S001-DATE.                                             DTSBD142
00883                                                                   DTSBD142
00884  S001-DATE.                                                       DTSBD142
00885      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBD142
00886  S001-EXIT.                                                       DTSBD142
00887      EXIT.                                                        DTSBD142
00888                                                                   DTSBD142
00889  S003-AGENCY-DAY.                                                 DTSBD142
00890      SET L003-AGENCY-DAY TO TRUE.                                 DTSBD142
00891      GO TO S003-WORK-DAY.                                         DTSBD142
00892                                                                   DTSBD142
00893  S003-WORK-DAY.                                                   DTSBD142
00894      CALL 'DTSBU003' USING L003-LINK-AREA.                        DTSBD142
00895  S003-EXIT.                                                       DTSBD142
00896      EXIT.                                                        DTSBD142
00897                                                                   DTSBD142
00898  S004-FROM-DATE.                                                  DTSBD142
00899      SET L004-FROM-DATE     TO TRUE.                              DTSBD142
00900      GO TO S004-YRQ.                                              DTSBD142
00901                                                                   DTSBD142
00902  S004-FROM-5.                                                     DTSBD142
00903      SET L004-FROM-5        TO TRUE.                              DTSBD142
00904      GO TO S004-YRQ.                                              DTSBD142
00905                                                                   DTSBD142
00906  S004-YRQ.                                                        DTSBD142
00907      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBD142
00908                                                                   DTSBD142
00909  S004-EXIT.                                                       DTSBD142
00910      EXIT.                                                        DTSBD142
00911                                                                   DTSBD142
00912  S005-SYS-DATE.                                                   DTSBD142
00913      CALL 'DTSBU005' USING L005-COMM-AREA.                        DTSBD142
00914                                                                   DTSBD142
00915  S005-EXIT.                                                       DTSBD142
00916      EXIT.                                                        DTSBD142
00917                                                                   DTSBD142
00918  S331-WRITE-MLOG.                                                 DTSBD142
00919      CALL 'DTSBU331' USING L331-LINK-AREA.                        DTSBD142
00920                                                                   DTSBD142
00921  S331-EXIT.                                                       DTSBD142
00922      EXIT.                                                        DTSBD142
00923                                                                   DTSBD142
00924  S910-OPEN-UPDATE.                                                DTSBD142
00925      SET L910-OPEN-UPDATE-88        TO TRUE.                      DTSBD142
00926      GO TO S910-MSTR-IO.                                          DTSBD142
00927                                                                   DTSBD142
00928  S910-READ.                                                       DTSBD142
00929      SET L910-READ-88 TO TRUE.                                    DTSBD142
00930      GO TO S910-MSTR-IO.                                          DTSBD142
00931                                                                   DTSBD142
00932  S910-START-BROWSE.                                               DTSBD142
00933      SET L910-START-BROWSE-88 TO TRUE.                            DTSBD142
00934      GO TO S910-MSTR-IO.                                          DTSBD142
00935                                                                   DTSBD142
00936  S910-READ-NEXT.                                                  DTSBD142
00937      SET L910-READ-NEXT-88 TO TRUE.                               DTSBD142
00938      GO TO S910-MSTR-IO.                                          DTSBD142
00939                                                                   DTSBD142
00940  S910-COUNT.                                                      DTSBD142
00941      SET L910-COUNT-88 TO TRUE.                                   DTSBD142
00942      GO TO S910-MSTR-IO.                                          DTSBD142
00943                                                                   DTSBD142
00944  S910-WRITE.                                                      DTSBD142
00945      SET L910-WRITE-88 TO TRUE.                                   DTSBD142
00946      GO TO S910-MSTR-IO.                                          DTSBD142
00947                                                                   DTSBD142
00948  S910-REWRITE.                                                    DTSBD142
00949      SET L910-REWRITE-88 TO TRUE.                                 DTSBD142
00950      GO TO S910-MSTR-IO.                                          DTSBD142
00951                                                                   DTSBD142
00952  S910-CLOSE.                                                      DTSBD142
00953      SET L910-CLOSE-88     TO TRUE.                               DTSBD142
00954      GO TO S910-MSTR-IO.                                          DTSBD142
00955                                                                   DTSBD142
00956  S910-MSTR-IO.                                                    DTSBD142
00957      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBD142
00958                            MSKL-REC.                              DTSBD142
00959  S910-EXIT.                                                       DTSBD142
00960      EXIT.                                                        DTSBD142
00961                                                                   DTSBD142
00962  S946-WRITE-TRANS.                                                DTSBD142
00963      CALL 'DTSBU946' USING RSKL-REC.                              DTSBD142
00964                                                                   DTSBD142
00965  S946-EXIT.                                                       DTSBD142
00966      EXIT.                                                        DTSBD142
00967                                                                   DTSBD142
00968  S999-ABEND.                                                      DTSBD142
00969      DISPLAY '*** DTSBD142 ABENDING : '                           DTSBD142
00970              W-ABEND-MSG.                                         DTSBD142
00971                                                                   DTSBD142
00972      CALL 'DTSBU999' USING W-ABEND-CD.                            DTSBD142
00973  S999-EXIT.                                                       DTSBD142
00974      EXIT.                                                        DTSBD142
