00001 IDENTIFICATION DIVISION. 03/22/06 00002 PROGRAM-ID. DTSBR109. DTSBR109 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV043 00004 DATE-WRITTEN. AUGUST 1994. DTSBR109 00005 DATE-COMPILED. DTSBR109 00006 SKIP3 DTSBR109 00007 ***** DTSBR109 00008 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR109 00009 * DTSBD360 WHICH UPDATES DTSIR109 DTSBR109 00010 * DTSBR109 READS DTSIR109 RECORDS. DTSBR109 00011 * DTSBR109 00012 * FUNCTION: NOTICE OF MISSING WAGE REPORTS (UI-90A) DTSBR109 00013 * DTSBR109 00014 * DTSBR109 00015 * MODIFICATION HISTORY: DTSBR109 00016 * DTSBR109 00017 * 12-09-01 INITIAL DEVELOPMENT FOR HOUSEHOLD-EMPLOYERS DTSBR109 00018 * REFERENCE RFP HOUSEHOLD AUTHOR OF CHANGE - ZL1 DTSBR109 00019 * DTSBR109 00020 * DTSBR109 00021 * DESCRIPTION: DTSBR109 00022 * DTSBR109 00023 * THIS MODULE PRINTS NOTICES TO EMPLOYERS WHO HAVE BEEN DTSBR109 00024 * DETERMINED LIABLE BUT ARE MISSING ONE OR MORE REPORTS DTSBR109 00025 * FOR THE SPAN OF LIABILITY. DTSBR109 00026 * DTSBR109 00027 * DTSBR109 00028 * RECORDS READ: DTSBR109 00029 * DTSBR109 00030 * NONE. DTSBR109 00031 * DTSBR109 00032 * DTSBR109 00033 * PRINTED OUTPUTS: DTSBR109 00034 * DTSBR109 00035 * 109R1 NOTICE OF MISSING WAGE REPORTS DTSBR109 00036 * DTSBR109 00037 * DTSBR109 00038 * RECORDS WRITTEN: DTSBR109 00039 * DTSBR109 00040 * NONE. DTSBR109 00041 * DTSBR109 00042 * DTSBR109 00043 * MODULES CALLED: DTSBR109 00044 * DTSBR109 00045 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR109 00046 * DTSBU002 DATE ALPHA CONVERSION MODULE. DTSBR109 00047 * DTSBU004 QUARTER EDIT/CONVERSION MODULE DTSBR109 00048 * DTSBU062 FIELD REP ID EDIT/DESCRIPTION. DTSBR109 00049 * DTSBU071 NAME EDIT/CONVERSION MODULE DTSBR109 00050 * DTSBU082 OPERATOR ID EDIT/LOOKUP MODULE DTSBR109 00051 * DTSBU090 PARAGRAPH FORMATTING MODULE DTSBR109 00052 * DTSBU119 AGENCY FACTS MODULE DTSBR109 00053 * DTSBR109 00054 * DTSBR109 00055 ***** DTSBR109 00056 EJECT DTSBR109 00057 ENVIRONMENT DIVISION. DTSBR109 00058 SKIP2 DTSBR109 00059 CONFIGURATION SECTION. DTSBR109 00060 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR109 00061 SKIP1 DTSBR109 00062 INPUT-OUTPUT SECTION. DTSBR109 00063 SKIP1 DTSBR109 00064 FILE-CONTROL. DTSBR109 00065 SELECT PRT-FILE ASSIGN TO RPT109R1. DTSBR109 00066 SKIP3 DTSBR109 00067 DATA DIVISION. DTSBR109 00068 SKIP3 DTSBR109 00069 FILE SECTION. DTSBR109 00070 SKIP2 DTSBR109 00071 FD PRT-FILE DTSBR109 00072 RECORDING MODE IS F DTSBR109 00073 BLOCK CONTAINS 0 RECORDS DTSBR109 00074 LABEL RECORDS ARE OMITTED. DTSBR109 00075 01 XEROX-REPORT. DTSBR109 00076 05 FILLER PIC X(1). DTSBR109 00077 05 XEROX-RPT PIC X(132). DTSBR109 00078 EJECT DTSBR109 00079 DTSBR109 00080 WORKING-STORAGE SECTION. DTSBR109 000805 77 PAN-VALET PICTURE X(24) VALUE '043DTSBR109 03/22/06'. DTSBR109 00081 SKIP3 DTSBR109 00082 01 WRK-AREA. DTSBR109 00083 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +109.DTSBR109 00084 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR109 00085 SKIP1 DTSBR109 00086 05 WS-SUB PIC S9(04) COMP VALUE +0. DTSBR109 00087 05 WS-SUB2 PIC S9(04) COMP VALUE +0. DTSBR109 00088 05 WS-SUB-MAX PIC S9(04) COMP VALUE +0. DTSBR109 00089 05 WS-YEAR-SUB PIC S9(04) COMP VALUE +0. DTSBR109 00090 05 WS-QTR-SUB PIC S9(04) COMP VALUE +0. DTSBR109 00091 05 WS-OP-ID-HOLD PIC X(08) VALUE SPACES. DTSBR109 00092 05 WS-OPR-NAME PIC X(32) VALUE SPACES. DTSBR109 00093 05 WS-LIAB-DATE PIC X(10) VALUE SPACES. DTSBR109 00094 05 WS-MAIL-DATE PIC X(18) VALUE SPACES. DTSBR109 00095 05 WS-CITY-ST-ZIP PIC X(41) VALUE SPACES. DTSBR109 00096 05 WS-FIELD-NAME PIC X(32) VALUE SPACES. DTSBR109 00097 DTSBR109 00098 05 WS-OPR-VOICE. DTSBR109 00099 10 WS-OPR-VOICE-AREA PIC X(03) VALUE SPACES. DTSBR109 00100 10 WS-OPR-VOICE-1 PIC X(03) VALUE SPACES. DTSBR109 00101 10 WS-OPR-VOICE-2 PIC X(04) VALUE SPACES. DTSBR109 00102 10 WS-OPR-VOICE-EXT PIC X(04) VALUE SPACES. DTSBR109 00103 DTSBR109 00104 01 VSCA-LINE. DTSBR109 00105 05 VSCA-DATA PIC X(133) VALUE SPACES. DTSBR109 00106 DTSBR109 00107 SKIP2 DTSBR109 00108 ++INCLUDE DTSXL109 DTSBR109 00109 SKIP2 DTSBR109 00110 01 WS-WAIVE-DATE PIC X(08). DTSBR109 00111 01 WS-WAIVE-START-YRQ PIC X(05). DTSBR109 00112 01 WS-WAIVE-END-YRQ PIC X(05). DTSBR109 00113 SKIP1 DTSBR109 00114 01 SUB-YR PIC 9(05) VALUE ZEROS. DTSBR109 00115 01 WS-YRQ-UNPACK PIC 9(05). DTSBR109 00116 01 FILLER REDEFINES WS-YRQ-UNPACK. DTSBR109 00117 05 WS-YRQ-UNPACK-YYYY PIC 9(04). DTSBR109 00118 05 WS-YRQ-UNPACK-Q PIC 9(01). DTSBR109 00119 SKIP1 DTSBR109 00120 01 WS-YRQ-DESCR-TABLE-INIT PIC X(12) DTSBR109 00121 VALUE '1st2nd3rd4th'. DTSBR109 00122 01 WS-YRQ-DESCR-TABLE REDEFINES WS-YRQ-DESCR-TABLE-INIT. DTSBR109 00123 05 WS-YRQ-DESCR OCCURS 4 TIMES PIC X(03). DTSBR109 00124 DTSBR109 00125 01 WS-YRQ-TABLE-INIT PIC X(96). DTSBR109 00126 01 WS-YRQ-TABLE REDEFINES WS-YRQ-TABLE-INIT. DTSBR109 00127 05 WS-YRQ-TABLE-OCCURS OCCURS 6 TIMES. DTSBR109 00128 10 WS-YEAR PIC X(04). DTSBR109 00129 10 WS-YEAR-9 REDEFINES WS-YEAR DTSBR109 00130 PIC 9(04). DTSBR109 00131 10 WS-YRQ OCCURS 4 TIMES PIC X(03). DTSBR109 00132 EJECT DTSBR109 00133 01 L001-LINK-AREA. DTSBR109 00134 ++INCLUDE DTSIL001 DTSBR109 00135 EJECT DTSBR109 00136 01 L002-LINK-AREA. DTSBR109 00137 ++INCLUDE DTSIL002 DTSBR109 00138 EJECT DTSBR109 00139 01 L004-LINK-AREA. DTSBR109 00140 ++INCLUDE DTSIL004 DTSBR109 00141 EJECT DTSBR109 00142 01 L062-LINK-AREA. DTSBR109 00143 ++INCLUDE DTSIL062 DTSBR109 00144 EJECT DTSBR109 00145 01 L071-LINK-AREA. DTSBR109 00146 ++INCLUDE DTSIL071 DTSBR109 00147 EJECT DTSBR109 00148 01 L082-LINK-AREA. DTSBR109 00149 ++INCLUDE DTSIL082 DTSBR109 00150 EJECT DTSBR109 00151 01 L090-LINK-AREA. DTSBR109 00152 ++INCLUDE DTSIL090 DTSBR109 00153 EJECT DTSBR109 00154 01 L119-LINK-AREA. DTSBR109 00155 ++INCLUDE DTSIL119 DTSBR109 00156 EJECT DTSBR109 00157 01 VAR-TEXT-FOR-LETTER. DTSBR109 00158 05 WS-LINE-8. DTSBR109 00159 10 WS-VAR-TEXT8A PIC X(23) VALUE DTSBR109 00160 'REPORT AND PAYMENT FOR '. DTSBR109 00161 10 WS-VAR-TEXT8D PIC X(21) VALUE DTSBR109 00162 'MUST BE RETURNED BY '. DTSBR109 00163 05 WS-LINE-9. DTSBR109 00164 10 WS-VAR-TEXT9B PIC X(21) VALUE DTSBR109 00165 'TO AVOID PENALTY AND '. DTSBR109 00166 05 WS-LINE-11. DTSBR109 00167 10 WS-VAR-TEXT11 PIC X(17) VALUE DTSBR109 00168 'INTEREST CHARGES.'. DTSBR109 00169 01 ROUTE-INFO-LINE7. DTSBR109 00170 05 FILLER PIC X(23). DTSBR109 00171 05 FILLER PIC X(40) DTSBR109 00172 VALUE ALL '*'. DTSBR109 00173 01 ROUTE-INFO-LINE8. DTSBR109 00174 05 FILLER PIC X(23). DTSBR109 00175 05 FILLER PIC X(40) DTSBR109 00176 VALUE '* ROUTE REPORT RPT109R1 TO: *'. DTSBR109 00177 01 ROUTE-INFO-LINE9. DTSBR109 00178 05 FILLER PIC X(23). DTSBR109 00179 05 FILLER PIC X(01) DTSBR109 00180 VALUE '*'. DTSBR109 00181 05 FILLER PIC X(03). DTSBR109 00182 05 WS-OPR-NAME-INFO PIC X(32). DTSBR109 00183 05 FILLER PIC X(03). DTSBR109 00184 05 FILLER PIC X(01) DTSBR109 00185 VALUE '*'. DTSBR109 00186 01 ROUTE-INFO-LINE10. DTSBR109 00187 05 FILLER PIC X(23). DTSBR109 00188 05 FILLER PIC X(01) DTSBR109 00189 VALUE '*'. DTSBR109 00190 05 FILLER PIC X(03). DTSBR109 00191 05 WS-UNIT-NAME-INFO PIC X(30). DTSBR109 00192 05 FILLER PIC X(05). DTSBR109 00193 05 FILLER PIC X(01) DTSBR109 00194 VALUE '*'. DTSBR109 00195 01 ROUTE-INFO-LINE11. DTSBR109 00196 05 FILLER PIC X(23). DTSBR109 00197 05 FILLER PIC X(40) DTSBR109 00198 VALUE ALL '*'. DTSBR109 00199 SKIP3 DTSBR109 00200 05 RPT-LINE-1. DTSBR109 00201 10 FILLER PIC X(14) VALUE SPACES. DTSBR109 00202 10 RPT-MAIL-DATE PIC X(18). DTSBR109 00203 10 FILLER PIC X(58) VALUE SPACES. DTSBR109 00204 SKIP3 DTSBR109 00205 05 RPT-LINE-2. DTSBR109 00206 10 FILLER PIC X(14) VALUE SPACES. DTSBR109 00207 10 FILLER PIC X(13) VALUE DTSBR109 00208 'ACCOUNT NO: '. DTSBR109 00209 10 RPT-EMP-NO PIC 999B999. DTSBR109 00210 10 FILLER PIC X(20) VALUE SPACES. DTSBR109 00211 10 FILLER PIC X(15) VALUE DTSBR109 00212 ' LIABLE DATE: '. DTSBR109 00213 10 RPT-SUBJECT-DATE PIC X(12). DTSBR109 00214 10 FILLER PIC X(48) VALUE SPACES. DTSBR109 00215 05 RPT-LINE-3. DTSBR109 00216 10 FILLER PIC X(13) VALUE SPACES. DTSBR109 00217 10 RPT-ADDR1 PIC X(40). DTSBR109 00218 10 FILLER PIC X(30) VALUE SPACES. DTSBR109 00219 05 RPT-LINE-4. DTSBR109 00220 10 FILLER PIC X(13) VALUE SPACES. DTSBR109 00221 10 RPT-ADDR2 PIC X(40). DTSBR109 00222 10 FILLER PIC X(30) VALUE SPACES. DTSBR109 00223 05 RPT-LINE-5. DTSBR109 00224 10 FILLER PIC X(13) VALUE SPACES. DTSBR109 00225 10 RPT-ADDR3 PIC X(40). DTSBR109 00226 10 FILLER PIC X(30) VALUE SPACES. DTSBR109 00227 05 RPT-LINE-6. DTSBR109 00228 10 FILLER PIC X(13) VALUE SPACES. DTSBR109 00229 10 RPT-ADDR4 PIC X(40). DTSBR109 00230 10 FILLER PIC X(30) VALUE SPACES. DTSBR109 00231 05 RPT-LINE-7. DTSBR109 00232 10 FILLER PIC X(13) VALUE SPACES. DTSBR109 00233 10 RPT-ADDR5 PIC X(40). DTSBR109 00234 10 FILLER PIC X(30) VALUE SPACES. DTSBR109 00235 05 RPT-LINE-8. DTSBR109 00236 10 FILLER PIC X(28) VALUE SPACES. DTSBR109 00237 10 RPT-YEAR1 PIC X(04). DTSBR109 00238 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00239 10 RPT-QTR-11 PIC X(03). DTSBR109 00240 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00241 10 RPT-QTR-12 PIC X(03). DTSBR109 00242 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00243 10 RPT-QTR-13 PIC X(03). DTSBR109 00244 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00245 10 RPT-QTR-14 PIC X(03). DTSBR109 00246 10 FILLER PIC X(05) VALUE SPACES. DTSBR109 00247 10 RPT-VAR-TEXT8A PIC X(23) VALUE SPACES. DTSBR109 00248 * DTSBR109 00249 * 'REPORT AND PAYMENT FOR 99/9 - 99/9 DTSBR109 00250 * MUST BE RETURNED BY 99/99/99 DTSBR109 00251 * TO AVOID PENALTY AND INTEREST CHARGES DTSBR109 00252 * DTSBR109 00253 10 RPT-VAR-TEXT8B PIC X(05). DTSBR109 00254 10 RPT-DASH PIC X(03) VALUE SPACES. DTSBR109 00255 10 RPT-VAR-TEXT8C PIC X(05). DTSBR109 00256 05 RPT-LINE-9. DTSBR109 00257 10 FILLER PIC X(28) VALUE SPACES. DTSBR109 00258 10 RPT-YEAR2 PIC X(04). DTSBR109 00259 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00260 10 RPT-QTR-21 PIC X(03). DTSBR109 00261 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00262 10 RPT-QTR-22 PIC X(03). DTSBR109 00263 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00264 10 RPT-QTR-23 PIC X(03). DTSBR109 00265 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00266 10 RPT-QTR-24 PIC X(03). DTSBR109 00267 10 FILLER PIC X(05) VALUE SPACES. DTSBR109 00268 10 RPT-VAR-TEXT8D PIC X(21). DTSBR109 00269 10 FILLER PIC X(01) VALUE SPACES. DTSBR109 00270 10 RPT-VAR-TEXT9A PIC X(08). DTSBR109 00271 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00272 05 RPT-LINE-10. DTSBR109 00273 10 FILLER PIC X(28) VALUE SPACES. DTSBR109 00274 10 RPT-YEAR3 PIC X(04). DTSBR109 00275 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00276 10 RPT-QTR-31 PIC X(03). DTSBR109 00277 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00278 10 RPT-QTR-32 PIC X(03). DTSBR109 00279 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00280 10 RPT-QTR-33 PIC X(03). DTSBR109 00281 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00282 10 RPT-QTR-34 PIC X(03). DTSBR109 00283 10 FILLER PIC X(05) VALUE SPACES. DTSBR109 00284 10 RPT-VAR-TEXT9B PIC X(21) VALUE SPACES. DTSBR109 00285 10 RPT-VAR-TEXT11 PIC X(20) VALUE SPACES. DTSBR109 00286 10 FILLER PIC X(30) VALUE SPACES. DTSBR109 00287 05 RPT-LINE-11. DTSBR109 00288 10 FILLER PIC X(28) VALUE SPACES. DTSBR109 00289 10 RPT-YEAR4 PIC X(04). DTSBR109 00290 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00291 10 RPT-QTR-41 PIC X(03). DTSBR109 00292 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00293 10 RPT-QTR-42 PIC X(03). DTSBR109 00294 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00295 10 RPT-QTR-43 PIC X(03). DTSBR109 00296 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00297 10 RPT-QTR-44 PIC X(03). DTSBR109 00298 10 FILLER PIC X(05) VALUE SPACES. DTSBR109 00299 10 FILLER PIC X(20) VALUE SPACES. DTSBR109 00300 05 RPT-LINE-12. DTSBR109 00301 10 FILLER PIC X(28) VALUE SPACES. DTSBR109 00302 10 RPT-YEAR5 PIC X(04). DTSBR109 00303 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00304 10 RPT-QTR-51 PIC X(03). DTSBR109 00305 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00306 10 RPT-QTR-52 PIC X(03). DTSBR109 00307 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00308 10 RPT-QTR-53 PIC X(03). DTSBR109 00309 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00310 10 RPT-QTR-54 PIC X(03). DTSBR109 00311 10 FILLER PIC X(30) VALUE SPACES. DTSBR109 00312 05 RPT-LINE-13. DTSBR109 00313 10 FILLER PIC X(28) VALUE SPACES. DTSBR109 00314 10 RPT-YEAR6 PIC X(04). DTSBR109 00315 10 RPT-QTR-61 PIC X(03). DTSBR109 00316 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00317 10 RPT-QTR-62 PIC X(03). DTSBR109 00318 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00319 10 RPT-QTR-63 PIC X(03). DTSBR109 00320 10 FILLER PIC X(02) VALUE SPACES. DTSBR109 00321 10 RPT-QTR-64 PIC X(03). DTSBR109 00322 10 FILLER PIC X(30) VALUE SPACES. DTSBR109 00323 05 RPT-LINE-14. DTSBR109 00324 10 FILLER PIC X(14) VALUE SPACES. DTSBR109 00325 10 RPT-FREP-NAME PIC X(40). DTSBR109 00326 10 FILLER PIC X(30) VALUE SPACES. DTSBR109 00327 05 RPT-LINE-14B. DTSBR109 00328 10 FILLER PIC X(14) VALUE SPACES. DTSBR109 00329 10 FILLER PIC X(23) VALUE DTSBR109 00330 'Field Representative '. DTSBR109 00331 05 RPT-LINE-15. DTSBR109 00332 10 FILLER PIC X(30) VALUE SPACES. DTSBR109 00333 10 RPT-FREP-ATTN PIC X(40). DTSBR109 00334 10 FILLER PIC X(30) VALUE SPACES. DTSBR109 00335 05 RPT-LINE-16. DTSBR109 00336 10 FILLER PIC X(30) VALUE SPACES. DTSBR109 00337 10 RPT-FREP-DELIV PIC X(40). DTSBR109 00338 10 FILLER PIC X(30) VALUE SPACES. DTSBR109 00339 05 RPT-LINE-17. DTSBR109 00340 10 FILLER PIC X(30) VALUE SPACES. DTSBR109 00341 10 RPT-CITY-ZIP PIC X(40). DTSBR109 00342 10 FILLER PIC X(27) VALUE SPACES. DTSBR109 00343 05 RPT-LINE-18. DTSBR109 00344 10 FILLER PIC X(14) VALUE SPACES. DTSBR109 00345 10 FILLER PIC X(12) VALUE DTSBR109 00346 'Telephone '. DTSBR109 00347 10 RPT-FREP-AREA PIC X(03). DTSBR109 00348 10 FILLER PIC X(01) VALUE '-'. DTSBR109 00349 10 RPT-FREP-THREE PIC X(03). DTSBR109 00350 10 FILLER PIC X(01) VALUE '-'. DTSBR109 00351 10 RPT-FREP-FOUR PIC X(04). DTSBR109 00352 10 FILLER PIC X(50) VALUE SPACES. DTSBR109 00353 EJECT DTSBR109 00354 LINKAGE SECTION. DTSBR109 00355 SKIP3 DTSBR109 00356 01 LRCM-LINK-AREA. DTSBR109 00357 ++INCLUDE DTSILRCM DTSBR109 00358 EJECT DTSBR109 00359 01 R109-REC. DTSBR109 00360 ++INCLUDE DTSIR109 DTSBR109 00361 EJECT DTSBR109 00362 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR109 00363 R109-REC. DTSBR109 00364 SKIP2 DTSBR109 00365 IF FIRST-TIME-IND = 'Y' DTSBR109 00366 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR109 00367 MOVE 'N' TO FIRST-TIME-IND. DTSBR109 00368 SKIP1 DTSBR109 00369 IF LRCM-EOR-88 DTSBR109 00370 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR109 00371 ELSE DTSBR109 00372 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR109 00373 SKIP2 DTSBR109 00374 GOBACK. DTSBR109 00375 EJECT DTSBR109 00376 I1000-INITIATE. DTSBR109 00377 SKIP1 DTSBR109 00378 OPEN OUTPUT PRT-FILE. DTSBR109 00379 MOVE SPACES TO XEROX-REPORT. DTSBR109 00380 MOVE SPACES TO WS-OP-ID-HOLD. DTSBR109 00381 SKIP2 DTSBR109 00382 I1000-EXIT. DTSBR109 00383 EXIT. DTSBR109 00384 EJECT DTSBR109 00385 P1000-PROCESS. DTSBR109 00386 SKIP1 DTSBR109 00387 IF R109-OP-ID = WS-OP-ID-HOLD DTSBR109 00388 NEXT SENTENCE DTSBR109 00389 ELSE DTSBR109 00390 MOVE R109-OP-ID TO WS-OP-ID-HOLD DTSBR109 00391 L082-OP-ID DTSBR109 00392 PERFORM S082-OP-ID-INFO THRU S082-EXIT DTSBR109 00393 MOVE L082-NAME TO L071-NAM DTSBR109 00394 MOVE 2 TO L071-NAME-FORMAT DTSBR109 00395 PERFORM S071-DESLASH-NAME THRU S071-EXIT DTSBR109 00396 MOVE L071-NAM TO WS-OPR-NAME WS-OPR-NAME-INFO DTSBR109 00397 MOVE L082-UNIT-NAME TO WS-UNIT-NAME-INFO DTSBR109 00398 DTSBR109 00399 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR109 00400 AFTER ADVANCING TOP-OF-PAGE DTSBR109 00401 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 8 DTSBR109 00402 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE7 DTSBR109 00403 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE8 DTSBR109 00404 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE9 DTSBR109 00405 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE10 DTSBR109 00406 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE11. DTSBR109 00407 DTSBR109 00408 MOVE R109-MAIL-DATE TO L002-DATE. DTSBR109 00409 SET L002-MIXED-CASE TO TRUE. DTSBR109 00410 PERFORM S002-DATE-ALPHA THRU S002-EXIT. DTSBR109 00411 DTSBR109 00412 MOVE R109-LIAB-DATE TO L001-FED-8-DATE-9. DTSBR109 00413 SET L001-FROM-FED-8 TO TRUE. DTSBR109 00414 PERFORM S001-DATE THRU S001-EXIT. DTSBR109 00415 MOVE L001-SLASH-8-DATE TO WS-LIAB-DATE. DTSBR109 00416 DTSBR109 00417 PERFORM P2000-PRINT-TOP THRU P2000-EXIT. DTSBR109 00418 DTSBR109 00419 MOVE SPACES TO WS-YRQ-TABLE-INIT. DTSBR109 00420 MOVE R109-YRQ (R109-YRQ-CNT) TO WS-YRQ-UNPACK. DTSBR109 00421 MOVE WS-YRQ-UNPACK-YYYY TO WS-YEAR-9 (1). DTSBR109 00422 MOVE WS-YRQ-DESCR (WS-YRQ-UNPACK-Q) DTSBR109 00423 TO WS-YRQ (1 1). DTSBR109 00424 MOVE 1 TO WS-YEAR-SUB DTSBR109 00425 WS-QTR-SUB. DTSBR109 00426 DTSBR109 00427 SUBTRACT +1 FROM R109-YRQ-CNT GIVING WS-SUB-MAX. DTSBR109 00428 DTSBR109 00429 PERFORM P1010-SET-YRQ-TABLE THRU P1010-EXIT DTSBR109 00430 VARYING WS-SUB FROM WS-SUB-MAX BY -1 DTSBR109 00431 UNTIL WS-SUB < +1. DTSBR109 00432 DTSBR109 00433 IF R109-WAIVE-START-YRQ = ZEROES DTSBR109 00434 PERFORM P4000-PRINT-PART2-NO-WAIVE-MSG THRU P4000-EXIT DTSBR109 00435 ELSE DTSBR109 00436 MOVE R109-WAIVE-START-YRQ TO L004-QTR-5-9 DTSBR109 00437 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR109 00438 MOVE L004-SLASH-QTR TO WS-WAIVE-START-YRQ DTSBR109 00439 DTSBR109 00440 MOVE R109-WAIVE-END-YRQ TO L004-QTR-5-9 DTSBR109 00441 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR109 00442 MOVE L004-SLASH-QTR TO WS-WAIVE-END-YRQ DTSBR109 00443 DTSBR109 00444 MOVE R109-WAIVE-DATE TO L001-FED-8-DATE-9 DTSBR109 00445 SET L001-FROM-FED-8 TO TRUE DTSBR109 00446 PERFORM S001-DATE THRU S001-EXIT DTSBR109 00447 MOVE L001-SLASH-DATE TO WS-WAIVE-DATE DTSBR109 00448 DTSBR109 00449 IF R109-WAIVE-START-YRQ = R109-WAIVE-END-YRQ DTSBR109 00450 PERFORM P5000-PRINT-PART2-S-WAIVE-MSG THRU P5000-EXIT DTSBR109 00451 ELSE DTSBR109 00452 PERFORM P6000-PRINT-PART2-M-WAIVE-MSG THRU P6000-EXIT.DTSBR109 00453 DTSBR109 00454 MOVE R109-FLD-REP-ID TO L062-FLD-REP-ID DTSBR109 00455 DTSBR109 00456 IF L062-FIELD-DESK-88 DTSBR109 00457 SET L062-DEFAULT-FLD-REP-88 TO TRUE. DTSBR109 00458 DTSBR109 00459 PERFORM S062-FLD-REP-INFO THRU S062-EXIT. DTSBR109 00460 DTSBR109 00461 IF L062-NOT-VALID DTSBR109 00462 SET L062-DEFAULT-FLD-REP-88 TO TRUE DTSBR109 00463 PERFORM S062-FLD-REP-INFO THRU S062-EXIT. DTSBR109 00464 DTSBR109 00465 IF L062-NOT-VALID DTSBR109 00466 PERFORM S999-ABEND THRU S999-EXIT. DTSBR109 00467 DTSBR109 00468 MOVE L062-NAME TO L071-NAM. DTSBR109 00469 SET L071-FROM-LAST-NAME-FIRST TO TRUE. DTSBR109 00470 PERFORM S071-DESLASH-NAME THRU S071-EXIT. DTSBR109 00471 MOVE L071-NAM TO WS-FIELD-NAME. DTSBR109 00472 * DTSBR109 00473 MOVE L062-VOICE-1 TO WS-OPR-VOICE. DTSBR109 00474 * DTSBR109 00475 PERFORM P7000-PRINT-FREP THRU P7000-EXIT. DTSBR109 00476 * DTSBR109 00477 P1000-EXIT. DTSBR109 00478 EXIT. DTSBR109 00479 P1010-SET-YRQ-TABLE. DTSBR109 00480 DTSBR109 00481 MOVE R109-YRQ (WS-SUB) TO WS-YRQ-UNPACK. DTSBR109 00482 DTSBR109 00483 IF WS-YRQ-UNPACK-YYYY < WS-YEAR-9 (WS-YEAR-SUB) DTSBR109 00484 ADD +1 TO WS-YEAR-SUB DTSBR109 00485 MOVE +1 TO WS-QTR-SUB DTSBR109 00486 IF WS-YEAR-SUB > +6 DTSBR109 00487 MOVE +0 TO WS-SUB DTSBR109 00488 GO TO P1010-EXIT DTSBR109 00489 END-IF DTSBR109 00490 DTSBR109 00491 MOVE WS-YRQ-UNPACK-YYYY TO WS-YEAR-9 (WS-YEAR-SUB) DTSBR109 00492 ELSE DTSBR109 00493 ADD +1 TO WS-QTR-SUB DTSBR109 00494 IF WS-QTR-SUB > +4 DTSBR109 00495 MOVE +0 TO WS-SUB DTSBR109 00496 GO TO P1010-EXIT. DTSBR109 00497 PERFORM DTSBR109 00498 VARYING WS-SUB2 FROM WS-QTR-SUB BY -1 DTSBR109 00499 UNTIL WS-SUB2 < +2 DTSBR109 00500 MOVE WS-YRQ (WS-YEAR-SUB WS-SUB2 - 1) DTSBR109 00501 TO WS-YRQ (WS-YEAR-SUB WS-SUB2) DTSBR109 00502 END-PERFORM. DTSBR109 00503 MOVE WS-YRQ-DESCR (WS-YRQ-UNPACK-Q) DTSBR109 00504 TO WS-YRQ (WS-YEAR-SUB 1). DTSBR109 00505 SKIP2 DTSBR109 00506 P1010-EXIT. DTSBR109 00507 EXIT. DTSBR109 00508 EJECT DTSBR109 00509 P2000-PRINT-TOP. DTSBR109 00510 DTSBR109 00511 IF R109-RPT-TYPE = 'A' DTSBR109 00512 MOVE 'FORMS=T109R1,''' TO XEROX-FORMS DTSBR109 00513 ELSE DTSBR109 00514 MOVE 'FORMS=T109R2,''' TO XEROX-FORMS. DTSBR109 00515 DTSBR109 00516 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE DTSBR109 00517 AFTER ADVANCING TOP-OF-PAGE. DTSBR109 00518 DTSBR109 00519 MOVE L002-LONG-TEXT-AREA TO RPT-MAIL-DATE. DTSBR109 00520 MOVE R109-EMP-NO TO RPT-EMP-NO. DTSBR109 00521 MOVE WS-LIAB-DATE TO RPT-SUBJECT-DATE. DTSBR109 00522 MOVE R109-FMT-LINE (1) TO RPT-ADDR1. DTSBR109 00523 MOVE R109-FMT-LINE (2) TO RPT-ADDR2. DTSBR109 00524 MOVE R109-FMT-LINE (3) TO RPT-ADDR3. DTSBR109 00525 MOVE R109-FMT-LINE (4) TO RPT-ADDR4. DTSBR109 00526 MOVE R109-FMT-LINE (5) TO RPT-ADDR5. DTSBR109 00527 WRITE XEROX-REPORT FROM RPT-LINE-1 AFTER ADVANCING 10 LINE. DTSBR109 00528 WRITE XEROX-REPORT FROM RPT-LINE-3 AFTER ADVANCING 2 LINE. DTSBR109 00529 WRITE XEROX-REPORT FROM RPT-LINE-4 AFTER ADVANCING 1 LINE. DTSBR109 00530 WRITE XEROX-REPORT FROM RPT-LINE-5 AFTER ADVANCING 1 LINE. DTSBR109 00531 WRITE XEROX-REPORT FROM RPT-LINE-6 AFTER ADVANCING 1 LINE. DTSBR109 00532 WRITE XEROX-REPORT FROM RPT-LINE-7 AFTER ADVANCING 1 LINE. DTSBR109 00533 WRITE XEROX-REPORT FROM RPT-LINE-2 AFTER ADVANCING 2 LINE. DTSBR109 00534 P2000-EXIT. DTSBR109 00535 EXIT. DTSBR109 00536 DTSBR109 00537 DTSBR109 00538 P4000-PRINT-PART2-NO-WAIVE-MSG. DTSBR109 00539 IF R109-RPT-TYPE = 'A' DTSBR109 00540 PERFORM P4100-FORMAT-YEAR THRU P4100-EXIT DTSBR109 00541 ELSE DTSBR109 00542 PERFORM P4200-FORMAT-PRINT THRU P4200-EXIT. DTSBR109 00543 DTSBR109 00544 PERFORM P4300-PRINT-LINES THRU P4300-EXIT. DTSBR109 00545 DTSBR109 00546 P4000-EXIT. DTSBR109 00547 EXIT. DTSBR109 00548 P4100-FORMAT-YEAR. DTSBR109 00549 MOVE SPACES TO RPT-LINE-8 DTSBR109 00550 RPT-LINE-9 DTSBR109 00551 RPT-LINE-10 DTSBR109 00552 RPT-LINE-11 DTSBR109 00553 RPT-LINE-12 DTSBR109 00554 RPT-LINE-13. DTSBR109 00555 DTSBR109 00556 DTSBR109 00557 MOVE WS-YEAR (1) TO RPT-YEAR1. DTSBR109 00558 MOVE WS-YEAR (2) TO RPT-YEAR2. DTSBR109 00559 MOVE WS-YEAR (3) TO RPT-YEAR3. DTSBR109 00560 MOVE WS-YEAR (4) TO RPT-YEAR4. DTSBR109 00561 MOVE WS-YEAR (5) TO RPT-YEAR5. DTSBR109 00562 MOVE WS-YEAR (6) TO RPT-YEAR6. DTSBR109 00563 DTSBR109 00564 P4100-EXIT. DTSBR109 00565 EXIT. DTSBR109 00566 DTSBR109 00567 P4200-FORMAT-PRINT. DTSBR109 00568 DTSBR109 00569 MOVE WS-YEAR (1) TO RPT-YEAR1. DTSBR109 00570 MOVE WS-YRQ (1 1) TO RPT-QTR-11. DTSBR109 00571 MOVE WS-YRQ (1 2) TO RPT-QTR-12. DTSBR109 00572 MOVE WS-YRQ (1 3) TO RPT-QTR-13. DTSBR109 00573 MOVE WS-YRQ (1 4) TO RPT-QTR-14. DTSBR109 00574 DTSBR109 00575 MOVE WS-YEAR (2) TO RPT-YEAR2. DTSBR109 00576 MOVE WS-YRQ (2 1) TO RPT-QTR-21. DTSBR109 00577 MOVE WS-YRQ (2 2) TO RPT-QTR-22. DTSBR109 00578 MOVE WS-YRQ (2 3) TO RPT-QTR-23. DTSBR109 00579 MOVE WS-YRQ (2 4) TO RPT-QTR-24. DTSBR109 00580 DTSBR109 00581 MOVE WS-YEAR (3) TO RPT-YEAR3. DTSBR109 00582 MOVE WS-YRQ (3 1) TO RPT-QTR-31. DTSBR109 00583 MOVE WS-YRQ (3 2) TO RPT-QTR-32. DTSBR109 00584 MOVE WS-YRQ (3 3) TO RPT-QTR-33. DTSBR109 00585 MOVE WS-YRQ (3 4) TO RPT-QTR-34. DTSBR109 00586 DTSBR109 00587 MOVE WS-YEAR (4) TO RPT-YEAR4. DTSBR109 00588 MOVE WS-YRQ (4 1) TO RPT-QTR-41. DTSBR109 00589 MOVE WS-YRQ (4 2) TO RPT-QTR-42. DTSBR109 00590 MOVE WS-YRQ (4 3) TO RPT-QTR-43. DTSBR109 00591 MOVE WS-YRQ (4 4) TO RPT-QTR-44. DTSBR109 00592 DTSBR109 00593 MOVE WS-YEAR (5) TO RPT-YEAR5. DTSBR109 00594 MOVE WS-YRQ (5 1) TO RPT-QTR-51. DTSBR109 00595 MOVE WS-YRQ (5 2) TO RPT-QTR-52. DTSBR109 00596 MOVE WS-YRQ (5 3) TO RPT-QTR-53. DTSBR109 00597 MOVE WS-YRQ (5 4) TO RPT-QTR-54. DTSBR109 00598 DTSBR109 00599 MOVE WS-YEAR (6) TO RPT-YEAR6. DTSBR109 00600 MOVE WS-YRQ (6 1) TO RPT-QTR-61. DTSBR109 00601 MOVE WS-YRQ (6 2) TO RPT-QTR-62. DTSBR109 00602 MOVE WS-YRQ (6 3) TO RPT-QTR-63. DTSBR109 00603 MOVE WS-YRQ (6 4) TO RPT-QTR-64. DTSBR109 00604 DTSBR109 00605 P4200-EXIT. DTSBR109 00606 EXIT. DTSBR109 00607 DTSBR109 00608 P4300-PRINT-LINES. DTSBR109 00609 WRITE XEROX-REPORT FROM RPT-LINE-8 AFTER ADVANCING 11 LINE. DTSBR109 00610 WRITE XEROX-REPORT FROM RPT-LINE-9 AFTER ADVANCING 1 LINE. DTSBR109 00611 WRITE XEROX-REPORT FROM RPT-LINE-10 AFTER ADVANCING 1 LINE. DTSBR109 00612 WRITE XEROX-REPORT FROM RPT-LINE-11 AFTER ADVANCING 1 LINE. DTSBR109 00613 WRITE XEROX-REPORT FROM RPT-LINE-12 AFTER ADVANCING 1 LINE. DTSBR109 00614 WRITE XEROX-REPORT FROM RPT-LINE-13 AFTER ADVANCING 1 LINE. DTSBR109 00615 DTSBR109 00616 P4300-EXIT. DTSBR109 00617 EXIT. DTSBR109 00618 P5000-PRINT-PART2-S-WAIVE-MSG. DTSBR109 00619 IF R109-RPT-TYPE = 'A' DTSBR109 00620 PERFORM P4100-FORMAT-YEAR THRU P4100-EXIT DTSBR109 00621 ELSE DTSBR109 00622 PERFORM P4200-FORMAT-PRINT THRU P4200-EXIT. DTSBR109 00623 DTSBR109 00624 MOVE WS-VAR-TEXT8A TO RPT-VAR-TEXT8A. DTSBR109 00625 MOVE WS-WAIVE-START-YRQ TO RPT-VAR-TEXT8B. DTSBR109 00626 MOVE WS-VAR-TEXT8D TO RPT-VAR-TEXT8D. DTSBR109 00627 MOVE WS-WAIVE-DATE TO RPT-VAR-TEXT9A. DTSBR109 00628 MOVE WS-VAR-TEXT9B TO RPT-VAR-TEXT9B. DTSBR109 00629 MOVE WS-VAR-TEXT11 TO RPT-VAR-TEXT11. DTSBR109 00630 PERFORM P4300-PRINT-LINES THRU P4300-EXIT. DTSBR109 00631 DTSBR109 00632 MOVE SPACES TO RPT-VAR-TEXT8A DTSBR109 00633 RPT-VAR-TEXT8B DTSBR109 00634 RPT-VAR-TEXT8D DTSBR109 00635 RPT-VAR-TEXT9A DTSBR109 00636 RPT-VAR-TEXT11 DTSBR109 00637 RPT-VAR-TEXT9B. DTSBR109 00638 DTSBR109 00639 P5000-EXIT. DTSBR109 00640 EXIT. DTSBR109 00641 DTSBR109 00642 DTSBR109 00643 P6000-PRINT-PART2-M-WAIVE-MSG. DTSBR109 00644 DTSBR109 00645 IF R109-RPT-TYPE = 'A' DTSBR109 00646 PERFORM P4100-FORMAT-YEAR THRU P4100-EXIT DTSBR109 00647 ELSE DTSBR109 00648 PERFORM P4200-FORMAT-PRINT THRU P4200-EXIT. DTSBR109 00649 DTSBR109 00650 DTSBR109 00651 MOVE WS-VAR-TEXT8A TO RPT-VAR-TEXT8A. DTSBR109 00652 MOVE WS-WAIVE-START-YRQ TO RPT-VAR-TEXT8B. DTSBR109 00653 MOVE ' - ' TO RPT-DASH. DTSBR109 00654 MOVE WS-WAIVE-END-YRQ TO RPT-VAR-TEXT8C. DTSBR109 00655 MOVE WS-VAR-TEXT8D TO RPT-VAR-TEXT8D. DTSBR109 00656 MOVE WS-WAIVE-DATE TO RPT-VAR-TEXT9A. DTSBR109 00657 MOVE WS-VAR-TEXT9B TO RPT-VAR-TEXT9B. DTSBR109 00658 MOVE WS-VAR-TEXT11 TO RPT-VAR-TEXT11. DTSBR109 00659 DTSBR109 00660 PERFORM P4300-PRINT-LINES THRU P4300-EXIT. DTSBR109 00661 DTSBR109 00662 MOVE SPACES TO RPT-VAR-TEXT8A DTSBR109 00663 RPT-VAR-TEXT8B DTSBR109 00664 RPT-DASH DTSBR109 00665 RPT-VAR-TEXT8C DTSBR109 00666 RPT-VAR-TEXT8D DTSBR109 00667 RPT-VAR-TEXT9A DTSBR109 00668 RPT-VAR-TEXT11 DTSBR109 00669 RPT-VAR-TEXT9B. DTSBR109 00670 DTSBR109 00671 DTSBR109 00672 DTSBR109 00673 P6000-EXIT. DTSBR109 00674 EXIT. DTSBR109 00675 DTSBR109 00676 P7000-PRINT-FREP. DTSBR109 00677 MOVE WS-FIELD-NAME TO RPT-FREP-NAME. DTSBR109 00678 DTSBR109 00679 MOVE L062-PHYS-ATTN-LINE TO RPT-FREP-ATTN DTSBR109 00680 * DTSBR109 00681 MOVE L062-PHYS-DELIV-LINE-1 TO RPT-FREP-DELIV DTSBR109 00682 DTSBR109 00683 STRING L062-PHYS-CITY DELIMITED BY ' ' DTSBR109 00684 ', ' DELIMITED BY SIZE DTSBR109 00685 L062-PHYS-ST DELIMITED BY SIZE DTSBR109 00686 ' ' DELIMITED BY SIZE DTSBR109 00687 L062-PHYS-ZIP DELIMITED BY ' ' DTSBR109 00688 '.' DELIMITED BY SIZE DTSBR109 00689 INTO DTSBR109 00690 WS-CITY-ST-ZIP. DTSBR109 00691 DTSBR109 00692 MOVE WS-CITY-ST-ZIP TO RPT-CITY-ZIP. DTSBR109 00693 DTSBR109 00694 MOVE WS-OPR-VOICE-AREA TO RPT-FREP-AREA. DTSBR109 00695 MOVE WS-OPR-VOICE-1 TO RPT-FREP-THREE. DTSBR109 00696 MOVE WS-OPR-VOICE-2 TO RPT-FREP-FOUR. DTSBR109 00697 * DTSBR109 00698 WRITE XEROX-REPORT FROM RPT-LINE-14 AFTER ADVANCING 7 LINE. DTSBR109 00699 WRITE XEROX-REPORT FROM RPT-LINE-14b AFTER ADVANCING 1 LINE. DTSBR109 00700 * WRITE XEROX-REPORT FROM RPT-LINE-15 AFTER ADVANCING 1 LINE. DTSBR109 00701 * WRITE XEROX-REPORT FROM RPT-LINE-16 AFTER ADVANCING 1 LINE. DTSBR109 00702 * WRITE XEROX-REPORT FROM RPT-LINE-17 AFTER ADVANCING 1 LINE. DTSBR109 00703 WRITE XEROX-REPORT FROM RPT-LINE-18 AFTER ADVANCING 2 LINE. DTSBR109 00704 DTSBR109 00705 P7000-EXIT. DTSBR109 00706 EXIT. DTSBR109 00707 T1000-TERMINATE. DTSBR109 00708 SKIP1 DTSBR109 00709 CLOSE PRT-FILE. DTSBR109 00710 SKIP2 DTSBR109 00711 T1000-EXIT. DTSBR109 00712 EXIT. DTSBR109 00713 EJECT DTSBR109 00714 S001-DATE. DTSBR109 00715 SKIP1 DTSBR109 00716 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR109 00717 SKIP2 DTSBR109 00718 S001-EXIT. DTSBR109 00719 EXIT. DTSBR109 00720 SKIP3 DTSBR109 00721 S002-DATE-ALPHA. DTSBR109 00722 SKIP1 DTSBR109 00723 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR109 00724 SKIP2 DTSBR109 00725 S002-EXIT. DTSBR109 00726 EXIT. DTSBR109 00727 SKIP3 DTSBR109 00728 S004-FROM-5. DTSBR109 00729 SET L004-FROM-5 TO TRUE. DTSBR109 00730 GO TO S004-YRQ. DTSBR109 00731 DTSBR109 00732 S004-FROM-ABS. DTSBR109 00733 SET L004-FROM-ABS TO TRUE. DTSBR109 00734 GO TO S004-YRQ. DTSBR109 00735 DTSBR109 00736 S004-YRQ. DTSBR109 00737 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR109 00738 DTSBR109 00739 IF L004-INVALID-QTR DTSBR109 00740 PERFORM S999-ABEND THRU S999-EXIT. DTSBR109 00741 S004-EXIT. DTSBR109 00742 EXIT. DTSBR109 00743 SKIP1 DTSBR109 00744 S062-FLD-REP-INFO. DTSBR109 00745 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBR109 00746 SKIP2 DTSBR109 00747 S062-EXIT. DTSBR109 00748 EXIT. DTSBR109 00749 SKIP3 DTSBR109 00750 S071-DESLASH-NAME. DTSBR109 00751 SKIP1 DTSBR109 00752 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR109 00753 SKIP2 DTSBR109 00754 S071-EXIT. DTSBR109 00755 EXIT. DTSBR109 00756 SKIP3 DTSBR109 00757 S082-OP-ID-INFO. DTSBR109 00758 SKIP1 DTSBR109 00759 CALL 'DTSBU082' USING L082-LINK-AREA. DTSBR109 00760 SKIP2 DTSBR109 00761 S082-EXIT. DTSBR109 00762 EXIT. DTSBR109 00763 SKIP3 DTSBR109 00764 S090-PARAGRAPH-FORMAT. DTSBR109 00765 SKIP1 DTSBR109 00766 MOVE +0 TO L090-INDENT. DTSBR109 00767 SET L090-SPECIAL-CHAR-STD-88 TO TRUE. DTSBR109 00768 SKIP1 DTSBR109 00769 CALL 'DTSBU090' USING L090-LINK-AREA. DTSBR109 00770 SKIP2 DTSBR109 00771 S090-EXIT. DTSBR109 00772 EXIT. DTSBR109 00773 SKIP3 DTSBR109 00774 S119-AGENCY-FACTS. DTSBR109 00775 SKIP1 DTSBR109 00776 CALL 'DTSBU119' USING L119-LINK-AREA. DTSBR109 00777 SKIP2 DTSBR109 00778 S119-EXIT. DTSBR109 00779 EXIT. DTSBR109 00780 SKIP3 DTSBR109 00781 S999-ABEND. DTSBR109 00782 SKIP1 DTSBR109 00783 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR109 00784 SKIP2 DTSBR109 00785 S999-EXIT. DTSBR109 00786 EXIT. DTSBR109