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