00001  IDENTIFICATION DIVISION.                                         04/27/06
00002  PROGRAM-ID.             DTSBD511.                                DTSBD511
00003  AUTHOR.                 NGC.                                        LV003
00004  DATE-WRITTEN.           APRIL 2006.                              DTSBD511
00005  DATE-COMPILED.                                                   DTSBD511
00006      SKIP3                                                        DTSBD511
00007 *****                                                             DTSBD511
00008 *                                                                 DTSBD511
00009 *    FUNCTION:  SEND NOTICES TO EMPLOYERS WHO HAVE NOT PAID THE   DTSBD511
00010 *               ADMINISTRATIVE ASSESSMENT.                        DTSBD511
00011 *                                                                 DTSBD511
00012 *****                                                             DTSBD511
00013      SKIP3                                                        DTSBD511
00014  ENVIRONMENT DIVISION.                                            DTSBD511
00015  INPUT-OUTPUT SECTION.                                            DTSBD511
00016                                                                   DTSBD511
00017  FILE-CONTROL.                                                    DTSBD511
00018      SKIP2                                                        DTSBD511
00019  DATA DIVISION.                                                   DTSBD511
00020  FILE SECTION.                                                    DTSBD511
00021                                                                   DTSBD511
00022  WORKING-STORAGE SECTION.                                         DTSBD511
000225 77  PAN-VALET PICTURE X(24) VALUE '003DTSBD511  04/27/06'.       DTSBD511
00023      SKIP3                                                        DTSBD511
00024  01  WRK-AREA.                                                    DTSBD511
00025      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +511.DTSBD511
00026      05  ABEND-MSG                   PIC  X(60).                  DTSBD511
00027      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBD511'.DTSBD511
00028      05  WRK-MPRF-CNT                PIC S9(07)  COMP-3.          DTSBD511
00029      05  WRK-MQTR-CNT                PIC S9(07)  COMP-3.          DTSBD511
00030      05  EMP-ACCT-DISP               PIC  9(06).                  DTSBD511
00031      05  WRK-EMP-SELECTED-IND    PIC X(01).                       DTSBD511
00032          88  WRK-EMP-SELECTED-YES-88 VALUE 'Y'.                   DTSBD511
00033          88  WRK-EMP-SELECTED-NO-88  VALUE 'N'.                   DTSBD511
00034                                                                   DTSBD511
00035      05  WRK-FIRST-YRQ               PIC S9(05)  COMP-3.          DTSBD511
00036      05  WRK-LAST-YRQ                PIC S9(05)  COMP-3.          DTSBD511
00037      05  WRK-ALL-NINES-YRQ           PIC S9(05)  COMP-3           DTSBD511
00038                                       VALUE +99999.               DTSBD511
00039      05  WRK-TOLERANCE-AMT           PIC S9(05)V99 COMP-3         DTSBD511
00040                                       VALUE +25.00.               DTSBD511
00041                                                                   DTSBD511
00042      05  WRK-BAL                     PIC S9(09)V99 COMP-3.        DTSBD511
00043      05  WRK-MQTR-CHG-AMT            PIC S9(09)V99 COMP-3.        DTSBD511
00044      05  WRK-MQTR-SUR-BAL            PIC S9(09)V99 COMP-3.        DTSBD511
00045      05  WRK-MQTR-PAID-AMT           PIC S9(09)V99 COMP-3.        DTSBD511
00046      05  WRK-MQTR-UI-BAL             PIC S9(09)V99 COMP-3.        DTSBD511
00047      05  AMT-DISP1                   PIC --------9.99.            DTSBD511
00048      05  AMT-DISP2                   PIC --------9.99.            DTSBD511
00049      05  AMT-DISP3                   PIC --------9.99.            DTSBD511
00050                                                                   DTSBD511
00051      05  WRK-UPDATED-CNT             PIC S9(07)  COMP-3.          DTSBD511
00052      05  WRK-SELECTED-CNT            PIC S9(07)  COMP-3.          DTSBD511
00053      05  WRK-TIME                    PIC S9(07) COMP-3.           DTSBD511
00054                                                                   DTSBD511
00055      05  WRK-EMP-NO                  PIC  9(06).                  DTSBD511
00056                                                                   DTSBD511
00057      05  WRK-TRACE-IND                   PIC  X(01).              DTSBD511
00058                                                                   DTSBD511
00059      05  WRK-MST-OPEN-IND                PIC  X(01).              DTSBD511
00060                                                                   DTSBD511
00061      05  WRK-REF-OPEN-IND                PIC  X(01).              DTSBD511
00062                                                                   DTSBD511
00063      EJECT                                                        DTSBD511
00064  01  L910-LINK-AREA.                                              DTSBD511
00065  ++INCLUDE DTSIL910                                               DTSBD511
00066      EJECT                                                        DTSBD511
00067  01  MSKL-REC.                                                    DTSBD511
00068  ++INCLUDE DTSIMSKL                                               DTSBD511
00069      EJECT                                                        DTSBD511
00070  01  MEVL-REC.                                                    DTSBD511
00071  ++INCLUDE DTSIMEVL                                               DTSBD511
00072      EJECT                                                        DTSBD511
00073  01  MPRF-REC.                                                    DTSBD511
00074  ++INCLUDE DTSIMPRF                                               DTSBD511
00075      EJECT                                                        DTSBD511
00076  01  MQTR-REC.                                                    DTSBD511
00077  ++INCLUDE DTSIMQTR                                               DTSBD511
00078      EJECT                                                        DTSBD511
00079  01  L005-LINK-AREA.                                              DTSBD511
00080  ++INCLUDE DTSIL005                                               DTSBD511
00081      EJECT                                                        DTSBD511
00082  01  L111-LINK-AREA.                                              DTSBD511
00083  ++INCLUDE DTSIL111                                               DTSBD511
00084      EJECT                                                        DTSBD511
00085  01  L112-LINK-AREA.                                              DTSBD511
00086  ++INCLUDE DTSIL112                                               DTSBD511
00087      EJECT                                                        DTSBD511
00088  01  R511-REC.                                                    DTSBD511
00089  ++INCLUDE DTSIR511                                               DTSBD511
00090      EJECT                                                        DTSBD511
00091  PROCEDURE DIVISION.                                              DTSBD511
00092      SKIP2                                                        DTSBD511
00093      PERFORM I0000-INITIATE THRU I0000-EXIT.                      DTSBD511
00094                                                                   DTSBD511
00095      PERFORM P0000-PROCESS THRU P0000-EXIT.                       DTSBD511
00096                                                                   DTSBD511
00097      PERFORM T0000-TERMINATE THRU T0000-EXIT.                     DTSBD511
00098      SKIP2                                                        DTSBD511
00099      GOBACK.                                                      DTSBD511
00100      EJECT                                                        DTSBD511
00101  I0000-INITIATE.                                                  DTSBD511
00102      SKIP2                                                        DTSBD511
00103      MOVE 'N' TO WRK-TRACE-IND.                                   DTSBD511
00104                                                                   DTSBD511
00105      PERFORM I2000-OPEN-FILES-1        THRU I2000-EXIT.           DTSBD511
00106                                                                   DTSBD511
00107      PERFORM S005-FROM-SYS THRU S005-EXIT.                        DTSBD511
00108                                                                   DTSBD511
00109      MOVE L005-TIME TO WRK-TIME.                                  DTSBD511
00110                                                                   DTSBD511
00111  I0000-EXIT.                                                      DTSBD511
00112      EXIT.                                                        DTSBD511
00113                                                                   DTSBD511
00114  I2000-OPEN-FILES-1.                                              DTSBD511
00115      MOVE WRK-TRACE-IND TO L910-TRACE-IND.                        DTSBD511
00116                                                                   DTSBD511
00117      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBD511
00118      MOVE LENGTH OF R511-REC  TO R511-LENGTH.                     DTSBD511
00119      PERFORM S910-OPEN-UPDATE THRU S910-EXIT.                     DTSBD511
00120 *    PERFORM S910-OPEN-READ   THRU S910-EXIT.                     DTSBD511
00121                                                                   DTSBD511
00122  I2000-EXIT.                                                      DTSBD511
00123      EXIT.                                                        DTSBD511
00124                                                                   DTSBD511
00125      EJECT                                                        DTSBD511
00126  P0000-PROCESS.                                                   DTSBD511
00127                                                                   DTSBD511
00128      MOVE +0 TO WRK-MPRF-CNT                                      DTSBD511
00129                 WRK-SELECTED-CNT.                                 DTSBD511
00130                                                                   DTSBD511
00131      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBD511
00132                                                                   DTSBD511
00133      MOVE +0 TO MSKL-EMP-NO.                                      DTSBD511
00134                                                                   DTSBD511
00135      SET MSKL-PRF-88 TO TRUE.                                     DTSBD511
00136                                                                   DTSBD511
00137      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBD511
00138      IF L910-OK-88                                                DTSBD511
00139         MOVE MSKL-REC TO MPRF-REC                                 DTSBD511
00140      ELSE                                                         DTSBD511
00141         DISPLAY 'BAD FIRST READ ' L910-RESULT-IND                 DTSBD511
00142         SET L910-NO-REC-88 TO TRUE                                DTSBD511
00143         GO TO P0000-EXIT.                                         DTSBD511
00144                                                                   DTSBD511
00145      DISPLAY 'ADMINISTRATIVE ASSESSMENT NOTICES            '.     DTSBD511
00146      DISPLAY '          DTSBZ333 '.                               DTSBD511
00147      DISPLAY SPACE.                                               DTSBD511
00148                                                                   DTSBD511
00149      PERFORM P1000-READ-NEXT THRU P1000-EXIT                      DTSBD511
00150         UNTIL L910-NO-REC-88.                                     DTSBD511
00151  P0000-EXIT.                                                      DTSBD511
00152      EXIT.                                                        DTSBD511
00153      EJECT                                                        DTSBD511
00154  P1000-READ-NEXT.                                                 DTSBD511
00155      MOVE MSKL-REC TO MPRF-REC                                    DTSBD511
00156                                                                   DTSBD511
00157      SET WRK-EMP-SELECTED-YES-88 TO TRUE.                         DTSBD511
00158      MOVE ZERO                 TO WRK-MQTR-CHG-AMT                DTSBD511
00159                                   WRK-MQTR-SUR-BAL                DTSBD511
00160                                   WRK-MQTR-PAID-AMT               DTSBD511
00161                                   WRK-MQTR-UI-BAL.                DTSBD511
00162                                                                   DTSBD511
00163      IF MPRF-CLASS-SUB-88                                         DTSBD511
00164         PERFORM P5000-FIND-QTR          THRU P5000-EXIT           DTSBD511
00165         IF  WRK-MQTR-UI-BAL = 0                                   DTSBD511
00166         AND  WRK-MQTR-SUR-BAL > WRK-TOLERANCE-AMT                 DTSBD511
00167            PERFORM P7000-CHK-MEVL       THRU P7000-EXIT           DTSBD511
00168            IF WRK-EMP-SELECTED-YES-88                             DTSBD511
00169               PERFORM P7100-ADD-MEVL    THRU P7100-EXIT           DTSBD511
00170            END-IF                                                 DTSBD511
00171         END-IF                                                    DTSBD511
00172      END-IF.                                                      DTSBD511
00173                                                                   DTSBD511
00174      MOVE MPRF-REC TO MSKL-REC.                                   DTSBD511
00175      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBD511
00176                                                                   DTSBD511
00177  P1000-EXIT.                                                      DTSBD511
00178      EXIT.                                                        DTSBD511
00179                                                                   DTSBD511
00180  P5000-FIND-QTR.                                                  DTSBD511
00181      MOVE LOW-VALUES  TO MQTR-REC.                                DTSBD511
00182      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBD511
00183      SET MQTR-QTR-88  TO TRUE.                                    DTSBD511
00184      MOVE 20061       TO MQTR-YRQ.                                DTSBD511
00185      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD511
00186                                                                   DTSBD511
00187      PERFORM S910-READ         THRU S910-EXIT.                    DTSBD511
00188      IF L910-NO-REC-88                                            DTSBD511
00189         GO TO P5000-EXIT                                          DTSBD511
00190      ELSE                                                         DTSBD511
00191         MOVE MSKL-REC TO MQTR-REC                                 DTSBD511
00192         PERFORM P5100-SUR-BAL  THRU P5100-EXIT                    DTSBD511
00193      END-IF.                                                      DTSBD511
00194                                                                   DTSBD511
00195                                                                   DTSBD511
00196  P5000-EXIT.                                                      DTSBD511
00197      EXIT.                                                        DTSBD511
00198                                                                   DTSBD511
00199  P5100-SUR-BAL.                                                   DTSBD511
00200      PERFORM                                                      DTSBD511
00201         VARYING MQTR-ACCT-IDX FROM +1 BY +1                       DTSBD511
00202         UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                       DTSBD511
00203           IF MQTR-ACCT-SUR-88  (MQTR-ACCT-IDX)                    DTSBD511
00204              ADD  MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                DTSBD511
00205                TO WRK-MQTR-CHG-AMT                                DTSBD511
00206              ADD  MQTR-BALANCE-AMT (MQTR-ACCT-IDX)                DTSBD511
00207                TO WRK-MQTR-SUR-BAL                                DTSBD511
00208              ADD  MQTR-PAID-AMT (MQTR-ACCT-IDX)                   DTSBD511
00209                TO WRK-MQTR-PAID-AMT                               DTSBD511
00210           ELSE                                                    DTSBD511
00211              IF MQTR-ACCT-UI-88  (MQTR-ACCT-IDX)                  DTSBD511
00212                 ADD  MQTR-BALANCE-AMT (MQTR-ACCT-IDX)             DTSBD511
00213                   TO WRK-MQTR-UI-BAL                              DTSBD511
00214              END-IF                                               DTSBD511
00215           END-IF                                                  DTSBD511
00216      END-PERFORM.                                                 DTSBD511
00217                                                                   DTSBD511
00218  P5100-EXIT.                                                      DTSBD511
00219      EXIT.                                                        DTSBD511
00220                                                                   DTSBD511
00221  P7000-CHK-MEVL.                                                  DTSBD511
00222      MOVE LOW-VALUES TO MEVL-REC.                                 DTSBD511
00223      MOVE MPRF-EMP-NO TO MEVL-EMP-NO.                             DTSBD511
00224      SET MEVL-EVL-88 TO TRUE.                                     DTSBD511
00225      MOVE MEVL-KEY-AREA        TO MSKL-KEY-AREA.                  DTSBD511
00226      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBD511
00227                                                                   DTSBD511
00228      PERFORM                                                      DTSBD511
00229       UNTIL L910-NO-REC-88                                        DTSBD511
00230       OR WRK-EMP-SELECTED-NO-88                                   DTSBD511
00231         MOVE MSKL-REC TO MEVL-REC                                 DTSBD511
00232         IF MEVL-TEXT (1:15) = 'SI ADMIN ASSESS'                   DTSBD511
00233            SET WRK-EMP-SELECTED-NO-88 TO TRUE                     DTSBD511
00234         ELSE                                                      DTSBD511
00235            PERFORM S910-READ-NEXT   THRU S910-EXIT                DTSBD511
00236         END-IF                                                    DTSBD511
00237      END-PERFORM.                                                 DTSBD511
00238                                                                   DTSBD511
00239  P7000-EXIT.                                                      DTSBD511
00240      EXIT.                                                        DTSBD511
00241                                                                   DTSBD511
00242  P7100-ADD-MEVL.                                                  DTSBD511
00243      ADD +1 TO WRK-SELECTED-CNT.                                  DTSBD511
00244      MOVE WRK-MQTR-CHG-AMT    TO AMT-DISP1.                       DTSBD511
00245      MOVE WRK-MQTR-SUR-BAL    TO AMT-DISP2.                       DTSBD511
00246      MOVE WRK-MQTR-PAID-AMT   TO AMT-DISP3.                       DTSBD511
00247      DISPLAY SPACE.                                               DTSBD511
00248      DISPLAY MPRF-EMP-NO '  ' MQTR-YRQ                            DTSBD511
00249         '  CHG ' AMT-DISP1.                                       DTSBD511
00250      DISPLAY '      BAL ' AMT-DISP2 '  PAID ' AMT-DISP3.          DTSBD511
00251                                                                   DTSBD511
00252      MOVE LOW-VALUES TO MEVL-REC.                                 DTSBD511
00253      MOVE MPRF-EMP-NO TO MEVL-EMP-NO.                             DTSBD511
00254      SET MEVL-EVL-88 TO TRUE.                                     DTSBD511
00255      MOVE L005-DATE TO MEVL-DATE.                                 DTSBD511
00256      ADD +1000      TO WRK-TIME.                                  DTSBD511
00257      MOVE WRK-TIME TO MEVL-TIME.                                  DTSBD511
00258      MOVE ZEROS TO MEVL-PURGE-DATE.                               DTSBD511
00259      MOVE 'SI ADMIN ASSESS BILL SENT'    TO  MEVL-TEXT.           DTSBD511
00260      SET MEVL-SOURCE-SYSTEM-88 TO TRUE.                           DTSBD511
00261      SET MEVL-NOT-CONVERTED-88 TO TRUE.                           DTSBD511
00262      MOVE L005-DATE          TO MEVL-ESTB-DATE                    DTSBD511
00263                                 MEVL-CHNG-DATE.                   DTSBD511
00264                                                                   DTSBD511
00265      MOVE MEVL-REC TO MSKL-REC.                                   DTSBD511
00266                                                                   DTSBD511
00267      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD511
00268                                                                   DTSBD511
00269      PERFORM P7110-WRITE-R511  THRU P7110-EXIT.                   DTSBD511
00270                                                                   DTSBD511
00271  P7100-EXIT.                                                      DTSBD511
00272      EXIT.                                                        DTSBD511
00273                                                                   DTSBD511
00274  P7110-WRITE-R511.                                                DTSBD511
00275                                                                   DTSBD511
00276       MOVE LOW-VALUES             TO  R511-SORT-AREA.             DTSBD511
00277       MOVE '511'                  TO  R511-REC-TYPE.              DTSBD511
00278       MOVE MPRF-EMP-NO            TO  R511-EMP-NO.                DTSBD511
00279       MOVE MPRF-FEIN              TO  R511-EMP-FEIN.              DTSBD511
00280        MOVE MPRF-FEIN             TO  R511-EMP-FEIN.              DTSBD511
00281        MOVE L005-DATE             TO  R511-STMT-DATE.             DTSBD511
00282        MOVE ZEROS                 TO  R511-COMP-DATE.             DTSBD511
00283        MOVE SPACES                TO  R511-OP-ID                  DTSBD511
00284        MOVE MQTR-YRQ              TO  R511-QTR.                   DTSBD511
00285        MOVE WRK-MQTR-CHG-AMT      TO  R511-CHARGED-AMT.           DTSBD511
00286        MOVE WRK-MQTR-SUR-BAL      TO  R511-ASSESSMENT-DUE.        DTSBD511
00287        MOVE WRK-MQTR-PAID-AMT     TO  R511-PAID-AMOUNT.           DTSBD511
00288        PERFORM P7120-GET-ADDR     THRU P7120-EXIT.                DTSBD511
00289        PERFORM S946-WRITE-R511 THRU S946-EXIT.                    DTSBD511
00290                                                                   DTSBD511
00291  P7110-EXIT.                                                      DTSBD511
00292      EXIT.                                                        DTSBD511
00293                                                                   DTSBD511
00294 ***************************************************************   DTSBD511
00295 ***************************************************************   DTSBD511
00296                                                                   DTSBD511
00297  P7120-GET-ADDR.                                                  DTSBD511
00298                                                                   DTSBD511
00299                                                                   DTSBD511
00300      MOVE LOW-VALUES           TO  L111-RETURN-AREA.              DTSBD511
00301      MOVE MPRF-EMP-NO          TO  L111-EMP-NO.                   DTSBD511
00302      SET L111-LOOKUP-TAD-88    TO  TRUE.                          DTSBD511
00303      MOVE +001                 TO  L111-ID-NO.                    DTSBD511
00304                                                                   DTSBD511
00305      PERFORM S111-LOOKUP-ADDR  THRU  S111-EXIT.                   DTSBD511
00306                                                                   DTSBD511
00307      IF L111-ADDR-FOUND-88                                        DTSBD511
00308          SET L112-TAD-ADDR-88  TO  TRUE                           DTSBD511
00309          MOVE L111-RETURN-AREA TO  L112-NAME-ADDRESS-AREA         DTSBD511
00310          PERFORM P7130-FORMAT-ADDR  THRU P7130-EXIT               DTSBD511
00311      ELSE                                                         DTSBD511
00312          MOVE ALL '?'          TO  R511-FMT-ADDR                  DTSBD511
00313                                    R511-ZIP                       DTSBD511
00314                                    R511-ADVANCED-BARCODE.         DTSBD511
00315                                                                   DTSBD511
00316                                                                   DTSBD511
00317  P7120-EXIT.                                                      DTSBD511
00318      EXIT.                                                        DTSBD511
00319      EJECT                                                        DTSBD511
00320 ***************************************************************   DTSBD511
00321 *  THIS PARAGRAPH FORMATS THE ADDRESS.                            DTSBD511
00322 ***************************************************************   DTSBD511
00323                                                                   DTSBD511
00324  P7130-FORMAT-ADDR.                                               DTSBD511
00325      SET L112-ANCHOR-FIRST-88  TO  TRUE.                          DTSBD511
00326      MOVE MPRF-PRIMARY-NAME    TO  L112-PRIMARY-NAME.             DTSBD511
00327                                                                   DTSBD511
00328      PERFORM S112-FORMAT-ADDR  THRU  S112-EXIT.                   DTSBD511
00329                                                                   DTSBD511
00330      MOVE L112-MAILING-ADDRESS   TO  R511-FMT-ADDR.               DTSBD511
00331      MOVE L112-ZIP               TO  R511-ZIP.                    DTSBD511
00332      MOVE R511-ZIP               TO  R511-SORT-ZIP.               DTSBD511
00333      MOVE L112-ADVANCED-BARCODE  TO  R511-ADVANCED-BARCODE.       DTSBD511
00334                                                                   DTSBD511
00335  P7130-EXIT.                                                      DTSBD511
00336      EXIT.                                                        DTSBD511
00337      SKIP3                                                        DTSBD511
00338  T0000-TERMINATE.                                                 DTSBD511
00339                                                                   DTSBD511
00340                                                                   DTSBD511
00341      DISPLAY ' '.                                                 DTSBD511
00342                                                                   DTSBD511
00343      DISPLAY '*** DTSBB511 TERMINATION STATISTICS ***'.           DTSBD511
00344                                                                   DTSBD511
00345      DISPLAY ' '.                                                 DTSBD511
00346                                                                   DTSBD511
00347 *    DISPLAY 'NUMBER OF MASTER FILE PROFILE RECORDS ENCOUNTERED: 'DTSBD511
00348 *            WRK-MPRF-CNT.                                        DTSBD511
00349                                                                   DTSBD511
00350      DISPLAY 'NUMBER OF EMPLOYERS SELECTED                     : 'DTSBD511
00351              WRK-SELECTED-CNT.                                    DTSBD511
00352                                                                   DTSBD511
00353      PERFORM S910-CLOSE THRU S910-EXIT.                           DTSBD511
00354                                                                   DTSBD511
00355  T0000-EXIT.                                                      DTSBD511
00356      EXIT.                                                        DTSBD511
00357      EJECT                                                        DTSBD511
00358                                                                   DTSBD511
00359                                                                   DTSBD511
00360  S005-FROM-SYS.                                                   DTSBD511
00361      SET L005-FROM-SYS   TO TRUE.                                 DTSBD511
00362      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBD511
00363                                                                   DTSBD511
00364  S005-EXIT.                                                       DTSBD511
00365      EXIT.                                                        DTSBD511
00366      SKIP3                                                        DTSBD511
00367  S910-OPEN-READ.                                                  DTSBD511
00368      SET L910-OPEN-READ-88 TO TRUE.                               DTSBD511
00369      GO TO S910-MSTR-IO.                                          DTSBD511
00370                                                                   DTSBD511
00371  S910-OPEN-UPDATE-NO-AIX.                                         DTSBD511
00372      SET L910-OPEN-UPDATE-NO-AIX-88 TO TRUE.                      DTSBD511
00373      GO TO S910-MSTR-IO.                                          DTSBD511
00374                                                                   DTSBD511
00375  S910-OPEN-UPDATE.                                                DTSBD511
00376      SET L910-OPEN-UPDATE-88        TO TRUE.                      DTSBD511
00377      GO TO S910-MSTR-IO.                                          DTSBD511
00378                                                                   DTSBD511
00379  S910-READ.                                                       DTSBD511
00380      SET L910-READ-88 TO TRUE.                                    DTSBD511
00381      GO TO S910-MSTR-IO.                                          DTSBD511
00382                                                                   DTSBD511
00383  S910-START-BROWSE.                                               DTSBD511
00384      SET L910-START-BROWSE-88 TO TRUE.                            DTSBD511
00385      GO TO S910-MSTR-IO.                                          DTSBD511
00386                                                                   DTSBD511
00387  S910-READ-NEXT.                                                  DTSBD511
00388      SET L910-READ-NEXT-88 TO TRUE.                               DTSBD511
00389      GO TO S910-MSTR-IO.                                          DTSBD511
00390                                                                   DTSBD511
00391  S910-COUNT.                                                      DTSBD511
00392      SET L910-COUNT-88 TO TRUE.                                   DTSBD511
00393      GO TO S910-MSTR-IO.                                          DTSBD511
00394                                                                   DTSBD511
00395  S910-REWRITE.                                                    DTSBD511
00396      SET L910-REWRITE-88 TO TRUE.                                 DTSBD511
00397      GO TO S910-MSTR-IO.                                          DTSBD511
00398                                                                   DTSBD511
00399  S910-WRITE.                                                      DTSBD511
00400      SET L910-WRITE-88 TO TRUE.                                   DTSBD511
00401      GO TO S910-MSTR-IO.                                          DTSBD511
00402                                                                   DTSBD511
00403  S910-DELETE.                                                     DTSBD511
00404      SET L910-DELETE-88 TO TRUE.                                  DTSBD511
00405      GO TO S910-MSTR-IO.                                          DTSBD511
00406                                                                   DTSBD511
00407  S910-CLOSE.                                                      DTSBD511
00408      SET L910-CLOSE-88     TO TRUE.                               DTSBD511
00409      GO TO S910-MSTR-IO.                                          DTSBD511
00410                                                                   DTSBD511
00411  S910-MSTR-IO.                                                    DTSBD511
00412      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBD511
00413                            MSKL-REC.                              DTSBD511
00414  S910-EXIT.                                                       DTSBD511
00415      EXIT.                                                        DTSBD511
00416      SKIP3                                                        DTSBD511
00417  S946-WRITE-R511.                                                 DTSBD511
00418      CALL 'DTSBU946' USING R511-REC.                              DTSBD511
00419      SKIP1                                                        DTSBD511
00420  S946-EXIT.                                                       DTSBD511
00421      EXIT.                                                        DTSBD511
00422  S111-LOOKUP-ADDR.                                                DTSBD511
00423       CALL 'DTSBU111' USING L111-LINK-AREA.                       DTSBD511
00424  S111-EXIT.                                                       DTSBD511
00425       EXIT.                                                       DTSBD511
00426       SKIP3                                                       DTSBD511
00427  S112-FORMAT-ADDR.                                                DTSBD511
00428       CALL 'DTSBU112' USING L112-LINK-AREA.                       DTSBD511
00429  S112-EXIT.                                                       DTSBD511
00430       EXIT.                                                       DTSBD511
00431       SKIP3                                                       DTSBD511
00432                                                                   DTSBD511
00433  S999-ABEND.                                                      DTSBD511
00434      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD511
00435  S999-EXIT.                                                       DTSBD511
00436      EXIT.                                                        DTSBD511
