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