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