00001 IDENTIFICATION DIVISION. 08/26/04 00002 PROGRAM-ID. DTSBR434. DTSBR434 00003 AUTHOR. TRW LV086 00004 DATE-WRITTEN. FEBRUARY 1999. DTSBR434 00005 DATE-COMPILED. DTSBR434 00006 DTSBR434 00007 ***** DTSBR434 00008 * DTSBR434 00009 * FUNCTION: DEFERRED PAYMENT CONTRACT DTSBR434 00010 * DTSBR434 00011 * DTSBR434 00012 * MODIFICATION HISTORY: DTSBR434 00013 * DTSBR434 00014 * 02-08-99 INITIAL DEVELOPMENT DTSBR434 00015 * REFERENCE RFP # AUTHOR OF CHANGE - DVS DTSBR434 00016 * DTSBR434 00017 * DTSBR434 00018 * 07-16-1999 PICKUP MODIFICATION DTSBR434 00019 * REFERENCE RFP #**** PROGRAMMER: DVS DTSBR434 00020 * DTSBR434 00021 * DTSBR434 00022 * 08-22-1999 modify to meet dutas lazer printing requirements DTSBR434 00023 * REFERENCE RFP #**** PROGRAMMER: zl1 DTSBR434 00024 * DTSBR434 00025 * YY-YY-YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR434 00026 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR434 00027 * REFERENCE RFP #**** PROGRAMMER: XXX DTSBR434 00028 * DTSBR434 00029 * DTSBR434 00030 * DESCRIPTION: DTSBR434 00031 * DTSBR434 00032 * THIS MODULE PRINTS A DEFERRED PAYMENT CONTRACT FOR DTSBR434 00033 * CORPORATION TYPE EMPLOYERS(R1) AND PARTNER TYPE DTSBR434 00034 * EMPLOYERS(R2). DTSBR434 00035 * DTSBR434 00036 * RECORDS READ: DTSBR434 00037 * DTSBR434 00038 * NONE. DTSBR434 00039 * DTSBR434 00040 * DTSBR434 00041 * PRINTED OUTPUTS: DTSBR434 00042 * DTSBR434 00043 * 434R1 CORPORATION DEFERRED PAYMENT CONTRACT DTSBR434 00044 * PARTNERSHIP DEFERRED PAYMENT CONTRACT DTSBR434 00045 * DTSBR434 00046 * RECORDS WRITTEN: DTSBR434 00047 * DTSBR434 00048 * NONE. DTSBR434 00049 * DTSBR434 00050 * DTSBR434 00051 * MODULES CALLED: DTSBR434 00052 * DTSBR434 00053 * DTSBU002 DATE ALPHA CONVERSION MODULE DTSBR434 00054 * DTSBU071 NAME EDIT/CONVERSION MODULE DTSBR434 00055 * DTSBU090 PARAGRAPH FORMATTING MODULE DTSBR434 00056 * DTSBU119 AGENCY FACTS MODULE DTSBR434 00057 * DTSBR434 00058 * DTSBR434 00059 ***** DTSBR434 00060 EJECT DTSBR434 00061 ENVIRONMENT DIVISION. DTSBR434 00062 DTSBR434 00063 CONFIGURATION SECTION. DTSBR434 00064 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR434 00065 DTSBR434 00066 INPUT-OUTPUT SECTION. DTSBR434 00067 DTSBR434 00068 FILE-CONTROL. DTSBR434 00069 SELECT PRT-FILE ASSIGN TO RPT434R1. DTSBR434 00070 DTSBR434 00071 DATA DIVISION. DTSBR434 00072 DTSBR434 00073 FILE SECTION. DTSBR434 00074 DTSBR434 00075 FD PRT-FILE DTSBR434 00076 RECORDING MODE IS F DTSBR434 00077 BLOCK CONTAINS 0 RECORDS DTSBR434 00078 LABEL RECORDS ARE OMITTED. DTSBR434 00079 01 XEROX-REPORT. DTSBR434 00080 05 FILLER PIC X(1). DTSBR434 00081 05 XEROX-RPT PIC X(132). DTSBR434 00082 EJECT DTSBR434 00083 WORKING-STORAGE SECTION. DTSBR434 000835 77 PAN-VALET PICTURE X(24) VALUE '086DTSBR434 08/26/04'. DTSBR434 00084 DTSBR434 00085 01 WRK-AREA. DTSBR434 00086 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +434.DTSBR434 00087 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR434 00088 DTSBR434 00089 05 SUB PIC 9(02). DTSBR434 00090 05 WS-PYMT-FREQUENCY PIC X(10). DTSBR434 00091 05 WS-REPORT-HEADING PIC X(20). DTSBR434 00092 05 WS-SIGNEE-TITLE PIC X(26). DTSBR434 00093 05 WS-CORP-TITLE PIC X(26) DTSBR434 00094 VALUE 'PRINCIPAL OFFICER (NAME) :'. DTSBR434 00095 05 WS-PARTNER-TITLE PIC X(26) DTSBR434 00096 VALUE 'SOLE OWNER/PARTNER NAME :'. DTSBR434 00097 05 WS-CORP-HEADING PIC X(26) DTSBR434 00098 VALUE 'R434R1 (Corporation)'. DTSBR434 00099 05 WS-PARTNER-HEADING PIC X(26) DTSBR434 00100 VALUE 'R434R2 (Partnership)'. DTSBR434 00101 05 WS-STMT-DUE-AMT PIC $$$$$$$.99. DTSBR434 00102 05 WS-DSPLY-PMT-AMT PIC $$$$$$$.99. DTSBR434 00103 05 WS-YRQTR-AREA1. DTSBR434 00104 10 WS-COVERED-YRQ-R OCCURS 5 TIMES. DTSBR434 00105 15 WS-COVERED-QTR PIC X(06). DTSBR434 00106 01 VSCA-LINE. DTSBR434 00107 05 VSCA-DATA PIC X(133) VALUE SPACES. DTSBR434 00108 DTSBR434 00109 ++INCLUDE DTSIZ43A DTSBR434 00110 EJECT DTSBR434 00111 01 L001-LINK-AREA. DTSBR434 00112 ++INCLUDE DTSIL001 DTSBR434 00113 EJECT DTSBR434 00114 01 L002-LINK-AREA. DTSBR434 00115 ++INCLUDE DTSIL002 DTSBR434 00116 EJECT DTSBR434 00117 01 L004-LINK-AREA. DTSBR434 00118 ++INCLUDE DTSIL004 DTSBR434 00119 EJECT DTSBR434 00120 01 L071-LINK-AREA. DTSBR434 00121 ++INCLUDE DTSIL071 DTSBR434 00122 EJECT DTSBR434 00123 01 L090-LINK-AREA. DTSBR434 00124 ++INCLUDE DTSIL090 DTSBR434 00125 EJECT DTSBR434 00126 01 L119-LINK-AREA. DTSBR434 00127 ++INCLUDE DTSIL119 DTSBR434 00128 EJECT DTSBR434 00129 ++INCLUDE DTSXL434 DTSBR434 00130 DTSBR434 00131 01 LETTER-HEADING. DTSBR434 00132 05 LHD-LINE-12. DTSBR434 00133 10 FILLER PIC X(14) VALUE SPACES. DTSBR434 00134 10 FILLER PIC X(35) DTSBR434 00135 VALUE 'AGREEMENT TO LIQUIDATE INDEBTEDNESS'. DTSBR434 00136 10 FILLER PIC X(19) DTSBR434 00137 VALUE ' BY PARTIAL PAYMENT'. DTSBR434 00138 05 LHD-LINE-13. DTSBR434 00139 10 FILLER PIC X(60) VALUE SPACES. DTSBR434 00140 10 FILLER PIC X(05) DTSBR434 00141 VALUE 'DATE:'. DTSBR434 00142 10 FILLER PIC X(01) VALUE SPACE. DTSBR434 00143 10 LHD-SLASH-8-DATE PIC X(10). DTSBR434 00144 05 LHD-LINE-14. DTSBR434 00145 10 FILLER PIC X(08) VALUE SPACES. DTSBR434 00146 10 FILLER PIC X(13) DTSBR434 00147 VALUE 'PRIMARY NAME:'. DTSBR434 00148 10 FILLER PIC X(01) VALUE SPACE. DTSBR434 00149 10 LHD-PRIMARY-NAME PIC X(40). DTSBR434 00150 05 LHD-LINE-15. DTSBR434 00151 10 FILLER PIC X(26) VALUE SPACES. DTSBR434 00152 10 LHD-SIGNEE-TITLE PIC X(26). DTSBR434 00153 10 FILLER PIC X(02) VALUE SPACES. DTSBR434 00154 10 LHD-NAM PIC X(40). DTSBR434 00155 05 LHD-LINE-16. DTSBR434 00156 10 FILLER PIC X(08) VALUE SPACES. DTSBR434 00157 10 FILLER PIC X(11) DTSBR434 00158 VALUE 'ACCOUNT NO:'. DTSBR434 00159 10 FILLER PIC X(01) VALUE SPACE. DTSBR434 00160 10 LHD-EMP-NO PIC 999B999. DTSBR434 00161 05 LHD-LINE-17. DTSBR434 00162 10 FILLER PIC X(08) VALUE SPACES. DTSBR434 00163 10 FILLER PIC X(08) DTSBR434 00164 VALUE 'ADDRESS:'. DTSBR434 00165 10 FILLER PIC X(01) VALUE SPACE. DTSBR434 00166 10 LHD-MAILING-LINE-1 PIC X(40). DTSBR434 00167 05 LHD-LINE-18. DTSBR434 00168 10 FILLER PIC X(17) VALUE SPACES. DTSBR434 00169 10 LHD-MAILING-LINE-2 PIC X(40). DTSBR434 00170 01 LINE-22. DTSBR434 00171 05 LHD-LINE-19. DTSBR434 00172 10 FILLER PIC X(17) VALUE SPACES. DTSBR434 00173 10 LHD-MAILING-LINE-3 PIC X(40). DTSBR434 00174 01 LINE-23. DTSBR434 00175 05 LHD-LINE-20. DTSBR434 00176 10 FILLER PIC X(17) VALUE SPACES. DTSBR434 00177 10 LHD-MAILING-LINE-4 PIC X(40). DTSBR434 00178 01 LINE-24. DTSBR434 00179 05 LHD-LINE-21. DTSBR434 00180 10 FILLER PIC X(17) VALUE SPACES. DTSBR434 00181 10 LHD-MAILING-LINE-5 PIC X(40). DTSBR434 00182 DTSBR434 00183 ++INCLUDE DTSIZ434 DTSBR434 00184 EJECT DTSBR434 00185 LINKAGE SECTION. DTSBR434 00186 DTSBR434 00187 01 LRCM-LINK-AREA. DTSBR434 00188 ++INCLUDE DTSILRCM DTSBR434 00189 EJECT DTSBR434 00190 01 R434-REC. DTSBR434 00191 ++INCLUDE DTSIR434 DTSBR434 00192 EJECT DTSBR434 00193 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR434 00194 R434-REC. DTSBR434 00195 DTSBR434 00196 IF FIRST-TIME-IND = 'Y' DTSBR434 00197 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR434 00198 MOVE 'N' TO FIRST-TIME-IND. DTSBR434 00199 DTSBR434 00200 IF LRCM-EOR-88 DTSBR434 00201 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR434 00202 ELSE DTSBR434 00203 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR434 00204 DTSBR434 00205 GOBACK. DTSBR434 00206 EJECT DTSBR434 00207 I1000-INITIATE. DTSBR434 00208 DTSBR434 00209 OPEN OUTPUT PRT-FILE. DTSBR434 00210 MOVE SPACES TO XEROX-REPORT. DTSBR434 00211 DTSBR434 00212 WRITE XEROX-REPORT FROM VSCA-LINE DTSBR434 00213 AFTER ADVANCING TOP-OF-PAGE. DTSBR434 00214 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE1. DTSBR434 00215 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE2. DTSBR434 00216 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE3. DTSBR434 00217 WRITE XEROX-REPORT FROM XEROX-CNTL-LINE4. DTSBR434 00218 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 14. DTSBR434 00219 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE20. DTSBR434 00220 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE21. DTSBR434 00221 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE22. DTSBR434 00222 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE23. DTSBR434 00223 WRITE XEROX-REPORT FROM ROUTE-INFO-LINE24. DTSBR434 00224 DTSBR434 00225 I1000-EXIT. DTSBR434 00226 EXIT. DTSBR434 00227 EJECT DTSBR434 00228 P1000-PROCESS. DTSBR434 00229 IF R434-CORPORATION-YES-88 DTSBR434 00230 MOVE WS-CORP-HEADING TO WS-REPORT-HEADING DTSBR434 00231 MOVE WS-CORP-TITLE TO WS-SIGNEE-TITLE. DTSBR434 00232 DTSBR434 00233 IF R434-CORPORATION-NO-88 DTSBR434 00234 MOVE WS-PARTNER-HEADING TO WS-REPORT-HEADING DTSBR434 00235 MOVE WS-PARTNER-TITLE TO WS-SIGNEE-TITLE. DTSBR434 00236 DTSBR434 00237 PERFORM DTSBR434 00238 UNTIL R434-MAILING-LINE (1) NOT = SPACES DTSBR434 00239 PERFORM DTSBR434 00240 VARYING R434-MAILING-LINE-IDX FROM 1 BY 1 DTSBR434 00241 UNTIL R434-MAILING-LINE-IDX > 4 DTSBR434 00242 MOVE R434-MAILING-LINE (R434-MAILING-LINE-IDX + 1) DTSBR434 00243 TO R434-MAILING-LINE (R434-MAILING-LINE-IDX) DTSBR434 00244 END-PERFORM DTSBR434 00245 MOVE SPACES TO R434-MAILING-LINE (5) DTSBR434 00246 END-PERFORM. DTSBR434 00247 DTSBR434 00248 MOVE R434-STMT-DATE TO L001-FED-8-DATE-9. DTSBR434 00249 SET L001-FROM-FED-8 TO TRUE. DTSBR434 00250 PERFORM S001-DATE DTSBR434 00251 tHRU S001-EXIT. DTSBR434 00252 MOVE R434-EMPLOYER-SIGNEE TO L071-NAM. DTSBR434 00253 MOVE 2 TO L071-NAME-FORMAT. DTSBR434 00254 PERFORM S071-DESLASH-NAME DTSBR434 00255 THRU S071-EXIT. DTSBR434 00256 MOVE R434-STMT-DUE-AMT TO WS-STMT-DUE-AMT. DTSBR434 00257 MOVE R434-INSTALL-PMT-AMT TO WS-DSPLY-PMT-AMT. DTSBR434 00258 DTSBR434 00259 IF R434-PMT-FREQ-WEEKLY-88 DTSBR434 00260 MOVE 'WEEKLY' TO WS-PYMT-FREQUENCY. DTSBR434 00261 IF R434-PMT-FREQ-BIWEEKLY-88 DTSBR434 00262 MOVE 'BI-WEEKLY' TO WS-PYMT-FREQUENCY. DTSBR434 00263 IF R434-PMT-FREQ-MONTHLY-88 DTSBR434 00264 MOVE 'MONTHLY' TO WS-PYMT-FREQUENCY. DTSBR434 00265 PERFORM P2000-PRINT-HEADING THRU P2000-EXIT. DTSBR434 00266 DTSBR434 00267 IF R434-MAILING-LINE (3) > SPACES DTSBR434 00268 MOVE R434-MAILING-LINE (3) TO LHD-MAILING-LINE-3 DTSBR434 00269 WRITE XEROX-REPORT FROM LHD-LINE-19 AFTER DTSBR434 00270 ADVANCING 1 LINE. DTSBR434 00271 DTSBR434 00272 IF R434-MAILING-LINE (4) > SPACES DTSBR434 00273 MOVE R434-MAILING-LINE (4) TO LHD-MAILING-LINE-4 DTSBR434 00274 WRITE XEROX-REPORT FROM LHD-LINE-20 AFTER DTSBR434 00275 ADVANCING 1 LINE. DTSBR434 00276 DTSBR434 00277 IF R434-MAILING-LINE (5) > SPACES DTSBR434 00278 MOVE R434-MAILING-LINE (5) TO LHD-MAILING-LINE-5 DTSBR434 00279 WRITE XEROX-REPORT FROM LHD-LINE-21 AFTER DTSBR434 00280 ADVANCING 1 LINE. DTSBR434 00281 DTSBR434 00282 MOVE R434-PMT-BEGIN-DATE TO L001-FED-8-DATE-9. DTSBR434 00283 SET L001-FROM-FED-8 TO TRUE. DTSBR434 00284 PERFORM S001-DATE DTSBR434 00285 THRU S001-EXIT. DTSBR434 00286 DTSBR434 00287 IF R434-CORPORATION-YES-88 DTSBR434 00288 PERFORM P1100-GENERATE-CORP-PARA1 THRU P1100-EXIT DTSBR434 00289 MOVE ZERO TO SUB DTSBR434 00290 PERFORM P1250-MOVE-YQTR DTSBR434 00291 THRU P1250-EXIT DTSBR434 00292 VARYING R434-COVERED-YRQ-IDX FROM 1 BY 1 DTSBR434 00293 UNTIL R434-COVERED-YRQ-IDX > R434-COV-CNT DTSBR434 00294 PERFORM P3000-LETTER-YRQTR THRU P3000-EXIT DTSBR434 00295 PERFORM P4000-LETTER-PARA2 THRU P4000-EXIT DTSBR434 00296 PERFORM P1105-GENERATE-PARA3 THRU P1105-EXIT DTSBR434 00297 PERFORM P1110-GENERATE-CORP-PARA4 THRU P1110-EXIT DTSBR434 00298 END-IF. DTSBR434 00299 IF R434-CORPORATION-NO-88 DTSBR434 00300 PERFORM P1200-GENERATE-PARTNER-LETTER THRU P1200-EXIT DTSBR434 00301 MOVE ZERO TO SUB DTSBR434 00302 PERFORM P1250-MOVE-YQTR DTSBR434 00303 THRU P1250-EXIT DTSBR434 00304 VARYING R434-COVERED-YRQ-IDX FROM 1 BY 1 DTSBR434 00305 UNTIL R434-COVERED-YRQ-IDX > R434-COV-CNT DTSBR434 00306 PERFORM P3000-LETTER-YRQTR THRU P3000-EXIT DTSBR434 00307 PERFORM P4000-LETTER-PARA2 THRU P4000-EXIT DTSBR434 00308 PERFORM P1105-GENERATE-PARA3 THRU P1105-EXIT DTSBR434 00309 PERFORM P1115-GENERATE-PARTNER-PARA4 THRU P1115-EXIT DTSBR434 00310 END-IF. DTSBR434 00311 PERFORM P5000-LETTER-TEXT THRU P5000-EXIT. DTSBR434 00312 PERFORM P6000-LETTER-FOOTING THRU P6000-EXIT. DTSBR434 00313 P1000-EXIT. DTSBR434 00314 EXIT. DTSBR434 00315 P1100-GENERATE-CORP-PARA1. DTSBR434 00316 MOVE WS-WORD-GROUP1 TO L090-PHRASE-TABLE (1). DTSBR434 00317 MOVE L071-NAM TO L090-PHRASE-TABLE (2). DTSBR434 00318 MOVE WS-WORD-GROUP2 TO L090-PHRASE-TABLE (3). DTSBR434 00319 MOVE WS-WORD-GROUP3 TO L090-PHRASE-TABLE (4). DTSBR434 00320 MOVE WS-WORD-GROUP4 TO L090-PHRASE-TABLE (5). DTSBR434 00321 MOVE WS-WORD-GROUP5 TO L090-PHRASE-TABLE (6). DTSBR434 00322 MOVE WS-WORD-GROUP6 TO L090-PHRASE-TABLE (7). DTSBR434 00323 MOVE WS-STMT-DUE-AMT TO L090-PHRASE-TABLE (8). DTSBR434 00324 MOVE WS-WORD-GROUP7 TO L090-PHRASE-TABLE (9). DTSBR434 00325 MOVE WS-WORD-GROUP8 TO L090-PHRASE-TABLE (10). DTSBR434 00326 MOVE WS-WORD-GROUP9 TO L090-PHRASE-TABLE (11). DTSBR434 00327 MOVE +11 TO L090-PHRASE-CNT. DTSBR434 00328 MOVE +69 TO L090-DESIRED-LINE-LIMIT. DTSBR434 00329 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR434 00330 PERFORM P1300-GENERATE-VARIABLE-L090 THRU P1300-EXIT. DTSBR434 00331 p1100-EXIT. DTSBR434 00332 EXIT. DTSBR434 00333 DTSBR434 00334 P1105-GENERATE-PARA3. DTSBR434 00335 IF R434-CORPORATION-NO-88 DTSBR434 00336 MOVE WS-WORD-GROUP10A TO L090-PHRASE-TABLE (1) DTSBR434 00337 ELSE DTSBR434 00338 MOVE WS-WORD-GROUP10 TO L090-PHRASE-TABLE (1) DTSBR434 00339 END-IF. DTSBR434 00340 MOVE WS-WORD-GROUP11 TO L090-PHRASE-TABLE (2). DTSBR434 00341 MOVE WS-DSPLY-PMT-AMT TO L090-PHRASE-TABLE (3). DTSBR434 00342 MOVE WS-WORD-GROUP12 TO L090-PHRASE-TABLE (4). DTSBR434 00343 MOVE L001-SLASH-DATE TO L090-PHRASE-TABLE (5). DTSBR434 00344 MOVE WS-WORD-GROUP13 TO L090-PHRASE-TABLE (6). DTSBR434 00345 MOVE WS-PYMT-FREQUENCY TO L090-PHRASE-TABLE (7). DTSBR434 00346 MOVE WS-WORD-GROUP14 TO L090-PHRASE-TABLE (8). DTSBR434 00347 MOVE WS-WORD-GROUP15 TO L090-PHRASE-TABLE (9). DTSBR434 00348 MOVE +9 TO L090-PHRASE-CNT. DTSBR434 00349 MOVE +69 TO L090-DESIRED-LINE-LIMIT. DTSBR434 00350 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR434 00351 PERFORM P1300-GENERATE-VARIABLE-L090 THRU P1300-EXIT. DTSBR434 00352 P1105-EXIT. DTSBR434 00353 EXIT. DTSBR434 00354 DTSBR434 00355 P1110-GENERATE-CORP-PARA4. DTSBR434 00356 MOVE WS-WORD-GROUP16 TO L090-PHRASE-TABLE (1). DTSBR434 00357 MOVE WS-WORD-GROUP17 TO L090-PHRASE-TABLE (2). DTSBR434 00358 MOVE WS-WORD-GROUP18 TO L090-PHRASE-TABLE (3). DTSBR434 00359 MOVE WS-WORD-GROUP19 TO L090-PHRASE-TABLE (4). DTSBR434 00360 MOVE WS-WORD-GROUP20 TO L090-PHRASE-TABLE (5). DTSBR434 00361 MOVE WS-WORD-GROUP21 TO L090-PHRASE-TABLE (6). DTSBR434 00362 MOVE +6 TO L090-PHRASE-CNT. DTSBR434 00363 MOVE +69 TO L090-DESIRED-LINE-LIMIT. DTSBR434 00364 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR434 00365 PERFORM P1300-GENERATE-VARIABLE-L090 THRU P1300-EXIT. DTSBR434 00366 P1110-EXIT. DTSBR434 00367 EXIT. DTSBR434 00368 DTSBR434 00369 P1115-GENERATE-PARTNER-PARA4. DTSBR434 00370 MOVE WS-WORD-GROUP16 TO L090-PHRASE-TABLE (1). DTSBR434 00371 MOVE WS-WORD-GROUP17 TO L090-PHRASE-TABLE (2). DTSBR434 00372 MOVE WS-WORD-GROUP19 TO L090-PHRASE-TABLE (3). DTSBR434 00373 MOVE WS-WORD-GROUP20 TO L090-PHRASE-TABLE (4). DTSBR434 00374 MOVE WS-WORD-GROUP21 TO L090-PHRASE-TABLE (5). DTSBR434 00375 MOVE +5 TO L090-PHRASE-CNT. DTSBR434 00376 MOVE +69 TO L090-DESIRED-LINE-LIMIT. DTSBR434 00377 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR434 00378 PERFORM P1300-GENERATE-VARIABLE-L090 THRU P1300-EXIT. DTSBR434 00379 P1115-EXIT. DTSBR434 00380 EXIT. DTSBR434 00381 DTSBR434 00382 P1200-GENERATE-PARTNER-LETTER. DTSBR434 00383 MOVE WS-WORD-GROUP1 TO L090-PHRASE-TABLE (1). DTSBR434 00384 MOVE L071-NAM TO L090-PHRASE-TABLE (2). DTSBR434 00385 MOVE WS-WORD-GROUP3a TO L090-PHRASE-TABLE (3). DTSBR434 00386 MOVE WS-WORD-GROUP4 TO L090-PHRASE-TABLE (4). DTSBR434 00387 MOVE WS-WORD-GROUP5 TO L090-PHRASE-TABLE (5). DTSBR434 00388 MOVE WS-WORD-GROUP6 TO L090-PHRASE-TABLE (6). DTSBR434 00389 MOVE WS-STMT-DUE-AMT TO L090-PHRASE-TABLE (7). DTSBR434 00390 MOVE WS-WORD-GROUP7 TO L090-PHRASE-TABLE (8). DTSBR434 00391 MOVE WS-WORD-GROUP8 TO L090-PHRASE-TABLE (9). DTSBR434 00392 MOVE WS-WORD-GROUP9 TO L090-PHRASE-TABLE (10). DTSBR434 00393 MOVE +10 TO L090-PHRASE-CNT. DTSBR434 00394 MOVE +69 TO L090-DESIRED-LINE-LIMIT. DTSBR434 00395 PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT. DTSBR434 00396 PERFORM P1300-GENERATE-VARIABLE-L090 THRU P1300-EXIT. DTSBR434 00397 DTSBR434 00398 P1200-EXIT. DTSBR434 00399 EXIT. DTSBR434 00400 DTSBR434 00401 P1250-MOVE-YQTR. DTSBR434 00402 ADD 01 TO SUB. DTSBR434 00403 IF SUB GREATER 5 DTSBR434 00404 PERFORM P3000-LETTER-YRQTR THRU P3000-EXIT DTSBR434 00405 MOVE SPACES TO WS-YRQTR-AREA1 DTSBR434 00406 MOVE 01 TO SUB DTSBR434 00407 END-IF. DTSBR434 00408 PERFORM P1255-PICKUP-YRQ THRU P1255-EXIT. DTSBR434 00409 P1250-EXIT. DTSBR434 00410 EXIT. DTSBR434 00411 DTSBR434 00412 P1255-PICKUP-YRQ. DTSBR434 00413 IF LRCM-PICKUP-YRQ = R434-COVERED-YRQ (R434-COVERED-YRQ-IDX) DTSBR434 00414 MOVE 'PRIOR' TO WS-COVERED-QTR (SUB) DTSBR434 00415 ELSE DTSBR434 00416 MOVE R434-COVERED-YRQ (R434-COVERED-YRQ-IDX) TO DTSBR434 00417 L004-QTR-5-9 DTSBR434 00418 SET L004-FROM-5 TO TRUE DTSBR434 00419 PERFORM S004-QTR THRU S004-EXIT DTSBR434 00420 MOVE L004-SLASH-5-QTR TO WS-COVERED-QTR (SUB). DTSBR434 00421 P1255-EXIT. DTSBR434 00422 EXIT. DTSBR434 00423 P1300-GENERATE-VARIABLE-l090. DTSBR434 00424 PERFORM P7000-LETTER-DETAIL-START THRU P7000-EXIT. DTSBR434 00425 PERFORM DTSBR434 00426 VARYING L090-PARAGRAPH-IDX FROM +2 BY +1 DTSBR434 00427 UNTIL L090-PARAGRAPH-IDX > L090-PARAGRAPH-LINE-CNT DTSBR434 00428 IF L090-PARAGRAPH-LINE-DUPE-88 (L090-PARAGRAPH-IDX) DTSBR434 00429 NEXT SENTENCE DTSBR434 00430 ELSE DTSBR434 00431 PERFORM P8000-LETTER-DETAIL-LINE THRU P8000-EXIT DTSBR434 00432 END-IF DTSBR434 00433 END-PERFORM. DTSBR434 00434 DTSBR434 00435 P1300-EXIT. DTSBR434 00436 EXIT. DTSBR434 00437 DTSBR434 00438 P2000-PRINT-HEADING. DTSBR434 00439 MOVE L001-SLASH-8-DATE TO LHD-SLASH-8-DATE. DTSBR434 00440 MOVE R434-PRIMARY-NAME TO LHD-PRIMARY-NAME. DTSBR434 00441 MOVE WS-SIGNEE-TITLE TO LHD-SIGNEE-TITLE. DTSBR434 00442 MOVE L071-NAM TO LHD-NAM. DTSBR434 00443 MOVE R434-EMP-NO TO LHD-EMP-NO. DTSBR434 00444 MOVE R434-MAILING-LINE (1) TO LHD-MAILING-LINE-1. DTSBR434 00445 MOVE R434-MAILING-LINE (2) TO LHD-MAILING-LINE-2. DTSBR434 00446 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR434 00447 WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 10 LINE. DTSBR434 00448 WRITE XEROX-REPORT FROM LHD-LINE-12 AFTER ADVANCING 1 LINE. DTSBR434 00449 WRITE XEROX-REPORT FROM LHD-LINE-13 AFTER ADVANCING 1 LINE. DTSBR434 00450 WRITE XEROX-REPORT FROM LHD-LINE-14 AFTER ADVANCING 1 LINE. DTSBR434 00451 WRITE XEROX-REPORT FROM LHD-LINE-15 AFTER ADVANCING 1 LINE. DTSBR434 00452 WRITE XEROX-REPORT FROM LHD-LINE-16 AFTER ADVANCING 1 LINE. DTSBR434 00453 WRITE XEROX-REPORT FROM LHD-LINE-17 AFTER ADVANCING 1 LINE. DTSBR434 00454 WRITE XEROX-REPORT FROM LHD-LINE-18 AFTER ADVANCING 1 LINE. DTSBR434 00455 DTSBR434 00456 P2000-EXIT. DTSBR434 00457 EXIT. DTSBR434 00458 DTSBR434 00459 P3000-LETTER-YRQTR. DTSBR434 00460 MOVE WS-COVERED-QTR (1) TO WS-COVERED-QTR-1. DTSBR434 00461 MOVE WS-COVERED-QTR (2) TO WS-COVERED-QTR-2. DTSBR434 00462 MOVE WS-COVERED-QTR (3) TO WS-COVERED-QTR-3. DTSBR434 00463 MOVE WS-COVERED-QTR (4) TO WS-COVERED-QTR-4. DTSBR434 00464 MOVE WS-COVERED-QTR (5) TO WS-COVERED-QTR-5. DTSBR434 00465 WRITE XEROX-REPORT FROM LYQ-LINE-1 AFTER ADVANCING 1 LINE. DTSBR434 00466 DTSBR434 00467 P3000-EXIT. DTSBR434 00468 EXIT. DTSBR434 00469 DTSBR434 00470 P4000-LETTER-PARA2. DTSBR434 00471 WRITE XEROX-REPORT FROM LP2-LINE-1 AFTER ADVANCING 1 LINE. DTSBR434 00472 WRITE XEROX-REPORT FROM LP2-LINE-2 AFTER ADVANCING 1 LINE. DTSBR434 00473 DTSBR434 00474 P4000-EXIT. DTSBR434 00475 EXIT. DTSBR434 00476 DTSBR434 00477 P5000-LETTER-TEXT. DTSBR434 00478 WRITE XEROX-REPORT FROM LTX-LINE-2 AFTER ADVANCING 2 LINE. DTSBR434 00479 WRITE XEROX-REPORT FROM LTX-LINE-3 AFTER ADVANCING 1 LINE. DTSBR434 00480 WRITE XEROX-REPORT FROM LTX-LINE-4 AFTER ADVANCING 1 LINE. DTSBR434 00481 WRITE XEROX-REPORT FROM LTX-LINE-5 AFTER ADVANCING 1 LINE. DTSBR434 00482 WRITE XEROX-REPORT FROM LTX-LINE-6 AFTER ADVANCING 1 LINE. DTSBR434 00483 WRITE XEROX-REPORT FROM LTX-LINE-7 AFTER ADVANCING 1 LINE. DTSBR434 00484 WRITE XEROX-REPORT FROM LTX-LINE-8 AFTER ADVANCING 1 LINE. DTSBR434 00485 WRITE XEROX-REPORT FROM LTX-LINE-9 AFTER ADVANCING 1 LINE. DTSBR434 00486 WRITE XEROX-REPORT FROM LTX-LINE-10 AFTER ADVANCING 1 LINE. DTSBR434 00487 DTSBR434 00488 P5000-EXIT. DTSBR434 00489 EXIT. DTSBR434 00490 DTSBR434 00491 P6000-LETTER-FOOTING. DTSBR434 00492 WRITE XEROX-REPORT FROM LFT-LINE-1 AFTER ADVANCING 1 LINE. DTSBR434 00493 WRITE XEROX-REPORT FROM LFT-LINE-2 AFTER ADVANCING 1 LINE. DTSBR434 00494 WRITE XEROX-REPORT FROM LFT-LINE-3 AFTER ADVANCING 1 LINE. DTSBR434 00495 WRITE XEROX-REPORT FROM LFT-LINE-4 AFTER ADVANCING 1 LINE. DTSBR434 00496 WRITE XEROX-REPORT FROM LFT-LINE-5 AFTER ADVANCING 1 LINE. DTSBR434 00497 WRITE XEROX-REPORT FROM LFT-LINE-6 AFTER ADVANCING 1 LINE. DTSBR434 00498 WRITE XEROX-REPORT FROM LFT-LINE-7 AFTER ADVANCING 1 LINE. DTSBR434 00499 WRITE XEROX-REPORT FROM LFT-LINE-8 AFTER ADVANCING 1 LINE. DTSBR434 00500 DTSBR434 00501 P6000-EXIT. DTSBR434 00502 EXIT. DTSBR434 00503 DTSBR434 00504 P7000-LETTER-DETAIL-START. DTSBR434 00505 MOVE L090-PARAGRAPH-LINE (1) TO LTS-PARAGRAPH-LINE-1. DTSBR434 00506 WRITE XEROX-REPORT FROM LTS-LINE-2 AFTER ADVANCING 2 LINE. DTSBR434 00507 DTSBR434 00508 P7000-EXIT. DTSBR434 00509 EXIT. DTSBR434 00510 DTSBR434 00511 P8000-LETTER-DETAIL-LINE. DTSBR434 00512 MOVE L090-PARAGRAPH-LINE (L090-PARAGRAPH-IDX) DTSBR434 00513 TO LDL-PARAGRAPH-LINE-IDX. DTSBR434 00514 WRITE XEROX-REPORT FROM LDL-LINE-1 AFTER ADVANCING 1 LINE. DTSBR434 00515 DTSBR434 00516 P8000-EXIT. DTSBR434 00517 EXIT. DTSBR434 00518 DTSBR434 00519 T1000-TERMINATE. DTSBR434 00520 DTSBR434 00521 CLOSE PRT-FILE. DTSBR434 00522 DTSBR434 00523 T1000-EXIT. DTSBR434 00524 EXIT. DTSBR434 00525 EJECT DTSBR434 00526 S001-DATE. DTSBR434 00527 DTSBR434 00528 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR434 00529 S001-EXIT. DTSBR434 00530 EXIT. DTSBR434 00531 DTSBR434 00532 S002-DATE-ALPHA. DTSBR434 00533 DTSBR434 00534 CALL 'DTSBU002' USING L002-LINK-AREA. DTSBR434 00535 DTSBR434 00536 S002-EXIT. DTSBR434 00537 EXIT. DTSBR434 00538 DTSBR434 00539 S004-QTR. DTSBR434 00540 DTSBR434 00541 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR434 00542 DTSBR434 00543 S004-EXIT. DTSBR434 00544 EXIT. DTSBR434 00545 DTSBR434 00546 S071-DESLASH-NAME. DTSBR434 00547 DTSBR434 00548 CALL 'DTSBU071' USING L071-LINK-AREA. DTSBR434 00549 DTSBR434 00550 S071-EXIT. DTSBR434 00551 EXIT. DTSBR434 00552 DTSBR434 00553 S090-PARAGRAPH-FORMAT. DTSBR434 00554 DTSBR434 00555 MOVE +0 TO L090-INDENT. DTSBR434 00556 SET L090-SPECIAL-CHAR-STD-88 TO TRUE. DTSBR434 00557 DTSBR434 00558 CALL 'DTSBU090' USING L090-LINK-AREA. DTSBR434 00559 DTSBR434 00560 S090-EXIT. DTSBR434 00561 EXIT. DTSBR434 00562 DTSBR434 00563 S119-AGENCY-FACTS. DTSBR434 00564 DTSBR434 00565 CALL 'DTSBU119' USING L119-LINK-AREA. DTSBR434 00566 DTSBR434 00567 S119-EXIT. DTSBR434 00568 EXIT. DTSBR434 00569 DTSBR434 00570 S999-ABEND. DTSBR434 00571 DTSBR434 00572 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR434 00573 DTSBR434 00574 S999-EXIT. DTSBR434 00575 EXIT. DTSBR434 00576 DTSBR434