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