00001  IDENTIFICATION DIVISION.                                         08/14/02
00002  PROGRAM-ID.             DTSBR731.                                DTSBR731
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV013
00004  DATE-WRITTEN.           DECEMBER 1994.                           DTSBR731
00005  DATE-COMPILED.                                                   DTSBR731
00006                                                                   DTSBR731
00007 *****                                                             DTSBR731
00008 *                                                                 DTSBR731
00009 *    CALLING SEQUENCE:  DTSBD300 CALLS                            DTSBR731
00010 *                       DTSBD920 WHICH UPDATES DTSIR731           DTSBR731
00011 *                       DTSBR731 READS DTSIR731 RECORDS.          DTSBR731
00012 *                                                                 DTSBR731
00013 *    FUNCTION:  PURGED PRIMARY NAMES LIST.                        DTSBR731
00014 *                                                                 DTSBR731
00015 *                                                                 DTSBR731
00016 *    MODIFICATION HISTORY:                                        DTSBR731
00017 *                                                                 DTSBR731
00018 * 12-11-94 INITIAL DEVELOPMENT                                    DTSBR731
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR731
00020 *                                                                 DTSBR731
00021 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR731
00022 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR731
00023 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR731
00024 *                                                                 DTSBR731
00025 *                                                                 DTSBR731
00026 *    DESCRIPTION:                                                 DTSBR731
00027 *                                                                 DTSBR731
00028 *        THE MODULE PRODUCES A LIST OF ALL PRIMARY NAMES AND      DTSBR731
00029 *        ALTERNATE NAMES FOR ALL ACCOUNTS THAT HAVE BEEN PURGED   DTSBR731
00030 *        FROM THE ACTIVE EMPLOYER MASTER FILE.                    DTSBR731
00031 *                                                                 DTSBR731
00032 *                                                                 DTSBR731
00033 *    RECORDS READ:                                                DTSBR731
00034 *                                                                 DTSBR731
00035 *        NONE.                                                    DTSBR731
00036 *                                                                 DTSBR731
00037 *                                                                 DTSBR731
00038 *    PRINTED OUTPUTS:                                             DTSBR731
00039 *                                                                 DTSBR731
00040 *        731R1  PURGED PRIMARY NAMES LIST                         DTSBR731
00041 *                                                                 DTSBR731
00042 *                                                                 DTSBR731
00043 *    RECORDS WRITTEN:                                             DTSBR731
00044 *                                                                 DTSBR731
00045 *        NONE.                                                    DTSBR731
00046 *                                                                 DTSBR731
00047 *                                                                 DTSBR731
00048 *    MODULES CALLED:                                              DTSBR731
00049 *                                                                 DTSBR731
00050 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR731
00051 *                                                                 DTSBR731
00052 *                                                                 DTSBR731
00053 *****                                                             DTSBR731
00054      EJECT                                                        DTSBR731
00055  ENVIRONMENT DIVISION.                                            DTSBR731
00056                                                                   DTSBR731
00057  CONFIGURATION SECTION.                                           DTSBR731
00058  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR731
00059                                                                   DTSBR731
00060  INPUT-OUTPUT SECTION.                                            DTSBR731
00061                                                                   DTSBR731
00062  FILE-CONTROL.                                                    DTSBR731
00063      SELECT PRT-FILE ASSIGN TO RPT731R1.                          DTSBR731
00064                                                                   DTSBR731
00065  DATA DIVISION.                                                   DTSBR731
00066                                                                   DTSBR731
00067  FILE SECTION.                                                    DTSBR731
00068                                                                   DTSBR731
00069  FD  PRT-FILE                                                     DTSBR731
00070      RECORDING MODE IS F.                                         DTSBR731
00071  01  REPORT-LISTING1                 PIC  X(133).                 DTSBR731
00072                                                                   DTSBR731
00073      EJECT                                                        DTSBR731
00074  WORKING-STORAGE SECTION.                                         DTSBR731
000745 77  PAN-VALET PICTURE X(24) VALUE '013DTSBR731  08/14/02'.       DTSBR731
00075                                                                   DTSBR731
00076  01  WRK-AREA.                                                    DTSBR731
00077      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +731.DTSBR731
00078      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR731
00079                                                                   DTSBR731
00080      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR731
00081      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR731
00082      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR731
00083      05  WS-NUMBER-ONE               PIC S9(03) COMP-3 VALUE +0.  DTSBR731
00084                                                                   DTSBR731
00085 *    05  WS-EMP-CLASS-DSCR           PIC  X(13).                  DTSBR731
00086 *    05  WS-LIAB-DATE                PIC  X(08).                  DTSBR731
00087 *    05  WS-INACT-DATE               PIC  X(08).                  DTSBR731
00088 *    05  WS-PURGE-DATE               PIC  X(08).                  DTSBR731
00089      EJECT                                                        DTSBR731
00090  01  L001-LINK-AREA.                                              DTSBR731
00091  ++INCLUDE DTSIL001                                               DTSBR731
00092      EJECT                                                        DTSBR731
00093                                                                   DTSBR731
00094  01  PAGE-HEADING.                                                DTSBR731
00095      05  HDR-LINE-1.                                              DTSBR731
00096          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR731
00097          10  FILLER                  PIC  X(05)                   DTSBR731
00098                 VALUE '731R1'.                                    DTSBR731
00099          10  FILLER                  PIC  X(35)  VALUE SPACES.    DTSBR731
00100          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR731
00101          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR731
00102          10  FILLER                  PIC  X(05)                   DTSBR731
00103                 VALUE 'DATE:'.                                    DTSBR731
00104          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR731
00105          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR731
00106                                                                   DTSBR731
00107      05  HDR-LINE-2.                                              DTSBR731
00108          10  FILLER                  PIC  X(41)  VALUE SPACES.    DTSBR731
00109          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR731
00110          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR731
00111          10  FILLER                  PIC  X(05)                   DTSBR731
00112                 VALUE 'TIME:'.                                    DTSBR731
00113          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR731
00114          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR731
00115                                                                   DTSBR731
00116      05  HDR-LINE-3.                                              DTSBR731
00117          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR731
00118          10  FILLER                  PIC  X(33)                   DTSBR731
00119                 VALUE 'ROUTE TO:  CHIEF, TAX DIVISION   '.        DTSBR731
00120          10  FILLER                  PIC  X(85)  VALUE SPACES.    DTSBR731
00121          10  FILLER                  PIC  X(05)                   DTSBR731
00122                 VALUE 'PAGE:'.                                    DTSBR731
00123          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR731
00124          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR731
00125                                                                   DTSBR731
00126      05  HDR-LINE-4.                                              DTSBR731
00127          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR731
00128          10  FILLER                  PIC  X(20)                   DTSBR731
00129                 VALUE '                    '.                     DTSBR731
00130          10  FILLER                  PIC  X(20)  VALUE SPACES.    DTSBR731
00131          10  FILLER                  PIC  X(26)                   DTSBR731
00132                VALUE '   PURGED EMPLOYER LIST  '.                 DTSBR731
00133                                                                   DTSBR731
00134      05  HDR-LINE-5                  PIC  X(133) VALUE SPACES.    DTSBR731
00135                                                                   DTSBR731
00136      05  HDR-LINE-6                  PIC  X(133) VALUE SPACES.    DTSBR731
00137                                                                   DTSBR731
00138      05  HDR-LINE-7.                                              DTSBR731
00139          10  FILLER                  PIC  X(13)  VALUE SPACES.    DTSBR731
00140          10  FILLER                  PIC  X(08)                   DTSBR731
00141                 VALUE 'EMPLOYER'.                                 DTSBR731
00142          10  FILLER                  PIC  X(17)  VALUE SPACES.    DTSBR731
00143          10  FILLER                  PIC  X(14)                   DTSBR731
00144                 VALUE 'PRIMARY NAME/'.                            DTSBR731
00145          10  FILLER                  PIC  X(46)  VALUE SPACES.    DTSBR731
00146          10  FILLER                  PIC  X(32)                   DTSBR731
00147                 VALUE 'ZIP     LIAB    INACTIVE   PURGE'.         DTSBR731
00148                                                                   DTSBR731
00149      05  HDR-LINE-8.                                              DTSBR731
00150          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR731
00151          10  FILLER                  PIC  X(18)                   DTSBR731
00152                 VALUE 'EMP NO       CLASS'.                       DTSBR731
00153          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR731
00154          10  FILLER                  PIC  X(40)                   DTSBR731
00155                 VALUE 'TAX ALTERNATE NAME/BENEFIT ALTERNATE NAM'. DTSBR731
00156          10  FILLER                  PIC  X(14)                   DTSBR731
00157                 VALUE 'E   CITY/STATE'.                           DTSBR731
00158          10  FILLER                  PIC  X(18)  VALUE SPACES.    DTSBR731
00159          10  FILLER                  PIC  X(33)                   DTSBR731
00160                 VALUE 'CODE     DATE      DATE      DATE'.        DTSBR731
00161                                                                   DTSBR731
00162      05  HDR-LINE-9                  PIC  X(133) VALUE SPACES.    DTSBR731
00163                                                                   DTSBR731
00164  01  DETAIL-LINE.                                                 DTSBR731
00165      05  DTL-LINE-1.                                              DTSBR731
00166          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR731
00167          10  DTL-EMP-NO              PIC  999B999.                DTSBR731
00168 *               SOURCE R731-EMP-NO.                               DTSBR731
00169          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR731
00170          10  WS-EMP-CLASS-DSCR       PIC  X(13).                  DTSBR731
00171 *               SOURCE WS-EMP-CLASS-DSCR.                         DTSBR731
00172          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR731
00173          10  DTL-NAME                PIC  X(40).                  DTSBR731
00174 *               SOURCE R731-NAME.                                 DTSBR731
00175          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR731
00176          10  DTL-CITY                PIC  X(25).                  DTSBR731
00177 *               SOURCE R731-CITY.                                 DTSBR731
00178          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR731
00179          10  DTL-ST                  PIC  X(02).                  DTSBR731
00180 *               SOURCE R731-ST.                                   DTSBR731
00181          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR731
00182          10  DTL-ZIP-FIRST5          PIC  X(05).                  DTSBR731
00183 *               SOURCE R731-ZIP-FIRST5.                           DTSBR731
00184          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR731
00185          10  WS-LIAB-DATE            PIC  X(08).                  DTSBR731
00186 *               SOURCE WS-LIAB-DATE.                              DTSBR731
00187          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR731
00188          10  WS-INACT-DATE           PIC  X(08).                  DTSBR731
00189 *               SOURCE WS-INACT-DATE.                             DTSBR731
00190          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR731
00191          10  WS-PURGE-DATE           PIC  X(08).                  DTSBR731
00192 *               SOURCE WS-PURGE-DATE.                             DTSBR731
00193                                                                   DTSBR731
00194  01  CONTROL-FOOTING-FINAL.                                       DTSBR731
00195      05  CFF-LINE-3.                                              DTSBR731
00196          10  FILLER                  PIC  X(26)  VALUE SPACES.    DTSBR731
00197          10  CFF-NUMBER-ONE          PIC  ZZ,ZZ9.                 DTSBR731
00198          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR731
00199          10  FILLER                  PIC  X(15)                   DTSBR731
00200                 VALUE 'PURGED ACCOUNTS'.                          DTSBR731
00201                                                                   DTSBR731
00202      05  CFF-LINE-7.                                              DTSBR731
00203          10  FILLER                  PIC  X(26)  VALUE SPACES.    DTSBR731
00204          10  FILLER                  PIC  X(17)                   DTSBR731
00205                 VALUE '*** END OF REPORT'.                        DTSBR731
00206                                                                   DTSBR731
00207      EJECT                                                        DTSBR731
00208  LINKAGE SECTION.                                                 DTSBR731
00209                                                                   DTSBR731
00210  01  LRCM-LINK-AREA.                                              DTSBR731
00211  ++INCLUDE DTSILRCM                                               DTSBR731
00212      EJECT                                                        DTSBR731
00213  01  R731-REC.                                                    DTSBR731
00214  ++INCLUDE DTSIR731                                               DTSBR731
00215      EJECT                                                        DTSBR731
00216  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR731
00217                           R731-REC.                               DTSBR731
00218                                                                   DTSBR731
00219      IF FIRST-TIME-IND = 'Y'                                      DTSBR731
00220          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR731
00221          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR731
00222                                                                   DTSBR731
00223      IF LRCM-EOR-88                                               DTSBR731
00224          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR731
00225      ELSE                                                         DTSBR731
00226          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR731
00227                                                                   DTSBR731
00228      GOBACK.                                                      DTSBR731
00229                                                                   DTSBR731
00230      EJECT                                                        DTSBR731
00231  I1000-INITIATE.                                                  DTSBR731
00232                                                                   DTSBR731
00233      OPEN OUTPUT PRT-FILE.                                        DTSBR731
00234      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR731
00235      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR731
00236      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR731
00237      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR731
00238      MOVE SPACES TO REPORT-LISTING1.                              DTSBR731
00239                                                                   DTSBR731
00240  I1000-EXIT.                                                      DTSBR731
00241      EXIT.                                                        DTSBR731
00242                                                                   DTSBR731
00243  P1000-PROCESS.                                                   DTSBR731
00244                                                                   DTSBR731
00245      EVALUATE TRUE                                                DTSBR731
00246         WHEN R731-CLASS-REG-88                                    DTSBR731
00247             MOVE 'REGULAR' TO WS-EMP-CLASS-DSCR                   DTSBR731
00248         WHEN R731-CLASS-GOV-88                                    DTSBR731
00249             MOVE 'GOVERNMENTAL' TO WS-EMP-CLASS-DSCR              DTSBR731
00250         WHEN R731-CLASS-REIMB-88                                  DTSBR731
00251             MOVE 'REIMBURSABLE' TO WS-EMP-CLASS-DSCR              DTSBR731
00252         WHEN R731-CLASS-NEVER-SUB-88                              DTSBR731
00253             MOVE 'NEVER SUBJECT' TO WS-EMP-CLASS-DSCR             DTSBR731
00254      END-EVALUATE.                                                DTSBR731
00255                                                                   DTSBR731
00256      MOVE R731-LIAB-DATE TO L001-FED-8-DATE-9.                    DTSBR731
00257      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR731
00258      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR731
00259      IF L001-INVALID-DATE                                         DTSBR731
00260          MOVE SPACES TO WS-LIAB-DATE                              DTSBR731
00261      ELSE                                                         DTSBR731
00262          MOVE L001-SLASH-DATE TO WS-LIAB-DATE.                    DTSBR731
00263                                                                   DTSBR731
00264      MOVE R731-INACT-DATE TO L001-FED-8-DATE-9.                   DTSBR731
00265      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR731
00266      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR731
00267      IF L001-INVALID-DATE                                         DTSBR731
00268          MOVE SPACES TO WS-INACT-DATE                             DTSBR731
00269      ELSE                                                         DTSBR731
00270          MOVE L001-SLASH-DATE TO WS-INACT-DATE.                   DTSBR731
00271                                                                   DTSBR731
00272      MOVE R731-PURGE-DATE TO L001-FED-8-DATE-9.                   DTSBR731
00273      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR731
00274      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR731
00275      IF L001-INVALID-DATE                                         DTSBR731
00276          MOVE SPACES TO WS-PURGE-DATE                             DTSBR731
00277      ELSE                                                         DTSBR731
00278          MOVE L001-SLASH-DATE TO WS-PURGE-DATE.                   DTSBR731
00279                                                                   DTSBR731
00280      MOVE R731-EMP-NO         TO DTL-EMP-NO.                      DTSBR731
00281      MOVE R731-NAME           TO DTL-NAME.                        DTSBR731
00282      MOVE R731-CITY           TO DTL-CITY.                        DTSBR731
00283      MOVE R731-ST             TO DTL-ST.                          DTSBR731
00284      MOVE R731-ZIP-FIRST5     TO DTL-ZIP-FIRST5.                  DTSBR731
00285      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR731
00286      WRITE REPORT-LISTING1 FROM DTL-LINE-1 AFTER 1.               DTSBR731
00287      ADD +1    TO WS-LINE-CNT2.                                   DTSBR731
00288      ADD +1    TO WS-NUMBER-ONE.                                  DTSBR731
00289                                                                   DTSBR731
00290 *    GENERATE DETAIL-LINE.                                        DTSBR731
00291                                                                   DTSBR731
00292  P1000-EXIT.                                                      DTSBR731
00293      EXIT.                                                        DTSBR731
00294                                                                   DTSBR731
00295  P2000-PRINT-HEADER.                                              DTSBR731
00296                                                                   DTSBR731
00297      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR731
00298           WS-LINE-CNT2 GREATER 58                                 DTSBR731
00299         MOVE +0          TO WS-LINE-CNT                           DTSBR731
00300         MOVE +0          TO WS-LINE-CNT2                          DTSBR731
00301         ADD  +1          TO WS-PAGE-CNT                           DTSBR731
00302         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR731
00303         WRITE REPORT-LISTING1 FROM HDR-LINE-1                     DTSBR731
00304                 AFTER TOP-OF-PAGE                                 DTSBR731
00305         WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1             DTSBR731
00306         WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1             DTSBR731
00307         WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1             DTSBR731
00308         WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1             DTSBR731
00309         WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1             DTSBR731
00310         WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1             DTSBR731
00311         WRITE REPORT-LISTING1 FROM HDR-LINE-8 AFTER 1             DTSBR731
00312         WRITE REPORT-LISTING1 FROM HDR-LINE-9 AFTER 1             DTSBR731
00313         ADD +9    TO WS-LINE-CNT2.                                DTSBR731
00314                                                                   DTSBR731
00315  P2000-EXIT.                                                      DTSBR731
00316      EXIT.                                                        DTSBR731
00317                                                                   DTSBR731
00318  T1000-TERMINATE.                                                 DTSBR731
00319                                                                   DTSBR731
00320      IF WS-LINE-CNT2 GREATER 52                                   DTSBR731
00321         MOVE +0          TO WS-LINE-CNT2                          DTSBR731
00322         ADD  +1          TO WS-PAGE-CNT                           DTSBR731
00323         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR731
00324         WRITE REPORT-LISTING1 FROM HDR-LINE-1                     DTSBR731
00325                 AFTER TOP-OF-PAGE                                 DTSBR731
00326         WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1             DTSBR731
00327         WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1             DTSBR731
00328         WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1             DTSBR731
00329         WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1             DTSBR731
00330         WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1             DTSBR731
00331         WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1             DTSBR731
00332         WRITE REPORT-LISTING1 FROM HDR-LINE-8 AFTER 1             DTSBR731
00333         WRITE REPORT-LISTING1 FROM HDR-LINE-9 AFTER 1             DTSBR731
00334         ADD +9    TO WS-LINE-CNT2.                                DTSBR731
00335                                                                   DTSBR731
00336      MOVE WS-NUMBER-ONE       TO CFF-NUMBER-ONE.                  DTSBR731
00337      WRITE REPORT-LISTING1 FROM CFF-LINE-3 AFTER 3.               DTSBR731
00338      WRITE REPORT-LISTING1 FROM CFF-LINE-7 AFTER 4.               DTSBR731
00339                                                                   DTSBR731
00340      CLOSE PRT-FILE.                                              DTSBR731
00341                                                                   DTSBR731
00342  T1000-EXIT.                                                      DTSBR731
00343      EXIT.                                                        DTSBR731
00344                                                                   DTSBR731
00345  S001-DATE.                                                       DTSBR731
00346                                                                   DTSBR731
00347      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR731
00348                                                                   DTSBR731
00349  S001-EXIT.                                                       DTSBR731
00350      EXIT.                                                        DTSBR731
00351                                                                   DTSBR731
00352 *S999-ABEND.                                                      DTSBR731
00353 *                                                                 DTSBR731
00354 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR731
00355 *                                                                 DTSBR731
00356 *S999-EXIT.                                                       DTSBR731
00357 *    EXIT.                                                        DTSBR731
00358                                                                   DTSBR731
