00001 IDENTIFICATION DIVISION. 07/05/02 00002 PROGRAM-ID. DTSBR980. CHGBR980 00003 AUTHOR. DC DEPT OF UI PROGRAMMING SECTION LV051 00004 DATE-WRITTEN. MARCH 2000. CHGBR980 00005 DATE-COMPILED. CHGBR980 00006 CHGBR980 00007 ***** CHGBR980 00008 * CALLING SEQUENCE: DTSBD800 GENERATES REPORT COUNTS CHGBR980 00009 * CALLS DTSBR980 FOR A FORMATTED REPORT. CHGBR980 00010 * CHGBR980 00011 * FUNCTION: GENERATE SUMMARY CONTROL REPORT FOR PRINTING. CHGBR980 00012 * CHGBR980 00013 * MODIFICATION HISTORY: CHGBR980 00014 * CHGBR980 00015 * 08-14-00 X'FER FROM REPORT WRITER TO COBOL II CHGBR980 00016 * CHANGE - JHP CHGBR980 00017 * CHGBR980 00018 * 03-07-00 INITIAL DEVELOPMENT FOR DOES CHGBR980 00019 * NEEDED FOR OPS BY CLIENT STAFF CHANGE - JHP CHGBR980 00020 * CHGBR980 00021 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CHGBR980 00022 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CHGBR980 00023 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX CHGBR980 00024 * CHGBR980 00025 * DESCRIPTION: CHGBR980 00026 * CHGBR980 00027 * THIS MODULE PRINTS A FORMATTED REPORT SHOWING THE CHGBR980 00028 * NUMBER OF ITEMS FOR EACH REPORT PRODUCED BY DTSBD800. CHGBR980 00029 * CHGBR980 00030 * RECORDS READ: CHGBR980 00031 * CHGBR980 00032 * NONE. CHGBR980 00033 * ALL INPUT IS PASSED WITH DTSIL980 CHGBR980 00034 * AND DTSIR980 CHGBR980 00035 * CHGBR980 00036 * PRINTED OUTPUTS: CHGBR980 00037 * CHGBR980 00038 * 980R1 PRINT SUMMARY REPORT. CHGBR980 00039 * CHGBR980 00040 * RECORDS WRITTEN: CHGBR980 00041 * CHGBR980 00042 * NONE. CHGBR980 00043 * CHGBR980 00044 * MODULES CALLED: CHGBR980 00045 * CHGBR980 00046 * NONE CHGBR980 00047 * CHGBR980 00048 ***** CHGBR980 00049 EJECT CHGBR980 00050 ENVIRONMENT DIVISION. CHGBR980 00051 CHGBR980 00052 INPUT-OUTPUT SECTION. CHGBR980 00053 CHGBR980 00054 FILE-CONTROL. CHGBR980 00055 SELECT PRT-FILE ASSIGN TO RPT980R1. CHGBR980 00056 CHGBR980 00057 DATA DIVISION. CHGBR980 00058 CHGBR980 00059 FILE SECTION. CHGBR980 00060 CHGBR980 00061 FD PRT-FILE CHGBR980 00062 LABEL RECORDS ARE OMITTED CHGBR980 00063 RECORDING MODE IS F. CHGBR980 00064 01 PRINT-RECORD PIC X(133). CHGBR980 00065 EJECT CHGBR980 00066 WORKING-STORAGE SECTION. CHGBR980 000665 77 PAN-VALET PICTURE X(24) VALUE '051CHGBR980 07/05/02'. CHGBR980 00067 CHGBR980 00068 01 WRK-AREA. CHGBR980 00069 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +980.CHGBR980 00070 05 WRK-FIRST-TIME-IND PIC X(01) VALUE 'Y'. CHGBR980 00071 05 WRK-ROUTE-LOCATION-1 PIC X(25) CHGBR980 00072 VALUE 'UI TAX - DP OPS SUPPORT '. CHGBR980 00073 05 WRK-ROUTE-LOCATION-2 PIC X(25) CHGBR980 00074 VALUE SPACES. CHGBR980 00075 05 WRK-NDX-1 PIC S9(04) COMP. CHGBR980 00076 05 WRK-PAGE-CNT PIC S9(04) COMP VALUE 1. CHGBR980 00077 05 WRK-HDR-CNT PIC S9(04) COMP VALUE 7. CHGBR980 00078 05 WRK-LINE-CNT PIC S9(04) COMP VALUE 0. CHGBR980 00079 CHGBR980 00080 01 WRK-TBL-AREA. CHGBR980 00081 05 WRK-TBL-CLASS-1. CHGBR980 00082 10 WRK-TBL-CLS-0 PIC X(15) VALUE 'AC.EI. OP.QW.ZX'. CHGBR980 00083 10 WRK-TBL-CLS-A PIC X(15) VALUE 'A . . . . '. CHGBR980 00084 10 WRK-TBL-CLS-C PIC X(15) VALUE ' C. . . . '. CHGBR980 00085 10 WRK-TBL-CLS-E PIC X(15) VALUE ' .E . . . '. CHGBR980 00086 10 WRK-TBL-CLS-I PIC X(15) VALUE ' . I. . . '. CHGBR980 00087 *** 10 WRK-TBL-CLS-J PIC X(15) VALUE ' . .J . . '. CHGBR980 00088 10 WRK-TBL-CLS-O PIC X(15) VALUE ' . . O . . '. CHGBR980 00089 10 WRK-TBL-CLS-P PIC X(15) VALUE ' . . P. . '. CHGBR980 00090 10 WRK-TBL-CLS-Q PIC X(15) VALUE ' . . .Q . '. CHGBR980 00091 10 WRK-TBL-CLS-W PIC X(15) VALUE ' . . . W. '. CHGBR980 00092 10 WRK-TBL-CLS-Z PIC X(15) VALUE ' . . . .Z '. CHGBR980 00093 10 WRK-TBL-CLS-X PIC X(15) VALUE ' . . . . X'. CHGBR980 00094 10 WRK-TBL-CLS-SP1 CHGBR980 00095 PIC X(15) VALUE ' . . . W.Z '. CHGBR980 00096 10 WRK-TBL-CLS-SP2 CHGBR980 00097 PIC X(15) VALUE ' .E . . .Z '. CHGBR980 00098 10 WRK-TBL-CLS-SP3 CHGBR980 00099 PIC X(15) VALUE ' . I. . W. '. CHGBR980 00100 10 WRK-TBL-CLS-SP4 CHGBR980 00101 PIC X(15) VALUE ' . . O . . X'. CHGBR980 00102 01 WRK-PRT-AREA. CHGBR980 00103 05 WRK-PRT-HDR-01. CHGBR980 00104 10 FILLER PIC X(01) VALUE SPACE. CHGBR980 00105 10 FILLER PIC X(08) VALUE 'CHG980R1'. CHGBR980 00106 10 FILLER PIC X(32) VALUE SPACE. CHGBR980 00107 10 WRK-PRT-AGNCY-NAMELINE-1 CHGBR980 00108 PIC X(50) VALUE SPACE. CHGBR980 00109 10 FILLER PIC X(28) VALUE SPACE. CHGBR980 00110 10 FILLER PIC X(06) VALUE 'DATE: '. CHGBR980 00111 10 WRK-PRT-SYS-DATE CHGBR980 00112 PIC X(08) VALUE SPACE. CHGBR980 00113 05 WRK-PRT-HDR-02. CHGBR980 00114 10 FILLER PIC X(01) VALUE SPACE. CHGBR980 00115 10 FILLER PIC X(40) VALUE SPACE. CHGBR980 00116 10 WRK-PRT-AGNCY-NAMELINE-2 CHGBR980 00117 PIC X(50) VALUE SPACE. CHGBR980 00118 10 FILLER PIC X(28) VALUE SPACE. CHGBR980 00119 10 FILLER PIC X(06) VALUE 'TIME: '. CHGBR980 00120 10 WRK-PRT-SYS-TIME CHGBR980 00121 PIC X(08) VALUE SPACE. CHGBR980 00122 05 WRK-PRT-HDR-03. CHGBR980 00123 10 FILLER PIC X(01) VALUE SPACE. CHGBR980 00124 10 FILLER PIC X(10) VALUE 'ROUTE TO: '. CHGBR980 00125 10 WRK-PRT-RTE-LOCATION-1 CHGBR980 00126 PIC X(25) VALUE SPACE. CHGBR980 00127 10 FILLER PIC X(83) VALUE SPACE. CHGBR980 00128 10 FILLER PIC X(06) VALUE 'PAGE: '. CHGBR980 00129 10 WRK-PRT-PAGE PIC BBZZ,ZZ9. CHGBR980 00130 05 WRK-PRT-HDR-04. CHGBR980 00131 10 FILLER PIC X(01) VALUE SPACE. CHGBR980 00132 10 FILLER PIC X(10) VALUE SPACE. CHGBR980 00133 10 WRK-PRT-RTE-LOCATION-2 CHGBR980 00134 PIC X(25) VALUE SPACE. CHGBR980 00135 10 FILLER PIC X(16) VALUE SPACE. CHGBR980 00136 10 FILLER PIC X(27) CHGBR980 00137 VALUE ' CONTROL REPORT SUMMARY '. CHGBR980 00138 10 FILLER PIC X(54) VALUE SPACE. CHGBR980 00139 05 WRK-PRT-HDR-05. CHGBR980 00140 10 FILLER PIC X(01) VALUE SPACE. CHGBR980 00141 10 FILLER PIC X(40) CHGBR980 00142 VALUE ' PRINT-CLASS QUANTITY '. CHGBR980 00143 10 FILLER PIC X(40) CHGBR980 00144 VALUE ' '. CHGBR980 00145 10 FILLER PIC X(40) CHGBR980 00146 VALUE ' '. CHGBR980 00147 05 WRK-PRT-HDR-06. CHGBR980 00148 10 FILLER PIC X(01) VALUE SPACE. CHGBR980 00149 10 FILLER PIC X(07) VALUE SPACE. CHGBR980 00150 10 WRK-PRT-TBL-CLS-O CHGBR980 00151 PIC X(15) VALUE SPACE. CHGBR980 00152 10 FILLER PIC X(50) VALUE SPACE. CHGBR980 00153 10 FILLER PIC X(60) VALUE SPACE. CHGBR980 00154 CHGBR980 00155 05 WRK-PRT-DETAIL-01. CHGBR980 00156 10 FILLER PIC X(01) VALUE SPACE. CHGBR980 00157 10 FILLER PIC X(03) VALUE 'RPT'. CHGBR980 00158 10 WRK-PRT-NDX PIC 9(03). CHGBR980 00159 10 FILLER PIC X(01) VALUE SPACE. CHGBR980 00160 10 WRK-PRT-CLASS CHGBR980 00161 PIC X(15) VALUE SPACE. CHGBR980 00162 10 FILLER PIC X(02) VALUE SPACE. CHGBR980 00163 10 WRK-PRT-L980-REC-CNT CHGBR980 00164 PIC Z,ZZZ,ZZZ. CHGBR980 00165 10 FILLER PIC X(01) VALUE SPACE. CHGBR980 00166 10 WRK-PRT-TBL-DESC CHGBR980 00167 PIC X(60) VALUE SPACE. CHGBR980 00168 05 WRK-PRT-BLANK-LINE. CHGBR980 00169 10 FILLER PIC X(70) VALUE SPACE. CHGBR980 00170 10 FILLER PIC X(63) VALUE SPACE. CHGBR980 00171 ++INCLUDE DTSIR980 CHGBR980 00172 EJECT CHGBR980 00173 CHGBR980 00174 LINKAGE SECTION. CHGBR980 00175 CHGBR980 00176 01 LRCM-LINK-AREA. CHGBR980 00177 ++INCLUDE DTSILRCM CHGBR980 00178 CHGBR980 00179 01 L980-LINK-AREA. CHGBR980 00180 ++INCLUDE DTSIL980 CHGBR980 00181 EJECT CHGBR980 00182 PROCEDURE DIVISION USING LRCM-LINK-AREA, CHGBR980 00183 L980-LINK-AREA. CHGBR980 00184 CHGBR980 00185 IF WRK-FIRST-TIME-IND = 'Y' CHGBR980 00186 PERFORM I1000-INITIATE CHGBR980 00187 THRU I1000-EXIT CHGBR980 00188 MOVE 'N' TO WRK-FIRST-TIME-IND. CHGBR980 00189 CHGBR980 00190 PERFORM P1000-PROCESS THRU P1000-EXIT. CHGBR980 00191 CHGBR980 00192 PERFORM T1000-TERMINATE THRU T1000-EXIT. CHGBR980 00193 CHGBR980 00194 GOBACK. CHGBR980 00195 EJECT CHGBR980 00196 I1000-INITIATE. CHGBR980 00197 CHGBR980 00198 OPEN OUTPUT PRT-FILE. CHGBR980 00199 CHGBR980 00200 PERFORM I1010-HEADERS THRU I1010-EXIT. CHGBR980 00201 CHGBR980 00202 I1000-EXIT. CHGBR980 00203 EXIT. CHGBR980 00204 CHGBR980 00205 I1010-HEADERS. CHGBR980 00206 CHGBR980 00207 MOVE LRCM-AGY-NAME-LINE1 TO WRK-PRT-AGNCY-NAMELINE-1. CHGBR980 00208 MOVE LRCM-SYS-DATE TO WRK-PRT-SYS-DATE. CHGBR980 00209 MOVE SPACE TO PRINT-RECORD. CHGBR980 00210 WRITE PRINT-RECORD FROM WRK-PRT-HDR-01 CHGBR980 00211 AFTER ADVANCING PAGE. CHGBR980 00212 CHGBR980 00213 MOVE LRCM-AGY-NAME-LINE2 TO WRK-PRT-AGNCY-NAMELINE-2. CHGBR980 00214 MOVE LRCM-SYS-TIME TO WRK-PRT-SYS-TIME. CHGBR980 00215 MOVE SPACE TO PRINT-RECORD. CHGBR980 00216 WRITE PRINT-RECORD FROM WRK-PRT-HDR-02 CHGBR980 00217 AFTER ADVANCING 1 LINE. CHGBR980 00218 CHGBR980 00219 MOVE WRK-ROUTE-LOCATION-1 TO WRK-PRT-RTE-LOCATION-1. CHGBR980 00220 MOVE WRK-PAGE-CNT TO WRK-PRT-PAGE. CHGBR980 00221 MOVE SPACE TO PRINT-RECORD. CHGBR980 00222 WRITE PRINT-RECORD FROM WRK-PRT-HDR-03 CHGBR980 00223 AFTER ADVANCING 1 LINE. CHGBR980 00224 CHGBR980 00225 MOVE WRK-ROUTE-LOCATION-2 TO WRK-PRT-RTE-LOCATION-2. CHGBR980 00226 MOVE SPACE TO PRINT-RECORD. CHGBR980 00227 WRITE PRINT-RECORD FROM WRK-PRT-HDR-04 CHGBR980 00228 AFTER ADVANCING 1 LINE. CHGBR980 00229 WRITE PRINT-RECORD FROM WRK-PRT-HDR-05 CHGBR980 00230 AFTER ADVANCING 1 LINE. CHGBR980 00231 CHGBR980 00232 MOVE WRK-TBL-CLS-0 TO WRK-PRT-TBL-CLS-O. CHGBR980 00233 MOVE SPACE TO PRINT-RECORD. CHGBR980 00234 WRITE PRINT-RECORD FROM WRK-PRT-HDR-06 CHGBR980 00235 AFTER ADVANCING 1 LINE. CHGBR980 00236 WRITE PRINT-RECORD FROM WRK-PRT-BLANK-LINE CHGBR980 00237 AFTER ADVANCING 1 LINE. CHGBR980 00238 CHGBR980 00239 MOVE WRK-HDR-CNT TO WRK-LINE-CNT. CHGBR980 00240 I1010-EXIT. CHGBR980 00241 EXIT. CHGBR980 00242 EJECT CHGBR980 00243 P1000-PROCESS. CHGBR980 00244 ** CREATE THIS REPORT CHGBR980 00245 MOVE 1 TO L980-REC-CNT (980). CHGBR980 00246 ** CHGBR980 00247 ** THE FOLLOWING RECORD COUNTS HAVE NO MEANING CHGBR980 00248 ** FOR THE USERS & (ERGO) FOR THE 980 REPORT. CHGBR980 00249 ** CHGBR980 00250 IF L980-REC-CNT (302) > ZERO CHGBR980 00251 MOVE 1 TO L980-REC-CNT (302). CHGBR980 00252 IF L980-REC-CNT (305) > ZERO CHGBR980 00253 MOVE 1 TO L980-REC-CNT (305). CHGBR980 00254 IF L980-REC-CNT (306) > ZERO CHGBR980 00255 MOVE 1 TO L980-REC-CNT (306). CHGBR980 00256 IF L980-REC-CNT (416) > ZERO CHGBR980 00257 MOVE 1 TO L980-REC-CNT (416). CHGBR980 00258 IF L980-REC-CNT (426) > ZERO CHGBR980 00259 MOVE 1 TO L980-REC-CNT (426). CHGBR980 00260 IF L980-REC-CNT (440) > ZERO CHGBR980 00261 MOVE 1 TO L980-REC-CNT (440). CHGBR980 00262 ** THE 3 WEEKLY RPTS CHGBR980 00263 IF L980-REC-CNT (122) > ZERO CHGBR980 00264 MOVE 3 TO L980-REC-CNT (122). CHGBR980 00265 ** THE 991 REPORTS (LMI/TPS)CHGBR980 00266 EVALUATE TRUE CHGBR980 00267 WHEN L980-REC-CNT (713) > ZERO CHGBR980 00268 ADD L980-REC-CNT (713) TO L980-REC-CNT (991) CHGBR980 00269 WHEN L980-REC-CNT (715) > ZERO CHGBR980 00270 ADD L980-REC-CNT (715) TO L980-REC-CNT (991) CHGBR980 00271 WHEN L980-REC-CNT (716) > ZERO CHGBR980 00272 ADD L980-REC-CNT (716) TO L980-REC-CNT (991) CHGBR980 00273 WHEN L980-REC-CNT (717) > ZERO CHGBR980 00274 ADD L980-REC-CNT (717) TO L980-REC-CNT (991) CHGBR980 00275 WHEN L980-REC-CNT (718) > ZERO CHGBR980 00276 ADD L980-REC-CNT (718) TO L980-REC-CNT (991) CHGBR980 00277 WHEN L980-REC-CNT (719) > ZERO CHGBR980 00278 ADD L980-REC-CNT (719) TO L980-REC-CNT (991) CHGBR980 00279 WHEN L980-REC-CNT (720) > ZERO CHGBR980 00280 ADD L980-REC-CNT (720) TO L980-REC-CNT (991) CHGBR980 00281 WHEN L980-REC-CNT (721) > ZERO CHGBR980 00282 ADD L980-REC-CNT (721) TO L980-REC-CNT (991) CHGBR980 00283 WHEN L980-REC-CNT (722) > ZERO CHGBR980 00284 ADD L980-REC-CNT (722) TO L980-REC-CNT (991) CHGBR980 00285 WHEN L980-REC-CNT (723) > ZERO CHGBR980 00286 ADD L980-REC-CNT (723) TO L980-REC-CNT (991) CHGBR980 00287 WHEN L980-REC-CNT (727) > ZERO CHGBR980 00288 ADD L980-REC-CNT (727) TO L980-REC-CNT (991) CHGBR980 00289 END-EVALUATE. CHGBR980 00290 ** DO THE REPORTS CHGBR980 00291 PERFORM P1100-PRINT-TBL-RPT THRU P1100-EXIT CHGBR980 00292 VARYING WRK-NDX-1 FROM 1 BY 1 CHGBR980 00293 UNTIL WRK-NDX-1 > 999. CHGBR980 00294 CHGBR980 00295 P1000-EXIT. CHGBR980 00296 EXIT. CHGBR980 00297 CHGBR980 00298 P1100-PRINT-TBL-RPT. CHGBR980 00299 CHGBR980 00300 IF L980-REC-CNT (WRK-NDX-1) NOT = ZERO CHGBR980 00301 PERFORM P1110-DETAIL-LINE THRU P1110-EXIT. CHGBR980 00302 CHGBR980 00303 P1100-EXIT. CHGBR980 00304 EXIT. CHGBR980 00305 CHGBR980 00306 P1110-DETAIL-LINE. CHGBR980 00307 CHGBR980 00308 MOVE WRK-NDX-1 TO WRK-DTL-NDX, WRK-PRT-NDX. CHGBR980 00309 CHGBR980 00310 EVALUATE TRUE CHGBR980 00311 WHEN WRK-PRT-CLS-A CHGBR980 00312 MOVE WRK-TBL-CLS-A TO WRK-PRT-CLASS CHGBR980 00313 WHEN WRK-PRT-CLS-C CHGBR980 00314 MOVE WRK-TBL-CLS-C TO WRK-PRT-CLASS CHGBR980 00315 WHEN WRK-PRT-CLS-E CHGBR980 00316 MOVE WRK-TBL-CLS-E TO WRK-PRT-CLASS CHGBR980 00317 WHEN WRK-PRT-CLS-I CHGBR980 00318 MOVE WRK-TBL-CLS-I TO WRK-PRT-CLASS CHGBR980 00319 **** WHEN WRK-PRT-CLS-J CHGBR980 00320 **** MOVE WRK-TBL-CLS-J TO WRK-PRT-CLASS CHGBR980 00321 WHEN WRK-PRT-CLS-O CHGBR980 00322 MOVE WRK-TBL-CLS-O TO WRK-PRT-CLASS CHGBR980 00323 WHEN WRK-PRT-CLS-P CHGBR980 00324 MOVE WRK-TBL-CLS-P TO WRK-PRT-CLASS CHGBR980 00325 WHEN WRK-PRT-CLS-Q CHGBR980 00326 MOVE WRK-TBL-CLS-Q TO WRK-PRT-CLASS CHGBR980 00327 WHEN WRK-PRT-CLS-W CHGBR980 00328 MOVE WRK-TBL-CLS-W TO WRK-PRT-CLASS CHGBR980 00329 WHEN WRK-PRT-CLS-Z CHGBR980 00330 MOVE WRK-TBL-CLS-Z TO WRK-PRT-CLASS CHGBR980 00331 WHEN WRK-PRT-CLS-X CHGBR980 00332 MOVE WRK-TBL-CLS-X TO WRK-PRT-CLASS CHGBR980 00333 WHEN WRK-PRT-CLS-SP1 CHGBR980 00334 MOVE WRK-TBL-CLS-SP1 TO WRK-PRT-CLASS CHGBR980 00335 WHEN WRK-PRT-CLS-SP2 CHGBR980 00336 MOVE WRK-TBL-CLS-SP2 TO WRK-PRT-CLASS CHGBR980 00337 WHEN WRK-PRT-CLS-SP3 CHGBR980 00338 MOVE WRK-TBL-CLS-SP3 TO WRK-PRT-CLASS CHGBR980 00339 WHEN WRK-PRT-CLS-SP4 CHGBR980 00340 MOVE WRK-TBL-CLS-SP4 TO WRK-PRT-CLASS CHGBR980 00341 WHEN OTHER CHGBR980 00342 MOVE WRK-TBL-CLS-0 TO WRK-PRT-CLASS CHGBR980 00343 END-EVALUATE. CHGBR980 00344 CHGBR980 00345 MOVE L980-REC-CNT (WRK-NDX-1) CHGBR980 00346 TO WRK-PRT-L980-REC-CNT. CHGBR980 00347 MOVE WRK-TBL-DESC (WRK-NDX-1) CHGBR980 00348 TO WRK-PRT-TBL-DESC. CHGBR980 00349 MOVE SPACE TO PRINT-RECORD. CHGBR980 00350 WRITE PRINT-RECORD FROM WRK-PRT-DETAIL-01 CHGBR980 00351 AFTER ADVANCING 1 LINE. CHGBR980 00352 CHGBR980 00353 ADD 1 TO WRK-LINE-CNT. CHGBR980 00354 IF WRK-LINE-CNT > 53 CHGBR980 00355 ADD 1 TO WRK-PAGE-CNT CHGBR980 00356 PERFORM I1010-HEADERS THRU I1010-EXIT. CHGBR980 00357 CHGBR980 00358 P1110-EXIT. CHGBR980 00359 EXIT. CHGBR980 00360 EJECT CHGBR980 00361 T1000-TERMINATE. CHGBR980 00362 CHGBR980 00363 CLOSE PRT-FILE. CHGBR980 00364 CHGBR980 00365 T1000-EXIT. CHGBR980 00366 EXIT. CHGBR980 00367 CHGBR980 00368 ** S999-ABEND. CHGBR980 00369 CHGBR980 00370 ** CALL 'DTSBU999' USING WRK-ABEND-CD. CHGBR980 00371 CHGBR980 00372 ** S999-EXIT. CHGBR980 00373 ** EXIT. CHGBR980