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