00001 IDENTIFICATION DIVISION. 01/31/06 00002 PROGRAM-ID. DTSBR453. DTSBR453 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV003 00004 MODIFIED BY TRW S&ITG. DTSBR453 00005 DATE-WRITTEN. AUGUST 2002. DTSBR453 00006 DATE-COMPILED. DTSBR453 00007 SKIP3 DTSBR453 00008 ***** DTSBR453 00009 * DTSBR453 00010 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR453 00011 * DTSBE453 WHICH UPDATES DTSIR453 DTSBR453 00012 * DTSBR453 READS DTSIR453 RECORDS. DTSBR453 00013 * DTSBR453 00014 * FUNCTION: FINAL DELINQUENT ANNUAL REPORT NOTICE. DTSBR453 00015 * DTSBR453 00016 * DTSBR453 00017 * MODIFICATION HISTORY: DTSBR453 00018 * DTSBR453 00019 * 09-12-02 INITIAL DEVELOPMENT - COPIED FROM DTSBR451. DTSBR453 00020 * REFERENCE RFP #RAP AUTHOR OF CHANGE - RW1 DTSBR453 00021 * DTSBR453 00022 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR453 00023 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR453 00024 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR453 00025 * DTSBR453 00026 * DTSBR453 00027 * DESCRIPTION: DTSBR453 00028 * DTSBR453 00029 * THIS MODULE PRINTS A "FINAL DELINQUENT ANNUAL REPORT NOTICEDTSBR453 00030 * DTSBR453 00031 * DTSBR453 00032 * RECORDS READ: DTSBR453 00033 * DTSBR453 00034 * NONE. DTSBR453 00035 * DTSBR453 00036 * DTSBR453 00037 * PRINTED OUTPUTS: DTSBR453 00038 * DTSBR453 00039 * 453R1 FINAL DELINQUENT ANNUAL REPORT NOTICE. DTSBR453 00040 * DTSBR453 00041 * DTSBR453 00042 * RECORDS WRITTEN: DTSBR453 00043 * DTSBR453 00044 * NONE. DTSBR453 00045 * DTSBR453 00046 * DTSBR453 00047 * MODULES CALLED: DTSBR453 00048 * DTSBR453 00049 * DTSBU002 DATE ALPHA CONVERSION MODULE. DTSBR453 00050 * DTSBU004 YEAR/QUARTER CONVERSION. DTSBR453 00051 * DTSBU008 DISPLAY QUARTER IN TEXT FORMAT. DTSBR453 00052 * DTSBU056 RATE DISPLAY. DTSBR453 00053 * DTSBU062 FIELD REP ID EDIT/DESCRIPTION. DTSBR453 00054 * DTSBU071 NAME EDIT/CONVERSION. DTSBR453 00055 * DTSBU090 PARAGRAPH FORMATTING MODULE. DTSBR453 00056 * DTSBU119 AGENCY FACTS. DTSBR453 00057 * DTSBR453 00058 ***** DTSBR453 00059 EJECT DTSBR453 00060 ENVIRONMENT DIVISION. DTSBR453 00061 DTSBR453 00062 CONFIGURATION SECTION. DTSBR453 00063 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR453 00064 DTSBR453 00065 INPUT-OUTPUT SECTION. DTSBR453 00066 DTSBR453 00067 FILE-CONTROL. DTSBR453 00068 SELECT PRT-FILE ASSIGN TO RPT453R1. DTSBR453 00069 DTSBR453 00070 DATA DIVISION. DTSBR453 00071 DTSBR453 00072 FILE SECTION. DTSBR453 00073 DTSBR453 00074 FD PRT-FILE DTSBR453 00075 RECORDING MODE IS F DTSBR453 00076 BLOCK CONTAINS 0 RECORDS DTSBR453 00077 LABEL RECORDS ARE OMITTED. DTSBR453 00078 DTSBR453 00079 01 XEROX-T453RW. DTSBR453 00080 05 FILLER PIC X(1). DTSBR453 00081 05 XEROX-RPT PIC X(150). DTSBR453 00082 DTSBR453 00083 EJECT DTSBR453 00084 WORKING-STORAGE SECTION. DTSBR453 000845 77 PAN-VALET PICTURE X(24) VALUE '003DTSBR453 01/31/06'. DTSBR453 00085 DTSBR453 00086 01 WRK-AREA. DTSBR453 00087 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +453.DTSBR453 00088 05 WRK-COUNTER PIC 9(1). DTSBR453 00089 DTSBR453 00090 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR453 00091 DTSBR453 00092 05 ABEND-MSG PIC X(60). DTSBR453 00093 DTSBR453 00094 05 HOLD-FLD-REP-ID PIC X(02). DTSBR453 00095 88 HOLD-FLD-REP-OUT-OF-STATE-88 VALUE '98' '99'. DTSBR453 00096 DTSBR453 00097 05 WS-UNIT-TEL. DTSBR453 00098 10 WS-UNIT-AREA-CD PIC X(03). DTSBR453 00099 10 WS-UNIT-PREFIX PIC X(03). DTSBR453 00100 10 WS-UNIT-SUFFIX PIC X(04). DTSBR453 00101 10 WS-UNIT-EXTENSION PIC X(04). DTSBR453 00102 DTSBR453 00103 SKIP3 DTSBR453 00104 05 DISP-UNIT-TEL. DTSBR453 00105 10 DISP-UNIT-TEL-FILLER-1 PIC X(01) VALUE '('. DTSBR453 00106 10 DISP-UNIT-TEL-AREA-CD PIC X(03). DTSBR453 00107 10 DISP-UNIT-TEL-FILLER-2 PIC X(02) VALUE ') '. DTSBR453 00108 10 DISP-UNIT-TEL-PREFIX PIC X(03). DTSBR453 00109 10 DISP-UNIT-TEL-FILLER-3 PIC X(01) VALUE '-'. DTSBR453 00110 10 DISP-UNIT-TEL-SUFFIX PIC X(04). DTSBR453 00111 SKIP3 DTSBR453 00112 05 WS-UNIT-FAX. DTSBR453 00113 10 WS-UNIT-FAX-AREA-CD PIC X(03). DTSBR453 00114 10 WS-UNIT-FAX-PREFIX PIC X(03). DTSBR453 00115 10 WS-UNIT-FAX-SUFFIX PIC X(04). DTSBR453 00116 10 WS-UNIT-FAX-EXTENSION PIC X(04). DTSBR453 00117 DTSBR453 00118 05 DISP-UNIT-FAX. DTSBR453 00119 10 DISP-UNIT-FAX-FILLER-1 PIC X(01). DTSBR453 00120 10 DISP-UNIT-FAX-AREA-CD PIC X(03). DTSBR453 00121 10 DISP-UNIT-FAX-FILLER-2 PIC X(02). DTSBR453 00122 10 DISP-UNIT-FAX-PREFIX PIC X(03). DTSBR453 00123 10 DISP-UNIT-FAX-FILLER-3 PIC X(01). DTSBR453 00124 10 DISP-UNIT-FAX-SUFFIX PIC X(04). DTSBR453 00125 05 DISP-FLD-TEL. DTSBR453 00126 10 DISP-FLD-TEL-FILLER-1 PIC X(01). DTSBR453 00127 10 DISP-FLD-TEL-AREA-CD PIC X(03). DTSBR453 00128 10 DISP-FLD-TEL-FILLER-2 PIC X(02). DTSBR453 00129 10 DISP-FLD-TEL-PREFIX PIC X(03). DTSBR453 00130 10 DISP-FLD-TEL-FILLER-3 PIC X(01). DTSBR453 00131 10 DISP-FLD-TEL-SUFFIX PIC X(04). DTSBR453 00132 DTSBR453 00133 05 WS-START-POS PIC S9(04) COMP. DTSBR453 00134 DTSBR453 00135 05 WS-LONG-TEXT-FIRST-DEL-DATE PIC X(18). DTSBR453 00136 DTSBR453 00137 05 WS-LONG-TEXT-THREAT-DATE PIC X(18). DTSBR453 00138 DTSBR453 00139 05 WS-SHORT-YEAR PIC X(02). DTSBR453 00140 DTSBR453 00141 05 WS-LONG-YEAR PIC X(04). DTSBR453 00142 05 WS-LONG-YEAR9 PIC X(04). DTSBR453 00143 DTSBR453 00144 05 WS-LONG-TEXT-DUE-DATE PIC X(18). DTSBR453 00145 DTSBR453 00146 05 WS-TEXT-LINE-5 PIC X(70). DTSBR453 00147 DTSBR453 00148 05 DETAIL-5-LINE-CNT PIC S9(04) COMP. DTSBR453 00149 DTSBR453 00150 DTSBR453 00151 01 T453-WORD-AREA. DTSBR453 00152 ++INCLUDE DTSIZ453 DTSBR453 00153 DTSBR453 00154 01 T453-ADDR-AREA. DTSBR453 00155 ++INCLUDE DTSXMAIL DTSBR453 00156 DTSBR453 00157 01 T453-REPT-HDR. DTSBR453 00158 ++INCLUDE DTSXAHDR DTSBR453 00159 EJECT DTSBR453 00160 01 L001-LINK-AREA. DTSBR453 00161 ++INCLUDE DTSIL001 DTSBR453 00162 EJECT DTSBR453 00163 01 L002-LINK-AREA. DTSBR453 00164 ++INCLUDE DTSIL002 DTSBR453 00165 EJECT DTSBR453 00166 01 L004-LINK-AREA. DTSBR453 00167 ++INCLUDE DTSIL004 DTSBR453 00168 EJECT DTSBR453 00169 01 L008-LINK-AREA. DTSBR453 00170 ++INCLUDE DTSIL008 DTSBR453 00171 EJECT DTSBR453 00172 01 L056-LINK-AREA. DTSBR453 00173 ++INCLUDE DTSIL056 DTSBR453 00174 EJECT DTSBR453 00175 01 L090-LINK-AREA. DTSBR453 00176 ++INCLUDE DTSIL090 DTSBR453 00177 EJECT DTSBR453 00178 01 L062-LINK-AREA. DTSBR453 00179 ++INCLUDE DTSIL062 DTSBR453 00180 EJECT DTSBR453 00181 01 L071-LINK-AREA. DTSBR453 00182 ++INCLUDE DTSIL071 DTSBR453 00183 EJECT DTSBR453 00184 01 L119-LINK-AREA. DTSBR453 00185 ++INCLUDE DTSIL119 DTSBR453 00186 EJECT DTSBR453 00187 ++INCLUDE DTSXL453 DTSBR453 00188 SKIP3 DTSBR453 00189 LINKAGE SECTION. DTSBR453 00190 SKIP3 DTSBR453 00191 01 LRCM-LINK-AREA. DTSBR453 00192 ++INCLUDE DTSILRCM DTSBR453 00193 EJECT DTSBR453 00194 01 R453-REC. DTSBR453 00195 ++INCLUDE DTSIR453 DTSBR453 00196 EJECT DTSBR453 00197 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR453 00198 R453-REC. DTSBR453 00199 SKIP2 DTSBR453 00200 IF FIRST-TIME-IND = 'Y' DTSBR453 00201 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR453 00202 MOVE 'N' TO FIRST-TIME-IND DTSBR453 00203 MOVE 0 TO WRK-COUNTER. DTSBR453 00204 DTSBR453 00205 IF LRCM-EOR-88 DTSBR453 00206 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR453 00207 ELSE DTSBR453 00208 ADD 1 TO WRK-COUNTER DTSBR453 00209 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR453 00210 SKIP2 DTSBR453 00211 GOBACK. DTSBR453 00212 EJECT DTSBR453 00213 I1000-INITIATE. DTSBR453 00214 DTSBR453 00215 OPEN OUTPUT PRT-FILE. DTSBR453 00216 MOVE SPACES TO XEROX-T453RW. DTSBR453 00217 DTSBR453 00218 WRITE XEROX-T453RW FROM XEROX-CNTL-LINE. DTSBR453 00219 DTSBR453 00220 SET L119-REQ-COLLECTIONS-88 TO TRUE. DTSBR453 00221 PERFORM S119-REQ-MIXED THRU S119-EXIT. DTSBR453 00222 MOVE L119-UNIT-VOICE TO WS-UNIT-TEL. DTSBR453 00223 MOVE L119-UNIT-FAX TO WS-UNIT-FAX. DTSBR453 00224 MOVE HIGH-VALUES TO HOLD-FLD-REP-ID. DTSBR453 00225 DTSBR453 00226 I1000-EXIT. DTSBR453 00227 EXIT. DTSBR453 00228 EJECT DTSBR453 00229 P1000-PROCESS. DTSBR453 00230 MOVE R453-EMP-NO TO HDR-EMP-NO. DTSBR453 00231 MOVE R453-FMT-LINE (1) TO HDR-FMT-LINE-1 MAIL-ADDR-LINE1 DTSBR453 00232 MOVE R453-FMT-LINE (2) TO HDR-FMT-LINE-2 MAIL-ADDR-LINE2 DTSBR453 00233 MOVE R453-FMT-LINE (3) TO HDR-FMT-LINE-3 MAIL-ADDR-LINE3 DTSBR453 00234 MOVE R453-FMT-LINE (4) TO HDR-FMT-LINE-4 MAIL-ADDR-LINE4 DTSBR453 00235 MOVE R453-FMT-LINE (5) TO HDR-FMT-LINE-5 MAIL-ADDR-LINE5. DTSBR453 00236 DTSBR453 00237 MOVE '(' TO DISP-UNIT-TEL-FILLER-1. DTSBR453 00238 MOVE WS-UNIT-AREA-CD TO DISP-UNIT-TEL-AREA-CD. DTSBR453 00239 MOVE ') ' TO DISP-UNIT-TEL-FILLER-2. DTSBR453 00240 MOVE WS-UNIT-PREFIX TO DISP-UNIT-TEL-PREFIX. DTSBR453 00241 MOVE '-' TO DISP-UNIT-TEL-FILLER-3. DTSBR453 00242 MOVE WS-UNIT-SUFFIX TO DISP-UNIT-TEL-SUFFIX. DTSBR453 00243 DTSBR453 00244 MOVE DISP-UNIT-TEL TO RPT-CALL-PHONE DTSBR453 00245 DTSBR453 00246 MOVE R453-MAIL-DATE TO L002-DATE. DTSBR453 00247 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR453 00248 DTSBR453 00249 COMPUTE WS-START-POS = (18 - L002-LONG-TEXT-CNT) / 2. DTSBR453 00250 DTSBR453 00251 ADD +1 TO WS-START-POS. DTSBR453 00252 DTSBR453 00253 IF (WS-START-POS > +0) DTSBR453 00254 AND DTSBR453 00255 (WS-START-POS < +18) DTSBR453 00256 MOVE SPACES TO WS-LONG-TEXT-MAIL-DATE DTSBR453 00257 MOVE L002-LONG-TEXT-AREA DTSBR453 00258 TO WS-LONG-TEXT-MAIL-DATE (WS-START-POS:) DTSBR453 00259 ELSE DTSBR453 00260 MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-MAIL-DATE. DTSBR453 00261 DTSBR453 00262 MOVE R453-TOTAL-RATE TO L056-RATE. DTSBR453 00263 PERFORM S056-DISP1-LEFT-PCT THRU S056-EXIT. DTSBR453 00264 MOVE L056-DISP-RATE TO WS-DISP-RATE. DTSBR453 00265 DTSBR453 00266 MOVE R453-YRQ TO L008-YRQ. DTSBR453 00267 PERFORM S008-MIXED-CASE THRU S008-EXIT. DTSBR453 00268 MOVE L008-YEAR TO WS-LONG-YEAR6 WS-LONG-YEAR9 DTSBR453 00269 WS-LONG-YEAR10 DTSBR453 00270 WS-LONG-YEAR13. DTSBR453 00271 DTSBR453 00272 MOVE R453-DUE-DATE TO L001-FED-8-DATE-9. DTSBR453 00273 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR453 00274 MOVE L001-SLASH-8-DATE TO WS-SLASH-DUE-DATE. DTSBR453 00275 DTSBR453 00276 MOVE R453-DUE-DATE TO L002-DATE. DTSBR453 00277 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR453 00278 MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-DUE-DATE. DTSBR453 00279 DTSBR453 00280 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT. DTSBR453 00281 DTSBR453 00282 MOVE +70 TO L090-DESIRED-LINE-LIMIT. DTSBR453 00283 MOVE +9 TO L090-PHRASE-CNT. DTSBR453 00284 DTSBR453 00285 MOVE R453-AS-OF-DATE TO L002-DATE. DTSBR453 00286 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR453 00287 MOVE L002-SHORT-TEXT-AREA DTSBR453 00288 TO WS-SHORT-TEXT-AS-OF-DATE. DTSBR453 00289 DTSBR453 00290 MOVE SPACES TO L090-PHRASE (1) DTSBR453 00291 L090-PHRASE (2) DTSBR453 00292 L090-PHRASE (3) DTSBR453 00293 L090-PHRASE (4) DTSBR453 00294 L090-PHRASE (5) DTSBR453 00295 L090-PHRASE (6) DTSBR453 00296 L090-PHRASE (7) DTSBR453 00297 L090-PHRASE (8). DTSBR453 00298 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (1) DTSBR453 00299 L090-PHRASE-OVERSTRIKE-IND (2) DTSBR453 00300 L090-PHRASE-OVERSTRIKE-IND (3) DTSBR453 00301 L090-PHRASE-OVERSTRIKE-IND (4) DTSBR453 00302 L090-PHRASE-OVERSTRIKE-IND (5) DTSBR453 00303 L090-PHRASE-OVERSTRIKE-IND (6) DTSBR453 00304 L090-PHRASE-OVERSTRIKE-IND (7) DTSBR453 00305 L090-PHRASE-OVERSTRIKE-IND (8). DTSBR453 00306 DTSBR453 00307 MOVE MC-LIT-YEAR TO L090-PHRASE (1). DTSBR453 00308 STRING WS-LONG-YEAR9 DELIMITED BY ' ' '.' DTSBR453 00309 DELIMITED BY SIZE INTO L090-PHRASE(2). DTSBR453 00310 DTSBR453 00311 MOVE MC-LIT-THIS-REPORT-WAS TO L090-PHRASE (3). DTSBR453 00312 DTSBR453 00313 STRING WS-LONG-TEXT-DUE-DATE DELIMITED BY ' ' '.' DTSBR453 00314 DELIMITED BY SIZE INTO L090-PHRASE(4). DTSBR453 00315 DTSBR453 00316 MOVE MC-LIT-WE-RECEIVED-NO TO L090-PHRASE (5). DTSBR453 00317 MOVE MC-LIT-MAILED-ON TO L090-PHRASE (6). DTSBR453 00318 DTSBR453 00319 MOVE R453-UC30-FIRST-DEL-MAIL-DATE TO L002-DATE. DTSBR453 00320 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR453 00321 MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-DUE-DATE. DTSBR453 00322 DTSBR453 00323 STRING WS-LONG-TEXT-DUE-DATE DELIMITED BY ' ' '.' DTSBR453 00324 DELIMITED BY SIZE INTO L090-PHRASE(7). DTSBR453 00325 DTSBR453 00326 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR453 00327 DTSBR453 00328 IF (L090-UNSUCCESSFUL-88) DTSBR453 00329 OR DTSBR453 00330 (L090-PARAGRAPH-LINE-CNT > +4) DTSBR453 00331 MOVE 'LOGIC ERROR P1000-1' TO ABEND-MSG DTSBR453 00332 PERFORM S999-ABEND THRU S999-EXIT. DTSBR453 00333 DTSBR453 00334 MOVE R453-FINAL-ACTION-DATE TO L002-DATE. DTSBR453 00335 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR453 00336 MOVE SPACE TO L090-PHRASE (3). DTSBR453 00337 STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR453 00338 '.' DELIMITED BY SIZE DTSBR453 00339 INTO DTSBR453 00340 L090-PHRASE (3). DTSBR453 00341 MOVE L090-PHRASE(3) TO RPT-DUE-DATE11. DTSBR453 00342 DTSBR453 00343 PERFORM P4000-PRINT-IST-PARAGRAPH THRU P4000-EXIT. DTSBR453 00344 DTSBR453 00345 MOVE +70 TO L090-DESIRED-LINE-LIMIT. DTSBR453 00346 MOVE +3 TO L090-PHRASE-CNT. DTSBR453 00347 DTSBR453 00348 MOVE MC-LIT-TO-US TO L090-PHRASE (1). DTSBR453 00349 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1). DTSBR453 00350 DTSBR453 00351 MOVE R453-FINAL-ACTION-DATE TO L002-DATE. DTSBR453 00352 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR453 00353 MOVE SPACE TO L090-PHRASE (2). DTSBR453 00354 STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR453 00355 ' ' DELIMITED BY SIZE DTSBR453 00356 INTO DTSBR453 00357 L090-PHRASE (2). DTSBR453 00358 DTSBR453 00359 MOVE SPACES TO L090-PHRASE (3). DTSBR453 00360 MOVE MC-LIT-PAYMENT-DUE TO L090-PHRASE (3). DTSBR453 00361 DTSBR453 00362 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR453 00363 DTSBR453 00364 IF (L090-UNSUCCESSFUL-88) DTSBR453 00365 OR DTSBR453 00366 (L090-PARAGRAPH-LINE-CNT NOT = +1) DTSBR453 00367 MOVE 'LOGIC ERROR P1000-2' TO ABEND-MSG DTSBR453 00368 PERFORM S999-ABEND THRU S999-EXIT. DTSBR453 00369 DTSBR453 00370 PERFORM P4500-MID-PARAGRAPH THRU P4500-EXIT. DTSBR453 00371 DTSBR453 00372 DTSBR453 00373 MOVE +70 TO L090-DESIRED-LINE-LIMIT. DTSBR453 00374 MOVE +7 TO L090-PHRASE-CNT. DTSBR453 00375 DTSBR453 00376 MOVE MC-LIT-BY-5 TO L090-PHRASE (1). DTSBR453 00377 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1). DTSBR453 00378 DTSBR453 00379 MOVE MC-LIT-BY-PM TO L090-PHRASE (2). DTSBR453 00380 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR453 00381 DTSBR453 00382 MOVE R453-FINAL-ACTION-DATE TO L002-DATE. DTSBR453 00383 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR453 00384 MOVE SPACE TO L090-PHRASE (3). DTSBR453 00385 STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR453 00386 ',' DELIMITED BY SIZE DTSBR453 00387 INTO DTSBR453 00388 L090-PHRASE (3). DTSBR453 00389 DTSBR453 00390 MOVE SPACES TO L090-PHRASE (4). DTSBR453 00391 MOVE MC-LIT-A-ESTIMATE-TAX TO L090-PHRASE (4). DTSBR453 00392 DTSBR453 00393 MOVE MC-LIT-A-QUESTIONS TO L090-PHRASE (5). DTSBR453 00394 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (5). DTSBR453 00395 DTSBR453 00396 ADD +1 TO L090-PHRASE-CNT. DTSBR453 00397 MOVE DISP-UNIT-TEL TO L090-PHRASE (L090-PHRASE-CNT). DTSBR453 00398 DTSBR453 00399 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR453 00400 DTSBR453 00401 IF (L090-UNSUCCESSFUL-88) DTSBR453 00402 OR DTSBR453 00403 (L090-PARAGRAPH-LINE-CNT NOT = +3) DTSBR453 00404 MOVE 'LOGIC ERROR P1000-2' TO ABEND-MSG DTSBR453 00405 PERFORM S999-ABEND THRU S999-EXIT. DTSBR453 00406 DTSBR453 00407 PERFORM P5000-2ND-PARAGRAPH THRU P5000-EXIT. DTSBR453 00408 DTSBR453 00409 DTSBR453 00410 PERFORM P2000-SELF-MAILER-RTN THRU P2000-EXIT. DTSBR453 00411 P1000-EXIT. DTSBR453 00412 EXIT. DTSBR453 00413 P2000-SELF-MAILER-RTN. DTSBR453 00414 DTSBR453 00415 WRITE XEROX-T453RW FROM BLANK-LINE DTSBR453 00416 AFTER ADVANCING TOP-OF-PAGE DTSBR453 00417 WRITE XEROX-T453RW FROM MAIL-ADDR1 DTSBR453 00418 AFTER ADVANCING 14 LINE DTSBR453 00419 WRITE XEROX-T453RW FROM MAIL-ADDR2 DTSBR453 00420 AFTER ADVANCING 2 LINE DTSBR453 00421 WRITE XEROX-T453RW FROM MAIL-ADDR3 DTSBR453 00422 AFTER ADVANCING 1 LINE DTSBR453 00423 WRITE XEROX-T453RW FROM MAIL-ADDR4 DTSBR453 00424 AFTER ADVANCING 1 LINE DTSBR453 00425 WRITE XEROX-T453RW FROM MAIL-ADDR5 DTSBR453 00426 AFTER ADVANCING 1 LINE. DTSBR453 00427 DTSBR453 00428 P2000-EXIT. DTSBR453 00429 EXIT. DTSBR453 00430 EJECT DTSBR453 00431 DTSBR453 00432 P3000-PRINT-HEADER. DTSBR453 00433 WRITE XEROX-T453RW FROM BLANK-LINE DTSBR453 00434 AFTER ADVANCING TOP-OF-PAGE. DTSBR453 00435 DTSBR453 00436 WRITE XEROX-T453RW FROM HDR-LINE-01 AFTER ADVANCING 8 LINE. DTSBR453 00437 WRITE XEROX-T453RW FROM HDR-LINE-02 AFTER ADVANCING 2 LINE. DTSBR453 00438 WRITE XEROX-T453RW FROM HDR-LINE-03 AFTER ADVANCING 1 LINE. DTSBR453 00439 WRITE XEROX-T453RW FROM HDR-LINE-04 AFTER ADVANCING 1 LINE. DTSBR453 00440 WRITE XEROX-T453RW FROM HDR-LINE-05 AFTER ADVANCING 1 LINE. DTSBR453 00441 WRITE XEROX-T453RW FROM HDR-LINE-06 AFTER ADVANCING 1 LINE. DTSBR453 00442 WRITE XEROX-T453RW FROM HDR-LINE-07 AFTER ADVANCING 4 LINE. DTSBR453 00443 P3000-EXIT. DTSBR453 00444 EXIT. DTSBR453 00445 EJECT DTSBR453 00446 DTSBR453 00447 P4000-PRINT-IST-PARAGRAPH. DTSBR453 00448 MOVE L090-PARAGRAPH-LINE (1) TO PARAGRAPH-LINE-1. DTSBR453 00449 MOVE L090-PARAGRAPH-LINE (2) TO PARAGRAPH-LINE-2. DTSBR453 00450 MOVE L090-PARAGRAPH-LINE (3) TO PARAGRAPH-LINE-3. DTSBR453 00451 DTSBR453 00452 DTSBR453 00453 WRITE XEROX-T453RW FROM DET1-LINE-1 AFTER ADVANCING 3 LINE. DTSBR453 00454 WRITE XEROX-T453RW FROM DET1-LINE-2 AFTER ADVANCING 1 LINE. DTSBR453 00455 WRITE XEROX-T453RW FROM PARA-LINE-1 AFTER ADVANCING 1 LINE. DTSBR453 00456 WRITE XEROX-T453RW FROM PARA-LINE-2 AFTER ADVANCING 1 LINE. DTSBR453 00457 WRITE XEROX-T453RW FROM PARA-LINE-3 AFTER ADVANCING 1 LINE. DTSBR453 00458 P4000-EXIT. DTSBR453 00459 EXIT. DTSBR453 00460 EJECT DTSBR453 00461 DTSBR453 00462 P4500-MID-PARAGRAPH. DTSBR453 00463 MOVE L090-PARAGRAPH-LINE (1) TO PARAGRAPH-LINE-1. DTSBR453 00464 WRITE XEROX-T453RW FROM VAR-LINE-1 AFTER ADVANCING 4 LINE. DTSBR453 00465 WRITE XEROX-T453RW FROM PARA-LINE-1 AFTER ADVANCING 1 LINE. DTSBR453 00466 WRITE XEROX-T453RW FROM VAR-LINE-4 AFTER ADVANCING 6 LINE. DTSBR453 00467 P4500-EXIT. DTSBR453 00468 EXIT. DTSBR453 00469 EJECT DTSBR453 00470 P5000-2ND-PARAGRAPH. DTSBR453 00471 MOVE L090-PARAGRAPH-LINE (1) TO PARAGRAPH-LINE-1. DTSBR453 00472 MOVE L090-PARAGRAPH-LINE (2) TO PARAGRAPH-LINE-2. DTSBR453 00473 MOVE SPACES TO PARAGRAPH-LINE-3. DTSBR453 00474 DTSBR453 00475 WRITE XEROX-T453RW FROM PARA-LINE-1 AFTER ADVANCING 06 LINE. DTSBR453 00476 WRITE XEROX-T453RW FROM PARA-LINE-2 AFTER ADVANCING 1 LINE. DTSBR453 00477 WRITE XEROX-T453RW FROM VAR-LINE-3 AFTER ADVANCING 1 LINE. DTSBR453 00478 P5000-EXIT. DTSBR453 00479 EXIT. DTSBR453 00480 DTSBR453 00481 DTSBR453 00482 T1000-TERMINATE. DTSBR453 00483 CLOSE PRT-FILE. DTSBR453 00484 T1000-EXIT. DTSBR453 00485 EXIT. DTSBR453 00486 EJECT DTSBR453 00487 S001-FROM-FED-8. DTSBR453 00488 SET L001-FROM-FED-8 TO TRUE. DTSBR453 00489 GO TO S001-DATE. DTSBR453 00490 DTSBR453 00491 S001-DATE. DTSBR453 00492 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR453 00493 S001-EXIT. DTSBR453 00494 EXIT. DTSBR453 00495 SKIP3 DTSBR453 00496 S002-UPPER-CASE. DTSBR453 00497 SET L002-UPPER-CASE TO TRUE. DTSBR453 00498 GO TO S002-DATE-ALPHA. DTSBR453 00499 DTSBR453 00500 S002-MIXED-CASE. DTSBR453 00501 SET L002-MIXED-CASE TO TRUE. DTSBR453 00502 GO TO S002-DATE-ALPHA. DTSBR453 00503 DTSBR453 00504 S002-DATE-ALPHA. DTSBR453 00505 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR453 00506 S002-EXIT. DTSBR453 00507 EXIT. DTSBR453 00508 SKIP3 DTSBR453 00509 S004-FROM-5. DTSBR453 00510 SET L004-FROM-5 TO TRUE. DTSBR453 00511 GO TO S004-QUARTER. DTSBR453 00512 DTSBR453 00513 S004-QUARTER. DTSBR453 00514 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR453 00515 S004-EXIT. DTSBR453 00516 EXIT. DTSBR453 00517 SKIP3 DTSBR453 00518 S008-UPPER-CASE. DTSBR453 00519 SET L008-UPPER-CASE TO TRUE. DTSBR453 00520 GO TO S008-QUARTER-ALPHA. DTSBR453 00521 DTSBR453 00522 S008-MIXED-CASE. DTSBR453 00523 SET L008-MIXED-CASE TO TRUE. DTSBR453 00524 GO TO S008-QUARTER-ALPHA. DTSBR453 00525 DTSBR453 00526 S008-QUARTER-ALPHA. DTSBR453 00527 CALL 'DTSBU008' USING L008-LINK-AREA. DTSBR453 00528 S008-EXIT. DTSBR453 00529 EXIT. DTSBR453 00530 SKIP3 DTSBR453 00531 S056-DISP1-LEFT-PCT. DTSBR453 00532 SET L056-DISP1-LEFT-PCT-88 TO TRUE. DTSBR453 00533 GO TO S056-RATE-DISPLAY. DTSBR453 00534 DTSBR453 00535 S056-RATE-DISPLAY. DTSBR453 00536 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR453 00537 S056-EXIT. DTSBR453 00538 EXIT. DTSBR453 00539 SKIP3 DTSBR453 00540 S062-FLD-REP-ID. DTSBR453 00541 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBR453 00542 S062-EXIT. DTSBR453 00543 EXIT. DTSBR453 00544 SKIP3 DTSBR453 00545 S119-REQ-CAPS. DTSBR453 00546 SET L119-REQ-CAPS-88 TO TRUE. DTSBR453 00547 GO TO S119-AGENCY-FACTS. DTSBR453 00548 DTSBR453 00549 S119-REQ-MIXED. DTSBR453 00550 SET L119-REQ-MIXED-88 TO TRUE. DTSBR453 00551 GO TO S119-AGENCY-FACTS. DTSBR453 00552 DTSBR453 00553 S119-AGENCY-FACTS. DTSBR453 00554 CALL 'DTSBU119' USING L119-LINK-AREA. DTSBR453 00555 S119-EXIT. DTSBR453 00556 EXIT. DTSBR453 00557 SKIP3 DTSBR453 00558 S071-FROM-LAST-NAME-FIRST. DTSBR453 00559 SET L071-FROM-LAST-NAME-FIRST TO TRUE. DTSBR453 00560 GO TO S071-NAME-CONVERSION. DTSBR453 00561 DTSBR453 00562 S071-NAME-CONVERSION. DTSBR453 00563 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR453 00564 S071-EXIT. DTSBR453 00565 EXIT. DTSBR453 00566 SKIP3 DTSBR453 00567 S090-PARAGRAPH-FORMAT. DTSBR453 00568 MOVE +0 TO L090-INDENT. DTSBR453 00569 SET L090-SPECIAL-CHAR-STD-88 TO TRUE. DTSBR453 00570 CALL 'DTSBU090' USING L090-LINK-AREA. DTSBR453 00571 S090-EXIT. DTSBR453 00572 EXIT. DTSBR453 00573 SKIP3 DTSBR453 00574 S999-ABEND. DTSBR453 00575 DISPLAY '***'. DTSBR453 00576 DISPLAY '*** ' DTSBR453 00577 ABEND-MSG. DTSBR453 00578 DISPLAY '***'. DTSBR453 00579 DTSBR453 00580 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR453 00581 S999-EXIT. DTSBR453 00582 EXIT. DTSBR453 00583 DTSBR453