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