00001 IDENTIFICATION DIVISION. 01/31/06 00002 PROGRAM-ID. DTSBR421. DTSBR421 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV022 00004 DATE-WRITTEN. JANUARY 1995. DTSBR421 00005 DATE-COMPILED. DTSBR421 00006 SKIP3 DTSBR421 00007 ***** DTSBR421 00008 * DTSBR421 00009 * CALLING SEQUENCE: DTSBE420 CREATES DTSIR421 RECORDS. DTSBR421 00010 * DTSBD800 CALLS DTSBR421 WHICH PRODUCES DTSBR421 00011 * THE REPORT NOTICE. DTSBR421 00012 * DTSBR421 00013 * FUNCTION: FINAL DELINQUENT REPORT NOTICE. DTSBR421 00014 * DTSBR421 00015 * DTSBR421 00016 * MODIFICATION HISTORY: DTSBR421 00017 * DTSBR421 00018 * 01-19-95 INITIAL DEVELOPMENT DTSBR421 00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - EHH DTSBR421 00020 * DTSBR421 00021 * 11-28-97 RECOMPILED FOR MODIFICATIONS TO DTSIL119. DTSBR421 00022 * REFERENCE RFP #RAP AUTHOR OF CHANGE - EHH DTSBR421 00023 * DTSBR421 00024 * 05-11-00 RECOMPILED FOR MODIFICATIONS TO DTSIL119,AND IZ COPYBOODTSBR421 00025 * REFERENCE: DC DEVELOPMENT AUTHOR OF CHANGE - ZL1 DTSBR421 00026 * DTSBR421 00027 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR421 00028 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR421 00029 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR421 00030 * DTSBR421 00031 * DTSBR421 00032 * DESCRIPTION: DTSBR421 00033 * DTSBR421 00034 * THIS MODULE PRINTS A "FINAL DELINQUENT REPORT NOTICE". DTSBR421 00035 * DTSBR421 00036 * DTSBR421 00037 * RECORDS READ: DTSBR421 00038 * DTSBR421 00039 * NONE. DTSBR421 00040 * DTSBR421 00041 * DTSBR421 00042 * PRINTED OUTPUTS: DTSBR421 00043 * DTSBR421 00044 * 421R1 FINAL DELINQUENT REPORT NOTICE. DTSBR421 00045 * DTSBR421 00046 * DTSBR421 00047 * RECORDS WRITTEN: DTSBR421 00048 * DTSBR421 00049 * NONE. DTSBR421 00050 * DTSBR421 00051 * DTSBR421 00052 * MODULES CALLED: DTSBR421 00053 * DTSBR421 00054 * DTSBU002 DATE ALPHA CONVERSION MODULE. DTSBR421 00055 * DTSBU004 YEAR/QUARTER CONVERSION. DTSBR421 00056 * DTSBU008 DISPLAY QUARTER IN TEXT FORMAT. DTSBR421 00057 * DTSBU056 RATE DISPLAY. DTSBR421 00058 * DTSBU062 FIELD REP ID EDIT/DESCRIPTION. DTSBR421 00059 * DTSBU071 NAME EDIT/CONVERSION. DTSBR421 00060 * DTSBU090 PARAGRAPH FORMATTING MODULE. DTSBR421 00061 * DTSBU119 AGENCY FACTS. DTSBR421 00062 * DTSBR421 00063 * DTSBR421 00064 ***** DTSBR421 00065 EJECT DTSBR421 00066 ENVIRONMENT DIVISION. DTSBR421 00067 DTSBR421 00068 CONFIGURATION SECTION. DTSBR421 00069 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR421 00070 DTSBR421 00071 INPUT-OUTPUT SECTION. DTSBR421 00072 DTSBR421 00073 FILE-CONTROL. DTSBR421 00074 SELECT PRT-FILE ASSIGN TO RPT421R1. DTSBR421 00075 DTSBR421 00076 DATA DIVISION. DTSBR421 00077 DTSBR421 00078 FILE SECTION. DTSBR421 00079 DTSBR421 00080 FD PRT-FILE DTSBR421 00081 RECORDING MODE IS F DTSBR421 00082 BLOCK CONTAINS 0 RECORDS DTSBR421 00083 LABEL RECORDS ARE OMITTED. DTSBR421 00084 DTSBR421 00085 01 XEROX-REPORT. DTSBR421 00086 05 FILLER PIC X(1). DTSBR421 00087 05 XEROX-RPT PIC X(132). DTSBR421 00088 DTSBR421 00089 EJECT DTSBR421 00090 WORKING-STORAGE SECTION. DTSBR421 000905 77 PAN-VALET PICTURE X(24) VALUE '022DTSBR421 01/31/06'. DTSBR421 00091 DTSBR421 00092 01 WRK-AREA. DTSBR421 00093 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +421.DTSBR421 00094 DTSBR421 00095 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR421 00096 DTSBR421 00097 05 ABEND-MSG PIC X(60). DTSBR421 00098 DTSBR421 00099 05 HOLD-FLD-REP-ID PIC X(02). DTSBR421 00100 88 HOLD-FLD-REP-OUT-OF-STATE-88 VALUE '98' '99'. DTSBR421 00101 DTSBR421 00102 05 WS-UNIT-TEL. DTSBR421 00103 10 WS-UNIT-AREA-CD PIC X(03). DTSBR421 00104 10 WS-UNIT-PREFIX PIC X(03). DTSBR421 00105 10 WS-UNIT-SUFFIX PIC X(04). DTSBR421 00106 10 WS-UNIT-EXTENSION PIC X(04). DTSBR421 00107 DTSBR421 00108 05 WS-UNIT-FAX. DTSBR421 00109 10 WS-UNIT-FAX-AREA-CD PIC X(03). DTSBR421 00110 10 WS-UNIT-FAX-PREFIX PIC X(03). DTSBR421 00111 10 WS-UNIT-FAX-SUFFIX PIC X(04). DTSBR421 00112 10 WS-UNIT-FAX-EXTENSION PIC X(04). DTSBR421 00113 DTSBR421 00114 05 DISP-UNIT-TEL. DTSBR421 00115 10 DISP-UNIT-TEL-FILLER-1 PIC X(01). DTSBR421 00116 10 DISP-UNIT-TEL-AREA-CD PIC X(03). DTSBR421 00117 10 DISP-UNIT-TEL-FILLER-2 PIC X(02). DTSBR421 00118 10 DISP-UNIT-TEL-PREFIX PIC X(03). DTSBR421 00119 10 DISP-UNIT-TEL-FILLER-3 PIC X(01). DTSBR421 00120 10 DISP-UNIT-TEL-SUFFIX PIC X(04). DTSBR421 00121 DTSBR421 00122 05 DISP-UNIT-FAX. DTSBR421 00123 10 DISP-UNIT-FAX-FILLER-1 PIC X(01). DTSBR421 00124 10 DISP-UNIT-FAX-AREA-CD PIC X(03). DTSBR421 00125 10 DISP-UNIT-FAX-FILLER-2 PIC X(02). DTSBR421 00126 10 DISP-UNIT-FAX-PREFIX PIC X(03). DTSBR421 00127 10 DISP-UNIT-FAX-FILLER-3 PIC X(01). DTSBR421 00128 10 DISP-UNIT-FAX-SUFFIX PIC X(04). DTSBR421 00129 DTSBR421 00130 05 DISP-FLD-TEL. DTSBR421 00131 10 DISP-FLD-TEL-FILLER-1 PIC X(01). DTSBR421 00132 10 DISP-FLD-TEL-AREA-CD PIC X(03). DTSBR421 00133 10 DISP-FLD-TEL-FILLER-2 PIC X(02). DTSBR421 00134 10 DISP-FLD-TEL-PREFIX PIC X(03). DTSBR421 00135 10 DISP-FLD-TEL-FILLER-3 PIC X(01). DTSBR421 00136 10 DISP-FLD-TEL-SUFFIX PIC X(04). DTSBR421 00137 DTSBR421 00138 05 WS-START-POS PIC S9(04) COMP. DTSBR421 00139 DTSBR421 00140 05 WS-LONG-TEXT-MAIL-DATE PIC X(18). DTSBR421 00141 DTSBR421 00142 05 WS-LONG-TEXT-FIRST-DEL-DATE PIC X(18). DTSBR421 00143 DTSBR421 00144 05 WS-LONG-TEXT-THREAT-DATE PIC X(18). DTSBR421 00145 DTSBR421 00146 05 WS-UC-SHORT-MONTHS. DTSBR421 00147 10 WS-UC-SHORT-MONTH-1 PIC X(03). DTSBR421 00148 10 WS-UC-SHORT-MONTH-2 PIC X(03). DTSBR421 00149 10 WS-UC-SHORT-MONTH-3 PIC X(03). DTSBR421 00150 DTSBR421 00151 05 WS-SHORT-YEAR PIC X(02). DTSBR421 00152 DTSBR421 00153 05 WS-LONG-YEAR PIC X(04). DTSBR421 00154 DTSBR421 00155 05 WS-LONG-TEXT-DUE-DATE PIC X(18). DTSBR421 00156 DTSBR421 00157 05 WS-TEXT-LINE-5 PIC X(70). DTSBR421 00158 DTSBR421 00159 05 DETAIL-5-LINE-CNT PIC S9(04) COMP. DTSBR421 00160 DTSBR421 00161 05 DETAIL-5-BLANK-LINE-CNT PIC S9(04) COMP. DTSBR421 00162 DTSBR421 00163 05 WS-YRQ-SUB PIC S9(04) COMP. DTSBR421 00164 DTSBR421 00165 05 WS-AMT-CTR PIC S9(04) COMP. DTSBR421 00166 05 WS-AMT PIC X(14). DTSBR421 00167 05 WS-AMT-EDIT REDEFINES WS-AMT DTSBR421 00168 PIC ZZZ,ZZZ,ZZ9.99. DTSBR421 00169 05 WS-ADDR-FMT-AREA PIC X(200). DTSBR421 00170 05 WS-ADDR-FMT-AREA-X REDEFINES WS-ADDR-FMT-AREA. DTSBR421 00171 10 ADDR-FMT-LINE OCCURS 5 TIMES PIC X(40). DTSBR421 00172 DTSBR421 00173 01 VSCA-LINE. DTSBR421 00174 05 VSCA-DATA PIC X(133) VALUE SPACES. DTSBR421 00175 DTSBR421 00176 EJECT DTSBR421 00177 01 MIXED-CASE-LITERALS. DTSBR421 00178 ++INCLUDE DTSIZ42A DTSBR421 00179 EJECT DTSBR421 00180 01 L001-LINK-AREA. DTSBR421 00181 ++INCLUDE DTSIL001 DTSBR421 00182 EJECT DTSBR421 00183 01 L002-LINK-AREA. DTSBR421 00184 ++INCLUDE DTSIL002 DTSBR421 00185 EJECT DTSBR421 00186 01 L004-LINK-AREA. DTSBR421 00187 ++INCLUDE DTSIL004 DTSBR421 00188 EJECT DTSBR421 00189 01 L008-LINK-AREA. DTSBR421 00190 ++INCLUDE DTSIL008 DTSBR421 00191 EJECT DTSBR421 00192 01 L056-LINK-AREA. DTSBR421 00193 ++INCLUDE DTSIL056 DTSBR421 00194 EJECT DTSBR421 00195 01 L062-LINK-AREA. DTSBR421 00196 ++INCLUDE DTSIL062 DTSBR421 00197 EJECT DTSBR421 00198 01 L071-LINK-AREA. DTSBR421 00199 ++INCLUDE DTSIL071 DTSBR421 00200 EJECT DTSBR421 00201 01 L090-LINK-AREA. DTSBR421 00202 ++INCLUDE DTSIL090 DTSBR421 00203 EJECT DTSBR421 00204 01 L119-LINK-AREA. DTSBR421 00205 ++INCLUDE DTSIL119 DTSBR421 00206 EJECT DTSBR421 00207 *REPORT SECTION. DTSBR421 00208 ++INCLUDE DTSXL421 DTSBR421 00209 SKIP3 DTSBR421 00210 ++INCLUDE DTSIZ42B DTSBR421 00211 EJECT DTSBR421 00212 LINKAGE SECTION. DTSBR421 00213 SKIP3 DTSBR421 00214 01 LRCM-LINK-AREA. DTSBR421 00215 ++INCLUDE DTSILRCM DTSBR421 00216 EJECT DTSBR421 00217 01 R421-REC. DTSBR421 00218 ++INCLUDE DTSIR421 DTSBR421 00219 EJECT DTSBR421 00220 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR421 00221 R421-REC. DTSBR421 00222 DTSBR421 00223 IF FIRST-TIME-IND = 'Y' DTSBR421 00224 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR421 00225 MOVE 'N' TO FIRST-TIME-IND. DTSBR421 00226 DTSBR421 00227 IF LRCM-EOR-88 DTSBR421 00228 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR421 00229 ELSE DTSBR421 00230 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR421 00231 DTSBR421 00232 GOBACK. DTSBR421 00233 EJECT DTSBR421 00234 I1000-INITIATE. DTSBR421 00235 DTSBR421 00236 OPEN OUTPUT PRT-FILE. DTSBR421 00237 MOVE SPACES TO XEROX-REPORT. DTSBR421 00238 DTSBR421 00239 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR421 00240 AFTER ADVANCING TOP-OF-PAGE. DTSBR421 00241 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 11. DTSBR421 00242 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE. DTSBR421 00243 DTSBR421 00244 SET L119-REQ-COLLECTIONS-88 TO TRUE. DTSBR421 00245 PERFORM S119-REQ-MIXED THRU S119-EXIT. DTSBR421 00246 MOVE L119-UNIT-VOICE TO WS-UNIT-TEL. DTSBR421 00247 MOVE L119-UNIT-FAX TO WS-UNIT-FAX. DTSBR421 00248 MOVE HIGH-VALUES TO HOLD-FLD-REP-ID. DTSBR421 00249 I1000-EXIT. DTSBR421 00250 EXIT. DTSBR421 00251 EJECT DTSBR421 00252 P1000-PROCESS. DTSBR421 00253 MOVE '(' TO DISP-UNIT-TEL-FILLER-1. DTSBR421 00254 MOVE WS-UNIT-AREA-CD TO DISP-UNIT-TEL-AREA-CD. DTSBR421 00255 MOVE ') ' TO DISP-UNIT-TEL-FILLER-2. DTSBR421 00256 MOVE WS-UNIT-PREFIX TO DISP-UNIT-TEL-PREFIX. DTSBR421 00257 MOVE '-' TO DISP-UNIT-TEL-FILLER-3. DTSBR421 00258 MOVE WS-UNIT-SUFFIX TO DISP-UNIT-TEL-SUFFIX. DTSBR421 00259 DTSBR421 00260 MOVE R421-MAIL-DATE TO L002-DATE. DTSBR421 00261 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR421 00262 DTSBR421 00263 COMPUTE WS-START-POS = (18 - L002-LONG-TEXT-CNT) / 2. DTSBR421 00264 DTSBR421 00265 ADD +1 TO WS-START-POS. DTSBR421 00266 DTSBR421 00267 IF (WS-START-POS > +0) DTSBR421 00268 AND DTSBR421 00269 (WS-START-POS < +18) DTSBR421 00270 MOVE SPACES TO WS-LONG-TEXT-MAIL-DATE DTSBR421 00271 MOVE L002-LONG-TEXT-AREA DTSBR421 00272 TO WS-LONG-TEXT-MAIL-DATE (WS-START-POS:) DTSBR421 00273 ELSE DTSBR421 00274 MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-MAIL-DATE. DTSBR421 00275 DTSBR421 00276 MOVE R421-TOTAL-RATE TO L056-RATE. DTSBR421 00277 PERFORM S056-DISP1-LEFT-PCT THRU S056-EXIT. DTSBR421 00278 MOVE L056-DISP-RATE TO WS-DISP-RATE. DTSBR421 00279 DTSBR421 00280 MOVE R421-YRQ TO L008-YRQ. DTSBR421 00281 PERFORM S008-UPPER-CASE THRU S008-EXIT. DTSBR421 00282 MOVE L008-SHORT-MONTHS TO WS-UC-SHORT-MONTHS. DTSBR421 00283 DTSBR421 00284 MOVE L008-YEAR (3:2) TO WS-SHORT-YEAR. DTSBR421 00285 DTSBR421 00286 MOVE L008-YEAR TO WS-LONG-YEAR. DTSBR421 00287 DTSBR421 00288 MOVE R421-DUE-DATE TO L001-FED-8-DATE-9. DTSBR421 00289 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR421 00290 MOVE L001-SLASH-DATE TO WS-SLASH-DUE-DATE. DTSBR421 00291 DTSBR421 00292 MOVE R421-DUE-DATE TO L002-DATE. DTSBR421 00293 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR421 00294 MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-DUE-DATE. DTSBR421 00295 DTSBR421 00296 PERFORM P4000-PRINT-HEADER THRU P4000-EXIT. DTSBR421 00297 DTSBR421 00298 MOVE R421-AS-OF-DATE TO L002-DATE. DTSBR421 00299 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR421 00300 MOVE L002-SHORT-TEXT-AREA DTSBR421 00301 TO WS-SHORT-TEXT-AS-OF-DATE. DTSBR421 00302 DTSBR421 00303 MOVE +70 TO L090-DESIRED-LINE-LIMIT. DTSBR421 00304 MOVE +9 TO L090-PHRASE-CNT. DTSBR421 00305 DTSBR421 00306 MOVE MC-LIT-WAGE TO L090-PHRASE (1). DTSBR421 00307 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (1). DTSBR421 00308 DTSBR421 00309 MOVE MC-LIT-OF TO L090-PHRASE (2). DTSBR421 00310 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR421 00311 DTSBR421 00312 MOVE SPACES TO L090-PHRASE (3). DTSBR421 00313 STRING DTSBR421 00314 WS-UC-SHORT-MONTH-1 DELIMITED BY SIZE DTSBR421 00315 ', ' DELIMITED BY SIZE DTSBR421 00316 WS-UC-SHORT-MONTH-2 DELIMITED BY SIZE DTSBR421 00317 ' ' DELIMITED BY SIZE DTSBR421 00318 MC-LIT-AND DELIMITED BY ' ' DTSBR421 00319 ' ' DELIMITED BY SIZE DTSBR421 00320 WS-UC-SHORT-MONTH-3 DELIMITED BY SIZE DTSBR421 00321 ' ' DELIMITED BY SIZE DTSBR421 00322 WS-LONG-YEAR DELIMITED BY SIZE DTSBR421 00323 '.' DELIMITED BY SIZE DTSBR421 00324 INTO DTSBR421 00325 L090-PHRASE (3). DTSBR421 00326 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (3). DTSBR421 00327 DTSBR421 00328 MOVE MC-LIT-THIS-REPORT-WAS TO L090-PHRASE (4). DTSBR421 00329 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (4). DTSBR421 00330 DTSBR421 00331 MOVE SPACES TO L090-PHRASE (5). DTSBR421 00332 STRING WS-LONG-TEXT-DUE-DATE DELIMITED BY ' ' DTSBR421 00333 '.' DELIMITED BY SIZE DTSBR421 00334 INTO DTSBR421 00335 L090-PHRASE (5). DTSBR421 00336 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (5). DTSBR421 00337 DTSBR421 00338 MOVE MC-LIT-WE-RECEIVED-NO TO L090-PHRASE (6). DTSBR421 00339 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (6). DTSBR421 00340 DTSBR421 00341 MOVE MC-LIT-MAILED-ON TO L090-PHRASE (7). DTSBR421 00342 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (7). DTSBR421 00343 DTSBR421 00344 MOVE R421-UC30-FIRST-DEL-MAIL-DATE TO L002-DATE. DTSBR421 00345 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR421 00346 MOVE SPACE TO L090-PHRASE (8). DTSBR421 00347 STRING DTSBR421 00348 L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR421 00349 ',' DELIMITED BY SIZE DTSBR421 00350 INTO DTSBR421 00351 L090-PHRASE (8). DTSBR421 00352 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (8). DTSBR421 00353 DTSBR421 00354 MOVE MC-LIT-MAILED-TO-YOUR TO L090-PHRASE (9). DTSBR421 00355 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (9). DTSBR421 00356 DTSBR421 00357 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR421 00358 DTSBR421 00359 IF (L090-UNSUCCESSFUL-88) DTSBR421 00360 OR DTSBR421 00361 (L090-PARAGRAPH-LINE-CNT > +4) DTSBR421 00362 MOVE 'LOGIC ERROR P1000-1' TO ABEND-MSG DTSBR421 00363 PERFORM S999-ABEND THRU S999-EXIT. DTSBR421 00364 DTSBR421 00365 PERFORM P5000-PRINT-DETAIL-1 THRU P5000-EXIT. DTSBR421 00366 DTSBR421 00367 MOVE +70 TO L090-DESIRED-LINE-LIMIT. DTSBR421 00368 MOVE +7 TO L090-PHRASE-CNT. DTSBR421 00369 DTSBR421 00370 MOVE MC-LIT-BY-5 TO L090-PHRASE (1). DTSBR421 00371 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1). DTSBR421 00372 DTSBR421 00373 MOVE MC-LIT-BY-PM TO L090-PHRASE (2). DTSBR421 00374 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR421 00375 DTSBR421 00376 MOVE R421-FINAL-ACTION-DATE TO L002-DATE. DTSBR421 00377 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR421 00378 MOVE SPACE TO L090-PHRASE (3). DTSBR421 00379 STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR421 00380 ',' DELIMITED BY SIZE DTSBR421 00381 INTO DTSBR421 00382 L090-PHRASE (3). DTSBR421 00383 DTSBR421 00384 MOVE MC-LIT-A-MISSING-QTRS1 TO L090-PHRASE (4). DTSBR421 00385 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (4). DTSBR421 00386 DTSBR421 00387 MOVE MC-LIT-A-MISSING-QTRS2 TO L090-PHRASE (5). DTSBR421 00388 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (5). DTSBR421 00389 DTSBR421 00390 MOVE MC-LIT-TAX-LIEN TO L090-PHRASE (6). DTSBR421 00391 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (6). DTSBR421 00392 DTSBR421 00393 MOVE MC-LIT-AMOUNT TO L090-PHRASE (7). DTSBR421 00394 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (7). DTSBR421 00395 DTSBR421 00396 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR421 00397 DTSBR421 00398 DISPLAY ' LCNT ' L090-PARAGRAPH-LINE-CNT DTSBR421 00399 IF (L090-UNSUCCESSFUL-88) DTSBR421 00400 OR DTSBR421 00401 (L090-PARAGRAPH-LINE-CNT NOT = +3) DTSBR421 00402 MOVE 'LOGIC ERROR P1000-2' TO ABEND-MSG DTSBR421 00403 PERFORM S999-ABEND THRU S999-EXIT. DTSBR421 00404 DTSBR421 00405 PERFORM P6000-PRINT-DETAIL-2 THRU P6000-EXIT. DTSBR421 00406 DTSBR421 00407 IF R421-FIELD-REP-ID = HOLD-FLD-REP-ID DTSBR421 00408 NEXT SENTENCE DTSBR421 00409 ELSE DTSBR421 00410 MOVE R421-FIELD-REP-ID TO HOLD-FLD-REP-ID DTSBR421 00411 L062-FLD-REP-ID DTSBR421 00412 IF L062-FIELD-DESK-88 DTSBR421 00413 SET L062-DEFAULT-FLD-REP-88 TO TRUE DTSBR421 00414 END-IF DTSBR421 00415 PERFORM S062-FLD-REP-ID THRU S062-EXIT DTSBR421 00416 IF L062-NOT-VALID DTSBR421 00417 SET L062-DEFAULT-FLD-REP-88 TO TRUE DTSBR421 00418 PERFORM S062-FLD-REP-ID THRU S062-EXIT DTSBR421 00419 END-IF DTSBR421 00420 IF L062-NOT-VALID DTSBR421 00421 MOVE 'LOGIC ERROR P1000-4' TO ABEND-MSG DTSBR421 00422 PERFORM S999-ABEND THRU S999-EXIT DTSBR421 00423 END-IF. DTSBR421 00424 DTSBR421 00425 MOVE L062-NAME TO L071-NAM. DTSBR421 00426 PERFORM S071-FROM-LAST-NAME-FIRST THRU S071-EXIT. DTSBR421 00427 DTSBR421 00428 MOVE +70 TO L090-DESIRED-LINE-LIMIT. DTSBR421 00429 MOVE +0 TO L090-PHRASE-CNT. DTSBR421 00430 DTSBR421 00431 ADD +1 TO L090-PHRASE-CNT. DTSBR421 00432 MOVE MC-LIT-SERVICES TO L090-PHRASE (L090-PHRASE-CNT). DTSBR421 00433 MOVE SPACE DTSBR421 00434 TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT). DTSBR421 00435 DTSBR421 00436 ADD +1 TO L090-PHRASE-CNT. DTSBR421 00437 MOVE DISP-UNIT-TEL TO L090-PHRASE (L090-PHRASE-CNT). DTSBR421 00438 MOVE SPACE DTSBR421 00439 TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT). DTSBR421 00440 DTSBR421 00441 ADD +1 TO L090-PHRASE-CNT. DTSBR421 00442 MOVE SPACES TO L090-PHRASE (L090-PHRASE-CNT). DTSBR421 00443 STRING DTSBR421 00444 MC-LIT-FIELD-REP DELIMITED BY ' ' DTSBR421 00445 ' ' DELIMITED BY SIZE DTSBR421 00446 L071-NAM DELIMITED BY ' ' DTSBR421 00447 ',' DELIMITED BY SIZE DTSBR421 00448 INTO DTSBR421 00449 L090-PHRASE (L090-PHRASE-CNT). DTSBR421 00450 MOVE SPACE DTSBR421 00451 TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT). DTSBR421 00452 DTSBR421 00453 ADD +1 TO L090-PHRASE-CNT. DTSBR421 00454 MOVE MC-LIT-AT TO L090-PHRASE (L090-PHRASE-CNT). DTSBR421 00455 MOVE SPACE DTSBR421 00456 TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT). DTSBR421 00457 DTSBR421 00458 MOVE '(' TO DISP-FLD-TEL-FILLER-1. DTSBR421 00459 MOVE L062-VOICE-1-AREA-CD TO DISP-FLD-TEL-AREA-CD. DTSBR421 00460 MOVE ')\' TO DISP-FLD-TEL-FILLER-2. DTSBR421 00461 MOVE L062-VOICE-1-PREFIX TO DISP-FLD-TEL-PREFIX. DTSBR421 00462 MOVE '-' TO DISP-FLD-TEL-FILLER-3. DTSBR421 00463 MOVE L062-VOICE-1-SUFFIX TO DISP-FLD-TEL-SUFFIX. DTSBR421 00464 DTSBR421 00465 ADD +1 TO L090-PHRASE-CNT. DTSBR421 00466 MOVE SPACE TO L090-PHRASE (L090-PHRASE-CNT). DTSBR421 00467 STRING DTSBR421 00468 DISP-FLD-TEL DELIMITED BY SIZE DTSBR421 00469 '.' DELIMITED BY SIZE DTSBR421 00470 INTO DTSBR421 00471 L090-PHRASE (L090-PHRASE-CNT). DTSBR421 00472 MOVE SPACE DTSBR421 00473 TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT). DTSBR421 00474 DTSBR421 00475 ADD +1 TO L090-PHRASE-CNT. DTSBR421 00476 MOVE MC-LIT-TELEPHONE-NUMBER-FAX DTSBR421 00477 TO L090-PHRASE (L090-PHRASE-CNT). DTSBR421 00478 MOVE SPACE DTSBR421 00479 TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT). DTSBR421 00480 DTSBR421 00481 MOVE '(' TO DISP-UNIT-FAX-FILLER-1. DTSBR421 00482 MOVE WS-UNIT-FAX-AREA-CD TO DISP-UNIT-FAX-AREA-CD. DTSBR421 00483 MOVE ') ' TO DISP-UNIT-FAX-FILLER-2. DTSBR421 00484 MOVE WS-UNIT-FAX-PREFIX TO DISP-UNIT-FAX-PREFIX. DTSBR421 00485 MOVE '-' TO DISP-UNIT-FAX-FILLER-3. DTSBR421 00486 MOVE WS-UNIT-FAX-SUFFIX TO DISP-UNIT-FAX-SUFFIX. DTSBR421 00487 DTSBR421 00488 ADD +1 TO L090-PHRASE-CNT. DTSBR421 00489 MOVE SPACE TO L090-PHRASE (L090-PHRASE-CNT). DTSBR421 00490 STRING DTSBR421 00491 DISP-UNIT-FAX DELIMITED BY SIZE DTSBR421 00492 '.' DELIMITED BY SIZE DTSBR421 00493 INTO DTSBR421 00494 L090-PHRASE (L090-PHRASE-CNT). DTSBR421 00495 MOVE SPACE DTSBR421 00496 TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT). DTSBR421 00497 DTSBR421 00498 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR421 00499 DTSBR421 00500 IF (L090-UNSUCCESSFUL-88) DTSBR421 00501 OR DTSBR421 00502 (L090-PARAGRAPH-LINE-CNT > +4) DTSBR421 00503 OR DTSBR421 00504 (L090-PARAGRAPH-LINE-CNT < +1) DTSBR421 00505 MOVE 'LOGIC ERROR P1000-5' TO ABEND-MSG DTSBR421 00506 PERFORM S999-ABEND THRU S999-EXIT. DTSBR421 00507 DTSBR421 00508 IF L090-PARAGRAPH-LINE-CNT < +4 DTSBR421 00509 MOVE SPACES TO L090-PARAGRAPH-LINE (4). DTSBR421 00510 DTSBR421 00511 IF L090-PARAGRAPH-LINE-CNT < +3 DTSBR421 00512 MOVE SPACES TO L090-PARAGRAPH-LINE (3). DTSBR421 00513 DTSBR421 00514 IF L090-PARAGRAPH-LINE-CNT < +2 DTSBR421 00515 MOVE SPACES TO L090-PARAGRAPH-LINE (2). DTSBR421 00516 DTSBR421 00517 PERFORM P7000-PRINT-DETAIL-4A THRU P7000-EXIT. DTSBR421 00518 DTSBR421 00519 MOVE +0 TO DETAIL-5-LINE-CNT. DTSBR421 00520 DTSBR421 00521 IF R421-ADDITIONAL-RPT-CNT > +0 DTSBR421 00522 PERFORM P1100-ADDITIONAL-RPTS THRU P1100-EXIT. DTSBR421 00523 DTSBR421 00524 COMPUTE DETAIL-5-BLANK-LINE-CNT = 4 - DETAIL-5-LINE-CNT. DTSBR421 00525 DTSBR421 00526 IF DETAIL-5-BLANK-LINE-CNT > +0 DTSBR421 00527 MOVE SPACES TO WS-TEXT-LINE-5 DTSBR421 00528 PERFORM DTSBR421 00529 DETAIL-5-BLANK-LINE-CNT TIMES DTSBR421 00530 PERFORM P8000-PRINT-DETAIL-5A THRU P8000-EXIT DTSBR421 00531 END-PERFORM DTSBR421 00532 END-IF. DTSBR421 00533 DTSBR421 00534 DTSBR421 00535 PERFORM P2000-XEROX-ROUTINE THRU P2000-EXIT. DTSBR421 00536 P1000-EXIT. DTSBR421 00537 EXIT. DTSBR421 00538 EJECT DTSBR421 00539 P1100-ADDITIONAL-RPTS. DTSBR421 00540 MOVE +65 TO L090-DESIRED-LINE-LIMIT. DTSBR421 00541 DTSBR421 00542 MOVE ')\' TO DISP-UNIT-TEL-FILLER-2. DTSBR421 00543 MOVE +1 TO L090-PHRASE-CNT. DTSBR421 00544 MOVE SPACES TO L090-PHRASE (L090-PHRASE-CNT). DTSBR421 00545 STRING MC-LIT-PLEASE-CALL DELIMITED BY ' ' DTSBR421 00546 ' ' DELIMITED BY SIZE DTSBR421 00547 DISP-UNIT-TEL DELIMITED BY SIZE DTSBR421 00548 INTO L090-PHRASE (L090-PHRASE-CNT). DTSBR421 00549 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT). DTSBR421 00550 DTSBR421 00551 ADD +1 TO L090-PHRASE-CNT. DTSBR421 00552 MOVE MC-LIT-FOR-INFORMATION DTSBR421 00553 TO L090-PHRASE (L090-PHRASE-CNT). DTSBR421 00554 MOVE SPACES DTSBR421 00555 TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT). DTSBR421 00556 DTSBR421 00557 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR421 00558 DTSBR421 00559 IF L090-UNSUCCESSFUL-88 DTSBR421 00560 MOVE 'LOGIC ERROR P1100-1' TO ABEND-MSG DTSBR421 00561 PERFORM S999-ABEND THRU S999-EXIT. DTSBR421 00562 DTSBR421 00563 PERFORM DTSBR421 00564 VARYING L090-PARAGRAPH-IDX FROM 1 BY 1 DTSBR421 00565 UNTIL L090-PARAGRAPH-IDX > L090-PARAGRAPH-LINE-CNT DTSBR421 00566 MOVE L090-PARAGRAPH-LINE (L090-PARAGRAPH-IDX) DTSBR421 00567 TO WS-TEXT-LINE-5 DTSBR421 00568 IF L090-PARAGRAPH-LINE-DUPE-88 (L090-PARAGRAPH-IDX) DTSBR421 00569 PERFORM P1110-DUPE-TWEAK THRU P1110-EXIT DTSBR421 00570 PERFORM P9000-PRINT-DETAIL-5B THRU P9000-EXIT DTSBR421 00571 ELSE DTSBR421 00572 PERFORM P8000-PRINT-DETAIL-5A THRU P8000-EXIT DTSBR421 00573 ADD +1 TO DETAIL-5-LINE-CNT DTSBR421 00574 END-IF DTSBR421 00575 END-PERFORM. DTSBR421 00576 DTSBR421 00577 IF (DETAIL-5-LINE-CNT < +1) DTSBR421 00578 OR DTSBR421 00579 (DETAIL-5-LINE-CNT > +4) DTSBR421 00580 DISPLAY 'P1100-2 ' DTSBR421 00581 DETAIL-5-LINE-CNT DTSBR421 00582 MOVE 'LOGIC ERROR P1100-2' TO ABEND-MSG DTSBR421 00583 PERFORM S999-ABEND THRU S999-EXIT. DTSBR421 00584 P1100-EXIT. DTSBR421 00585 EXIT. DTSBR421 00586 SKIP3 DTSBR421 00587 P1110-DUPE-TWEAK. DTSBR421 00588 IF DETAIL-5-LINE-CNT = +1 DTSBR421 00589 MOVE ALL '_' TO WS-TEXT-LINE-5 (1:33) DTSBR421 00590 MOVE SPACE TO WS-TEXT-LINE-5 (34:1). DTSBR421 00591 P1110-EXIT. DTSBR421 00592 EXIT. DTSBR421 00593 P2000-XEROX-ROUTINE. DTSBR421 00594 MOVE R421-FMT-ADDR TO WS-ADDR-FMT-AREA. DTSBR421 00595 PERFORM P3000-SELF-MAILER-RTN THRU P3000-EXIT. DTSBR421 00596 P2000-EXIT. DTSBR421 00597 EXIT. DTSBR421 00598 EJECT DTSBR421 00599 P3000-SELF-MAILER-RTN. DTSBR421 00600 MOVE R421-FMT-LINE (1) TO WS-ADDR-FMT-LINE-1. DTSBR421 00601 MOVE R421-FMT-LINE (2) TO WS-ADDR-FMT-LINE-2. DTSBR421 00602 MOVE R421-FMT-LINE (3) TO WS-ADDR-FMT-LINE-3. DTSBR421 00603 MOVE R421-FMT-LINE (4) TO WS-ADDR-FMT-LINE-4. DTSBR421 00604 MOVE R421-FMT-LINE (5) TO WS-ADDR-FMT-LINE-5. DTSBR421 00605 PERFORM P9500-PRINT-VSCA-ADDR THRU P9500-EXIT. DTSBR421 00606 P3000-EXIT. DTSBR421 00607 EXIT. DTSBR421 00608 EJECT DTSBR421 00609 P4000-PRINT-HEADER. DTSBR421 00610 MOVE WS-LONG-TEXT-MAIL-DATE TO HDR-LONG-TEXT-MAIL-DATE. DTSBR421 00611 MOVE WS-SHORT-YEAR TO HDR-SHORT-YEAR. DTSBR421 00612 MOVE WS-UC-SHORT-MONTH-1 TO HDR-UC-SHORT-MONTH-1. DTSBR421 00613 MOVE WS-UC-SHORT-MONTH-2 TO HDR-UC-SHORT-MONTH-2. DTSBR421 00614 MOVE WS-UC-SHORT-MONTH-3 TO HDR-UC-SHORT-MONTH-3. DTSBR421 00615 MOVE R421-FMT-LINE (1) TO HDR-FMT-LINE-1. DTSBR421 00616 MOVE R421-FMT-LINE (2) TO HDR-FMT-LINE-2. DTSBR421 00617 MOVE R421-FMT-LINE (3) TO HDR-FMT-LINE-3. DTSBR421 00618 MOVE R421-FMT-LINE (4) TO HDR-FMT-LINE-4. DTSBR421 00619 MOVE R421-FMT-LINE (5) TO HDR-FMT-LINE-5. DTSBR421 00620 MOVE R421-EMP-NO TO HDR-EMP-NO. DTSBR421 00621 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR421 00622 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 07 LINE. DTSBR421 00623 WRITE XEROX-REPORT FROM HDR-LINE-13 AFTER ADVANCING 1 LINE. DTSBR421 00624 WRITE XEROX-REPORT FROM HDR-LINE-15 AFTER ADVANCING 1 LINE. DTSBR421 00625 WRITE XEROX-REPORT FROM HDR-LINE-16 AFTER ADVANCING 1 LINE. DTSBR421 00626 WRITE XEROX-REPORT FROM HDR-LINE-17 AFTER ADVANCING 1 LINE. DTSBR421 00627 WRITE XEROX-REPORT FROM HDR-LINE-18 AFTER ADVANCING 1 LINE. DTSBR421 00628 WRITE XEROX-REPORT FROM HDR-LINE-19 AFTER ADVANCING 1 LINE. DTSBR421 00629 WRITE XEROX-REPORT FROM HDR-LINE-20 AFTER ADVANCING 1 LINE. DTSBR421 00630 WRITE XEROX-REPORT FROM HDR-LINE-21 AFTER ADVANCING 1 LINE. DTSBR421 00631 WRITE XEROX-REPORT FROM HDR-LINE-22 AFTER ADVANCING 3 LINE. DTSBR421 00632 WRITE XEROX-REPORT FROM HDR-LINE-23 AFTER ADVANCING 1 LINE. DTSBR421 00633 DTSBR421 00634 P4000-EXIT. DTSBR421 00635 EXIT. DTSBR421 00636 DTSBR421 00637 P5000-PRINT-DETAIL-1. DTSBR421 00638 MOVE L090-PARAGRAPH-LINE (1) TO DTL1-PARAGRAPH-LINE-1. DTSBR421 00639 MOVE L090-PARAGRAPH-LINE (2) TO DTL1-PARAGRAPH-LINE-2. DTSBR421 00640 MOVE L090-PARAGRAPH-LINE (3) TO DTL1-PARAGRAPH-LINE-3. DTSBR421 00641 WRITE XEROX-REPORT FROM DTL1-LINE-4 AFTER ADVANCING 3 LINE. DTSBR421 00642 WRITE XEROX-REPORT FROM DTL1-LINE-5 AFTER ADVANCING 1 LINE. DTSBR421 00643 WRITE XEROX-REPORT FROM DTL1-LINE-6 AFTER ADVANCING 1 LINE. DTSBR421 00644 WRITE XEROX-REPORT FROM DTL1-LINE-7 AFTER ADVANCING 1 LINE. DTSBR421 00645 DTSBR421 00646 P5000-EXIT. DTSBR421 00647 EXIT. DTSBR421 00648 DTSBR421 00649 P6000-PRINT-DETAIL-2. DTSBR421 00650 MOVE L090-PARAGRAPH-LINE (1) TO DTL2-PARAGRAPH-LINE-1. DTSBR421 00651 MOVE L090-PARAGRAPH-LINE (2) TO DTL2-PARAGRAPH-LINE-2. DTSBR421 00652 MOVE L090-PARAGRAPH-LINE (3) TO DTL2-PARAGRAPH-LINE-3. DTSBR421 00653 WRITE XEROX-REPORT FROM DTL2-LINE-3 AFTER ADVANCING 4 LINE. DTSBR421 00654 WRITE XEROX-REPORT FROM DTL2-LINE-4 AFTER ADVANCING 1 LINE. DTSBR421 00655 WRITE XEROX-REPORT FROM DTL2-LINE-5 AFTER ADVANCING 1 LINE. DTSBR421 00656 DTSBR421 00657 P6000-EXIT. DTSBR421 00658 EXIT. DTSBR421 00659 DTSBR421 00660 DTSBR421 00661 P7000-PRINT-DETAIL-4A. DTSBR421 00662 MOVE L090-PARAGRAPH-LINE (1) TO DTL4A-PARAGRAPH-LINE-1. DTSBR421 00663 MOVE L090-PARAGRAPH-LINE (2) TO DTL4A-PARAGRAPH-LINE-2. DTSBR421 00664 MOVE L090-PARAGRAPH-LINE (3) TO DTL4A-PARAGRAPH-LINE-3. DTSBR421 00665 WRITE XEROX-REPORT FROM DTL4A-LINE-2 AFTER ADVANCING 3 LINE. DTSBR421 00666 WRITE XEROX-REPORT FROM DTL4A-LINE-3 AFTER ADVANCING 1 LINE. DTSBR421 00667 WRITE XEROX-REPORT FROM DTL4A-LINE-4 AFTER ADVANCING 1 LINE. DTSBR421 00668 WRITE XEROX-REPORT FROM DTL4A-LINE-5 AFTER ADVANCING 1 LINE. DTSBR421 00669 WRITE XEROX-REPORT FROM DTL4A-LINE-6 AFTER ADVANCING 1 LINE. DTSBR421 00670 WRITE XEROX-REPORT FROM DTL4A-LINE-7 AFTER ADVANCING 1 LINE. DTSBR421 00671 DTSBR421 00672 P7000-EXIT. DTSBR421 00673 EXIT. DTSBR421 00674 DTSBR421 00675 P8000-PRINT-DETAIL-5A. DTSBR421 00676 DTSBR421 00677 MOVE WS-TEXT-LINE-5 TO DTL5A-TEXT-LINE-5. DTSBR421 00678 WRITE XEROX-REPORT FROM DTL5A-LINE-1 AFTER ADVANCING 1 LINE. DTSBR421 00679 DTSBR421 00680 P8000-EXIT. DTSBR421 00681 EXIT. DTSBR421 00682 DTSBR421 00683 P9000-PRINT-DETAIL-5B. DTSBR421 00684 DTSBR421 00685 MOVE WS-TEXT-LINE-5 TO DTL5B-TEXT-LINE-5. DTSBR421 00686 WRITE XEROX-REPORT FROM DTL5B-LINE-0 AFTER ADVANCING 0 LINE. DTSBR421 00687 DTSBR421 00688 P9000-EXIT. DTSBR421 00689 EXIT. DTSBR421 00690 DTSBR421 00691 P9500-PRINT-VSCA-ADDR. DTSBR421 00692 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR421 00693 AFTER ADVANCING TOP-OF-PAGE. DTSBR421 00694 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 14 LINE. DTSBR421 00695 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-17 DTSBR421 00696 AFTER ADVANCING 1 LINE. DTSBR421 00697 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-18 DTSBR421 00698 AFTER ADVANCING 1 LINE. DTSBR421 00699 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-19 DTSBR421 00700 AFTER ADVANCING 1 LINE. DTSBR421 00701 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-20 DTSBR421 00702 AFTER ADVANCING 1 LINE. DTSBR421 00703 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-21 DTSBR421 00704 AFTER ADVANCING 1 LINE. DTSBR421 00705 DTSBR421 00706 P9500-EXIT. DTSBR421 00707 EXIT. DTSBR421 00708 DTSBR421 00709 T1000-TERMINATE. DTSBR421 00710 CLOSE PRT-FILE. DTSBR421 00711 T1000-EXIT. DTSBR421 00712 EXIT. DTSBR421 00713 EJECT DTSBR421 00714 S001-FROM-FED-8. DTSBR421 00715 SET L001-FROM-FED-8 TO TRUE. DTSBR421 00716 GO TO S001-DATE. DTSBR421 00717 DTSBR421 00718 S001-DATE. DTSBR421 00719 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR421 00720 S001-EXIT. DTSBR421 00721 EXIT. DTSBR421 00722 SKIP3 DTSBR421 00723 *S002-UPPER-CASE. DTSBR421 00724 ** SET L002-UPPER-CASE TO TRUE. DTSBR421 00725 ** GO TO S002-DATE-ALPHA. DTSBR421 00726 DTSBR421 00727 S002-MIXED-CASE. DTSBR421 00728 SET L002-MIXED-CASE TO TRUE. DTSBR421 00729 GO TO S002-DATE-ALPHA. DTSBR421 00730 DTSBR421 00731 S002-DATE-ALPHA. DTSBR421 00732 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR421 00733 S002-EXIT. DTSBR421 00734 EXIT. DTSBR421 00735 SKIP3 DTSBR421 00736 *S004-FROM-5. DTSBR421 00737 ** SET L004-FROM-5 TO TRUE. DTSBR421 00738 ** GO TO S004-QUARTER. DTSBR421 00739 ** DTSBR421 00740 *S004-QUARTER. DTSBR421 00741 ** CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR421 00742 *S004-EXIT. DTSBR421 00743 ** EXIT. DTSBR421 00744 SKIP3 DTSBR421 00745 S008-UPPER-CASE. DTSBR421 00746 SET L008-UPPER-CASE TO TRUE. DTSBR421 00747 GO TO S008-QUARTER-ALPHA. DTSBR421 00748 DTSBR421 00749 *S008-MIXED-CASE. DTSBR421 00750 ** SET L008-MIXED-CASE TO TRUE. DTSBR421 00751 ** GO TO S008-QUARTER-ALPHA. DTSBR421 00752 DTSBR421 00753 S008-QUARTER-ALPHA. DTSBR421 00754 CALL 'DTSBU008' USING L008-LINK-AREA. DTSBR421 00755 S008-EXIT. DTSBR421 00756 EXIT. DTSBR421 00757 SKIP3 DTSBR421 00758 S056-DISP1-LEFT-PCT. DTSBR421 00759 SET L056-DISP1-LEFT-PCT-88 TO TRUE. DTSBR421 00760 GO TO S056-RATE-DISPLAY. DTSBR421 00761 DTSBR421 00762 S056-RATE-DISPLAY. DTSBR421 00763 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR421 00764 S056-EXIT. DTSBR421 00765 EXIT. DTSBR421 00766 SKIP3 DTSBR421 00767 S062-FLD-REP-ID. DTSBR421 00768 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBR421 00769 S062-EXIT. DTSBR421 00770 EXIT. DTSBR421 00771 SKIP3 DTSBR421 00772 S071-FROM-LAST-NAME-FIRST. DTSBR421 00773 SET L071-FROM-LAST-NAME-FIRST TO TRUE. DTSBR421 00774 GO TO S071-NAME-CONVERSION. DTSBR421 00775 DTSBR421 00776 S071-NAME-CONVERSION. DTSBR421 00777 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR421 00778 S071-EXIT. DTSBR421 00779 EXIT. DTSBR421 00780 SKIP3 DTSBR421 00781 S090-PARAGRAPH-FORMAT. DTSBR421 00782 MOVE +0 TO L090-INDENT. DTSBR421 00783 SET L090-SPECIAL-CHAR-STD-88 TO TRUE. DTSBR421 00784 DTSBR421 00785 CALL 'DTSBU090' USING L090-LINK-AREA. DTSBR421 00786 S090-EXIT. DTSBR421 00787 EXIT. DTSBR421 00788 SKIP3 DTSBR421 00789 *S119-REQ-CAPS. DTSBR421 00790 ** SET L119-REQ-CAPS-88 TO TRUE. DTSBR421 00791 ** GO TO S119-AGENCY-FACTS. DTSBR421 00792 DTSBR421 00793 S119-REQ-MIXED. DTSBR421 00794 SET L119-REQ-MIXED-88 TO TRUE. DTSBR421 00795 GO TO S119-AGENCY-FACTS. DTSBR421 00796 DTSBR421 00797 S119-AGENCY-FACTS. DTSBR421 00798 CALL 'DTSBU119' USING L119-LINK-AREA. DTSBR421 00799 S119-EXIT. DTSBR421 00800 EXIT. DTSBR421 00801 SKIP3 DTSBR421 00802 S999-ABEND. DTSBR421 00803 DISPLAY '***'. DTSBR421 00804 DISPLAY '*** ' DTSBR421 00805 ABEND-MSG. DTSBR421 00806 DISPLAY '***'. DTSBR421 00807 DTSBR421 00808 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR421 00809 S999-EXIT. DTSBR421 00810 EXIT. DTSBR421 00811 DTSBR421