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
