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