00001  IDENTIFICATION DIVISION.                                         09/13/10
00002  PROGRAM-ID.             DTSBE721.                                DTSBE721
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV019
00004                          MODIFIED BY TRW/BDM OCT. 1998.           DTSBE721
00005  DATE-WRITTEN.           SEPTEMBER 1994.                          DTSBE721
00006  DATE-COMPILED.                                                   DTSBE721
00007      SKIP3                                                        DTSBE721
00008 *****                                                             DTSBE721
00009 *                                                                 DTSBE721
00010 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBE721
00011 *                       DTSBE721 WHICH UPDATES DTSIR720 RECORDS   DTSBE721
00012 *                       DTSBR720 READS DTSIR720 RECORDS TO        DTSBE721
00013 *                       PRODUCE THE RATED EMPLOYERS UNIVERSE      DTSBE721
00014 *                                                                 DTSBE721
00015 *    FUNCTION:  RQC DEBITS/BILLINGS REIMBURSING EMPLOYERS         DTSBE721
00016 *               UNIVERSE RECORDS EXTRACT.                         DTSBE721
00017 *                                                                 DTSBE721
00018 *                                                                 DTSBE721
00019 *    MODIFICATION LOG:                                            DTSBE721
00020 *                                                                 DTSBE721
00021 *    06/23/2010  MODIFIED TO USE OUTPUT FROM DTSBE433 - SELF-     DTSBE721
00022 *                INSURED SECOND NOTICE - TO BUILD TPS UNIVERSE.   DTSBE721
00023 *                WORK ORDER:                      PROGRAMMER: GD  DTSBE721
00024 *                                                                 DTSBE721
00025 *    XX/XX/XXXX  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBE721
00026 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBE721
00027 *                WORK ORDER:                      PROGRAMMER: XXX DTSBE721
00028 *                                                                 DTSBE721
00029 *                                                                 DTSBE721
00030 *  DESCRIPTION:                                                   DTSBE721
00031 *                                                                 DTSBE721
00032 *                                                                 DTSBE721
00033 *    INITIATION:                                                  DTSBE721
00034 *                                                                 DTSBE721
00035 *      SET LECM-MST-OPEN-READ-88 TO TRUE.                         DTSBE721
00036 *      SET LECM-REF-OPEN-READ-88 TO TRUE.                         DTSBE721
00037 *                                                                 DTSBE721
00038 *      EDIT AND DEFAULT PARAMETERS.                               DTSBE721
00039 *                                                                 DTSBE721
00040 *                                                                 DTSBE721
00041 *    PROCESSING:                                                  DTSBE721
00042 *                                                                 DTSBE721
00043 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (721R1).       DTSBE721
00044 *                                                                 DTSBE721
00045 *                                                                 DTSBE721
00046 *    TERMINATION:                                                 DTSBE721
00047 *                                                                 DTSBE721
00048 *      NONE.                                                      DTSBE721
00049 *                                                                 DTSBE721
00050 *                                                                 DTSBE721
00051 *    RECORDS READ:                                                DTSBE721
00052 *                                                                 DTSBE721
00053 *      MASTER:                                                    DTSBE721
00054 *                                                                 DTSBE721
00055 *        MQTR                                                     DTSBE721
00056 *                                                                 DTSBE721
00057 *                                                                 DTSBE721
00058 *      ALTERNATE INDEX:                                           DTSBE721
00059 *                                                                 DTSBE721
00060 *        NONE.                                                    DTSBE721
00061 *                                                                 DTSBE721
00062 *                                                                 DTSBE721
00063 *      REFERENCE:                                                 DTSBE721
00064 *                                                                 DTSBE721
00065 *        NONE.                                                    DTSBE721
00066 *                                                                 DTSBE721
00067 *                                                                 DTSBE721
00068 *    RECORDS UPDATED:                                             DTSBE721
00069 *                                                                 DTSBE721
00070 *        NONE.                                                    DTSBE721
00071 *                                                                 DTSBE721
00072 *                                                                 DTSBE721
00073 *    REPORT RECORDS WRITTEN:                                      DTSBE721
00074 *                                                                 DTSBE721
00075 *        R720 RQC DEBITS/BILLINGS REIMBUSING EMPLOYERS            DTSBE721
00076 *             UNIVERSE RECORDS.                                   DTSBE721
00077 *                                                                 DTSBE721
00078 *                                                                 DTSBE721
00079 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE721
00080 *                                                                 DTSBE721
00081 *        NONE.                                                    DTSBE721
00082 *                                                                 DTSBE721
00083 *                                                                 DTSBE721
00084 *    MODULES CALLED:                                              DTSBE721
00085 *                                                                 DTSBE721
00086 *        DTSBU001  DATE EDIT/CONVERSION.                          DTSBE721
00087 *        DTSBU004  QUARTER EDIT/CONVERSION.                       DTSBE721
00088 *        DTSBU910  MASTER FILE I/O.                               DTSBE721
00089 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.   DTSBE721
00090 *                                                                 DTSBE721
00091 *                                                                 DTSBE721
00092 *    VERMONT REFERENCE:                                           DTSBE721
00093 *                                                                 DTSBE721
00094 *        NONE.                                                    DTSBE721
00095 *                                                                 DTSBE721
00096 *****                                                             DTSBE721
00097      SKIP3                                                        DTSBE721
00098  ENVIRONMENT DIVISION.                                            DTSBE721
00099      EJECT                                                        DTSBE721
00100  DATA DIVISION.                                                   DTSBE721
00101      SKIP3                                                        DTSBE721
00102  WORKING-STORAGE SECTION.                                         DTSBE721
001025 77  PAN-VALET PICTURE X(24) VALUE '019DTSBE721  09/13/10'.       DTSBE721
00103      SKIP3                                                        DTSBE721
00104  01  WRK-AREA.                                                    DTSBE721
00105      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +721.DTSBE721
00106      SKIP1                                                        DTSBE721
00107      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE721'.DTSBE721
00108      SKIP3                                                        DTSBE721
00109      05  ABEND-MSG                   PIC  X(60).                  DTSBE721
00110      SKIP3                                                        DTSBE721
00111      05  WRK-PARM-SUBJECT-YRQ        PIC S9(05)  COMP-3.          DTSBE721
00112      SKIP3                                                        DTSBE721
00113      05  WRK-EMP-NO                  PIC  9(07).                  DTSBE721
00114      05  WRK-READ-CNT                PIC S9(07) COMP-3 VALUE +0.  DTSBE721
00115      05  WRK-BALANCE-AMT             PIC  9(09)V99.               DTSBE721
00116      EJECT                                                        DTSBE721
00117  01  L001-LINK-AREA.                                              DTSBE721
00118  ++INCLUDE DTSIL001                                               DTSBE721
00119      EJECT                                                        DTSBE721
00120  01  L004-LINK-AREA.                                              DTSBE721
00121  ++INCLUDE DTSIL004                                               DTSBE721
00122      EJECT                                                        DTSBE721
00123  01  L910-LINK-AREA.                                              DTSBE721
00124  ++INCLUDE DTSIL910                                               DTSBE721
00125      SKIP3                                                        DTSBE721
00126  01  MSKL-REC.                                                    DTSBE721
00127  ++INCLUDE DTSIMSKL                                               DTSBE721
00128      SKIP3                                                        DTSBE721
00129  01  MHDR-REC.                                                    DTSBE721
00130  ++INCLUDE DTSIMHDR                                               DTSBE721
00131                                                                   DTSBE721
00132  01  MPRF-REC.                                                    DTSBE721
00133  ++INCLUDE DTSIMPRF                                               DTSBE721
00134                                                                   DTSBE721
00135  01  MQTR-REC.                                                    DTSBE721
00136  ++INCLUDE DTSIMQTR                                               DTSBE721
00137                                                                   DTSBE721
00138  01  R720-REC.                                                    DTSBE721
00139  ++INCLUDE DTSIR720                                               DTSBE721
00140      EJECT                                                        DTSBE721
00141  01  L941-LINK-AREA.                                              DTSBE721
00142  ++INCLUDE DTSIL941                                               DTSBE721
00143                                                                   DTSBE721
00144  01  RSK3-REC.                                                    DTSBE721
00145  ++INCLUDE DTSIRSK3                                               DTSBE721
00146                                                                   DTSBE721
00147  01  R433-REC.                                                    DTSBE721
00148  ++INCLUDE DTSIR433                                               DTSBE721
00149                                                                   DTSBE721
00150 *LINKAGE SECTION.                                                 DTSBE721
00151 *    SKIP3                                                        DTSBE721
00152 *01  LECM-LINK-AREA.                                              DTSBE721
00153 ***INCLUDE DTSILECM                                               DTSBE721
00154 *    SKIP3                                                        DTSBE721
00155 *        10  FILLER REDEFINES LECM-EXTRACT-PARMS.                 DTSBE721
00156 *            15  LECM-PARM-SUBJECT-YRQ        PIC  X(03).         DTSBE721
00157 *            15  FILLER                       PIC  X(65).         DTSBE721
00158 *    EJECT                                                        DTSBE721
00159 *01  MPRF-LINK-REC.                                               DTSBE721
00160 ***INCLUDE DTSIMPRF                                               DTSBE721
00161      EJECT                                                        DTSBE721
00162 *PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE721
00163 *                         MPRF-LINK-REC.                          DTSBE721
00164  PROCEDURE DIVISION.                                              DTSBE721
00165      SKIP2                                                        DTSBE721
00166      MOVE LENGTH OF R720-REC    TO R720-LENGTH.                   DTSBE721
00167      MOVE '720'                 TO R720-REC-TYPE.                 DTSBE721
00168                                                                   DTSBE721
00169      PERFORM I0000-INITIALIZE   THRU I0000-EXIT.                  DTSBE721
00170      PERFORM P0000-PROCESS      THRU P0000-EXIT.                  DTSBE721
00171      PERFORM T0000-TERMINATE    THRU T0000-EXIT.                  DTSBE721
00172                                                                   DTSBE721
00173 **   IF LECM-PROCESS-88                                           DTSBE721
00174 *        PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE721
00175 *    ELSE                                                         DTSBE721
00176 *    IF LECM-INITIALIZE-88                                        DTSBE721
00177 *        PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE721
00178 *    ELSE                                                         DTSBE721
00179 *    IF LECM-TERMINATE-88                                         DTSBE721
00180 *        PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE721
00181 *    ELSE                                                         DTSBE721
00182 *        MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE721
00183 *          TO ABEND-MSG                                           DTSBE721
00184 **       PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE721
00185      SKIP2                                                        DTSBE721
00186      GOBACK.                                                      DTSBE721
00187      EJECT                                                        DTSBE721
00188  I0000-INITIALIZE.                                                DTSBE721
00189      SKIP2                                                        DTSBE721
00190      MOVE SPACE          TO L910-TRACE-IND.                       DTSBE721
00191      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBE721
00192                                                                   DTSBE721
00193 ***  PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT.        DTSBE721
00194                                                                   DTSBE721
00195      SET L941-OPEN-READ-88   TO TRUE.                             DTSBE721
00196      PERFORM S941-RPT-I      THRU S941-EXIT.                      DTSBE721
00197                                                                   DTSBE721
00198      PERFORM S910-OPEN-READ      THRU S910-EXIT.                  DTSBE721
00199                                                                   DTSBE721
00200      PERFORM I3000-READ-MHDR         THRU I3000-EXIT.             DTSBE721
00201 *    SET LECM-MST-OPEN-READ-88 TO TRUE.                           DTSBE721
00202 *    SET LECM-REF-OPEN-READ-88 TO TRUE.                           DTSBE721
00203      SKIP2                                                        DTSBE721
00204  I0000-EXIT.                                                      DTSBE721
00205      EXIT.                                                        DTSBE721
00206                                                                   DTSBE721
00207  I3000-READ-MHDR.                                                 DTSBE721
00208      MOVE LOW-VALUES              TO MSKL-REC.                    DTSBE721
00209      MOVE +0                      TO MSKL-EMP-NO.                 DTSBE721
00210      SET MSKL-HDR-88              TO TRUE.                        DTSBE721
00211                                                                   DTSBE721
00212      PERFORM S910-READ            THRU S910-EXIT.                 DTSBE721
00213      IF L910-NO-REC-88                                            DTSBE721
00214         DISPLAY 'DTSBE721: MHDR RECORD IS MISSING'                DTSBE721
00215         GO TO I3000-EXIT                                          DTSBE721
00216      ELSE                                                         DTSBE721
00217         MOVE MSKL-REC             TO MHDR-REC                     DTSBE721
00218      END-IF.                                                      DTSBE721
00219                                                                   DTSBE721
00220  I3000-EXIT.                                                      DTSBE721
00221      EXIT.                                                        DTSBE721
00222                                                                   DTSBE721
00223 *I1000-EDIT-AND-DEFAULT-PARMS.                                    DTSBE721
00224 *    PERFORM I1100-SUBJECT-YRQ THRU I1100-EXIT.                   DTSBE721
00225 *I1000-EXIT.                                                      DTSBE721
00226 *    EXIT.                                                        DTSBE721
00227 *    SKIP3                                                        DTSBE721
00228 *I1100-SUBJECT-YRQ.                                               DTSBE721
00229 *    IF LECM-PARM-SUBJECT-YRQ = SPACES                            DTSBE721
00230 *        MOVE 'LECM-PARM-SUBJECT-YRQ IS MISSING'                  DTSBE721
00231 *          TO ABEND-MSG                                           DTSBE721
00232 *        PERFORM S999-ABEND THRU S999-EXIT                        DTSBE721
00233 *    ELSE                                                         DTSBE721
00234 *        MOVE LECM-PARM-SUBJECT-YRQ TO L004-QTR-3-X               DTSBE721
00235 *        PERFORM S004-FROM-3 THRU S004-EXIT                       DTSBE721
00236 *        IF L004-VALID-QTR                                        DTSBE721
00237 *            MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ            DTSBE721
00238 *        ELSE                                                     DTSBE721
00239 *            MOVE 'LECM-PARM-SUBJECT-YRQ NOT VALID'               DTSBE721
00240 *              TO ABEND-MSG                                       DTSBE721
00241 *            PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE721
00242 *I1100-EXIT.                                                      DTSBE721
00243 *    EXIT.                                                        DTSBE721
00244      EJECT                                                        DTSBE721
00245  P0000-PROCESS.                                                   DTSBE721
00246 **   IF MPRF-CLASS-SELF-INS-88                                    DTSBE721
00247 *        NEXT SENTENCE                                            DTSBE721
00248 *    ELSE                                                         DTSBE721
00249 **       GO TO P0000-EXIT.                                        DTSBE721
00250                                                                   DTSBE721
00251      SET L941-READ-NEXT-88            TO TRUE.                    DTSBE721
00252      PERFORM S941-RPT-I               THRU S941-EXIT.             DTSBE721
00253      DISPLAY 'FIRST READ ' L941-RESULT-IND.                       DTSBE721
00254      IF L941-OK-88                                                DTSBE721
00255         DISPLAY 'REC TYPE ' RSK3-REC-TYPE                         DTSBE721
00256      END-IF.                                                      DTSBE721
00257                                                                   DTSBE721
00258      PERFORM UNTIL L941-NO-REC-88                                 DTSBE721
00259         IF RSK3-REC-TYPE = '433'                                  DTSBE721
00260            ADD +1                      TO WRK-READ-CNT            DTSBE721
00261            MOVE RSK3-REC               TO R433-REC                DTSBE721
00262            PERFORM P1000-BUILD-R720    THRU P1000-EXIT            DTSBE721
00263         END-IF                                                    DTSBE721
00264         SET L941-READ-NEXT-88          TO TRUE                    DTSBE721
00265         PERFORM S941-RPT-I             THRU S941-EXIT             DTSBE721
00266      END-PERFORM.                                                 DTSBE721
00267                                                                   DTSBE721
00268  P0000-EXIT.                                                      DTSBE721
00269      EXIT.                                                        DTSBE721
00270                                                                   DTSBE721
00271  P1000-BUILD-R720.                                                DTSBE721
00272      MOVE LOW-VALUES                   TO MQTR-KEY-AREA.          DTSBE721
00273      MOVE R433-EMP-NO                  TO MQTR-EMP-NO.            DTSBE721
00274      SET MQTR-QTR-88                   TO TRUE.                   DTSBE721
00275      MOVE R433-QTR                     TO MQTR-YRQ.               DTSBE721
00276      MOVE MQTR-KEY-AREA                TO MSKL-KEY-AREA.          DTSBE721
00277      PERFORM S910-READ                 THRU S910-EXIT.            DTSBE721
00278      IF L910-NO-REC-88                                            DTSBE721
00279          GO TO P0000-EXIT.                                        DTSBE721
00280                                                                   DTSBE721
00281      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE721
00282                                                                   DTSBE721
00283                                                                   DTSBE721
00284      PERFORM                                                      DTSBE721
00285        VARYING MQTR-ACCT-IDX FROM 1 BY 1                          DTSBE721
00286        UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                        DTSBE721
00287          IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX)                       DTSBE721
00288              IF MQTR-BALANCE-AMT (MQTR-ACCT-IDX) > +0             DTSBE721
00289                  SET R720-TRANS-TYPE-REIMB-88    TO TRUE          DTSBE721
00290                  MOVE MQTR-EMP-NO TO R720-EMP-NO                  DTSBE721
00291                  MOVE MHDR-PRIOR-RUN-DATE TO R720-RUN-DATE        DTSBE721
00292                  MOVE MQTR-CHARGED-AMT (MQTR-ACCT-IDX)            DTSBE721
00293                    TO R720-TAX-DUE                                DTSBE721
00294                  MOVE MQTR-PAID-AMT (MQTR-ACCT-IDX)               DTSBE721
00295                    TO R720-TAX-PAID                               DTSBE721
00296                  PERFORM S946-WRITE-R720 THRU S946-EXIT           DTSBE721
00297              END-IF                                               DTSBE721
00298          END-IF                                                   DTSBE721
00299      END-PERFORM.                                                 DTSBE721
00300  P1000-EXIT.                                                      DTSBE721
00301      EXIT.                                                        DTSBE721
00302                                                                   DTSBE721
00303  T0000-TERMINATE.                                                 DTSBE721
00304      PERFORM S910-CLOSE          THRU S910-EXIT.                  DTSBE721
00305      SET L941-CLOSE-88           TO TRUE.                         DTSBE721
00306      PERFORM S941-RPT-I          THRU S941-EXIT.                  DTSBE721
00307                                                                   DTSBE721
00308  T0000-EXIT.                                                      DTSBE721
00309      EXIT.                                                        DTSBE721
00310      EJECT                                                        DTSBE721
00311  S001-FROM-FED-8.                                                 DTSBE721
00312      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE721
00313      GO TO S001-DATE.                                             DTSBE721
00314      SKIP1                                                        DTSBE721
00315  S001-FROM-ABS-DAY.                                               DTSBE721
00316      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBE721
00317      GO TO S001-DATE.                                             DTSBE721
00318      SKIP1                                                        DTSBE721
00319  S001-FROM-CAL-6.                                                 DTSBE721
00320      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBE721
00321      GO TO S001-DATE.                                             DTSBE721
00322      SKIP1                                                        DTSBE721
00323  S001-DATE.                                                       DTSBE721
00324      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBE721
00325  S001-EXIT.                                                       DTSBE721
00326      EXIT.                                                        DTSBE721
00327      SKIP3                                                        DTSBE721
00328  S004-FROM-5.                                                     DTSBE721
00329      SET L004-FROM-5 TO TRUE.                                     DTSBE721
00330      GO TO S004-QTR.                                              DTSBE721
00331      SKIP1                                                        DTSBE721
00332  S004-FROM-ABS.                                                   DTSBE721
00333      SET L004-FROM-ABS TO TRUE.                                   DTSBE721
00334      GO TO S004-QTR.                                              DTSBE721
00335      SKIP1                                                        DTSBE721
00336  S004-FROM-3.                                                     DTSBE721
00337      SET L004-FROM-3 TO TRUE.                                     DTSBE721
00338      GO TO S004-QTR.                                              DTSBE721
00339      SKIP1                                                        DTSBE721
00340  S004-QTR.                                                        DTSBE721
00341      SKIP1                                                        DTSBE721
00342      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBE721
00343      SKIP1                                                        DTSBE721
00344  S004-EXIT.                                                       DTSBE721
00345      EXIT.                                                        DTSBE721
00346      SKIP3                                                        DTSBE721
00347  S910-OPEN-READ.                                                  DTSBE721
00348      SET L910-OPEN-READ-88 TO TRUE.                               DTSBE721
00349      GO TO S910-MSTR-IO.                                          DTSBE721
00350      SKIP1                                                        DTSBE721
00351  S910-READ.                                                       DTSBE721
00352      SET L910-READ-88 TO TRUE.                                    DTSBE721
00353      GO TO S910-MSTR-IO.                                          DTSBE721
00354      SKIP1                                                        DTSBE721
00355  S910-START-BROWSE.                                               DTSBE721
00356      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE721
00357      GO TO S910-MSTR-IO.                                          DTSBE721
00358      SKIP1                                                        DTSBE721
00359  S910-READ-NEXT.                                                  DTSBE721
00360      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE721
00361      GO TO S910-MSTR-IO.                                          DTSBE721
00362      SKIP1                                                        DTSBE721
00363  S910-COUNT.                                                      DTSBE721
00364      SET L910-COUNT-88 TO TRUE.                                   DTSBE721
00365      GO TO S910-MSTR-IO.                                          DTSBE721
00366      SKIP1                                                        DTSBE721
00367  S910-CLOSE.                                                      DTSBE721
00368      SET L910-CLOSE-88 TO TRUE.                                   DTSBE721
00369      GO TO S910-MSTR-IO.                                          DTSBE721
00370      SKIP1                                                        DTSBE721
00371  S910-MSTR-IO.                                                    DTSBE721
00372      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBE721
00373                            MSKL-REC.                              DTSBE721
00374  S910-EXIT.                                                       DTSBE721
00375      EXIT.                                                        DTSBE721
00376      SKIP3                                                        DTSBE721
00377  S941-RPT-I.                                                      DTSBE721
00378      CALL 'DTSBU941' USING L941-LINK-AREA                         DTSBE721
00379                            RSK3-REC.                              DTSBE721
00380  S941-EXIT.                                                       DTSBE721
00381      EXIT.                                                        DTSBE721
00382                                                                   DTSBE721
00383  S946-WRITE-R720.                                                 DTSBE721
00384      CALL 'DTSBU946' USING R720-REC.                              DTSBE721
00385      GO TO S946-EXIT.                                             DTSBE721
00386      SKIP1                                                        DTSBE721
00387  S946-EXIT.                                                       DTSBE721
00388      EXIT.                                                        DTSBE721
00389      SKIP3                                                        DTSBE721
00390  S999-ABEND.                                                      DTSBE721
00391      DISPLAY '*** DTSBE721 ABENDING.  '                           DTSBE721
00392              ABEND-MSG.                                           DTSBE721
00393      SKIP1                                                        DTSBE721
00394      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBE721
00395  S999-EXIT.                                                       DTSBE721
00396      EXIT.                                                        DTSBE721
