00001 IDENTIFICATION DIVISION. 05/05/20 00002 PROGRAM-ID. DTSBR451. DTSBR451 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV025 00004 MODIFIED BY TRW S&ITG. DTSBR451 00005 DATE-WRITTEN. AUGUST 2002. DTSBR451 00006 DATE-COMPILED. DTSBR451 00007 SKIP3 DTSBR451 00008 ***** DTSBR451 00009 * DTSBR451 00010 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR451 00011 * DTSBE451 WHICH UPDATES DTSIR451 DTSBR451 00012 * DTSBR451 READS DTSIR451 RECORDS. DTSBR451 00013 * DTSBR451 00014 * FUNCTION: MISSING ANNUAL REPORT NOTICE. DTSBR451 00015 * DTSBR451 00016 * DTSBR451 00017 * MODIFICATION HISTORY: DTSBR451 00018 * DTSBR451 00019 * 08-22-02 COPIED FROM DTSBR417 DTSBR451 00020 * REFERENCE RFP #RAP AUTHOR OF CHANGE - ZL1 DTSBR451 00021 * DTSBR451 00022 * 04-22-13 MODIFIED TO PRINT NEW FIRST DELINQUENCY FORM FORMAT DTSBR451 00023 * REFERENCE RFP #RAP AUTHOR OF CHANGE - ZL1 DTSBR451 00024 * DTSBR451 00025 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR451 00026 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR451 00027 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR451 00028 * DTSBR451 00029 * DTSBR451 00030 * DESCRIPTION: DTSBR451 00031 * DTSBR451 00032 * THIS MODULE PRINTS ANNUAL "DELINQUENT REPORT NOTICE". DTSBR451 00033 * DTSBR451 00034 * DTSBR451 00035 * RECORDS READ: DTSBR451 00036 * DTSBR451 00037 * NONE. DTSBR451 00038 * DTSBR451 00039 * DTSBR451 00040 * PRINTED OUTPUTS: DTSBR451 00041 * DTSBR451 00042 * 451R1 DELINQUENT REPORT NOTICE. DTSBR451 00043 * DTSBR451 00044 * DTSBR451 00045 * RECORDS WRITTEN: DTSBR451 00046 * DTSBR451 00047 * NONE. DTSBR451 00048 * DTSBR451 00049 * DTSBR451 00050 * MODULES CALLED: DTSBR451 00051 * DTSBR451 00052 * DTSBU002 DATE ALPHA CONVERSION MODULE. DTSBR451 00053 * DTSBU004 YEAR/QUARTER CONVERSION. DTSBR451 00054 * DTSBU008 DISPLAY QUARTER IN TEXT FORMAT. DTSBR451 00055 * DTSBU056 RATE DISPLAY. DTSBR451 00056 * DTSBU119 AGENCY FACTS. DTSBR451 00057 * DTSBR451 00058 * DTSBR451 00059 ***** DTSBR451 00060 EJECT DTSBR451 00061 ENVIRONMENT DIVISION. DTSBR451 00062 DTSBR451 00063 CONFIGURATION SECTION. DTSBR451 00064 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR451 00065 DTSBR451 00066 INPUT-OUTPUT SECTION. DTSBR451 00067 DTSBR451 00068 FILE-CONTROL. DTSBR451 00069 SELECT PRT-FILE ASSIGN TO RPT451R1. DTSBR451 00070 DTSBR451 00071 DATA DIVISION. DTSBR451 00072 DTSBR451 00073 FILE SECTION. DTSBR451 00074 DTSBR451 00075 FD PRT-FILE DTSBR451 00076 RECORDING MODE IS F DTSBR451 00077 BLOCK CONTAINS 0 RECORDS DTSBR451 00078 LABEL RECORDS ARE OMITTED. DTSBR451 00079 DTSBR451 00080 01 XEROX-T451RW. DTSBR451 00081 05 FILLER PIC X(1). DTSBR451 00082 05 XEROX-RPT PIC X(150). DTSBR451 00083 DTSBR451 00084 EJECT DTSBR451 00085 WORKING-STORAGE SECTION. DTSBR451 000855 77 PAN-VALET PICTURE X(24) VALUE '025DTSBR451 05/05/20'. DTSBR451 00086 77 PAN-VALET PICTURE X(24) VALUE '015DTSBR451 05/17/13'. DTSBR451 00087 77 PAN-VALET PICTURE X(24) VALUE '022DTSBR451 05/03/13'. DTSBR451 00088 77 PAN-VALET PICTURE X(24) VALUE '013DTSBR451 06/18/07'. DTSBR451 00089 DTSBR451 00090 01 WRK-AREA. DTSBR451 00091 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +451.DTSBR451 00092 05 WRK-COUNTER PIC 9(1). DTSBR451 00093 DTSBR451 00094 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR451 00095 DTSBR451 00096 05 ABEND-MSG PIC X(60). DTSBR451 00097 01 VSCA-LINE. DTSBR451 00098 05 VSCA-DATA PIC X(133). DTSBR451 00099 DTSBR451 00100 05 WS-UNIT-TEL. DTSBR451 00101 10 WS-UNIT-AREA-CD PIC X(03). DTSBR451 00102 10 WS-UNIT-PREFIX PIC X(03). DTSBR451 00103 10 WS-UNIT-SUFFIX PIC X(04). DTSBR451 00104 10 WS-UNIT-EXTENSION PIC X(04). DTSBR451 00105 DTSBR451 00106 05 DISP-TEL. DTSBR451 00107 10 DISP-TEL-FILLER-1 PIC X(01) VALUE '('. DTSBR451 00108 10 DISP-TEL-AREA-CD PIC X(03). DTSBR451 00109 10 DISP-TEL-FILLER-2 PIC X(02) VALUE ')-'. DTSBR451 00110 10 DISP-TEL-PREFIX PIC X(03). DTSBR451 00111 10 DISP-TEL-FILLER-3 PIC X(01) VALUE '-'. DTSBR451 00112 10 DISP-TEL-SUFFIX PIC X(04). DTSBR451 00113 SKIP3 DTSBR451 00114 DTSBR451 00115 01 T451-ADDR-AREA. DTSBR451 00116 ++INCLUDE DTSXMAIL DTSBR451 00117 EJECT DTSBR451 00118 *01 T451-REPT-HDR. DTSBR451 00119 *++INCLUDE DTSXAHDR DTSBR451 00120 EJECT DTSBR451 00121 ++INCLUDE DTSIZ51A CL*12 00122 EJECT CL*12 00123 *++INCLUDE DTSIZ51B CL**6 00124 * EJECT CL**6 00125 01 L001-LINK-AREA. DTSBR451 00126 ++INCLUDE DTSIL001 DTSBR451 00127 EJECT DTSBR451 00128 01 L002-LINK-AREA. DTSBR451 00129 ++INCLUDE DTSIL002 DTSBR451 00130 EJECT DTSBR451 00131 01 L004-LINK-AREA. DTSBR451 00132 ++INCLUDE DTSIL004 DTSBR451 00133 EJECT DTSBR451 00134 01 L008-LINK-AREA. DTSBR451 00135 ++INCLUDE DTSIL008 DTSBR451 00136 EJECT DTSBR451 00137 01 L056-LINK-AREA. DTSBR451 00138 ++INCLUDE DTSIL056 DTSBR451 00139 EJECT DTSBR451 00140 01 L090-LINK-AREA. DTSBR451 00141 ++INCLUDE DTSIL090 DTSBR451 00142 EJECT DTSBR451 00143 01 L119-LINK-AREA. DTSBR451 00144 ++INCLUDE DTSIL119 DTSBR451 00145 EJECT DTSBR451 00146 ++INCLUDE DTSXL451 DTSBR451 00147 SKIP3 DTSBR451 00148 *RW1 DTSBR451 00149 01 CONVERT-BARCODE-LINE. DTSBR451 00150 05 BARC-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR451 00151 DTSBR451 00152 01 WS-BARC-LINE. DTSBR451 00153 05 FILLER PIC X(40) VALUE SPACES. DTSBR451 00154 05 CONVERTED-BARCODE PIC X(50). DTSBR451 00155 05 FILLER PIC X(30) VALUE SPACES. DTSBR451 00156 DTSBR451 00157 01 BARI-LINK-AREA. DTSBR451 00158 ++INCLUDE BARIL599 DTSBR451 00159 SKIP3 DTSBR451 00160 *RW2 DTSBR451 00161 LINKAGE SECTION. DTSBR451 00162 SKIP3 DTSBR451 00163 01 LRCM-LINK-AREA. DTSBR451 00164 ++INCLUDE DTSILRCM DTSBR451 00165 EJECT DTSBR451 00166 01 R451-REC. DTSBR451 00167 ++INCLUDE DTSIR451 DTSBR451 00168 EJECT DTSBR451 00169 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR451 00170 R451-REC. DTSBR451 00171 SKIP2 DTSBR451 00172 IF FIRST-TIME-IND = 'Y' DTSBR451 00173 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR451 00174 MOVE 'N' TO FIRST-TIME-IND DTSBR451 00175 MOVE 0 TO WRK-COUNTER. DTSBR451 00176 DTSBR451 00177 IF LRCM-EOR-88 DTSBR451 00178 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR451 00179 ELSE DTSBR451 00180 ADD 1 TO WRK-COUNTER DTSBR451 00181 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR451 00182 SKIP2 DTSBR451 00183 GOBACK. DTSBR451 00184 EJECT DTSBR451 00185 I1000-INITIATE. DTSBR451 00186 DTSBR451 00187 OPEN OUTPUT PRT-FILE. DTSBR451 00188 MOVE SPACES TO XEROX-T451RW. DTSBR451 00189 DTSBR451 00190 * WRITE XEROX-T451RW FROM BLANK-LINE DTSBR451 00191 * AFTER ADVANCING TOP-OF-PAGE. DTSBR451 00192 *RW1 DTSBR451 00193 ** WRITE XEROX-T451RW FROM XEROX-CNTL-LINE DTSBR451 00194 ** AFTER ADVANCING TOP-OF-PAGE. DTSBR451 00195 *RW2 DTSBR451 00196 * WRITE XEROX-T451RW FROM BLANK-LINE DTSBR451 00197 * AFTER ADVANCING TOP-OF-PAGE. DTSBR451 00198 * WRITE XEROX-T451RW FROM BLANK-LINE DTSBR451 00199 * AFTER ADVANCING TOP-OF-PAGE. DTSBR451 00200 DTSBR451 00201 SET L119-REQ-COLLECTIONS-88 TO TRUE. DTSBR451 00202 PERFORM S119-REQ-MIXED THRU S119-EXIT. DTSBR451 00203 MOVE L119-UNIT-VOICE TO WS-UNIT-TEL. DTSBR451 00204 I1000-EXIT. DTSBR451 00205 EXIT. DTSBR451 00206 EJECT DTSBR451 00207 P1000-PROCESS. DTSBR451 00208 **NH TESTING NEW DELINQ NOTICE CL**7 00209 MOVE R451-EMP-NO TO HDR-EMP-NO. CL*13 00210 MOVE R451-FMT-LINE (1) TO HDR-FMT-LINE-1 CL*13 00211 MOVE R451-FMT-LINE (1) TO MAIL-ADDR-LINE1. CL**8 00212 MOVE R451-FMT-LINE (2) TO HDR-FMT-LINE-2 CL*13 00213 MOVE R451-FMT-LINE (2) TO MAIL-ADDR-LINE2. CL**8 00214 MOVE R451-FMT-LINE (3) TO HDR-FMT-LINE-3 CL*13 00215 MOVE R451-FMT-LINE (3) TO MAIL-ADDR-LINE3. CL**8 00216 MOVE R451-FMT-LINE (4) TO HDR-FMT-LINE-4 CL*13 00217 MOVE R451-FMT-LINE (4) TO MAIL-ADDR-LINE4. CL**8 00218 MOVE R451-FMT-LINE (5) TO HDR-FMT-LINE-5 CL*13 00219 MOVE R451-FMT-LINE (5) TO MAIL-ADDR-LINE5. CL**8 00220 DTSBR451 00221 DTSBR451 00222 MOVE '(' TO DISP-TEL-FILLER-1. DTSBR451 00223 MOVE WS-UNIT-AREA-CD TO DISP-TEL-AREA-CD. DTSBR451 00224 MOVE ') ' TO DISP-TEL-FILLER-2. DTSBR451 00225 MOVE WS-UNIT-PREFIX TO DISP-TEL-PREFIX. DTSBR451 00226 MOVE '-' TO DISP-TEL-FILLER-3. DTSBR451 00227 MOVE WS-UNIT-SUFFIX TO DISP-TEL-SUFFIX. DTSBR451 00228 DTSBR451 00229 * MOVE 20200621 TO R451-MAIL-DATE CL*25 00230 MOVE R451-MAIL-DATE TO L002-DATE. CL*22 00231 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR451 00232 DTSBR451 00233 MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-MAIL-DATE. CL*13 00234 DTSBR451 00235 MOVE R451-TOTAL-RATE TO L056-RATE. DTSBR451 00236 PERFORM S056-DISP1-LEFT-PCT THRU S056-EXIT. DTSBR451 00237 MOVE L056-DISP-RATE TO WS-DISP-RATE. CL*13 00238 DTSBR451 00239 DTSBR451 00240 MOVE R451-YRQ TO L008-YRQ. DTSBR451 00241 PERFORM S008-MIXED-CASE THRU S008-EXIT. DTSBR451 00242 MOVE L008-YEAR TO HDR-LONG-YEAR DTL-LONG-YEAR. CL*13 00243 DTSBR451 00244 MOVE R451-DUE-DATE TO L001-FED-8-DATE-9. DTSBR451 00245 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR451 00246 MOVE L001-SLASH-8-DATE TO WS-SLASH-DUE-DATE. CL*13 00247 DTSBR451 00248 MOVE R451-DUE-DATE TO L002-DATE. DTSBR451 00249 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR451 00250 DTSBR451 00251 * STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR451 00252 * ',' DELIMITED BY SIZE DTSBR451 00253 * INTO WS-LONG-TEXT-DUE-DATE. DTSBR451 00254 DTSBR451 00255 * MOVE DISP-TEL TO RPT-CALL-PHONE. DTSBR451 00256 DTSBR451 00257 * MOVE R451-RETURN-BY-DATE TO L002-DATE. DTSBR451 00258 * PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR451 00259 DTSBR451 00260 PERFORM P2000-REPT-HEADER-RTN THRU P2000-EXIT. DTSBR451 00261 DTSBR451 00262 ** MOVE +90 TO L090-DESIRED-LINE-LIMIT. CL*16 00263 ** MOVE +3 TO L090-PHRASE-CNT. CL*16 00264 * MOVE MC-LIT-WAS-DUE-BY TO L090-PHRASE (1). CL**9 00265 ** MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (1). CL*16 00266 ** MOVE WS-LONG-TEXT-DUE-DATE TO L090-PHRASE (2). CL*16 00267 ** MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (2). CL*16 00268 ** MOVE SPACES TO L090-PHRASE (2). CL*16 00269 * STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' CL*16 00270 ** ',' DELIMITED BY SIZE CL*16 00271 ** INTO L090-PHRASE (2). CL*16 00272 ** MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2). CL*16 00273 ** MOVE MC-LIT-IS-NOW-DEL TO L090-PHRASE (3). CL**9 00274 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3). CL*16 00275 ** PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. CL*16 00276 ** DISPLAY 'L90 ' L090-PARAGRAPH-LINE-CNT CL*16 00277 ** IF (L090-UNSUCCESSFUL-88) CL*16 00278 ** OR CL*16 00279 * (L090-PARAGRAPH-LINE-CNT NOT = +1) CL*16 00280 ** MOVE 'LOGIC ERROR P1000-1' TO ABEND-MSG CL*16 00281 ** PERFORM S999-ABEND THRU S999-EXIT. CL*16 00282 ** MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-1. CL*10 00283 ** CL*16 00284 * MOVE +120 TO L090-DESIRED-LINE-LIMIT. CL*16 00285 ** MOVE +3 TO L090-PHRASE-CNT. CL*16 00286 ** MOVE MC-LIT-NOTICE-TO-US TO L090-PHRASE (1). CL**9 00287 ** MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1). CL*16 00288 ** MOVE R451-RETURN-BY-DATE TO L002-DATE. CL*16 00289 * PERFORM S002-MIXED-CASE THRU S002-EXIT. CL*16 00290 ** MOVE SPACES TO L090-PHRASE (2). CL*16 00291 ** STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' CL*16 00292 ** ',' DELIMITED BY SIZE CL*16 00293 ** INTO L090-PHRASE (2). CL*16 00294 * MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2). CL*16 00295 ** MOVE MC-LIT-NOTICE-TO-US1 TO L090-PHRASE (3). CL**9 00296 ** MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3). CL*16 00297 ** PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. CL*16 00298 ** DISPLAY 'L91 ' L090-PARAGRAPH-LINE-CNT CL*16 00299 * IF (L090-UNSUCCESSFUL-88) CL*16 00300 ** OR CL*16 00301 ** (L090-PARAGRAPH-LINE-CNT NOT = +1) CL*16 00302 ** MOVE 'LOGIC ERROR P1000-3' TO ABEND-MSG CL*16 00303 ** PERFORM S999-ABEND THRU S999-EXIT. CL*16 00304 * MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-3. CL*16 00305 ** CL*16 00306 ** WRITE XEROX-T451RW FROM DTL-LINE-2 AFTER ADVANCING 2 LINE CL**9 00307 ** WRITE XEROX-T451RW FROM DTL-LINE-3 AFTER ADVANCING 1 LINE CL**9 00308 ** WRITE XEROX-T451RW FROM DTL-LINE-4 AFTER ADVANCING 1 LINE CL**9 00309 * WRITE XEROX-T451RW FROM DTL-LINE-5 AFTER ADVANCING 1 LINE DTSBR451 00310 ** WRITE XEROX-T451RW FROM DTL-LINE-6 AFTER ADVANCING 1 LINE CL**9 00311 ** WRITE XEROX-T451RW FROM DTL-LINE-7 AFTER ADVANCING 1 LINE CL**9 00312 ** WRITE XEROX-T451RW FROM DTL-LINE-8 AFTER ADVANCING 1 LINE CL**9 00313 ** WRITE XEROX-T451RW FROM DTL-LINE-9 AFTER ADVANCING 1 LINE CL**9 00314 ** WRITE XEROX-T451RW FROM DTL-LINE-11 AFTER ADVANCING 2 LINE CL**9 00315 ** WRITE XEROX-T451RW FROM DTL-LINE-12 AFTER ADVANCING 1 LINE. CL**9 00316 DTSBR451 00317 PERFORM P3000-SELF-MAILER-RTN THRU P3000-EXIT. DTSBR451 00318 P1000-EXIT. DTSBR451 00319 EXIT. DTSBR451 00320 EJECT DTSBR451 00321 P2000-REPT-HEADER-RTN. DTSBR451 00322 *RW1 DTSBR451 00323 * MOVE R451-EMP-NO TO BARC-EMP-NO. DTSBR451 00324 * PERFORM S599-BARCODE THRU S599-EXIT. DTSBR451 00325 * DTSBR451 00326 * IF L599-SETB-FONT1 DTSBR451 00327 * MOVE 'MODIFY=TAXSM1,' TO XEROX-CME DTSBR451 00328 * ELSE DTSBR451 00329 * IF L599-SETB-FONT2 DTSBR451 00330 * MOVE 'MODIFY=TAXSM2,' TO XEROX-CME DTSBR451 00331 * ELSE DTSBR451 00332 * MOVE 'MODIFY=TAXSM1,' TO XEROX-CME. DTSBR451 00333 DTSBR451 00334 WRITE XEROX-T451RW FROM XEROX-CNTL-LINE18 DTSBR451 00335 AFTER ADVANCING TOP-OF-PAGE. DTSBR451 00336 WRITE XEROX-T451RW FROM XEROX-CNTL-LINE20. DTSBR451 00337 WRITE XEROX-T451RW FROM VSCA-LINE AFTER 6 LINE. CL*19 00338 DTSBR451 00339 * WRITE XEROX-T451RW FROM HDR-LINE-10 AFTER 5 LINE. CL**4 00340 WRITE XEROX-T451RW FROM HDR-LINE-10 AFTER 4 LINE. CL*21 00341 WRITE XEROX-T451RW FROM HDR-LINE-11 AFTER 2 LINE. CL*13 00342 WRITE XEROX-T451RW FROM HDR-LINE-12 AFTER 1 LINE. CL*13 00343 WRITE XEROX-T451RW FROM HDR-LINE-13 AFTER 1 LINE. CL*13 00344 WRITE XEROX-T451RW FROM HDR-LINE-14 AFTER 1 LINE. CL*13 00345 WRITE XEROX-T451RW FROM HDR-LINE-15 AFTER 1 LINE. CL*13 00346 WRITE XEROX-T451RW FROM HDR-LINE-16 AFTER 2 LINE. CL*13 00347 P2000-EXIT. DTSBR451 00348 EXIT. DTSBR451 00349 EJECT DTSBR451 00350 P3000-SELF-MAILER-RTN. DTSBR451 00351 *RW1 DTSBR451 00352 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE. DTSBR451 00353 WRITE XEROX-T451RW FROM BLANK-LINE DTSBR451 00354 AFTER ADVANCING TOP-OF-PAGE. DTSBR451 00355 * WRITE XEROX-T451RW FROM WS-BARC-LINE AFTER 04. DTSBR451 00356 * DTSBR451 00357 WRITE XEROX-T451RW FROM VSCA-LINE AFTER ADVANCING 16 LINE. DTSBR451 00358 * WRITE XEROX-T451RW FROM MAIL-ADDR1 AFTER ADVANCING 6 LINE. DTSBR451 00359 WRITE XEROX-T451RW FROM MAIL-ADDR1 AFTER 1 LINE. DTSBR451 00360 *RW2 DTSBR451 00361 WRITE XEROX-T451RW FROM MAIL-ADDR2 AFTER 1 LINE. DTSBR451 00362 WRITE XEROX-T451RW FROM MAIL-ADDR3 AFTER 1 LINE. DTSBR451 00363 WRITE XEROX-T451RW FROM MAIL-ADDR4 AFTER 1 LINE. DTSBR451 00364 WRITE XEROX-T451RW FROM MAIL-ADDR5 AFTER 1 LINE. DTSBR451 00365 DTSBR451 00366 P3000-EXIT. DTSBR451 00367 EXIT. DTSBR451 00368 EJECT DTSBR451 00369 DTSBR451 00370 DTSBR451 00371 T1000-TERMINATE. DTSBR451 00372 CLOSE PRT-FILE. DTSBR451 00373 T1000-EXIT. DTSBR451 00374 EXIT. DTSBR451 00375 EJECT DTSBR451 00376 S001-FROM-FED-8. DTSBR451 00377 SET L001-FROM-FED-8 TO TRUE. DTSBR451 00378 GO TO S001-DATE. DTSBR451 00379 DTSBR451 00380 S001-DATE. DTSBR451 00381 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR451 00382 S001-EXIT. DTSBR451 00383 EXIT. DTSBR451 00384 SKIP3 DTSBR451 00385 S002-UPPER-CASE. DTSBR451 00386 SET L002-UPPER-CASE TO TRUE. DTSBR451 00387 GO TO S002-DATE-ALPHA. DTSBR451 00388 DTSBR451 00389 S002-MIXED-CASE. DTSBR451 00390 SET L002-MIXED-CASE TO TRUE. DTSBR451 00391 GO TO S002-DATE-ALPHA. DTSBR451 00392 DTSBR451 00393 S002-DATE-ALPHA. DTSBR451 00394 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR451 00395 S002-EXIT. DTSBR451 00396 EXIT. DTSBR451 00397 SKIP3 DTSBR451 00398 S004-FROM-5. DTSBR451 00399 SET L004-FROM-5 TO TRUE. DTSBR451 00400 GO TO S004-QUARTER. DTSBR451 00401 DTSBR451 00402 S004-QUARTER. DTSBR451 00403 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR451 00404 S004-EXIT. DTSBR451 00405 EXIT. DTSBR451 00406 SKIP3 DTSBR451 00407 S008-UPPER-CASE. DTSBR451 00408 SET L008-UPPER-CASE TO TRUE. DTSBR451 00409 GO TO S008-QUARTER-ALPHA. DTSBR451 00410 DTSBR451 00411 S008-MIXED-CASE. DTSBR451 00412 SET L008-MIXED-CASE TO TRUE. DTSBR451 00413 GO TO S008-QUARTER-ALPHA. DTSBR451 00414 DTSBR451 00415 S008-QUARTER-ALPHA. DTSBR451 00416 CALL 'DTSBU008' USING L008-LINK-AREA. DTSBR451 00417 S008-EXIT. DTSBR451 00418 EXIT. DTSBR451 00419 SKIP3 DTSBR451 00420 S056-DISP1-LEFT-PCT. DTSBR451 00421 SET L056-DISP1-LEFT-PCT-88 TO TRUE. DTSBR451 00422 GO TO S056-RATE-DISPLAY. DTSBR451 00423 DTSBR451 00424 S056-RATE-DISPLAY. DTSBR451 00425 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR451 00426 S056-EXIT. DTSBR451 00427 EXIT. DTSBR451 00428 SKIP3 DTSBR451 00429 S090-PARAGRAPH-FORMAT. DTSBR451 00430 MOVE +0 TO L090-INDENT. DTSBR451 00431 SET L090-SPECIAL-CHAR-STD-88 TO TRUE. DTSBR451 00432 DTSBR451 00433 CALL 'DTSBU090' USING L090-LINK-AREA. DTSBR451 00434 S090-EXIT. DTSBR451 00435 EXIT. DTSBR451 00436 SKIP3 DTSBR451 00437 S119-REQ-CAPS. DTSBR451 00438 SET L119-REQ-CAPS-88 TO TRUE. DTSBR451 00439 GO TO S119-AGENCY-FACTS. DTSBR451 00440 DTSBR451 00441 S119-REQ-MIXED. DTSBR451 00442 SET L119-REQ-MIXED-88 TO TRUE. DTSBR451 00443 GO TO S119-AGENCY-FACTS. DTSBR451 00444 DTSBR451 00445 S119-AGENCY-FACTS. DTSBR451 00446 CALL 'DTSBU119' USING L119-LINK-AREA. DTSBR451 00447 S119-EXIT. DTSBR451 00448 EXIT. DTSBR451 00449 SKIP3 DTSBR451 00450 S599-BARCODE. DTSBR451 00451 MOVE CONVERT-BARCODE-LINE TO L599-INPUT-DATA. DTSBR451 00452 MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH. DTSBR451 00453 MOVE 'TAX' TO L599-SYSTEM. DTSBR451 00454 DTSBR451 00455 CALL 'DTSBU599' USING BARI-LINK-AREA. DTSBR451 00456 DTSBR451 00457 IF L599-NOT-CONVERTED DTSBR451 00458 PERFORM S999-ABEND THRU S999-EXIT. DTSBR451 00459 S599-EXIT. DTSBR451 00460 EXIT. DTSBR451 00461 SKIP3 DTSBR451 00462 S999-ABEND. DTSBR451 00463 DISPLAY '***'. DTSBR451 00464 DISPLAY '*** ' DTSBR451 00465 ABEND-MSG. DTSBR451 00466 DISPLAY '***'. DTSBR451 00467 DTSBR451 00468 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR451 00469 S999-EXIT. DTSBR451 00470 EXIT. DTSBR451 00471 DTSBR451