375 lines
30 KiB
COBOL
375 lines
30 KiB
COBOL
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
|