813 lines
64 KiB
COBOL
813 lines
64 KiB
COBOL
00001 IDENTIFICATION DIVISION. 01/31/06
|
|
00002 PROGRAM-ID. DTSBR421. DTSBR421
|
|
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV022
|
|
00004 DATE-WRITTEN. JANUARY 1995. DTSBR421
|
|
00005 DATE-COMPILED. DTSBR421
|
|
00006 SKIP3 DTSBR421
|
|
00007 ***** DTSBR421
|
|
00008 * DTSBR421
|
|
00009 * CALLING SEQUENCE: DTSBE420 CREATES DTSIR421 RECORDS. DTSBR421
|
|
00010 * DTSBD800 CALLS DTSBR421 WHICH PRODUCES DTSBR421
|
|
00011 * THE REPORT NOTICE. DTSBR421
|
|
00012 * DTSBR421
|
|
00013 * FUNCTION: FINAL DELINQUENT REPORT NOTICE. DTSBR421
|
|
00014 * DTSBR421
|
|
00015 * DTSBR421
|
|
00016 * MODIFICATION HISTORY: DTSBR421
|
|
00017 * DTSBR421
|
|
00018 * 01-19-95 INITIAL DEVELOPMENT DTSBR421
|
|
00019 * REFERENCE RFP #RAP AUTHOR OF CHANGE - EHH DTSBR421
|
|
00020 * DTSBR421
|
|
00021 * 11-28-97 RECOMPILED FOR MODIFICATIONS TO DTSIL119. DTSBR421
|
|
00022 * REFERENCE RFP #RAP AUTHOR OF CHANGE - EHH DTSBR421
|
|
00023 * DTSBR421
|
|
00024 * 05-11-00 RECOMPILED FOR MODIFICATIONS TO DTSIL119,AND IZ COPYBOODTSBR421
|
|
00025 * REFERENCE: DC DEVELOPMENT AUTHOR OF CHANGE - ZL1 DTSBR421
|
|
00026 * DTSBR421
|
|
00027 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR421
|
|
00028 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR421
|
|
00029 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR421
|
|
00030 * DTSBR421
|
|
00031 * DTSBR421
|
|
00032 * DESCRIPTION: DTSBR421
|
|
00033 * DTSBR421
|
|
00034 * THIS MODULE PRINTS A "FINAL DELINQUENT REPORT NOTICE". DTSBR421
|
|
00035 * DTSBR421
|
|
00036 * DTSBR421
|
|
00037 * RECORDS READ: DTSBR421
|
|
00038 * DTSBR421
|
|
00039 * NONE. DTSBR421
|
|
00040 * DTSBR421
|
|
00041 * DTSBR421
|
|
00042 * PRINTED OUTPUTS: DTSBR421
|
|
00043 * DTSBR421
|
|
00044 * 421R1 FINAL DELINQUENT REPORT NOTICE. DTSBR421
|
|
00045 * DTSBR421
|
|
00046 * DTSBR421
|
|
00047 * RECORDS WRITTEN: DTSBR421
|
|
00048 * DTSBR421
|
|
00049 * NONE. DTSBR421
|
|
00050 * DTSBR421
|
|
00051 * DTSBR421
|
|
00052 * MODULES CALLED: DTSBR421
|
|
00053 * DTSBR421
|
|
00054 * DTSBU002 DATE ALPHA CONVERSION MODULE. DTSBR421
|
|
00055 * DTSBU004 YEAR/QUARTER CONVERSION. DTSBR421
|
|
00056 * DTSBU008 DISPLAY QUARTER IN TEXT FORMAT. DTSBR421
|
|
00057 * DTSBU056 RATE DISPLAY. DTSBR421
|
|
00058 * DTSBU062 FIELD REP ID EDIT/DESCRIPTION. DTSBR421
|
|
00059 * DTSBU071 NAME EDIT/CONVERSION. DTSBR421
|
|
00060 * DTSBU090 PARAGRAPH FORMATTING MODULE. DTSBR421
|
|
00061 * DTSBU119 AGENCY FACTS. DTSBR421
|
|
00062 * DTSBR421
|
|
00063 * DTSBR421
|
|
00064 ***** DTSBR421
|
|
00065 EJECT DTSBR421
|
|
00066 ENVIRONMENT DIVISION. DTSBR421
|
|
00067 DTSBR421
|
|
00068 CONFIGURATION SECTION. DTSBR421
|
|
00069 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR421
|
|
00070 DTSBR421
|
|
00071 INPUT-OUTPUT SECTION. DTSBR421
|
|
00072 DTSBR421
|
|
00073 FILE-CONTROL. DTSBR421
|
|
00074 SELECT PRT-FILE ASSIGN TO RPT421R1. DTSBR421
|
|
00075 DTSBR421
|
|
00076 DATA DIVISION. DTSBR421
|
|
00077 DTSBR421
|
|
00078 FILE SECTION. DTSBR421
|
|
00079 DTSBR421
|
|
00080 FD PRT-FILE DTSBR421
|
|
00081 RECORDING MODE IS F DTSBR421
|
|
00082 BLOCK CONTAINS 0 RECORDS DTSBR421
|
|
00083 LABEL RECORDS ARE OMITTED. DTSBR421
|
|
00084 DTSBR421
|
|
00085 01 XEROX-REPORT. DTSBR421
|
|
00086 05 FILLER PIC X(1). DTSBR421
|
|
00087 05 XEROX-RPT PIC X(132). DTSBR421
|
|
00088 DTSBR421
|
|
00089 EJECT DTSBR421
|
|
00090 WORKING-STORAGE SECTION. DTSBR421
|
|
000905 77 PAN-VALET PICTURE X(24) VALUE '022DTSBR421 01/31/06'. DTSBR421
|
|
00091 DTSBR421
|
|
00092 01 WRK-AREA. DTSBR421
|
|
00093 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +421.DTSBR421
|
|
00094 DTSBR421
|
|
00095 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR421
|
|
00096 DTSBR421
|
|
00097 05 ABEND-MSG PIC X(60). DTSBR421
|
|
00098 DTSBR421
|
|
00099 05 HOLD-FLD-REP-ID PIC X(02). DTSBR421
|
|
00100 88 HOLD-FLD-REP-OUT-OF-STATE-88 VALUE '98' '99'. DTSBR421
|
|
00101 DTSBR421
|
|
00102 05 WS-UNIT-TEL. DTSBR421
|
|
00103 10 WS-UNIT-AREA-CD PIC X(03). DTSBR421
|
|
00104 10 WS-UNIT-PREFIX PIC X(03). DTSBR421
|
|
00105 10 WS-UNIT-SUFFIX PIC X(04). DTSBR421
|
|
00106 10 WS-UNIT-EXTENSION PIC X(04). DTSBR421
|
|
00107 DTSBR421
|
|
00108 05 WS-UNIT-FAX. DTSBR421
|
|
00109 10 WS-UNIT-FAX-AREA-CD PIC X(03). DTSBR421
|
|
00110 10 WS-UNIT-FAX-PREFIX PIC X(03). DTSBR421
|
|
00111 10 WS-UNIT-FAX-SUFFIX PIC X(04). DTSBR421
|
|
00112 10 WS-UNIT-FAX-EXTENSION PIC X(04). DTSBR421
|
|
00113 DTSBR421
|
|
00114 05 DISP-UNIT-TEL. DTSBR421
|
|
00115 10 DISP-UNIT-TEL-FILLER-1 PIC X(01). DTSBR421
|
|
00116 10 DISP-UNIT-TEL-AREA-CD PIC X(03). DTSBR421
|
|
00117 10 DISP-UNIT-TEL-FILLER-2 PIC X(02). DTSBR421
|
|
00118 10 DISP-UNIT-TEL-PREFIX PIC X(03). DTSBR421
|
|
00119 10 DISP-UNIT-TEL-FILLER-3 PIC X(01). DTSBR421
|
|
00120 10 DISP-UNIT-TEL-SUFFIX PIC X(04). DTSBR421
|
|
00121 DTSBR421
|
|
00122 05 DISP-UNIT-FAX. DTSBR421
|
|
00123 10 DISP-UNIT-FAX-FILLER-1 PIC X(01). DTSBR421
|
|
00124 10 DISP-UNIT-FAX-AREA-CD PIC X(03). DTSBR421
|
|
00125 10 DISP-UNIT-FAX-FILLER-2 PIC X(02). DTSBR421
|
|
00126 10 DISP-UNIT-FAX-PREFIX PIC X(03). DTSBR421
|
|
00127 10 DISP-UNIT-FAX-FILLER-3 PIC X(01). DTSBR421
|
|
00128 10 DISP-UNIT-FAX-SUFFIX PIC X(04). DTSBR421
|
|
00129 DTSBR421
|
|
00130 05 DISP-FLD-TEL. DTSBR421
|
|
00131 10 DISP-FLD-TEL-FILLER-1 PIC X(01). DTSBR421
|
|
00132 10 DISP-FLD-TEL-AREA-CD PIC X(03). DTSBR421
|
|
00133 10 DISP-FLD-TEL-FILLER-2 PIC X(02). DTSBR421
|
|
00134 10 DISP-FLD-TEL-PREFIX PIC X(03). DTSBR421
|
|
00135 10 DISP-FLD-TEL-FILLER-3 PIC X(01). DTSBR421
|
|
00136 10 DISP-FLD-TEL-SUFFIX PIC X(04). DTSBR421
|
|
00137 DTSBR421
|
|
00138 05 WS-START-POS PIC S9(04) COMP. DTSBR421
|
|
00139 DTSBR421
|
|
00140 05 WS-LONG-TEXT-MAIL-DATE PIC X(18). DTSBR421
|
|
00141 DTSBR421
|
|
00142 05 WS-LONG-TEXT-FIRST-DEL-DATE PIC X(18). DTSBR421
|
|
00143 DTSBR421
|
|
00144 05 WS-LONG-TEXT-THREAT-DATE PIC X(18). DTSBR421
|
|
00145 DTSBR421
|
|
00146 05 WS-UC-SHORT-MONTHS. DTSBR421
|
|
00147 10 WS-UC-SHORT-MONTH-1 PIC X(03). DTSBR421
|
|
00148 10 WS-UC-SHORT-MONTH-2 PIC X(03). DTSBR421
|
|
00149 10 WS-UC-SHORT-MONTH-3 PIC X(03). DTSBR421
|
|
00150 DTSBR421
|
|
00151 05 WS-SHORT-YEAR PIC X(02). DTSBR421
|
|
00152 DTSBR421
|
|
00153 05 WS-LONG-YEAR PIC X(04). DTSBR421
|
|
00154 DTSBR421
|
|
00155 05 WS-LONG-TEXT-DUE-DATE PIC X(18). DTSBR421
|
|
00156 DTSBR421
|
|
00157 05 WS-TEXT-LINE-5 PIC X(70). DTSBR421
|
|
00158 DTSBR421
|
|
00159 05 DETAIL-5-LINE-CNT PIC S9(04) COMP. DTSBR421
|
|
00160 DTSBR421
|
|
00161 05 DETAIL-5-BLANK-LINE-CNT PIC S9(04) COMP. DTSBR421
|
|
00162 DTSBR421
|
|
00163 05 WS-YRQ-SUB PIC S9(04) COMP. DTSBR421
|
|
00164 DTSBR421
|
|
00165 05 WS-AMT-CTR PIC S9(04) COMP. DTSBR421
|
|
00166 05 WS-AMT PIC X(14). DTSBR421
|
|
00167 05 WS-AMT-EDIT REDEFINES WS-AMT DTSBR421
|
|
00168 PIC ZZZ,ZZZ,ZZ9.99. DTSBR421
|
|
00169 05 WS-ADDR-FMT-AREA PIC X(200). DTSBR421
|
|
00170 05 WS-ADDR-FMT-AREA-X REDEFINES WS-ADDR-FMT-AREA. DTSBR421
|
|
00171 10 ADDR-FMT-LINE OCCURS 5 TIMES PIC X(40). DTSBR421
|
|
00172 DTSBR421
|
|
00173 01 VSCA-LINE. DTSBR421
|
|
00174 05 VSCA-DATA PIC X(133) VALUE SPACES. DTSBR421
|
|
00175 DTSBR421
|
|
00176 EJECT DTSBR421
|
|
00177 01 MIXED-CASE-LITERALS. DTSBR421
|
|
00178 ++INCLUDE DTSIZ42A DTSBR421
|
|
00179 EJECT DTSBR421
|
|
00180 01 L001-LINK-AREA. DTSBR421
|
|
00181 ++INCLUDE DTSIL001 DTSBR421
|
|
00182 EJECT DTSBR421
|
|
00183 01 L002-LINK-AREA. DTSBR421
|
|
00184 ++INCLUDE DTSIL002 DTSBR421
|
|
00185 EJECT DTSBR421
|
|
00186 01 L004-LINK-AREA. DTSBR421
|
|
00187 ++INCLUDE DTSIL004 DTSBR421
|
|
00188 EJECT DTSBR421
|
|
00189 01 L008-LINK-AREA. DTSBR421
|
|
00190 ++INCLUDE DTSIL008 DTSBR421
|
|
00191 EJECT DTSBR421
|
|
00192 01 L056-LINK-AREA. DTSBR421
|
|
00193 ++INCLUDE DTSIL056 DTSBR421
|
|
00194 EJECT DTSBR421
|
|
00195 01 L062-LINK-AREA. DTSBR421
|
|
00196 ++INCLUDE DTSIL062 DTSBR421
|
|
00197 EJECT DTSBR421
|
|
00198 01 L071-LINK-AREA. DTSBR421
|
|
00199 ++INCLUDE DTSIL071 DTSBR421
|
|
00200 EJECT DTSBR421
|
|
00201 01 L090-LINK-AREA. DTSBR421
|
|
00202 ++INCLUDE DTSIL090 DTSBR421
|
|
00203 EJECT DTSBR421
|
|
00204 01 L119-LINK-AREA. DTSBR421
|
|
00205 ++INCLUDE DTSIL119 DTSBR421
|
|
00206 EJECT DTSBR421
|
|
00207 *REPORT SECTION. DTSBR421
|
|
00208 ++INCLUDE DTSXL421 DTSBR421
|
|
00209 SKIP3 DTSBR421
|
|
00210 ++INCLUDE DTSIZ42B DTSBR421
|
|
00211 EJECT DTSBR421
|
|
00212 LINKAGE SECTION. DTSBR421
|
|
00213 SKIP3 DTSBR421
|
|
00214 01 LRCM-LINK-AREA. DTSBR421
|
|
00215 ++INCLUDE DTSILRCM DTSBR421
|
|
00216 EJECT DTSBR421
|
|
00217 01 R421-REC. DTSBR421
|
|
00218 ++INCLUDE DTSIR421 DTSBR421
|
|
00219 EJECT DTSBR421
|
|
00220 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR421
|
|
00221 R421-REC. DTSBR421
|
|
00222 DTSBR421
|
|
00223 IF FIRST-TIME-IND = 'Y' DTSBR421
|
|
00224 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR421
|
|
00225 MOVE 'N' TO FIRST-TIME-IND. DTSBR421
|
|
00226 DTSBR421
|
|
00227 IF LRCM-EOR-88 DTSBR421
|
|
00228 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR421
|
|
00229 ELSE DTSBR421
|
|
00230 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR421
|
|
00231 DTSBR421
|
|
00232 GOBACK. DTSBR421
|
|
00233 EJECT DTSBR421
|
|
00234 I1000-INITIATE. DTSBR421
|
|
00235 DTSBR421
|
|
00236 OPEN OUTPUT PRT-FILE. DTSBR421
|
|
00237 MOVE SPACES TO XEROX-REPORT. DTSBR421
|
|
00238 DTSBR421
|
|
00239 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR421
|
|
00240 AFTER ADVANCING TOP-OF-PAGE. DTSBR421
|
|
00241 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 11. DTSBR421
|
|
00242 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE. DTSBR421
|
|
00243 DTSBR421
|
|
00244 SET L119-REQ-COLLECTIONS-88 TO TRUE. DTSBR421
|
|
00245 PERFORM S119-REQ-MIXED THRU S119-EXIT. DTSBR421
|
|
00246 MOVE L119-UNIT-VOICE TO WS-UNIT-TEL. DTSBR421
|
|
00247 MOVE L119-UNIT-FAX TO WS-UNIT-FAX. DTSBR421
|
|
00248 MOVE HIGH-VALUES TO HOLD-FLD-REP-ID. DTSBR421
|
|
00249 I1000-EXIT. DTSBR421
|
|
00250 EXIT. DTSBR421
|
|
00251 EJECT DTSBR421
|
|
00252 P1000-PROCESS. DTSBR421
|
|
00253 MOVE '(' TO DISP-UNIT-TEL-FILLER-1. DTSBR421
|
|
00254 MOVE WS-UNIT-AREA-CD TO DISP-UNIT-TEL-AREA-CD. DTSBR421
|
|
00255 MOVE ') ' TO DISP-UNIT-TEL-FILLER-2. DTSBR421
|
|
00256 MOVE WS-UNIT-PREFIX TO DISP-UNIT-TEL-PREFIX. DTSBR421
|
|
00257 MOVE '-' TO DISP-UNIT-TEL-FILLER-3. DTSBR421
|
|
00258 MOVE WS-UNIT-SUFFIX TO DISP-UNIT-TEL-SUFFIX. DTSBR421
|
|
00259 DTSBR421
|
|
00260 MOVE R421-MAIL-DATE TO L002-DATE. DTSBR421
|
|
00261 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR421
|
|
00262 DTSBR421
|
|
00263 COMPUTE WS-START-POS = (18 - L002-LONG-TEXT-CNT) / 2. DTSBR421
|
|
00264 DTSBR421
|
|
00265 ADD +1 TO WS-START-POS. DTSBR421
|
|
00266 DTSBR421
|
|
00267 IF (WS-START-POS > +0) DTSBR421
|
|
00268 AND DTSBR421
|
|
00269 (WS-START-POS < +18) DTSBR421
|
|
00270 MOVE SPACES TO WS-LONG-TEXT-MAIL-DATE DTSBR421
|
|
00271 MOVE L002-LONG-TEXT-AREA DTSBR421
|
|
00272 TO WS-LONG-TEXT-MAIL-DATE (WS-START-POS:) DTSBR421
|
|
00273 ELSE DTSBR421
|
|
00274 MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-MAIL-DATE. DTSBR421
|
|
00275 DTSBR421
|
|
00276 MOVE R421-TOTAL-RATE TO L056-RATE. DTSBR421
|
|
00277 PERFORM S056-DISP1-LEFT-PCT THRU S056-EXIT. DTSBR421
|
|
00278 MOVE L056-DISP-RATE TO WS-DISP-RATE. DTSBR421
|
|
00279 DTSBR421
|
|
00280 MOVE R421-YRQ TO L008-YRQ. DTSBR421
|
|
00281 PERFORM S008-UPPER-CASE THRU S008-EXIT. DTSBR421
|
|
00282 MOVE L008-SHORT-MONTHS TO WS-UC-SHORT-MONTHS. DTSBR421
|
|
00283 DTSBR421
|
|
00284 MOVE L008-YEAR (3:2) TO WS-SHORT-YEAR. DTSBR421
|
|
00285 DTSBR421
|
|
00286 MOVE L008-YEAR TO WS-LONG-YEAR. DTSBR421
|
|
00287 DTSBR421
|
|
00288 MOVE R421-DUE-DATE TO L001-FED-8-DATE-9. DTSBR421
|
|
00289 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBR421
|
|
00290 MOVE L001-SLASH-DATE TO WS-SLASH-DUE-DATE. DTSBR421
|
|
00291 DTSBR421
|
|
00292 MOVE R421-DUE-DATE TO L002-DATE. DTSBR421
|
|
00293 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR421
|
|
00294 MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-DUE-DATE. DTSBR421
|
|
00295 DTSBR421
|
|
00296 PERFORM P4000-PRINT-HEADER THRU P4000-EXIT. DTSBR421
|
|
00297 DTSBR421
|
|
00298 MOVE R421-AS-OF-DATE TO L002-DATE. DTSBR421
|
|
00299 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR421
|
|
00300 MOVE L002-SHORT-TEXT-AREA DTSBR421
|
|
00301 TO WS-SHORT-TEXT-AS-OF-DATE. DTSBR421
|
|
00302 DTSBR421
|
|
00303 MOVE +70 TO L090-DESIRED-LINE-LIMIT. DTSBR421
|
|
00304 MOVE +9 TO L090-PHRASE-CNT. DTSBR421
|
|
00305 DTSBR421
|
|
00306 MOVE MC-LIT-WAGE TO L090-PHRASE (1). DTSBR421
|
|
00307 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (1). DTSBR421
|
|
00308 DTSBR421
|
|
00309 MOVE MC-LIT-OF TO L090-PHRASE (2). DTSBR421
|
|
00310 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR421
|
|
00311 DTSBR421
|
|
00312 MOVE SPACES TO L090-PHRASE (3). DTSBR421
|
|
00313 STRING DTSBR421
|
|
00314 WS-UC-SHORT-MONTH-1 DELIMITED BY SIZE DTSBR421
|
|
00315 ', ' DELIMITED BY SIZE DTSBR421
|
|
00316 WS-UC-SHORT-MONTH-2 DELIMITED BY SIZE DTSBR421
|
|
00317 ' ' DELIMITED BY SIZE DTSBR421
|
|
00318 MC-LIT-AND DELIMITED BY ' ' DTSBR421
|
|
00319 ' ' DELIMITED BY SIZE DTSBR421
|
|
00320 WS-UC-SHORT-MONTH-3 DELIMITED BY SIZE DTSBR421
|
|
00321 ' ' DELIMITED BY SIZE DTSBR421
|
|
00322 WS-LONG-YEAR DELIMITED BY SIZE DTSBR421
|
|
00323 '.' DELIMITED BY SIZE DTSBR421
|
|
00324 INTO DTSBR421
|
|
00325 L090-PHRASE (3). DTSBR421
|
|
00326 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (3). DTSBR421
|
|
00327 DTSBR421
|
|
00328 MOVE MC-LIT-THIS-REPORT-WAS TO L090-PHRASE (4). DTSBR421
|
|
00329 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (4). DTSBR421
|
|
00330 DTSBR421
|
|
00331 MOVE SPACES TO L090-PHRASE (5). DTSBR421
|
|
00332 STRING WS-LONG-TEXT-DUE-DATE DELIMITED BY ' ' DTSBR421
|
|
00333 '.' DELIMITED BY SIZE DTSBR421
|
|
00334 INTO DTSBR421
|
|
00335 L090-PHRASE (5). DTSBR421
|
|
00336 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (5). DTSBR421
|
|
00337 DTSBR421
|
|
00338 MOVE MC-LIT-WE-RECEIVED-NO TO L090-PHRASE (6). DTSBR421
|
|
00339 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (6). DTSBR421
|
|
00340 DTSBR421
|
|
00341 MOVE MC-LIT-MAILED-ON TO L090-PHRASE (7). DTSBR421
|
|
00342 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (7). DTSBR421
|
|
00343 DTSBR421
|
|
00344 MOVE R421-UC30-FIRST-DEL-MAIL-DATE TO L002-DATE. DTSBR421
|
|
00345 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR421
|
|
00346 MOVE SPACE TO L090-PHRASE (8). DTSBR421
|
|
00347 STRING DTSBR421
|
|
00348 L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR421
|
|
00349 ',' DELIMITED BY SIZE DTSBR421
|
|
00350 INTO DTSBR421
|
|
00351 L090-PHRASE (8). DTSBR421
|
|
00352 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (8). DTSBR421
|
|
00353 DTSBR421
|
|
00354 MOVE MC-LIT-MAILED-TO-YOUR TO L090-PHRASE (9). DTSBR421
|
|
00355 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (9). DTSBR421
|
|
00356 DTSBR421
|
|
00357 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR421
|
|
00358 DTSBR421
|
|
00359 IF (L090-UNSUCCESSFUL-88) DTSBR421
|
|
00360 OR DTSBR421
|
|
00361 (L090-PARAGRAPH-LINE-CNT > +4) DTSBR421
|
|
00362 MOVE 'LOGIC ERROR P1000-1' TO ABEND-MSG DTSBR421
|
|
00363 PERFORM S999-ABEND THRU S999-EXIT. DTSBR421
|
|
00364 DTSBR421
|
|
00365 PERFORM P5000-PRINT-DETAIL-1 THRU P5000-EXIT. DTSBR421
|
|
00366 DTSBR421
|
|
00367 MOVE +70 TO L090-DESIRED-LINE-LIMIT. DTSBR421
|
|
00368 MOVE +7 TO L090-PHRASE-CNT. DTSBR421
|
|
00369 DTSBR421
|
|
00370 MOVE MC-LIT-BY-5 TO L090-PHRASE (1). DTSBR421
|
|
00371 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1). DTSBR421
|
|
00372 DTSBR421
|
|
00373 MOVE MC-LIT-BY-PM TO L090-PHRASE (2). DTSBR421
|
|
00374 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2). DTSBR421
|
|
00375 DTSBR421
|
|
00376 MOVE R421-FINAL-ACTION-DATE TO L002-DATE. DTSBR421
|
|
00377 PERFORM S002-MIXED-CASE THRU S002-EXIT. DTSBR421
|
|
00378 MOVE SPACE TO L090-PHRASE (3). DTSBR421
|
|
00379 STRING L002-LONG-TEXT-AREA DELIMITED BY ' ' DTSBR421
|
|
00380 ',' DELIMITED BY SIZE DTSBR421
|
|
00381 INTO DTSBR421
|
|
00382 L090-PHRASE (3). DTSBR421
|
|
00383 DTSBR421
|
|
00384 MOVE MC-LIT-A-MISSING-QTRS1 TO L090-PHRASE (4). DTSBR421
|
|
00385 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (4). DTSBR421
|
|
00386 DTSBR421
|
|
00387 MOVE MC-LIT-A-MISSING-QTRS2 TO L090-PHRASE (5). DTSBR421
|
|
00388 MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (5). DTSBR421
|
|
00389 DTSBR421
|
|
00390 MOVE MC-LIT-TAX-LIEN TO L090-PHRASE (6). DTSBR421
|
|
00391 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (6). DTSBR421
|
|
00392 DTSBR421
|
|
00393 MOVE MC-LIT-AMOUNT TO L090-PHRASE (7). DTSBR421
|
|
00394 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (7). DTSBR421
|
|
00395 DTSBR421
|
|
00396 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR421
|
|
00397 DTSBR421
|
|
00398 DISPLAY ' LCNT ' L090-PARAGRAPH-LINE-CNT DTSBR421
|
|
00399 IF (L090-UNSUCCESSFUL-88) DTSBR421
|
|
00400 OR DTSBR421
|
|
00401 (L090-PARAGRAPH-LINE-CNT NOT = +3) DTSBR421
|
|
00402 MOVE 'LOGIC ERROR P1000-2' TO ABEND-MSG DTSBR421
|
|
00403 PERFORM S999-ABEND THRU S999-EXIT. DTSBR421
|
|
00404 DTSBR421
|
|
00405 PERFORM P6000-PRINT-DETAIL-2 THRU P6000-EXIT. DTSBR421
|
|
00406 DTSBR421
|
|
00407 IF R421-FIELD-REP-ID = HOLD-FLD-REP-ID DTSBR421
|
|
00408 NEXT SENTENCE DTSBR421
|
|
00409 ELSE DTSBR421
|
|
00410 MOVE R421-FIELD-REP-ID TO HOLD-FLD-REP-ID DTSBR421
|
|
00411 L062-FLD-REP-ID DTSBR421
|
|
00412 IF L062-FIELD-DESK-88 DTSBR421
|
|
00413 SET L062-DEFAULT-FLD-REP-88 TO TRUE DTSBR421
|
|
00414 END-IF DTSBR421
|
|
00415 PERFORM S062-FLD-REP-ID THRU S062-EXIT DTSBR421
|
|
00416 IF L062-NOT-VALID DTSBR421
|
|
00417 SET L062-DEFAULT-FLD-REP-88 TO TRUE DTSBR421
|
|
00418 PERFORM S062-FLD-REP-ID THRU S062-EXIT DTSBR421
|
|
00419 END-IF DTSBR421
|
|
00420 IF L062-NOT-VALID DTSBR421
|
|
00421 MOVE 'LOGIC ERROR P1000-4' TO ABEND-MSG DTSBR421
|
|
00422 PERFORM S999-ABEND THRU S999-EXIT DTSBR421
|
|
00423 END-IF. DTSBR421
|
|
00424 DTSBR421
|
|
00425 MOVE L062-NAME TO L071-NAM. DTSBR421
|
|
00426 PERFORM S071-FROM-LAST-NAME-FIRST THRU S071-EXIT. DTSBR421
|
|
00427 DTSBR421
|
|
00428 MOVE +70 TO L090-DESIRED-LINE-LIMIT. DTSBR421
|
|
00429 MOVE +0 TO L090-PHRASE-CNT. DTSBR421
|
|
00430 DTSBR421
|
|
00431 ADD +1 TO L090-PHRASE-CNT. DTSBR421
|
|
00432 MOVE MC-LIT-SERVICES TO L090-PHRASE (L090-PHRASE-CNT). DTSBR421
|
|
00433 MOVE SPACE DTSBR421
|
|
00434 TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT). DTSBR421
|
|
00435 DTSBR421
|
|
00436 ADD +1 TO L090-PHRASE-CNT. DTSBR421
|
|
00437 MOVE DISP-UNIT-TEL TO L090-PHRASE (L090-PHRASE-CNT). DTSBR421
|
|
00438 MOVE SPACE DTSBR421
|
|
00439 TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT). DTSBR421
|
|
00440 DTSBR421
|
|
00441 ADD +1 TO L090-PHRASE-CNT. DTSBR421
|
|
00442 MOVE SPACES TO L090-PHRASE (L090-PHRASE-CNT). DTSBR421
|
|
00443 STRING DTSBR421
|
|
00444 MC-LIT-FIELD-REP DELIMITED BY ' ' DTSBR421
|
|
00445 ' ' DELIMITED BY SIZE DTSBR421
|
|
00446 L071-NAM DELIMITED BY ' ' DTSBR421
|
|
00447 ',' DELIMITED BY SIZE DTSBR421
|
|
00448 INTO DTSBR421
|
|
00449 L090-PHRASE (L090-PHRASE-CNT). DTSBR421
|
|
00450 MOVE SPACE DTSBR421
|
|
00451 TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT). DTSBR421
|
|
00452 DTSBR421
|
|
00453 ADD +1 TO L090-PHRASE-CNT. DTSBR421
|
|
00454 MOVE MC-LIT-AT TO L090-PHRASE (L090-PHRASE-CNT). DTSBR421
|
|
00455 MOVE SPACE DTSBR421
|
|
00456 TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT). DTSBR421
|
|
00457 DTSBR421
|
|
00458 MOVE '(' TO DISP-FLD-TEL-FILLER-1. DTSBR421
|
|
00459 MOVE L062-VOICE-1-AREA-CD TO DISP-FLD-TEL-AREA-CD. DTSBR421
|
|
00460 MOVE ')\' TO DISP-FLD-TEL-FILLER-2. DTSBR421
|
|
00461 MOVE L062-VOICE-1-PREFIX TO DISP-FLD-TEL-PREFIX. DTSBR421
|
|
00462 MOVE '-' TO DISP-FLD-TEL-FILLER-3. DTSBR421
|
|
00463 MOVE L062-VOICE-1-SUFFIX TO DISP-FLD-TEL-SUFFIX. DTSBR421
|
|
00464 DTSBR421
|
|
00465 ADD +1 TO L090-PHRASE-CNT. DTSBR421
|
|
00466 MOVE SPACE TO L090-PHRASE (L090-PHRASE-CNT). DTSBR421
|
|
00467 STRING DTSBR421
|
|
00468 DISP-FLD-TEL DELIMITED BY SIZE DTSBR421
|
|
00469 '.' DELIMITED BY SIZE DTSBR421
|
|
00470 INTO DTSBR421
|
|
00471 L090-PHRASE (L090-PHRASE-CNT). DTSBR421
|
|
00472 MOVE SPACE DTSBR421
|
|
00473 TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT). DTSBR421
|
|
00474 DTSBR421
|
|
00475 ADD +1 TO L090-PHRASE-CNT. DTSBR421
|
|
00476 MOVE MC-LIT-TELEPHONE-NUMBER-FAX DTSBR421
|
|
00477 TO L090-PHRASE (L090-PHRASE-CNT). DTSBR421
|
|
00478 MOVE SPACE DTSBR421
|
|
00479 TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT). DTSBR421
|
|
00480 DTSBR421
|
|
00481 MOVE '(' TO DISP-UNIT-FAX-FILLER-1. DTSBR421
|
|
00482 MOVE WS-UNIT-FAX-AREA-CD TO DISP-UNIT-FAX-AREA-CD. DTSBR421
|
|
00483 MOVE ') ' TO DISP-UNIT-FAX-FILLER-2. DTSBR421
|
|
00484 MOVE WS-UNIT-FAX-PREFIX TO DISP-UNIT-FAX-PREFIX. DTSBR421
|
|
00485 MOVE '-' TO DISP-UNIT-FAX-FILLER-3. DTSBR421
|
|
00486 MOVE WS-UNIT-FAX-SUFFIX TO DISP-UNIT-FAX-SUFFIX. DTSBR421
|
|
00487 DTSBR421
|
|
00488 ADD +1 TO L090-PHRASE-CNT. DTSBR421
|
|
00489 MOVE SPACE TO L090-PHRASE (L090-PHRASE-CNT). DTSBR421
|
|
00490 STRING DTSBR421
|
|
00491 DISP-UNIT-FAX DELIMITED BY SIZE DTSBR421
|
|
00492 '.' DELIMITED BY SIZE DTSBR421
|
|
00493 INTO DTSBR421
|
|
00494 L090-PHRASE (L090-PHRASE-CNT). DTSBR421
|
|
00495 MOVE SPACE DTSBR421
|
|
00496 TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT). DTSBR421
|
|
00497 DTSBR421
|
|
00498 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR421
|
|
00499 DTSBR421
|
|
00500 IF (L090-UNSUCCESSFUL-88) DTSBR421
|
|
00501 OR DTSBR421
|
|
00502 (L090-PARAGRAPH-LINE-CNT > +4) DTSBR421
|
|
00503 OR DTSBR421
|
|
00504 (L090-PARAGRAPH-LINE-CNT < +1) DTSBR421
|
|
00505 MOVE 'LOGIC ERROR P1000-5' TO ABEND-MSG DTSBR421
|
|
00506 PERFORM S999-ABEND THRU S999-EXIT. DTSBR421
|
|
00507 DTSBR421
|
|
00508 IF L090-PARAGRAPH-LINE-CNT < +4 DTSBR421
|
|
00509 MOVE SPACES TO L090-PARAGRAPH-LINE (4). DTSBR421
|
|
00510 DTSBR421
|
|
00511 IF L090-PARAGRAPH-LINE-CNT < +3 DTSBR421
|
|
00512 MOVE SPACES TO L090-PARAGRAPH-LINE (3). DTSBR421
|
|
00513 DTSBR421
|
|
00514 IF L090-PARAGRAPH-LINE-CNT < +2 DTSBR421
|
|
00515 MOVE SPACES TO L090-PARAGRAPH-LINE (2). DTSBR421
|
|
00516 DTSBR421
|
|
00517 PERFORM P7000-PRINT-DETAIL-4A THRU P7000-EXIT. DTSBR421
|
|
00518 DTSBR421
|
|
00519 MOVE +0 TO DETAIL-5-LINE-CNT. DTSBR421
|
|
00520 DTSBR421
|
|
00521 IF R421-ADDITIONAL-RPT-CNT > +0 DTSBR421
|
|
00522 PERFORM P1100-ADDITIONAL-RPTS THRU P1100-EXIT. DTSBR421
|
|
00523 DTSBR421
|
|
00524 COMPUTE DETAIL-5-BLANK-LINE-CNT = 4 - DETAIL-5-LINE-CNT. DTSBR421
|
|
00525 DTSBR421
|
|
00526 IF DETAIL-5-BLANK-LINE-CNT > +0 DTSBR421
|
|
00527 MOVE SPACES TO WS-TEXT-LINE-5 DTSBR421
|
|
00528 PERFORM DTSBR421
|
|
00529 DETAIL-5-BLANK-LINE-CNT TIMES DTSBR421
|
|
00530 PERFORM P8000-PRINT-DETAIL-5A THRU P8000-EXIT DTSBR421
|
|
00531 END-PERFORM DTSBR421
|
|
00532 END-IF. DTSBR421
|
|
00533 DTSBR421
|
|
00534 DTSBR421
|
|
00535 PERFORM P2000-XEROX-ROUTINE THRU P2000-EXIT. DTSBR421
|
|
00536 P1000-EXIT. DTSBR421
|
|
00537 EXIT. DTSBR421
|
|
00538 EJECT DTSBR421
|
|
00539 P1100-ADDITIONAL-RPTS. DTSBR421
|
|
00540 MOVE +65 TO L090-DESIRED-LINE-LIMIT. DTSBR421
|
|
00541 DTSBR421
|
|
00542 MOVE ')\' TO DISP-UNIT-TEL-FILLER-2. DTSBR421
|
|
00543 MOVE +1 TO L090-PHRASE-CNT. DTSBR421
|
|
00544 MOVE SPACES TO L090-PHRASE (L090-PHRASE-CNT). DTSBR421
|
|
00545 STRING MC-LIT-PLEASE-CALL DELIMITED BY ' ' DTSBR421
|
|
00546 ' ' DELIMITED BY SIZE DTSBR421
|
|
00547 DISP-UNIT-TEL DELIMITED BY SIZE DTSBR421
|
|
00548 INTO L090-PHRASE (L090-PHRASE-CNT). DTSBR421
|
|
00549 MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT). DTSBR421
|
|
00550 DTSBR421
|
|
00551 ADD +1 TO L090-PHRASE-CNT. DTSBR421
|
|
00552 MOVE MC-LIT-FOR-INFORMATION DTSBR421
|
|
00553 TO L090-PHRASE (L090-PHRASE-CNT). DTSBR421
|
|
00554 MOVE SPACES DTSBR421
|
|
00555 TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT). DTSBR421
|
|
00556 DTSBR421
|
|
00557 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR421
|
|
00558 DTSBR421
|
|
00559 IF L090-UNSUCCESSFUL-88 DTSBR421
|
|
00560 MOVE 'LOGIC ERROR P1100-1' TO ABEND-MSG DTSBR421
|
|
00561 PERFORM S999-ABEND THRU S999-EXIT. DTSBR421
|
|
00562 DTSBR421
|
|
00563 PERFORM DTSBR421
|
|
00564 VARYING L090-PARAGRAPH-IDX FROM 1 BY 1 DTSBR421
|
|
00565 UNTIL L090-PARAGRAPH-IDX > L090-PARAGRAPH-LINE-CNT DTSBR421
|
|
00566 MOVE L090-PARAGRAPH-LINE (L090-PARAGRAPH-IDX) DTSBR421
|
|
00567 TO WS-TEXT-LINE-5 DTSBR421
|
|
00568 IF L090-PARAGRAPH-LINE-DUPE-88 (L090-PARAGRAPH-IDX) DTSBR421
|
|
00569 PERFORM P1110-DUPE-TWEAK THRU P1110-EXIT DTSBR421
|
|
00570 PERFORM P9000-PRINT-DETAIL-5B THRU P9000-EXIT DTSBR421
|
|
00571 ELSE DTSBR421
|
|
00572 PERFORM P8000-PRINT-DETAIL-5A THRU P8000-EXIT DTSBR421
|
|
00573 ADD +1 TO DETAIL-5-LINE-CNT DTSBR421
|
|
00574 END-IF DTSBR421
|
|
00575 END-PERFORM. DTSBR421
|
|
00576 DTSBR421
|
|
00577 IF (DETAIL-5-LINE-CNT < +1) DTSBR421
|
|
00578 OR DTSBR421
|
|
00579 (DETAIL-5-LINE-CNT > +4) DTSBR421
|
|
00580 DISPLAY 'P1100-2 ' DTSBR421
|
|
00581 DETAIL-5-LINE-CNT DTSBR421
|
|
00582 MOVE 'LOGIC ERROR P1100-2' TO ABEND-MSG DTSBR421
|
|
00583 PERFORM S999-ABEND THRU S999-EXIT. DTSBR421
|
|
00584 P1100-EXIT. DTSBR421
|
|
00585 EXIT. DTSBR421
|
|
00586 SKIP3 DTSBR421
|
|
00587 P1110-DUPE-TWEAK. DTSBR421
|
|
00588 IF DETAIL-5-LINE-CNT = +1 DTSBR421
|
|
00589 MOVE ALL '_' TO WS-TEXT-LINE-5 (1:33) DTSBR421
|
|
00590 MOVE SPACE TO WS-TEXT-LINE-5 (34:1). DTSBR421
|
|
00591 P1110-EXIT. DTSBR421
|
|
00592 EXIT. DTSBR421
|
|
00593 P2000-XEROX-ROUTINE. DTSBR421
|
|
00594 MOVE R421-FMT-ADDR TO WS-ADDR-FMT-AREA. DTSBR421
|
|
00595 PERFORM P3000-SELF-MAILER-RTN THRU P3000-EXIT. DTSBR421
|
|
00596 P2000-EXIT. DTSBR421
|
|
00597 EXIT. DTSBR421
|
|
00598 EJECT DTSBR421
|
|
00599 P3000-SELF-MAILER-RTN. DTSBR421
|
|
00600 MOVE R421-FMT-LINE (1) TO WS-ADDR-FMT-LINE-1. DTSBR421
|
|
00601 MOVE R421-FMT-LINE (2) TO WS-ADDR-FMT-LINE-2. DTSBR421
|
|
00602 MOVE R421-FMT-LINE (3) TO WS-ADDR-FMT-LINE-3. DTSBR421
|
|
00603 MOVE R421-FMT-LINE (4) TO WS-ADDR-FMT-LINE-4. DTSBR421
|
|
00604 MOVE R421-FMT-LINE (5) TO WS-ADDR-FMT-LINE-5. DTSBR421
|
|
00605 PERFORM P9500-PRINT-VSCA-ADDR THRU P9500-EXIT. DTSBR421
|
|
00606 P3000-EXIT. DTSBR421
|
|
00607 EXIT. DTSBR421
|
|
00608 EJECT DTSBR421
|
|
00609 P4000-PRINT-HEADER. DTSBR421
|
|
00610 MOVE WS-LONG-TEXT-MAIL-DATE TO HDR-LONG-TEXT-MAIL-DATE. DTSBR421
|
|
00611 MOVE WS-SHORT-YEAR TO HDR-SHORT-YEAR. DTSBR421
|
|
00612 MOVE WS-UC-SHORT-MONTH-1 TO HDR-UC-SHORT-MONTH-1. DTSBR421
|
|
00613 MOVE WS-UC-SHORT-MONTH-2 TO HDR-UC-SHORT-MONTH-2. DTSBR421
|
|
00614 MOVE WS-UC-SHORT-MONTH-3 TO HDR-UC-SHORT-MONTH-3. DTSBR421
|
|
00615 MOVE R421-FMT-LINE (1) TO HDR-FMT-LINE-1. DTSBR421
|
|
00616 MOVE R421-FMT-LINE (2) TO HDR-FMT-LINE-2. DTSBR421
|
|
00617 MOVE R421-FMT-LINE (3) TO HDR-FMT-LINE-3. DTSBR421
|
|
00618 MOVE R421-FMT-LINE (4) TO HDR-FMT-LINE-4. DTSBR421
|
|
00619 MOVE R421-FMT-LINE (5) TO HDR-FMT-LINE-5. DTSBR421
|
|
00620 MOVE R421-EMP-NO TO HDR-EMP-NO. DTSBR421
|
|
00621 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR421
|
|
00622 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 07 LINE. DTSBR421
|
|
00623 WRITE XEROX-REPORT FROM HDR-LINE-13 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00624 WRITE XEROX-REPORT FROM HDR-LINE-15 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00625 WRITE XEROX-REPORT FROM HDR-LINE-16 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00626 WRITE XEROX-REPORT FROM HDR-LINE-17 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00627 WRITE XEROX-REPORT FROM HDR-LINE-18 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00628 WRITE XEROX-REPORT FROM HDR-LINE-19 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00629 WRITE XEROX-REPORT FROM HDR-LINE-20 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00630 WRITE XEROX-REPORT FROM HDR-LINE-21 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00631 WRITE XEROX-REPORT FROM HDR-LINE-22 AFTER ADVANCING 3 LINE. DTSBR421
|
|
00632 WRITE XEROX-REPORT FROM HDR-LINE-23 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00633 DTSBR421
|
|
00634 P4000-EXIT. DTSBR421
|
|
00635 EXIT. DTSBR421
|
|
00636 DTSBR421
|
|
00637 P5000-PRINT-DETAIL-1. DTSBR421
|
|
00638 MOVE L090-PARAGRAPH-LINE (1) TO DTL1-PARAGRAPH-LINE-1. DTSBR421
|
|
00639 MOVE L090-PARAGRAPH-LINE (2) TO DTL1-PARAGRAPH-LINE-2. DTSBR421
|
|
00640 MOVE L090-PARAGRAPH-LINE (3) TO DTL1-PARAGRAPH-LINE-3. DTSBR421
|
|
00641 WRITE XEROX-REPORT FROM DTL1-LINE-4 AFTER ADVANCING 3 LINE. DTSBR421
|
|
00642 WRITE XEROX-REPORT FROM DTL1-LINE-5 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00643 WRITE XEROX-REPORT FROM DTL1-LINE-6 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00644 WRITE XEROX-REPORT FROM DTL1-LINE-7 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00645 DTSBR421
|
|
00646 P5000-EXIT. DTSBR421
|
|
00647 EXIT. DTSBR421
|
|
00648 DTSBR421
|
|
00649 P6000-PRINT-DETAIL-2. DTSBR421
|
|
00650 MOVE L090-PARAGRAPH-LINE (1) TO DTL2-PARAGRAPH-LINE-1. DTSBR421
|
|
00651 MOVE L090-PARAGRAPH-LINE (2) TO DTL2-PARAGRAPH-LINE-2. DTSBR421
|
|
00652 MOVE L090-PARAGRAPH-LINE (3) TO DTL2-PARAGRAPH-LINE-3. DTSBR421
|
|
00653 WRITE XEROX-REPORT FROM DTL2-LINE-3 AFTER ADVANCING 4 LINE. DTSBR421
|
|
00654 WRITE XEROX-REPORT FROM DTL2-LINE-4 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00655 WRITE XEROX-REPORT FROM DTL2-LINE-5 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00656 DTSBR421
|
|
00657 P6000-EXIT. DTSBR421
|
|
00658 EXIT. DTSBR421
|
|
00659 DTSBR421
|
|
00660 DTSBR421
|
|
00661 P7000-PRINT-DETAIL-4A. DTSBR421
|
|
00662 MOVE L090-PARAGRAPH-LINE (1) TO DTL4A-PARAGRAPH-LINE-1. DTSBR421
|
|
00663 MOVE L090-PARAGRAPH-LINE (2) TO DTL4A-PARAGRAPH-LINE-2. DTSBR421
|
|
00664 MOVE L090-PARAGRAPH-LINE (3) TO DTL4A-PARAGRAPH-LINE-3. DTSBR421
|
|
00665 WRITE XEROX-REPORT FROM DTL4A-LINE-2 AFTER ADVANCING 3 LINE. DTSBR421
|
|
00666 WRITE XEROX-REPORT FROM DTL4A-LINE-3 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00667 WRITE XEROX-REPORT FROM DTL4A-LINE-4 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00668 WRITE XEROX-REPORT FROM DTL4A-LINE-5 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00669 WRITE XEROX-REPORT FROM DTL4A-LINE-6 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00670 WRITE XEROX-REPORT FROM DTL4A-LINE-7 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00671 DTSBR421
|
|
00672 P7000-EXIT. DTSBR421
|
|
00673 EXIT. DTSBR421
|
|
00674 DTSBR421
|
|
00675 P8000-PRINT-DETAIL-5A. DTSBR421
|
|
00676 DTSBR421
|
|
00677 MOVE WS-TEXT-LINE-5 TO DTL5A-TEXT-LINE-5. DTSBR421
|
|
00678 WRITE XEROX-REPORT FROM DTL5A-LINE-1 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00679 DTSBR421
|
|
00680 P8000-EXIT. DTSBR421
|
|
00681 EXIT. DTSBR421
|
|
00682 DTSBR421
|
|
00683 P9000-PRINT-DETAIL-5B. DTSBR421
|
|
00684 DTSBR421
|
|
00685 MOVE WS-TEXT-LINE-5 TO DTL5B-TEXT-LINE-5. DTSBR421
|
|
00686 WRITE XEROX-REPORT FROM DTL5B-LINE-0 AFTER ADVANCING 0 LINE. DTSBR421
|
|
00687 DTSBR421
|
|
00688 P9000-EXIT. DTSBR421
|
|
00689 EXIT. DTSBR421
|
|
00690 DTSBR421
|
|
00691 P9500-PRINT-VSCA-ADDR. DTSBR421
|
|
00692 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR421
|
|
00693 AFTER ADVANCING TOP-OF-PAGE. DTSBR421
|
|
00694 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 14 LINE. DTSBR421
|
|
00695 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-17 DTSBR421
|
|
00696 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00697 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-18 DTSBR421
|
|
00698 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00699 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-19 DTSBR421
|
|
00700 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00701 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-20 DTSBR421
|
|
00702 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00703 WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-21 DTSBR421
|
|
00704 AFTER ADVANCING 1 LINE. DTSBR421
|
|
00705 DTSBR421
|
|
00706 P9500-EXIT. DTSBR421
|
|
00707 EXIT. DTSBR421
|
|
00708 DTSBR421
|
|
00709 T1000-TERMINATE. DTSBR421
|
|
00710 CLOSE PRT-FILE. DTSBR421
|
|
00711 T1000-EXIT. DTSBR421
|
|
00712 EXIT. DTSBR421
|
|
00713 EJECT DTSBR421
|
|
00714 S001-FROM-FED-8. DTSBR421
|
|
00715 SET L001-FROM-FED-8 TO TRUE. DTSBR421
|
|
00716 GO TO S001-DATE. DTSBR421
|
|
00717 DTSBR421
|
|
00718 S001-DATE. DTSBR421
|
|
00719 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR421
|
|
00720 S001-EXIT. DTSBR421
|
|
00721 EXIT. DTSBR421
|
|
00722 SKIP3 DTSBR421
|
|
00723 *S002-UPPER-CASE. DTSBR421
|
|
00724 ** SET L002-UPPER-CASE TO TRUE. DTSBR421
|
|
00725 ** GO TO S002-DATE-ALPHA. DTSBR421
|
|
00726 DTSBR421
|
|
00727 S002-MIXED-CASE. DTSBR421
|
|
00728 SET L002-MIXED-CASE TO TRUE. DTSBR421
|
|
00729 GO TO S002-DATE-ALPHA. DTSBR421
|
|
00730 DTSBR421
|
|
00731 S002-DATE-ALPHA. DTSBR421
|
|
00732 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR421
|
|
00733 S002-EXIT. DTSBR421
|
|
00734 EXIT. DTSBR421
|
|
00735 SKIP3 DTSBR421
|
|
00736 *S004-FROM-5. DTSBR421
|
|
00737 ** SET L004-FROM-5 TO TRUE. DTSBR421
|
|
00738 ** GO TO S004-QUARTER. DTSBR421
|
|
00739 ** DTSBR421
|
|
00740 *S004-QUARTER. DTSBR421
|
|
00741 ** CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR421
|
|
00742 *S004-EXIT. DTSBR421
|
|
00743 ** EXIT. DTSBR421
|
|
00744 SKIP3 DTSBR421
|
|
00745 S008-UPPER-CASE. DTSBR421
|
|
00746 SET L008-UPPER-CASE TO TRUE. DTSBR421
|
|
00747 GO TO S008-QUARTER-ALPHA. DTSBR421
|
|
00748 DTSBR421
|
|
00749 *S008-MIXED-CASE. DTSBR421
|
|
00750 ** SET L008-MIXED-CASE TO TRUE. DTSBR421
|
|
00751 ** GO TO S008-QUARTER-ALPHA. DTSBR421
|
|
00752 DTSBR421
|
|
00753 S008-QUARTER-ALPHA. DTSBR421
|
|
00754 CALL 'DTSBU008' USING L008-LINK-AREA. DTSBR421
|
|
00755 S008-EXIT. DTSBR421
|
|
00756 EXIT. DTSBR421
|
|
00757 SKIP3 DTSBR421
|
|
00758 S056-DISP1-LEFT-PCT. DTSBR421
|
|
00759 SET L056-DISP1-LEFT-PCT-88 TO TRUE. DTSBR421
|
|
00760 GO TO S056-RATE-DISPLAY. DTSBR421
|
|
00761 DTSBR421
|
|
00762 S056-RATE-DISPLAY. DTSBR421
|
|
00763 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR421
|
|
00764 S056-EXIT. DTSBR421
|
|
00765 EXIT. DTSBR421
|
|
00766 SKIP3 DTSBR421
|
|
00767 S062-FLD-REP-ID. DTSBR421
|
|
00768 CALL 'DTSBU062' USING L062-LINK-AREA. DTSBR421
|
|
00769 S062-EXIT. DTSBR421
|
|
00770 EXIT. DTSBR421
|
|
00771 SKIP3 DTSBR421
|
|
00772 S071-FROM-LAST-NAME-FIRST. DTSBR421
|
|
00773 SET L071-FROM-LAST-NAME-FIRST TO TRUE. DTSBR421
|
|
00774 GO TO S071-NAME-CONVERSION. DTSBR421
|
|
00775 DTSBR421
|
|
00776 S071-NAME-CONVERSION. DTSBR421
|
|
00777 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR421
|
|
00778 S071-EXIT. DTSBR421
|
|
00779 EXIT. DTSBR421
|
|
00780 SKIP3 DTSBR421
|
|
00781 S090-PARAGRAPH-FORMAT. DTSBR421
|
|
00782 MOVE +0 TO L090-INDENT. DTSBR421
|
|
00783 SET L090-SPECIAL-CHAR-STD-88 TO TRUE. DTSBR421
|
|
00784 DTSBR421
|
|
00785 CALL 'DTSBU090' USING L090-LINK-AREA. DTSBR421
|
|
00786 S090-EXIT. DTSBR421
|
|
00787 EXIT. DTSBR421
|
|
00788 SKIP3 DTSBR421
|
|
00789 *S119-REQ-CAPS. DTSBR421
|
|
00790 ** SET L119-REQ-CAPS-88 TO TRUE. DTSBR421
|
|
00791 ** GO TO S119-AGENCY-FACTS. DTSBR421
|
|
00792 DTSBR421
|
|
00793 S119-REQ-MIXED. DTSBR421
|
|
00794 SET L119-REQ-MIXED-88 TO TRUE. DTSBR421
|
|
00795 GO TO S119-AGENCY-FACTS. DTSBR421
|
|
00796 DTSBR421
|
|
00797 S119-AGENCY-FACTS. DTSBR421
|
|
00798 CALL 'DTSBU119' USING L119-LINK-AREA. DTSBR421
|
|
00799 S119-EXIT. DTSBR421
|
|
00800 EXIT. DTSBR421
|
|
00801 SKIP3 DTSBR421
|
|
00802 S999-ABEND. DTSBR421
|
|
00803 DISPLAY '***'. DTSBR421
|
|
00804 DISPLAY '*** ' DTSBR421
|
|
00805 ABEND-MSG. DTSBR421
|
|
00806 DISPLAY '***'. DTSBR421
|
|
00807 DTSBR421
|
|
00808 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR421
|
|
00809 S999-EXIT. DTSBR421
|
|
00810 EXIT. DTSBR421
|
|
00811 DTSBR421
|