00001  IDENTIFICATION DIVISION.                                         01/31/06
00002  PROGRAM-ID.             DTSBR453.                                DTSBR453
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV003
00004                          MODIFIED BY TRW S&ITG.                   DTSBR453
00005  DATE-WRITTEN.           AUGUST  2002.                            DTSBR453
00006  DATE-COMPILED.                                                   DTSBR453
00007      SKIP3                                                        DTSBR453
00008 *****                                                             DTSBR453
00009 *                                                                 DTSBR453
00010 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBR453
00011 *                       DTSBE453 WHICH UPDATES DTSIR453           DTSBR453
00012 *                       DTSBR453 READS DTSIR453 RECORDS.          DTSBR453
00013 *                                                                 DTSBR453
00014 *    FUNCTION:  FINAL DELINQUENT ANNUAL REPORT NOTICE.            DTSBR453
00015 *                                                                 DTSBR453
00016 *                                                                 DTSBR453
00017 *    MODIFICATION HISTORY:                                        DTSBR453
00018 *                                                                 DTSBR453
00019 * 09-12-02 INITIAL DEVELOPMENT - COPIED FROM DTSBR451.            DTSBR453
00020 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - RW1  DTSBR453
00021 *                                                                 DTSBR453
00022 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR453
00023 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR453
00024 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR453
00025 *                                                                 DTSBR453
00026 *                                                                 DTSBR453
00027 *    DESCRIPTION:                                                 DTSBR453
00028 *                                                                 DTSBR453
00029 *      THIS MODULE PRINTS A "FINAL DELINQUENT ANNUAL REPORT NOTICEDTSBR453
00030 *                                                                 DTSBR453
00031 *                                                                 DTSBR453
00032 *    RECORDS READ:                                                DTSBR453
00033 *                                                                 DTSBR453
00034 *        NONE.                                                    DTSBR453
00035 *                                                                 DTSBR453
00036 *                                                                 DTSBR453
00037 *    PRINTED OUTPUTS:                                             DTSBR453
00038 *                                                                 DTSBR453
00039 *        453R1  FINAL DELINQUENT ANNUAL REPORT NOTICE.            DTSBR453
00040 *                                                                 DTSBR453
00041 *                                                                 DTSBR453
00042 *    RECORDS WRITTEN:                                             DTSBR453
00043 *                                                                 DTSBR453
00044 *        NONE.                                                    DTSBR453
00045 *                                                                 DTSBR453
00046 *                                                                 DTSBR453
00047 *    MODULES CALLED:                                              DTSBR453
00048 *                                                                 DTSBR453
00049 *        DTSBU002  DATE ALPHA CONVERSION MODULE.                  DTSBR453
00050 *        DTSBU004  YEAR/QUARTER CONVERSION.                       DTSBR453
00051 *        DTSBU008  DISPLAY QUARTER IN TEXT FORMAT.                DTSBR453
00052 *        DTSBU056  RATE DISPLAY.                                  DTSBR453
00053 *        DTSBU062  FIELD REP ID EDIT/DESCRIPTION.                 DTSBR453
00054 *        DTSBU071  NAME EDIT/CONVERSION.                          DTSBR453
00055 *        DTSBU090  PARAGRAPH FORMATTING MODULE.                   DTSBR453
00056 *        DTSBU119  AGENCY FACTS.                                  DTSBR453
00057 *                                                                 DTSBR453
00058 *****                                                             DTSBR453
00059      EJECT                                                        DTSBR453
00060  ENVIRONMENT DIVISION.                                            DTSBR453
00061                                                                   DTSBR453
00062  CONFIGURATION SECTION.                                           DTSBR453
00063  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR453
00064                                                                   DTSBR453
00065  INPUT-OUTPUT SECTION.                                            DTSBR453
00066                                                                   DTSBR453
00067  FILE-CONTROL.                                                    DTSBR453
00068      SELECT PRT-FILE ASSIGN TO RPT453R1.                          DTSBR453
00069                                                                   DTSBR453
00070  DATA DIVISION.                                                   DTSBR453
00071                                                                   DTSBR453
00072  FILE SECTION.                                                    DTSBR453
00073                                                                   DTSBR453
00074  FD  PRT-FILE                                                     DTSBR453
00075      RECORDING MODE IS F                                          DTSBR453
00076      BLOCK CONTAINS 0 RECORDS                                     DTSBR453
00077      LABEL RECORDS ARE OMITTED.                                   DTSBR453
00078                                                                   DTSBR453
00079  01  XEROX-T453RW.                                                DTSBR453
00080      05  FILLER                      PIC X(1).                    DTSBR453
00081      05  XEROX-RPT                   PIC X(150).                  DTSBR453
00082                                                                   DTSBR453
00083      EJECT                                                        DTSBR453
00084  WORKING-STORAGE SECTION.                                         DTSBR453
000845 77  PAN-VALET PICTURE X(24) VALUE '003DTSBR453  01/31/06'.       DTSBR453
00085                                                                   DTSBR453
00086  01  WRK-AREA.                                                    DTSBR453
00087      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +453.DTSBR453
00088      05  WRK-COUNTER                 PIC  9(1).                   DTSBR453
00089                                                                   DTSBR453
00090      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR453
00091                                                                   DTSBR453
00092      05  ABEND-MSG                   PIC  X(60).                  DTSBR453
00093                                                                   DTSBR453
00094      05  HOLD-FLD-REP-ID             PIC  X(02).                  DTSBR453
00095          88  HOLD-FLD-REP-OUT-OF-STATE-88   VALUE '98' '99'.      DTSBR453
00096                                                                   DTSBR453
00097      05  WS-UNIT-TEL.                                             DTSBR453
00098          10  WS-UNIT-AREA-CD         PIC  X(03).                  DTSBR453
00099          10  WS-UNIT-PREFIX          PIC  X(03).                  DTSBR453
00100          10  WS-UNIT-SUFFIX          PIC  X(04).                  DTSBR453
00101          10  WS-UNIT-EXTENSION       PIC  X(04).                  DTSBR453
00102                                                                   DTSBR453
00103      SKIP3                                                        DTSBR453
00104      05  DISP-UNIT-TEL.                                           DTSBR453
00105          10  DISP-UNIT-TEL-FILLER-1       PIC  X(01)  VALUE '('.  DTSBR453
00106          10  DISP-UNIT-TEL-AREA-CD        PIC  X(03).             DTSBR453
00107          10  DISP-UNIT-TEL-FILLER-2       PIC  X(02)  VALUE ') '. DTSBR453
00108          10  DISP-UNIT-TEL-PREFIX         PIC  X(03).             DTSBR453
00109          10  DISP-UNIT-TEL-FILLER-3       PIC  X(01)  VALUE '-'.  DTSBR453
00110          10  DISP-UNIT-TEL-SUFFIX         PIC  X(04).             DTSBR453
00111      SKIP3                                                        DTSBR453
00112      05  WS-UNIT-FAX.                                             DTSBR453
00113          10  WS-UNIT-FAX-AREA-CD         PIC  X(03).              DTSBR453
00114          10  WS-UNIT-FAX-PREFIX          PIC  X(03).              DTSBR453
00115          10  WS-UNIT-FAX-SUFFIX          PIC  X(04).              DTSBR453
00116          10  WS-UNIT-FAX-EXTENSION       PIC  X(04).              DTSBR453
00117                                                                   DTSBR453
00118      05  DISP-UNIT-FAX.                                           DTSBR453
00119          10  DISP-UNIT-FAX-FILLER-1  PIC  X(01).                  DTSBR453
00120          10  DISP-UNIT-FAX-AREA-CD   PIC  X(03).                  DTSBR453
00121          10  DISP-UNIT-FAX-FILLER-2  PIC  X(02).                  DTSBR453
00122          10  DISP-UNIT-FAX-PREFIX    PIC  X(03).                  DTSBR453
00123          10  DISP-UNIT-FAX-FILLER-3  PIC  X(01).                  DTSBR453
00124          10  DISP-UNIT-FAX-SUFFIX    PIC  X(04).                  DTSBR453
00125      05  DISP-FLD-TEL.                                            DTSBR453
00126          10  DISP-FLD-TEL-FILLER-1   PIC  X(01).                  DTSBR453
00127          10  DISP-FLD-TEL-AREA-CD    PIC  X(03).                  DTSBR453
00128          10  DISP-FLD-TEL-FILLER-2   PIC  X(02).                  DTSBR453
00129          10  DISP-FLD-TEL-PREFIX     PIC  X(03).                  DTSBR453
00130          10  DISP-FLD-TEL-FILLER-3   PIC  X(01).                  DTSBR453
00131          10  DISP-FLD-TEL-SUFFIX     PIC  X(04).                  DTSBR453
00132                                                                   DTSBR453
00133      05  WS-START-POS                PIC S9(04)  COMP.            DTSBR453
00134                                                                   DTSBR453
00135      05  WS-LONG-TEXT-FIRST-DEL-DATE PIC  X(18).                  DTSBR453
00136                                                                   DTSBR453
00137      05  WS-LONG-TEXT-THREAT-DATE    PIC  X(18).                  DTSBR453
00138                                                                   DTSBR453
00139      05  WS-SHORT-YEAR               PIC  X(02).                  DTSBR453
00140                                                                   DTSBR453
00141      05  WS-LONG-YEAR                PIC  X(04).                  DTSBR453
00142      05  WS-LONG-YEAR9               PIC  X(04).                  DTSBR453
00143                                                                   DTSBR453
00144      05  WS-LONG-TEXT-DUE-DATE       PIC  X(18).                  DTSBR453
00145                                                                   DTSBR453
00146      05  WS-TEXT-LINE-5              PIC  X(70).                  DTSBR453
00147                                                                   DTSBR453
00148      05  DETAIL-5-LINE-CNT           PIC S9(04)  COMP.            DTSBR453
00149                                                                   DTSBR453
00150                                                                   DTSBR453
00151  01  T453-WORD-AREA.                                              DTSBR453
00152  ++INCLUDE DTSIZ453                                               DTSBR453
00153                                                                   DTSBR453
00154  01  T453-ADDR-AREA.                                              DTSBR453
00155  ++INCLUDE DTSXMAIL                                               DTSBR453
00156                                                                   DTSBR453
00157  01  T453-REPT-HDR.                                               DTSBR453
00158  ++INCLUDE DTSXAHDR                                               DTSBR453
00159      EJECT                                                        DTSBR453
00160  01  L001-LINK-AREA.                                              DTSBR453
00161  ++INCLUDE DTSIL001                                               DTSBR453
00162      EJECT                                                        DTSBR453
00163  01  L002-LINK-AREA.                                              DTSBR453
00164  ++INCLUDE DTSIL002                                               DTSBR453
00165      EJECT                                                        DTSBR453
00166  01  L004-LINK-AREA.                                              DTSBR453
00167  ++INCLUDE DTSIL004                                               DTSBR453
00168      EJECT                                                        DTSBR453
00169  01  L008-LINK-AREA.                                              DTSBR453
00170  ++INCLUDE DTSIL008                                               DTSBR453
00171      EJECT                                                        DTSBR453
00172  01  L056-LINK-AREA.                                              DTSBR453
00173  ++INCLUDE DTSIL056                                               DTSBR453
00174      EJECT                                                        DTSBR453
00175  01  L090-LINK-AREA.                                              DTSBR453
00176  ++INCLUDE DTSIL090                                               DTSBR453
00177      EJECT                                                        DTSBR453
00178  01  L062-LINK-AREA.                                              DTSBR453
00179  ++INCLUDE DTSIL062                                               DTSBR453
00180      EJECT                                                        DTSBR453
00181  01  L071-LINK-AREA.                                              DTSBR453
00182  ++INCLUDE DTSIL071                                               DTSBR453
00183      EJECT                                                        DTSBR453
00184  01  L119-LINK-AREA.                                              DTSBR453
00185  ++INCLUDE DTSIL119                                               DTSBR453
00186      EJECT                                                        DTSBR453
00187  ++INCLUDE DTSXL453                                               DTSBR453
00188      SKIP3                                                        DTSBR453
00189  LINKAGE SECTION.                                                 DTSBR453
00190      SKIP3                                                        DTSBR453
00191  01  LRCM-LINK-AREA.                                              DTSBR453
00192  ++INCLUDE DTSILRCM                                               DTSBR453
00193      EJECT                                                        DTSBR453
00194  01  R453-REC.                                                    DTSBR453
00195  ++INCLUDE DTSIR453                                               DTSBR453
00196      EJECT                                                        DTSBR453
00197  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR453
00198                           R453-REC.                               DTSBR453
00199      SKIP2                                                        DTSBR453
00200      IF FIRST-TIME-IND = 'Y'                                      DTSBR453
00201          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR453
00202          MOVE 'N' TO FIRST-TIME-IND                               DTSBR453
00203          MOVE 0 TO WRK-COUNTER.                                   DTSBR453
00204                                                                   DTSBR453
00205      IF LRCM-EOR-88                                               DTSBR453
00206          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR453
00207      ELSE                                                         DTSBR453
00208          ADD 1 TO WRK-COUNTER                                     DTSBR453
00209          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR453
00210      SKIP2                                                        DTSBR453
00211      GOBACK.                                                      DTSBR453
00212      EJECT                                                        DTSBR453
00213  I1000-INITIATE.                                                  DTSBR453
00214                                                                   DTSBR453
00215      OPEN OUTPUT PRT-FILE.                                        DTSBR453
00216      MOVE SPACES TO XEROX-T453RW.                                 DTSBR453
00217                                                                   DTSBR453
00218      WRITE XEROX-T453RW     FROM XEROX-CNTL-LINE.                 DTSBR453
00219                                                                   DTSBR453
00220      SET L119-REQ-COLLECTIONS-88 TO TRUE.                         DTSBR453
00221      PERFORM S119-REQ-MIXED THRU S119-EXIT.                       DTSBR453
00222      MOVE L119-UNIT-VOICE TO WS-UNIT-TEL.                         DTSBR453
00223      MOVE L119-UNIT-FAX   TO WS-UNIT-FAX.                         DTSBR453
00224      MOVE HIGH-VALUES     TO HOLD-FLD-REP-ID.                     DTSBR453
00225                                                                   DTSBR453
00226  I1000-EXIT.                                                      DTSBR453
00227      EXIT.                                                        DTSBR453
00228      EJECT                                                        DTSBR453
00229  P1000-PROCESS.                                                   DTSBR453
00230      MOVE R453-EMP-NO       TO HDR-EMP-NO.                        DTSBR453
00231      MOVE R453-FMT-LINE (1) TO HDR-FMT-LINE-1 MAIL-ADDR-LINE1     DTSBR453
00232      MOVE R453-FMT-LINE (2) TO HDR-FMT-LINE-2 MAIL-ADDR-LINE2     DTSBR453
00233      MOVE R453-FMT-LINE (3) TO HDR-FMT-LINE-3 MAIL-ADDR-LINE3     DTSBR453
00234      MOVE R453-FMT-LINE (4) TO HDR-FMT-LINE-4 MAIL-ADDR-LINE4     DTSBR453
00235      MOVE R453-FMT-LINE (5) TO HDR-FMT-LINE-5 MAIL-ADDR-LINE5.    DTSBR453
00236                                                                   DTSBR453
00237      MOVE '(' TO DISP-UNIT-TEL-FILLER-1.                          DTSBR453
00238      MOVE WS-UNIT-AREA-CD TO DISP-UNIT-TEL-AREA-CD.               DTSBR453
00239      MOVE ') ' TO DISP-UNIT-TEL-FILLER-2.                         DTSBR453
00240      MOVE WS-UNIT-PREFIX TO DISP-UNIT-TEL-PREFIX.                 DTSBR453
00241      MOVE '-' TO DISP-UNIT-TEL-FILLER-3.                          DTSBR453
00242      MOVE WS-UNIT-SUFFIX TO DISP-UNIT-TEL-SUFFIX.                 DTSBR453
00243                                                                   DTSBR453
00244      MOVE DISP-UNIT-TEL TO RPT-CALL-PHONE                         DTSBR453
00245                                                                   DTSBR453
00246      MOVE R453-MAIL-DATE TO L002-DATE.                            DTSBR453
00247      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR453
00248                                                                   DTSBR453
00249      COMPUTE WS-START-POS = (18 - L002-LONG-TEXT-CNT) / 2.        DTSBR453
00250                                                                   DTSBR453
00251      ADD +1 TO WS-START-POS.                                      DTSBR453
00252                                                                   DTSBR453
00253      IF (WS-START-POS > +0)                                       DTSBR453
00254            AND                                                    DTSBR453
00255         (WS-START-POS < +18)                                      DTSBR453
00256          MOVE SPACES TO WS-LONG-TEXT-MAIL-DATE                    DTSBR453
00257          MOVE L002-LONG-TEXT-AREA                                 DTSBR453
00258            TO  WS-LONG-TEXT-MAIL-DATE (WS-START-POS:)             DTSBR453
00259      ELSE                                                         DTSBR453
00260           MOVE L002-LONG-TEXT-AREA TO  WS-LONG-TEXT-MAIL-DATE.    DTSBR453
00261                                                                   DTSBR453
00262      MOVE R453-TOTAL-RATE TO L056-RATE.                           DTSBR453
00263      PERFORM S056-DISP1-LEFT-PCT THRU S056-EXIT.                  DTSBR453
00264      MOVE L056-DISP-RATE TO WS-DISP-RATE.                         DTSBR453
00265                                                                   DTSBR453
00266      MOVE R453-YRQ TO L008-YRQ.                                   DTSBR453
00267      PERFORM S008-MIXED-CASE THRU S008-EXIT.                      DTSBR453
00268      MOVE L008-YEAR TO WS-LONG-YEAR6 WS-LONG-YEAR9                DTSBR453
00269                         WS-LONG-YEAR10                            DTSBR453
00270                         WS-LONG-YEAR13.                           DTSBR453
00271                                                                   DTSBR453
00272      MOVE R453-DUE-DATE TO L001-FED-8-DATE-9.                     DTSBR453
00273      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR453
00274      MOVE L001-SLASH-8-DATE TO WS-SLASH-DUE-DATE.                 DTSBR453
00275                                                                   DTSBR453
00276      MOVE R453-DUE-DATE TO L002-DATE.                             DTSBR453
00277      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR453
00278      MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-DUE-DATE.           DTSBR453
00279                                                                   DTSBR453
00280      PERFORM P3000-PRINT-HEADER THRU P3000-EXIT.                  DTSBR453
00281                                                                   DTSBR453
00282      MOVE +70 TO L090-DESIRED-LINE-LIMIT.                         DTSBR453
00283      MOVE +9 TO L090-PHRASE-CNT.                                  DTSBR453
00284                                                                   DTSBR453
00285      MOVE R453-AS-OF-DATE TO L002-DATE.                           DTSBR453
00286      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR453
00287      MOVE L002-SHORT-TEXT-AREA                                    DTSBR453
00288        TO WS-SHORT-TEXT-AS-OF-DATE.                               DTSBR453
00289                                                                   DTSBR453
00290      MOVE SPACES TO L090-PHRASE (1)                               DTSBR453
00291                     L090-PHRASE (2)                               DTSBR453
00292                     L090-PHRASE (3)                               DTSBR453
00293                     L090-PHRASE (4)                               DTSBR453
00294                     L090-PHRASE (5)                               DTSBR453
00295                     L090-PHRASE (6)                               DTSBR453
00296                     L090-PHRASE (7)                               DTSBR453
00297                     L090-PHRASE (8).                              DTSBR453
00298      MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (1)                 DTSBR453
00299                    L090-PHRASE-OVERSTRIKE-IND (2)                 DTSBR453
00300                    L090-PHRASE-OVERSTRIKE-IND (3)                 DTSBR453
00301                    L090-PHRASE-OVERSTRIKE-IND (4)                 DTSBR453
00302                    L090-PHRASE-OVERSTRIKE-IND (5)                 DTSBR453
00303                    L090-PHRASE-OVERSTRIKE-IND (6)                 DTSBR453
00304                    L090-PHRASE-OVERSTRIKE-IND (7)                 DTSBR453
00305                    L090-PHRASE-OVERSTRIKE-IND (8).                DTSBR453
00306                                                                   DTSBR453
00307      MOVE MC-LIT-YEAR    TO L090-PHRASE (1).                      DTSBR453
00308      STRING WS-LONG-YEAR9  DELIMITED BY '  '  '.'                 DTSBR453
00309        DELIMITED BY SIZE INTO L090-PHRASE(2).                     DTSBR453
00310                                                                   DTSBR453
00311      MOVE MC-LIT-THIS-REPORT-WAS TO L090-PHRASE (3).              DTSBR453
00312                                                                   DTSBR453
00313      STRING WS-LONG-TEXT-DUE-DATE DELIMITED BY '  ' '.'           DTSBR453
00314        DELIMITED BY SIZE INTO L090-PHRASE(4).                     DTSBR453
00315                                                                   DTSBR453
00316      MOVE MC-LIT-WE-RECEIVED-NO TO L090-PHRASE (5).               DTSBR453
00317      MOVE MC-LIT-MAILED-ON      TO L090-PHRASE (6).               DTSBR453
00318                                                                   DTSBR453
00319      MOVE R453-UC30-FIRST-DEL-MAIL-DATE TO L002-DATE.             DTSBR453
00320      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR453
00321      MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-DUE-DATE.           DTSBR453
00322                                                                   DTSBR453
00323      STRING WS-LONG-TEXT-DUE-DATE DELIMITED BY '  ' '.'           DTSBR453
00324        DELIMITED BY SIZE INTO L090-PHRASE(7).                     DTSBR453
00325                                                                   DTSBR453
00326      PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR453
00327                                                                   DTSBR453
00328      IF (L090-UNSUCCESSFUL-88)                                    DTSBR453
00329            OR                                                     DTSBR453
00330         (L090-PARAGRAPH-LINE-CNT > +4)                            DTSBR453
00331          MOVE 'LOGIC ERROR P1000-1' TO ABEND-MSG                  DTSBR453
00332          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR453
00333                                                                   DTSBR453
00334      MOVE R453-FINAL-ACTION-DATE TO L002-DATE.                    DTSBR453
00335      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR453
00336      MOVE SPACE TO L090-PHRASE (3).                               DTSBR453
00337      STRING L002-LONG-TEXT-AREA  DELIMITED BY '  '                DTSBR453
00338             '.'                  DELIMITED BY SIZE                DTSBR453
00339        INTO                                                       DTSBR453
00340          L090-PHRASE (3).                                         DTSBR453
00341      MOVE L090-PHRASE(3)      TO RPT-DUE-DATE11.                  DTSBR453
00342                                                                   DTSBR453
00343      PERFORM P4000-PRINT-IST-PARAGRAPH THRU P4000-EXIT.           DTSBR453
00344                                                                   DTSBR453
00345      MOVE +70 TO L090-DESIRED-LINE-LIMIT.                         DTSBR453
00346      MOVE +3 TO L090-PHRASE-CNT.                                  DTSBR453
00347                                                                   DTSBR453
00348      MOVE MC-LIT-TO-US  TO L090-PHRASE (1).                       DTSBR453
00349      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1).               DTSBR453
00350                                                                   DTSBR453
00351      MOVE R453-FINAL-ACTION-DATE TO L002-DATE.                    DTSBR453
00352      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR453
00353      MOVE SPACE TO L090-PHRASE (2).                               DTSBR453
00354      STRING L002-LONG-TEXT-AREA  DELIMITED BY '  '                DTSBR453
00355             ' '                  DELIMITED BY SIZE                DTSBR453
00356        INTO                                                       DTSBR453
00357          L090-PHRASE (2).                                         DTSBR453
00358                                                                   DTSBR453
00359      MOVE SPACES TO L090-PHRASE (3).                              DTSBR453
00360      MOVE MC-LIT-PAYMENT-DUE   TO L090-PHRASE (3).                DTSBR453
00361                                                                   DTSBR453
00362      PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR453
00363                                                                   DTSBR453
00364      IF (L090-UNSUCCESSFUL-88)                                    DTSBR453
00365               OR                                                  DTSBR453
00366         (L090-PARAGRAPH-LINE-CNT NOT = +1)                        DTSBR453
00367          MOVE 'LOGIC ERROR P1000-2' TO ABEND-MSG                  DTSBR453
00368          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR453
00369                                                                   DTSBR453
00370      PERFORM P4500-MID-PARAGRAPH  THRU P4500-EXIT.                DTSBR453
00371                                                                   DTSBR453
00372                                                                   DTSBR453
00373      MOVE +70 TO L090-DESIRED-LINE-LIMIT.                         DTSBR453
00374      MOVE +7 TO L090-PHRASE-CNT.                                  DTSBR453
00375                                                                   DTSBR453
00376      MOVE MC-LIT-BY-5   TO L090-PHRASE (1).                       DTSBR453
00377      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1).               DTSBR453
00378                                                                   DTSBR453
00379      MOVE MC-LIT-BY-PM TO L090-PHRASE (2).                        DTSBR453
00380      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2).               DTSBR453
00381                                                                   DTSBR453
00382      MOVE R453-FINAL-ACTION-DATE TO L002-DATE.                    DTSBR453
00383      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR453
00384      MOVE SPACE TO L090-PHRASE (3).                               DTSBR453
00385      STRING L002-LONG-TEXT-AREA  DELIMITED BY '  '                DTSBR453
00386             ','                  DELIMITED BY SIZE                DTSBR453
00387        INTO                                                       DTSBR453
00388          L090-PHRASE (3).                                         DTSBR453
00389                                                                   DTSBR453
00390      MOVE SPACES TO L090-PHRASE (4).                              DTSBR453
00391      MOVE MC-LIT-A-ESTIMATE-TAX  TO L090-PHRASE (4).              DTSBR453
00392                                                                   DTSBR453
00393      MOVE MC-LIT-A-QUESTIONS     TO L090-PHRASE (5).              DTSBR453
00394      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (5).               DTSBR453
00395                                                                   DTSBR453
00396      ADD +1 TO L090-PHRASE-CNT.                                   DTSBR453
00397      MOVE DISP-UNIT-TEL   TO L090-PHRASE (L090-PHRASE-CNT).       DTSBR453
00398                                                                   DTSBR453
00399      PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR453
00400                                                                   DTSBR453
00401      IF (L090-UNSUCCESSFUL-88)                                    DTSBR453
00402               OR                                                  DTSBR453
00403         (L090-PARAGRAPH-LINE-CNT NOT = +3)                        DTSBR453
00404          MOVE 'LOGIC ERROR P1000-2' TO ABEND-MSG                  DTSBR453
00405          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR453
00406                                                                   DTSBR453
00407      PERFORM P5000-2ND-PARAGRAPH  THRU P5000-EXIT.                DTSBR453
00408                                                                   DTSBR453
00409                                                                   DTSBR453
00410      PERFORM P2000-SELF-MAILER-RTN THRU P2000-EXIT.               DTSBR453
00411  P1000-EXIT.                                                      DTSBR453
00412      EXIT.                                                        DTSBR453
00413  P2000-SELF-MAILER-RTN.                                           DTSBR453
00414                                                                   DTSBR453
00415         WRITE XEROX-T453RW  FROM BLANK-LINE                       DTSBR453
00416                          AFTER ADVANCING TOP-OF-PAGE              DTSBR453
00417         WRITE XEROX-T453RW  FROM MAIL-ADDR1                       DTSBR453
00418                          AFTER ADVANCING 14 LINE                  DTSBR453
00419         WRITE XEROX-T453RW  FROM MAIL-ADDR2                       DTSBR453
00420                          AFTER ADVANCING 2 LINE                   DTSBR453
00421         WRITE XEROX-T453RW  FROM MAIL-ADDR3                       DTSBR453
00422                          AFTER ADVANCING 1 LINE                   DTSBR453
00423         WRITE XEROX-T453RW  FROM MAIL-ADDR4                       DTSBR453
00424                          AFTER ADVANCING 1 LINE                   DTSBR453
00425         WRITE XEROX-T453RW  FROM MAIL-ADDR5                       DTSBR453
00426                          AFTER ADVANCING 1 LINE.                  DTSBR453
00427                                                                   DTSBR453
00428  P2000-EXIT.                                                      DTSBR453
00429      EXIT.                                                        DTSBR453
00430      EJECT                                                        DTSBR453
00431                                                                   DTSBR453
00432  P3000-PRINT-HEADER.                                              DTSBR453
00433      WRITE XEROX-T453RW     FROM BLANK-LINE                       DTSBR453
00434          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR453
00435                                                                   DTSBR453
00436      WRITE XEROX-T453RW FROM HDR-LINE-01 AFTER ADVANCING 8 LINE.  DTSBR453
00437      WRITE XEROX-T453RW FROM HDR-LINE-02 AFTER ADVANCING 2 LINE.  DTSBR453
00438      WRITE XEROX-T453RW FROM HDR-LINE-03 AFTER ADVANCING 1 LINE.  DTSBR453
00439      WRITE XEROX-T453RW FROM HDR-LINE-04 AFTER ADVANCING 1 LINE.  DTSBR453
00440      WRITE XEROX-T453RW FROM HDR-LINE-05 AFTER ADVANCING 1 LINE.  DTSBR453
00441      WRITE XEROX-T453RW FROM HDR-LINE-06 AFTER ADVANCING 1 LINE.  DTSBR453
00442      WRITE XEROX-T453RW FROM HDR-LINE-07 AFTER ADVANCING 4 LINE.  DTSBR453
00443  P3000-EXIT.                                                      DTSBR453
00444      EXIT.                                                        DTSBR453
00445      EJECT                                                        DTSBR453
00446                                                                   DTSBR453
00447  P4000-PRINT-IST-PARAGRAPH.                                       DTSBR453
00448      MOVE L090-PARAGRAPH-LINE (1) TO PARAGRAPH-LINE-1.            DTSBR453
00449      MOVE L090-PARAGRAPH-LINE (2) TO PARAGRAPH-LINE-2.            DTSBR453
00450      MOVE L090-PARAGRAPH-LINE (3) TO PARAGRAPH-LINE-3.            DTSBR453
00451                                                                   DTSBR453
00452                                                                   DTSBR453
00453      WRITE XEROX-T453RW FROM DET1-LINE-1 AFTER ADVANCING 3 LINE.  DTSBR453
00454      WRITE XEROX-T453RW FROM DET1-LINE-2  AFTER ADVANCING 1 LINE. DTSBR453
00455      WRITE XEROX-T453RW FROM PARA-LINE-1 AFTER ADVANCING 1 LINE.  DTSBR453
00456      WRITE XEROX-T453RW FROM PARA-LINE-2 AFTER ADVANCING 1 LINE.  DTSBR453
00457      WRITE XEROX-T453RW FROM PARA-LINE-3 AFTER ADVANCING 1 LINE.  DTSBR453
00458  P4000-EXIT.                                                      DTSBR453
00459      EXIT.                                                        DTSBR453
00460      EJECT                                                        DTSBR453
00461                                                                   DTSBR453
00462  P4500-MID-PARAGRAPH.                                             DTSBR453
00463      MOVE L090-PARAGRAPH-LINE (1) TO PARAGRAPH-LINE-1.            DTSBR453
00464      WRITE XEROX-T453RW FROM VAR-LINE-1  AFTER ADVANCING 4 LINE.  DTSBR453
00465      WRITE XEROX-T453RW FROM PARA-LINE-1 AFTER ADVANCING 1 LINE.  DTSBR453
00466      WRITE XEROX-T453RW FROM VAR-LINE-4  AFTER ADVANCING 6 LINE.  DTSBR453
00467  P4500-EXIT.                                                      DTSBR453
00468      EXIT.                                                        DTSBR453
00469      EJECT                                                        DTSBR453
00470  P5000-2ND-PARAGRAPH.                                             DTSBR453
00471      MOVE L090-PARAGRAPH-LINE (1) TO PARAGRAPH-LINE-1.            DTSBR453
00472      MOVE L090-PARAGRAPH-LINE (2) TO PARAGRAPH-LINE-2.            DTSBR453
00473      MOVE SPACES                  TO PARAGRAPH-LINE-3.            DTSBR453
00474                                                                   DTSBR453
00475      WRITE XEROX-T453RW FROM PARA-LINE-1 AFTER ADVANCING 06 LINE. DTSBR453
00476      WRITE XEROX-T453RW FROM PARA-LINE-2 AFTER ADVANCING 1 LINE.  DTSBR453
00477      WRITE XEROX-T453RW FROM VAR-LINE-3  AFTER ADVANCING 1 LINE.  DTSBR453
00478  P5000-EXIT.                                                      DTSBR453
00479      EXIT.                                                        DTSBR453
00480                                                                   DTSBR453
00481                                                                   DTSBR453
00482  T1000-TERMINATE.                                                 DTSBR453
00483      CLOSE PRT-FILE.                                              DTSBR453
00484  T1000-EXIT.                                                      DTSBR453
00485      EXIT.                                                        DTSBR453
00486      EJECT                                                        DTSBR453
00487  S001-FROM-FED-8.                                                 DTSBR453
00488      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR453
00489      GO TO S001-DATE.                                             DTSBR453
00490                                                                   DTSBR453
00491  S001-DATE.                                                       DTSBR453
00492      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR453
00493  S001-EXIT.                                                       DTSBR453
00494      EXIT.                                                        DTSBR453
00495      SKIP3                                                        DTSBR453
00496  S002-UPPER-CASE.                                                 DTSBR453
00497      SET L002-UPPER-CASE TO TRUE.                                 DTSBR453
00498      GO TO S002-DATE-ALPHA.                                       DTSBR453
00499                                                                   DTSBR453
00500  S002-MIXED-CASE.                                                 DTSBR453
00501      SET L002-MIXED-CASE TO TRUE.                                 DTSBR453
00502      GO TO S002-DATE-ALPHA.                                       DTSBR453
00503                                                                   DTSBR453
00504  S002-DATE-ALPHA.                                                 DTSBR453
00505      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR453
00506  S002-EXIT.                                                       DTSBR453
00507      EXIT.                                                        DTSBR453
00508      SKIP3                                                        DTSBR453
00509  S004-FROM-5.                                                     DTSBR453
00510      SET L004-FROM-5 TO TRUE.                                     DTSBR453
00511      GO TO S004-QUARTER.                                          DTSBR453
00512                                                                   DTSBR453
00513  S004-QUARTER.                                                    DTSBR453
00514      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR453
00515  S004-EXIT.                                                       DTSBR453
00516      EXIT.                                                        DTSBR453
00517      SKIP3                                                        DTSBR453
00518  S008-UPPER-CASE.                                                 DTSBR453
00519      SET L008-UPPER-CASE TO TRUE.                                 DTSBR453
00520      GO TO S008-QUARTER-ALPHA.                                    DTSBR453
00521                                                                   DTSBR453
00522  S008-MIXED-CASE.                                                 DTSBR453
00523      SET L008-MIXED-CASE TO TRUE.                                 DTSBR453
00524      GO TO S008-QUARTER-ALPHA.                                    DTSBR453
00525                                                                   DTSBR453
00526  S008-QUARTER-ALPHA.                                              DTSBR453
00527      CALL 'DTSBU008' USING L008-LINK-AREA.                        DTSBR453
00528  S008-EXIT.                                                       DTSBR453
00529      EXIT.                                                        DTSBR453
00530      SKIP3                                                        DTSBR453
00531  S056-DISP1-LEFT-PCT.                                             DTSBR453
00532      SET L056-DISP1-LEFT-PCT-88 TO TRUE.                          DTSBR453
00533      GO TO S056-RATE-DISPLAY.                                     DTSBR453
00534                                                                   DTSBR453
00535  S056-RATE-DISPLAY.                                               DTSBR453
00536      CALL 'DTSBU056' USING L056-LINK-AREA.                        DTSBR453
00537  S056-EXIT.                                                       DTSBR453
00538      EXIT.                                                        DTSBR453
00539      SKIP3                                                        DTSBR453
00540   S062-FLD-REP-ID.                                                DTSBR453
00541       CALL 'DTSBU062' USING L062-LINK-AREA.                       DTSBR453
00542   S062-EXIT.                                                      DTSBR453
00543       EXIT.                                                       DTSBR453
00544       SKIP3                                                       DTSBR453
00545  S119-REQ-CAPS.                                                   DTSBR453
00546      SET L119-REQ-CAPS-88 TO TRUE.                                DTSBR453
00547      GO TO S119-AGENCY-FACTS.                                     DTSBR453
00548                                                                   DTSBR453
00549  S119-REQ-MIXED.                                                  DTSBR453
00550      SET L119-REQ-MIXED-88 TO TRUE.                               DTSBR453
00551      GO TO S119-AGENCY-FACTS.                                     DTSBR453
00552                                                                   DTSBR453
00553  S119-AGENCY-FACTS.                                               DTSBR453
00554      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR453
00555  S119-EXIT.                                                       DTSBR453
00556      EXIT.                                                        DTSBR453
00557      SKIP3                                                        DTSBR453
00558  S071-FROM-LAST-NAME-FIRST.                                       DTSBR453
00559      SET L071-FROM-LAST-NAME-FIRST TO TRUE.                       DTSBR453
00560      GO TO S071-NAME-CONVERSION.                                  DTSBR453
00561                                                                   DTSBR453
00562  S071-NAME-CONVERSION.                                            DTSBR453
00563      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR453
00564  S071-EXIT.                                                       DTSBR453
00565      EXIT.                                                        DTSBR453
00566      SKIP3                                                        DTSBR453
00567  S090-PARAGRAPH-FORMAT.                                           DTSBR453
00568      MOVE +0 TO L090-INDENT.                                      DTSBR453
00569      SET L090-SPECIAL-CHAR-STD-88 TO TRUE.                        DTSBR453
00570      CALL 'DTSBU090' USING L090-LINK-AREA.                        DTSBR453
00571  S090-EXIT.                                                       DTSBR453
00572      EXIT.                                                        DTSBR453
00573      SKIP3                                                        DTSBR453
00574  S999-ABEND.                                                      DTSBR453
00575      DISPLAY '***'.                                               DTSBR453
00576      DISPLAY '***  '                                              DTSBR453
00577              ABEND-MSG.                                           DTSBR453
00578      DISPLAY '***'.                                               DTSBR453
00579                                                                   DTSBR453
00580      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR453
00581  S999-EXIT.                                                       DTSBR453
00582      EXIT.                                                        DTSBR453
00583                                                                   DTSBR453
