00001  IDENTIFICATION DIVISION.                                         11/29/01
00002  PROGRAM-ID.             DTSBR708.                                DTSBR708
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV014
00004  DATE-WRITTEN.           DECEMBER 1994.                           DTSBR708
00005  DATE-COMPILED.                                                   DTSBR708
00006                                                                   DTSBR708
00007 *****                                                             DTSBR708
00008 *                                                                 DTSBR708
00009 *    FUNCTION:  FUTA POTENTIAL NON-FEDERAL FILERS.                DTSBR708
00010 *                                                                 DTSBR708
00011 *                                                                 DTSBR708
00012 *    MODIFICATION HISTORY:                                        DTSBR708
00013 *                                                                 DTSBR708
00014 * 12-09-94 INITIAL DEVELOPMENT                                    DTSBR708
00015 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR708
00016 *                                                                 DTSBR708
00017 * 11-13-97 TAX YEAR 1996 MODIFICATIONS.  FOUR DIGIT YEAR.         DTSBR708
00018 *          REFERENCE RFP #TCL 222         AUTHOR OF CHANGE - EHH  DTSBR708
00019 *                                                                 DTSBR708
00020 * 10/19/1998 ADD TWO NEW "PAYMENT" DATA ELEMENTS ('THRU 4/15'     DTSBR708
00021 *            & 'AFTER 4/15').  USED 'COBOL FOR MVS' COMPILE.      DTSBR708
00022 *            REFERENCE: TCL 237                  PROGRAMMER: KDN  DTSBR708
00023 *                                                                 DTSBR708
00024 * MM-DD-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR708
00025 *            XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR708
00026 *            REFERENCE: XXX                      PROGRAMMER: XXX  DTSBR708
00027 *                                                                 DTSBR708
00028 *                                                                 DTSBR708
00029 *    DESCRIPTION:                                                 DTSBR708
00030 *                                                                 DTSBR708
00031 *        THIS MODULE GENERATES A DETAIL LINE FOR EVERY EMPLOYER   DTSBR708
00032 *        ON THE MONTANA TAX SYSTEM MASTER FILE WITH WAGES IN ONE  DTSBR708
00033 *        OR MORE QUARTERS OF THE PROCESSING YEAR BUT NO MATCH ON  DTSBR708
00034 *        THE IRS FORM 940 IDENTIFICATION TAPE DURING YEARLY FUTA  DTSBR708
00035 *        PROCESSING.                                              DTSBR708
00036 *                                                                 DTSBR708
00037 *                                                                 DTSBR708
00038 *    RECORDS READ:                                                DTSBR708
00039 *                                                                 DTSBR708
00040 *        NONE.                                                    DTSBR708
00041 *                                                                 DTSBR708
00042 *                                                                 DTSBR708
00043 *    PRINTED OUTPUTS:                                             DTSBR708
00044 *                                                                 DTSBR708
00045 *        708R1  FUTA POTENTIAL NON-FEDERAL FILERS                 DTSBR708
00046 *                                                                 DTSBR708
00047 *                                                                 DTSBR708
00048 *    RECORDS WRITTEN:                                             DTSBR708
00049 *                                                                 DTSBR708
00050 *        NONE.                                                    DTSBR708
00051 *                                                                 DTSBR708
00052 *                                                                 DTSBR708
00053 *    MODULES CALLED:                                              DTSBR708
00054 *                                                                 DTSBR708
00055 *        DTSBU056 RATE DISPLAY MODULE                             DTSBR708
00056 *                                                                 DTSBR708
00057 *                                                                 DTSBR708
00058 *****                                                             DTSBR708
00059                                                                   DTSBR708
00060  ENVIRONMENT DIVISION.                                            DTSBR708
00061                                                                   DTSBR708
00062  CONFIGURATION SECTION.                                           DTSBR708
00063  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR708
00064                                                                   DTSBR708
00065  INPUT-OUTPUT SECTION.                                            DTSBR708
00066                                                                   DTSBR708
00067  FILE-CONTROL.                                                    DTSBR708
00068      SELECT PRT-FILE ASSIGN TO RPT708R1.                          DTSBR708
00069                                                                   DTSBR708
00070  DATA DIVISION.                                                   DTSBR708
00071                                                                   DTSBR708
00072  FILE SECTION.                                                    DTSBR708
00073                                                                   DTSBR708
00074  FD  PRT-FILE                                                     DTSBR708
00075      RECORDING MODE IS F.                                         DTSBR708
00076  01  REPORT-LISTING1                 PIC  X(133).                 DTSBR708
00077                                                                   DTSBR708
00078  WORKING-STORAGE SECTION.                                         DTSBR708
000785 77  PAN-VALET PICTURE X(24) VALUE '014DTSBR708  11/29/01'.       DTSBR708
00079                                                                   DTSBR708
00080  01  WRK-AREA.                                                    DTSBR708
00081      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +708.DTSBR708
00082      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR708
00083      05  WS-SUB                      PIC S9(04)  COMP.            DTSBR708
00084      05  WS-TAX-PERIOD               PIC  9(07).                  DTSBR708
00085      05  WS-NUMBER-ONE               PIC S9(05)  COMP-3 VALUE +0. DTSBR708
00086                                                                   DTSBR708
00087      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR708
00088      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR708
00089      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR708
00090                                                                   DTSBR708
00091      05  WS-WAGE-RATE-DISPLAY-TABLE.                              DTSBR708
00092          10  WS-DISPLAY-OCCURS OCCURS 4 TIMES.                    DTSBR708
00093              15  WS-TAX-WAGE-DISPLAY                              DTSBR708
00094                                      PIC X(16).                   DTSBR708
00095              15  WS-TAX-WAGE-EDIT                                 DTSBR708
00096                     REDEFINES WS-TAX-WAGE-DISPLAY                 DTSBR708
00097                                      PIC ZZZZZ,ZZZ,ZZ9.99.        DTSBR708
00098              15  WS-RATE-DISPLAY     PIC  X(07).                  DTSBR708
00099                                                                   DTSBR708
00100  01  L056-LINK-AREA.                                              DTSBR708
00101  ++INCLUDE DTSIL056                                               DTSBR708
00102      EJECT                                                        DTSBR708
00103                                                                   DTSBR708
00104  01  PAGE-HEADING.                                                DTSBR708
00105      05  HDR-LINE-1.                                              DTSBR708
00106          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR708
00107          10  FILLER                  PIC  X(05)                   DTSBR708
00108                 VALUE '708R1'.                                    DTSBR708
00109          10  FILLER                  PIC  X(35)  VALUE SPACES.    DTSBR708
00110          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR708
00111          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR708
00112          10  FILLER                  PIC  X(05)                   DTSBR708
00113                 VALUE 'DATE:'.                                    DTSBR708
00114          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR708
00115          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR708
00116                                                                   DTSBR708
00117      05  HDR-LINE-2.                                              DTSBR708
00118          10  FILLER                  PIC  X(41)  VALUE SPACES.    DTSBR708
00119          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR708
00120          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR708
00121          10  FILLER                  PIC  X(05)                   DTSBR708
00122                 VALUE 'TIME:'.                                    DTSBR708
00123          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR708
00124          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR708
00125                                                                   DTSBR708
00126      05  HDR-LINE-3.                                              DTSBR708
00127          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR708
00128          10  FILLER                  PIC  X(29)                   DTSBR708
00129                 VALUE 'ROUTE TO: CHIEF, TAX DIVISION'.            DTSBR708
00130          10  FILLER                  PIC  X(89)  VALUE SPACES.    DTSBR708
00131          10  FILLER                  PIC  X(05)                   DTSBR708
00132                 VALUE 'PAGE:'.                                    DTSBR708
00133          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR708
00134          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR708
00135                                                                   DTSBR708
00136      05  HDR-LINE-4.                                              DTSBR708
00137          10  FILLER                  PIC  X(12)  VALUE SPACES.    DTSBR708
00138          10  FILLER                  PIC  X(20)                   DTSBR708
00139                 VALUE '                    '.                     DTSBR708
00140          10  FILLER                  PIC  X(18)  VALUE SPACES.    DTSBR708
00141          10  FILLER                  PIC  X(33)                   DTSBR708
00142                VALUE 'FUTA POTENTIAL NON-FEDERAL FILERS'.         DTSBR708
00143                                                                   DTSBR708
00144      05  HDR-LINE-5                  PIC  X(133) VALUE SPACES.    DTSBR708
00145      05  HDR-LINE-6                  PIC  X(133) VALUE SPACES.    DTSBR708
00146      05  HDR-LINE-7.                                              DTSBR708
00147          10  FILLER                  PIC  X(24)  VALUE SPACES.    DTSBR708
00148          10  FILLER                  PIC  X(03)                   DTSBR708
00149                 VALUE 'TAX'.                                      DTSBR708
00150          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR708
00151          10  FILLER                  PIC  X(08)                   DTSBR708
00152                 VALUE 'PAYMENTS'.                                 DTSBR708
00153          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR708
00154          10  FILLER                  PIC  X(08)                   DTSBR708
00155                 VALUE 'PAYMENTS'.                                 DTSBR708
00156          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR708
00157          10  FILLER                  PIC  X(08)                   DTSBR708
00158                 VALUE 'PAYMENTS'.                                 DTSBR708
00159          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR708
00160          10  FILLER                  PIC  X(17)                   DTSBR708
00161                 VALUE 'TAX WAGES @ RTE 1'.                        DTSBR708
00162          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR708
00163          10  FILLER                  PIC  X(17)                   DTSBR708
00164                 VALUE 'TAX WAGES @ RTE 2'.                        DTSBR708
00165                                                                   DTSBR708
00166      05  HDR-LINE-8.                                              DTSBR708
00167          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR708
00168          10  FILLER                  PIC  X(26)                   DTSBR708
00169                 VALUE ' EMP NO     FEIN       PER'.               DTSBR708
00170          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR708
00171          10  FILLER                  PIC  X(11)                   DTSBR708
00172                 VALUE 'PRIOR 02/01'.                              DTSBR708
00173          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR708
00174          10  FILLER                  PIC  X(11)                   DTSBR708
00175                 VALUE '02/01-02/10'.                              DTSBR708
00176          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR708
00177          10  FILLER                  PIC  X(11)                   DTSBR708
00178                 VALUE 'AFTER 02/10'.                              DTSBR708
00179          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR708
00180          10  FILLER                  PIC  X(17)                   DTSBR708
00181                 VALUE 'TAX WAGES @ RTE 3'.                        DTSBR708
00182          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR708
00183          10  FILLER                  PIC  X(17)                   DTSBR708
00184                 VALUE 'TAX WAGES @ RTE 4'.                        DTSBR708
00185                                                                   DTSBR708
00186  01  DETAIL-LINE1.                                                DTSBR708
00187      05  DTL1-LINE-2.                                             DTSBR708
00188          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR708
00189          10  DTL1-EMP-NO             PIC  999B999.                DTSBR708
00190          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR708
00191          10  DTL1-FEIN               PIC  99B9(07).               DTSBR708
00192          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR708
00193          10  DTL1-TAX-PERIOD-4       PIC  9(04).                  DTSBR708
00194          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR708
00195          10  DTL1-ONTIME             PIC  ZZ,ZZZ,ZZ9.99.          DTSBR708
00196          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR708
00197          10  DTL1-GRACE              PIC  ZZ,ZZZ,ZZ9.99.          DTSBR708
00198          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR708
00199          10  DTL1-LATE               PIC  ZZ,ZZZ,ZZ9.99.          DTSBR708
00200          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR708
00201          10  DTL1-TAX-WAGE-DIS-1     PIC  X(16).                  DTSBR708
00202          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR708
00203          10  DTL1-RATE-DIS-1         PIC  X(04).                  DTSBR708
00204          10  DTL1-TAX-WAGE-DIS-2     PIC  X(16).                  DTSBR708
00205          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR708
00206          10  DTL1-RATE-DIS-2         PIC  X(04).                  DTSBR708
00207                                                                   DTSBR708
00208  01  DETAIL-LINE2.                                                DTSBR708
00209      05  DTL2-LINE-1.                                             DTSBR708
00210          10  FILLER                  PIC  X(76)  VALUE SPACES.    DTSBR708
00211          10  DTL2-TAX-WAGE-DIS-3     PIC  X(16).                  DTSBR708
00212          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR708
00213          10  DTL2-RATE-DIS-3         PIC  X(04).                  DTSBR708
00214          10  DTL2-TAX-WAGE-DIS-4     PIC  X(16).                  DTSBR708
00215          10  FILLER                  PIC  X(02)  VALUE SPACES.    DTSBR708
00216          10  DTL2-RATE-DIS-4         PIC  X(04).                  DTSBR708
00217                                                                   DTSBR708
00218  01  CONTROL-FOOTING-FINAL.                                       DTSBR708
00219      05  CFF-LINE-4.                                              DTSBR708
00220          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR708
00221          10  CFF-NUMBER-ONE          PIC  ZZZZ,ZZ9.               DTSBR708
00222          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR708
00223          10  FILLER                  PIC  X(28)                   DTSBR708
00224                 VALUE 'POTENTIAL NON-FEDERAL FILERS'.             DTSBR708
00225                                                                   DTSBR708
00226      EJECT                                                        DTSBR708
00227  LINKAGE SECTION.                                                 DTSBR708
00228                                                                   DTSBR708
00229  01  LRCM-LINK-AREA.                                              DTSBR708
00230  ++INCLUDE DTSILRCM                                               DTSBR708
00231      EJECT                                                        DTSBR708
00232  01  R708-REC.                                                    DTSBR708
00233  ++INCLUDE DTSIR708                                               DTSBR708
00234      EJECT                                                        DTSBR708
00235  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR708
00236                           R708-REC.                               DTSBR708
00237                                                                   DTSBR708
00238      IF FIRST-TIME-IND = 'Y'                                      DTSBR708
00239          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR708
00240          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR708
00241                                                                   DTSBR708
00242      IF LRCM-EOR-88                                               DTSBR708
00243          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR708
00244      ELSE                                                         DTSBR708
00245          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR708
00246                                                                   DTSBR708
00247      GOBACK.                                                      DTSBR708
00248                                                                   DTSBR708
00249  I1000-INITIATE.                                                  DTSBR708
00250                                                                   DTSBR708
00251      OPEN OUTPUT PRT-FILE.                                        DTSBR708
00252      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR708
00253      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR708
00254      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR708
00255      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR708
00256      MOVE SPACES TO REPORT-LISTING1.                              DTSBR708
00257                                                                   DTSBR708
00258  I1000-EXIT.                                                      DTSBR708
00259      EXIT.                                                        DTSBR708
00260                                                                   DTSBR708
00261  P1000-PROCESS.                                                   DTSBR708
00262                                                                   DTSBR708
00263      MOVE R708-TAX-PERIOD  TO WS-TAX-PERIOD.                      DTSBR708
00264                                                                   DTSBR708
00265      PERFORM                                                      DTSBR708
00266         VARYING WS-SUB FROM +1 BY +1                              DTSBR708
00267         UNTIL WS-SUB > R708-WAGE-RATE-CNT                         DTSBR708
00268          MOVE R708-TAX-WAGE (WS-SUB)                              DTSBR708
00269             TO WS-TAX-WAGE-EDIT (WS-SUB)                          DTSBR708
00270          MOVE R708-RATE (WS-SUB) TO L056-RATE                     DTSBR708
00271          SET L056-DISP1-LEFT-88 TO TRUE                           DTSBR708
00272          PERFORM S056-RATE-DISPLAY THRU S056-EXIT                 DTSBR708
00273          MOVE L056-DISP-RATE TO WS-RATE-DISPLAY (WS-SUB)          DTSBR708
00274      END-PERFORM.                                                 DTSBR708
00275                                                                   DTSBR708
00276      MOVE R708-EMP-NO             TO DTL1-EMP-NO.                 DTSBR708
00277      MOVE R708-FEIN               TO DTL1-FEIN.                   DTSBR708
00278      MOVE WS-TAX-PERIOD (2:4)     TO DTL1-TAX-PERIOD-4.           DTSBR708
00279      MOVE R708-ONTIME             TO DTL1-ONTIME.                 DTSBR708
00280      MOVE R708-GRACE              TO DTL1-GRACE.                  DTSBR708
00281      MOVE R708-LATE               TO DTL1-LATE.                   DTSBR708
00282      MOVE WS-TAX-WAGE-EDIT (1)    TO DTL1-TAX-WAGE-DIS-1.         DTSBR708
00283      MOVE WS-RATE-DISPLAY (1) (1:4)  TO DTL1-RATE-DIS-1.          DTSBR708
00284      MOVE WS-TAX-WAGE-EDIT (2)    TO DTL1-TAX-WAGE-DIS-2.         DTSBR708
00285      MOVE WS-RATE-DISPLAY (2) (1:4)  TO DTL1-RATE-DIS-2.          DTSBR708
00286      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR708
00287      WRITE REPORT-LISTING1 FROM DTL1-LINE-2 AFTER 2.              DTSBR708
00288      ADD +2    TO WS-LINE-CNT2.                                   DTSBR708
00289      ADD +1    TO WS-NUMBER-ONE.                                  DTSBR708
00290                                                                   DTSBR708
00291      IF WS-TAX-WAGE-EDIT (3) > 0 OR                               DTSBR708
00292         WS-TAX-WAGE-EDIT (4) > 0                                  DTSBR708
00293         MOVE WS-TAX-WAGE-EDIT (3)    TO DTL2-TAX-WAGE-DIS-3       DTSBR708
00294         MOVE WS-RATE-DISPLAY (3) (1:4)  TO DTL2-RATE-DIS-3        DTSBR708
00295         MOVE WS-TAX-WAGE-EDIT (4)    TO DTL2-TAX-WAGE-DIS-4       DTSBR708
00296         MOVE WS-RATE-DISPLAY (4) (1:4)  TO DTL2-RATE-DIS-4        DTSBR708
00297         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT                DTSBR708
00298         WRITE REPORT-LISTING1 FROM DTL2-LINE-1 AFTER 1            DTSBR708
00299         ADD +1    TO WS-LINE-CNT2.                                DTSBR708
00300                                                                   DTSBR708
00301  P1000-EXIT.                                                      DTSBR708
00302      EXIT.                                                        DTSBR708
00303                                                                   DTSBR708
00304  P2000-PRINT-HEADER.                                              DTSBR708
00305                                                                   DTSBR708
00306      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR708
00307           WS-LINE-CNT2 GREATER 58                                 DTSBR708
00308         MOVE +0          TO WS-LINE-CNT                           DTSBR708
00309         MOVE +0          TO WS-LINE-CNT2                          DTSBR708
00310         ADD  +1          TO WS-PAGE-CNT                           DTSBR708
00311         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR708
00312         WRITE REPORT-LISTING1 FROM HDR-LINE-1                     DTSBR708
00313                 AFTER TOP-OF-PAGE                                 DTSBR708
00314         WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1             DTSBR708
00315         WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1             DTSBR708
00316         WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1             DTSBR708
00317         WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1             DTSBR708
00318         WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1             DTSBR708
00319         WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1             DTSBR708
00320         WRITE REPORT-LISTING1 FROM HDR-LINE-8 AFTER 1             DTSBR708
00321         ADD +8    TO WS-LINE-CNT2.                                DTSBR708
00322                                                                   DTSBR708
00323  P2000-EXIT.                                                      DTSBR708
00324      EXIT.                                                        DTSBR708
00325                                                                   DTSBR708
00326  T1000-TERMINATE.                                                 DTSBR708
00327                                                                   DTSBR708
00328      IF WS-LINE-CNT2 > 52                                         DTSBR708
00329         MOVE +60 TO WS-LINE-CNT2                                  DTSBR708
00330         PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.               DTSBR708
00331                                                                   DTSBR708
00332      MOVE WS-NUMBER-ONE  TO CFF-NUMBER-ONE.                       DTSBR708
00333      WRITE REPORT-LISTING1 FROM CFF-LINE-4 AFTER 4.               DTSBR708
00334                                                                   DTSBR708
00335      CLOSE PRT-FILE.                                              DTSBR708
00336                                                                   DTSBR708
00337  T1000-EXIT.                                                      DTSBR708
00338      EXIT.                                                        DTSBR708
00339      EJECT                                                        DTSBR708
00340  S056-RATE-DISPLAY.                                               DTSBR708
00341                                                                   DTSBR708
00342      CALL 'DTSBU056' USING L056-LINK-AREA.                        DTSBR708
00343                                                                   DTSBR708
00344  S056-EXIT.                                                       DTSBR708
00345      EXIT.                                                        DTSBR708
00346                                                                   DTSBR708
00347 *S999-ABEND.                                                      DTSBR708
00348 *    SKIP1                                                        DTSBR708
00349 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR708
00350 *    SKIP2                                                        DTSBR708
00351 *S999-EXIT.                                                       DTSBR708
00352 *    EXIT.                                                        DTSBR708
00353                                                                   DTSBR708
