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