585 lines
46 KiB
COBOL
585 lines
46 KiB
COBOL
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
|