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