00001  IDENTIFICATION DIVISION.                                         05/30/24
00002  PROGRAM-ID.             DTSZXPFL.                                DTSZXPFL
00003  AUTHOR.                 HUDAK.                                      LV038
00004  DATE-WRITTEN.           JAN2021.                                    CL**4
00005  DATE-COMPILED.                                                   DTSZXPFL
00006      SKIP3                                                        DTSZXPFL
00007 *****                                                             DTSZXPFL
00008 *                                                                 DTSZXPFL
00009 *    FUNCTION:  MERGE PFL AND UI TAX FILES FOR OTR                DTSZXPFL
00010 *                                                                 DTSZXPFL
00011 *5/30/24 CHG TOTAL AMOUNT OWED FROM 100 TO 1000 DOLLARS    ZL1       CL*38
00012 *****                                                             DTSZXPFL
00013      SKIP3                                                        DTSZXPFL
00014  ENVIRONMENT DIVISION.                                            DTSZXPFL
00015      SKIP2                                                        DTSZXPFL
00016  CONFIGURATION SECTION.                                           DTSZXPFL
00017  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSZXPFL
00018                                                                   DTSZXPFL
00019  INPUT-OUTPUT SECTION.                                            DTSZXPFL
00020                                                                   DTSZXPFL
00021  FILE-CONTROL.                                                    DTSZXPFL
00022      SELECT TAX-FILE1 ASSIGN TO TAXFILE1                          DTSZXPFL
00023             FILE STATUS IS TAX-STATUS.                            DTSZXPFL
00024      SELECT PFL-FILE1 ASSIGN TO PFLFILE1                          DTSZXPFL
00025             FILE STATUS IS PFL-STATUS.                            DTSZXPFL
00026      SELECT TAX-FILE2 ASSIGN TO TAXFILE2                          DTSZXPFL
00027             FILE STATUS IS TAX2-STATUS.                           DTSZXPFL
00028                                                                   DTSZXPFL
00029                                                                   DTSZXPFL
00030  DATA DIVISION.                                                   DTSZXPFL
00031                                                                   DTSZXPFL
00032  FILE SECTION.                                                    DTSZXPFL
00033                                                                   DTSZXPFL
00034  FD  TAX-FILE1                                                    DTSZXPFL
00035      RECORDING MODE IS F.                                         DTSZXPFL
00036  01  TAX-REC1.                                                    DTSZXPFL
00037      05  TAX-RECORD          PIC X(386).                          DTSZXPFL
00038                                                                   DTSZXPFL
00039                                                                   DTSZXPFL
00040  FD  PFL-FILE1                                                    DTSZXPFL
00041      RECORDING MODE IS F.                                         DTSZXPFL
00042  01  PFL-REC1.                                                    DTSZXPFL
00043      05  PFL-RECORD          PIC X(386).                          DTSZXPFL
00044                                                                   DTSZXPFL
00045                                                                   DTSZXPFL
00046  FD  TAX-FILE2                                                    DTSZXPFL
00047      RECORDING MODE IS F.                                         DTSZXPFL
00048  01  TAX-REC2.                                                    DTSZXPFL
00049      05  TAX-RECORD2         PIC X(386).                          DTSZXPFL
00050                                                                   DTSZXPFL
00051                                                                   DTSZXPFL
00052  WORKING-STORAGE SECTION.                                         DTSZXPFL
000525 77  PAN-VALET PICTURE X(24) VALUE '038DTSZXPFL  05/30/24'.       DTSZXPFL
00053  77  PAN-VALET PICTURE X(24) VALUE '053DTSBXPFL  10/05/21'.       DTSZXPFL
00054      SKIP3                                                        DTSZXPFL
00055  01  WRK-AREA.                                                    DTSZXPFL
00056      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +400.DTSZXPFL
00057                                                                   DTSZXPFL
00058      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBD400'.DTSZXPFL
00059                                                                   DTSZXPFL
00060      05  WRK-MPRF-IND                PIC  X(01).                  DTSZXPFL
00061          88 WRK-MPRF-OK           VALUE 'Y'.                      DTSZXPFL
00062          88 WRK-MPRF-NO-REC       VALUE 'N'.                      DTSZXPFL
00063      05  WRK-MEVL-IND                PIC  X(01).                  DTSZXPFL
00064          88 WRK-MEVL-OK           VALUE 'Y'.                      DTSZXPFL
00065          88 WRK-MEVL-NO-REC       VALUE 'N'.                      DTSZXPFL
00066      05  WRK-ERROR-IND               PIC  X(01).                  DTSZXPFL
00067          88  WRK-ERROR-YES-88         VALUE 'Y'.                  DTSZXPFL
00068          88  WRK-ERROR-NO-88          VALUE 'N'.                  DTSZXPFL
00069 *RW1                                                              DTSZXPFL
00070      05  HLD-ID                      PIC  9(01) VALUE ZEROS.         CL*20
00071      05  TAX-READ                    PIC  9(05) VALUE ZEROS.         CL*20
00072      05  DUP-CNT                     PIC  9(05) VALUE ZEROS.         CL*36
00073      05  ZUP-CNT                     PIC  9(05) VALUE ZEROS.         CL*36
00074      05  REC-CNT                     PIC  9(05) VALUE ZEROS.         CL*35
00075      05  ZEC-CNT                     PIC  9(05) VALUE ZEROS.         CL*35
00076      05  HLD-AGY-TRACKING-ID         PIC  X(13) VALUE SPACES.        CL*18
00077      05  EXP-STATUS                  PIC  X(02).                     CL*17
00078          88  EXP-STATUS-OK-88         VALUE '00'.                 DTSZXPFL
00079      05  TAX-STATUS                  PIC  X(02).                  DTSZXPFL
00080          88  TAX-STATUS-OK-88         VALUE '00'.                 DTSZXPFL
00081      05  PFL-STATUS                  PIC  X(02).                  DTSZXPFL
00082          88  PFL-STATUS-OK-88         VALUE '00'.                 DTSZXPFL
00083      05  TAX2-STATUS                 PIC  X(02).                  DTSZXPFL
00084          88  TAX2-STATUS-OK-88         VALUE '00'.                DTSZXPFL
00085                                                                   DTSZXPFL
00086      05  WRK-SPLIT.                                               DTSZXPFL
00087          10  FILLER               PIC X(1) VALUE '$'.             DTSZXPFL
00088          10  WRK-DOL              PIC 9(09).                      DTSZXPFL
00089          10  FILLER               PIC X(1) VALUE '.'.             DTSZXPFL
00090          10  WRK-CENT             PIC 9(02).                      DTSZXPFL
00091                                                                   DTSZXPFL
00092      05  WS-TAX-AMT               PIC 9(09)V99.                      CL*33
00093      05  WS-PFL-AMT               PIC 9(09)V99.                      CL*33
00094      05  WS-TOTAL-AMT             PIC 9(09)V99.                      CL*33
00095      05  WRK-BAL                  PIC 9(09)V9(02) VALUE 999.99.      CL*38
00096      05  FILE-END                 PIC  X(01) VALUE 'N'.           DTSZXPFL
00097      05  PFL-FILE-END             PIC  X(01) VALUE 'N'.           DTSZXPFL
00098      05  WRK-ABEND-MSG            PIC  X(60)  VALUE SPACES.       DTSZXPFL
00099      05  FIRST-TIME-IND           PIC  X(01)  VALUE 'Y'.          DTSZXPFL
00100      05  WS-NUMBER-ONE            PIC S9(05)  COMP-3 VALUE +0.    DTSZXPFL
00101      05  WRK-TRACE-IND            PIC  X(01).                     DTSZXPFL
00102      05  WS-REC-CNT               PIC 9(07).                      DTSZXPFL
00103  01  HEADER-REC.                                                  DTSZXPFL
00104                                                                   DTSZXPFL
00105      05  FILLER                    PIC  X(07) VALUE 'HEADER='.    DTSZXPFL
00106      05  HEADER-CNT                PIC  9(07).                    DTSZXPFL
00107      05  HLD-DEBT-AMT              PIC  ----------9.99.              CL*20
00108                                                                   DTSZXPFL
00109                                                                   DTSZXPFL
00110  01  PFL-FILE.                                                    DTSZXPFL
00111                                                                   DTSZXPFL
00112      05  PFL-AGY-TRACKING-ID       PIC  X(13).                    DTSZXPFL
00113      05  FILLER                      PIC X(01).                   DTSZXPFL
00114      05  PFL-AGY-ID-ADM-DIV        PIC  X(06).                    DTSZXPFL
00115      05  FILLER                      PIC X(01).                   DTSZXPFL
00116      05  PFL-ENTITY-ID-TYPE        PIC  X(01).                    DTSZXPFL
00117          88  PFL-ENTITY-TYPE-SSN-88  VALUE 'S'.                   DTSZXPFL
00118          88  PFL-ENTITY-TYPE-EIN-88  VALUE 'E'.                   DTSZXPFL
00119      05  FILLER                      PIC X(01).                   DTSZXPFL
00120      05  PFL-ENTITY-ID             PIC  X(09).                    DTSZXPFL
00121      05  FILLER                      PIC X(01).                   DTSZXPFL
00122      05  PFL-RELATIONSHIP-IND      PIC  X(01).                    DTSZXPFL
00123          88  PFL-RELATION-EXISTS-88  VALUE 'R'.                   DTSZXPFL
00124          88  PFL-NO-RELATION-88      VALUE 'N'.                   DTSZXPFL
00125      05  FILLER                      PIC X(01).                   DTSZXPFL
00126      05  PFL-ENTITY-BUSNS-NAME     PIC  X(70).                    DTSZXPFL
00127      05  FILLER                      PIC X(01).                   DTSZXPFL
00128      05  PFL-ENTITY-LAST-NAME      PIC  X(35).                    DTSZXPFL
00129      05  FILLER                      PIC X(01).                   DTSZXPFL
00130      05  PFL-ENTITY-FIRST-NAME     PIC  X(35).                    DTSZXPFL
00131      05  FILLER                      PIC X(01).                   DTSZXPFL
00132      05  PFL-ENTITY-MID-INIT       PIC  X(01).                    DTSZXPFL
00133      05  FILLER                      PIC X(01).                   DTSZXPFL
00134      05  PFL-ENTITY-SUFFIX         PIC  X(10).                    DTSZXPFL
00135      05  FILLER                      PIC X(01).                   DTSZXPFL
00136      05  PFL-ENTITY-DOB            PIC  X(10).                    DTSZXPFL
00137      05  FILLER                      PIC X(01).                   DTSZXPFL
00138      05  PFL-STREET-NUMBER         PIC  X(10).                    DTSZXPFL
00139      05  FILLER                      PIC X(01).                   DTSZXPFL
00140      05  PFL-STREET-NAME           PIC  X(100).                   DTSZXPFL
00141      05  FILLER                      PIC X(01).                   DTSZXPFL
00142      05  PFL-CITY                  PIC  X(30).                    DTSZXPFL
00143      05  FILLER                      PIC X(01).                   DTSZXPFL
00144      05  PFL-STATE                 PIC  X(02).                    DTSZXPFL
00145      05  FILLER                      PIC X(01).                   DTSZXPFL
00146      05  PFL-ZIP                   PIC  X(05).                    DTSZXPFL
00147      05  FILLER                      PIC X(01).                   DTSZXPFL
00148      05  PFL-ZIP-EXT               PIC  X(04).                    DTSZXPFL
00149      05  FILLER                      PIC X(01).                   DTSZXPFL
00150      05  PFL-FAILURE-TO-FILE-IND   PIC  X(01).                    DTSZXPFL
00151          88  PFL-FAIL-TO-FILE-YES-88  VALUE 'Y'.                  DTSZXPFL
00152          88  PFL-FAIL-TO-FILE-NO-88   VALUE 'N'.                  DTSZXPFL
00153      05  FILLER                      PIC X(01).                   DTSZXPFL
00154      05  PFL-DEBT-AMT              PIC  ----------9.99.           DTSZXPFL
00155      05  FILLER                      PIC X(01).                   DTSZXPFL
00156      05  PFL-AGY-REPORT-DT         PIC  X(10).                    DTSZXPFL
00157                                                                   DTSZXPFL
00158                                                                   DTSZXPFL
00159                                                                   DTSZXPFL
00160  01  EMP-REC1.                                                    DTSZXPFL
00161                                                                   DTSZXPFL
00162      05  TAX-AGY-TRACKING-ID       PIC  X(13).                    DTSZXPFL
00163      05  FILLER                    PIC  X(01).                    DTSZXPFL
00164      05  TAX-AGY-ID-ADM-DIV        PIC  X(06).                    DTSZXPFL
00165      05  FILLER                    PIC X(01).                     DTSZXPFL
00166      05  TAX-ENTITY-ID-TYPE        PIC  X(01).                    DTSZXPFL
00167          88  TAX-ENTITY-TYPE-SSN-88  VALUE 'S'.                   DTSZXPFL
00168          88  TAX-ENTITY-TYPE-EIN-88  VALUE 'E'.                   DTSZXPFL
00169      05  FILLER                      PIC X(01).                   DTSZXPFL
00170      05  TAX-ENTITY-ID             PIC  X(09).                    DTSZXPFL
00171      05  FILLER                    PIC X(01).                     DTSZXPFL
00172      05  TAX-RELATIONSHIP-IND      PIC  X(01).                    DTSZXPFL
00173          88  TAX0-RELATION-EXISTS-88  VALUE 'R'.                  DTSZXPFL
00174          88  TAX0-NO-RELATION-88      VALUE 'N'.                  DTSZXPFL
00175      05  FILLER                    PIC X(01).                     DTSZXPFL
00176      05  TAX-ENTITY-BUSNS-NAME     PIC  X(70).                    DTSZXPFL
00177      05  FILLER                    PIC X(01).                     DTSZXPFL
00178      05  TAX-ENTITY-LAST-NAME      PIC  X(35).                    DTSZXPFL
00179      05  FILLER                    PIC X(01).                     DTSZXPFL
00180      05  TAX-ENTITY-FIRST-NAME     PIC  X(35).                    DTSZXPFL
00181      05  FILLER                    PIC X(01).                     DTSZXPFL
00182      05  TAX-ENTITY-MID-INIT       PIC  X(01).                    DTSZXPFL
00183      05  FILLER                    PIC X(01).                     DTSZXPFL
00184      05  TAX-ENTITY-SUFFIX         PIC  X(10).                    DTSZXPFL
00185      05  FILLER                    PIC X(01).                     DTSZXPFL
00186      05  TAX-ENTITY-DOB            PIC  X(10).                    DTSZXPFL
00187      05  FILLER                    PIC X(01).                     DTSZXPFL
00188      05  TAX-STREET-NUMBER         PIC  X(10).                    DTSZXPFL
00189      05  FILLER                    PIC X(01).                     DTSZXPFL
00190      05  TAX-STREET-NAME           PIC  X(100).                   DTSZXPFL
00191      05  FILLER                    PIC X(01).                     DTSZXPFL
00192      05  TAX-CITY                  PIC  X(30).                    DTSZXPFL
00193      05  FILLER                    PIC X(01).                     DTSZXPFL
00194      05  TAX-STATE                 PIC  X(02).                    DTSZXPFL
00195      05  FILLER                    PIC X(01).                     DTSZXPFL
00196      05  TAX-ZIP                   PIC  X(05).                    DTSZXPFL
00197      05  FILLER                    PIC X(01).                     DTSZXPFL
00198      05  TAX-ZIP-EXT               PIC  X(04).                    DTSZXPFL
00199      05  FILLER                    PIC X(01).                     DTSZXPFL
00200      05  TAX-FAILURE-TO-FILE-IND   PIC  X(01).                    DTSZXPFL
00201          88  TAX-FAIL-TO-FILE-YES-88  VALUE 'Y'.                  DTSZXPFL
00202          88  TAX-FAIL-TO-FILE-NO-88   VALUE 'N'.                  DTSZXPFL
00203      05  FILLER                    PIC X(01).                     DTSZXPFL
00204      05  TAX-DEBT-AMT              PIC  ----------9.99.           DTSZXPFL
00205      05  FILLER                    PIC X(01).                     DTSZXPFL
00206      05  TAX-AGY-REPORT-DT         PIC  X(10).                    DTSZXPFL
00207                                                                   DTSZXPFL
00208                                                                   DTSZXPFL
00209                                                                   DTSZXPFL
00210  01  EMP-REC2.                                                    DTSZXPFL
00211      05  TAX2-AGY-TRACKING-ID       PIC  X(13).                   DTSZXPFL
00212      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00213      05  TAX2-AGY-ID-ADM-DIV        PIC  X(06).                   DTSZXPFL
00214      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00215      05  TAX2-ENTITY-ID-TYPE        PIC  X(01).                   DTSZXPFL
00216          88  TAX2-ENTITY-TYPE-SSN-88  VALUE 'S'.                  DTSZXPFL
00217          88  TAX2-ENTITY-TYPE-EIN-88  VALUE 'E'.                  DTSZXPFL
00218      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00219      05  TAX2-ENTITY-ID             PIC  X(09).                   DTSZXPFL
00220      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00221      05  TAX2-RELATIONSHIP-IND      PIC  X(01).                   DTSZXPFL
00222          88  TAX02-RELATION-EXISTS-88  VALUE 'R'.                 DTSZXPFL
00223          88  TAX02-NO-RELATION-88      VALUE 'N'.                 DTSZXPFL
00224      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00225      05  TAX2-ENTITY-BUSNS-NAME     PIC  X(70).                   DTSZXPFL
00226      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00227      05  TAX2-ENTITY-LAST-NAME      PIC  X(35).                   DTSZXPFL
00228      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00229      05  TAX2-ENTITY-FIRST-NAME     PIC  X(35).                   DTSZXPFL
00230      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00231      05  TAX2-ENTITY-MID-INIT       PIC  X(01).                   DTSZXPFL
00232      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00233      05  TAX2-ENTITY-SUFFIX         PIC  X(10).                   DTSZXPFL
00234      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00235      05  TAX2-ENTITY-DOB            PIC  X(10).                   DTSZXPFL
00236      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00237      05  TAX2-STREET-NUMBER         PIC  X(10).                   DTSZXPFL
00238      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00239      05  TAX2-STREET-NAME           PIC  X(100).                  DTSZXPFL
00240      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00241      05  TAX2-CITY                  PIC  X(30).                   DTSZXPFL
00242      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00243      05  TAX2-STATE                 PIC  X(02).                   DTSZXPFL
00244      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00245      05  TAX2-ZIP                   PIC  X(05).                   DTSZXPFL
00246      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00247      05  TAX2-ZIP-EXT               PIC  X(04).                   DTSZXPFL
00248      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00249      05  TAX2-FAILURE-TO-FILE-IND   PIC  X(01).                   DTSZXPFL
00250          88  TAX2-FAIL-TO-FILE-YES-88  VALUE 'Y'.                 DTSZXPFL
00251          88  TAX2-FAIL-TO-FILE-NO-88   VALUE 'N'.                 DTSZXPFL
00252      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00253      05  TAX2-DEBT-AMT              PIC  ZZZZZZZZZZ9.99.          DTSZXPFL
00254      05  FILLER                      PIC X(01) VALUE '|'.         DTSZXPFL
00255      05  TAX2-AGY-REPORT-DT         PIC  X(10).                   DTSZXPFL
00256  01  TSKL-REC.                                                    DTSZXPFL
00257  ++INCLUDE DTSITSKL                                               DTSZXPFL
00258      EJECT                                                        DTSZXPFL
00259  01  T003-REC.                                                    DTSZXPFL
00260  ++INCLUDE DTSIT003                                               DTSZXPFL
00261      EJECT                                                        DTSZXPFL
00262  01  L001-LINK-AREA.                                              DTSZXPFL
00263  ++INCLUDE DTSIL001                                               DTSZXPFL
00264      EJECT                                                        DTSZXPFL
00265  01  L005-LINK-AREA.                                              DTSZXPFL
00266  ++INCLUDE DTSIL005                                               DTSZXPFL
00267      EJECT                                                        DTSZXPFL
00268  01  L039-LINK-AREA.                                              DTSZXPFL
00269  ++INCLUDE DTSIL039                                               DTSZXPFL
00270      EJECT                                                        DTSZXPFL
00271  01  L101-LINK-AREA.                                              DTSZXPFL
00272  ++INCLUDE DTSIL101                                               DTSZXPFL
00273      EJECT                                                        DTSZXPFL
00274  01  L102-LINK-AREA.                                              DTSZXPFL
00275  ++INCLUDE DTSIL102                                               DTSZXPFL
00276      EJECT                                                        DTSZXPFL
00277  01  L109-LINK-AREA.                                              DTSZXPFL
00278  ++INCLUDE DTSIL109                                               DTSZXPFL
00279                                                                   DTSZXPFL
00280  01  L054-LINK-AREA.                                              DTSZXPFL
00281  ++INCLUDE DTSIL054                                               DTSZXPFL
00282      EJECT                                                        DTSZXPFL
00283  01  L410-LINK-AREA.                                              DTSZXPFL
00284  ++INCLUDE DTSIL410                                               DTSZXPFL
00285      EJECT                                                        DTSZXPFL
00286  01  L600-LINK-AREA.                                              DTSZXPFL
00287  ++INCLUDE DTSIL600                                               DTSZXPFL
00288      EJECT                                                        DTSZXPFL
00289  01  L910-LINK-AREA.                                              DTSZXPFL
00290  ++INCLUDE DTSIL910                                               DTSZXPFL
00291      EJECT                                                        DTSZXPFL
00292  01  MSKL-REC.                                                    DTSZXPFL
00293  ++INCLUDE DTSIMSKL                                               DTSZXPFL
00294      EJECT                                                        DTSZXPFL
00295      EJECT                                                        DTSZXPFL
00296  01  L921-LINK-AREA.                                              DTSZXPFL
00297  ++INCLUDE DTSIL921                                               DTSZXPFL
00298      EJECT                                                        DTSZXPFL
00299  01  ISKL-REC.                                                    DTSZXPFL
00300  ++INCLUDE DTSIISKL                                               DTSZXPFL
00301      EJECT                                                        DTSZXPFL
00302  01  IPES-REC.                                                    DTSZXPFL
00303  ++INCLUDE DTSIIPES                                               DTSZXPFL
00304      EJECT                                                        DTSZXPFL
00305  01  L931-LINK-AREA.                                              DTSZXPFL
00306  ++INCLUDE DTSIL931                                               DTSZXPFL
00307      EJECT                                                        DTSZXPFL
00308  01  FSKL-REC.                                                    DTSZXPFL
00309  ++INCLUDE DTSIFSKL                                               DTSZXPFL
00310      EJECT                                                        DTSZXPFL
00311  01  L933-LINK-AREA.                                              DTSZXPFL
00312  ++INCLUDE DTSIL933                                               DTSZXPFL
00313      EJECT                                                        DTSZXPFL
00314  01  L004-COMM-AREA.                                              DTSZXPFL
00315  ++INCLUDE DTSIL004                                               DTSZXPFL
00316      EJECT                                                        DTSZXPFL
00317  01  L923-LINK-AREA.                                              DTSZXPFL
00318  ++INCLUDE DTSIL923                                               DTSZXPFL
00319      EJECT                                                        DTSZXPFL
00320  01  L927-LINK-AREA.                                              DTSZXPFL
00321  ++INCLUDE DTSIL927                                               DTSZXPFL
00322      EJECT                                                        DTSZXPFL
00323  PROCEDURE DIVISION.                                              DTSZXPFL
00324                                                                   DTSZXPFL
00325      PERFORM I0000-INITIATE THRU I0000-EXIT.                      DTSZXPFL
00326         PERFORM P0000-PROCESS THRU P0000-EXIT                     DTSZXPFL
00327                 UNTIL FILE-END = 'Y'                                 CL*16
00328         PERFORM T0000-TERMINATE THRU T0000-EXIT.                  DTSZXPFL
00329      SKIP2                                                        DTSZXPFL
00330      GOBACK.                                                      DTSZXPFL
00331      EJECT                                                        DTSZXPFL
00332  I0000-INITIATE.                                                  DTSZXPFL
00333      SKIP2                                                        DTSZXPFL
00334      MOVE 'N' TO WRK-TRACE-IND.                                   DTSZXPFL
00335      SET WRK-ERROR-NO-88 TO TRUE.                                 DTSZXPFL
00336                                                                   DTSZXPFL
00337      PERFORM I2000-OPEN-FILES-1        THRU I2000-EXIT.           DTSZXPFL
00338                                                                   DTSZXPFL
00339                                                                   DTSZXPFL
00340  I0000-EXIT.                                                      DTSZXPFL
00341      EXIT.                                                        DTSZXPFL
00342  I2000-OPEN-FILES-1.                                              DTSZXPFL
00343      OPEN INPUT  TAX-FILE1.                                       DTSZXPFL
00344      IF NOT TAX-STATUS-OK-88                                      DTSZXPFL
00345         DISPLAY 'CANNOT OPEN TAX FILE ' TAX-STATUS                DTSZXPFL
00346         SET WRK-ERROR-YES-88 TO TRUE                              DTSZXPFL
00347         GO TO I2000-EXIT.                                         DTSZXPFL
00348      OPEN INPUT  PFL-FILE1.                                       DTSZXPFL
00349      IF NOT PFL-STATUS-OK-88                                      DTSZXPFL
00350         DISPLAY 'CANNOT OPEN PFL FILE ' PFL-STATUS                DTSZXPFL
00351         SET WRK-ERROR-YES-88 TO TRUE                              DTSZXPFL
00352         GO TO I2000-EXIT.                                         DTSZXPFL
00353      OPEN OUTPUT TAX-FILE2.                                       DTSZXPFL
00354      IF NOT TAX2-STATUS-OK-88                                     DTSZXPFL
00355         DISPLAY 'CANNOT OPEN TAX FILE2 ' TAX2-STATUS              DTSZXPFL
00356         SET WRK-ERROR-YES-88 TO TRUE                              DTSZXPFL
00357         GO TO I2000-EXIT.                                         DTSZXPFL
00358      MOVE WRK-TRACE-IND TO L910-TRACE-IND.                        DTSZXPFL
00359                                                                   DTSZXPFL
00360      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSZXPFL
00361                                                                   DTSZXPFL
00362 *    PERFORM S910-OPEN-READ THRU S910-EXIT.                          CL*16
00363 *    PERFORM S910-OPEN-UPDATE-NO-AIX THRU S910-EXIT.                 CL*11
00364 *    PERFORM S923-OPEN-UPDATE THRU S923-EXIT.                     DTSZXPFL
00365 *    PERFORM S927-OPEN-UPDATE         THRU S927-EXIT.             DTSZXPFL
00366                                                                   DTSZXPFL
00367      PERFORM S005-FROM-SYS             THRU S005-EXIT.            DTSZXPFL
00368                                                                   DTSZXPFL
00369 *    PERFORM S931-OPEN-UPDATE THRU S931-EXIT.                     DTSZXPFL
00370                                                                   DTSZXPFL
00371      MOVE WRK-MOD-NAME TO L933-MOD-NAME.                          DTSZXPFL
00372      MOVE ZERO TO WS-TOTAL-AMT.                                   DTSZXPFL
00373      MOVE 'N' TO FILE-END.                                        DTSZXPFL
00374                                                                   DTSZXPFL
00375      READ TAX-FILE1                                               DTSZXPFL
00376             INTO EMP-REC1                                         DTSZXPFL
00377             AT END MOVE 'Y' TO FILE-END                           DTSZXPFL
00378      END-READ.                                                    DTSZXPFL
00379                                                                   DTSZXPFL
00380      READ PFL-FILE1                                               DTSZXPFL
00381              INTO PFL-FILE                                        DTSZXPFL
00382             AT END MOVE 'Y' TO PFL-FILE-END                       DTSZXPFL
00383                                                                   DTSZXPFL
00384      END-READ.                                                    DTSZXPFL
00385                                                                   DTSZXPFL
00386      IF TAX-AGY-TRACKING-ID NOT NUMERIC                           DTSZXPFL
00387         PERFORM S6200-READ-TAX                                    DTSZXPFL
00388      END-IF.                                                      DTSZXPFL
00389                                                                   DTSZXPFL
00390                                                                   DTSZXPFL
00391  I2000-EXIT.                                                      DTSZXPFL
00392      EXIT.                                                        DTSZXPFL
00393                                                                   DTSZXPFL
00394  P0000-PROCESS.                                                   DTSZXPFL
00395      ADD 1 TO TAX-READ                                               CL*16
00396       IF TAX-READ = 1                                                CL*16
00397          MOVE EMP-REC1 TO PFL-FILE                                   CL*20
00398          MOVE ZEROS     TO WS-TOTAL-AMT                              CL*20
00399          GO TO P0000-CONTINUE.                                       CL*16
00400                                                                      CL*16
00401      IF TAX-AGY-TRACKING-ID =                                     DTSZXPFL
00402         PFL-AGY-TRACKING-ID                                          CL*20
00403          DISPLAY 'TXID = ' TAX-AGY-TRACKING-ID                       CL*34
00404                  ' PFID ' PFL-AGY-TRACKING-ID                        CL*34
00405          MOVE PFL-DEBT-AMT TO WS-PFL-AMT                             CL*20
00406          ADD WS-PFL-AMT TO WS-TOTAL-AMT                              CL*20
00407          MOVE EMP-REC1 TO PFL-FILE                                   CL*20
00408          ADD 1 TO DUP-CNT                                            CL*35
00409          GO TO P0000-CONTINUE                                        CL*20
00410      ELSE                                                            CL*20
00411          ADD 1 TO ZUP-CNT                                            CL*35
00412         PERFORM S5000-WRITE-PFL                                      CL*20
00413         MOVE ZEROS  TO WS-TOTAL-AMT                                  CL*20
00414          MOVE EMP-REC1 TO PFL-FILE                                   CL*20
00415          GO TO P0000-CONTINUE.                                       CL*20
00416                                                                      CL*20
00417  P0000-CONTINUE.                                                     CL*16
00418         PERFORM S6200-READ-TAX.                                      CL*19
00419         IF FILE-END = 'Y'                                            CL*34
00420          ADD 1 TO ZUP-CNT                                            CL*36
00421         PERFORM S5000-WRITE-PFL.                                     CL*34
00422  P0000-EXIT.                                                         CL*16
00423      EXIT.                                                           CL*16
00424                                                                   DTSZXPFL
00425  S6200-READ-TAX.                                                  DTSZXPFL
00426                                                                   DTSZXPFL
00427      READ TAX-FILE1                                               DTSZXPFL
00428             INTO EMP-REC1                                         DTSZXPFL
00429             AT END MOVE 'Y' TO FILE-END                           DTSZXPFL
00430      END-READ.                                                    DTSZXPFL
00431                                                                   DTSZXPFL
00432  S6200-EXIT.                                                      DTSZXPFL
00433      EXIT.                                                        DTSZXPFL
00434      EJECT                                                        DTSZXPFL
00435                                                                   DTSZXPFL
00436      SKIP3                                                        DTSZXPFL
00437  S5000-WRITE-PFL.                                                 DTSZXPFL
00438                                                                   DTSZXPFL
00439      MOVE PFL-AGY-TRACKING-ID TO TAX2-AGY-TRACKING-ID.            DTSZXPFL
00440                                                                   DTSZXPFL
00441      MOVE PFL-AGY-ID-ADM-DIV  TO TAX2-AGY-ID-ADM-DIV.             DTSZXPFL
00442                                                                   DTSZXPFL
00443      MOVE PFL-ENTITY-ID-TYPE  TO TAX2-ENTITY-ID-TYPE.             DTSZXPFL
00444                                                                   DTSZXPFL
00445      MOVE PFL-ENTITY-ID       TO TAX2-ENTITY-ID.                  DTSZXPFL
00446                                                                   DTSZXPFL
00447      MOVE PFL-RELATIONSHIP-IND TO TAX2-RELATIONSHIP-IND.          DTSZXPFL
00448                                                                   DTSZXPFL
00449      MOVE PFL-ENTITY-BUSNS-NAME TO TAX2-ENTITY-BUSNS-NAME.        DTSZXPFL
00450                                                                   DTSZXPFL
00451      MOVE PFL-ENTITY-LAST-NAME  TO TAX2-ENTITY-LAST-NAME.         DTSZXPFL
00452                                                                   DTSZXPFL
00453      MOVE PFL-ENTITY-FIRST-NAME TO TAX2-ENTITY-FIRST-NAME.        DTSZXPFL
00454                                                                   DTSZXPFL
00455      MOVE PFL-ENTITY-MID-INIT TO TAX2-ENTITY-MID-INIT.            DTSZXPFL
00456                                                                   DTSZXPFL
00457      MOVE PFL-ENTITY-SUFFIX   TO TAX2-ENTITY-SUFFIX.              DTSZXPFL
00458                                                                   DTSZXPFL
00459      MOVE PFL-ENTITY-DOB      TO TAX2-ENTITY-DOB.                 DTSZXPFL
00460                                                                   DTSZXPFL
00461      MOVE PFL-STREET-NUMBER   TO TAX2-STREET-NUMBER.              DTSZXPFL
00462                                                                   DTSZXPFL
00463      MOVE PFL-STREET-NAME     TO TAX2-STREET-NAME.                DTSZXPFL
00464                                                                   DTSZXPFL
00465      MOVE PFL-CITY            TO TAX2-CITY.                       DTSZXPFL
00466                                                                   DTSZXPFL
00467      MOVE PFL-STATE           TO TAX2-STATE.                      DTSZXPFL
00468                                                                   DTSZXPFL
00469      MOVE PFL-ZIP             TO TAX2-ZIP.                        DTSZXPFL
00470                                                                   DTSZXPFL
00471      MOVE PFL-ZIP-EXT         TO TAX2-ZIP-EXT.                    DTSZXPFL
00472                                                                   DTSZXPFL
00473      MOVE PFL-FAILURE-TO-FILE-IND                                 DTSZXPFL
00474                      TO TAX2-FAILURE-TO-FILE-IND.                 DTSZXPFL
00475                                                                      CL*20
00476      MOVE PFL-AGY-REPORT-DT TO TAX2-AGY-REPORT-DT.                   CL*20
00477                                                                      CL*20
00478      MOVE PFL-DEBT-AMT TO WS-PFL-AMT                                 CL*20
00479      ADD WS-PFL-AMT TO WS-TOTAL-AMT                                  CL*20
00480                                                                      CL*20
00481      IF WS-TOTAL-AMT > WRK-BAL                                       CL*31
00482         MOVE WS-TOTAL-AMT        TO TAX2-DEBT-AMT                 DTSZXPFL
00483          WRITE TAX-REC2 FROM EMP-REC2                                CL*20
00484         ADD 1    TO REC-CNT                                          CL*35
00485      ELSE                                                            CL*24
00486         ADD 1    TO ZEC-CNT                                          CL*35
00487      DISPLAY 'COMBINED DEBT NOT > 99D ' PFL-AGY-TRACKING-ID          CL*30
00488            ' TOTAL ' WS-TOTAL-AMT ' WRK-BAL ' WRK-BAL.               CL*31
00489                                                                   DTSZXPFL
00490                                                                   DTSZXPFL
00491  S5000-EXIT.                                                      DTSZXPFL
00492      EXIT.                                                        DTSZXPFL
00493      EJECT                                                        DTSZXPFL
00494                                                                   DTSZXPFL
00495      SKIP3                                                        DTSZXPFL
00496                                                                   DTSZXPFL
00497  S5100-WRITE-TAX.                                                 DTSZXPFL
00498                                                                   DTSZXPFL
00499                                                                   DTSZXPFL
00500                                                                   DTSZXPFL
00501      MOVE TAX-AGY-TRACKING-ID TO TAX2-AGY-TRACKING-ID.            DTSZXPFL
00502                                                                   DTSZXPFL
00503      MOVE TAX-AGY-ID-ADM-DIV  TO TAX2-AGY-ID-ADM-DIV.             DTSZXPFL
00504                                                                   DTSZXPFL
00505      MOVE TAX-ENTITY-ID-TYPE  TO TAX2-ENTITY-ID-TYPE.             DTSZXPFL
00506                                                                   DTSZXPFL
00507      MOVE TAX-ENTITY-ID       TO TAX2-ENTITY-ID.                  DTSZXPFL
00508                                                                   DTSZXPFL
00509      MOVE TAX-RELATIONSHIP-IND TO TAX2-RELATIONSHIP-IND.          DTSZXPFL
00510                                                                   DTSZXPFL
00511      MOVE TAX-ENTITY-BUSNS-NAME TO TAX2-ENTITY-BUSNS-NAME.        DTSZXPFL
00512                                                                   DTSZXPFL
00513      MOVE TAX-ENTITY-LAST-NAME  TO TAX2-ENTITY-LAST-NAME.         DTSZXPFL
00514                                                                   DTSZXPFL
00515      MOVE TAX-ENTITY-FIRST-NAME TO TAX2-ENTITY-FIRST-NAME.        DTSZXPFL
00516                                                                   DTSZXPFL
00517      MOVE TAX-ENTITY-MID-INIT TO TAX2-ENTITY-MID-INIT.            DTSZXPFL
00518                                                                   DTSZXPFL
00519      MOVE TAX-ENTITY-SUFFIX   TO TAX2-ENTITY-SUFFIX.              DTSZXPFL
00520                                                                   DTSZXPFL
00521      MOVE TAX-ENTITY-DOB      TO TAX2-ENTITY-DOB.                 DTSZXPFL
00522                                                                   DTSZXPFL
00523      MOVE TAX-STREET-NUMBER   TO TAX2-STREET-NUMBER.              DTSZXPFL
00524                                                                   DTSZXPFL
00525      MOVE TAX-STREET-NAME     TO TAX2-STREET-NAME.                DTSZXPFL
00526                                                                   DTSZXPFL
00527      MOVE TAX-CITY            TO TAX2-CITY.                       DTSZXPFL
00528                                                                   DTSZXPFL
00529      MOVE TAX-STATE           TO TAX2-STATE.                      DTSZXPFL
00530                                                                   DTSZXPFL
00531      MOVE TAX-ZIP             TO TAX2-ZIP.                        DTSZXPFL
00532                                                                   DTSZXPFL
00533      MOVE TAX-ZIP-EXT         TO TAX2-ZIP-EXT.                    DTSZXPFL
00534                                                                   DTSZXPFL
00535      MOVE TAX-FAILURE-TO-FILE-IND                                 DTSZXPFL
00536                      TO TAX2-FAILURE-TO-FILE-IND.                 DTSZXPFL
00537                                                                   DTSZXPFL
00538      IF WS-TOTAL-AMT > ZERO                                       DTSZXPFL
00539         MOVE WS-TOTAL-AMT        TO TAX2-DEBT-AMT                 DTSZXPFL
00540      ELSE                                                         DTSZXPFL
00541         MOVE TAX-DEBT-AMT        TO TAX2-DEBT-AMT                 DTSZXPFL
00542      END-IF.                                                      DTSZXPFL
00543                                                                   DTSZXPFL
00544      MOVE TAX-AGY-REPORT-DT TO TAX2-AGY-REPORT-DT.                DTSZXPFL
00545                                                                   DTSZXPFL
00546      WRITE TAX-REC2 FROM EMP-REC2.                                DTSZXPFL
00547                                                                   DTSZXPFL
00548      ADD 1    TO WS-REC-CNT.                                      DTSZXPFL
00549                                                                   DTSZXPFL
00550                                                                   DTSZXPFL
00551  S5100-EXIT.                                                      DTSZXPFL
00552      EXIT.                                                        DTSZXPFL
00553      EJECT                                                        DTSZXPFL
00554                                                                   DTSZXPFL
00555      SKIP3                                                        DTSZXPFL
00556  T0000-TERMINATE.                                                 DTSZXPFL
00557                                                                   DTSZXPFL
00558                                                                   DTSZXPFL
00559      DISPLAY ' '.                                                 DTSZXPFL
00560                                                                   DTSZXPFL
00561      DISPLAY '*** DTSZXPFL TERMINATION STATISTICS ***'.              CL*35
00562                                                                   DTSZXPFL
00563      DISPLAY ' '.                                                 DTSZXPFL
00564      DISPLAY 'TOTAL TAX-PFL (COMBINED) RECORDS READ ' TAX-READ.      CL*35
00565      DISPLAY 'TOTAL TAX-PFL (MATCH FEIN)  RECORDS.. ' DUP-CNT.       CL*37
00566      DISPLAY 'TOTAL TAX-PFL (CLEAN HANDS) RECORDS.. ' ZUP-CNT.       CL*37
00567      DISPLAY 'TOTAL TAX-PFL (SENT TO OTR) AMT > 100 ' REC-CNT.       CL*35
00568      DISPLAY 'TOTAL TAX-PFL (NOT SENT TO OTR) < 100 ' ZEC-CNT.       CL*35
00569      MOVE REC-CNT      TO HEADER-CNT.                                CL*35
00570      WRITE TAX-REC2 FROM HEADER-REC.                              DTSZXPFL
00571                                                                   DTSZXPFL
00572      CLOSE TAX-FILE1                                              DTSZXPFL
00573            PFL-FILE1                                              DTSZXPFL
00574            TAX-FILE2.                                             DTSZXPFL
00575  T0000-EXIT.                                                      DTSZXPFL
00576      EXIT.                                                        DTSZXPFL
00577      EJECT                                                        DTSZXPFL
00578  S001-FROM-FED-8.                                                    CL**9
00579      SET L001-FROM-FED-8 TO TRUE.                                    CL**9
00580      GO TO S001-DATE.                                                CL**9
00581                                                                   DTSZXPFL
00582  S001-FROM-ABS-DAY.                                               DTSZXPFL
00583      SET L001-FROM-ABS-DAY TO TRUE.                               DTSZXPFL
00584      GO TO S001-DATE.                                             DTSZXPFL
00585                                                                   DTSZXPFL
00586  S001-DATE.                                                       DTSZXPFL
00587      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSZXPFL
00588                                                                   DTSZXPFL
00589  S001-EXIT.                                                       DTSZXPFL
00590      EXIT.                                                        DTSZXPFL
00591      SKIP3                                                        DTSZXPFL
00592  S004-FROM-5.                                                     DTSZXPFL
00593      SET L004-FROM-5     TO TRUE.                                 DTSZXPFL
00594      GO TO S004-EDIT-QTR.                                         DTSZXPFL
00595                                                                   DTSZXPFL
00596  S004-FROM-ABS.                                                   DTSZXPFL
00597      SET L004-FROM-ABS   TO TRUE.                                 DTSZXPFL
00598      GO TO S004-EDIT-QTR.                                         DTSZXPFL
00599                                                                   DTSZXPFL
00600  S004-EDIT-QTR.                                                   DTSZXPFL
00601      CALL 'DTSBU004' USING L004-COMM-AREA.                        DTSZXPFL
00602                                                                   DTSZXPFL
00603  S004-EXIT.                                                       DTSZXPFL
00604      EXIT.                                                        DTSZXPFL
00605      SKIP3                                                        DTSZXPFL
00606                                                                   DTSZXPFL
00607  S005-FROM-SYS.                                                   DTSZXPFL
00608      SET L005-FROM-SYS   TO TRUE.                                 DTSZXPFL
00609      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSZXPFL
00610                                                                   DTSZXPFL
00611  S005-EXIT.                                                       DTSZXPFL
00612      EXIT.                                                        DTSZXPFL
00613                                                                   DTSZXPFL
00614  S005-FROM-ABSTIME.                                                  CL**9
00615      SET L005-FROM-ABSTIME TO TRUE.                                  CL**9
00616      GO TO S005-ABSTIME.                                             CL**9
00617                                                                   DTSZXPFL
00618  S005-ABSTIME.                                                    DTSZXPFL
00619      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSZXPFL
00620  S005-A-EXIT.                                                     DTSZXPFL
00621      EXIT.                                                        DTSZXPFL
00622      SKIP3                                                        DTSZXPFL
00623  S039-SIC-EDIT.                                                   DTSZXPFL
00624      CALL 'DTSBU039' USING L039-LINK-AREA.                        DTSZXPFL
00625  S039-EXIT.                                                       DTSZXPFL
00626      EXIT.                                                        DTSZXPFL
00627                                                                   DTSZXPFL
00628  S054-EXIT.                                                       DTSZXPFL
00629      EXIT.                                                        DTSZXPFL
00630      SKIP3                                                        DTSZXPFL
00631  S101-PER-MONTH-NO.                                               DTSZXPFL
00632      SET L101-PER-MONTH-NO-88 TO TRUE.                            DTSZXPFL
00633      GO TO S101-INT-CHARGE.                                       DTSZXPFL
00634                                                                   DTSZXPFL
00635  S101-INT-CHARGE.                                                 DTSZXPFL
00636      CALL 'DTSBU101' USING L101-LINK-AREA.                        DTSZXPFL
00637  S101-EXIT.                                                       DTSZXPFL
00638      EXIT.                                                        DTSZXPFL
00639                                                                   DTSZXPFL
00640  S109-FIRST-PEN-INT-YRQ.                                          DTSZXPFL
00641      SET L109-CMND-PEN-INT-QTR-88 TO TRUE.                        DTSZXPFL
00642      CALL 'DTSBU109' USING L109-LINK-AREA.                        DTSZXPFL
00643  S109-EXIT.                                                       DTSZXPFL
00644      EXIT.                                                        DTSZXPFL
00645                                                                   DTSZXPFL
00646  S410-FILING-SCHED.                                               DTSZXPFL
00647      CALL 'DTSBU410' USING L410-LINK-AREA.                        DTSZXPFL
00648                                                                   DTSZXPFL
00649  S410-EXIT.                                                       DTSZXPFL
00650      EXIT.                                                        DTSZXPFL
00651      SKIP3                                                        DTSZXPFL
00652  S910-OPEN-READ.                                                  DTSZXPFL
00653      SET L910-OPEN-READ-88 TO TRUE.                               DTSZXPFL
00654      GO TO S910-MSTR-IO.                                          DTSZXPFL
00655                                                                   DTSZXPFL
00656  S910-OPEN-UPDATE-NO-AIX.                                         DTSZXPFL
00657      SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE.                      DTSZXPFL
00658      GO TO S910-MSTR-IO.                                          DTSZXPFL
00659                                                                   DTSZXPFL
00660  S910-READ.                                                          CL**9
00661      SET L910-READ-88 TO TRUE.                                       CL**9
00662      GO TO S910-MSTR-IO.                                             CL**9
00663                                                                   DTSZXPFL
00664  S910-START-BROWSE.                                               DTSZXPFL
00665      SET L910-START-BROWSE-88 TO TRUE.                            DTSZXPFL
00666      GO TO S910-MSTR-IO.                                          DTSZXPFL
00667                                                                   DTSZXPFL
00668  S910-READ-NEXT.                                                  DTSZXPFL
00669      SET L910-READ-NEXT-88 TO TRUE.                               DTSZXPFL
00670      GO TO S910-MSTR-IO.                                          DTSZXPFL
00671                                                                   DTSZXPFL
00672  S910-COUNT.                                                      DTSZXPFL
00673      SET L910-COUNT-88 TO TRUE.                                   DTSZXPFL
00674      GO TO S910-MSTR-IO.                                          DTSZXPFL
00675                                                                   DTSZXPFL
00676  S910-REWRITE.                                                    DTSZXPFL
00677      SET L910-REWRITE-88 TO TRUE.                                 DTSZXPFL
00678      GO TO S910-MSTR-IO.                                          DTSZXPFL
00679                                                                   DTSZXPFL
00680  S910-DELETE.                                                     DTSZXPFL
00681      SET L910-DELETE-88 TO TRUE.                                  DTSZXPFL
00682      GO TO S910-MSTR-IO.                                          DTSZXPFL
00683                                                                   DTSZXPFL
00684  S910-CLOSE.                                                      DTSZXPFL
00685      SET L910-CLOSE-88     TO TRUE.                               DTSZXPFL
00686      GO TO S910-MSTR-IO.                                          DTSZXPFL
00687                                                                   DTSZXPFL
00688  S910-MSTR-IO.                                                    DTSZXPFL
00689      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSZXPFL
00690                            MSKL-REC.                              DTSZXPFL
00691  S910-EXIT.                                                       DTSZXPFL
00692      EXIT.                                                        DTSZXPFL
00693      SKIP3                                                        DTSZXPFL
00694  S921-OPEN-READ.                                                     CL**9
00695      SET L921-OPEN-READ-88 TO TRUE.                                  CL**9
00696      GO TO S921-AIX-IO.                                              CL**9
00697                                                                   DTSZXPFL
00698  S921-START-BROWSE.                                               DTSZXPFL
00699      SET L921-START-BROWSE-88 TO TRUE.                            DTSZXPFL
00700      GO TO S921-AIX-IO.                                           DTSZXPFL
00701                                                                   DTSZXPFL
00702  S921-CLOSE.                                                      DTSZXPFL
00703      SET L921-CLOSE-88     TO TRUE.                               DTSZXPFL
00704      GO TO S921-AIX-IO.                                           DTSZXPFL
00705                                                                   DTSZXPFL
00706      SKIP3                                                        DTSZXPFL
00707  S921-AIX-IO.                                                     DTSZXPFL
00708      CALL 'DTSBU921' USING L921-LINK-AREA                         DTSZXPFL
00709                            ISKL-REC.                              DTSZXPFL
00710  S921-EXIT.                                                       DTSZXPFL
00711      EXIT.                                                        DTSZXPFL
00712      SKIP3                                                        DTSZXPFL
00713                                                                   DTSZXPFL
00714      SKIP3                                                        DTSZXPFL
00715  S927-OPEN-UPDATE.                                                DTSZXPFL
00716      SET L927-OPEN-UPDATE-88 TO TRUE.                             DTSZXPFL
00717      GO TO S927-BTC-O.                                            DTSZXPFL
00718                                                                   DTSZXPFL
00719  S927-WRITE.                                                      DTSZXPFL
00720      SET L927-WRITE-88 TO TRUE.                                   DTSZXPFL
00721      GO TO S927-BTC-O.                                            DTSZXPFL
00722                                                                   DTSZXPFL
00723  S927-CLOSE.                                                      DTSZXPFL
00724      SET L927-CLOSE-88 TO TRUE.                                   DTSZXPFL
00725      GO TO S927-BTC-O.                                            DTSZXPFL
00726                                                                   DTSZXPFL
00727  S927-BTC-O.                                                      DTSZXPFL
00728      CALL 'DTSBU927' USING L927-LINK-AREA                         DTSZXPFL
00729                            TSKL-REC.                              DTSZXPFL
00730  S927-EXIT.                                                       DTSZXPFL
00731      EXIT.                                                        DTSZXPFL
00732                                                                   DTSZXPFL
00733      SKIP3                                                        DTSZXPFL
00734  S931-OPEN-READ.                                                  DTSZXPFL
00735      SET L931-OPEN-READ-88 TO TRUE.                               DTSZXPFL
00736      GO TO S931-REF-IO.                                           DTSZXPFL
00737                                                                   DTSZXPFL
00738  S931-OPEN-UPDATE.                                                DTSZXPFL
00739      SET L931-OPEN-UPDATE-88 TO TRUE.                             DTSZXPFL
00740      GO TO S931-REF-IO.                                           DTSZXPFL
00741                                                                   DTSZXPFL
00742  S931-START-BROWSE.                                               DTSZXPFL
00743      SET L931-START-BROWSE-88 TO TRUE.                            DTSZXPFL
00744      GO TO S931-REF-IO.                                           DTSZXPFL
00745                                                                   DTSZXPFL
00746  S931-READ.                                                       DTSZXPFL
00747      SET L931-READ-88 TO TRUE.                                    DTSZXPFL
00748      GO TO S931-REF-IO.                                           DTSZXPFL
00749                                                                   DTSZXPFL
00750  S931-READ-NEXT.                                                  DTSZXPFL
00751      SET L931-READ-NEXT-88 TO TRUE.                               DTSZXPFL
00752      GO TO S931-REF-IO.                                           DTSZXPFL
00753                                                                   DTSZXPFL
00754  S931-DELETE.                                                     DTSZXPFL
00755      SET L931-DELETE-88    TO TRUE.                               DTSZXPFL
00756      GO TO S931-REF-IO.                                           DTSZXPFL
00757                                                                   DTSZXPFL
00758  S931-REWRITE.                                                    DTSZXPFL
00759      SET L931-REWRITE-88   TO TRUE.                               DTSZXPFL
00760      GO TO S931-REF-IO.                                           DTSZXPFL
00761                                                                   DTSZXPFL
00762  S931-WRITE.                                                      DTSZXPFL
00763      SET L931-WRITE-88   TO TRUE.                                 DTSZXPFL
00764      GO TO S931-REF-IO.                                           DTSZXPFL
00765                                                                   DTSZXPFL
00766  S931-CLOSE.                                                      DTSZXPFL
00767      SET L931-CLOSE-88 TO TRUE.                                   DTSZXPFL
00768      GO TO S931-REF-IO.                                           DTSZXPFL
00769                                                                   DTSZXPFL
00770  S931-REF-IO.                                                     DTSZXPFL
00771      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSZXPFL
00772                            FSKL-REC.                              DTSZXPFL
00773  S931-EXIT.                                                       DTSZXPFL
00774      EXIT.                                                        DTSZXPFL
00775      SKIP3                                                        DTSZXPFL
00776                                                                   DTSZXPFL
00777  S999-ABEND.                                                      DTSZXPFL
00778      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSZXPFL
00779  S999-EXIT.                                                       DTSZXPFL
00780      EXIT.                                                        DTSZXPFL
