DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
374
Batch/CHGBR980.cob
Normal file
374
Batch/CHGBR980.cob
Normal file
@ -0,0 +1,374 @@
|
||||
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
|
||||
Reference in New Issue
Block a user