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