DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
584
Batch/DTSBR453.cob
Normal file
584
Batch/DTSBR453.cob
Normal file
@ -0,0 +1,584 @@
|
||||
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
|
||||
Reference in New Issue
Block a user