00001 IDENTIFICATION DIVISION. 03/07/11 00002 PROGRAM-ID. DTSBR726. DTSBR726 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV073 00004 DATE-WRITTEN. OCTOBER 1994. DTSBR726 00005 DATE-COMPILED. DTSBR726 00006 DTSBR726 00007 ***** DTSBR726 00008 * DTSBR726 00009 * FUNCTION: LMI MISSING EMPLOYEE COUNT LETTER. DTSBR726 00010 * DTSBR726 00011 * CALLING SEQUENCE: DTSBD300 CALLS DTSBR726 00012 * DTSBD371 WHICH UPDATES DTSIR726 DTSBR726 00013 * DTSBR726 READS DTSIR726 RECORDS TO DTSBR726 00014 * PRODUCE THE MISSING EMPLOYEE COUNT RECORD.DTSBR726 00015 * DTSBR726 00016 * DTSBR726 00017 * MODIFICATION HISTORY: DTSBR726 00018 * DTSBR726 00019 * 08-08-01 CHANGED TO AGREE WITH THE NEW FORM UC-30 LINE NBRS. DTSBR726 00020 * REFERENCE RFP #**** AUTHOR OF CHANGE - JHP DTSBR726 00021 * DTSBR726 00022 * 01-26-99 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS. DTSBR726 00023 * REFERENCE RFP #**** AUTHOR OF CHANGE - DVS DTSBR726 00024 * DTSBR726 00025 * 10-17-94 INITIAL DEVELOPMENT DTSBR726 00026 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR726 00027 * DTSBR726 00028 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR726 00029 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR726 00030 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR726 00031 * DTSBR726 00032 * DTSBR726 00033 * DESCRIPTION: DTSBR726 00034 * DTSBR726 00035 * THIS MODULE ADDRESSES A GENERIC LETTER ON A PRE-PRINTED DTSBR726 00036 * FORM TO EMPLOYERS REQUESTING THEY PROVIDE EMPLOYEE DTSBR726 00037 * COUNTS FOR A GIVEN QUARTER. DTSBR726 00038 * DTSBR726 00039 * DTSBR726 00040 * RECORDS READ: DTSBR726 00041 * DTSBR726 00042 * NONE. DTSBR726 00043 * DTSBR726 00044 * DTSBR726 00045 * PRINTED OUTPUTS: DTSBR726 00046 * DTSBR726 00047 * 726R1 LMI MISSING EMPLOYEE COUNT LETTER DTSBR726 00048 * DTSBR726 00049 * DTSBR726 00050 * RECORDS WRITTEN: DTSBR726 00051 * DTSBR726 00052 * NONE. DTSBR726 00053 * DTSBR726 00054 * DTSBR726 00055 * MODULES CALLED: DTSBR726 00056 * DTSBR726 00057 * DTSBU008 QUARTER ALPHA CONVERSION MODULE DTSBR726 00058 * DTSBR726 00059 * DTSBR726 00060 ***** DTSBR726 00061 EJECT DTSBR726 00062 ENVIRONMENT DIVISION. DTSBR726 00063 SKIP1 DTSBR726 00064 CONFIGURATION SECTION. DTSBR726 00065 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR726 00066 SKIP1 DTSBR726 00067 DTSBR726 00068 INPUT-OUTPUT SECTION. DTSBR726 00069 DTSBR726 00070 FILE-CONTROL. DTSBR726 00071 SELECT PRT-FILE ASSIGN TO RPT726R1. DTSBR726 00072 DTSBR726 00073 DATA DIVISION. DTSBR726 00074 DTSBR726 00075 FILE SECTION. DTSBR726 00076 DTSBR726 00077 FD PRT-FILE DTSBR726 00078 RECORDING MODE IS F DTSBR726 00079 BLOCK CONTAINS 0 RECORDS DTSBR726 00080 LABEL RECORDS ARE OMITTED. DTSBR726 00081 01 XEROX-REPORT. DTSBR726 00082 05 FILLER PIC X(1). DTSBR726 00083 05 XEROX-RPT PIC X(132). DTSBR726 00084 EJECT DTSBR726 00085 DTSBR726 00086 WORKING-STORAGE SECTION. DTSBR726 000865 77 PAN-VALET PICTURE X(24) VALUE '073DTSBR726 03/07/11'. DTSBR726 00087 DTSBR726 00088 01 WRK-AREA. DTSBR726 00089 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +726.DTSBR726 00090 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR726 00091 05 WS-YRQ-UNPACK PIC 9(05) VALUE ZEROS. DTSBR726 00092 05 WS-YRQ PIC X(04) VALUE SPACES. DTSBR726 00093 05 STRING-START PIC 9(02) VALUE ZEROS. DTSBR726 00094 05 WRK-ADDR-AREA PIC X(200) VALUE SPACES. DTSBR726 00095 05 WRK-ADDR-AREAX REDEFINES WRK-ADDR-AREA. DTSBR726 00096 10 ADDR-FMT-LINE OCCURS 5 TIMES PIC X(40). DTSBR726 00097 DTSBR726 00098 05 WS-OPR-VOICE. DTSBR726 00099 10 WS-OPR-VOICE-AREA PIC X(03) VALUE SPACES. DTSBR726 00100 10 WS-OPR-VOICE-1 PIC X(03) VALUE SPACES. DTSBR726 00101 10 WS-OPR-VOICE-2 PIC X(04) VALUE SPACES. DTSBR726 00102 10 WS-OPR-VOICE-EXT PIC X(04) VALUE SPACES. DTSBR726 00103 DTSBR726 00104 01 VSCA-LINE. DTSBR726 00105 05 VSCA-DATA PIC X(133) VALUE SPACES. DTSBR726 00106 DTSBR726 00107 EJECT DTSBR726 00108 01 L001-LINK-AREA. DTSBR726 00109 ++INCLUDE DTSIL001 DTSBR726 00110 EJECT DTSBR726 00111 01 L002-LINK-AREA. DTSBR726 00112 ++INCLUDE DTSIL002 DTSBR726 00113 EJECT DTSBR726 00114 01 L004-LINK-AREA. DTSBR726 00115 ++INCLUDE DTSIL004 DTSBR726 00116 EJECT DTSBR726 00117 01 L008-LINK-AREA. DTSBR726 00118 ++INCLUDE DTSIL008 DTSBR726 00119 EJECT DTSBR726 00120 ++INCLUDE DTSXL726 DTSBR726 00121 DTSBR726 00122 01 HEADER-LINE. DTSBR726 00123 05 HDL-LINE-9. DTSBR726 00124 10 FILLER PIC X(23) VALUE SPACES. DTSBR726 00125 10 FILLER PIC X(34) VALUE DTSBR726 00126 'COVERED EMPLOYEE VERIFICATION FORM'. DTSBR726 00127 10 FILLER PIC X(23) VALUE SPACES. DTSBR726 00128 05 HDL-LINE-10. DTSBR726 00129 10 FILLER PIC X(07) VALUE SPACES. DTSBR726 00130 10 WS-EMP-NO PIC 999B999. DTSBR726 00131 10 FILLER PIC X(36) VALUE SPACES. DTSBR726 00132 10 WS-LONG-TEXT-AREA PIC X(18) VALUE SPACES. DTSBR726 00133 05 HDL-LINE-11. DTSBR726 00134 10 FILLER PIC X(07) VALUE SPACES. DTSBR726 00135 10 WS-FMT-LINE-1 PIC X(42) VALUE SPACES. DTSBR726 00136 05 HDL-LINE-12. DTSBR726 00137 10 FILLER PIC X(07) VALUE SPACES. DTSBR726 00138 10 WS-FMT-LINE-2 PIC X(42) VALUE SPACES. DTSBR726 00139 05 HDL-LINE-13. DTSBR726 00140 10 FILLER PIC X(07) VALUE SPACES. DTSBR726 00141 10 WS-FMT-LINE-3 PIC X(42) VALUE SPACES. DTSBR726 00142 05 HDL-LINE-14. DTSBR726 00143 10 FILLER PIC X(07) VALUE SPACES. DTSBR726 00144 10 WS-FMT-LINE-4 PIC X(42) VALUE SPACES. DTSBR726 00145 05 HDL-LINE-15. DTSBR726 00146 10 FILLER PIC X(07) VALUE SPACES. DTSBR726 00147 10 WS-FMT-LINE-5 PIC X(42) VALUE SPACES. DTSBR726 00148 ++INCLUDE DTSIZ726 DTSBR726 00149 EJECT DTSBR726 00150 LINKAGE SECTION. DTSBR726 00151 DTSBR726 00152 01 LRCM-LINK-AREA. DTSBR726 00153 ++INCLUDE DTSILRCM DTSBR726 00154 EJECT DTSBR726 00155 01 R726-REC. DTSBR726 00156 ++INCLUDE DTSIR726 DTSBR726 00157 EJECT DTSBR726 00158 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR726 00159 R726-REC. DTSBR726 00160 DTSBR726 00161 IF FIRST-TIME-IND = 'Y' DTSBR726 00162 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR726 00163 MOVE 'N' TO FIRST-TIME-IND. DTSBR726 00164 DTSBR726 00165 IF LRCM-EOR-88 DTSBR726 00166 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR726 00167 ELSE DTSBR726 00168 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR726 00169 DTSBR726 00170 GOBACK. DTSBR726 00171 EJECT DTSBR726 00172 I1000-INITIATE. DTSBR726 00173 DTSBR726 00174 OPEN OUTPUT PRT-FILE. DTSBR726 00175 MOVE SPACES TO XEROX-REPORT. DTSBR726 00176 * MOVE 'XXXXXXXX' TO REPORT-NUMBER. DTSBR726 00177 DTSBR726 00178 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR726 00179 AFTER ADVANCING TOP-OF-PAGE. DTSBR726 00180 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 11. DTSBR726 00181 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE13 DTSBR726 00182 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE14. DTSBR726 00183 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE15. DTSBR726 00184 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE16. DTSBR726 00185 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE17. DTSBR726 00186 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE18 DTSBR726 00187 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE19. DTSBR726 00188 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE20. DTSBR726 00189 DTSBR726 00190 I1000-EXIT. DTSBR726 00191 EXIT. DTSBR726 00192 EJECT DTSBR726 00193 P1000-PROCESS. DTSBR726 00194 DTSBR726 00195 MOVE R726-YRQ TO L008-YRQ WS-YRQ-UNPACK. DTSBR726 00196 SET L008-UPPER-CASE TO TRUE. DTSBR726 00197 PERFORM S008-YRQ-ALPHA DTSBR726 00198 THRU S008-EXIT. DTSBR726 00199 DTSBR726 00200 MOVE R726-MAIL-DATE TO L002-DATE. DTSBR726 00201 SET L002-MIXED-CASE TO TRUE. DTSBR726 00202 PERFORM S002-DATE-ALPHA THRU S002-EXIT. DTSBR726 00203 DTSBR726 00204 MOVE R726-YRQ TO L004-QTR-5-9 DTSBR726 00205 SET L004-FROM-5 TO TRUE DTSBR726 00206 PERFORM S004-FROM-QTR DTSBR726 00207 THRU S004-EXIT. DTSBR726 00208 DTSBR726 00209 MOVE L004-QTR-END-DATE TO L001-FED-8-DATE-9 DTSBR726 00210 SET L001-FROM-FED-8 TO TRUE DTSBR726 00211 PERFORM S001-FROM-FED-8 DTSBR726 00212 THRU S001-EXIT. DTSBR726 00213 MOVE L001-SLASH-8-DATE TO WRK-QUARTER-DATE. DTSBR726 00214 DTSBR726 00215 MOVE WS-YRQ-UNPACK (1:4) TO WS-YRQ. DTSBR726 00216 DTSBR726 00217 MOVE 1 TO STRING-START. DTSBR726 00218 STRING L008-LONG-MONTH-1 DELIMITED BY SPACE DTSBR726 00219 ', ' DELIMITED BY SIZE DTSBR726 00220 WS-YRQ DELIMITED BY SIZE DTSBR726 00221 INTO WS-MONTH-1 POINTER STRING-START. DTSBR726 00222 COMPUTE STRING-START ROUNDED = (17 - STRING-START) / 2. DTSBR726 00223 MOVE SPACES TO WS-MONTH-1. DTSBR726 00224 STRING L008-LONG-MONTH-1 DELIMITED BY SPACE DTSBR726 00225 ', ' DELIMITED BY SIZE DTSBR726 00226 WS-YRQ DELIMITED BY SIZE DTSBR726 00227 INTO WS-MONTH-1 POINTER STRING-START. DTSBR726 00228 DTSBR726 00229 MOVE 1 TO STRING-START. DTSBR726 00230 STRING L008-LONG-MONTH-2 DELIMITED BY SPACE DTSBR726 00231 ', ' DELIMITED BY SIZE DTSBR726 00232 WS-YRQ DELIMITED BY SIZE DTSBR726 00233 INTO WS-MONTH-2 POINTER STRING-START. DTSBR726 00234 COMPUTE STRING-START ROUNDED = (17 - STRING-START) / 2. DTSBR726 00235 MOVE SPACES TO WS-MONTH-2. DTSBR726 00236 STRING L008-LONG-MONTH-2 DELIMITED BY SPACE DTSBR726 00237 ', ' DELIMITED BY SIZE DTSBR726 00238 WS-YRQ DELIMITED BY SIZE DTSBR726 00239 INTO WS-MONTH-2 POINTER STRING-START. DTSBR726 00240 DTSBR726 00241 MOVE 1 TO STRING-START. DTSBR726 00242 STRING L008-LONG-MONTH-3 DELIMITED BY SPACE DTSBR726 00243 ', ' DELIMITED BY SIZE DTSBR726 00244 WS-YRQ DELIMITED BY SIZE DTSBR726 00245 INTO WS-MONTH-3 POINTER STRING-START. DTSBR726 00246 COMPUTE STRING-START ROUNDED = (17 - STRING-START) / 2. DTSBR726 00247 MOVE SPACES TO WS-MONTH-3. DTSBR726 00248 STRING L008-LONG-MONTH-3 DELIMITED BY SPACE DTSBR726 00249 ', ' DELIMITED BY SIZE DTSBR726 00250 WS-YRQ DELIMITED BY SIZE DTSBR726 00251 INTO WS-MONTH-3 POINTER STRING-START. DTSBR726 00252 DTSBR726 00253 * GENERATE DETAIL-LINE. DTSBR726 00254 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR726 00255 PERFORM P3000-PRINT-DETAIL THRU P3000-EXIT. DTSBR726 00256 PERFORM P4000-SELF-MAILER-RTN DTSBR726 00257 THRU P4000-EXIT. DTSBR726 00258 DTSBR726 00259 P1000-EXIT. DTSBR726 00260 EXIT. DTSBR726 00261 DTSBR726 00262 P2000-PRINT-HEADER. DTSBR726 00263 MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-AREA. DTSBR726 00264 MOVE R726-FMT-LINE (1) TO WS-FMT-LINE-1. DTSBR726 00265 MOVE R726-FMT-LINE (2) TO WS-FMT-LINE-2. DTSBR726 00266 MOVE R726-FMT-LINE (3) TO WS-FMT-LINE-3. DTSBR726 00267 MOVE R726-FMT-LINE (4) TO WS-FMT-LINE-4. DTSBR726 00268 MOVE R726-FMT-LINE (5) TO WS-FMT-LINE-5. DTSBR726 00269 MOVE R726-EMP-NO TO WS-EMP-NO. DTSBR726 00270 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR726 00271 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 6 LINE. DTSBR726 00272 WRITE XEROX-REPORT FROM HDL-LINE-9 AFTER ADVANCING 1 LINE. DTSBR726 00273 WRITE XEROX-REPORT FROM HDL-LINE-10 AFTER ADVANCING 2 LINE. DTSBR726 00274 WRITE XEROX-REPORT FROM HDL-LINE-11 AFTER ADVANCING 1 LINE. DTSBR726 00275 WRITE XEROX-REPORT FROM HDL-LINE-12 AFTER ADVANCING 1 LINE. DTSBR726 00276 WRITE XEROX-REPORT FROM HDL-LINE-13 AFTER ADVANCING 1 LINE. DTSBR726 00277 WRITE XEROX-REPORT FROM HDL-LINE-14 AFTER ADVANCING 1 LINE. DTSBR726 00278 WRITE XEROX-REPORT FROM HDL-LINE-15 AFTER ADVANCING 1 LINE. DTSBR726 00279 DTSBR726 00280 P2000-EXIT. DTSBR726 00281 EXIT. DTSBR726 00282 DTSBR726 00283 P3000-PRINT-DETAIL. DTSBR726 00284 WRITE XEROX-REPORT FROM DTL-LINE-1 AFTER ADVANCING 1 LINE. DTSBR726 00285 WRITE XEROX-REPORT FROM DTL-LINE-2 AFTER ADVANCING 1 LINE. DTSBR726 00286 WRITE XEROX-REPORT FROM DTL-LINE-3 AFTER ADVANCING 1 LINE. DTSBR726 00287 *** CHANGED FOR NEW FORM UC-30 DTSBR726 00288 *** WRITE XEROX-REPORT FROM DTL-LINE-4 AFTER ADVANCING 1 LINE. DTSBR726 00289 WRITE XEROX-REPORT FROM DTL-LINE-5 AFTER ADVANCING 1 LINE. DTSBR726 00290 WRITE XEROX-REPORT FROM DTL-LINE-6 AFTER ADVANCING 1 LINE. DTSBR726 00291 WRITE XEROX-REPORT FROM DTL-LINE-7 AFTER ADVANCING 1 LINE. DTSBR726 00292 WRITE XEROX-REPORT FROM DTL-LINE-8 AFTER ADVANCING 1 LINE. DTSBR726 00293 *** CHANGED FOR NEW FORM UC-30 DTSBR726 00294 *** WRITE XEROX-REPORT FROM DTL-LINE-9 AFTER ADVANCING 1 LINE. DTSBR726 00295 WRITE XEROX-REPORT FROM DTL-LINE-10 AFTER ADVANCING 1 LINE. DTSBR726 00296 WRITE XEROX-REPORT FROM DTL-LINE-11 AFTER ADVANCING 1 LINE. DTSBR726 00297 WRITE XEROX-REPORT FROM DTL-LINE-12 AFTER ADVANCING 1 LINE. DTSBR726 00298 WRITE XEROX-REPORT FROM DTL-LINE-13 AFTER ADVANCING 1 LINE. DTSBR726 00299 WRITE XEROX-REPORT FROM DTL-LINE-14 AFTER ADVANCING 1 LINE. DTSBR726 00300 WRITE XEROX-REPORT FROM DTL-LINE-15 AFTER ADVANCING 1 LINE. DTSBR726 00301 WRITE XEROX-REPORT FROM DTL-LINE-16 AFTER ADVANCING 1 LINE. DTSBR726 00302 WRITE XEROX-REPORT FROM DTL-LINE-17 AFTER ADVANCING 1 LINE. DTSBR726 00303 WRITE XEROX-REPORT FROM DTL-LINE-18 AFTER ADVANCING 1 LINE. DTSBR726 00304 WRITE XEROX-REPORT FROM DTL-LINE-19 AFTER ADVANCING 1 LINE. DTSBR726 00305 WRITE XEROX-REPORT FROM DTL-LINE-20 AFTER ADVANCING 1 LINE. DTSBR726 00306 WRITE XEROX-REPORT FROM DTL-LINE-21 AFTER ADVANCING 1 LINE. DTSBR726 00307 WRITE XEROX-REPORT FROM DTL-LINE-22 AFTER ADVANCING 1 LINE. DTSBR726 00308 WRITE XEROX-REPORT FROM DTL-LINE-23 AFTER ADVANCING 1 LINE. DTSBR726 00309 WRITE XEROX-REPORT FROM DTL-LINE-24 AFTER ADVANCING 1 LINE. DTSBR726 00310 WRITE XEROX-REPORT FROM DTL-LINE-25 AFTER ADVANCING 1 LINE. DTSBR726 00311 WRITE XEROX-REPORT FROM DTL-LINE-26 AFTER ADVANCING 1 LINE. DTSBR726 00312 WRITE XEROX-REPORT FROM DTL-LINE-27 AFTER ADVANCING 1 LINE. DTSBR726 00313 WRITE XEROX-REPORT FROM DTL-LINE-28 AFTER ADVANCING 1 LINE. DTSBR726 00314 WRITE XEROX-REPORT FROM DTL-LINE-29 AFTER ADVANCING 1 LINE. DTSBR726 00315 WRITE XEROX-REPORT FROM DTL-LINE-30 AFTER ADVANCING 1 LINE. DTSBR726 00316 WRITE XEROX-REPORT FROM DTL-LINE-31 AFTER ADVANCING 1 LINE. DTSBR726 00317 WRITE XEROX-REPORT FROM DTL-LINE-32 AFTER ADVANCING 1 LINE. DTSBR726 00318 WRITE XEROX-REPORT FROM DTL-LINE-33 AFTER ADVANCING 1 LINE. DTSBR726 00319 WRITE XEROX-REPORT FROM DTL-LINE-34 AFTER ADVANCING 3 LINE. DTSBR726 00320 WRITE XEROX-REPORT FROM DTL-LINE-35 AFTER ADVANCING 1 LINE. DTSBR726 00321 WRITE XEROX-REPORT FROM DTL-LINE-36 AFTER ADVANCING 1 LINE. DTSBR726 00322 WRITE XEROX-REPORT FROM DTL-LINE-37 AFTER ADVANCING 1 LINE. DTSBR726 00323 WRITE XEROX-REPORT FROM DTL-LINE-38 AFTER ADVANCING 1 LINE. DTSBR726 00324 DTSBR726 00325 P3000-EXIT. DTSBR726 00326 EXIT. DTSBR726 00327 DTSBR726 00328 P4000-SELF-MAILER-RTN. DTSBR726 00329 MOVE R726-FMT-LINE (1) TO WS-ADDR-FMT-LINE-1. DTSBR726 00330 MOVE R726-FMT-LINE (2) TO WS-ADDR-FMT-LINE-2. DTSBR726 00331 MOVE R726-FMT-LINE (3) TO WS-ADDR-FMT-LINE-3. DTSBR726 00332 MOVE R726-FMT-LINE (4) TO WS-ADDR-FMT-LINE-4. DTSBR726 00333 MOVE R726-FMT-LINE (5) TO WS-ADDR-FMT-LINE-5. DTSBR726 00334 PERFORM P5000-PRINT-VSCA-ADDR THRU P5000-EXIT. DTSBR726 00335 P4000-EXIT. DTSBR726 00336 EXIT. DTSBR726 00337 DTSBR726 00338 P5000-PRINT-VSCA-ADDR. DTSBR726 00339 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR726 00340 AFTER ADVANCING TOP-OF-PAGE. DTSBR726 00341 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 15 LINE. DTSBR726 00342 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-17 DTSBR726 00343 AFTER ADVANCING 1 LINE. DTSBR726 00344 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-18 DTSBR726 00345 AFTER ADVANCING 1 LINE. DTSBR726 00346 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-19 DTSBR726 00347 AFTER ADVANCING 1 LINE. DTSBR726 00348 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-20 DTSBR726 00349 AFTER ADVANCING 1 LINE. DTSBR726 00350 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-21 DTSBR726 00351 AFTER ADVANCING 1 LINE. DTSBR726 00352 DTSBR726 00353 P5000-EXIT. DTSBR726 00354 EXIT. DTSBR726 00355 DTSBR726 00356 T1000-TERMINATE. DTSBR726 00357 DTSBR726 00358 CLOSE PRT-FILE. DTSBR726 00359 DTSBR726 00360 T1000-EXIT. DTSBR726 00361 EXIT. DTSBR726 00362 EJECT DTSBR726 00363 S001-FROM-FED-8. DTSBR726 00364 SET L001-FROM-FED-8 TO TRUE. DTSBR726 00365 DTSBR726 00366 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR726 00367 S001-EXIT. DTSBR726 00368 EXIT. DTSBR726 00369 DTSBR726 00370 S002-DATE-ALPHA. DTSBR726 00371 DTSBR726 00372 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR726 00373 S002-EXIT. DTSBR726 00374 EXIT. DTSBR726 00375 DTSBR726 00376 S004-FROM-QTR. DTSBR726 00377 DTSBR726 00378 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR726 00379 S004-EXIT. DTSBR726 00380 EXIT. DTSBR726 00381 DTSBR726 00382 S008-YRQ-ALPHA. DTSBR726 00383 DTSBR726 00384 CALL 'DTSBU008' USING L008-LINK-AREA. DTSBR726 00385 DTSBR726 00386 S008-EXIT. DTSBR726 00387 EXIT. DTSBR726 00388 ** DTSBR726 00389 *S999-ABEND. DTSBR726 00390 ** DTSBR726 00391 ** CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR726 00392 ** DTSBR726 00393 *S999-EXIT. DTSBR726 00394 ** EXIT. DTSBR726