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