00001 IDENTIFICATION DIVISION. 09/29/04 00002 PROGRAM-ID. DOESLABL. DOESLABL 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV004 00004 DATE-WRITTEN. JULY 1994. DOESLABL 00005 DATE-COMPILED. DOESLABL 00006 DOESLABL 00007 ***** DOESLABL 00008 * CALLING SEQUENCE: DTSBU941 DOESLABL 00009 * UPDATE DOESILBL RECORDS DOESLABL 00010 * DOESLABL 00011 * TO PRINT THE EXTRACTED LABELS. DOESLABL 00012 * FUNCTION: LABEL PRINTING. DOESLABL 00013 * DOESLABL 00014 * DOESLABL 00015 * MODIFICATION HISTORY: DOESLABL 00016 * DOESLABL 00017 * 01-31-03 MODIFIED PROGRAM TO START PRINTING NEW USER LABELS ON DOESLABL 00018 * LEFT SIDE OF PAGE. IF RIGHT SIDE IS BLANK PRINT A END DOESLABL 00019 * LABEL MESSAGE. DOESLABL 00020 * REFERENCE: SYS MAINT PROGRAMMER: ZL1 DOESLABL 00021 * 09-29-04 MODIFIED PROGRAM TO PRINT 45 POSITION ADDRESS ON LABEL CL**4 00022 * 40 CHARATERS PLUS 5 CONTROL DASHES. ALSO MODIFIED CL**4 00023 * ++INCLUDE DOESLABL TO ACCOMMODATE 45 CHARACTER LABEL CL**4 00024 * REFERENCE: L PERRY PROGRAMMER: REW CL**4 00025 * DOESLABL 00026 * DOESLABL 00027 * DOESLABL 00028 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DOESLABL 00029 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DOESLABL 00030 * REFERENCE RFP #**** PROGRAMMER: XXX DOESLABL 00031 * DOESLABL 00032 * DOESLABL 00033 * DESCRIPTION: DOESLABL 00034 * DOESLABL 00035 * THIS MODULE GENERATES LABELS FOR VARIOUS PROCESSES DOESLABL 00036 * IN THE TAX SYSTEM. DOESLABL 00037 * DOESLABL 00038 * DOESLABL 00039 * RECORDS READ: DOESLABL 00040 * DOESLABL 00041 * NONE. DOESLABL 00042 * DOESLABL 00043 * DOESLABL 00044 * PRINTED OUTPUTS: DOESLABL 00045 * DOESLABL 00046 * 901R1 LABELS DOESLABL 00047 * DOESLABL 00048 * DOESLABL 00049 * RECORDS WRITTEN: DOESLABL 00050 * DOESLABL 00051 * NONE. DOESLABL 00052 * DOESLABL 00053 * DOESLABL 00054 * MODULES CALLED: DOESLABL 00055 * DOESLABL 00056 * DTSBU941 READ LABEL INPUT RECORDS DOESLABL 00057 * DOESLABL 00058 ***** DOESLABL 00059 EJECT DOESLABL 00060 ENVIRONMENT DIVISION. DOESLABL 00061 DOESLABL 00062 CONFIGURATION SECTION. DOESLABL 00063 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DOESLABL 00064 DOESLABL 00065 INPUT-OUTPUT SECTION. DOESLABL 00066 DOESLABL 00067 FILE-CONTROL. DOESLABL 00068 SELECT PRT-FILE1 ASSIGN TO DOESLBL1. DOESLABL 00069 DOESLABL 00070 DATA DIVISION. DOESLABL 00071 DOESLABL 00072 FILE SECTION. DOESLABL 00073 DOESLABL 00074 FD PRT-FILE1 DOESLABL 00075 RECORDING MODE IS F. DOESLABL 00076 01 LABEL-REC PIC X(100). DOESLABL 00077 DOESLABL 00078 EJECT DOESLABL 00079 WORKING-STORAGE SECTION. DOESLABL 00080 DOESLABL 00081 01 WRK-AREA. DOESLABL 00082 05 WRK-ABEND-CD PIC X(04) VALUE 'LABL'. DOESLABL 00083 05 WRK-MOD-NAME PIC X(08) VALUE 'DOESLABL'.DOESLABL 00084 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DOESLABL 00085 05 TOTAL-LABELS-PRINTED PIC 9(05) VALUE ZEROS. DOESLABL 00086 05 LABEL-INDEX PIC 9(01) VALUE ZEROS. DOESLABL 00087 05 LABEL-ROW PIC 9(02) VALUE ZEROS. DOESLABL 00088 05 SHIFT-LABEL-LEFT PIC 9(01) VALUE ZEROS. DOESLABL 00089 88 SHIFT-LABEL-LEFT-YES-88 VALUE 1. DOESLABL 00090 88 SHIFT-LABEL-LEFT-NO-88 VALUE 2. DOESLABL 00091 DOESLABL 00092 05 PRINT-ROUTE-LABEL PIC 9(01) VALUE ZEROS. DOESLABL 00093 88 PRINT-ROUTE-LABEL-YES-88 VALUE 1. DOESLABL 00094 88 PRINT-ROUTE-LABEL-NO-88 VALUE 2. DOESLABL 00095 DOESLABL 00096 05 ROUTE-CARD. DOESLABL 00097 10 ROUTE-SPACE PIC X(01) VALUE SPACES. DOESLABL 00098 10 ROUTE-INFO PIC X(39) VALUE DOESLABL 00099 '***************************************'. DOESLABL 00100 DOESLABL 00101 05 END-BLANK PIC X(39) VALUE DOESLABL 00102 '**---------- BLANK LABEL -----------**'. DOESLABL 00103 DOESLABL 00104 05 LABELS-TABLE. DOESLABL 00105 10 LABEL-ACCROSS OCCURS 2 TIMES. DOESLABL 00106 15 LABEL-DOWN OCCURS 8 TIMES. DOESLABL 00107 * 20 LABEL-DATA PIC X(40). CL**4 00108 20 LABEL-DATA PIC X(45). CL**4 00109 EJECT DOESLABL 00110 DOESLABL 00111 01 ROUTE-LABEL-TABLE. DOESLABL 00112 05 ROUTE-LABEL OCCURS 8 TIMES PIC X(40) VALUE SPACES. DOESLABL 00113 DOESLABL 00114 01 LABEL-PRINT-LINE. DOESLABL 00115 05 FILLER PIC X(03) VALUE SPACES. DOESLABL 00116 * 05 LABEL1-DATA PIC X(40) VALUE SPACES. CL**4 00117 05 LABEL1-DATA PIC X(45) VALUE SPACES. CL**4 00118 * 05 FILLER PIC X(10) VALUE SPACES. CL**4 00119 05 FILLER PIC X(05) VALUE SPACES. CL**4 00120 * 05 LABEL2-DATA PIC X(40) VALUE SPACES. CL**4 00121 05 LABEL2-DATA PIC X(45) VALUE SPACES. CL**4 00122 * 05 FILLER PIC X(05) VALUE SPACES. CL**4 00123 DOESLABL 00124 ++INCLUDE DOESXLBL DOESLABL 00125 DOESLABL 00126 01 ILBL-REC. DOESLABL 00127 ++INCLUDE DOESILBL DOESLABL 00128 DOESLABL 00129 01 L941-LINK-AREA. DOESLABL 00130 ++INCLUDE DTSIL941 DOESLABL 00131 DOESLABL 00132 DOESLABL 00133 LINKAGE SECTION. DOESLABL 00134 DOESLABL 00135 PROCEDURE DIVISION. DOESLABL 00136 DOESLABL 00137 IF FIRST-TIME-IND = 'Y' DOESLABL 00138 PERFORM I1000-INITIATE THRU I1000-EXIT DOESLABL 00139 MOVE 'N' TO FIRST-TIME-IND. DOESLABL 00140 DOESLABL 00141 PERFORM P1000-PROCESS THRU P1000-EXIT. DOESLABL 00142 PERFORM T1000-TERMINATE THRU T1000-EXIT. DOESLABL 00143 DOESLABL 00144 GOBACK. DOESLABL 00145 EJECT DOESLABL 00146 I1000-INITIATE. DOESLABL 00147 PERFORM S941-OPEN-READ THRU S941-EXIT. DOESLABL 00148 DOESLABL 00149 IF L941-NO-REC-88 DOESLABL 00150 GO TO I1000-EXIT. DOESLABL 00151 DOESLABL 00152 OPEN OUTPUT PRT-FILE1 DOESLABL 00153 MOVE 'N' TO L941-TRACE-IND. DOESLABL 00154 MOVE WRK-MOD-NAME TO L941-MOD-NAME. DOESLABL 00155 DOESLABL 00156 WRITE LABEL-REC FROM XEROX-CNTL-LINE1 AFTER DOESLABL 00157 ADVANCING TOP-OF-PAGE. DOESLABL 00158 DOESLABL 00159 I1000-EXIT. DOESLABL 00160 EXIT. DOESLABL 00161 EJECT DOESLABL 00162 P1000-PROCESS. DOESLABL 00163 DOESLABL 00164 MOVE SPACES TO ROUTE-LABEL-TABLE. DOESLABL 00165 DOESLABL 00166 PERFORM P1100-READ-LABELS THRU P1100-EXIT DOESLABL 00167 UNTIL L941-NO-REC-88. DOESLABL 00168 DOESLABL 00169 IF LABEL-ROW = 7 DOESLABL 00170 MOVE 8 TO LABEL-ROW DOESLABL 00171 END-IF. DOESLABL 00172 DOESLABL 00173 IF LABEL-INDEX > 0 DOESLABL 00174 PERFORM P3000-PRINT-LABEL THRU P3000-EXIT DOESLABL 00175 END-IF. DOESLABL 00176 DOESLABL 00177 P1000-EXIT. DOESLABL 00178 EXIT. DOESLABL 00179 P1100-READ-LABELS. DOESLABL 00180 DOESLABL 00181 PERFORM S941-READ-NEXT THRU S941-EXIT. DOESLABL 00182 DOESLABL 00183 IF L941-NO-REC-88 DOESLABL 00184 GO TO P1100-EXIT. DOESLABL 00185 DOESLABL 00186 ADD 1 TO LABEL-INDEX. DOESLABL 00187 PERFORM P2000-SETUP-LABEL THRU P2000-EXIT. DOESLABL 00188 DOESLABL 00189 IF SHIFT-LABEL-LEFT-YES-88 OR DOESLABL 00190 PRINT-ROUTE-LABEL-YES-88 DOESLABL 00191 ADD 1 TO LABEL-INDEX DOESLABL 00192 PERFORM P2000-SETUP-LABEL THRU P2000-EXIT. DOESLABL 00193 P1100-EXIT. DOESLABL 00194 EXIT. DOESLABL 00195 P2000-SETUP-LABEL. DOESLABL 00196 DOESLABL 00197 SET SHIFT-LABEL-LEFT-NO-88 TO TRUE. DOESLABL 00198 SET PRINT-ROUTE-LABEL-NO-88 TO TRUE. DOESLABL 00199 DOESLABL 00200 MOVE ILBL-FMT-LINE(1) TO LABEL-DATA(LABEL-INDEX, 1). DOESLABL 00201 MOVE ILBL-FMT-LINE(2) TO LABEL-DATA(LABEL-INDEX, 2). DOESLABL 00202 MOVE ILBL-FMT-LINE(3) TO LABEL-DATA(LABEL-INDEX, 3). DOESLABL 00203 MOVE ILBL-FMT-LINE(4) TO LABEL-DATA(LABEL-INDEX, 4). DOESLABL 00204 MOVE ILBL-FMT-LINE(5) TO LABEL-DATA(LABEL-INDEX, 5). DOESLABL 00205 MOVE ILBL-FMT-LINE(6) TO LABEL-DATA(LABEL-INDEX, 6). DOESLABL 00206 MOVE ILBL-FMT-LINE(7) TO LABEL-DATA(LABEL-INDEX, 7). DOESLABL 00207 MOVE ILBL-FMT-LINE(8) TO LABEL-DATA(LABEL-INDEX, 8). DOESLABL 00208 DOESLABL 00209 PERFORM P2700-CHECK-ROUTE-CARD THRU P2700-EXIT DOESLABL 00210 DOESLABL 00211 IF LABEL-INDEX = 2 DOESLABL 00212 PERFORM P2500-CHECK-ROUTE-LABEL THRU P2500-EXIT DOESLABL 00213 ADD 1 TO LABEL-ROW DOESLABL 00214 PERFORM P3000-PRINT-LABEL THRU P3000-EXIT DOESLABL 00215 END-IF. DOESLABL 00216 DOESLABL 00217 P2000-EXIT. DOESLABL 00218 EXIT. DOESLABL 00219 DOESLABL 00220 P2500-CHECK-ROUTE-LABEL. DOESLABL 00221 DOESLABL 00222 IF LABEL-DATA(LABEL-INDEX, 1) = ROUTE-CARD OR DOESLABL 00223 LABEL-DATA(LABEL-INDEX, 2) = ROUTE-CARD OR DOESLABL 00224 LABEL-DATA(LABEL-INDEX, 3) = ROUTE-CARD OR DOESLABL 00225 LABEL-DATA(LABEL-INDEX, 4) = ROUTE-CARD OR DOESLABL 00226 LABEL-DATA(LABEL-INDEX, 5) = ROUTE-CARD DOESLABL 00227 SET SHIFT-LABEL-LEFT-YES-88 TO TRUE DOESLABL 00228 MOVE END-BLANK TO LABEL-DATA(LABEL-INDEX, 4) DOESLABL 00229 LABEL-DATA(LABEL-INDEX, 5) DOESLABL 00230 MOVE SPACES TO LABEL-DATA(LABEL-INDEX, 1) DOESLABL 00231 LABEL-DATA(LABEL-INDEX, 2) DOESLABL 00232 LABEL-DATA(LABEL-INDEX, 3) DOESLABL 00233 LABEL-DATA(LABEL-INDEX, 6) DOESLABL 00234 LABEL-DATA(LABEL-INDEX, 7) DOESLABL 00235 LABEL-DATA(LABEL-INDEX, 8) DOESLABL 00236 END-IF. DOESLABL 00237 DOESLABL 00238 P2500-EXIT. DOESLABL 00239 EXIT. DOESLABL 00240 DOESLABL 00241 P2700-CHECK-ROUTE-CARD. DOESLABL 00242 DOESLABL 00243 IF LABEL-DATA(LABEL-INDEX, 1) = ROUTE-CARD OR DOESLABL 00244 LABEL-DATA(LABEL-INDEX, 2) = ROUTE-CARD OR DOESLABL 00245 LABEL-DATA(LABEL-INDEX, 3) = ROUTE-CARD OR DOESLABL 00246 LABEL-DATA(LABEL-INDEX, 4) = ROUTE-CARD OR DOESLABL 00247 LABEL-DATA(LABEL-INDEX, 5) = ROUTE-CARD DOESLABL 00248 MOVE LABEL-DATA(LABEL-INDEX, 1) TO ROUTE-LABEL(1) DOESLABL 00249 MOVE LABEL-DATA(LABEL-INDEX, 2) TO ROUTE-LABEL(2) DOESLABL 00250 MOVE LABEL-DATA(LABEL-INDEX, 3) TO ROUTE-LABEL(3) DOESLABL 00251 MOVE LABEL-DATA(LABEL-INDEX, 4) TO ROUTE-LABEL(4) DOESLABL 00252 MOVE LABEL-DATA(LABEL-INDEX, 5) TO ROUTE-LABEL(5) DOESLABL 00253 MOVE LABEL-DATA(LABEL-INDEX, 6) TO ROUTE-LABEL(6) DOESLABL 00254 MOVE LABEL-DATA(LABEL-INDEX, 7) TO ROUTE-LABEL(7) DOESLABL 00255 MOVE LABEL-DATA(LABEL-INDEX, 8) TO ROUTE-LABEL(8) DOESLABL 00256 END-IF. DOESLABL 00257 DOESLABL 00258 P2700-EXIT. DOESLABL 00259 EXIT. DOESLABL 00260 P3000-PRINT-LABEL. DOESLABL 00261 DOESLABL 00262 IF LABEL-ROW > 7 DOESLABL 00263 MOVE 1 TO LABEL-ROW DOESLABL 00264 PERFORM P3500-PRINT-ROUTE-LABEL THRU P3500-EXIT DOESLABL 00265 MOVE LABEL-DATA(1, 1) TO LABEL1-DATA DOESLABL 00266 MOVE LABEL-DATA(2, 1) TO LABEL2-DATA DOESLABL 00267 IF PRINT-ROUTE-LABEL-NO-88 DOESLABL 00268 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER DOESLABL 00269 ADVANCING TOP-OF-PAGE DOESLABL 00270 ELSE DOESLABL 00271 MOVE SPACES TO LABELS-TABLE DOESLABL 00272 ADD 1 TO TOTAL-LABELS-PRINTED DOESLABL 00273 MOVE ZEROS TO LABEL-INDEX DOESLABL 00274 MOVE SPACES TO LABEL1-DATA LABEL2-DATA DOESLABL 00275 GO TO P3000-EXIT DOESLABL 00276 ELSE DOESLABL 00277 MOVE LABEL-DATA(1, 1) TO LABEL1-DATA DOESLABL 00278 MOVE LABEL-DATA(2, 1) TO LABEL2-DATA DOESLABL 00279 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER 1. DOESLABL 00280 DOESLABL 00281 MOVE LABEL-DATA(1, 2) TO LABEL1-DATA DOESLABL 00282 MOVE LABEL-DATA(2, 2) TO LABEL2-DATA DOESLABL 00283 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER 1. DOESLABL 00284 MOVE LABEL-DATA(1, 3) TO LABEL1-DATA DOESLABL 00285 MOVE LABEL-DATA(2, 3) TO LABEL2-DATA DOESLABL 00286 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER 1. DOESLABL 00287 MOVE LABEL-DATA(1, 4) TO LABEL1-DATA DOESLABL 00288 MOVE LABEL-DATA(2, 4) TO LABEL2-DATA DOESLABL 00289 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER 1. DOESLABL 00290 MOVE LABEL-DATA(1, 5) TO LABEL1-DATA DOESLABL 00291 MOVE LABEL-DATA(2, 5) TO LABEL2-DATA DOESLABL 00292 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER 1. DOESLABL 00293 MOVE LABEL-DATA(1, 6) TO LABEL1-DATA DOESLABL 00294 MOVE LABEL-DATA(2, 6) TO LABEL2-DATA DOESLABL 00295 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER 1. DOESLABL 00296 MOVE LABEL-DATA(1, 7) TO LABEL1-DATA DOESLABL 00297 MOVE LABEL-DATA(2, 7) TO LABEL2-DATA DOESLABL 00298 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER 1. DOESLABL 00299 MOVE LABEL-DATA(1, 8) TO LABEL1-DATA DOESLABL 00300 MOVE LABEL-DATA(2, 8) TO LABEL2-DATA DOESLABL 00301 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER 1. DOESLABL 00302 MOVE SPACES TO LABEL-PRINT-LINE. DOESLABL 00303 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER 1. DOESLABL 00304 DOESLABL 00305 IF LABEL-ROW = 3 OR LABEL-ROW = 5 DOESLABL 00306 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER 1. DOESLABL 00307 DOESLABL 00308 MOVE SPACES TO LABEL-PRINT-LINE. DOESLABL 00309 MOVE SPACES TO LABELS-TABLE. DOESLABL 00310 ADD LABEL-INDEX TO TOTAL-LABELS-PRINTED. DOESLABL 00311 MOVE ZEROS TO LABEL-INDEX. DOESLABL 00312 DOESLABL 00313 P3000-EXIT. DOESLABL 00314 EXIT. DOESLABL 00315 P3500-PRINT-ROUTE-LABEL. DOESLABL 00316 DOESLABL 00317 SET PRINT-ROUTE-LABEL-NO-88 TO TRUE. DOESLABL 00318 DOESLABL 00319 IF LABEL-DATA(1, 1) = ROUTE-CARD OR DOESLABL 00320 LABEL-DATA(1, 2) = ROUTE-CARD OR DOESLABL 00321 LABEL-DATA(1, 3) = ROUTE-CARD OR DOESLABL 00322 LABEL-DATA(1, 4) = ROUTE-CARD OR DOESLABL 00323 LABEL-DATA(1, 5) = ROUTE-CARD DOESLABL 00324 GO TO P3500-EXIT. DOESLABL 00325 DOESLABL 00326 DOESLABL 00327 IF ROUTE-LABEL(1) = SPACES AND DOESLABL 00328 ROUTE-LABEL(2) = SPACES AND DOESLABL 00329 ROUTE-LABEL(3) = SPACES AND DOESLABL 00330 ROUTE-LABEL(4) = SPACES AND DOESLABL 00331 ROUTE-LABEL(5) = SPACES DOESLABL 00332 GO TO P3500-EXIT. DOESLABL 00333 DOESLABL 00334 DISPLAY 'PRINTING ROUTE INFO ' DOESLABL 00335 SET PRINT-ROUTE-LABEL-YES-88 TO TRUE. DOESLABL 00336 DOESLABL 00337 MOVE ROUTE-LABEL(1) TO LABEL1-DATA DOESLABL 00338 MOVE LABEL-DATA(1, 1) TO LABEL2-DATA DOESLABL 00339 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER DOESLABL 00340 ADVANCING TOP-OF-PAGE. DOESLABL 00341 DOESLABL 00342 MOVE ROUTE-LABEL(2) TO LABEL1-DATA DOESLABL 00343 MOVE LABEL-DATA(1, 2) TO LABEL2-DATA DOESLABL 00344 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER 1. DOESLABL 00345 DOESLABL 00346 MOVE ROUTE-LABEL(3) TO LABEL1-DATA DOESLABL 00347 MOVE LABEL-DATA(1, 3) TO LABEL2-DATA DOESLABL 00348 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER 1. DOESLABL 00349 DOESLABL 00350 MOVE ROUTE-LABEL(4) TO LABEL1-DATA DOESLABL 00351 MOVE LABEL-DATA(1, 4) TO LABEL2-DATA DOESLABL 00352 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER 1. DOESLABL 00353 DOESLABL 00354 MOVE ROUTE-LABEL(5) TO LABEL1-DATA DOESLABL 00355 MOVE LABEL-DATA(1, 5) TO LABEL2-DATA DOESLABL 00356 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER 1. DOESLABL 00357 DOESLABL 00358 MOVE ROUTE-LABEL(6) TO LABEL1-DATA DOESLABL 00359 MOVE LABEL-DATA(1, 6) TO LABEL2-DATA DOESLABL 00360 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER 1. DOESLABL 00361 DOESLABL 00362 MOVE ROUTE-LABEL(7) TO LABEL1-DATA DOESLABL 00363 MOVE LABEL-DATA(1, 7) TO LABEL2-DATA DOESLABL 00364 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER 1. DOESLABL 00365 DOESLABL 00366 MOVE ROUTE-LABEL(8) TO LABEL1-DATA DOESLABL 00367 MOVE LABEL-DATA(1, 8) TO LABEL2-DATA DOESLABL 00368 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER 1. DOESLABL 00369 DOESLABL 00370 MOVE SPACES TO LABEL-PRINT-LINE. DOESLABL 00371 WRITE LABEL-REC FROM LABEL-PRINT-LINE AFTER 1. DOESLABL 00372 DOESLABL 00373 DOESLABL 00374 P3500-EXIT. DOESLABL 00375 EXIT. DOESLABL 00376 T1000-TERMINATE. DOESLABL 00377 DOESLABL 00378 MOVE 1 TO LABEL-INDEX. DOESLABL 00379 MOVE '********************************' TO LABEL-DATA(1, 3). DOESLABL 00380 MOVE '**** TOTAL LABELS PRINTED ****' TO LABEL-DATA(1, 4). DOESLABL 00381 MOVE TOTAL-LABELS-PRINTED TO LABEL-DATA(1, 5). DOESLABL 00382 MOVE '********************************' TO LABEL-DATA(1, 6). DOESLABL 00383 PERFORM P3000-PRINT-LABEL THRU P3000-EXIT. DOESLABL 00384 DOESLABL 00385 * WRITE LABEL-REC FROM XEROX-CNTL-LINE2 AFTER 1. DOESLABL 00386 PERFORM S941-CLOSE THRU S941-EXIT. DOESLABL 00387 CLOSE PRT-FILE1. DOESLABL 00388 DOESLABL 00389 T1000-EXIT. DOESLABL 00390 EXIT. DOESLABL 00391 EJECT DOESLABL 00392 S941-OPEN-READ. DOESLABL 00393 SET L941-OPEN-READ-88 TO TRUE. DOESLABL 00394 GO TO S941-I. DOESLABL 00395 DOESLABL 00396 S941-READ-NEXT. DOESLABL 00397 SET L941-READ-NEXT-88 TO TRUE. DOESLABL 00398 GO TO S941-I. DOESLABL 00399 DOESLABL 00400 S941-CLOSE. DOESLABL 00401 SET L941-CLOSE-88 TO TRUE. DOESLABL 00402 GO TO S941-I. DOESLABL 00403 DOESLABL 00404 S941-I. DOESLABL 00405 CALL 'DOESU941' USING L941-LINK-AREA DOESLABL 00406 ILBL-REC. DOESLABL 00407 S941-EXIT. DOESLABL 00408 DOESLABL 00409 DOESLABL 00410 S999-ABEND. DOESLABL 00411 DOESLABL 00412 CALL 'DTSBU999' USING WRK-ABEND-CD. DOESLABL 00413 DOESLABL 00414 S999-EXIT. DOESLABL 00415 EXIT. DOESLABL