00001  IDENTIFICATION DIVISION.                                         01/29/01
00002  PROGRAM-ID.             DTSBR907.                                DTSBR907
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV008
00004  DATE-WRITTEN.           JULY 1994.                               DTSBR907
00005  DATE-COMPILED.                                                   DTSBR907
00006                                                                   DTSBR907
00007 *****                                                             DTSBR907
00008 *                                                                 DTSBR907
00009 *    CALLING SEQUENCE:  STANDARD PROGRAM THAT FLAGS               DTSBR907
00010 *                       UNUSUAL CONDITIONS. MODULE                DTSBR907
00011 *                       IS CALLED BY MULTIPLE PROGRAMS.           DTSBR907
00012 *                                                                 DTSBR907
00013 *    FUNCTION:  UNUSUAL CONDITIONS ENCOUNTERED REPORT.            DTSBR907
00014 *                                                                 DTSBR907
00015 *                                                                 DTSBR907
00016 *    MODIFICATION HISTORY:                                        DTSBR907
00017 *                                                                 DTSBR907
00018 * 07-24-94 INITIAL DEVELOPMENT                                    DTSBR907
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR907
00020 *                                                                 DTSBR907
00021 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR907
00022 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR907
00023 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR907
00024 *                                                                 DTSBR907
00025 *                                                                 DTSBR907
00026 *    DESCRIPTION:                                                 DTSBR907
00027 *                                                                 DTSBR907
00028 *        FOR EACH REPORT RECORD PASSED TO DTSBR907, WRITE ONE     DTSBR907
00029 *        DETAIL LINE ON EACH OF TWO REPORTS.  THESE TWO REPORTS   DTSBR907
00030 *        ARE IDENTICAL EXCEPT FOR ROUTING INFORMATION.  THEY      DTSBR907
00031 *        REPORT ON UNUSUAL CONDITIONS ENCOUNTERED DURING TAX      DTSBR907
00032 *        SYSTEM BATCH PROCESSING.                                 DTSBR907
00033 *                                                                 DTSBR907
00034 *                                                                 DTSBR907
00035 *    RECORDS READ:                                                DTSBR907
00036 *                                                                 DTSBR907
00037 *        NONE.                                                    DTSBR907
00038 *                                                                 DTSBR907
00039 *                                                                 DTSBR907
00040 *    PRINTED OUTPUTS:                                             DTSBR907
00041 *                                                                 DTSBR907
00042 *        907R1 - PROGRAMMERS COPY                                 DTSBR907
00043 *        907R2 - USERS COPY                                       DTSBR907
00044 *                                                                 DTSBR907
00045 *                                                                 DTSBR907
00046 *    RECORDS WRITTEN:                                             DTSBR907
00047 *                                                                 DTSBR907
00048 *        NONE.                                                    DTSBR907
00049 *                                                                 DTSBR907
00050 *                                                                 DTSBR907
00051 *    MODULES CALLED:                                              DTSBR907
00052 *                                                                 DTSBR907
00053 *        NONE                                                     DTSBR907
00054 *                                                                 DTSBR907
00055 *                                                                 DTSBR907
00056 *****                                                             DTSBR907
00057      EJECT                                                        DTSBR907
00058  ENVIRONMENT DIVISION.                                            DTSBR907
00059                                                                   DTSBR907
00060  CONFIGURATION SECTION.                                           DTSBR907
00061  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR907
00062                                                                   DTSBR907
00063  INPUT-OUTPUT SECTION.                                            DTSBR907
00064                                                                   DTSBR907
00065  FILE-CONTROL.                                                    DTSBR907
00066      SELECT PRT-FILE-PROG ASSIGN TO RPT907R1.                     DTSBR907
00067      SELECT PRT-FILE-USERS ASSIGN TO RPT907R2.                    DTSBR907
00068                                                                   DTSBR907
00069  DATA DIVISION.                                                   DTSBR907
00070                                                                   DTSBR907
00071  FILE SECTION.                                                    DTSBR907
00072                                                                   DTSBR907
00073  FD  PRT-FILE-PROG                                                DTSBR907
00074      RECORDING MODE IS F.                                         DTSBR907
00075  01  REPORT-LISTING1                 PIC  X(133).                 DTSBR907
00076                                                                   DTSBR907
00077  FD  PRT-FILE-USERS                                               DTSBR907
00078      RECORDING MODE IS F.                                         DTSBR907
00079  01  REPORT-LISTING2                 PIC  X(133).                 DTSBR907
00080                                                                   DTSBR907
00081  WORKING-STORAGE SECTION.                                         DTSBR907
000815 77  PAN-VALET PICTURE X(24) VALUE '008DTSBR907  01/29/01'.       DTSBR907
00082                                                                   DTSBR907
00083  01  WRK-AREA.                                                    DTSBR907
00084      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +907.DTSBR907
00085      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR907
00086      05  WRK-ROUTE-LOCATION          PIC  X(20)  VALUE SPACES.    DTSBR907
00087                                                                   DTSBR907
00088      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR907
00089      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR907
00090      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR907
00091                                                                   DTSBR907
00092      05  WS-LINE-CNT3                PIC S9(02) COMP-3 VALUE 60.  DTSBR907
00093      05  WS-LINE-CNT4                PIC S9(02) COMP-3 VALUE +0.  DTSBR907
00094      05  WS-PAGE-CNT2                PIC S9(03) COMP-3 VALUE +0.  DTSBR907
00095                                                                   DTSBR907
00096  01  PAGE-HEADING1.                                               DTSBR907
00097      05  HDR1-LINE-1.                                             DTSBR907
00098          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR907
00099          10  FILLER                  PIC  X(05)                   DTSBR907
00100                 VALUE '907R1'.                                    DTSBR907
00101          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR907
00102          10  HDR1-AGY-NAME-LINE1     PIC  X(50).                  DTSBR907
00103          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR907
00104          10  FILLER                  PIC  X(05)                   DTSBR907
00105                 VALUE 'DATE:'.                                    DTSBR907
00106          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR907
00107          10  HDR1-SYS-DATE           PIC  X(08).                  DTSBR907
00108      05  HDR1-LINE-2.                                             DTSBR907
00109          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR907
00110          10  HDR1-AGY-NAME-LINE2     PIC  X(50).                  DTSBR907
00111          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR907
00112          10  FILLER                  PIC  X(05)                   DTSBR907
00113                 VALUE 'TIME:'.                                    DTSBR907
00114          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR907
00115          10  HDR1-SYS-TIME           PIC  X(08).                  DTSBR907
00116      05  HDR1-LINE-3.                                             DTSBR907
00117          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR907
00118          10  FILLER                  PIC  X(10)                   DTSBR907
00119                 VALUE 'ROUTE TO: '.                               DTSBR907
00120          10  HDR1-ROUTE-LOCATION     PIC  X(20).                  DTSBR907
00121          10  FILLER                  PIC  X(87)  VALUE SPACES.    DTSBR907
00122          10  FILLER                  PIC  X(05)                   DTSBR907
00123                 VALUE 'PAGE:'.                                    DTSBR907
00124          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR907
00125          10  HDR1-PAGE-CNT           PIC  ZZ,ZZ9.                 DTSBR907
00126      05  HDR1-LINE-4.                                             DTSBR907
00127          10  FILLER                  PIC  X(50)  VALUE SPACES.    DTSBR907
00128          10  FILLER                  PIC  X(30)                   DTSBR907
00129                 VALUE 'UNUSUAL CONDITIONS ENCOUNTERED'.           DTSBR907
00130      05  HDR1-LINE-5                 PIC  X(133) VALUE SPACES.    DTSBR907
00131      05  HDR1-LINE-6.                                             DTSBR907
00132          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR907
00133          10  FILLER                  PIC  X(03)                   DTSBR907
00134                 VALUE 'MSG'.                                      DTSBR907
00135          10  FILLER                  PIC  X(121) VALUE SPACES.    DTSBR907
00136          10  FILLER                  PIC  X(06)                   DTSBR907
00137                 VALUE 'MODULE'.                                   DTSBR907
00138      05  HDR1-LINE-7.                                             DTSBR907
00139          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR907
00140          10  FILLER                  PIC  X(25)                   DTSBR907
00141                 VALUE 'ID    EMP NO      MESSAGE'.                DTSBR907
00142          10  FILLER                  PIC  X(120) VALUE SPACES.    DTSBR907
00143          10  FILLER                  PIC  X(04)                   DTSBR907
00144                 VALUE 'NAME'.                                     DTSBR907
00145                                                                   DTSBR907
00146  01  DETAIL-LINE-P.                                               DTSBR907
00147      05  DTL1-LINE-2.                                             DTSBR907
00148          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR907
00149          10  DTL1-MSG-ID             PIC  X(03).                  DTSBR907
00150          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR907
00151          10  DTL1-EMP-NO             PIC  999B999.                DTSBR907
00152          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR907
00153          10  DTL1-MSG-TEXT           PIC  X(105).                 DTSBR907
00154          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR907
00155          10  DTL1-MODULE-NAME        PIC  X(08).                  DTSBR907
00156                                                                   DTSBR907
00157  01  CONTROL-FOOTING-FINAL1.                                      DTSBR907
00158      05  CTF1-LINE-3.                                             DTSBR907
00159          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR907
00160          10  FILLER                  PIC  X(17)                   DTSBR907
00161                 VALUE '*** END OF REPORT'.                        DTSBR907
00162                                                                   DTSBR907
00163  01  PAGE-HEADING2.                                               DTSBR907
00164      05  HDR2-LINE-1.                                             DTSBR907
00165          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR907
00166          10  FILLER                  PIC  X(05)                   DTSBR907
00167                 VALUE '907R2'.                                    DTSBR907
00168          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR907
00169          10  HDR2-AGY-NAME-LINE1     PIC  X(50).                  DTSBR907
00170          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR907
00171          10  FILLER                  PIC  X(05)                   DTSBR907
00172                 VALUE 'DATE:'.                                    DTSBR907
00173          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR907
00174          10  HDR2-SYS-DATE           PIC  X(08).                  DTSBR907
00175      05  HDR2-LINE-2.                                             DTSBR907
00176          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR907
00177          10  HDR2-AGY-NAME-LINE2     PIC  X(50).                  DTSBR907
00178          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR907
00179          10  FILLER                  PIC  X(05)                   DTSBR907
00180                 VALUE 'TIME:'.                                    DTSBR907
00181          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR907
00182          10  HDR2-SYS-TIME           PIC  X(08).                  DTSBR907
00183      05  HDR2-LINE-3.                                             DTSBR907
00184          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR907
00185          10  FILLER                  PIC  X(10)                   DTSBR907
00186                 VALUE 'ROUTE TO: '.                               DTSBR907
00187          10  HDR2-ROUTE-LOCATION     PIC  X(20).                  DTSBR907
00188          10  FILLER                  PIC  X(87)  VALUE SPACES.    DTSBR907
00189          10  FILLER                  PIC  X(05)                   DTSBR907
00190                 VALUE 'PAGE:'.                                    DTSBR907
00191          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR907
00192          10  HDR2-PAGE-CNT           PIC  ZZ,ZZ9.                 DTSBR907
00193      05  HDR2-LINE-4.                                             DTSBR907
00194          10  FILLER                  PIC  X(50)  VALUE SPACES.    DTSBR907
00195          10  FILLER                  PIC  X(30)                   DTSBR907
00196                 VALUE 'UNUSUAL CONDITIONS ENCOUNTERED'.           DTSBR907
00197      05  HDR2-LINE-5                 PIC  X(133) VALUE SPACES.    DTSBR907
00198      05  HDR2-LINE-6.                                             DTSBR907
00199          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR907
00200          10  FILLER                  PIC  X(03)                   DTSBR907
00201                 VALUE 'MSG'.                                      DTSBR907
00202          10  FILLER                  PIC  X(121) VALUE SPACES.    DTSBR907
00203          10  FILLER                  PIC  X(06)                   DTSBR907
00204                 VALUE 'MODULE'.                                   DTSBR907
00205      05  HDR2-LINE-7.                                             DTSBR907
00206          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR907
00207          10  FILLER                  PIC  X(25)                   DTSBR907
00208                 VALUE 'ID    EMP NO      MESSAGE'.                DTSBR907
00209          10  FILLER                  PIC  X(120) VALUE SPACES.    DTSBR907
00210          10  FILLER                  PIC  X(04)                   DTSBR907
00211                 VALUE 'NAME'.                                     DTSBR907
00212                                                                   DTSBR907
00213  01  DETAIL-LINE-U.                                               DTSBR907
00214      05  DTL2-LINE-2.                                             DTSBR907
00215          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR907
00216          10  DTL2-MSG-ID             PIC  X(03).                  DTSBR907
00217          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR907
00218          10  DTL2-EMP-NO             PIC  999B999.                DTSBR907
00219          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR907
00220          10  DTL2-MSG-TEXT           PIC  X(105).                 DTSBR907
00221          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR907
00222          10  DTL2-MODULE-NAME        PIC  X(08).                  DTSBR907
00223                                                                   DTSBR907
00224  01  CONTROL-FOOTING-FINAL2.                                      DTSBR907
00225      05  CTF2-LINE-3.                                             DTSBR907
00226          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR907
00227          10  FILLER                  PIC  X(17)                   DTSBR907
00228                 VALUE '*** END OF REPORT'.                        DTSBR907
00229                                                                   DTSBR907
00230  LINKAGE SECTION.                                                 DTSBR907
00231                                                                   DTSBR907
00232  01  LRCM-LINK-AREA.                                              DTSBR907
00233  ++INCLUDE  DTSILRCM                                              DTSBR907
00234      EJECT                                                        DTSBR907
00235  01  R907-REC.                                                    DTSBR907
00236  ++INCLUDE  DTSIR907                                              DTSBR907
00237      EJECT                                                        DTSBR907
00238  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR907
00239                           R907-REC.                               DTSBR907
00240                                                                   DTSBR907
00241      IF FIRST-TIME-IND = 'Y'                                      DTSBR907
00242          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR907
00243          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR907
00244                                                                   DTSBR907
00245      IF LRCM-EOR-88                                               DTSBR907
00246          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR907
00247      ELSE                                                         DTSBR907
00248          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR907
00249                                                                   DTSBR907
00250      GOBACK.                                                      DTSBR907
00251      EJECT                                                        DTSBR907
00252  I1000-INITIATE.                                                  DTSBR907
00253                                                                   DTSBR907
00254      OPEN OUTPUT PRT-FILE-PROG PRT-FILE-USERS.                    DTSBR907
00255                                                                   DTSBR907
00256      MOVE LRCM-SYS-DATE TO HDR1-SYS-DATE.                         DTSBR907
00257      MOVE LRCM-SYS-DATE TO HDR2-SYS-DATE.                         DTSBR907
00258      MOVE LRCM-SYS-TIME TO HDR1-SYS-TIME.                         DTSBR907
00259      MOVE LRCM-SYS-TIME TO HDR2-SYS-TIME.                         DTSBR907
00260      MOVE LRCM-AGY-NAME-LINE1 TO HDR1-AGY-NAME-LINE1.             DTSBR907
00261      MOVE LRCM-AGY-NAME-LINE1 TO HDR2-AGY-NAME-LINE1.             DTSBR907
00262      MOVE LRCM-AGY-NAME-LINE2 TO HDR1-AGY-NAME-LINE2.             DTSBR907
00263      MOVE LRCM-AGY-NAME-LINE2 TO HDR2-AGY-NAME-LINE2.             DTSBR907
00264      MOVE SPACES TO REPORT-LISTING1 REPORT-LISTING2.              DTSBR907
00265                                                                   DTSBR907
00266  I1000-EXIT.                                                      DTSBR907
00267      EXIT.                                                        DTSBR907
00268                                                                   DTSBR907
00269  P1000-PROCESS.                                                   DTSBR907
00270                                                                   DTSBR907
00271      MOVE 'CHIEF TAX DIVISION  ' TO HDR1-ROUTE-LOCATION.          DTSBR907
00272      MOVE R907-MSG-ID            TO DTL1-MSG-ID.                  DTSBR907
00273      MOVE R907-EMP-NO            TO DTL1-EMP-NO.                  DTSBR907
00274      MOVE R907-MSG-TEXT          TO DTL1-MSG-TEXT.                DTSBR907
00275      MOVE R907-MODULE-NAME       TO DTL1-MODULE-NAME.             DTSBR907
00276      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR907
00277      WRITE REPORT-LISTING1 FROM DTL1-LINE-2 AFTER 2.              DTSBR907
00278         ADD +2    TO WS-LINE-CNT2.                                DTSBR907
00279                                                                   DTSBR907
00280      MOVE 'CONTRIBUTIONS BUREAU' TO HDR2-ROUTE-LOCATION.          DTSBR907
00281      MOVE R907-MSG-ID            TO DTL2-MSG-ID.                  DTSBR907
00282      MOVE R907-EMP-NO            TO DTL2-EMP-NO.                  DTSBR907
00283      MOVE R907-MSG-TEXT          TO DTL2-MSG-TEXT.                DTSBR907
00284      MOVE R907-MODULE-NAME       TO DTL2-MODULE-NAME.             DTSBR907
00285      PERFORM P3000-PRINT-HEADER THRU P3000-EXIT.                  DTSBR907
00286      WRITE REPORT-LISTING2 FROM DTL2-LINE-2 AFTER 2.              DTSBR907
00287         ADD +2    TO WS-LINE-CNT4.                                DTSBR907
00288                                                                   DTSBR907
00289  P1000-EXIT.                                                      DTSBR907
00290      EXIT.                                                        DTSBR907
00291                                                                   DTSBR907
00292  P2000-PRINT-HEADER.                                              DTSBR907
00293                                                                   DTSBR907
00294      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR907
00295           WS-LINE-CNT2 GREATER 58                                 DTSBR907
00296         MOVE +0          TO WS-LINE-CNT                           DTSBR907
00297         MOVE +0          TO WS-LINE-CNT2                          DTSBR907
00298         ADD  +1          TO WS-PAGE-CNT                           DTSBR907
00299         MOVE WS-PAGE-CNT TO HDR1-PAGE-CNT                         DTSBR907
00300         WRITE REPORT-LISTING1 FROM HDR1-LINE-1                    DTSBR907
00301                 AFTER TOP-OF-PAGE                                 DTSBR907
00302         WRITE REPORT-LISTING1 FROM HDR1-LINE-2 AFTER 1            DTSBR907
00303         WRITE REPORT-LISTING1 FROM HDR1-LINE-3 AFTER 1            DTSBR907
00304         WRITE REPORT-LISTING1 FROM HDR1-LINE-4 AFTER 1            DTSBR907
00305         WRITE REPORT-LISTING1 FROM HDR1-LINE-5 AFTER 1            DTSBR907
00306         WRITE REPORT-LISTING1 FROM HDR1-LINE-6 AFTER 1            DTSBR907
00307         WRITE REPORT-LISTING1 FROM HDR1-LINE-7 AFTER 1            DTSBR907
00308         ADD +7    TO WS-LINE-CNT2.                                DTSBR907
00309                                                                   DTSBR907
00310  P2000-EXIT.                                                      DTSBR907
00311      EXIT.                                                        DTSBR907
00312                                                                   DTSBR907
00313  P3000-PRINT-HEADER.                                              DTSBR907
00314                                                                   DTSBR907
00315      IF WS-LINE-CNT3 GREATER 58 OR                                DTSBR907
00316           WS-LINE-CNT4 GREATER 58                                 DTSBR907
00317         MOVE +0          TO WS-LINE-CNT3                          DTSBR907
00318         MOVE +0          TO WS-LINE-CNT4                          DTSBR907
00319         ADD  +1          TO WS-PAGE-CNT2                          DTSBR907
00320         MOVE WS-PAGE-CNT2 TO HDR2-PAGE-CNT                        DTSBR907
00321         WRITE REPORT-LISTING2 FROM HDR2-LINE-1                    DTSBR907
00322                 AFTER TOP-OF-PAGE                                 DTSBR907
00323         WRITE REPORT-LISTING2 FROM HDR2-LINE-2 AFTER 1            DTSBR907
00324         WRITE REPORT-LISTING2 FROM HDR2-LINE-3 AFTER 1            DTSBR907
00325         WRITE REPORT-LISTING2 FROM HDR2-LINE-4 AFTER 1            DTSBR907
00326         WRITE REPORT-LISTING2 FROM HDR2-LINE-5 AFTER 1            DTSBR907
00327         WRITE REPORT-LISTING2 FROM HDR2-LINE-6 AFTER 1            DTSBR907
00328         WRITE REPORT-LISTING2 FROM HDR2-LINE-7 AFTER 1            DTSBR907
00329         ADD +7    TO WS-LINE-CNT4.                                DTSBR907
00330                                                                   DTSBR907
00331  P3000-EXIT.                                                      DTSBR907
00332      EXIT.                                                        DTSBR907
00333                                                                   DTSBR907
00334  T1000-TERMINATE.                                                 DTSBR907
00335                                                                   DTSBR907
00336         WRITE REPORT-LISTING1 FROM CTF1-LINE-3 AFTER 3.           DTSBR907
00337         WRITE REPORT-LISTING2 FROM CTF2-LINE-3 AFTER 3.           DTSBR907
00338      CLOSE PRT-FILE-PROG PRT-FILE-USERS.                          DTSBR907
00339                                                                   DTSBR907
00340  T1000-EXIT.                                                      DTSBR907
00341      EXIT.                                                        DTSBR907
00342                                                                   DTSBR907
00343 *S999-ABEND.                                                      DTSBR907
00344 *    SKIP1                                                        DTSBR907
00345 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR907
00346 *    SKIP2                                                        DTSBR907
00347 *S999-EXIT.                                                       DTSBR907
00348 *    EXIT.                                                        DTSBR907
