00001 IDENTIFICATION DIVISION. 02/21/20 00002 PROGRAM-ID. DTSBR417. DTSBR417 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV012 00004 MODIFIED BY TRW S&ITG. DTSBR417 00005 DATE-WRITTEN. JANUARY 1995. DTSBR417 00006 DATE-COMPILED. DTSBR417 00007 SKIP3 DTSBR417 00008 ***** DTSBR417 00009 * DTSBR417 00010 * CALLING SEQUENCE: DTSBD400 CALLS DTSBR417 00011 * DTSBE417 WHICH UPDATES DTSIR417 DTSBR417 00012 * DTSBR417 READS DTSIR417 RECORDS. DTSBR417 00013 * DTSBR417 00014 * FUNCTION: MISSING QUARTERLY REPORT NOTICE. DTSBR417 00015 * DTSBR417 00016 * DTSBR417 00017 * MODIFICATION HISTORY: DTSBR417 00018 * DTSBR417 00019 * 01-12-95 INITIAL DEVELOPMENT DTSBR417 00020 * REFERENCE RFP #RAP AUTHOR OF CHANGE - EHH DTSBR417 00021 * DTSBR417 00022 * 11-28-97 RECOMPILED FOR MODIFIED DTSIL119. DTSBR417 00023 * REFERENCE RFP #RAP AUTHOR OF CHANGE - EHH DTSBR417 00024 * DTSBR417 00025 * CL**2 00026 * 03-25-15 RECOMPILED FOR NEW VERSION OF DELINQUENCY LETTER CL**2 00027 * REFERENCE RFP #RAP AUTHOR OF CHANGE - ZL1 CL**2 00028 * CL**2 00029 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR417 00030 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR417 00031 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR417 00032 * DTSBR417 00033 * DTSBR417 00034 * DESCRIPTION: DTSBR417 00035 * DTSBR417 00036 * THIS MODULE PRINTS A "DELINQUENT REPORT NOTICE". DTSBR417 00037 * DTSBR417 00038 * DTSBR417 00039 * RECORDS READ: DTSBR417 00040 * DTSBR417 00041 * NONE. DTSBR417 00042 * DTSBR417 00043 * DTSBR417 00044 * PRINTED OUTPUTS: DTSBR417 00045 * DTSBR417 00046 * 417R1 DELINQUENT REPORT NOTICE. DTSBR417 00047 * DTSBR417 00048 * DTSBR417 00049 * RECORDS WRITTEN: DTSBR417 00050 * DTSBR417 00051 * NONE. DTSBR417 00052 * DTSBR417 00053 * DTSBR417 00054 * MODULES CALLED: DTSBR417 00055 * DTSBR417 00056 * DTSBU002 DATE ALPHA CONVERSION MODULE. DTSBR417 00057 * DTSBU004 YEAR/QUARTER CONVERSION. DTSBR417 00058 * DTSBU008 DISPLAY QUARTER IN TEXT FORMAT. DTSBR417 00059 * DTSBU056 RATE DISPLAY. DTSBR417 00060 * DTSBU090 PARAGRAPH FORMATTING MODULE. DTSBR417 00061 * DTSBU119 AGENCY FACTS. DTSBR417 00062 * DTSBR417 00063 * DTSBR417 00064 ***** DTSBR417 00065 EJECT DTSBR417 00066 ENVIRONMENT DIVISION. DTSBR417 00067 DTSBR417 00068 CONFIGURATION SECTION. DTSBR417 00069 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR417 00070 DTSBR417 00071 INPUT-OUTPUT SECTION. DTSBR417 00072 DTSBR417 00073 FILE-CONTROL. DTSBR417 00074 SELECT PRT-FILE ASSIGN TO RPT417R1. DTSBR417 00075 DTSBR417 00076 DATA DIVISION. DTSBR417 00077 DTSBR417 00078 FILE SECTION. DTSBR417 00079 DTSBR417 00080 FD PRT-FILE DTSBR417 00081 RECORDING MODE IS F DTSBR417 00082 BLOCK CONTAINS 0 RECORDS DTSBR417 00083 LABEL RECORDS ARE OMITTED. DTSBR417 00084 DTSBR417 00085 01 XEROX-REPORT. DTSBR417 00086 05 FILLER PIC X(1). DTSBR417 00087 05 XEROX-RPT PIC X(132). DTSBR417 00088 DTSBR417 00089 EJECT DTSBR417 00090 WORKING-STORAGE SECTION. DTSBR417 000905 77 PAN-VALET PICTURE X(24) VALUE '012DTSBR417 02/21/20'. DTSBR417 00091 77 PAN-VALET PICTURE X(24) VALUE '054DTSBR417 02/26/14'. DTSBR417 00092 77 PAN-VALET PICTURE X(24) VALUE '024DTSBR417 02/04/14'. DTSBR417 00093 77 PAN-VALET PICTURE X(24) VALUE '052DTSBR417 11/14/13'. DTSBR417 00094 77 PAN-VALET PICTURE X(24) VALUE '010DTSBR417 11/14/13'. DTSBR417 00095 77 PAN-VALET PICTURE X(24) VALUE '050DTSBR417 06/03/13'. DTSBR417 00096 77 PAN-VALET PICTURE X(24) VALUE '001DTSBR417 04/12/13'. DTSBR417 00097 77 PAN-VALET PICTURE X(24) VALUE '048DTSBR417 04/03/13'. DTSBR417 00098 77 PAN-VALET PICTURE X(24) VALUE '026DTSBR417 03/29/13'. DTSBR417 00099 DTSBR417 00100 01 WRK-AREA. DTSBR417 00101 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +417.DTSBR417 00102 05 WRK-COUNTER PIC 9(1). DTSBR417 00103 05 WS-YRQ-UNPACK PIC 9(5) VALUE 0. DTSBR417 00104 DTSBR417 00105 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR417 00106 DTSBR417 00107 05 ABEND-MSG PIC X(60). DTSBR417 00108 DTSBR417 00109 05 WS-UNIT-TEL. DTSBR417 00110 10 WS-UNIT-AREA-CD PIC X(03). DTSBR417 00111 10 WS-UNIT-PREFIX PIC X(03). DTSBR417 00112 10 WS-UNIT-SUFFIX PIC X(04). DTSBR417 00113 10 WS-UNIT-EXTENSION PIC X(04). DTSBR417 00114 DTSBR417 00115 05 DISP-TEL. DTSBR417 00116 10 DISP-TEL-FILLER-1 PIC X(01) VALUE '('. DTSBR417 00117 10 DISP-TEL-AREA-CD PIC X(03). DTSBR417 00118 10 DISP-TEL-FILLER-2 PIC X(02) VALUE ') '. DTSBR417 00119 10 DISP-TEL-PREFIX PIC X(03). DTSBR417 00120 10 DISP-TEL-FILLER-3 PIC X(01) VALUE '-'. DTSBR417 00121 10 DISP-TEL-SUFFIX PIC X(04). DTSBR417 00122 10 FILLER PIC X(01) VALUE '.'. DTSBR417 00123 DTSBR417 00124 05 WS-START-POS PIC S9(04) COMP. DTSBR417 00125 DTSBR417 00126 * 05 WS-LONG-TEXT-MAIL-DATE PIC X(18). DTSBR417 00127 DTSBR417 00128 05 WS-UC-SHORT-MONTHS. DTSBR417 00129 10 WS-UC-SHORT-MONTH-1 PIC X(03). DTSBR417 00130 10 WS-UC-SHORT-MONTH-2 PIC X(03). DTSBR417 00131 10 WS-UC-SHORT-MONTH-3 PIC X(03). DTSBR417 00132 DTSBR417 00133 05 WS-MC-QTR-LONG-DSCR PIC X(06). DTSBR417 00134 DTSBR417 00135 05 WS-SHORT-YEAR PIC X(02). DTSBR417 00136 DTSBR417 00137 05 WS-LONG-YEAR PIC X(04). DTSBR417 00138 DTSBR417 00139 * 05 WS-DISP-RATE PIC X(07). DTSBR417 00140 DTSBR417 00141 * 05 WS-SLASH-DUE-DATE PIC X(10). DTSBR417 00142 DTSBR417 00143 05 WS-LONG-TEXT-DUE-DATE PIC X(18). DTSBR417 00144 DTSBR417 00145 * 05 WS-TEXT-LINE-1 PIC X(70). DTSBR417 00146 DTSBR417 00147 * 05 WS-TEXT-LINE-2 PIC X(33). DTSBR417 00148 DTSBR417 00149 * 05 WS-TEXT-LINE-3A PIC X(70). DTSBR417 00150 DTSBR417 00151 * 05 WS-TEXT-LINE-3B PIC X(70). DTSBR417 00152 DTSBR417 00153 * 05 WS-TEXT-LINE-3C PIC X(70). DTSBR417 00154 DTSBR417 00155 * 05 WS-TEXT-LINE-4 PIC X(70). DTSBR417 00156 DTSBR417 00157 05 DETAIL-2-LINE-CNT PIC S9(04) COMP. DTSBR417 00158 DTSBR417 00159 05 DETAIL-2-BLANK-LINE-CNT PIC S9(04) COMP. DTSBR417 00160 DTSBR417 00161 05 WS-YRQ-SUB PIC S9(04) COMP. DTSBR417 00162 05 ADDR-FMT-AREA PIC X(200). DTSBR417 00163 05 ADDR-FMT-AREA-X REDEFINES ADDR-FMT-AREA. DTSBR417 00164 10 ADDR-FMT-LINE OCCURS 5 TIMES PIC X(40). DTSBR417 00165 DTSBR417 00166 05 WS-REC PIC X(132) VALUE SPACES. DTSBR417 00167 01 VSCA-LINE. DTSBR417 00168 05 VSCA-DATA PIC X(133) VALUE SPACES. DTSBR417 00169 DTSBR417 00170 EJECT DTSBR417 00171 01 MIXED-CASE-LITERALS. DTSBR417 00172 ++INCLUDE DTSIZ41D DTSBR417 00173 EJECT DTSBR417 00174 01 L001-LINK-AREA. DTSBR417 00175 ++INCLUDE DTSIL001 DTSBR417 00176 EJECT DTSBR417 00177 01 L002-LINK-AREA. DTSBR417 00178 ++INCLUDE DTSIL002 DTSBR417 00179 EJECT DTSBR417 00180 01 L004-LINK-AREA. DTSBR417 00181 ++INCLUDE DTSIL004 DTSBR417 00182 EJECT DTSBR417 00183 01 L008-LINK-AREA. DTSBR417 00184 ++INCLUDE DTSIL008 DTSBR417 00185 EJECT DTSBR417 00186 01 L056-LINK-AREA. DTSBR417 00187 ++INCLUDE DTSIL056 DTSBR417 00188 EJECT DTSBR417 00189 01 L090-LINK-AREA. DTSBR417 00190 ++INCLUDE DTSIL090 DTSBR417 00191 EJECT DTSBR417 00192 01 L119-LINK-AREA. DTSBR417 00193 ++INCLUDE DTSIL119 DTSBR417 00194 EJECT DTSBR417 00195 ++INCLUDE DTSIZ41C DTSBR417 00196 SKIP3 DTSBR417 00197 ++INCLUDE DTSXL417 DTSBR417 00198 SKIP3 DTSBR417 00199 *RW1 DTSBR417 00200 01 CONVERT-BARCODE-LINE. DTSBR417 00201 05 BARC-EMP-NO PIC 9(06) VALUE ZEROS. DTSBR417 00202 DTSBR417 00203 01 WS-BARC-LINE. DTSBR417 00204 05 FILLER PIC X(40) VALUE SPACES. DTSBR417 00205 05 CONVERTED-BARCODE PIC X(50). DTSBR417 00206 05 FILLER PIC X(30) VALUE SPACES. DTSBR417 00207 DTSBR417 00208 01 BARI-LINK-AREA. DTSBR417 00209 ++INCLUDE BARIL599 DTSBR417 00210 SKIP3 DTSBR417 00211 *RW2 DTSBR417 00212 EJECT DTSBR417 00213 LINKAGE SECTION. DTSBR417 00214 SKIP3 DTSBR417 00215 01 LRCM-LINK-AREA. DTSBR417 00216 ++INCLUDE DTSILRCM DTSBR417 00217 EJECT DTSBR417 00218 01 R417-REC. DTSBR417 00219 ++INCLUDE DTSIR417 DTSBR417 00220 EJECT DTSBR417 00221 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR417 00222 R417-REC. DTSBR417 00223 SKIP2 DTSBR417 00224 IF FIRST-TIME-IND = 'Y' DTSBR417 00225 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR417 00226 MOVE 'N' TO FIRST-TIME-IND DTSBR417 00227 MOVE 0 TO WRK-COUNTER. DTSBR417 00228 DTSBR417 00229 *BO IF WRK-COUNTER > 1 DTSBR417 00230 * GOBACK. DTSBR417 00231 DTSBR417 00232 IF LRCM-EOR-88 DTSBR417 00233 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR417 00234 ELSE DTSBR417 00235 ADD 1 TO WRK-COUNTER DTSBR417 00236 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR417 00237 SKIP2 DTSBR417 00238 GOBACK. DTSBR417 00239 EJECT DTSBR417 00240 I1000-INITIATE. DTSBR417 00241 DTSBR417 00242 OPEN OUTPUT PRT-FILE. DTSBR417 00243 MOVE SPACES TO XEROX-REPORT. DTSBR417 00244 DTSBR417 00245 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR417 00246 AFTER ADVANCING TOP-OF-PAGE. DTSBR417 00247 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 11. DTSBR417 00248 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE13 DTSBR417 00249 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE14. DTSBR417 00250 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE15. DTSBR417 00251 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE16. DTSBR417 00252 * WRITE XEROX-REPORT FROM ROUTE-INFO-LINE17. DTSBR417 00253 * WRITE XEROX-REPORT FROM XEROX-CNTL-LINE18. DTSBR417 00254 * WRITE XEROX-REPORT FROM XEROX-CNTL-LINE19. DTSBR417 00255 * WRITE XEROX-REPORT FROM XEROX-CNTL-LINE20. DTSBR417 00256 DTSBR417 00257 *BO SET L119-REQ-DEL-RPT-88 TO TRUE. DTSBR417 00258 SET L119-REQ-COLLECTIONS-88 TO TRUE. DTSBR417 00259 PERFORM S119-REQ-MIXED THRU S119-EXIT. DTSBR417 00260 MOVE L119-UNIT-VOICE TO WS-UNIT-TEL. DTSBR417 00261 I1000-EXIT. DTSBR417 00262 EXIT. DTSBR417 00263 EJECT DTSBR417 00264 P1000-PROCESS. DTSBR417 00265 DISPLAY 'EMP NO ' R417-EMP-NO. DTSBR417 00266 * MOVE '(' TO DISP-TEL-FILLER-1. DTSBR417 00267 * MOVE WS-UNIT-AREA-CD TO DISP-TEL-AREA-CD. DTSBR417 00268 * MOVE ') ' TO DISP-TEL-FILLER-2. DTSBR417 00269 * MOVE WS-UNIT-PREFIX TO DISP-TEL-PREFIX. DTSBR417 00270 * MOVE '-' TO DISP-TEL-FILLER-3. DTSBR417 00271 * MOVE WS-UNIT-SUFFIX TO DISP-TEL-SUFFIX. DTSBR417 00272 ** MOVE DISP-TEL TO WS-TEXT-LINE-2. DTSBR417 00273 * MOVE 20151020 TO R417-MAIL-DATE. CL**4 00274 * MOVE 20151030 TO R417-RETURN-BY-DATE. CL**4 00275 DISPLAY ' MAIL DTE ' R417-MAIL-DATE CL*12 00276 MOVE ZEROS TO L002-DATE. CL*12 00277 MOVE R417-MAIL-DATE TO L002-DATE. DTSBR417 00278 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR417 00279 DTSBR417 00280 COMPUTE WS-START-POS = (18 - L002-LONG-TEXT-CNT) / 2. DTSBR417 00281 DTSBR417 00282 ADD +1 TO WS-START-POS. DTSBR417 00283 DTSBR417 00284 IF (WS-START-POS > +0) DTSBR417 00285 AND DTSBR417 00286 (WS-START-POS < +18) DTSBR417 00287 MOVE SPACES TO WS-LONG-TEXT-MAIL-DATE DTSBR417 00288 MOVE L002-LONG-TEXT-AREA DTSBR417 00289 TO WS-LONG-TEXT-MAIL-DATE (WS-START-POS:) DTSBR417 00290 ELSE DTSBR417 00291 MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-MAIL-DATE. DTSBR417 00292 DISPLAY 'LONG MAIL DATE: ' WS-LONG-TEXT-MAIL-DATE. CL*12 00293 DTSBR417 00294 MOVE R417-TOTAL-RATE TO L056-RATE. DTSBR417 00295 PERFORM S056-DISP1-LEFT-PCT THRU S056-EXIT. DTSBR417 00296 MOVE L056-DISP-RATE TO WS-DISP-RATE. DTSBR417 00297 DTSBR417 00298 MOVE R417-YRQ TO L008-YRQ. DTSBR417 00299 PERFORM S008-UPPER-CASE THRU S008-EXIT. DTSBR417 00300 MOVE L008-SHORT-MONTHS TO WS-UC-SHORT-MONTHS. DTSBR417 00301 DTSBR417 00302 PERFORM S008-MIXED-CASE THRU S008-EXIT. DTSBR417 00303 * MOVE L008-SHORT-DSCR TO DTL-UC-SHORT-QTR-3. CL**9 00304 DTSBR417 00305 MOVE L008-YEAR (3:2) TO WS-SHORT-YEAR. DTSBR417 00306 DTSBR417 00307 * MOVE L008-YEAR TO WS-LONG-YEAR DTL-LONG-YEAR3. CL**9 00308 MOVE L008-YEAR TO WS-LONG-YEAR. CL*10 00309 DTSBR417 00310 MOVE R417-DUE-DATE TO L001-FED-8-DATE-9. DTSBR417 00311 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR417 00312 MOVE L001-SLASH-8-DATE TO WS-SLASH-DUE-DATE. DTSBR417 00313 DTSBR417 00314 * MOVE 20130731 TO R417-DUE-DATE. DTSBR417 00315 DISPLAY ' DUE DATE ' R417-DUE-DATE DTSBR417 00316 MOVE R417-DUE-DATE TO L002-DATE. DTSBR417 00317 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR417 00318 * MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-DUE-DATE. DTSBR417 00319 DTSBR417 00320 PERFORM P3000-PRINT-HEADER THRU P3000-EXIT. DTSBR417 00321 DTSBR417 00322 MOVE +130 TO L090-DESIRED-LINE-LIMIT. DTSBR417 00323 MOVE +3 TO L090-PHRASE-CNT. DTSBR417 00324 MOVE MC-LIT-WAS-DUE-BY TO L090-PHRASE (1). DTSBR417 00325 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (1). DTSBR417 00326 * MOVE WS-LONG-TEXT-DUE-DATE TO L090-PHRASE (2). DTSBR417 00327 * MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR417 00328 MOVE SPACES TO L090-PHRASE (2). DTSBR417 00329 STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR417 00330 '.' DELIMITED BY SIZE DTSBR417 00331 INTO L090-PHRASE (2). DTSBR417 00332 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR417 00333 MOVE MC-LIT-IS-NOW-DEL TO L090-PHRASE (3). DTSBR417 00334 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3). DTSBR417 00335 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR417 00336 DISPLAY 'L90 ' L090-PARAGRAPH-LINE-CNT DTSBR417 00337 IF (L090-UNSUCCESSFUL-88) DTSBR417 00338 OR DTSBR417 00339 (L090-PARAGRAPH-LINE-CNT NOT = +1) DTSBR417 00340 MOVE 'LOGIC ERROR P1000-1' TO ABEND-MSG DTSBR417 00341 PERFORM S999-ABEND THRU S999-EXIT. DTSBR417 00342 * MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-1. CL**7 00343 DTSBR417 00344 DTSBR417 00345 MOVE +130 TO L090-DESIRED-LINE-LIMIT. DTSBR417 00346 MOVE +3 TO L090-PHRASE-CNT. DTSBR417 00347 MOVE MC-LIT-NOTICE-TO-US TO L090-PHRASE (1). DTSBR417 00348 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1). DTSBR417 00349 SET L004-FROM-5 TO TRUE. DTSBR417 00350 MOVE R417-YRQ TO WS-YRQ-UNPACK. DTSBR417 00351 MOVE WS-YRQ-UNPACK TO L004-QTR-5-AREA. DTSBR417 00352 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBR417 00353 MOVE L004-QTR-END-DATE TO L002-DATE. DTSBR417 00354 DTSBR417 00355 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR417 00356 MOVE SPACES TO L090-PHRASE (2). DTSBR417 00357 STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR417 00358 ',' DELIMITED BY SIZE DTSBR417 00359 INTO L090-PHRASE (2). DTSBR417 00360 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR417 00361 MOVE MC-LIT-NOTICE-TO-US1 TO L090-PHRASE (3). DTSBR417 00362 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3). DTSBR417 00363 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR417 00364 DISPLAY 'L903 ' L090-PARAGRAPH-LINE-CNT DTSBR417 00365 DISPLAY ' LIN ' L090-PARAGRAPH-LINE (1) DTSBR417 00366 IF (L090-UNSUCCESSFUL-88) DTSBR417 00367 OR DTSBR417 00368 (L090-PARAGRAPH-LINE-CNT NOT = +1) DTSBR417 00369 MOVE 'LOGIC ERROR P1000-3' TO ABEND-MSG DTSBR417 00370 PERFORM S999-ABEND THRU S999-EXIT. DTSBR417 00371 * MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-3. CL**7 00372 DTSBR417 00373 DTSBR417 00374 MOVE +130 TO L090-DESIRED-LINE-LIMIT. DTSBR417 00375 MOVE +3 TO L090-PHRASE-CNT. DTSBR417 00376 MOVE MC-LIT-NOTICE-TO-US2 TO L090-PHRASE (1). DTSBR417 00377 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1). DTSBR417 00378 DISPLAY ' RTN BYE DATE ' R417-RETURN-BY-DATE. DTSBR417 00379 MOVE R417-RETURN-BY-DATE TO L002-DATE. DTSBR417 00380 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR417 00381 MOVE SPACES TO L090-PHRASE (2). DTSBR417 00382 STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR417 00383 ',' DELIMITED BY SIZE DTSBR417 00384 INTO L090-PHRASE (2). DTSBR417 00385 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR417 00386 MOVE MC-LIT-NOTICE-TO-US3 TO L090-PHRASE (3). DTSBR417 00387 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3). DTSBR417 00388 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR417 00389 DISPLAY 'L904 ' L090-PARAGRAPH-LINE-CNT DTSBR417 00390 DISPLAY ' LIN ' L090-PARAGRAPH-LINE (1) DTSBR417 00391 IF (L090-UNSUCCESSFUL-88) DTSBR417 00392 OR DTSBR417 00393 (L090-PARAGRAPH-LINE-CNT NOT = +1) DTSBR417 00394 MOVE 'LOGIC ERROR P1000-4' TO ABEND-MSG DTSBR417 00395 PERFORM S999-ABEND THRU S999-EXIT. DTSBR417 00396 * MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-4. CL**7 00397 DTSBR417 00398 PERFORM P4000-PRINT-DETAIL-1 THRU P4000-EXIT. DTSBR417 00399 DTSBR417 00400 MOVE +0 TO DETAIL-2-LINE-CNT. DTSBR417 00401 DTSBR417 00402 PERFORM P2000-SELF-MAILER-RTN THRU P2000-EXIT. DTSBR417 00403 P1000-EXIT. DTSBR417 00404 EXIT. DTSBR417 00405 EJECT DTSBR417 00406 P2000-SELF-MAILER-RTN. DTSBR417 00407 MOVE R417-FMT-LINE (1) TO WS-ADDR-FMT-LINE-1. DTSBR417 00408 MOVE R417-FMT-LINE (2) TO WS-ADDR-FMT-LINE-2. DTSBR417 00409 MOVE R417-FMT-LINE (3) TO WS-ADDR-FMT-LINE-3. DTSBR417 00410 MOVE R417-FMT-LINE (4) TO WS-ADDR-FMT-LINE-4. DTSBR417 00411 MOVE R417-FMT-LINE (5) TO WS-ADDR-FMT-LINE-5. DTSBR417 00412 *RW1 DTSBR417 00413 * MOVE R417-EMP-NO TO BARC-EMP-NO. DTSBR417 00414 * PERFORM S599-BARCODE THRU S599-EXIT. DTSBR417 00415 *RW2 DTSBR417 00416 PERFORM P8000-PRINT-VSCA-ADDR THRU P8000-EXIT. DTSBR417 00417 DTSBR417 00418 P2000-EXIT. DTSBR417 00419 EXIT. DTSBR417 00420 EJECT DTSBR417 00421 P1100-ADDITIONAL-RPTS. DTSBR417 00422 MOVE +66 TO L090-DESIRED-LINE-LIMIT. DTSBR417 00423 MOVE 'ADDITIONAL DELINQUENT REPORTS DUE:' DTSBR417 00424 TO L090-PHRASE (1). DTSBR417 00425 * SET L090-PHRASE-UNDERLINE-88 (1) TO TRUE. DTSBR417 00426 SET L090-PHRASE-BOLD-88 (1) TO TRUE. DTSBR417 00427 MOVE SPACES TO L090-PHRASE (2). DTSBR417 00428 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR417 00429 DTSBR417 00430 MOVE +2 TO L090-PHRASE-CNT. DTSBR417 00431 DTSBR417 00432 PERFORM DTSBR417 00433 VARYING R417-YRQ-IDX FROM 1 BY 1 DTSBR417 00434 UNTIL R417-YRQ-IDX > R417-ADDITIONAL-RPT-CNT DTSBR417 00435 MOVE R417-ADDITIONAL-RPT-YRQ (R417-YRQ-IDX) DTSBR417 00436 TO L004-QTR-5-9 DTSBR417 00437 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR417 00438 ADD +1 TO L090-PHRASE-CNT DTSBR417 00439 MOVE SPACES DTSBR417 00440 TO L090-PHRASE (L090-PHRASE-CNT) DTSBR417 00441 MOVE SPACES DTSBR417 00442 TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT) DTSBR417 00443 SET WS-YRQ-SUB TO R417-YRQ-IDX DTSBR417 00444 IF WS-YRQ-SUB = R417-ADDITIONAL-RPT-CNT DTSBR417 00445 STRING L004-SLASH-QTR DELIMITED BY SIZE DTSBR417 00446 '.' DELIMITED BY SIZE DTSBR417 00447 INTO L090-PHRASE (L090-PHRASE-CNT) DTSBR417 00448 ELSE DTSBR417 00449 STRING L004-SLASH-QTR DELIMITED BY SIZE DTSBR417 00450 ',' DELIMITED BY SIZE DTSBR417 00451 INTO L090-PHRASE (L090-PHRASE-CNT) DTSBR417 00452 END-IF DTSBR417 00453 END-PERFORM. DTSBR417 00454 DTSBR417 00455 P3000-PRINT-HEADER. DTSBR417 00456 MOVE R417-EMP-NO TO BARC-EMP-NO. DTSBR417 00457 PERFORM S599-BARCODE THRU S599-EXIT. DTSBR417 00458 DTSBR417 00459 IF L599-SETB-FONT1 DTSBR417 00460 MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME DTSBR417 00461 ELSE DTSBR417 00462 IF L599-SETB-FONT2 DTSBR417 00463 MOVE 'MODIFY=TAXSM2,' TO CNTL1-CME DTSBR417 00464 ELSE DTSBR417 00465 MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME. DTSBR417 00466 DTSBR417 00467 MOVE 'MODIFY=CME418,' TO CNTL1-CME. DTSBR417 00468 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE18 DTSBR417 00469 AFTER ADVANCING TOP-OF-PAGE. DTSBR417 00470 * WRITE XEROX-REPORT FROM XEROX-CNTL-LINE19. DTSBR417 00471 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE20. DTSBR417 00472 DTSBR417 00473 MOVE R417-FMT-LINE (1) TO HDR-FMT-LINE-1. DTSBR417 00474 MOVE R417-FMT-LINE (2) TO HDR-FMT-LINE-2. DTSBR417 00475 MOVE R417-FMT-LINE (3) TO HDR-FMT-LINE-3. DTSBR417 00476 MOVE R417-FMT-LINE (4) TO HDR-FMT-LINE-4. DTSBR417 00477 MOVE R417-FMT-LINE (5) TO HDR-FMT-LINE-5. DTSBR417 00478 MOVE R417-EMP-NO TO HDR-EMP-NO. DTSBR417 00479 MOVE WS-UC-SHORT-MONTH-1 TO HDR-UC-SHORT-MONTH-1. DTSBR417 00480 MOVE WS-UC-SHORT-MONTH-2 TO HDR-UC-SHORT-MONTH-2. DTSBR417 00481 MOVE WS-UC-SHORT-MONTH-3 TO HDR-UC-SHORT-MONTH-3. DTSBR417 00482 MOVE WS-LONG-YEAR TO HDR-LONG-YEAR. DTSBR417 00483 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR417 00484 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 8 LINE. DTSBR417 00485 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 10 LINE. DTSBR417 00486 WRITE XEROX-REPORT FROM HDR-LINE-10 AFTER ADVANCING 1 LINE. CL**8 00487 WRITE XEROX-REPORT FROM HDR-LINE-11 AFTER ADVANCING 2 LINE. CL**8 00488 WRITE XEROX-REPORT FROM HDR-LINE-12 AFTER ADVANCING 1 LINE. DTSBR417 00489 WRITE XEROX-REPORT FROM HDR-LINE-13 AFTER ADVANCING 1 LINE. DTSBR417 00490 WRITE XEROX-REPORT FROM HDR-LINE-14 AFTER ADVANCING 1 LINE. DTSBR417 00491 WRITE XEROX-REPORT FROM HDR-LINE-15 AFTER ADVANCING 1 LINE. DTSBR417 00492 * WRITE XEROX-REPORT FROM HDR-LINE-16 AFTER ADVANCING 1 LINE. DTSBR417 00493 * WRITE XEROX-REPORT FROM HDR-LINE-17 AFTER ADVANCING 1 LINE. DTSBR417 00494 DTSBR417 00495 P3000-EXIT. DTSBR417 00496 EXIT. DTSBR417 00497 DTSBR417 00498 P4000-PRINT-DETAIL-1. DTSBR417 00499 MOVE WS-UC-SHORT-MONTH-1 TO DTL-UC-SHORT-MONTH-1. DTSBR417 00500 MOVE WS-UC-SHORT-MONTH-2 TO DTL-UC-SHORT-MONTH-2. DTSBR417 00501 MOVE WS-UC-SHORT-MONTH-3 TO DTL-UC-SHORT-MONTH-3. DTSBR417 00502 MOVE WS-LONG-YEAR TO DTL-LONG-YEAR. DTSBR417 00503 WRITE XEROX-REPORT FROM DTL-LINE-2 AFTER ADVANCING 2 LINE. DTSBR417 00504 WRITE XEROX-REPORT FROM DTL-LINE-3 AFTER ADVANCING 1 LINE. DTSBR417 00505 WRITE XEROX-REPORT FROM DTL-LINE-4 AFTER ADVANCING 1 LINE. CL**6 00506 WRITE XEROX-REPORT FROM DTL-LINE-5 AFTER ADVANCING 1 LINE. DTSBR417 00507 WRITE XEROX-REPORT FROM DTL-LINE-6 AFTER ADVANCING 1 LINE. DTSBR417 00508 WRITE XEROX-REPORT FROM DTL-LINE-7 AFTER ADVANCING 1 LINE. CL**5 00509 WRITE XEROX-REPORT FROM DTL-LINE-8 AFTER ADVANCING 1 LINE. CL**8 00510 WRITE XEROX-REPORT FROM DTL-LINE-9 AFTER ADVANCING 1 LINE. CL**5 00511 WRITE XEROX-REPORT FROM DTL-LINE-9A AFTER ADVANCING 1 LINE. CL*11 00512 WRITE XEROX-REPORT FROM DTL-LINE-10 AFTER ADVANCING 2 LINE. CL**8 00513 WRITE XEROX-REPORT FROM DTL-LINE-11 AFTER ADVANCING 1 LINE. CL**6 00514 WRITE XEROX-REPORT FROM DTL-LINE-12 AFTER ADVANCING 1 LINE. CL**6 00515 WRITE XEROX-REPORT FROM DTL-LINE-13 AFTER ADVANCING 1 LINE. CL**6 00516 WRITE XEROX-REPORT FROM DTL-LINE-14 AFTER ADVANCING 1 LINE. CL**6 00517 WRITE XEROX-REPORT FROM DTL-LINE-15 AFTER ADVANCING 1 LINE. CL**6 00518 WRITE XEROX-REPORT FROM DTL-LINE-16 AFTER ADVANCING 1 LINE. CL**6 00519 WRITE XEROX-REPORT FROM DTL-LINE-17 AFTER ADVANCING 1 LINE. CL**6 00520 WRITE XEROX-REPORT FROM DTL-LINE-18 AFTER ADVANCING 1 LINE. CL**6 00521 * WRITE XEROX-REPORT FROM DTL-LINE-19 AFTER ADVANCING 1 LINE. CL**6 00522 DTSBR417 00523 P4000-EXIT. DTSBR417 00524 EXIT. DTSBR417 00525 DTSBR417 00526 P8000-PRINT-VSCA-ADDR. DTSBR417 00527 *RW1 DTSBR417 00528 MOVE L599-BARCODED-DATA TO CONVERTED-BARCODE. DTSBR417 00529 DTSBR417 00530 MOVE SPACES TO WS-REC. DTSBR417 00531 WRITE XEROX-REPORT FROM WS-REC DTSBR417 00532 AFTER ADVANCING TOP-OF-PAGE. DTSBR417 00533 DTSBR417 00534 * WRITE XEROX-REPORT FROM WS-BARC-LINE AFTER 04. DTSBR417 00535 DTSBR417 00536 * WRITE XEROX-REPORT FROM VSCA-LINE DTSBR417 00537 * AFTER ADVANCING TOP-OF-PAGE. DTSBR417 00538 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 16 LINE. DTSBR417 00539 * WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 13 LINE. DTSBR417 00540 *RW2 DTSBR417 00541 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-17 DTSBR417 00542 AFTER ADVANCING 1 LINE. DTSBR417 00543 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-18 DTSBR417 00544 AFTER ADVANCING 1 LINE. DTSBR417 00545 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-19 DTSBR417 00546 AFTER ADVANCING 1 LINE. DTSBR417 00547 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-20 DTSBR417 00548 AFTER ADVANCING 1 LINE. DTSBR417 00549 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-21 DTSBR417 00550 AFTER ADVANCING 1 LINE. DTSBR417 00551 DTSBR417 00552 P8000-EXIT. DTSBR417 00553 EXIT. DTSBR417 00554 DTSBR417 00555 T1000-TERMINATE. DTSBR417 00556 CLOSE PRT-FILE. DTSBR417 00557 T1000-EXIT. DTSBR417 00558 EXIT. DTSBR417 00559 EJECT DTSBR417 00560 S001-FROM-FED-8. DTSBR417 00561 SET L001-FROM-FED-8 TO TRUE. DTSBR417 00562 GO TO S001-DATE. DTSBR417 00563 DTSBR417 00564 S001-DATE. DTSBR417 00565 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR417 00566 S001-EXIT. DTSBR417 00567 EXIT. DTSBR417 00568 SKIP3 DTSBR417 00569 S002-UPPER-CASE. DTSBR417 00570 SET L002-UPPER-CASE TO TRUE. DTSBR417 00571 GO TO S002-DATE-ALPHA. DTSBR417 00572 DTSBR417 00573 S002-MIXED-CASE. DTSBR417 00574 SET L002-MIXED-CASE TO TRUE. DTSBR417 00575 GO TO S002-DATE-ALPHA. DTSBR417 00576 DTSBR417 00577 S002-DATE-ALPHA. DTSBR417 00578 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR417 00579 S002-EXIT. DTSBR417 00580 EXIT. DTSBR417 00581 SKIP3 DTSBR417 00582 S004-FROM-5. DTSBR417 00583 SET L004-FROM-5 TO TRUE. DTSBR417 00584 GO TO S004-QUARTER. DTSBR417 00585 DTSBR417 00586 S004-QUARTER. DTSBR417 00587 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR417 00588 S004-EXIT. DTSBR417 00589 EXIT. DTSBR417 00590 SKIP3 DTSBR417 00591 S008-UPPER-CASE. DTSBR417 00592 SET L008-UPPER-CASE TO TRUE. DTSBR417 00593 GO TO S008-QUARTER-ALPHA. DTSBR417 00594 DTSBR417 00595 S008-MIXED-CASE. DTSBR417 00596 SET L008-MIXED-CASE TO TRUE. DTSBR417 00597 GO TO S008-QUARTER-ALPHA. DTSBR417 00598 DTSBR417 00599 S008-QUARTER-ALPHA. DTSBR417 00600 CALL 'DTSBU008' USING L008-LINK-AREA. DTSBR417 00601 S008-EXIT. DTSBR417 00602 EXIT. DTSBR417 00603 SKIP3 DTSBR417 00604 S056-DISP1-LEFT-PCT. DTSBR417 00605 SET L056-DISP1-LEFT-PCT-88 TO TRUE. DTSBR417 00606 GO TO S056-RATE-DISPLAY. DTSBR417 00607 DTSBR417 00608 S056-RATE-DISPLAY. DTSBR417 00609 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR417 00610 S056-EXIT. DTSBR417 00611 EXIT. DTSBR417 00612 SKIP3 DTSBR417 00613 S090-PARAGRAPH-FORMAT. DTSBR417 00614 MOVE +0 TO L090-INDENT. DTSBR417 00615 SET L090-SPECIAL-CHAR-STD-88 TO TRUE. DTSBR417 00616 DTSBR417 00617 CALL 'DTSBU090' USING L090-LINK-AREA. DTSBR417 00618 S090-EXIT. DTSBR417 00619 EXIT. DTSBR417 00620 SKIP3 DTSBR417 00621 S119-REQ-CAPS. DTSBR417 00622 SET L119-REQ-CAPS-88 TO TRUE. DTSBR417 00623 GO TO S119-AGENCY-FACTS. DTSBR417 00624 DTSBR417 00625 S119-REQ-MIXED. DTSBR417 00626 SET L119-REQ-MIXED-88 TO TRUE. DTSBR417 00627 GO TO S119-AGENCY-FACTS. DTSBR417 00628 DTSBR417 00629 S119-AGENCY-FACTS. DTSBR417 00630 CALL 'DTSBU119' USING L119-LINK-AREA. DTSBR417 00631 S119-EXIT. DTSBR417 00632 EXIT. DTSBR417 00633 SKIP3 DTSBR417 00634 S599-BARCODE. DTSBR417 00635 MOVE CONVERT-BARCODE-LINE TO L599-INPUT-DATA. DTSBR417 00636 MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH. DTSBR417 00637 MOVE 'TAX' TO L599-SYSTEM. DTSBR417 00638 DTSBR417 00639 CALL 'DTSBU599' USING BARI-LINK-AREA. DTSBR417 00640 DTSBR417 00641 IF L599-NOT-CONVERTED DTSBR417 00642 PERFORM S999-ABEND THRU S999-EXIT. DTSBR417 00643 S599-EXIT. DTSBR417 00644 EXIT. DTSBR417 00645 SKIP3 DTSBR417 00646 S999-ABEND. DTSBR417 00647 DISPLAY '***'. DTSBR417 00648 DISPLAY '*** ' DTSBR417 00649 ABEND-MSG. DTSBR417 00650 DISPLAY '***'. DTSBR417 00651 DTSBR417 00652 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR417 00653 S999-EXIT. DTSBR417 00654 EXIT. DTSBR417 00655 DTSBR417