00001  IDENTIFICATION DIVISION.                                         10/11/22
00002  PROGRAM-ID.             DTSBXPFL.                                DTSBXPFL
00003  AUTHOR.                 NGUPTA                                      LV002
00004  DATE-WRITTEN.           JAN2017                                  DTSBXPFL
00005  DATE-COMPILED.                                                   DTSBXPFL
00006      SKIP3                                                        DTSBXPFL
00007 *****                                                             DTSBXPFL
00008 *                                                                 DTSBXPFL
00009 *    FUNCTION:  MERGE PFL AND UI TAX FILES FOR OTR                DTSBXPFL
00010 *                                                                 DTSBXPFL
00011 *                                                                 DTSBXPFL
00012 *****                                                             DTSBXPFL
00013      SKIP3                                                        DTSBXPFL
00014  ENVIRONMENT DIVISION.                                            DTSBXPFL
00015      SKIP2                                                        DTSBXPFL
00016  CONFIGURATION SECTION.                                           DTSBXPFL
00017  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBXPFL
00018                                                                   DTSBXPFL
00019  INPUT-OUTPUT SECTION.                                            DTSBXPFL
00020                                                                   DTSBXPFL
00021  FILE-CONTROL.                                                    DTSBXPFL
00022      SELECT TAX-FILE1 ASSIGN TO TAXFILE1                          DTSBXPFL
00023             FILE STATUS IS TAX-STATUS.                            DTSBXPFL
00024      SELECT PFL-FILE1 ASSIGN TO PFLFILE1                          DTSBXPFL
00025             FILE STATUS IS PFL-STATUS.                            DTSBXPFL
00026      SELECT TAX-FILE2 ASSIGN TO TAXFILE2                          DTSBXPFL
00027             FILE STATUS IS TAX2-STATUS.                           DTSBXPFL
00028                                                                   DTSBXPFL
00029                                                                   DTSBXPFL
00030  DATA DIVISION.                                                   DTSBXPFL
00031                                                                   DTSBXPFL
00032  FILE SECTION.                                                    DTSBXPFL
00033                                                                   DTSBXPFL
00034  FD  TAX-FILE1                                                    DTSBXPFL
00035      RECORDING MODE IS F.                                         DTSBXPFL
00036  01  TAX-REC1.                                                    DTSBXPFL
00037      05  TAX-RECORD          PIC X(386).                          DTSBXPFL
00038                                                                   DTSBXPFL
00039                                                                   DTSBXPFL
00040  FD  PFL-FILE1                                                    DTSBXPFL
00041      RECORDING MODE IS F.                                         DTSBXPFL
00042  01  PFL-REC1.                                                    DTSBXPFL
00043      05  PFL-RECORD          PIC X(386).                          DTSBXPFL
00044                                                                   DTSBXPFL
00045                                                                   DTSBXPFL
00046  FD  TAX-FILE2                                                    DTSBXPFL
00047      RECORDING MODE IS F.                                         DTSBXPFL
00048  01  TAX-REC2.                                                    DTSBXPFL
00049      05  TAX-RECORD2         PIC X(386).                          DTSBXPFL
00050                                                                   DTSBXPFL
00051                                                                   DTSBXPFL
00052  WORKING-STORAGE SECTION.                                         DTSBXPFL
000525 77  PAN-VALET PICTURE X(24) VALUE '002DTSBXPFL  10/11/22'.       DTSBXPFL
00053  77  PAN-VALET PICTURE X(24) VALUE '053DTSBXPFL  10/05/21'.       DTSBXPFL
00054      SKIP3                                                        DTSBXPFL
00055  01  WRK-AREA.                                                    DTSBXPFL
00056      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +400.DTSBXPFL
00057                                                                   DTSBXPFL
00058      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBD400'.DTSBXPFL
00059                                                                   DTSBXPFL
00060      05  WRK-MPRF-IND                PIC  X(01).                  DTSBXPFL
00061          88 WRK-MPRF-OK           VALUE 'Y'.                      DTSBXPFL
00062          88 WRK-MPRF-NO-REC       VALUE 'N'.                      DTSBXPFL
00063      05  WRK-MEVL-IND                PIC  X(01).                  DTSBXPFL
00064          88 WRK-MEVL-OK           VALUE 'Y'.                      DTSBXPFL
00065          88 WRK-MEVL-NO-REC       VALUE 'N'.                      DTSBXPFL
00066      05  WRK-ERROR-IND               PIC  X(01).                  DTSBXPFL
00067          88  WRK-ERROR-YES-88         VALUE 'Y'.                  DTSBXPFL
00068          88  WRK-ERROR-NO-88          VALUE 'N'.                  DTSBXPFL
00069 *RW1                                                              DTSBXPFL
00070      05  EXP-STATUS                  PIC  X(02).                  DTSBXPFL
00071          88  EXP-STATUS-OK-88         VALUE '00'.                 DTSBXPFL
00072      05  TAX-STATUS                  PIC  X(02).                  DTSBXPFL
00073          88  TAX-STATUS-OK-88         VALUE '00'.                 DTSBXPFL
00074      05  PFL-STATUS                  PIC  X(02).                  DTSBXPFL
00075          88  PFL-STATUS-OK-88         VALUE '00'.                 DTSBXPFL
00076      05  TAX2-STATUS                 PIC  X(02).                  DTSBXPFL
00077          88  TAX2-STATUS-OK-88         VALUE '00'.                DTSBXPFL
00078                                                                   DTSBXPFL
00079      05  WRK-SPLIT.                                               DTSBXPFL
00080          10  FILLER               PIC X(1) VALUE '$'.             DTSBXPFL
00081          10  WRK-DOL              PIC 9(09).                      DTSBXPFL
00082          10  FILLER               PIC X(1) VALUE '.'.             DTSBXPFL
00083          10  WRK-CENT             PIC 9(02).                      DTSBXPFL
00084                                                                   DTSBXPFL
00085      05  WS-TAX-AMT               PIC 9(09)V9(02).                DTSBXPFL
00086      05  WS-PFL-AMT               PIC 9(09)V9(02).                DTSBXPFL
00087      05  WS-TOTAL-AMT             PIC 9(09)V9(02).                DTSBXPFL
00088      05  WRK-BAL                  PIC 9(09)V9(02).                DTSBXPFL
00089      05  FILE-END                 PIC  X(01) VALUE 'N'.           DTSBXPFL
00090      05  PFL-FILE-END             PIC  X(01) VALUE 'N'.           DTSBXPFL
00091      05  WRK-ABEND-MSG            PIC  X(60)  VALUE SPACES.       DTSBXPFL
00092      05  FIRST-TIME-IND           PIC  X(01)  VALUE 'Y'.          DTSBXPFL
00093      05  WS-NUMBER-ONE            PIC S9(05)  COMP-3 VALUE +0.    DTSBXPFL
00094      05  WRK-TRACE-IND            PIC  X(01).                     DTSBXPFL
00095      05  WS-REC-CNT               PIC 9(07).                      DTSBXPFL
00096  01  HEADER-REC.                                                  DTSBXPFL
00097                                                                   DTSBXPFL
00098      05  FILLER                    PIC  X(07) VALUE 'HEADER='.    DTSBXPFL
00099      05  HEADER-CNT                PIC  9(07).                    DTSBXPFL
00100                                                                   DTSBXPFL
00101                                                                   DTSBXPFL
00102  01  PFL-FILE.                                                    DTSBXPFL
00103                                                                   DTSBXPFL
00104      05  PFL-AGY-TRACKING-ID       PIC  X(13).                    DTSBXPFL
00105      05  FILLER                      PIC X(01).                   DTSBXPFL
00106      05  PFL-AGY-ID-ADM-DIV        PIC  X(06).                    DTSBXPFL
00107      05  FILLER                      PIC X(01).                   DTSBXPFL
00108      05  PFL-ENTITY-ID-TYPE        PIC  X(01).                    DTSBXPFL
00109          88  PFL-ENTITY-TYPE-SSN-88  VALUE 'S'.                   DTSBXPFL
00110          88  PFL-ENTITY-TYPE-EIN-88  VALUE 'E'.                   DTSBXPFL
00111      05  FILLER                      PIC X(01).                   DTSBXPFL
00112      05  PFL-ENTITY-ID             PIC  X(09).                    DTSBXPFL
00113      05  FILLER                      PIC X(01).                   DTSBXPFL
00114      05  PFL-RELATIONSHIP-IND      PIC  X(01).                    DTSBXPFL
00115          88  PFL-RELATION-EXISTS-88  VALUE 'R'.                   DTSBXPFL
00116          88  PFL-NO-RELATION-88      VALUE 'N'.                   DTSBXPFL
00117      05  FILLER                      PIC X(01).                   DTSBXPFL
00118      05  PFL-ENTITY-BUSNS-NAME     PIC  X(70).                    DTSBXPFL
00119      05  FILLER                      PIC X(01).                   DTSBXPFL
00120      05  PFL-ENTITY-LAST-NAME      PIC  X(35).                    DTSBXPFL
00121      05  FILLER                      PIC X(01).                   DTSBXPFL
00122      05  PFL-ENTITY-FIRST-NAME     PIC  X(35).                    DTSBXPFL
00123      05  FILLER                      PIC X(01).                   DTSBXPFL
00124      05  PFL-ENTITY-MID-INIT       PIC  X(01).                    DTSBXPFL
00125      05  FILLER                      PIC X(01).                   DTSBXPFL
00126      05  PFL-ENTITY-SUFFIX         PIC  X(10).                    DTSBXPFL
00127      05  FILLER                      PIC X(01).                   DTSBXPFL
00128      05  PFL-ENTITY-DOB            PIC  X(10).                    DTSBXPFL
00129      05  FILLER                      PIC X(01).                   DTSBXPFL
00130      05  PFL-STREET-NUMBER         PIC  X(10).                    DTSBXPFL
00131      05  FILLER                      PIC X(01).                   DTSBXPFL
00132      05  PFL-STREET-NAME           PIC  X(100).                   DTSBXPFL
00133      05  FILLER                      PIC X(01).                   DTSBXPFL
00134      05  PFL-CITY                  PIC  X(30).                    DTSBXPFL
00135      05  FILLER                      PIC X(01).                   DTSBXPFL
00136      05  PFL-STATE                 PIC  X(02).                    DTSBXPFL
00137      05  FILLER                      PIC X(01).                   DTSBXPFL
00138      05  PFL-ZIP                   PIC  X(05).                    DTSBXPFL
00139      05  FILLER                      PIC X(01).                   DTSBXPFL
00140      05  PFL-ZIP-EXT               PIC  X(04).                    DTSBXPFL
00141      05  FILLER                      PIC X(01).                   DTSBXPFL
00142      05  PFL-FAILURE-TO-FILE-IND   PIC  X(01).                    DTSBXPFL
00143          88  PFL-FAIL-TO-FILE-YES-88  VALUE 'Y'.                  DTSBXPFL
00144          88  PFL-FAIL-TO-FILE-NO-88   VALUE 'N'.                  DTSBXPFL
00145      05  FILLER                      PIC X(01).                   DTSBXPFL
00146      05  PFL-DEBT-AMT              PIC  ----------9.99.           DTSBXPFL
00147      05  FILLER                      PIC X(01).                   DTSBXPFL
00148      05  PFL-AGY-REPORT-DT         PIC  X(10).                    DTSBXPFL
00149                                                                   DTSBXPFL
00150                                                                   DTSBXPFL
00151                                                                   DTSBXPFL
00152  01  EMP-REC1.                                                    DTSBXPFL
00153                                                                   DTSBXPFL
00154      05  TAX-AGY-TRACKING-ID       PIC  X(13).                    DTSBXPFL
00155      05  FILLER                    PIC  X(01).                    DTSBXPFL
00156      05  TAX-AGY-ID-ADM-DIV        PIC  X(06).                    DTSBXPFL
00157      05  FILLER                    PIC X(01).                     DTSBXPFL
00158      05  TAX-ENTITY-ID-TYPE        PIC  X(01).                    DTSBXPFL
00159          88  TAX-ENTITY-TYPE-SSN-88  VALUE 'S'.                   DTSBXPFL
00160          88  TAX-ENTITY-TYPE-EIN-88  VALUE 'E'.                   DTSBXPFL
00161      05  FILLER                      PIC X(01).                   DTSBXPFL
00162      05  TAX-ENTITY-ID             PIC  X(09).                    DTSBXPFL
00163      05  FILLER                    PIC X(01).                     DTSBXPFL
00164      05  TAX-RELATIONSHIP-IND      PIC  X(01).                    DTSBXPFL
00165          88  TAX0-RELATION-EXISTS-88  VALUE 'R'.                  DTSBXPFL
00166          88  TAX0-NO-RELATION-88      VALUE 'N'.                  DTSBXPFL
00167      05  FILLER                    PIC X(01).                     DTSBXPFL
00168      05  TAX-ENTITY-BUSNS-NAME     PIC  X(70).                    DTSBXPFL
00169      05  FILLER                    PIC X(01).                     DTSBXPFL
00170      05  TAX-ENTITY-LAST-NAME      PIC  X(35).                    DTSBXPFL
00171      05  FILLER                    PIC X(01).                     DTSBXPFL
00172      05  TAX-ENTITY-FIRST-NAME     PIC  X(35).                    DTSBXPFL
00173      05  FILLER                    PIC X(01).                     DTSBXPFL
00174      05  TAX-ENTITY-MID-INIT       PIC  X(01).                    DTSBXPFL
00175      05  FILLER                    PIC X(01).                     DTSBXPFL
00176      05  TAX-ENTITY-SUFFIX         PIC  X(10).                    DTSBXPFL
00177      05  FILLER                    PIC X(01).                     DTSBXPFL
00178      05  TAX-ENTITY-DOB            PIC  X(10).                    DTSBXPFL
00179      05  FILLER                    PIC X(01).                     DTSBXPFL
00180      05  TAX-STREET-NUMBER         PIC  X(10).                    DTSBXPFL
00181      05  FILLER                    PIC X(01).                     DTSBXPFL
00182      05  TAX-STREET-NAME           PIC  X(100).                   DTSBXPFL
00183      05  FILLER                    PIC X(01).                     DTSBXPFL
00184      05  TAX-CITY                  PIC  X(30).                    DTSBXPFL
00185      05  FILLER                    PIC X(01).                     DTSBXPFL
00186      05  TAX-STATE                 PIC  X(02).                    DTSBXPFL
00187      05  FILLER                    PIC X(01).                     DTSBXPFL
00188      05  TAX-ZIP                   PIC  X(05).                    DTSBXPFL
00189      05  FILLER                    PIC X(01).                     DTSBXPFL
00190      05  TAX-ZIP-EXT               PIC  X(04).                    DTSBXPFL
00191      05  FILLER                    PIC X(01).                     DTSBXPFL
00192      05  TAX-FAILURE-TO-FILE-IND   PIC  X(01).                    DTSBXPFL
00193          88  TAX-FAIL-TO-FILE-YES-88  VALUE 'Y'.                  DTSBXPFL
00194          88  TAX-FAIL-TO-FILE-NO-88   VALUE 'N'.                  DTSBXPFL
00195      05  FILLER                    PIC X(01).                     DTSBXPFL
00196      05  TAX-DEBT-AMT              PIC  ----------9.99.           DTSBXPFL
00197      05  FILLER                    PIC X(01).                     DTSBXPFL
00198      05  TAX-AGY-REPORT-DT         PIC  X(10).                    DTSBXPFL
00199                                                                   DTSBXPFL
00200                                                                   DTSBXPFL
00201                                                                   DTSBXPFL
00202  01  EMP-REC2.                                                    DTSBXPFL
00203      05  TAX2-AGY-TRACKING-ID       PIC  X(13).                   DTSBXPFL
00204      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00205      05  TAX2-AGY-ID-ADM-DIV        PIC  X(06).                   DTSBXPFL
00206      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00207      05  TAX2-ENTITY-ID-TYPE        PIC  X(01).                   DTSBXPFL
00208          88  TAX2-ENTITY-TYPE-SSN-88  VALUE 'S'.                  DTSBXPFL
00209          88  TAX2-ENTITY-TYPE-EIN-88  VALUE 'E'.                  DTSBXPFL
00210      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00211      05  TAX2-ENTITY-ID             PIC  X(09).                   DTSBXPFL
00212      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00213      05  TAX2-RELATIONSHIP-IND      PIC  X(01).                   DTSBXPFL
00214          88  TAX02-RELATION-EXISTS-88  VALUE 'R'.                 DTSBXPFL
00215          88  TAX02-NO-RELATION-88      VALUE 'N'.                 DTSBXPFL
00216      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00217      05  TAX2-ENTITY-BUSNS-NAME     PIC  X(70).                   DTSBXPFL
00218      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00219      05  TAX2-ENTITY-LAST-NAME      PIC  X(35).                   DTSBXPFL
00220      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00221      05  TAX2-ENTITY-FIRST-NAME     PIC  X(35).                   DTSBXPFL
00222      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00223      05  TAX2-ENTITY-MID-INIT       PIC  X(01).                   DTSBXPFL
00224      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00225      05  TAX2-ENTITY-SUFFIX         PIC  X(10).                   DTSBXPFL
00226      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00227      05  TAX2-ENTITY-DOB            PIC  X(10).                   DTSBXPFL
00228      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00229      05  TAX2-STREET-NUMBER         PIC  X(10).                   DTSBXPFL
00230      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00231      05  TAX2-STREET-NAME           PIC  X(100).                  DTSBXPFL
00232      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00233      05  TAX2-CITY                  PIC  X(30).                   DTSBXPFL
00234      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00235      05  TAX2-STATE                 PIC  X(02).                   DTSBXPFL
00236      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00237      05  TAX2-ZIP                   PIC  X(05).                   DTSBXPFL
00238      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00239      05  TAX2-ZIP-EXT               PIC  X(04).                   DTSBXPFL
00240      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00241      05  TAX2-FAILURE-TO-FILE-IND   PIC  X(01).                   DTSBXPFL
00242          88  TAX2-FAIL-TO-FILE-YES-88  VALUE 'Y'.                 DTSBXPFL
00243          88  TAX2-FAIL-TO-FILE-NO-88   VALUE 'N'.                 DTSBXPFL
00244      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00245      05  TAX2-DEBT-AMT              PIC  ZZZZZZZZZZ9.99.          DTSBXPFL
00246      05  FILLER                      PIC X(01) VALUE '|'.         DTSBXPFL
00247      05  TAX2-AGY-REPORT-DT         PIC  X(10).                   DTSBXPFL
00248  01  TSKL-REC.                                                    DTSBXPFL
00249  ++INCLUDE DTSITSKL                                               DTSBXPFL
00250      EJECT                                                        DTSBXPFL
00251  01  T003-REC.                                                    DTSBXPFL
00252  ++INCLUDE DTSIT003                                               DTSBXPFL
00253      EJECT                                                        DTSBXPFL
00254  01  L001-LINK-AREA.                                              DTSBXPFL
00255  ++INCLUDE DTSIL001                                               DTSBXPFL
00256      EJECT                                                        DTSBXPFL
00257  01  L005-LINK-AREA.                                              DTSBXPFL
00258  ++INCLUDE DTSIL005                                               DTSBXPFL
00259      EJECT                                                        DTSBXPFL
00260  01  L039-LINK-AREA.                                              DTSBXPFL
00261  ++INCLUDE DTSIL039                                               DTSBXPFL
00262      EJECT                                                        DTSBXPFL
00263  01  L101-LINK-AREA.                                              DTSBXPFL
00264  ++INCLUDE DTSIL101                                               DTSBXPFL
00265      EJECT                                                        DTSBXPFL
00266  01  L102-LINK-AREA.                                              DTSBXPFL
00267  ++INCLUDE DTSIL102                                               DTSBXPFL
00268      EJECT                                                        DTSBXPFL
00269  01  L109-LINK-AREA.                                              DTSBXPFL
00270  ++INCLUDE DTSIL109                                               DTSBXPFL
00271                                                                   DTSBXPFL
00272  01  L054-LINK-AREA.                                              DTSBXPFL
00273  ++INCLUDE DTSIL054                                               DTSBXPFL
00274      EJECT                                                        DTSBXPFL
00275  01  L410-LINK-AREA.                                              DTSBXPFL
00276  ++INCLUDE DTSIL410                                               DTSBXPFL
00277      EJECT                                                        DTSBXPFL
00278  01  L600-LINK-AREA.                                              DTSBXPFL
00279  ++INCLUDE DTSIL600                                               DTSBXPFL
00280      EJECT                                                        DTSBXPFL
00281  01  L910-LINK-AREA.                                              DTSBXPFL
00282  ++INCLUDE DTSIL910                                               DTSBXPFL
00283      EJECT                                                        DTSBXPFL
00284  01  MSKL-REC.                                                    DTSBXPFL
00285  ++INCLUDE DTSIMSKL                                               DTSBXPFL
00286      EJECT                                                        DTSBXPFL
00287  01  MNTE-REC.                                                    DTSBXPFL
00288  ++INCLUDE DTSIMNTE                                               DTSBXPFL
00289      EJECT                                                        DTSBXPFL
00290  01  MHDR-REC.                                                    DTSBXPFL
00291  ++INCLUDE DTSIMHDR                                               DTSBXPFL
00292      EJECT                                                        DTSBXPFL
00293  01  MPRF-REC.                                                    DTSBXPFL
00294  ++INCLUDE DTSIMPRF                                               DTSBXPFL
00295      EJECT                                                        DTSBXPFL
00296  01  MQTR-REC.                                                    DTSBXPFL
00297  ++INCLUDE DTSIMQTR                                               DTSBXPFL
00298      EJECT                                                        DTSBXPFL
00299  01  MRPT-REC.                                                    DTSBXPFL
00300  ++INCLUDE DTSIMRPT                                               DTSBXPFL
00301      EJECT                                                        DTSBXPFL
00302  01  MSOL-REC.                                                    DTSBXPFL
00303  ++INCLUDE DTSIMSOL                                               DTSBXPFL
00304      EJECT                                                        DTSBXPFL
00305  01  MRCT-REC.                                                    DTSBXPFL
00306  ++INCLUDE DTSIMRCT                                               DTSBXPFL
00307      EJECT                                                        DTSBXPFL
00308  01  MREL-REC.                                                    DTSBXPFL
00309  ++INCLUDE DTSIMREL                                               DTSBXPFL
00310      EJECT                                                        DTSBXPFL
00311  01  MEVL-REC.                                                    DTSBXPFL
00312  ++INCLUDE DTSIMEVL                                               DTSBXPFL
00313      EJECT                                                        DTSBXPFL
00314  01  MLIN-REC.                                                    DTSBXPFL
00315  ++INCLUDE DTSIMLIN                                               DTSBXPFL
00316      EJECT                                                        DTSBXPFL
00317  01  MRTE-REC.                                                    DTSBXPFL
00318  ++INCLUDE DTSIMRTE                                               DTSBXPFL
00319      EJECT                                                        DTSBXPFL
00320  01  MDST-REC.                                                    DTSBXPFL
00321  ++INCLUDE DTSIMDST                                               DTSBXPFL
00322      EJECT                                                        DTSBXPFL
00323  01  MPAY-REC.                                                    DTSBXPFL
00324  ++INCLUDE DTSIMPAY                                               DTSBXPFL
00325      EJECT                                                        DTSBXPFL
00326  01  MADJ-REC.                                                    DTSBXPFL
00327  ++INCLUDE DTSIMADJ                                               DTSBXPFL
00328      EJECT                                                        DTSBXPFL
00329  01  MJRN-REC.                                                    DTSBXPFL
00330  ++INCLUDE DTSIMJRN                                               DTSBXPFL
00331      EJECT                                                        DTSBXPFL
00332  01  MERA-REC.                                                    DTSBXPFL
00333  ++INCLUDE DTSIMERA                                               DTSBXPFL
00334      EJECT                                                        DTSBXPFL
00335  01  MCOL-REC.                                                    DTSBXPFL
00336  ++INCLUDE DTSIMCOL                                               DTSBXPFL
00337      EJECT                                                        DTSBXPFL
00338  01  MFAS-REC.                                                    DTSBXPFL
00339  ++INCLUDE DTSIMFAS                                               DTSBXPFL
00340  01  MAUR-REC.                                                    DTSBXPFL
00341  ++INCLUDE DTSIMAUR                                               DTSBXPFL
00342      EJECT                                                        DTSBXPFL
00343  01  MFAE-REC.                                                    DTSBXPFL
00344  ++INCLUDE DTSIMFAE                                               DTSBXPFL
00345      EJECT                                                        DTSBXPFL
00346  01  MLOG-REC.                                                    DTSBXPFL
00347  ++INCLUDE DTSIMLOG                                               DTSBXPFL
00348      EJECT                                                        DTSBXPFL
00349  01  MOPO-REC.                                                    DTSBXPFL
00350  ++INCLUDE DTSIMOPO                                               DTSBXPFL
00351      EJECT                                                        DTSBXPFL
00352  01  MTAD-REC.                                                    DTSBXPFL
00353  ++INCLUDE DTSIMTAD                                               DTSBXPFL
00354      EJECT                                                        DTSBXPFL
00355  01  MTAA-REC.                                                    DTSBXPFL
00356  ++INCLUDE DTSIMTAA                                               DTSBXPFL
00357      EJECT                                                        DTSBXPFL
00358  01  MBAA-REC.                                                    DTSBXPFL
00359  ++INCLUDE DTSIMBAA                                               DTSBXPFL
00360      EJECT                                                        DTSBXPFL
00361  01  MFSC-REC.                                                    DTSBXPFL
00362  ++INCLUDE DTSIMFSC                                               DTSBXPFL
00363      EJECT                                                        DTSBXPFL
00364  01  MERD-REC.                                                    DTSBXPFL
00365  ++INCLUDE DTSIMERD                                               DTSBXPFL
00366      EJECT                                                        DTSBXPFL
00367  01  MDPC-REC.                                                    DTSBXPFL
00368  ++INCLUDE DTSIMDPC                                               DTSBXPFL
00369      EJECT                                                        DTSBXPFL
00370  01  L921-LINK-AREA.                                              DTSBXPFL
00371  ++INCLUDE DTSIL921                                               DTSBXPFL
00372      EJECT                                                        DTSBXPFL
00373  01  ISKL-REC.                                                    DTSBXPFL
00374  ++INCLUDE DTSIISKL                                               DTSBXPFL
00375      EJECT                                                        DTSBXPFL
00376  01  IPES-REC.                                                    DTSBXPFL
00377  ++INCLUDE DTSIIPES                                               DTSBXPFL
00378      EJECT                                                        DTSBXPFL
00379  01  L931-LINK-AREA.                                              DTSBXPFL
00380  ++INCLUDE DTSIL931                                               DTSBXPFL
00381      EJECT                                                        DTSBXPFL
00382  01  FSKL-REC.                                                    DTSBXPFL
00383  ++INCLUDE DTSIFSKL                                               DTSBXPFL
00384      EJECT                                                        DTSBXPFL
00385  01  FQTR-REC.                                                    DTSBXPFL
00386  ++INCLUDE DTSIFQTR                                               DTSBXPFL
00387      EJECT                                                        DTSBXPFL
00388  01  FFIS-REC.                                                    DTSBXPFL
00389  ++INCLUDE DTSIFFIS                                               DTSBXPFL
00390      EJECT                                                        DTSBXPFL
00391  01  FFAZ-REC.                                                    DTSBXPFL
00392  ++INCLUDE DTSIFFAZ                                               DTSBXPFL
00393      EJECT                                                        DTSBXPFL
00394  01  FOPR-REC.                                                    DTSBXPFL
00395  ++INCLUDE DTSIFOPR                                               DTSBXPFL
00396      EJECT                                                        DTSBXPFL
00397  01  L933-LINK-AREA.                                              DTSBXPFL
00398  ++INCLUDE DTSIL933                                               DTSBXPFL
00399      EJECT                                                        DTSBXPFL
00400  01  XSIC-REC.                                                    DTSBXPFL
00401  ++INCLUDE DTSIXSIC                                               DTSBXPFL
00402      EJECT                                                        DTSBXPFL
00403  01  L004-COMM-AREA.                                              DTSBXPFL
00404  ++INCLUDE DTSIL004                                               DTSBXPFL
00405                                                                   DTSBXPFL
00406  01  L061-LINK-AREA.                                              DTSBXPFL
00407  ++INCLUDE DTSIL061                                               DTSBXPFL
00408                                                                   DTSBXPFL
00409  01  L062-LINK-AREA.                                              DTSBXPFL
00410  ++INCLUDE DTSIL062                                               DTSBXPFL
00411                                                                   DTSBXPFL
00412  01  L516-LINK-AREA.                                              DTSBXPFL
00413  ++INCLUDE DTSIL516                                               DTSBXPFL
00414      EJECT                                                        DTSBXPFL
00415  01  LBCM-LINK-AREA.                                              DTSBXPFL
00416  ++INCLUDE DTSILBCM                                               DTSBXPFL
00417      EJECT                                                        DTSBXPFL
00418  01  L923-LINK-AREA.                                              DTSBXPFL
00419  ++INCLUDE DTSIL923                                               DTSBXPFL
00420      EJECT                                                        DTSBXPFL
00421  01  ASKL-REC.                                                    DTSBXPFL
00422  ++INCLUDE DTSIASKL                                               DTSBXPFL
00423      EJECT                                                        DTSBXPFL
00424  01  AHDR-REC.                                                    DTSBXPFL
00425  ++INCLUDE DTSIAHDR                                               DTSBXPFL
00426      EJECT                                                        DTSBXPFL
00427  01  AADJ-REC.                                                    DTSBXPFL
00428  ++INCLUDE DTSIAADJ                                               DTSBXPFL
00429      EJECT                                                        DTSBXPFL
00430  01  L927-LINK-AREA.                                              DTSBXPFL
00431  ++INCLUDE DTSIL927                                               DTSBXPFL
00432      EJECT                                                        DTSBXPFL
00433  PROCEDURE DIVISION.                                              DTSBXPFL
00434                                                                   DTSBXPFL
00435      PERFORM I0000-INITIATE THRU I0000-EXIT.                      DTSBXPFL
00436         PERFORM P0000-PROCESS THRU P0000-EXIT                     DTSBXPFL
00437                 UNTIL FILE-END = 'Y' AND                          DTSBXPFL
00438                 PFL-FILE-END = 'Y'                                DTSBXPFL
00439         PERFORM T0000-TERMINATE THRU T0000-EXIT.                  DTSBXPFL
00440      SKIP2                                                        DTSBXPFL
00441      GOBACK.                                                      DTSBXPFL
00442      EJECT                                                        DTSBXPFL
00443  I0000-INITIATE.                                                  DTSBXPFL
00444      SKIP2                                                        DTSBXPFL
00445      MOVE 'N' TO WRK-TRACE-IND.                                   DTSBXPFL
00446      SET WRK-ERROR-NO-88 TO TRUE.                                 DTSBXPFL
00447                                                                   DTSBXPFL
00448      PERFORM I2000-OPEN-FILES-1        THRU I2000-EXIT.           DTSBXPFL
00449                                                                   DTSBXPFL
00450                                                                   DTSBXPFL
00451  I0000-EXIT.                                                      DTSBXPFL
00452      EXIT.                                                        DTSBXPFL
00453  I2000-OPEN-FILES-1.                                              DTSBXPFL
00454      OPEN INPUT  TAX-FILE1.                                       DTSBXPFL
00455      IF NOT TAX-STATUS-OK-88                                      DTSBXPFL
00456         DISPLAY 'CANNOT OPEN TAX FILE ' TAX-STATUS                DTSBXPFL
00457         SET WRK-ERROR-YES-88 TO TRUE                              DTSBXPFL
00458         GO TO I2000-EXIT.                                         DTSBXPFL
00459      OPEN INPUT  PFL-FILE1.                                       DTSBXPFL
00460      IF NOT PFL-STATUS-OK-88                                      DTSBXPFL
00461         DISPLAY 'CANNOT OPEN PFL FILE ' PFL-STATUS                DTSBXPFL
00462         SET WRK-ERROR-YES-88 TO TRUE                              DTSBXPFL
00463         GO TO I2000-EXIT.                                         DTSBXPFL
00464      OPEN OUTPUT TAX-FILE2.                                       DTSBXPFL
00465      IF NOT TAX2-STATUS-OK-88                                     DTSBXPFL
00466         DISPLAY 'CANNOT OPEN TAX FILE2 ' TAX2-STATUS              DTSBXPFL
00467         SET WRK-ERROR-YES-88 TO TRUE                              DTSBXPFL
00468         GO TO I2000-EXIT.                                         DTSBXPFL
00469      MOVE WRK-TRACE-IND TO L910-TRACE-IND.                        DTSBXPFL
00470                                                                   DTSBXPFL
00471      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBXPFL
00472                                                                   DTSBXPFL
00473      PERFORM S910-OPEN-UPDATE-NO-AIX THRU S910-EXIT.              DTSBXPFL
00474 *    PERFORM S923-OPEN-UPDATE THRU S923-EXIT.                     DTSBXPFL
00475 *    PERFORM S927-OPEN-UPDATE         THRU S927-EXIT.             DTSBXPFL
00476                                                                   DTSBXPFL
00477      PERFORM S005-FROM-SYS             THRU S005-EXIT.            DTSBXPFL
00478                                                                   DTSBXPFL
00479 *    PERFORM S931-OPEN-UPDATE THRU S931-EXIT.                     DTSBXPFL
00480                                                                   DTSBXPFL
00481      MOVE WRK-MOD-NAME TO L933-MOD-NAME.                          DTSBXPFL
00482      MOVE ZERO TO WS-TOTAL-AMT.                                   DTSBXPFL
00483      MOVE 'N' TO FILE-END.                                        DTSBXPFL
00484                                                                   DTSBXPFL
00485      READ TAX-FILE1                                               DTSBXPFL
00486             INTO EMP-REC1                                         DTSBXPFL
00487             AT END MOVE 'Y' TO FILE-END                           DTSBXPFL
00488      END-READ.                                                    DTSBXPFL
00489                                                                   DTSBXPFL
00490      READ PFL-FILE1                                               DTSBXPFL
00491              INTO PFL-FILE                                        DTSBXPFL
00492             AT END MOVE 'Y' TO PFL-FILE-END                       DTSBXPFL
00493                                                                   DTSBXPFL
00494      END-READ.                                                    DTSBXPFL
00495                                                                   DTSBXPFL
00496      IF TAX-AGY-TRACKING-ID NOT NUMERIC                           DTSBXPFL
00497         PERFORM S6200-READ-TAX                                    DTSBXPFL
00498      END-IF.                                                      DTSBXPFL
00499                                                                   DTSBXPFL
00500                                                                   DTSBXPFL
00501  I2000-EXIT.                                                      DTSBXPFL
00502      EXIT.                                                        DTSBXPFL
00503                                                                   DTSBXPFL
00504  P0000-PROCESS.                                                   DTSBXPFL
00505                                                                   DTSBXPFL
00506      IF TAX-AGY-TRACKING-ID =                                     DTSBXPFL
00507         PFL-AGY-TRACKING-ID                                       DTSBXPFL
00508         PERFORM S6000-ADD-AMTS   THRU S6000-EXIT                  DTSBXPFL
00509         PERFORM P1000-READ-NEXT THRU P1000-EXIT                   DTSBXPFL
00510      ELSE                                                         DTSBXPFL
00511         IF (TAX-AGY-TRACKING-ID > PFL-AGY-TRACKING-ID AND         DTSBXPFL
00512            PFL-FILE-END = 'N')                                    DTSBXPFL
00513            PERFORM S5000-WRITE-PFL                                DTSBXPFL
00514            PERFORM S6100-READ-PFL                                 DTSBXPFL
00515         ELSE                                                      DTSBXPFL
00516            IF (TAX-AGY-TRACKING-ID < PFL-AGY-TRACKING-ID          DTSBXPFL
00517               AND FILE-END = 'N')                                 DTSBXPFL
00518               PERFORM S5100-WRITE-TAX                             DTSBXPFL
00519               PERFORM S6200-READ-TAX                              DTSBXPFL
00520            ELSE                                                   DTSBXPFL
00521              IF (TAX-AGY-TRACKING-ID > PFL-AGY-TRACKING-ID AND    DTSBXPFL
00522                  PFL-FILE-END = 'Y' AND FILE-END = 'N')           DTSBXPFL
00523                 PERFORM S5100-WRITE-TAX                           DTSBXPFL
00524               PERFORM S6200-READ-TAX                              DTSBXPFL
00525              IF (TAX-AGY-TRACKING-ID < PFL-AGY-TRACKING-ID AND    DTSBXPFL
00526                  PFL-FILE-END = 'N' AND FILE-END = 'Y')           DTSBXPFL
00527                 PERFORM S5000-WRITE-PFL                           DTSBXPFL
00528               PERFORM S6100-READ-PFL                              DTSBXPFL
00529              END-IF                                               DTSBXPFL
00530              END-IF                                               DTSBXPFL
00531            END-IF                                                 DTSBXPFL
00532         END-IF                                                    DTSBXPFL
00533      END-IF.                                                      DTSBXPFL
00534                                                                   DTSBXPFL
00535                                                                   DTSBXPFL
00536                                                                   DTSBXPFL
00537                                                                   DTSBXPFL
00538  P0000-EXIT.                                                      DTSBXPFL
00539      EXIT.                                                        DTSBXPFL
00540                                                                   DTSBXPFL
00541  P1000-READ-NEXT.                                                 DTSBXPFL
00542      READ TAX-FILE1                                               DTSBXPFL
00543             INTO EMP-REC1                                         DTSBXPFL
00544             AT END MOVE 'Y' TO FILE-END                           DTSBXPFL
00545      END-READ.                                                    DTSBXPFL
00546      READ PFL-FILE1                                               DTSBXPFL
00547             INTO PFL-FILE                                         DTSBXPFL
00548             AT END MOVE 'Y' TO PFL-FILE-END                       DTSBXPFL
00549      END-READ.                                                    DTSBXPFL
00550  P1000-EXIT.                                                      DTSBXPFL
00551      EXIT.                                                        DTSBXPFL
00552                                                                   DTSBXPFL
00553  S6000-ADD-AMTS.                                                  DTSBXPFL
00554                                                                   DTSBXPFL
00555      MOVE TAX-DEBT-AMT TO WS-TAX-AMT                              DTSBXPFL
00556      MOVE PFL-DEBT-AMT TO WS-PFL-AMT                              DTSBXPFL
00557      ADD WS-TAX-AMT TO WS-PFL-AMT                                 DTSBXPFL
00558          GIVING WS-TOTAL-AMT.                                     DTSBXPFL
00559      PERFORM S5100-WRITE-TAX.                                     DTSBXPFL
00560      MOVE ZERO TO WS-TOTAL-AMT.                                   DTSBXPFL
00561                                                                   DTSBXPFL
00562  S6000-EXIT.                                                      DTSBXPFL
00563      EXIT.                                                        DTSBXPFL
00564      EJECT                                                        DTSBXPFL
00565                                                                   DTSBXPFL
00566      SKIP3                                                        DTSBXPFL
00567  S6100-READ-PFL.                                                  DTSBXPFL
00568                                                                   DTSBXPFL
00569      READ PFL-FILE1                                               DTSBXPFL
00570             INTO PFL-FILE                                         DTSBXPFL
00571             AT END MOVE 'Y' TO PFL-FILE-END                       DTSBXPFL
00572      END-READ.                                                    DTSBXPFL
00573 **6100-EXIT.                                                      DTSBXPFL
00574      EXIT.                                                        DTSBXPFL
00575      EJECT                                                        DTSBXPFL
00576                                                                   DTSBXPFL
00577      SKIP3                                                        DTSBXPFL
00578                                                                   DTSBXPFL
00579  S6200-READ-TAX.                                                  DTSBXPFL
00580                                                                   DTSBXPFL
00581      READ TAX-FILE1                                               DTSBXPFL
00582             INTO EMP-REC1                                         DTSBXPFL
00583             AT END MOVE 'Y' TO FILE-END                           DTSBXPFL
00584      END-READ.                                                    DTSBXPFL
00585 **   IF TAX-AGY-TRACKING-ID =                                     DTSBXPFL
00586 **      PFL-AGY-TRACKING-ID                                       DTSBXPFL
00587 **      PERFORM S6000-ADD-AMTS   THRU S6000-EXIT                  DTSBXPFL
00588                                                                   DTSBXPFL
00589  S6200-EXIT.                                                      DTSBXPFL
00590      EXIT.                                                        DTSBXPFL
00591      EJECT                                                        DTSBXPFL
00592                                                                   DTSBXPFL
00593      SKIP3                                                        DTSBXPFL
00594  S5000-WRITE-PFL.                                                 DTSBXPFL
00595                                                                   DTSBXPFL
00596      MOVE PFL-AGY-TRACKING-ID TO TAX2-AGY-TRACKING-ID.            DTSBXPFL
00597                                                                   DTSBXPFL
00598      MOVE PFL-AGY-ID-ADM-DIV  TO TAX2-AGY-ID-ADM-DIV.             DTSBXPFL
00599                                                                   DTSBXPFL
00600      MOVE PFL-ENTITY-ID-TYPE  TO TAX2-ENTITY-ID-TYPE.             DTSBXPFL
00601                                                                   DTSBXPFL
00602      MOVE PFL-ENTITY-ID       TO TAX2-ENTITY-ID.                  DTSBXPFL
00603                                                                   DTSBXPFL
00604      MOVE PFL-RELATIONSHIP-IND TO TAX2-RELATIONSHIP-IND.          DTSBXPFL
00605                                                                   DTSBXPFL
00606      MOVE PFL-ENTITY-BUSNS-NAME TO TAX2-ENTITY-BUSNS-NAME.        DTSBXPFL
00607                                                                   DTSBXPFL
00608      MOVE PFL-ENTITY-LAST-NAME  TO TAX2-ENTITY-LAST-NAME.         DTSBXPFL
00609                                                                   DTSBXPFL
00610      MOVE PFL-ENTITY-FIRST-NAME TO TAX2-ENTITY-FIRST-NAME.        DTSBXPFL
00611                                                                   DTSBXPFL
00612      MOVE PFL-ENTITY-MID-INIT TO TAX2-ENTITY-MID-INIT.            DTSBXPFL
00613                                                                   DTSBXPFL
00614      MOVE PFL-ENTITY-SUFFIX   TO TAX2-ENTITY-SUFFIX.              DTSBXPFL
00615                                                                   DTSBXPFL
00616      MOVE PFL-ENTITY-DOB      TO TAX2-ENTITY-DOB.                 DTSBXPFL
00617                                                                   DTSBXPFL
00618      MOVE PFL-STREET-NUMBER   TO TAX2-STREET-NUMBER.              DTSBXPFL
00619                                                                   DTSBXPFL
00620      MOVE PFL-STREET-NAME     TO TAX2-STREET-NAME.                DTSBXPFL
00621                                                                   DTSBXPFL
00622      MOVE PFL-CITY            TO TAX2-CITY.                       DTSBXPFL
00623                                                                   DTSBXPFL
00624      MOVE PFL-STATE           TO TAX2-STATE.                      DTSBXPFL
00625                                                                   DTSBXPFL
00626      MOVE PFL-ZIP             TO TAX2-ZIP.                        DTSBXPFL
00627                                                                   DTSBXPFL
00628      MOVE PFL-ZIP-EXT         TO TAX2-ZIP-EXT.                    DTSBXPFL
00629                                                                   DTSBXPFL
00630      MOVE PFL-FAILURE-TO-FILE-IND                                 DTSBXPFL
00631                      TO TAX2-FAILURE-TO-FILE-IND.                 DTSBXPFL
00632      IF WS-TOTAL-AMT > ZERO                                       DTSBXPFL
00633         MOVE WS-TOTAL-AMT        TO TAX2-DEBT-AMT                 DTSBXPFL
00634      ELSE                                                         DTSBXPFL
00635         MOVE PFL-DEBT-AMT        TO TAX2-DEBT-AMT                 DTSBXPFL
00636      END-IF.                                                      DTSBXPFL
00637                                                                   DTSBXPFL
00638                                                                   DTSBXPFL
00639      MOVE PFL-AGY-REPORT-DT TO TAX2-AGY-REPORT-DT.                DTSBXPFL
00640                                                                   DTSBXPFL
00641      WRITE TAX-REC2 FROM EMP-REC2.                                DTSBXPFL
00642      ADD 1    TO WS-REC-CNT.                                      DTSBXPFL
00643                                                                   DTSBXPFL
00644                                                                   DTSBXPFL
00645                                                                   DTSBXPFL
00646  S5000-EXIT.                                                      DTSBXPFL
00647      EXIT.                                                        DTSBXPFL
00648      EJECT                                                        DTSBXPFL
00649                                                                   DTSBXPFL
00650      SKIP3                                                        DTSBXPFL
00651                                                                   DTSBXPFL
00652  S5100-WRITE-TAX.                                                 DTSBXPFL
00653                                                                   DTSBXPFL
00654                                                                   DTSBXPFL
00655                                                                   DTSBXPFL
00656      MOVE TAX-AGY-TRACKING-ID TO TAX2-AGY-TRACKING-ID.            DTSBXPFL
00657                                                                   DTSBXPFL
00658      MOVE TAX-AGY-ID-ADM-DIV  TO TAX2-AGY-ID-ADM-DIV.             DTSBXPFL
00659                                                                   DTSBXPFL
00660      MOVE TAX-ENTITY-ID-TYPE  TO TAX2-ENTITY-ID-TYPE.             DTSBXPFL
00661                                                                   DTSBXPFL
00662      MOVE TAX-ENTITY-ID       TO TAX2-ENTITY-ID.                  DTSBXPFL
00663                                                                   DTSBXPFL
00664      MOVE TAX-RELATIONSHIP-IND TO TAX2-RELATIONSHIP-IND.          DTSBXPFL
00665                                                                   DTSBXPFL
00666      MOVE TAX-ENTITY-BUSNS-NAME TO TAX2-ENTITY-BUSNS-NAME.        DTSBXPFL
00667                                                                   DTSBXPFL
00668      MOVE TAX-ENTITY-LAST-NAME  TO TAX2-ENTITY-LAST-NAME.         DTSBXPFL
00669                                                                   DTSBXPFL
00670      MOVE TAX-ENTITY-FIRST-NAME TO TAX2-ENTITY-FIRST-NAME.        DTSBXPFL
00671                                                                   DTSBXPFL
00672      MOVE TAX-ENTITY-MID-INIT TO TAX2-ENTITY-MID-INIT.            DTSBXPFL
00673                                                                   DTSBXPFL
00674      MOVE TAX-ENTITY-SUFFIX   TO TAX2-ENTITY-SUFFIX.              DTSBXPFL
00675                                                                   DTSBXPFL
00676      MOVE TAX-ENTITY-DOB      TO TAX2-ENTITY-DOB.                 DTSBXPFL
00677                                                                   DTSBXPFL
00678      MOVE TAX-STREET-NUMBER   TO TAX2-STREET-NUMBER.              DTSBXPFL
00679                                                                   DTSBXPFL
00680      MOVE TAX-STREET-NAME     TO TAX2-STREET-NAME.                DTSBXPFL
00681                                                                   DTSBXPFL
00682      MOVE TAX-CITY            TO TAX2-CITY.                       DTSBXPFL
00683                                                                   DTSBXPFL
00684      MOVE TAX-STATE           TO TAX2-STATE.                      DTSBXPFL
00685                                                                   DTSBXPFL
00686      MOVE TAX-ZIP             TO TAX2-ZIP.                        DTSBXPFL
00687                                                                   DTSBXPFL
00688      MOVE TAX-ZIP-EXT         TO TAX2-ZIP-EXT.                    DTSBXPFL
00689                                                                   DTSBXPFL
00690      MOVE TAX-FAILURE-TO-FILE-IND                                 DTSBXPFL
00691                      TO TAX2-FAILURE-TO-FILE-IND.                 DTSBXPFL
00692                                                                   DTSBXPFL
00693      IF WS-TOTAL-AMT > ZERO                                       DTSBXPFL
00694         MOVE WS-TOTAL-AMT        TO TAX2-DEBT-AMT                 DTSBXPFL
00695      ELSE                                                         DTSBXPFL
00696         MOVE TAX-DEBT-AMT        TO TAX2-DEBT-AMT                 DTSBXPFL
00697      END-IF.                                                      DTSBXPFL
00698                                                                   DTSBXPFL
00699      MOVE TAX-AGY-REPORT-DT TO TAX2-AGY-REPORT-DT.                DTSBXPFL
00700                                                                   DTSBXPFL
00701      WRITE TAX-REC2 FROM EMP-REC2.                                DTSBXPFL
00702                                                                   DTSBXPFL
00703      ADD 1    TO WS-REC-CNT.                                      DTSBXPFL
00704                                                                   DTSBXPFL
00705                                                                   DTSBXPFL
00706  S5100-EXIT.                                                      DTSBXPFL
00707      EXIT.                                                        DTSBXPFL
00708      EJECT                                                        DTSBXPFL
00709                                                                   DTSBXPFL
00710      SKIP3                                                        DTSBXPFL
00711  T0000-TERMINATE.                                                 DTSBXPFL
00712                                                                   DTSBXPFL
00713                                                                   DTSBXPFL
00714      DISPLAY ' '.                                                 DTSBXPFL
00715                                                                   DTSBXPFL
00716      DISPLAY '*** DTSZX016 TERMINATION STATISTICS ***'.           DTSBXPFL
00717                                                                   DTSBXPFL
00718      DISPLAY ' '.                                                 DTSBXPFL
00719      MOVE WS-REC-CNT      TO HEADER-CNT.                          DTSBXPFL
00720      WRITE TAX-REC2 FROM HEADER-REC.                              DTSBXPFL
00721                                                                   DTSBXPFL
00722      CLOSE TAX-FILE1                                              DTSBXPFL
00723            PFL-FILE1                                              DTSBXPFL
00724            TAX-FILE2.                                             DTSBXPFL
00725  T0000-EXIT.                                                      DTSBXPFL
00726      EXIT.                                                        DTSBXPFL
00727      EJECT                                                        DTSBXPFL
00728  S001-FROM-FED-8.                                                 DTSBXPFL
00729      SET L001-FROM-FED-8 TO TRUE.                                 DTSBXPFL
00730      GO TO S001-DATE.                                             DTSBXPFL
00731                                                                   DTSBXPFL
00732  S001-FROM-ABS-DAY.                                               DTSBXPFL
00733      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBXPFL
00734      GO TO S001-DATE.                                             DTSBXPFL
00735                                                                   DTSBXPFL
00736  S001-DATE.                                                       DTSBXPFL
00737      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBXPFL
00738                                                                   DTSBXPFL
00739  S001-EXIT.                                                       DTSBXPFL
00740      EXIT.                                                        DTSBXPFL
00741      SKIP3                                                        DTSBXPFL
00742  S004-FROM-5.                                                     DTSBXPFL
00743      SET L004-FROM-5     TO TRUE.                                 DTSBXPFL
00744      GO TO S004-EDIT-QTR.                                         DTSBXPFL
00745                                                                   DTSBXPFL
00746  S004-FROM-ABS.                                                   DTSBXPFL
00747      SET L004-FROM-ABS   TO TRUE.                                 DTSBXPFL
00748      GO TO S004-EDIT-QTR.                                         DTSBXPFL
00749                                                                   DTSBXPFL
00750  S004-EDIT-QTR.                                                   DTSBXPFL
00751      CALL 'DTSBU004' USING L004-COMM-AREA.                        DTSBXPFL
00752                                                                   DTSBXPFL
00753  S004-EXIT.                                                       DTSBXPFL
00754      EXIT.                                                        DTSBXPFL
00755      SKIP3                                                        DTSBXPFL
00756                                                                   DTSBXPFL
00757  S005-FROM-SYS.                                                   DTSBXPFL
00758      SET L005-FROM-SYS   TO TRUE.                                 DTSBXPFL
00759      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBXPFL
00760                                                                   DTSBXPFL
00761  S005-EXIT.                                                       DTSBXPFL
00762      EXIT.                                                        DTSBXPFL
00763                                                                   DTSBXPFL
00764  S005-FROM-ABSTIME.                                               DTSBXPFL
00765      SET L005-FROM-ABSTIME TO TRUE.                               DTSBXPFL
00766      GO TO S005-ABSTIME.                                          DTSBXPFL
00767                                                                   DTSBXPFL
00768  S005-ABSTIME.                                                    DTSBXPFL
00769      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBXPFL
00770  S005-A-EXIT.                                                     DTSBXPFL
00771      EXIT.                                                        DTSBXPFL
00772      SKIP3                                                        DTSBXPFL
00773  S910-WRITE.                                                      DTSBXPFL
00774      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBXPFL
00775      SET L910-WRITE-88 TO TRUE.                                   DTSBXPFL
00776      GO TO S910-MSTR-IO.                                          DTSBXPFL
00777  S039-SIC-EDIT.                                                   DTSBXPFL
00778      CALL 'DTSBU039' USING L039-LINK-AREA.                        DTSBXPFL
00779  S039-EXIT.                                                       DTSBXPFL
00780      EXIT.                                                        DTSBXPFL
00781                                                                   DTSBXPFL
00782  S054-RATE-DETERMINATION.                                         DTSBXPFL
00783      CALL 'DTSBU054' USING L054-LINK-AREA                         DTSBXPFL
00784                            MRCT-REC.                              DTSBXPFL
00785                                                                   DTSBXPFL
00786  S054-EXIT.                                                       DTSBXPFL
00787      EXIT.                                                        DTSBXPFL
00788      SKIP3                                                        DTSBXPFL
00789  S061-FLD-REP-INFO.                                               DTSBXPFL
00790      SKIP1                                                        DTSBXPFL
00791      CALL 'DTSBU061' USING L061-LINK-AREA.                        DTSBXPFL
00792      SKIP2                                                        DTSBXPFL
00793  S061-EXIT.                                                       DTSBXPFL
00794      EXIT.                                                        DTSBXPFL
00795                                                                   DTSBXPFL
00796  S062-FLD-REP-LOOKUP.                                             DTSBXPFL
00797                                                                   DTSBXPFL
00798      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBXPFL
00799                                                                   DTSBXPFL
00800  S062-EXIT.                                                       DTSBXPFL
00801      EXIT.                                                        DTSBXPFL
00802                                                                   DTSBXPFL
00803  S101-PER-MONTH-NO.                                               DTSBXPFL
00804      SET L101-PER-MONTH-NO-88 TO TRUE.                            DTSBXPFL
00805      GO TO S101-INT-CHARGE.                                       DTSBXPFL
00806                                                                   DTSBXPFL
00807  S101-INT-CHARGE.                                                 DTSBXPFL
00808      CALL 'DTSBU101' USING L101-LINK-AREA.                        DTSBXPFL
00809  S101-EXIT.                                                       DTSBXPFL
00810      EXIT.                                                        DTSBXPFL
00811                                                                   DTSBXPFL
00812  S109-FIRST-PEN-INT-YRQ.                                          DTSBXPFL
00813      SET L109-CMND-PEN-INT-QTR-88 TO TRUE.                        DTSBXPFL
00814      CALL 'DTSBU109' USING L109-LINK-AREA.                        DTSBXPFL
00815  S109-EXIT.                                                       DTSBXPFL
00816      EXIT.                                                        DTSBXPFL
00817                                                                   DTSBXPFL
00818  S410-FILING-SCHED.                                               DTSBXPFL
00819      CALL 'DTSBU410' USING L410-LINK-AREA.                        DTSBXPFL
00820                                                                   DTSBXPFL
00821  S410-EXIT.                                                       DTSBXPFL
00822      EXIT.                                                        DTSBXPFL
00823      SKIP3                                                        DTSBXPFL
00824  S516-LIABILITY.                                                  DTSBXPFL
00825      CALL 'DTSBU516' USING L516-LINK-AREA                         DTSBXPFL
00826                            MPRF-REC.                              DTSBXPFL
00827                                                                   DTSBXPFL
00828  S516-EXIT.                                                       DTSBXPFL
00829      EXIT.                                                        DTSBXPFL
00830      SKIP3                                                        DTSBXPFL
00831  S910-OPEN-READ.                                                  DTSBXPFL
00832      SET L910-OPEN-READ-88 TO TRUE.                               DTSBXPFL
00833      GO TO S910-MSTR-IO.                                          DTSBXPFL
00834                                                                   DTSBXPFL
00835  S910-OPEN-UPDATE-NO-AIX.                                         DTSBXPFL
00836      SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE.                      DTSBXPFL
00837      GO TO S910-MSTR-IO.                                          DTSBXPFL
00838                                                                   DTSBXPFL
00839  S910-READ.                                                       DTSBXPFL
00840      SET L910-READ-88 TO TRUE.                                    DTSBXPFL
00841      GO TO S910-MSTR-IO.                                          DTSBXPFL
00842                                                                   DTSBXPFL
00843  S910-START-BROWSE.                                               DTSBXPFL
00844      SET L910-START-BROWSE-88 TO TRUE.                            DTSBXPFL
00845      GO TO S910-MSTR-IO.                                          DTSBXPFL
00846                                                                   DTSBXPFL
00847  S910-READ-NEXT.                                                  DTSBXPFL
00848      SET L910-READ-NEXT-88 TO TRUE.                               DTSBXPFL
00849      GO TO S910-MSTR-IO.                                          DTSBXPFL
00850                                                                   DTSBXPFL
00851  S910-COUNT.                                                      DTSBXPFL
00852      SET L910-COUNT-88 TO TRUE.                                   DTSBXPFL
00853      GO TO S910-MSTR-IO.                                          DTSBXPFL
00854                                                                   DTSBXPFL
00855  S910-REWRITE.                                                    DTSBXPFL
00856      SET L910-REWRITE-88 TO TRUE.                                 DTSBXPFL
00857      GO TO S910-MSTR-IO.                                          DTSBXPFL
00858                                                                   DTSBXPFL
00859  S910-DELETE.                                                     DTSBXPFL
00860      SET L910-DELETE-88 TO TRUE.                                  DTSBXPFL
00861      GO TO S910-MSTR-IO.                                          DTSBXPFL
00862                                                                   DTSBXPFL
00863  S910-CLOSE.                                                      DTSBXPFL
00864      SET L910-CLOSE-88     TO TRUE.                               DTSBXPFL
00865      GO TO S910-MSTR-IO.                                          DTSBXPFL
00866                                                                   DTSBXPFL
00867  S910-MSTR-IO.                                                    DTSBXPFL
00868      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBXPFL
00869                            MSKL-REC.                              DTSBXPFL
00870  S910-EXIT.                                                       DTSBXPFL
00871      EXIT.                                                        DTSBXPFL
00872      SKIP3                                                        DTSBXPFL
00873  S921-OPEN-READ.                                                  DTSBXPFL
00874      SET L921-OPEN-READ-88 TO TRUE.                               DTSBXPFL
00875      GO TO S921-AIX-IO.                                           DTSBXPFL
00876                                                                   DTSBXPFL
00877  S921-START-BROWSE.                                               DTSBXPFL
00878      SET L921-START-BROWSE-88 TO TRUE.                            DTSBXPFL
00879      GO TO S921-AIX-IO.                                           DTSBXPFL
00880                                                                   DTSBXPFL
00881  S921-CLOSE.                                                      DTSBXPFL
00882      SET L921-CLOSE-88     TO TRUE.                               DTSBXPFL
00883      GO TO S921-AIX-IO.                                           DTSBXPFL
00884                                                                   DTSBXPFL
00885  S923-CLOSE.                                                      DTSBXPFL
00886      SET L923-CLOSE-88 TO TRUE.                                   DTSBXPFL
00887      GO TO S923-ATC-IO.                                           DTSBXPFL
00888                                                                   DTSBXPFL
00889  S923-ATC-IO.                                                     DTSBXPFL
00890      CALL 'DTSBU923' USING L923-LINK-AREA                         DTSBXPFL
00891                            ASKL-REC.                              DTSBXPFL
00892  S923-EXIT.                                                       DTSBXPFL
00893      EXIT.                                                        DTSBXPFL
00894      SKIP3                                                        DTSBXPFL
00895  S921-AIX-IO.                                                     DTSBXPFL
00896      CALL 'DTSBU921' USING L921-LINK-AREA                         DTSBXPFL
00897                            ISKL-REC.                              DTSBXPFL
00898  S921-EXIT.                                                       DTSBXPFL
00899      EXIT.                                                        DTSBXPFL
00900      SKIP3                                                        DTSBXPFL
00901                                                                   DTSBXPFL
00902  S923-OPEN-UPDATE.                                                DTSBXPFL
00903      SET L923-OPEN-UPDATE-88 TO TRUE.                             DTSBXPFL
00904      GO TO S923-ATC-IO.                                           DTSBXPFL
00905                                                                   DTSBXPFL
00906      SKIP3                                                        DTSBXPFL
00907  S927-OPEN-UPDATE.                                                DTSBXPFL
00908      SET L927-OPEN-UPDATE-88 TO TRUE.                             DTSBXPFL
00909      GO TO S927-BTC-O.                                            DTSBXPFL
00910                                                                   DTSBXPFL
00911  S927-WRITE.                                                      DTSBXPFL
00912      SET L927-WRITE-88 TO TRUE.                                   DTSBXPFL
00913      GO TO S927-BTC-O.                                            DTSBXPFL
00914                                                                   DTSBXPFL
00915  S927-CLOSE.                                                      DTSBXPFL
00916      SET L927-CLOSE-88 TO TRUE.                                   DTSBXPFL
00917      GO TO S927-BTC-O.                                            DTSBXPFL
00918                                                                   DTSBXPFL
00919  S927-BTC-O.                                                      DTSBXPFL
00920      CALL 'DTSBU927' USING L927-LINK-AREA                         DTSBXPFL
00921                            TSKL-REC.                              DTSBXPFL
00922  S927-EXIT.                                                       DTSBXPFL
00923      EXIT.                                                        DTSBXPFL
00924                                                                   DTSBXPFL
00925      SKIP3                                                        DTSBXPFL
00926  S931-OPEN-READ.                                                  DTSBXPFL
00927      SET L931-OPEN-READ-88 TO TRUE.                               DTSBXPFL
00928      GO TO S931-REF-IO.                                           DTSBXPFL
00929                                                                   DTSBXPFL
00930  S931-OPEN-UPDATE.                                                DTSBXPFL
00931      SET L931-OPEN-UPDATE-88 TO TRUE.                             DTSBXPFL
00932      GO TO S931-REF-IO.                                           DTSBXPFL
00933                                                                   DTSBXPFL
00934  S931-START-BROWSE.                                               DTSBXPFL
00935      SET L931-START-BROWSE-88 TO TRUE.                            DTSBXPFL
00936      GO TO S931-REF-IO.                                           DTSBXPFL
00937                                                                   DTSBXPFL
00938  S931-READ.                                                       DTSBXPFL
00939      SET L931-READ-88 TO TRUE.                                    DTSBXPFL
00940      GO TO S931-REF-IO.                                           DTSBXPFL
00941                                                                   DTSBXPFL
00942  S931-READ-NEXT.                                                  DTSBXPFL
00943      SET L931-READ-NEXT-88 TO TRUE.                               DTSBXPFL
00944      GO TO S931-REF-IO.                                           DTSBXPFL
00945                                                                   DTSBXPFL
00946  S931-DELETE.                                                     DTSBXPFL
00947      SET L931-DELETE-88    TO TRUE.                               DTSBXPFL
00948      GO TO S931-REF-IO.                                           DTSBXPFL
00949                                                                   DTSBXPFL
00950  S931-REWRITE.                                                    DTSBXPFL
00951      SET L931-REWRITE-88   TO TRUE.                               DTSBXPFL
00952      GO TO S931-REF-IO.                                           DTSBXPFL
00953                                                                   DTSBXPFL
00954  S931-WRITE.                                                      DTSBXPFL
00955      SET L931-WRITE-88   TO TRUE.                                 DTSBXPFL
00956      GO TO S931-REF-IO.                                           DTSBXPFL
00957                                                                   DTSBXPFL
00958  S931-CLOSE.                                                      DTSBXPFL
00959      SET L931-CLOSE-88 TO TRUE.                                   DTSBXPFL
00960      GO TO S931-REF-IO.                                           DTSBXPFL
00961                                                                   DTSBXPFL
00962  S931-REF-IO.                                                     DTSBXPFL
00963      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBXPFL
00964                            FSKL-REC.                              DTSBXPFL
00965  S931-EXIT.                                                       DTSBXPFL
00966      EXIT.                                                        DTSBXPFL
00967      SKIP3                                                        DTSBXPFL
00968  S933-OPEN-READ.                                                  DTSBXPFL
00969      SET L933-OPEN-READ-88 TO TRUE.                               DTSBXPFL
00970      GO TO S933-SIC-I.                                            DTSBXPFL
00971                                                                   DTSBXPFL
00972  S933-CLOSE.                                                      DTSBXPFL
00973      SET L933-CLOSE-88 TO TRUE.                                   DTSBXPFL
00974      GO TO S933-SIC-I.                                            DTSBXPFL
00975                                                                   DTSBXPFL
00976  S933-SIC-I.                                                      DTSBXPFL
00977      CALL 'DTSBU933' USING L933-LINK-AREA                         DTSBXPFL
00978                            XSIC-REC.                              DTSBXPFL
00979  S933-EXIT.                                                       DTSBXPFL
00980      EXIT.                                                        DTSBXPFL
00981                                                                   DTSBXPFL
00982  S999-ABEND.                                                      DTSBXPFL
00983      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBXPFL
00984  S999-EXIT.                                                       DTSBXPFL
00985      EXIT.                                                        DTSBXPFL
