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