00001  IDENTIFICATION DIVISION.                                         06/13/05
00002  PROGRAM-ID.             DTSBX477.                                DTSBX477
00003  AUTHOR.                 NGC.                                        LV001
00004  DATE-WRITTEN.           MARCH 2005.                              DTSBX477
00005  DATE-COMPILED.                                                   DTSBX477
00006      SKIP3                                                        DTSBX477
00007 *****                                                             DTSBX477
00008 *                                                                 DTSBX477
00009 *    FUNCTION:  TAX EMPLOYER EXTRACT FOR VOS                      DTSBX477
00010 *                                                                 DTSBX477
00011 *                                                                 DTSBX477
00012 *****                                                             DTSBX477
00013 ***************************************************************** DTSBX477
00014 *                                                               * DTSBX477
00015 * MODIFICATION HISTORY:                                         * DTSBX477
00016 *                                                               * DTSBX477
00017 *                                                               * DTSBX477
00018 * 03-33-2005 INITIAL DEVELOPMENT                                * DTSBX477
00019 *            REFERENCE:                  AUTHOR OF CHANGE - GD  * DTSBX477
00020 *                                                               * DTSBX477
00021 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX * DTSBX477
00022 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX * DTSBX477
00023 *            REFERENCE RFP #****         AUTHOR OF CHANGE - *** * DTSBX477
00024 ***************************************************************** DTSBX477
00025      SKIP3                                                        DTSBX477
00026  ENVIRONMENT DIVISION.                                            DTSBX477
00027      SKIP2                                                        DTSBX477
00028  INPUT-OUTPUT SECTION.                                            DTSBX477
00029                                                                   DTSBX477
00030  FILE-CONTROL.                                                    DTSBX477
00031                                                                   DTSBX477
00032      SELECT TAX-FILE    ASSIGN TO TAXFILE                         DTSBX477
00033                         FILE STATUS IS TAX-STATUS.                DTSBX477
00034                                                                   DTSBX477
00035  DATA DIVISION.                                                   DTSBX477
00036                                                                   DTSBX477
00037  FILE SECTION.                                                    DTSBX477
00038                                                                   DTSBX477
00039  FD  TAX-FILE                                                     DTSBX477
00040      RECORDING MODE IS F                                          DTSBX477
00041      BLOCK CONTAINS 0 RECORDS                                     DTSBX477
00042      LABEL RECORDS ARE OMITTED.                                   DTSBX477
00043                                                                   DTSBX477
00044  01  TAX-REC                           PIC X(290).                DTSBX477
00045                                                                   DTSBX477
00046  WORKING-STORAGE SECTION.                                         DTSBX477
000465 77  PAN-VALET PICTURE X(24) VALUE '001DTSBX477  06/13/05'.       DTSBX477
00047      SKIP3                                                        DTSBX477
00048  01  WRK-AREA.                                                    DTSBX477
00049      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +477.DTSBX477
00050                                                                   DTSBX477
00051      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBX477'.DTSBX477
00052                                                                   DTSBX477
00053      05  WRK-MPRF-CNT                PIC S9(07)  COMP-3.          DTSBX477
00054                                                                   DTSBX477
00055      05  WRK-TAX-CNT                 PIC S9(07)  COMP-3 VALUE +0. DTSBX477
00056                                                                   DTSBX477
00057      05  TAX-STATUS                  PIC  X(02).                  DTSBX477
00058          88 TAX-STATUS-OK-88      VALUE '00'.                     DTSBX477
00059                                                                   DTSBX477
00060      05  WRK-ERROR-IND               PIC  X(01).                  DTSBX477
00061          88 WRK-ERROR-YES-88      VALUE 'Y'.                      DTSBX477
00062          88 WRK-ERROR-NO-88       VALUE 'N'.                      DTSBX477
00063                                                                   DTSBX477
00064      05  WRK-RUN-TYPE           PIC  X(06).                       DTSBX477
00065          88  WRK-RUN-TYPE-CONV-88     VALUE '  CONV'.             DTSBX477
00066          88  WRK-RUN-TYPE-UPDATE-88   VALUE 'UPDATE'.             DTSBX477
00067                                                                   DTSBX477
00068      05  WRK-INTERVAL           PIC  X(01).                       DTSBX477
00069          88  WRK-INTERVAL-WEEK-88     VALUE 'W'.                  DTSBX477
00070          88  WRK-INTERVAL-MONTH-88    VALUE 'M'.                  DTSBX477
00071          88  WRK-INTERVAL-QTR-88      VALUE 'Q'.                  DTSBX477
00072                                                                   DTSBX477
00073      05  WRK-SELECT-IND              PIC  X(01).                  DTSBX477
00074          88 WRK-SELECT-YES-88     VALUE 'Y'.                      DTSBX477
00075          88 WRK-SELECT-NO-88      VALUE 'N'.                      DTSBX477
00076                                                                   DTSBX477
00077                                                                   DTSBX477
00078      05  WRK-CUTOFF-DATE             PIC S9(09) COMP-3.           DTSBX477
00079                                                                   DTSBX477
00080      05  WRK-AMT-DISP                PIC  Z(10)9.99-.             DTSBX477
00081                                                                   DTSBX477
00082      05  WRK-TRACE-IND                   PIC  X(01).              DTSBX477
00083                                                                   DTSBX477
00084  01  WRK-TAX-REC.                                                 DTSBX477
00085  ++INCLUDE DTSIXTRO                                               DTSBX477
00086                                                                   DTSBX477
00087  01  L001-LINK-AREA.                                              DTSBX477
00088  ++INCLUDE DTSIL001                                               DTSBX477
00089                                                                   DTSBX477
00090  01  L004-LINK-AREA.                                              DTSBX477
00091  ++INCLUDE DTSIL004                                               DTSBX477
00092                                                                   DTSBX477
00093  01  L005-LINK-AREA.                                              DTSBX477
00094  ++INCLUDE DTSIL005                                               DTSBX477
00095                                                                   DTSBX477
00096                                                                   DTSBX477
00097  01  L910-LINK-AREA.                                              DTSBX477
00098  ++INCLUDE DTSIL910                                               DTSBX477
00099      EJECT                                                        DTSBX477
00100  01  MSKL-REC.                                                    DTSBX477
00101  ++INCLUDE DTSIMSKL                                               DTSBX477
00102      EJECT                                                        DTSBX477
00103  01  MHDR-REC.                                                    DTSBX477
00104  ++INCLUDE DTSIMHDR                                               DTSBX477
00105      EJECT                                                        DTSBX477
00106  01  MPRF-REC.                                                    DTSBX477
00107  ++INCLUDE DTSIMPRF                                               DTSBX477
00108      EJECT                                                        DTSBX477
00109  01  MBAA-REC.                                                    DTSBX477
00110  ++INCLUDE DTSIMBAA                                               DTSBX477
00111      EJECT                                                        DTSBX477
00112  01  MTAD-REC.                                                    DTSBX477
00113  ++INCLUDE DTSIMTAD                                               DTSBX477
00114      EJECT                                                        DTSBX477
00115  01  MLOG-REC.                                                    DTSBX477
00116  ++INCLUDE DTSIMLOG                                               DTSBX477
00117      EJECT                                                        DTSBX477
00118  LINKAGE SECTION.                                                 DTSBX477
00119      SKIP3                                                        DTSBX477
00120  01  PARM-AREA.                                                   DTSBX477
00121      05  PARM-LENGTH                PIC S9(04)  COMP.             DTSBX477
00122                                                                   DTSBX477
00123      05  PARM-DATA.                                               DTSBX477
00124          10  PARM-RUN-TYPE          PIC  X(06).                   DTSBX477
00125              88  PARM-RUN-TYPE-CONV-88    VALUE '  CONV'.         DTSBX477
00126              88  PARM-RUN-TYPE-UPDATE-88  VALUE 'UPDATE'.         DTSBX477
00127              88  PARM-RUN-TYPE-VALID-88   VALUE '  CONV',         DTSBX477
00128                                                 'UPDATE'.         DTSBX477
00129          10  FILLER                 PIC  X(01).                   DTSBX477
00130          10  PARM-INTERVAL          PIC  X(01).                   DTSBX477
00131              88  PARM-INTERVAL-WEEK-88    VALUE 'W'.              DTSBX477
00132              88  PARM-INTERVAL-MONTH-88   VALUE 'M'.              DTSBX477
00133              88  PARM-INTERVAL-QTR-88     VALUE 'Q'.              DTSBX477
00134              88  PARM-INTERVAL-VALID-88   VALUE 'W' 'M' 'Q'.      DTSBX477
00135                                                                   DTSBX477
00136  PROCEDURE DIVISION USING PARM-AREA.                              DTSBX477
00137                                                                   DTSBX477
00138  DTSBX477-MAIN.                                                   DTSBX477
00139      PERFORM I0000-INITIATE THRU I0000-EXIT.                      DTSBX477
00140      IF WRK-ERROR-YES-88                                          DTSBX477
00141         GO TO DTSBX477-MAIN-EXIT.                                 DTSBX477
00142                                                                   DTSBX477
00143      PERFORM P0000-PROCESS THRU P0000-EXIT.                       DTSBX477
00144                                                                   DTSBX477
00145      PERFORM T0000-TERMINATE THRU T0000-EXIT.                     DTSBX477
00146                                                                   DTSBX477
00147  DTSBX477-MAIN-EXIT.                                              DTSBX477
00148      GOBACK.                                                      DTSBX477
00149      EJECT                                                        DTSBX477
00150  I0000-INITIATE.                                                  DTSBX477
00151      MOVE +0 TO WRK-MPRF-CNT.                                     DTSBX477
00152                                                                   DTSBX477
00153      SET WRK-ERROR-NO-88 TO TRUE.                                 DTSBX477
00154                                                                   DTSBX477
00155      PERFORM I1000-EDIT-PARM           THRU I1000-EXIT.           DTSBX477
00156      IF WRK-ERROR-YES-88                                          DTSBX477
00157         GO TO I0000-EXIT.                                         DTSBX477
00158                                                                   DTSBX477
00159      PERFORM I2000-OPEN-FILES          THRU I2000-EXIT.           DTSBX477
00160      IF WRK-ERROR-YES-88                                          DTSBX477
00161         GO TO I0000-EXIT.                                         DTSBX477
00162                                                                   DTSBX477
00163      PERFORM I3000-READ-HEADER         THRU I3000-EXIT.           DTSBX477
00164                                                                   DTSBX477
00165  I0000-EXIT.                                                      DTSBX477
00166      EXIT.                                                        DTSBX477
00167                                                                   DTSBX477
00168  I1000-EDIT-PARM.                                                 DTSBX477
00169      IF NOT PARM-RUN-TYPE-VALID-88                                DTSBX477
00170         SET WRK-ERROR-YES-88  TO TRUE                             DTSBX477
00171         DISPLAY 'DTSBX477: INVALID RUN TYPE PARM '                DTSBX477
00172            PARM-RUN-TYPE                                          DTSBX477
00173         GO TO I1000-EXIT                                          DTSBX477
00174      ELSE                                                         DTSBX477
00175         MOVE PARM-RUN-TYPE  TO WRK-RUN-TYPE                       DTSBX477
00176      END-IF.                                                      DTSBX477
00177                                                                   DTSBX477
00178      IF WRK-RUN-TYPE-UPDATE-88                                    DTSBX477
00179         IF NOT PARM-INTERVAL-VALID-88                             DTSBX477
00180            SET WRK-ERROR-YES-88  TO TRUE                          DTSBX477
00181            DISPLAY 'DTSBX477: INVALID INTERVAL PARM '             DTSBX477
00182               PARM-INTERVAL                                       DTSBX477
00183            GO TO I1000-EXIT                                       DTSBX477
00184         ELSE                                                      DTSBX477
00185            MOVE PARM-INTERVAL  TO WRK-INTERVAL                    DTSBX477
00186         END-IF                                                    DTSBX477
00187      END-IF.                                                      DTSBX477
00188                                                                   DTSBX477
00189  I1000-EXIT.                                                      DTSBX477
00190      EXIT.                                                        DTSBX477
00191                                                                   DTSBX477
00192  I2000-OPEN-FILES.                                                DTSBX477
00193                                                                   DTSBX477
00194      OPEN OUTPUT TAX-FILE.                                        DTSBX477
00195      IF TAX-STATUS-OK-88                                          DTSBX477
00196         NEXT SENTENCE                                             DTSBX477
00197      ELSE                                                         DTSBX477
00198         DISPLAY 'DTSBX477: CANNOT OPEN OUTPUT FILE '              DTSBX477
00199            TAX-STATUS                                             DTSBX477
00200         SET WRK-ERROR-YES-88 TO TRUE                              DTSBX477
00201         GO TO I2000-EXIT.                                         DTSBX477
00202                                                                   DTSBX477
00203      MOVE WRK-TRACE-IND TO L910-TRACE-IND.                        DTSBX477
00204                                                                   DTSBX477
00205      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBX477
00206                                                                   DTSBX477
00207      PERFORM S910-OPEN-READ THRU S910-EXIT.                       DTSBX477
00208                                                                   DTSBX477
00209  I2000-EXIT.                                                      DTSBX477
00210      EXIT.                                                        DTSBX477
00211                                                                   DTSBX477
00212  I3000-READ-HEADER.                                               DTSBX477
00213      MOVE LOW-VALUES TO MSKL-REC.                                 DTSBX477
00214                                                                   DTSBX477
00215      MOVE +0 TO MSKL-EMP-NO.                                      DTSBX477
00216                                                                   DTSBX477
00217      SET MSKL-HDR-88 TO TRUE.                                     DTSBX477
00218                                                                   DTSBX477
00219      PERFORM S910-READ THRU S910-EXIT.                            DTSBX477
00220                                                                   DTSBX477
00221      IF L910-NO-REC-88                                            DTSBX477
00222         DISPLAY 'DTSBX477: MHDR RECORD IS MISSING'                DTSBX477
00223         SET WRK-ERROR-YES-88 TO TRUE                              DTSBX477
00224         GO TO I3000-EXIT                                          DTSBX477
00225      ELSE                                                         DTSBX477
00226         MOVE MSKL-REC               TO MHDR-REC                   DTSBX477
00227      END-IF.                                                      DTSBX477
00228                                                                   DTSBX477
00229      EVALUATE TRUE                                                DTSBX477
00230        WHEN WRK-INTERVAL-WEEK-88                                  DTSBX477
00231          MOVE MHDR-CMPL-WEEK-END-DATE  TO WRK-CUTOFF-DATE         DTSBX477
00232                                                                   DTSBX477
00233        WHEN WRK-INTERVAL-MONTH-88                                 DTSBX477
00234          MOVE MHDR-CMPL-MONTH-END-DATE TO WRK-CUTOFF-DATE         DTSBX477
00235                                                                   DTSBX477
00236        WHEN WRK-INTERVAL-QTR-88                                   DTSBX477
00237          MOVE MHDR-CMPL-QTR-END-DATE   TO WRK-CUTOFF-DATE         DTSBX477
00238                                                                   DTSBX477
00239      END-EVALUATE.                                                DTSBX477
00240                                                                   DTSBX477
00241  I3000-EXIT.                                                      DTSBX477
00242      EXIT.                                                        DTSBX477
00243                                                                   DTSBX477
00244      EJECT                                                        DTSBX477
00245  P0000-PROCESS.                                                   DTSBX477
00246      DISPLAY 'VOS EMPLOYER EXTRACT            '.                  DTSBX477
00247      DISPLAY SPACE.                                               DTSBX477
00248                                                                   DTSBX477
00249      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBX477
00250      MOVE +0 TO MSKL-EMP-NO.                                      DTSBX477
00251      SET MSKL-PRF-88 TO TRUE.                                     DTSBX477
00252      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBX477
00253      IF NOT L910-OK-88                                            DTSBX477
00254         DISPLAY 'BAD FIRST READ'                                  DTSBX477
00255         GO TO P0000-EXIT                                          DTSBX477
00256      ELSE                                                         DTSBX477
00257         MOVE MSKL-REC TO MPRF-REC                                 DTSBX477
00258      END-IF.                                                      DTSBX477
00259                                                                   DTSBX477
00260      PERFORM P1000-SCAN-MPRF    THRU P1000-EXIT                   DTSBX477
00261         UNTIL L910-NO-REC-88.                                     DTSBX477
00262                                                                   DTSBX477
00263  P0000-EXIT.                                                      DTSBX477
00264      EXIT.                                                        DTSBX477
00265      EJECT                                                        DTSBX477
00266  P1000-SCAN-MPRF.                                                 DTSBX477
00267      SET WRK-SELECT-NO-88  TO TRUE.                               DTSBX477
00268                                                                   DTSBX477
00269      IF MPRF-CLASS-SUB-88                                         DTSBX477
00270         IF MPRF-STATUS-ACT-88                                     DTSBX477
00271            IF MPRF-FEIN > ZERO                                    DTSBX477
00272               ADD +1 TO WRK-MPRF-CNT                              DTSBX477
00273               PERFORM P2000-CHK-UPDATES        THRU P2000-EXIT    DTSBX477
00274               IF WRK-SELECT-YES-88                                DTSBX477
00275                  PERFORM P3000-BUILD-OUTPUT     THRU P3000-EXIT   DTSBX477
00276               END-IF                                              DTSBX477
00277            END-IF                                                 DTSBX477
00278         END-IF                                                    DTSBX477
00279      END-IF.                                                      DTSBX477
00280                                                                   DTSBX477
00281      MOVE MPRF-REC TO MSKL-REC.                                   DTSBX477
00282      PERFORM S910-READ-NEXT    THRU S910-EXIT.                    DTSBX477
00283      IF L910-OK-88                                                DTSBX477
00284         MOVE MSKL-REC TO MPRF-REC                                 DTSBX477
00285      END-IF.                                                      DTSBX477
00286                                                                   DTSBX477
00287  P1000-EXIT.                                                      DTSBX477
00288      EXIT.                                                        DTSBX477
00289                                                                   DTSBX477
00290  P2000-CHK-UPDATES.                                               DTSBX477
00291      IF WRK-RUN-TYPE-CONV-88                                      DTSBX477
00292         SET WRK-SELECT-YES-88   TO TRUE                           DTSBX477
00293         GO TO P2000-EXIT                                          DTSBX477
00294      ELSE                                                         DTSBX477
00295         IF MPRF-ESTB-DATE > WRK-CUTOFF-DATE                       DTSBX477
00296            SET WRK-SELECT-YES-88   TO TRUE                        DTSBX477
00297            GO TO P2000-EXIT                                       DTSBX477
00298         ELSE                                                      DTSBX477
00299            PERFORM P2100-CHECK-MLOG  THRU P2100-EXIT              DTSBX477
00300         END-IF                                                    DTSBX477
00301      END-IF.                                                      DTSBX477
00302                                                                   DTSBX477
00303  P2000-EXIT.                                                      DTSBX477
00304      EXIT.                                                        DTSBX477
00305                                                                   DTSBX477
00306  P2100-CHECK-MLOG.                                                DTSBX477
00307      MOVE LOW-VALUES  TO MLOG-KEY-AREA.                           DTSBX477
00308      MOVE MPRF-EMP-NO TO MLOG-EMP-NO.                             DTSBX477
00309      SET MLOG-LOG-88  TO TRUE.                                    DTSBX477
00310      MOVE MLOG-KEY-AREA TO MSKL-KEY-AREA.                         DTSBX477
00311                                                                   DTSBX477
00312      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBX477
00313      IF L910-OK-88                                                DTSBX477
00314         MOVE MSKL-REC          TO MLOG-REC                        DTSBX477
00315         PERFORM                                                   DTSBX477
00316           UNTIL L910-NO-REC-88                                    DTSBX477
00317              PERFORM P2110-EVALUATE  THRU P2110-EXIT              DTSBX477
00318              PERFORM S910-READ-NEXT  THRU S910-EXIT               DTSBX477
00319              MOVE MSKL-REC           TO MLOG-REC                  DTSBX477
00320         END-PERFORM                                               DTSBX477
00321      END-IF.                                                      DTSBX477
00322                                                                   DTSBX477
00323  P2100-EXIT.                                                      DTSBX477
00324      EXIT.                                                        DTSBX477
00325                                                                   DTSBX477
00326  P2110-EVALUATE.                                                  DTSBX477
00327      IF ((MLOG-DATA-ELEMENT-NAME =                                DTSBX477
00328          'MPRF-PRIMARY-NAME' OR 'MPRF-ENTITY-NAME'                DTSBX477
00329           OR 'MPRF-FEIN')                                         DTSBX477
00330      AND MLOG-ESTB-DATE > WRK-CUTOFF-DATE)                        DTSBX477
00331         SET WRK-SELECT-YES-88   TO TRUE                           DTSBX477
00332      ELSE                                                         DTSBX477
00333         IF ((MLOG-DE-REC-TYPE = 'MTAD')                           DTSBX477
00334         AND MLOG-ESTB-DATE > WRK-CUTOFF-DATE)                     DTSBX477
00335            SET WRK-SELECT-YES-88   TO TRUE                        DTSBX477
00336         END-IF                                                    DTSBX477
00337      END-IF.                                                      DTSBX477
00338                                                                   DTSBX477
00339  P2110-EXIT.                                                      DTSBX477
00340      EXIT.                                                        DTSBX477
00341                                                                   DTSBX477
00342  P3000-BUILD-OUTPUT.                                              DTSBX477
00343      INITIALIZE                      WRK-TAX-REC.                 DTSBX477
00344      PERFORM P3100-MAIL-ADDR         THRU P3100-EXIT.             DTSBX477
00345      IF WRK-ERROR-NO-88                                           DTSBX477
00346         PERFORM P3200-PHYSICAL-ADDR  THRU P3200-EXIT              DTSBX477
00347         PERFORM P3300-WRITE          THRU P3300-EXIT              DTSBX477
00348      END-IF.                                                      DTSBX477
00349                                                                   DTSBX477
00350  P3000-EXIT.                                                      DTSBX477
00351      EXIT.                                                        DTSBX477
00352                                                                   DTSBX477
00353  P3100-MAIL-ADDR.                                                 DTSBX477
00354      MOVE LOW-VALUES TO MTAD-KEY-AREA.                            DTSBX477
00355      MOVE MPRF-EMP-NO TO MTAD-EMP-NO.                             DTSBX477
00356      SET MTAD-ID-TAX-MAILING-ADDR-88 TO TRUE.                     DTSBX477
00357      SET MTAD-TAD-88 TO TRUE.                                     DTSBX477
00358      MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA.                         DTSBX477
00359                                                                   DTSBX477
00360      PERFORM S910-READ          THRU S910-EXIT.                   DTSBX477
00361      IF L910-OK-88                                                DTSBX477
00362         MOVE MSKL-REC TO MTAD-REC                                 DTSBX477
00363         STRING                                                    DTSBX477
00364            MTAD-DELIV-LINE-1                                      DTSBX477
00365            ' '                                                    DTSBX477
00366            MTAD-DELIV-LINE-2 (1:20)                               DTSBX477
00367            DELIMITED BY SIZE                                      DTSBX477
00368            INTO XTRO-STREET-1                                     DTSBX477
00369         END-STRING                                                DTSBX477
00370         MOVE MTAD-CITY          TO XTRO-CITY-1                    DTSBX477
00371         MOVE MTAD-ST            TO XTRO-STATE-1                   DTSBX477
00372         MOVE MTAD-ZIP           TO XTRO-ZIP-1                     DTSBX477
00373         STRING                                                    DTSBX477
00374            MTAD-VOICE-1-AREA-CD                                   DTSBX477
00375            MTAD-VOICE-1-PREFIX                                    DTSBX477
00376            MTAD-VOICE-1-SUFFIX                                    DTSBX477
00377            DELIMITED BY SIZE                                      DTSBX477
00378            INTO XTRO-PHONE-1                                      DTSBX477
00379         END-STRING                                                DTSBX477
00380      ELSE                                                         DTSBX477
00381         SET WRK-ERROR-YES-88   TO TRUE                            DTSBX477
00382      END-IF.                                                      DTSBX477
00383                                                                   DTSBX477
00384  P3100-EXIT.                                                      DTSBX477
00385      EXIT.                                                        DTSBX477
00386                                                                   DTSBX477
00387  P3200-PHYSICAL-ADDR.                                             DTSBX477
00388      MOVE LOW-VALUES TO MTAD-KEY-AREA.                            DTSBX477
00389      MOVE MPRF-EMP-NO TO MTAD-EMP-NO.                             DTSBX477
00390      SET MTAD-ID-TAX-RECORDS-ADDR-88  TO TRUE.                    DTSBX477
00391      SET MTAD-TAD-88 TO TRUE.                                     DTSBX477
00392      MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA.                         DTSBX477
00393                                                                   DTSBX477
00394      PERFORM S910-READ          THRU S910-EXIT.                   DTSBX477
00395      IF L910-OK-88                                                DTSBX477
00396         MOVE MSKL-REC TO MTAD-REC                                 DTSBX477
00397         STRING                                                    DTSBX477
00398            MTAD-DELIV-LINE-1                                      DTSBX477
00399            ' '                                                    DTSBX477
00400            MTAD-DELIV-LINE-2 (1:20)                               DTSBX477
00401            DELIMITED BY SIZE                                      DTSBX477
00402            INTO XTRO-STREET-2                                     DTSBX477
00403         END-STRING                                                DTSBX477
00404         MOVE MTAD-CITY          TO XTRO-CITY-2                    DTSBX477
00405         MOVE MTAD-ST            TO XTRO-STATE-2                   DTSBX477
00406         MOVE MTAD-ZIP           TO XTRO-ZIP-2                     DTSBX477
00407         STRING                                                    DTSBX477
00408            MTAD-VOICE-1-AREA-CD                                   DTSBX477
00409            MTAD-VOICE-1-PREFIX                                    DTSBX477
00410            MTAD-VOICE-1-SUFFIX                                    DTSBX477
00411            DELIMITED BY SIZE                                      DTSBX477
00412            INTO XTRO-PHONE-2                                      DTSBX477
00413         END-STRING                                                DTSBX477
00414      END-IF.                                                      DTSBX477
00415                                                                   DTSBX477
00416  P3200-EXIT.                                                      DTSBX477
00417      EXIT.                                                        DTSBX477
00418                                                                   DTSBX477
00419  P3300-WRITE.                                                     DTSBX477
00420      MOVE MPRF-FEIN                TO XTRO-FEIN.                  DTSBX477
00421      MOVE MPRF-EMP-NO              TO XTRO-EMP-NO.                DTSBX477
00422      SET XTRO-SOURCE-DOES-88       TO TRUE.                       DTSBX477
00423                                                                   DTSBX477
00424      MOVE MPRF-PRIMARY-NAME        TO XTRO-EMP-NAME.              DTSBX477
00425      INSPECT XTRO-EMP-NAME         REPLACING ALL ',' BY SPACE.    DTSBX477
00426                                                                   DTSBX477
00427      INSPECT XTRO-STREET-1         REPLACING ALL ',' BY SPACE.    DTSBX477
00428      INSPECT XTRO-STREET-2         REPLACING ALL ',' BY SPACE.    DTSBX477
00429                                                                   DTSBX477
00430      ADD +1 TO WRK-TAX-CNT.                                       DTSBX477
00431                                                                   DTSBX477
00432      WRITE TAX-REC FROM WRK-TAX-REC.                              DTSBX477
00433                                                                   DTSBX477
00434  P3300-EXIT.                                                      DTSBX477
00435      EXIT.                                                        DTSBX477
00436                                                                   DTSBX477
00437  T0000-TERMINATE.                                                 DTSBX477
00438                                                                   DTSBX477
00439      DISPLAY ' '.                                                 DTSBX477
00440                                                                   DTSBX477
00441      DISPLAY '*** DTSBX477 TERMINATION STATISTICS ***'.           DTSBX477
00442                                                                   DTSBX477
00443      DISPLAY ' '.                                                 DTSBX477
00444                                                                   DTSBX477
00445      DISPLAY 'NUMBER OF OUTPUT RECORDS WRITTEN:             '     DTSBX477
00446              WRK-TAX-CNT.                                         DTSBX477
00447                                                                   DTSBX477
00448      DISPLAY 'NUMBER OF EMPLOYERS ENCOUNTERED:              '     DTSBX477
00449              WRK-MPRF-CNT.                                        DTSBX477
00450                                                                   DTSBX477
00451      CLOSE TAX-FILE.                                              DTSBX477
00452                                                                   DTSBX477
00453      PERFORM S910-CLOSE THRU S910-EXIT.                           DTSBX477
00454                                                                   DTSBX477
00455  T0000-EXIT.                                                      DTSBX477
00456      EXIT.                                                        DTSBX477
00457      EJECT                                                        DTSBX477
00458  S910-OPEN-READ.                                                  DTSBX477
00459      SET L910-OPEN-READ-88 TO TRUE.                               DTSBX477
00460      GO TO S910-MSTR-IO.                                          DTSBX477
00461                                                                   DTSBX477
00462  S910-OPEN-UPDATE-NO-AIX.                                         DTSBX477
00463      SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE.                      DTSBX477
00464      GO TO S910-MSTR-IO.                                          DTSBX477
00465                                                                   DTSBX477
00466  S910-READ.                                                       DTSBX477
00467      SET L910-READ-88 TO TRUE.                                    DTSBX477
00468      GO TO S910-MSTR-IO.                                          DTSBX477
00469                                                                   DTSBX477
00470  S910-START-BROWSE.                                               DTSBX477
00471      SET L910-START-BROWSE-88 TO TRUE.                            DTSBX477
00472      GO TO S910-MSTR-IO.                                          DTSBX477
00473                                                                   DTSBX477
00474  S910-READ-NEXT.                                                  DTSBX477
00475      SET L910-READ-NEXT-88 TO TRUE.                               DTSBX477
00476      GO TO S910-MSTR-IO.                                          DTSBX477
00477                                                                   DTSBX477
00478  S910-COUNT.                                                      DTSBX477
00479      SET L910-COUNT-88 TO TRUE.                                   DTSBX477
00480      GO TO S910-MSTR-IO.                                          DTSBX477
00481                                                                   DTSBX477
00482  S910-REWRITE.                                                    DTSBX477
00483      SET L910-REWRITE-88 TO TRUE.                                 DTSBX477
00484      GO TO S910-MSTR-IO.                                          DTSBX477
00485                                                                   DTSBX477
00486  S910-CLOSE.                                                      DTSBX477
00487      SET L910-CLOSE-88     TO TRUE.                               DTSBX477
00488      GO TO S910-MSTR-IO.                                          DTSBX477
00489                                                                   DTSBX477
00490  S910-MSTR-IO.                                                    DTSBX477
00491      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBX477
00492                            MSKL-REC.                              DTSBX477
00493  S910-EXIT.                                                       DTSBX477
00494      EXIT.                                                        DTSBX477
00495                                                                   DTSBX477
00496  S001-FROM-FED-8.                                                 DTSBX477
00497      SET L001-FROM-FED-8 TO TRUE.                                 DTSBX477
00498      GO TO S001-DATE.                                             DTSBX477
00499                                                                   DTSBX477
00500  S001-DATE.                                                       DTSBX477
00501      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBX477
00502  S001-EXIT.                                                       DTSBX477
00503      EXIT.                                                        DTSBX477
00504                                                                   DTSBX477
00505  S004-FROM-5.                                                     DTSBX477
00506      SET L004-FROM-5        TO TRUE.                              DTSBX477
00507      GO TO S004-YRQ.                                              DTSBX477
00508                                                                   DTSBX477
00509  S004-YRQ.                                                        DTSBX477
00510      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBX477
00511                                                                   DTSBX477
00512  S004-EXIT.                                                       DTSBX477
00513      EXIT.                                                        DTSBX477
00514                                                                   DTSBX477
00515  S005-FROM-DATE-TIME.                                             DTSBX477
00516      SET L005-FROM-DATE-TIME TO TRUE.                             DTSBX477
00517      GO TO S005-ABSTIME.                                          DTSBX477
00518                                                                   DTSBX477
00519  S005-ABSTIME.                                                    DTSBX477
00520      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBX477
00521  S005-EXIT.                                                       DTSBX477
00522      EXIT.                                                        DTSBX477
