388 lines
31 KiB
COBOL
388 lines
31 KiB
COBOL
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
|