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