00001  IDENTIFICATION DIVISION.                                         11/14/24
00002  PROGRAM-ID.             DTSBX478.                                DTSBX478
00003  AUTHOR.                 NGC.                                        LV007
00004  DATE-WRITTEN.           DECEMBER 2012.                           DTSBX478
00005  DATE-COMPILED.                                                   DTSBX478
00006      SKIP3                                                        DTSBX478
00007 *****                                                             DTSBX478
00008 *                                                                 DTSBX478
00009 *    ZUNCTION:  DELETE WAGES TO WGH FILE FOR TESTING.             DTSBX478
00010 *             FOR TAX WAGES SINCE UIBS   01/21/24  ZL1            DTSBX478
00011 *                                                                 DTSBX478
00012 *                                                                 DTSBX478
00013 *    MODIFICATION LOG:                                            DTSBX478
00014 *                                                                 DTSBX478
00015 *    12/06/2012  INITIAL DEVELOPMENT.                             DTSBX478
00016 *                WORK ORDER:                      PROGRAMMER: GD  DTSBX478
00017 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBX478
00018 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBX478
00019 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBX478
00020 *                                                                 DTSBX478
00021 *                                                                 DTSBX478
00022 *    DESCRIPTION:                                                 DTSBX478
00023 *                                                                 DTSBX478
00024 *                                                                 DTSBX478
00025 *                                                                 DTSBX478
00026 *                                                                 DTSBX478
00027 *                                                                 DTSBX478
00028 *                                                                 DTSBX478
00029 *                                                                 DTSBX478
00030 *                                                                 DTSBX478
00031 *                                                                 DTSBX478
00032 *                                                                 DTSBX478
00033 *                                                                 DTSBX478
00034 *    GENERAL SPECIFICATIONS:                                      DTSBX478
00035 *                                                                 DTSBX478
00036 *        ALL COMMANDS ARE VALID.                                  DTSBX478
00037 *                                                                 DTSBX478
00038 *        IF AN INVALID COMMAND IS REQUESTED, THEN ABEND THE       DTSBX478
00039 *        MODULE.                                                  DTSBX478
00040 *                                                                 DTSBX478
00041 *        IF A FILE-STATUS OF OTHER THAN '00', '10', OR '23' IS    DTSBX478
00042 *        ENCOUNTERED, THEN ABEND PROCESSING (TOLERATE A           DTSBX478
00043 *        FILE-STATUS OF '97' FROM AN OPEN COMMAND).               DTSBX478
00044 *                                                                 DTSBX478
00045 *                                                                 DTSBX478
00046 *                                                                 DTSBX478
00047 *    COMMAND SPECIFIC SPECIFICATIONS:                             DTSBX478
00048 *                                                                 DTSBX478
00049 *    OPEN-READ                                                    DTSBX478
00050 *        OPEN INPUT.                                              DTSBX478
00051 *                                                                 DTSBX478
00052 *    OPEN-UPDATE                                                  DTSBX478
00053 *        OPEN I-O.                                                DTSBX478
00054 *                                                                 DTSBX478
00055 *    CLOSE                                                        DTSBX478
00056 *                                                                 DTSBX478
00057 *    READ                                                         DTSBX478
00058 *                                                                 DTSBX478
00059 *    START BROWSE                                                 DTSBX478
00060 *        IF THE START-BROWSE IS SUCCESSFUL, THEN PERFORM THE      DTSBX478
00061 *        READ-NEXT LOGIC.  A SUCCESSFUL START-BROWSE RETURNS      DTSBX478
00062 *        A RECORD.                                                DTSBX478
00063 *                                                                 DTSBX478
00064 *    READ NEXT                                                    DTSBX478
00065 *                                                                 DTSBX478
00066 *    WRITE                                                        DTSBX478
00067 *                                                                 DTSBX478
00068 *    REWRITE                                                      DTSBX478
00069 *                                                                 DTSBX478
00070 *    DELETE                                                       DTSBX478
00071 *                                                                 DTSBX478
00072 *                                                                 DTSBX478
00073 *****                                                             DTSBX478
00074                                                                   DTSBX478
00075  ENVIRONMENT DIVISION.                                            DTSBX478
00076                                                                   DTSBX478
00077  INPUT-OUTPUT SECTION.                                            DTSBX478
00078                                                                   DTSBX478
00079  FILE-CONTROL.                                                    DTSBX478
00080      SELECT W2GE-TRANS-FILE ASSIGN TO DTSFW2                         CL**3
00081          FILE STATUS IS WAGE-TRANS-STATUS.                        DTSBX478
00082                                                                   DTSBX478
00083      SELECT W4GE-TRANS-FILE ASSIGN TO DTSFW4                         CL**3
00084          FILE STATUS IS WAGE-TRANS-STATUS.                           CL**3
00085                                                                      CL**5
00086      SELECT UIBS-TRANS-FILE ASSIGN TO DTSFUIBS                       CL**5
00087          FILE STATUS IS WAGE-TRANS-STATUS.                           CL**5
00088                                                                      CL**3
00089 *    SELECT TAXWGH-FILE ASSIGN TO DTSXWGH                         DTSBX478
00090 *        FILE STATUS IS DOWNLOAD-STATUS.                          DTSBX478
00091                                                                   DTSBX478
00092  DATA DIVISION.                                                   DTSBX478
00093                                                                   DTSBX478
00094  FILE SECTION.                                                    DTSBX478
00095                                                                   DTSBX478
00096  FD  W2GE-TRANS-FILE                                                 CL**3
00097      RECORDING MODE IS F                                          DTSBX478
00098      BLOCK CONTAINS 0 RECORDS.                                    DTSBX478
00099                                                                   DTSBX478
00100  01  W2GE-TRANS-REC                  PIC  X(80).                     CL**3
00101                                                                   DTSBX478
00102  FD  UIBS-TRANS-FILE                                                 CL**5
00103      RECORDING MODE IS F                                             CL**5
00104      BLOCK CONTAINS 0 RECORDS.                                       CL**5
00105                                                                      CL**5
00106  01  UIBS-TRANS-REC                  PIC  X(80).                     CL**5
00107                                                                      CL**5
00108                                                                      CL**3
00109  FD  W4GE-TRANS-FILE                                                 CL**3
00110      RECORDING MODE IS F                                             CL**3
00111      BLOCK CONTAINS 0 RECORDS.                                       CL**3
00112                                                                      CL**3
00113  01  W4GE-TRANS-REC                  PIC  X(80).                     CL**3
00114                                                                      CL**3
00115 *FD  TAXWGH-FILE                                                  DTSBX478
00116 *    RECORDING MODE IS F                                          DTSBX478
00117 *    BLOCK CONTAINS 0 RECORDS.                                    DTSBX478
00118                                                                   DTSBX478
00119 *01  TAXWGH-REC                    PIC  X(18).                    DTSBX478
00120                                                                   DTSBX478
00121  WORKING-STORAGE SECTION.                                         DTSBX478
001215 77  PAN-VALET PICTURE X(24) VALUE '007DTSBX478  11/14/24'.       DTSBX478
00122      SKIP3                                                        DTSBX478
00123  01  WRK-AREA.                                                    DTSBX478
00124      05  WRK-ABEND-CD             PIC S9(04)  COMP  VALUE +480.   DTSBX478
00125                                                                   DTSBX478
00126      05  WRK-MOD-NAME             PIC  X(08)  VALUE 'DTSBU480'.   DTSBX478
00127                                                                   DTSBX478
00128      05  W-CURR-EMP-NO            PIC S9(06)  COMP-3 VALUE +0.    DTSBX478
00129      05  W-CURR-YRQ               PIC S9(05)  COMP-3              DTSBX478
00130                                     VALUE +20121.                 DTSBX478
00131      05  W-CURR-BATCH             PIC S9(05)  COMP-3 VALUE +0.    DTSBX478
00132      05  W-CURR-ITEM              PIC S9(03)  COMP-3 VALUE +0.    DTSBX478
00133      05  W-MQTR-TOT-WAGE          PIC S9(11)V99 COMP-3            DTSBX478
00134                                     VALUE +0.                     DTSBX478
00135      05  W-WTC-BATCH-NO           PIC S9(05)  COMP-3              DTSBX478
00136                                     VALUE +90001.                 DTSBX478
00137      05  W-WTC-ITEM-NO            PIC S9(03)  COMP-3              DTSBX478
00138                                     VALUE +003.                   DTSBX478
00139      05  W-WTC-SEQ-NO             PIC S9(03)  COMP-3              DTSBX478
00140                                     VALUE +001.                   DTSBX478
00141      05  W-MAX-BATCH              PIC S9(05)  COMP-3 VALUE +0.    DTSBX478
00142      05  W-MIN-BATCH              PIC S9(05)  COMP-3              DTSBX478
00143                                     VALUE +99999.                 DTSBX478
00144      05  WRK-W2-CNT               PIC S9(07)  COMP-3 VALUE +0.    DTSBX478
00145      05  WRK-W4-CNT               PIC S9(07)  COMP-3 VALUE +0.    DTSBX478
00146      05  WRK-WWGH-CNT             PIC S9(07)  COMP-3 VALUE +0.    DTSBX478
00147      05  WRK-DELETE-CNT           PIC S9(07)  COMP-3 VALUE +0.    DTSBX478
00148      05  W-BYPASSED-CNT           PIC S9(07)  COMP-3 VALUE +0.    DTSBX478
00149      05  W-BACKLOG                PIC S9(07)  COMP-3 VALUE +0.    DTSBX478
00150      05  AMT-DISP1                PIC  ----------9.99.            DTSBX478
00151      05  AMT-DISP2                PIC  ----------9.99.            DTSBX478
00152      05  AMT-DISP3                PIC  ----------9.99.            DTSBX478
00153      05  AMT-DISP4                PIC  ----------9.99.            DTSBX478
00154                                                                   DTSBX478
00155      05  WRK-NET-WAGE             PIC S9(11)V99  COMP-3           DTSBX478
00156                                                     VALUE +0.     DTSBX478
00157      05  W-WGH-WAGE               PIC S9(11)V99  COMP-3           DTSBX478
00158                                                     VALUE +0.     DTSBX478
00159      05  W-WORKER-CNT             PIC S9(07)  COMP-3 VALUE +0.    DTSBX478
00160      05  W-DIFFERENCE             PIC S9(11)V99  COMP-3           DTSBX478
00161                                                     VALUE +0.     DTSBX478
00162                                                                   DTSBX478
00163      05  W2-REC-READ  PIC 9(9) VALUE 0.                           DTSBX478
00164      05  W4-REC-READ  PIC 9(9) VALUE 0.                           DTSBX478
00165      05  W4-REC-FOUND PIC 9(9) VALUE 0.                           DTSBX478
00166      05  W4-REC-ADDED PIC 9(9) VALUE 0.                           DTSBX478
00167      05  W2-REC-DELETED PIC 9(9) VALUE 0.                         DTSBX478
00168      05  W2-REC-FOUND PIC 9(9) VALUE 0.                           DTSBX478
00169                                                                   DTSBX478
00170      05  W-RESP-OPID                PIC  X(08).                   DTSBX478
00171      05  WRK-ERROR-IND              PIC  X(01).                   DTSBX478
00172          88  WRK-ERROR-YES-88            VALUE 'Y'.               DTSBX478
00173          88  WRK-ERROR-NO-88             VALUE 'N'.               DTSBX478
00174                                                                   DTSBX478
00175      05  W-EMP-EXISTS-IND           PIC  X(01).                   DTSBX478
00176          88  W-EMP-EXISTS-YES-88      VALUE 'Y'.                  DTSBX478
00177          88  W-EMP-EXISTS-NO-88       VALUE 'N'.                  DTSBX478
00178      05  W-DELINQUENT-IND           PIC  X(01).                   DTSBX478
00179          88  W-DELINQUENT-YES-88      VALUE 'Y'.                  DTSBX478
00180          88  W-DELINQUENT-NO-88       VALUE 'N'.                  DTSBX478
00181      05  WAGE-TRANS-STATUS          PIC  X(02).                   DTSBX478
00182          88  WAGE-TRANS-FILE-OK-88       VALUE '00'.              DTSBX478
00183          88  WAGE-TRANS-FILE-NO-REC-88   VALUE '10' '23'.         DTSBX478
00184          88  WAGE-TRANS-FILE-VERIFY-88   VALUE '97'.              DTSBX478
00185                                                                   DTSBX478
00186      05  DOWNLOAD-STATUS            PIC  X(02).                   DTSBX478
00187          88  DOWNLOAD-FILE-OK-88         VALUE '00'.              DTSBX478
00188                                                                   DTSBX478
00189      05  WRK-YRQ                  PIC  9(05).                     DTSBX478
00190      05  FILLER REDEFINES WRK-YRQ.                                DTSBX478
00191          10  WRK-YRQ-YEAR         PIC  9(04).                     DTSBX478
00192          10  WRK-YRQ-QTR          PIC  9(01).                     DTSBX478
00193                                                                   DTSBX478
00194      05  WRK-YRQ-X.                                               DTSBX478
00195          10  WRK-YRQ-YEAR-X       PIC 9(04).                      DTSBX478
00196          10  FILLER               PIC X(01) VALUE '/'.            DTSBX478
00197          10  WRK-YRQ-QTR-X        PIC 9(01).                      DTSBX478
00198                                                                   DTSBX478
00199  01  OUT-W4-REC.                                                     CL**5
00200          10  FILLER               PIC X(10) VALUE SPACES.            CL**5
00201          10  FILLER               PIC X(35) VALUE                    CL**5
00202              'TOTAL W4 TRANS REC SENT TO UIBS = '.                   CL**7
00203          10  W4-COUNT             PIC ZZZZ999.                       CL**6
00204          10  FILLER               PIC X(28) VALUE SPACES.            CL**6
00205                                                                      CL**5
00206  01  OUT-W2-REC.                                                     CL**6
00207          10  FILLER               PIC X(10) VALUE SPACES.            CL**6
00208          10  FILLER               PIC X(35) VALUE                    CL**6
00209              'TOTAL W2 TRANS REC SENT TO UIBS = '.                   CL**7
00210          10  W2-COUNT             PIC ZZZZ999.                       CL**6
00211          10  FILLER               PIC X(28) VALUE SPACES.            CL**6
00212                                                                      CL**6
00213  01  L004-COMM-AREA.                                                 CL**5
00214  ++INCLUDE DTSIL004                                               DTSBX478
00215                                                                   DTSBX478
00216  01  L424-LINK-AREA.                                              DTSBX478
00217  ++INCLUDE DTSIL424                                               DTSBX478
00218                                                                   DTSBX478
00219  01  L516-LINK-AREA.                                              DTSBX478
00220  ++INCLUDE DTSIL516                                               DTSBX478
00221                                                                   DTSBX478
00222  01  L910-LINK-AREA.                                              DTSBX478
00223  ++INCLUDE DTSIL910                                               DTSBX478
00224                                                                   DTSBX478
00225  01  X147-REC.                                                    DTSBX478
00226  ++INCLUDE DTSIX147                                               DTSBX478
00227                                                                   DTSBX478
00228  01  MSKL-REC.                                                    DTSBX478
00229  ++INCLUDE DTSIMSKL                                               DTSBX478
00230                                                                   DTSBX478
00231  01  MPRF-REC.                                                    DTSBX478
00232  ++INCLUDE DTSIMPRF                                               DTSBX478
00233                                                                   DTSBX478
00234  01  MQTR-REC.                                                    DTSBX478
00235  ++INCLUDE DTSIMQTR                                               DTSBX478
00236                                                                   DTSBX478
00237  01  L931-LINK-AREA.                                              DTSBX478
00238  ++INCLUDE DTSIL931                                               DTSBX478
00239                                                                   DTSBX478
00240  01  FSKL-REC.                                                    DTSBX478
00241  ++INCLUDE DTSIFSKL                                               DTSBX478
00242                                                                   DTSBX478
00243  01  L981-LINK-AREA.                                              DTSBX478
00244  ++INCLUDE DTSIL981                                               DTSBX478
00245                                                                   DTSBX478
00246  01  WWGH-REC.                                                    DTSBX478
00247  ++INCLUDE DTSIWWGH                                               DTSBX478
00248                                                                   DTSBX478
00249  01  L983-LINK-AREA.                                              DTSBX478
00250  ++INCLUDE DTSIL983                                               DTSBX478
00251                                                                   DTSBX478
00252  01  WSKL-REC.                                                    DTSBX478
00253  ++INCLUDE DTSIWSKL                                               DTSBX478
00254                                                                   DTSBX478
00255  01  W001-REC.                                                    DTSBX478
00256  ++INCLUDE DTSIW001                                               DTSBX478
00257                                                                   DTSBX478
00258  01  L982-LINK-AREA.                                              DTSBX478
00259  ++INCLUDE DTSIL982                                               DTSBX478
00260                                                                   DTSBX478
00261  01  WNAM-REC.                                                    DTSBX478
00262  ++INCLUDE DTSIWNAM                                               DTSBX478
00263                                                                   DTSBX478
00264  01  WAGE-TRANS-AREA.                                                CL**4
00265      05  ESP-TRANSACTION-AREA       PIC  X(80).                      CL**4
00266  ++INCLUDE EWGTRNW2                                               DTSBX478
00267  ++INCLUDE EWGTRNW4                                                  CL**3
00268                                                                      CL**3
00269  PROCEDURE DIVISION.                                              DTSBX478
00270                                                                   DTSBX478
00271      PERFORM I0000-INIT             THRU I0000-EXIT.              DTSBX478
00272      IF WRK-ERROR-NO-88                                           DTSBX478
00273         PERFORM P0000-PROCESS       THRU P0000-EXIT               DTSBX478
00274         PERFORM T0000-TERM          THRU T0000-EXIT               DTSBX478
00275      END-IF.                                                      DTSBX478
00276                                                                   DTSBX478
00277      GOBACK.                                                      DTSBX478
00278      EJECT                                                        DTSBX478
00279  I0000-INIT.                                                      DTSBX478
00280      SET WRK-ERROR-NO-88   TO TRUE.                               DTSBX478
00281                                                                   DTSBX478
00282      OPEN INPUT  W2GE-TRANS-FILE.                                    CL**3
00283      IF WAGE-TRANS-FILE-OK-88                                     DTSBX478
00284      OR WAGE-TRANS-FILE-VERIFY-88                                 DTSBX478
00285         NEXT SENTENCE                                             DTSBX478
00286      ELSE                                                         DTSBX478
00287         PERFORM S999-ABEND THRU S999-EXIT                         DTSBX478
00288      END-IF.                                                      DTSBX478
00289                                                                   DTSBX478
00290      OPEN OUTPUT UIBS-TRANS-FILE.                                    CL**6
00291      IF WAGE-TRANS-FILE-OK-88                                        CL**6
00292      OR WAGE-TRANS-FILE-VERIFY-88                                    CL**6
00293         NEXT SENTENCE                                                CL**6
00294      ELSE                                                            CL**6
00295         PERFORM S999-ABEND THRU S999-EXIT                            CL**6
00296      END-IF.                                                         CL**6
00297                                                                      CL**6
00298      OPEN INPUT  W4GE-TRANS-FILE.                                    CL**3
00299      IF WAGE-TRANS-FILE-OK-88                                        CL**3
00300      OR WAGE-TRANS-FILE-VERIFY-88                                    CL**3
00301         NEXT SENTENCE                                                CL**3
00302      ELSE                                                            CL**3
00303         PERFORM S999-ABEND THRU S999-EXIT                            CL**3
00304      END-IF.                                                         CL**3
00305                                                                      CL**3
00306                                                                   DTSBX478
00307 *    OPEN OUTPUT TAXWGH-FILE.                                     DTSBX478
00308 *    IF WAGE-TRANS-FILE-OK-88                                     DTSBX478
00309 *    OR WAGE-TRANS-FILE-VERIFY-88                                 DTSBX478
00310 *       NEXT SENTENCE                                             DTSBX478
00311 *    ELSE                                                         DTSBX478
00312 *       PERFORM S999-ABEND THRU S999-EXIT                         DTSBX478
00313 *    END-IF.                                                      DTSBX478
00314                                                                   DTSBX478
00315 *    PERFORM S981A-OPEN-UPDATE      THRU S981A-EXIT.                 CL**3
00316 *    PERFORM S983-OPEN-UPDATE       THRU S983-EXIT.                  CL**3
00317 *    PERFORM S931-OPEN-READ         THRU S931-EXIT.                  CL**3
00318                                                                   DTSBX478
00319  I0000-EXIT.                                                      DTSBX478
00320      EXIT.                                                        DTSBX478
00321                                                                   DTSBX478
00322  P0000-PROCESS.                                                   DTSBX478
00323      READ W2GE-TRANS-FILE     INTO ESP-TRANSACTION-AREA              CL**4
00324                                                                   DTSBX478
00325      PERFORM UNTIL WAGE-TRANS-FILE-NO-REC-88                      DTSBX478
00326         PERFORM P2000-W2-WAGE          THRU P2000-EXIT               CL**3
00327         READ W2GE-TRANS-FILE  INTO ESP-TRANSACTION-AREA              CL**4
00328                                                                   DTSBX478
00329      END-PERFORM.                                                 DTSBX478
00330                                                                   DTSBX478
00331      READ W4GE-TRANS-FILE     INTO ESP-TRANSACTION-AREA              CL**4
00332                                                                      CL**3
00333      PERFORM UNTIL WAGE-TRANS-FILE-NO-REC-88                         CL**3
00334         PERFORM P3000-W4-WAGE          THRU P3000-EXIT               CL**3
00335         READ W4GE-TRANS-FILE  INTO ESP-TRANSACTION-AREA              CL**4
00336                                                                      CL**3
00337      END-PERFORM.                                                    CL**3
00338  P0000-EXIT.                                                      DTSBX478
00339      EXIT.                                                        DTSBX478
00340                                                                   DTSBX478
00341                                                                   DTSBX478
00342  P2000-W2-WAGE.                                                      CL**3
00343         ADD 1 TO W2-REC-READ.                                        CL**3
00344                                                                   DTSBX478
00345  P2000-EXIT.                                                      DTSBX478
00346      EXIT.                                                        DTSBX478
00347                                                                   DTSBX478
00348  P3000-W4-WAGE.                                                      CL**3
00349         ADD 1 TO W4-REC-READ.                                        CL**3
00350                                                                      CL**3
00351  P3000-EXIT.                                                         CL**3
00352  T0000-TERM.                                                      DTSBX478
00353 *    PERFORM S981D-CLOSE      THRU S981D-EXIT.                       CL**3
00354 *    PERFORM S983-CLOSE       THRU S983-EXIT.                        CL**3
00355 *    PERFORM S931-CLOSE       THRU S931-EXIT.                        CL**3
00356                                                                   DTSBX478
00357 *    CLOSE WAGE-TRANS-FILE   TAXWGH-FILE.                         DTSBX478
00358      CLOSE W2GE-TRANS-FILE.                                          CL**3
00359      CLOSE W4GE-TRANS-FILE.                                          CL**3
00360                                                                   DTSBX478
00361      DISPLAY '******************************************'         DTSBX478
00362      DISPLAY '**  DTSBX478 TERMINATION STATISTICS     **'.           CL**3
00363                                                                   DTSBX478
00364      DISPLAY 'TOTAL W4 TRANS REC READ    = ' W4-REC-READ.         DTSBX478
00365 *    DISPLAY 'TOTAL W4 TRANS REC FOUND   = ' W4-REC-FOUND.           CL**3
00366 *    DISPLAY 'TOTAL W4 TRANS REC ADDED   = ' W4-REC-ADDED.           CL**3
00367      DISPLAY 'TOTAL W2 TRANS REC READ    = ' W2-REC-READ.         DTSBX478
00368 *    DISPLAY 'TOTAL W2 TRANS REC FOUND   = ' W2-REC-FOUND.           CL**3
00369 *    DISPLAY 'TOTAL W2 TRANS REC DELETED = ' W2-REC-DELETED.         CL**3
00370      DISPLAY '  '.                                                DTSBX478
00371      MOVE W4-REC-READ TO W4-COUNT.                                   CL**6
00372      MOVE W2-REC-READ TO W2-COUNT.                                   CL**6
00373      WRITE UIBS-TRANS-REC FROM OUT-W2-REC.                           CL**6
00374      WRITE UIBS-TRANS-REC FROM OUT-W4-REC.                           CL**6
00375      CLOSE W4GE-TRANS-FILE.                                          CL**6
00376  T0000-EXIT.                                                      DTSBX478
00377      EXIT.                                                        DTSBX478
00378                                                                   DTSBX478
00379  S004-EDIT-QTR.                                                   DTSBX478
00380      CALL 'DTSBU004' USING L004-COMM-AREA.                        DTSBX478
00381                                                                   DTSBX478
00382  S004-EXIT.                                                       DTSBX478
00383      EXIT.                                                        DTSBX478
00384                                                                   DTSBX478
00385  S516-LIABILITY-INFO.                                             DTSBX478
00386      CALL 'DTSBU516' USING L516-LINK-AREA                         DTSBX478
00387                            MPRF-REC.                              DTSBX478
00388  S516-EXIT.                                                       DTSBX478
00389      EXIT.                                                        DTSBX478
00390                                                                   DTSBX478
00391  S910-OPEN-READ.                                                  DTSBX478
00392      SET L910-OPEN-READ-88 TO TRUE.                               DTSBX478
00393      GO TO S910-MSTR-IO.                                          DTSBX478
00394                                                                   DTSBX478
00395  S910-READ.                                                       DTSBX478
00396      SET L910-READ-88 TO TRUE.                                    DTSBX478
00397      GO TO S910-MSTR-IO.                                          DTSBX478
00398                                                                   DTSBX478
00399  S910-START-BROWSE.                                               DTSBX478
00400      SET L910-START-BROWSE-88 TO TRUE.                            DTSBX478
00401      GO TO S910-MSTR-IO.                                          DTSBX478
00402                                                                   DTSBX478
00403  S910-READ-NEXT.                                                  DTSBX478
00404      SET L910-READ-NEXT-88 TO TRUE.                               DTSBX478
00405      GO TO S910-MSTR-IO.                                          DTSBX478
00406                                                                   DTSBX478
00407  S910-CLOSE.                                                      DTSBX478
00408      SET L910-CLOSE-88     TO TRUE.                               DTSBX478
00409      GO TO S910-MSTR-IO.                                          DTSBX478
00410                                                                   DTSBX478
00411  S910-MSTR-IO.                                                    DTSBX478
00412      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBX478
00413                            MSKL-REC.                              DTSBX478
00414  S910-EXIT.                                                       DTSBX478
00415      EXIT.                                                        DTSBX478
00416                                                                   DTSBX478
00417  S931-OPEN-READ.                                                  DTSBX478
00418      SET L931-OPEN-READ-88 TO TRUE.                               DTSBX478
00419      GO TO S931-REF-IO.                                           DTSBX478
00420                                                                   DTSBX478
00421  S931-CLOSE.                                                      DTSBX478
00422      SET L931-CLOSE-88 TO TRUE.                                   DTSBX478
00423      GO TO S931-REF-IO.                                           DTSBX478
00424                                                                   DTSBX478
00425  S931-REF-IO.                                                     DTSBX478
00426      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBX478
00427                            FSKL-REC.                              DTSBX478
00428  S931-EXIT.                                                       DTSBX478
00429      EXIT.                                                        DTSBX478
00430                                                                   DTSBX478
00431  S981A-OPEN-UPDATE.                                               DTSBX478
00432      SET L981-OPEN-UPDATE-88  TO TRUE.                            DTSBX478
00433      PERFORM S981Z-WWGH-IO    THRU S981Z-EXIT.                    DTSBX478
00434                                                                   DTSBX478
00435  S981A-EXIT.                                                      DTSBX478
00436      EXIT.                                                        DTSBX478
00437                                                                   DTSBX478
00438  S981B-WRITE.                                                     DTSBX478
00439      SET L981-WRITE-88        TO TRUE.                            DTSBX478
00440      PERFORM S981Z-WWGH-IO    THRU S981Z-EXIT.                    DTSBX478
00441                                                                   DTSBX478
00442  S981B-EXIT.                                                      DTSBX478
00443      EXIT.                                                        DTSBX478
00444  S981C-READ.                                                      DTSBX478
00445      SET L981-READ-88        TO TRUE.                             DTSBX478
00446      PERFORM S981Z-WWGH-IO    THRU S981Z-EXIT.                    DTSBX478
00447                                                                   DTSBX478
00448  S981C-EXIT.                                                      DTSBX478
00449      EXIT.                                                        DTSBX478
00450  S981E-DELETE.                                                    DTSBX478
00451      SET L981-DELETE-88        TO TRUE.                           DTSBX478
00452      PERFORM S981Z-WWGH-IO    THRU S981Z-EXIT.                    DTSBX478
00453                                                                   DTSBX478
00454  S981E-EXIT.                                                      DTSBX478
00455      EXIT.                                                        DTSBX478
00456                                                                   DTSBX478
00457  S981D-CLOSE.                                                     DTSBX478
00458      SET L981-CLOSE-88        TO TRUE.                            DTSBX478
00459      PERFORM S981Z-WWGH-IO    THRU S981Z-EXIT.                    DTSBX478
00460                                                                   DTSBX478
00461  S981D-EXIT.                                                      DTSBX478
00462      EXIT.                                                        DTSBX478
00463                                                                   DTSBX478
00464  S981Z-WWGH-IO.                                                   DTSBX478
00465      CALL 'DTSBU981' USING L981-LINK-AREA                         DTSBX478
00466                            WWGH-REC.                              DTSBX478
00467  S981Z-EXIT.                                                      DTSBX478
00468      EXIT.                                                        DTSBX478
00469                                                                   DTSBX478
00470  S983-OPEN-UPDATE.                                                DTSBX478
00471      SET L983-OPEN-UPDATE-88  TO TRUE.                            DTSBX478
00472      GO TO S983-WAGE-I.                                           DTSBX478
00473                                                                   DTSBX478
00474  S983-WRITE.                                                      DTSBX478
00475      SET L983-WRITE-88        TO TRUE.                            DTSBX478
00476      GO TO S983-WAGE-I.                                           DTSBX478
00477                                                                   DTSBX478
00478  S983-DELETE.                                                     DTSBX478
00479      SET L983-DELETE-88    TO TRUE.                               DTSBX478
00480      GO TO S983-WAGE-I.                                           DTSBX478
00481                                                                   DTSBX478
00482  S983-CLOSE.                                                      DTSBX478
00483      SET L983-CLOSE-88    TO TRUE.                                DTSBX478
00484      GO TO S983-WAGE-I.                                           DTSBX478
00485                                                                   DTSBX478
00486  S983-WAGE-I.                                                     DTSBX478
00487      CALL 'DTSBU983' USING L983-LINK-AREA                         DTSBX478
00488                            WSKL-REC.                              DTSBX478
00489  S983-EXIT.                                                       DTSBX478
00490      EXIT.                                                        DTSBX478
00491                                                                   DTSBX478
00492  S982A-START-BROWSE.                                              DTSBX478
00493      SET L982-START-BROWSE-88 TO TRUE.                            DTSBX478
00494      PERFORM S982Z-WNAM-IO    THRU S982Z-EXIT.                    DTSBX478
00495                                                                   DTSBX478
00496  S982A-EXIT.                                                      DTSBX478
00497      EXIT.                                                        DTSBX478
00498                                                                   DTSBX478
00499  S982B-READ-NEXT.                                                 DTSBX478
00500      SET L982-READ-NEXT-88    TO TRUE.                            DTSBX478
00501      PERFORM S982Z-WNAM-IO    THRU S982Z-EXIT.                    DTSBX478
00502                                                                   DTSBX478
00503  S982B-EXIT.                                                      DTSBX478
00504      EXIT.                                                        DTSBX478
00505                                                                   DTSBX478
00506  S982C-OPEN-READ.                                                 DTSBX478
00507      SET L982-OPEN-READ-88    TO TRUE.                            DTSBX478
00508      PERFORM S982Z-WNAM-IO    THRU S982Z-EXIT.                    DTSBX478
00509                                                                   DTSBX478
00510  S982C-EXIT.                                                      DTSBX478
00511      EXIT.                                                        DTSBX478
00512                                                                   DTSBX478
00513  S982D-CLOSE.                                                     DTSBX478
00514      SET L982-CLOSE-88        TO TRUE.                            DTSBX478
00515      PERFORM S982Z-WNAM-IO    THRU S982Z-EXIT.                    DTSBX478
00516                                                                   DTSBX478
00517  S982D-EXIT.                                                      DTSBX478
00518      EXIT.                                                        DTSBX478
00519                                                                   DTSBX478
00520  S982Z-WNAM-IO.                                                   DTSBX478
00521      CALL 'DTSBU982' USING L982-LINK-AREA                         DTSBX478
00522                            WNAM-REC.                              DTSBX478
00523  S982Z-EXIT.                                                      DTSBX478
00524      EXIT.                                                        DTSBX478
00525                                                                   DTSBX478
00526                                                                   DTSBX478
00527  S999-ABEND.                                                      DTSBX478
00528      DISPLAY '*** I/O MODULE ABENDING'.                           DTSBX478
00529                                                                   DTSBX478
00530      DISPLAY '*** CMND-CD = ' L983-CMND-CD.                       DTSBX478
00531                                                                   DTSBX478
00532      DISPLAY '*** FILE-STATUS = ' WAGE-TRANS-STATUS.              DTSBX478
00533                                                                   DTSBX478
00534      DISPLAY '*** CALLING MODULE = ' L983-MOD-NAME.               DTSBX478
00535                                                                   DTSBX478
00536                                                                   DTSBX478
00537      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBX478
00538  S999-EXIT.                                                       DTSBX478
00539      EXIT.                                                        DTSBX478
