00001  IDENTIFICATION DIVISION.                                         03/13/25
00002  PROGRAM-ID.             DTSBX479.                                DTSBX479
00003  AUTHOR.                 NGC.                                        LV018
00004  DATE-WRITTEN.           AUGUST 2004.                             DTSBX479
00005  DATE-COMPILED.                                                   DTSBX479
00006      SKIP3                                                        DTSBX479
00007 *****                                                             DTSBX479
00008 *                                                                 DTSBX479
00009 *    FUNCTION:  EXTRACT FOR BENEFITS COPY OF TAX EMPLOYER DATA.   DTSBX479
00010 *                                                                 DTSBX479
00011 *                                                                 DTSBX479
00012 *****                                                             DTSBX479
00013 ***************************************************************** DTSBX479
00014 *                                                               * DTSBX479
00015 * MODIFICATION HISTORY:                                         * DTSBX479
00016 *                                                               * DTSBX479
00017 *                                                               * DTSBX479
00018 * 08-03-2004 INITIAL DEVELOPMENT                                * DTSBX479
00019 *            REFERENCE:                  AUTHOR OF CHANGE - GD  * DTSBX479
00020 *                                                               * DTSBX479
00021 * 10-13-2004 MODIFIED TO INCLUDE POOL ACCOUNTS                  * DTSBX479
00022 *            REFERENCE:                  AUTHOR OF CHANGE - GD  * DTSBX479
00023 *                                                               * DTSBX479
00024 * 02-26-2009 RECOMPLIED FOR NEW MPRF - INCLUDES ELIG CD 20      * DTSBX479
00025 *            FOR FAC                                            * DTSBX479
00026 *            REFERENCE:                  AUTHOR OF CHANGE - GD  * DTSBX479
00027 *                                                               * DTSBX479
00028 * 05-10-2010 REMOVED TEST IN I1000-TIME-CHECK. THIS PREVENTED   * DTSBX479
00029 *            THE JOB FROM RUNNING IF THE TIME WERE LATER THAN   * DTSBX479
00030 *            6:00 PM. THE CHECK WAS NEEDED TO PREVENT FILE      * DTSBX479
00031 *            CONTENTION PROBLEMS IF THE BENEFITS JOB THAT READS * DTSBX479
00032 *            THE FILE TRIED TO RUN WHILE THE TAX JOB WAS        * DTSBX479
00033 *            CREATING IT.  SINCE THE TAX JOB SCHEDULE HAS BEEN  * DTSBX479
00034 *            MOVED BACK ONE HOUR, BENEFITS WILL NOW PICK UP THE * DTSBX479
00035 *            FILE EARLY IN THE MONRNING.                        * DTSBX479
00036 *            REFERENCE:                  AUTHOR OF CHANGE - GD  * DTSBX479
00037 *                                                               * DTSBX479
00038 * 11-04-2010 MODIFIED TO CHANGE FEIN FOR ONE EMPLOYER -         * DTSBX479
00039 *            TO PREVENT EMPLOYEE LAID OFF FROM ACCESSING        * DTSBX479
00040 *            INFORMATION THROUGH BENEFITS WEB SITE.             * DTSBX479
00041 *            REFERENCE:                  AUTHOR OF CHANGE - GD  * DTSBX479
00042 *                                                               * DTSBX479
00043 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX * DTSBX479
00044 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX * DTSBX479
00045 *            REFERENCE RFP #****         AUTHOR OF CHANGE - *** * DTSBX479
00046 ***************************************************************** DTSBX479
00047      SKIP3                                                        DTSBX479
00048  ENVIRONMENT DIVISION.                                            DTSBX479
00049      SKIP2                                                        DTSBX479
00050  INPUT-OUTPUT SECTION.                                            DTSBX479
00051                                                                   DTSBX479
00052  FILE-CONTROL.                                                    DTSBX479
00053                                                                   DTSBX479
00054      SELECT TAX-FILE    ASSIGN TO TAXFILE                         DTSBX479
00055          FILE STATUS IS TAX-STATUS.                               DTSBX479
00056                                                                   DTSBX479
00057  DATA DIVISION.                                                   DTSBX479
00058                                                                   DTSBX479
00059  FILE SECTION.                                                    DTSBX479
00060                                                                   DTSBX479
00061  FD  TAX-FILE                                                     DTSBX479
00062      RECORDING MODE IS F                                          DTSBX479
00063      LABEL RECORDS ARE STANDARD                                   DTSBX479
00064      BLOCK CONTAINS 0 CHARACTERS.                                 DTSBX479
00065                                                                   DTSBX479
00066  01  TAX-REC             PIC X(346).                                 CL*16
00067                                                                   DTSBX479
00068  WORKING-STORAGE SECTION.                                         DTSBX479
000685 77  PAN-VALET PICTURE X(24) VALUE '018DTSBX479  03/13/25'.       DTSBX479
00069  77  PAN-VALET PICTURE X(24) VALUE '009DTSBX476  11/04/10'.       DTSBX479
00070      SKIP3                                                        DTSBX479
00071  01  WRK-AREA.                                                    DTSBX479
00072      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +476.DTSBX479
00073                                                                   DTSBX479
00074      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBX476'.DTSBX479
00075                                                                   DTSBX479
00076      05  WRK-MPRF-CNT                PIC S9(07)  COMP-3.          DTSBX479
00077                                                                   DTSBX479
00078      05  WRK-TAX-CNT                 PIC S9(07)  COMP-3 VALUE +0. DTSBX479
00079                                                                   DTSBX479
00080      05  TAX-STATUS                  PIC  X(02).                  DTSBX479
00081          88 TAX-STATUS-OK-88      VALUE '00'.                     DTSBX479
00082                                                                   DTSBX479
00083      05  WRK-ERROR-IND               PIC  X(01).                  DTSBX479
00084          88 WRK-ERROR-YES-88      VALUE 'Y'.                      DTSBX479
00085          88 WRK-ERROR-NO-88       VALUE 'N'.                      DTSBX479
00086                                                                   DTSBX479
00087      05  WRK-MPRF-IND                PIC  X(01).                  DTSBX479
00088          88 WRK-MPRF-OK-88        VALUE 'Y'.                      DTSBX479
00089          88 WRK-MPRF-NO-REC-88    VALUE 'N'.                      DTSBX479
00090                                                                   DTSBX479
00091      05  WRK-MTAD-IND                PIC  X(01).                  DTSBX479
00092          88 WRK-MTAD-OK-88        VALUE 'Y'.                      DTSBX479
00093          88 WRK-MTAD-NO-REC-88    VALUE 'N'.                      DTSBX479
00094                                                                   DTSBX479
00095      05  WRK-MBAA-IND                PIC  X(01).                  DTSBX479
00096          88 WRK-MBAA-OK-88        VALUE 'Y'.                      DTSBX479
00097          88 WRK-MBAA-NO-REC-88    VALUE 'N'.                      DTSBX479
00098                                                                   DTSBX479
00099      05  WRK-PHONE                   PIC  9(10).                  DTSBX479
00100      05  FILLER REDEFINES WRK-PHONE.                              DTSBX479
00101          10  WRK-PHONE-AREA          PIC  9(03).                  DTSBX479
00102          10  WRK-PHONE-PFX           PIC  9(03).                  DTSBX479
00103          10  WRK-PHONE-SFX           PIC  9(04).                  DTSBX479
00104                                                                   DTSBX479
00105      05  WRK-AMT-DISP                PIC  Z(10)9.99-.             DTSBX479
00106                                                                   DTSBX479
00107      05  WRK-TRACE-IND                   PIC  X(01).              DTSBX479
00108      05  WRK-MHDR-PRIOR-RUN-DATE     PIC S9(09)  COMP-3.             CL**9
00109                                                                   DTSBX479
00110  01  TAX-REC1.                                                       CL*16
00111 *++INCLUDE DTSIX479                                                  CL*16
00112  ++INCLUDE DTSIX47Z                                                  CL*16
00113                                                                      CL*16
00114  01  L001-LINK-AREA.                                              DTSBX479
00115  ++INCLUDE DTSIL001                                               DTSBX479
00116                                                                   DTSBX479
00117  01  L004-LINK-AREA.                                              DTSBX479
00118  ++INCLUDE DTSIL004                                               DTSBX479
00119                                                                   DTSBX479
00120  01  L005-LINK-AREA.                                              DTSBX479
00121  ++INCLUDE DTSIL005                                               DTSBX479
00122                                                                   DTSBX479
00123                                                                   DTSBX479
00124  01  L910-LINK-AREA.                                              DTSBX479
00125  ++INCLUDE DTSIL910                                               DTSBX479
00126      EJECT                                                        DTSBX479
00127  01  MSKL-REC.                                                    DTSBX479
00128  ++INCLUDE DTSIMSKL                                               DTSBX479
00129      EJECT                                                        DTSBX479
00130  01  MHDR-REC.                                                    DTSBX479
00131  ++INCLUDE DTSIMHDR                                               DTSBX479
00132      EJECT                                                        DTSBX479
00133  01  MPRF-REC.                                                    DTSBX479
00134  ++INCLUDE DTSIMPRF                                               DTSBX479
00135      EJECT                                                        DTSBX479
00136  01  MBAA-REC.                                                    DTSBX479
00137  ++INCLUDE DTSIMBAA                                               DTSBX479
00138      EJECT                                                        DTSBX479
00139  01  MTAD-REC.                                                    DTSBX479
00140  ++INCLUDE DTSIMTAD                                               DTSBX479
00141      EJECT                                                        DTSBX479
00142  01  MRTE-REC.                                                    DTSBX479
00143  ++INCLUDE DTSIMRTE                                               DTSBX479
00144      EJECT                                                        DTSBX479
00145  PROCEDURE DIVISION.                                              DTSBX479
00146                                                                   DTSBX479
00147  DTSBX476-MAIN.                                                   DTSBX479
00148      PERFORM I0000-INITIATE THRU I0000-EXIT.                      DTSBX479
00149      IF WRK-ERROR-YES-88                                          DTSBX479
00150         GO TO DTSBX476-MAIN-EXIT.                                 DTSBX479
00151                                                                   DTSBX479
00152      PERFORM P0000-PROCESS THRU P0000-EXIT.                       DTSBX479
00153                                                                   DTSBX479
00154      PERFORM T0000-TERMINATE THRU T0000-EXIT.                     DTSBX479
00155                                                                   DTSBX479
00156  DTSBX476-MAIN-EXIT.                                              DTSBX479
00157      GOBACK.                                                      DTSBX479
00158      EJECT                                                        DTSBX479
00159  I0000-INITIATE.                                                  DTSBX479
00160      MOVE +0 TO WRK-MPRF-CNT.                                     DTSBX479
00161                                                                   DTSBX479
00162      SET WRK-ERROR-NO-88 TO TRUE.                                 DTSBX479
00163                                                                   DTSBX479
00164 **   PERFORM I1000-CHECK-TIME          THRU I1000-EXIT.           DTSBX479
00165 *    IF WRK-ERROR-YES-88                                          DTSBX479
00166 **      GO TO I0000-EXIT.                                         DTSBX479
00167                                                                   DTSBX479
00168      PERFORM I2000-OPEN-FILES          THRU I2000-EXIT.           DTSBX479
00169      IF WRK-ERROR-YES-88                                          DTSBX479
00170         GO TO I0000-EXIT.                                         DTSBX479
00171                                                                      CL**9
00172        MOVE LOW-VALUES TO MHDR-KEY-AREA.                             CL**9
00173        MOVE +0 TO MHDR-EMP-NO.                                       CL**9
00174        SET MHDR-HDR-88 TO TRUE.                                      CL**9
00175        MOVE MHDR-REC TO MSKL-REC.                                    CL**9
00176        PERFORM S910-READ THRU S910-EXIT.                             CL**9
00177        IF L910-NO-REC-88                                             CL**9
00178 *        MOVE 'MHDR RECORD NOT FOUND' TO ABEND-MSG                   CL*12
00179         PERFORM S999-ABEND THRU S999-EXIT.                           CL**9
00180        MOVE MSKL-REC TO MHDR-REC.                                    CL**9
00181        MOVE MHDR-PRIOR-RUN-DATE TO WRK-MHDR-PRIOR-RUN-DATE.          CL**9
00182                                                                   DTSBX479
00183  I0000-EXIT.                                                      DTSBX479
00184      EXIT.                                                        DTSBX479
00185                                                                   DTSBX479
00186 *I1000-CHECK-TIME.                                                DTSBX479
00187 *    PERFORM S005-FROM-SYS       THRU S005-EXIT                   DTSBX479
00188 *    IF L005-DISPLAY-H > 18                                       DTSBX479
00189 *       SET WRK-ERROR-YES-88     TO TRUE                          DTSBX479
00190 *       MOVE +4                  TO RETURN-CODE                   DTSBX479
00191 *       DISPLAY 'BX476: TIME > 6:00 PM, PROGRAM CANCELLED '       DTSBX479
00192 *          L005-DISPLAY-TIME                                      DTSBX479
00193 *    END-IF.                                                      DTSBX479
00194 *                                                                 DTSBX479
00195 *I1000-EXIT.                                                      DTSBX479
00196 *    EXIT.                                                        DTSBX479
00197                                                                   DTSBX479
00198  I2000-OPEN-FILES.                                                DTSBX479
00199                                                                   DTSBX479
00200      OPEN OUTPUT TAX-FILE.                                        DTSBX479
00201      IF TAX-STATUS-OK-88                                          DTSBX479
00202         NEXT SENTENCE                                             DTSBX479
00203      ELSE                                                         DTSBX479
00204         DISPLAY 'DTSBX476: CANNOT OPEN OUTPUT FILE '              DTSBX479
00205            TAX-STATUS                                             DTSBX479
00206         SET WRK-ERROR-YES-88 TO TRUE                              DTSBX479
00207         GO TO I2000-EXIT.                                         DTSBX479
00208                                                                   DTSBX479
00209      MOVE WRK-TRACE-IND TO L910-TRACE-IND.                        DTSBX479
00210                                                                   DTSBX479
00211      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBX479
00212                                                                   DTSBX479
00213      PERFORM S910-OPEN-READ THRU S910-EXIT.                       DTSBX479
00214                                                                   DTSBX479
00215  I2000-EXIT.                                                      DTSBX479
00216      EXIT.                                                        DTSBX479
00217                                                                   DTSBX479
00218                                                                   DTSBX479
00219      EJECT                                                        DTSBX479
00220  P0000-PROCESS.                                                   DTSBX479
00221      DISPLAY 'BENEFITS TAX DATA EXTRACT           '.              DTSBX479
00222      DISPLAY SPACE.                                               DTSBX479
00223                                                                   DTSBX479
00224      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBX479
00225      MOVE +0 TO MSKL-EMP-NO.                                      DTSBX479
00226      SET MSKL-PRF-88 TO TRUE.                                     DTSBX479
00227      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBX479
00228      IF NOT L910-OK-88                                            DTSBX479
00229         DISPLAY 'BAD FIRST READ'                                  DTSBX479
00230         GO TO P0000-EXIT                                          DTSBX479
00231      ELSE                                                         DTSBX479
00232         MOVE MSKL-REC TO MPRF-REC                                 DTSBX479
00233         SET WRK-MPRF-OK-88 TO TRUE.                               DTSBX479
00234                                                                   DTSBX479
00235      PERFORM P1000-SCAN-MPRF    THRU P1000-EXIT                   DTSBX479
00236         UNTIL WRK-MPRF-NO-REC-88.                                 DTSBX479
00237                                                                   DTSBX479
00238  P0000-EXIT.                                                      DTSBX479
00239      EXIT.                                                        DTSBX479
00240      EJECT                                                        DTSBX479
00241  P1000-SCAN-MPRF.                                                 DTSBX479
00242 *    IF MPRF-CHNG-DATE < WRK-MHDR-PRIOR-RUN-DATE                     CL*13
00243 *       GO TO P1000-SCAN-MPRF-CONT.                                  CL*13
00244                                                                      CL**9
00245      IF MPRF-ELIGIBLE-NOT-SUBJECT-88                              DTSBX479
00246         NEXT SENTENCE                                             DTSBX479
00247      ELSE                                                         DTSBX479
00248         ADD +1 TO WRK-MPRF-CNT                                    DTSBX479
00249         PERFORM P1100-FIND-ADDRESS     THRU P1100-EXIT            DTSBX479
00250         IF WRK-MTAD-OK-88                                            CL**5
00251             PERFORM P2000-BUILD-OUTPUT     THRU P2000-EXIT           CL**2
00252            DISPLAY 'MPRF-EMP-NO'  MPRF-EMP-NO                        CL*14
00253         ELSE                                                         CL**3
00254            DISPLAY 'MPRF-EMP-NO'  MPRF-EMP-NO                        CL**3
00255         END-IF                                                       CL**2
00256      END-IF.                                                      DTSBX479
00257                                                                   DTSBX479
00258  P1000-SCAN-MPRF-CONT.                                               CL**9
00259      MOVE MPRF-REC TO MSKL-REC.                                   DTSBX479
00260      PERFORM S910-READ-NEXT    THRU S910-EXIT.                    DTSBX479
00261      IF NOT L910-OK-88                                            DTSBX479
00262         SET WRK-MPRF-NO-REC-88 TO TRUE                            DTSBX479
00263      ELSE                                                         DTSBX479
00264         MOVE MSKL-REC TO MPRF-REC.                                DTSBX479
00265                                                                   DTSBX479
00266  P1000-EXIT.                                                      DTSBX479
00267      EXIT.                                                        DTSBX479
00268                                                                   DTSBX479
00269  P1100-FIND-ADDRESS.                                              DTSBX479
00270      PERFORM P1110-FIND-MBAA   THRU P1110-EXIT                    DTSBX479
00271      IF WRK-MBAA-NO-REC-88                                        DTSBX479
00272         PERFORM P1120-FIND-MTAD   THRU P1120-EXIT                 DTSBX479
00273      END-IF.                                                      DTSBX479
00274                                                                   DTSBX479
00275  P1100-EXIT.                                                      DTSBX479
00276      EXIT.                                                        DTSBX479
00277                                                                   DTSBX479
00278  P1110-FIND-MBAA.                                                 DTSBX479
00279      MOVE LOW-VALUES TO MBAA-KEY-AREA.                            DTSBX479
00280      MOVE MPRF-EMP-NO TO MBAA-EMP-NO.                             DTSBX479
00281      SET MBAA-PRIMARY-BEN-MAIL-ADDR-88 TO TRUE.                   DTSBX479
00282      SET MBAA-BAA-88 TO TRUE.                                     DTSBX479
00283      MOVE MBAA-KEY-AREA TO MSKL-KEY-AREA.                         DTSBX479
00284                                                                   DTSBX479
00285      PERFORM S910-READ          THRU S910-EXIT.                   DTSBX479
00286      IF L910-OK-88                                                DTSBX479
00287         MOVE MSKL-REC TO MBAA-REC                                 DTSBX479
00288         SET WRK-MBAA-OK-88 TO TRUE                                DTSBX479
00289      ELSE                                                         DTSBX479
00290         SET WRK-MBAA-NO-REC-88 TO TRUE                            DTSBX479
00291      END-IF.                                                      DTSBX479
00292                                                                   DTSBX479
00293  P1110-EXIT.                                                      DTSBX479
00294      EXIT.                                                        DTSBX479
00295                                                                   DTSBX479
00296  P1120-FIND-MTAD.                                                 DTSBX479
00297      MOVE LOW-VALUES TO MTAD-KEY-AREA.                            DTSBX479
00298      MOVE MPRF-EMP-NO TO MTAD-EMP-NO.                             DTSBX479
00299      SET MTAD-ID-TAX-MAILING-ADDR-88 TO TRUE.                     DTSBX479
00300      SET MTAD-TAD-88 TO TRUE.                                     DTSBX479
00301      MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA.                         DTSBX479
00302                                                                   DTSBX479
00303      PERFORM S910-READ          THRU S910-EXIT.                   DTSBX479
00304      IF L910-OK-88                                                DTSBX479
00305         MOVE MSKL-REC TO MTAD-REC                                 DTSBX479
00306         SET WRK-MTAD-OK-88 TO TRUE                                DTSBX479
00307      ELSE                                                         DTSBX479
00308         SET WRK-MTAD-NO-REC-88 TO TRUE                            DTSBX479
00309      END-IF.                                                      DTSBX479
00310                                                                   DTSBX479
00311  P1120-EXIT.                                                      DTSBX479
00312      EXIT.                                                        DTSBX479
00313                                                                   DTSBX479
00314  P2000-BUILD-OUTPUT.                                              DTSBX479
00315      PERFORM P2100-INITIALIZE  THRU P2100-EXIT.                   DTSBX479
00316      PERFORM P2200-BUILD       THRU P2200-EXIT.                   DTSBX479
00317                                                                   DTSBX479
00318                                                                   DTSBX479
00319  P2000-EXIT.                                                      DTSBX479
00320      EXIT.                                                        DTSBX479
00321                                                                   DTSBX479
00322  P2100-INITIALIZE.                                                DTSBX479
00323      MOVE SPACES           TO X476-TRADE-NAME                     DTSBX479
00324                               X476-ENTITY-NAME                    DTSBX479
00325                               X476-ADDRESS                        DTSBX479
00326                               X476-REIMB-IND                      DTSBX479
00327                               X476-EMP-STATUS-CODE                DTSBX479
00328                               X476-SIC-CODE                       DTSBX479
00329                               X476-NAICS-CODE                     DTSBX479
00330                               X476-OWN-CODE                       DTSBX479
00331                               X476-EMAIL.                         DTSBX479
00332                                                                   DTSBX479
00333      MOVE ZERO             TO X476-EMP-NO                         DTSBX479
00334                               X476-FEIN                           DTSBX479
00335                               X476-EMP-TYPE                       DTSBX479
00336                               X476-PHONE                          DTSBX479
00337                               X476-FAX.                           DTSBX479
00338                                                                   DTSBX479
00339  P2100-EXIT.                                                      DTSBX479
00340      EXIT.                                                        DTSBX479
00341                                                                   DTSBX479
00342  P2200-BUILD.                                                     DTSBX479
00343      MOVE MPRF-EMP-NO              TO X476-EMP-NO.                DTSBX479
00344                                                                   DTSBX479
00345      IF MPRF-PRIMARY-IS-ENTITY-88                                 DTSBX479
00346         MOVE MPRF-PRIMARY-NAME     TO X476-ENTITY-NAME            DTSBX479
00347         MOVE SPACES                TO X476-TRADE-NAME             DTSBX479
00348      ELSE                                                         DTSBX479
00349         MOVE MPRF-PRIMARY-NAME     TO X476-TRADE-NAME             DTSBX479
00350         MOVE MPRF-ENTITY-NAME      TO X476-ENTITY-NAME            DTSBX479
00351      END-IF.                                                      DTSBX479
00352                                                                   DTSBX479
00353      IF WRK-MBAA-OK-88                                            DTSBX479
00354         MOVE MBAA-ATTN-LINE        TO X476-ATTN                   DTSBX479
00355         MOVE MBAA-DELIV-LINE-1     TO X476-DELV1                  DTSBX479
00356         MOVE MBAA-DELIV-LINE-2     TO X476-DELV2                  DTSBX479
00357         MOVE MBAA-CITY             TO X476-CITY                   DTSBX479
00358         MOVE MBAA-ST               TO X476-STATE                  DTSBX479
00359         MOVE MBAA-ZIP              TO X476-ZIP                    DTSBX479
00360      ELSE                                                         DTSBX479
00361         MOVE MTAD-ATTN-LINE        TO X476-ATTN                   DTSBX479
00362         MOVE MTAD-DELIV-LINE-1     TO X476-DELV1                  DTSBX479
00363         MOVE MTAD-DELIV-LINE-2     TO X476-DELV2                  DTSBX479
00364         MOVE MTAD-CITY             TO X476-CITY                   DTSBX479
00365         MOVE MTAD-ST               TO X476-STATE                  DTSBX479
00366         MOVE MTAD-ZIP              TO X476-ZIP                    DTSBX479
00367      END-IF.                                                      DTSBX479
00368                                                                   DTSBX479
00369 *&   MOVE MPRF-FEIN                TO X476-FEIN.                  DTSBX479
00370 *&                                                                DTSBX479
00371      IF MPRF-EMP-NO = 890308                                      DTSBX479
00372         MOVE 224973456             TO X476-FEIN                   DTSBX479
00373         DISPLAY X476-EMP-NO '  '                                  DTSBX479
00374            X476-ENTITY-NAME '  ' X476-FEIN                        DTSBX479
00375      ELSE                                                         DTSBX479
00376         MOVE MPRF-FEIN             TO X476-FEIN                   DTSBX479
00377      END-IF.                                                      DTSBX479
00378 *&                                                                DTSBX479
00379                                                                   DTSBX479
00380      IF MPRF-CLASS-RATED-88                                       DTSBX479
00381         SET X476-REIMB-NO-88       TO TRUE                        DTSBX479
00382      ELSE                                                         DTSBX479
00383         SET X476-REIMB-YES-88      TO TRUE                        DTSBX479
00384      END-IF.                                                      DTSBX479
00385      MOVE MPRF-EMP-STATUS          TO X476-EMP-STATUS-CODE.       DTSBX479
00386      MOVE MPRF-ELIGIBLE-CD         TO X476-EMP-TYPE.              DTSBX479
00387      MOVE MPRF-SIC-CD              TO X476-SIC-CODE.              DTSBX479
00388      MOVE MPRF-OWN-CD              TO X476-OWN-CODE.              DTSBX479
00389      MOVE MPRF-NAICS-CD            TO X476-NAICS-CODE.            DTSBX479
00390                                                                   DTSBX479
00391      IF WRK-MBAA-OK-88                                            DTSBX479
00392         IF MBAA-VOICE-1            NOT = ZEROS OR SPACES          DTSBX479
00393            MOVE MBAA-VOICE-1-AREA-CD TO WRK-PHONE-AREA            DTSBX479
00394            MOVE MBAA-VOICE-1-PREFIX  TO WRK-PHONE-PFX             DTSBX479
00395            MOVE MBAA-VOICE-1-SUFFIX  TO WRK-PHONE-SFX             DTSBX479
00396         ELSE                                                      DTSBX479
00397            MOVE MTAD-VOICE-1-AREA-CD TO WRK-PHONE-AREA            DTSBX479
00398            MOVE MTAD-VOICE-1-PREFIX  TO WRK-PHONE-PFX             DTSBX479
00399            MOVE MTAD-VOICE-1-SUFFIX  TO WRK-PHONE-SFX             DTSBX479
00400         END-IF                                                    DTSBX479
00401      ELSE                                                         DTSBX479
00402         MOVE MTAD-VOICE-1-AREA-CD TO WRK-PHONE-AREA               DTSBX479
00403         MOVE MTAD-VOICE-1-PREFIX  TO WRK-PHONE-PFX                DTSBX479
00404         MOVE MTAD-VOICE-1-SUFFIX  TO WRK-PHONE-SFX                DTSBX479
00405      END-IF.                                                      DTSBX479
00406      MOVE WRK-PHONE               TO X476-PHONE.                  DTSBX479
00407                                                                   DTSBX479
00408      IF WRK-MBAA-OK-88                                            DTSBX479
00409         IF MBAA-FAX                NOT = ZEROS OR SPACES          DTSBX479
00410            MOVE MBAA-FAX-AREA-CD TO WRK-PHONE-AREA                DTSBX479
00411            MOVE MBAA-FAX-PREFIX  TO WRK-PHONE-PFX                 DTSBX479
00412            MOVE MBAA-FAX-SUFFIX  TO WRK-PHONE-SFX                 DTSBX479
00413         ELSE                                                      DTSBX479
00414            MOVE MTAD-FAX-AREA-CD TO WRK-PHONE-AREA                DTSBX479
00415            MOVE MTAD-FAX-PREFIX  TO WRK-PHONE-PFX                 DTSBX479
00416            MOVE MTAD-FAX-SUFFIX  TO WRK-PHONE-SFX                 DTSBX479
00417         END-IF                                                    DTSBX479
00418      ELSE                                                         DTSBX479
00419         MOVE MTAD-FAX-AREA-CD TO WRK-PHONE-AREA                   DTSBX479
00420         MOVE MTAD-FAX-PREFIX  TO WRK-PHONE-PFX                    DTSBX479
00421         MOVE MTAD-FAX-SUFFIX  TO WRK-PHONE-SFX                    DTSBX479
00422      END-IF.                                                      DTSBX479
00423      MOVE WRK-PHONE               TO X476-FAX.                    DTSBX479
00424                                                                   DTSBX479
00425      IF WRK-MBAA-OK-88                                            DTSBX479
00426         IF MBAA-EMAIL-ADDRESS NOT = SPACES                        DTSBX479
00427            MOVE MBAA-EMAIL-ADDRESS         TO X476-EMAIL          DTSBX479
00428         ELSE                                                      DTSBX479
00429            MOVE MTAD-EMAIL-ADDRESS         TO X476-EMAIL          DTSBX479
00430         END-IF                                                    DTSBX479
00431      ELSE                                                         DTSBX479
00432         MOVE MTAD-EMAIL-ADDRESS            TO X476-EMAIL          DTSBX479
00433      END-IF.                                                      DTSBX479
00434                                                                   DTSBX479
00435      ADD +1 TO WRK-TAX-CNT.                                       DTSBX479
00436       MOVE '|' TO FILLER1 FILLER2 FILLER3 FILLER4 FILLER5            CL*18
00437      WRITE TAX-REC FROM TAX-REC1.                                    CL*16
00438                                                                   DTSBX479
00439  P2200-EXIT.                                                      DTSBX479
00440      EXIT.                                                        DTSBX479
00441                                                                   DTSBX479
00442  T0000-TERMINATE.                                                 DTSBX479
00443                                                                   DTSBX479
00444      DISPLAY ' '.                                                 DTSBX479
00445                                                                   DTSBX479
00446      DISPLAY '*** DTSBX476 TERMINATION STATISTICS ***'.           DTSBX479
00447                                                                   DTSBX479
00448      DISPLAY ' '.                                                 DTSBX479
00449                                                                   DTSBX479
00450      DISPLAY 'NUMBER OF OUTPUT RECORDS WRITTEN:             '     DTSBX479
00451              WRK-TAX-CNT.                                         DTSBX479
00452                                                                   DTSBX479
00453      DISPLAY 'NUMBER OF EMPLOYERS ENCOUNTERED:              '     DTSBX479
00454              WRK-MPRF-CNT.                                        DTSBX479
00455                                                                   DTSBX479
00456      CLOSE TAX-FILE.                                              DTSBX479
00457                                                                   DTSBX479
00458      PERFORM S910-CLOSE THRU S910-EXIT.                           DTSBX479
00459                                                                   DTSBX479
00460  T0000-EXIT.                                                      DTSBX479
00461      EXIT.                                                        DTSBX479
00462      EJECT                                                        DTSBX479
00463  S910-OPEN-READ.                                                  DTSBX479
00464      SET L910-OPEN-READ-88 TO TRUE.                               DTSBX479
00465      GO TO S910-MSTR-IO.                                          DTSBX479
00466                                                                   DTSBX479
00467  S910-OPEN-UPDATE-NO-AIX.                                         DTSBX479
00468      SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE.                      DTSBX479
00469      GO TO S910-MSTR-IO.                                          DTSBX479
00470                                                                   DTSBX479
00471  S910-READ.                                                       DTSBX479
00472      SET L910-READ-88 TO TRUE.                                    DTSBX479
00473      GO TO S910-MSTR-IO.                                          DTSBX479
00474                                                                   DTSBX479
00475  S910-START-BROWSE.                                               DTSBX479
00476      SET L910-START-BROWSE-88 TO TRUE.                            DTSBX479
00477      GO TO S910-MSTR-IO.                                          DTSBX479
00478                                                                   DTSBX479
00479  S910-READ-NEXT.                                                  DTSBX479
00480      SET L910-READ-NEXT-88 TO TRUE.                               DTSBX479
00481      GO TO S910-MSTR-IO.                                          DTSBX479
00482                                                                   DTSBX479
00483  S910-COUNT.                                                      DTSBX479
00484      SET L910-COUNT-88 TO TRUE.                                   DTSBX479
00485      GO TO S910-MSTR-IO.                                          DTSBX479
00486                                                                   DTSBX479
00487  S910-REWRITE.                                                    DTSBX479
00488      SET L910-REWRITE-88 TO TRUE.                                 DTSBX479
00489      GO TO S910-MSTR-IO.                                          DTSBX479
00490                                                                   DTSBX479
00491  S910-CLOSE.                                                      DTSBX479
00492      SET L910-CLOSE-88     TO TRUE.                               DTSBX479
00493      GO TO S910-MSTR-IO.                                          DTSBX479
00494                                                                   DTSBX479
00495  S910-MSTR-IO.                                                    DTSBX479
00496      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBX479
00497                            MSKL-REC.                              DTSBX479
00498  S910-EXIT.                                                       DTSBX479
00499      EXIT.                                                        DTSBX479
00500                                                                   DTSBX479
00501  S001-FROM-FED-8.                                                 DTSBX479
00502      SET L001-FROM-FED-8 TO TRUE.                                 DTSBX479
00503      GO TO S001-DATE.                                             DTSBX479
00504                                                                   DTSBX479
00505  S001-DATE.                                                       DTSBX479
00506      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBX479
00507  S001-EXIT.                                                       DTSBX479
00508      EXIT.                                                        DTSBX479
00509                                                                   DTSBX479
00510  S004-FROM-5.                                                     DTSBX479
00511      SET L004-FROM-5        TO TRUE.                              DTSBX479
00512      GO TO S004-YRQ.                                              DTSBX479
00513                                                                   DTSBX479
00514  S004-YRQ.                                                        DTSBX479
00515      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBX479
00516                                                                   DTSBX479
00517  S004-EXIT.                                                       DTSBX479
00518      EXIT.                                                        DTSBX479
00519                                                                      CL*10
00520  S999-ABEND.                                                         CL*10
00521      DISPLAY '*** DTSBE479 ABENDING.  '.                             CL*11
00522      SKIP1                                                           CL*10
00523      CALL 'DTSBU999' USING WRK-ABEND-CD.                             CL*10
00524  S999-EXIT.                                                          CL*10
00525      EXIT.                                                           CL*10
00526                                                                   DTSBX479
00527  S005-FROM-SYS.                                                   DTSBX479
00528      SET L005-FROM-SYS       TO TRUE.                             DTSBX479
00529      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBX479
00530  S005-EXIT.                                                       DTSBX479
00531      EXIT.                                                        DTSBX479
