00001  IDENTIFICATION DIVISION.                                         05/05/20
00002  PROGRAM-ID.             DTSBR451.                                DTSBR451
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV025
00004                          MODIFIED BY TRW S&ITG.                   DTSBR451
00005  DATE-WRITTEN.           AUGUST  2002.                            DTSBR451
00006  DATE-COMPILED.                                                   DTSBR451
00007      SKIP3                                                        DTSBR451
00008 *****                                                             DTSBR451
00009 *                                                                 DTSBR451
00010 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBR451
00011 *                       DTSBE451 WHICH UPDATES DTSIR451           DTSBR451
00012 *                       DTSBR451 READS DTSIR451 RECORDS.          DTSBR451
00013 *                                                                 DTSBR451
00014 *    FUNCTION:  MISSING ANNUAL  REPORT NOTICE.                    DTSBR451
00015 *                                                                 DTSBR451
00016 *                                                                 DTSBR451
00017 *    MODIFICATION HISTORY:                                        DTSBR451
00018 *                                                                 DTSBR451
00019 * 08-22-02 COPIED FROM DTSBR417                                   DTSBR451
00020 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - ZL1  DTSBR451
00021 *                                                                 DTSBR451
00022 * 04-22-13 MODIFIED TO PRINT NEW FIRST DELINQUENCY FORM FORMAT    DTSBR451
00023 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - ZL1  DTSBR451
00024 *                                                                 DTSBR451
00025 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR451
00026 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR451
00027 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR451
00028 *                                                                 DTSBR451
00029 *                                                                 DTSBR451
00030 *    DESCRIPTION:                                                 DTSBR451
00031 *                                                                 DTSBR451
00032 *        THIS MODULE PRINTS ANNUAL "DELINQUENT REPORT NOTICE".    DTSBR451
00033 *                                                                 DTSBR451
00034 *                                                                 DTSBR451
00035 *    RECORDS READ:                                                DTSBR451
00036 *                                                                 DTSBR451
00037 *        NONE.                                                    DTSBR451
00038 *                                                                 DTSBR451
00039 *                                                                 DTSBR451
00040 *    PRINTED OUTPUTS:                                             DTSBR451
00041 *                                                                 DTSBR451
00042 *        451R1  DELINQUENT REPORT NOTICE.                         DTSBR451
00043 *                                                                 DTSBR451
00044 *                                                                 DTSBR451
00045 *    RECORDS WRITTEN:                                             DTSBR451
00046 *                                                                 DTSBR451
00047 *        NONE.                                                    DTSBR451
00048 *                                                                 DTSBR451
00049 *                                                                 DTSBR451
00050 *    MODULES CALLED:                                              DTSBR451
00051 *                                                                 DTSBR451
00052 *        DTSBU002  DATE ALPHA CONVERSION MODULE.                  DTSBR451
00053 *        DTSBU004  YEAR/QUARTER CONVERSION.                       DTSBR451
00054 *        DTSBU008  DISPLAY QUARTER IN TEXT FORMAT.                DTSBR451
00055 *        DTSBU056  RATE DISPLAY.                                  DTSBR451
00056 *        DTSBU119  AGENCY FACTS.                                  DTSBR451
00057 *                                                                 DTSBR451
00058 *                                                                 DTSBR451
00059 *****                                                             DTSBR451
00060      EJECT                                                        DTSBR451
00061  ENVIRONMENT DIVISION.                                            DTSBR451
00062                                                                   DTSBR451
00063  CONFIGURATION SECTION.                                           DTSBR451
00064  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR451
00065                                                                   DTSBR451
00066  INPUT-OUTPUT SECTION.                                            DTSBR451
00067                                                                   DTSBR451
00068  FILE-CONTROL.                                                    DTSBR451
00069      SELECT PRT-FILE ASSIGN TO RPT451R1.                          DTSBR451
00070                                                                   DTSBR451
00071  DATA DIVISION.                                                   DTSBR451
00072                                                                   DTSBR451
00073  FILE SECTION.                                                    DTSBR451
00074                                                                   DTSBR451
00075  FD  PRT-FILE                                                     DTSBR451
00076      RECORDING MODE IS F                                          DTSBR451
00077      BLOCK CONTAINS 0 RECORDS                                     DTSBR451
00078      LABEL RECORDS ARE OMITTED.                                   DTSBR451
00079                                                                   DTSBR451
00080  01  XEROX-T451RW.                                                DTSBR451
00081      05  FILLER                      PIC X(1).                    DTSBR451
00082      05  XEROX-RPT                   PIC X(150).                  DTSBR451
00083                                                                   DTSBR451
00084      EJECT                                                        DTSBR451
00085  WORKING-STORAGE SECTION.                                         DTSBR451
000855 77  PAN-VALET PICTURE X(24) VALUE '025DTSBR451  05/05/20'.       DTSBR451
00086  77  PAN-VALET PICTURE X(24) VALUE '015DTSBR451  05/17/13'.       DTSBR451
00087  77  PAN-VALET PICTURE X(24) VALUE '022DTSBR451  05/03/13'.       DTSBR451
00088  77  PAN-VALET PICTURE X(24) VALUE '013DTSBR451  06/18/07'.       DTSBR451
00089                                                                   DTSBR451
00090  01  WRK-AREA.                                                    DTSBR451
00091      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +451.DTSBR451
00092      05  WRK-COUNTER                 PIC  9(1).                   DTSBR451
00093                                                                   DTSBR451
00094      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR451
00095                                                                   DTSBR451
00096      05  ABEND-MSG                   PIC  X(60).                  DTSBR451
00097  01  VSCA-LINE.                                                   DTSBR451
00098      05  VSCA-DATA                   PIC  X(133).                 DTSBR451
00099                                                                   DTSBR451
00100      05  WS-UNIT-TEL.                                             DTSBR451
00101          10  WS-UNIT-AREA-CD         PIC  X(03).                  DTSBR451
00102          10  WS-UNIT-PREFIX          PIC  X(03).                  DTSBR451
00103          10  WS-UNIT-SUFFIX          PIC  X(04).                  DTSBR451
00104          10  WS-UNIT-EXTENSION       PIC  X(04).                  DTSBR451
00105                                                                   DTSBR451
00106      05  DISP-TEL.                                                DTSBR451
00107          10  DISP-TEL-FILLER-1       PIC  X(01)  VALUE '('.       DTSBR451
00108          10  DISP-TEL-AREA-CD        PIC  X(03).                  DTSBR451
00109          10  DISP-TEL-FILLER-2       PIC  X(02)  VALUE ')-'.      DTSBR451
00110          10  DISP-TEL-PREFIX         PIC  X(03).                  DTSBR451
00111          10  DISP-TEL-FILLER-3       PIC  X(01)  VALUE '-'.       DTSBR451
00112          10  DISP-TEL-SUFFIX         PIC  X(04).                  DTSBR451
00113      SKIP3                                                        DTSBR451
00114                                                                   DTSBR451
00115  01  T451-ADDR-AREA.                                              DTSBR451
00116  ++INCLUDE DTSXMAIL                                               DTSBR451
00117      EJECT                                                        DTSBR451
00118 *01  T451-REPT-HDR.                                               DTSBR451
00119 *++INCLUDE DTSXAHDR                                               DTSBR451
00120      EJECT                                                        DTSBR451
00121  ++INCLUDE DTSIZ51A                                                  CL*12
00122      EJECT                                                           CL*12
00123 *++INCLUDE DTSIZ51B                                                  CL**6
00124 *    EJECT                                                           CL**6
00125  01  L001-LINK-AREA.                                              DTSBR451
00126  ++INCLUDE DTSIL001                                               DTSBR451
00127      EJECT                                                        DTSBR451
00128  01  L002-LINK-AREA.                                              DTSBR451
00129  ++INCLUDE DTSIL002                                               DTSBR451
00130      EJECT                                                        DTSBR451
00131  01  L004-LINK-AREA.                                              DTSBR451
00132  ++INCLUDE DTSIL004                                               DTSBR451
00133      EJECT                                                        DTSBR451
00134  01  L008-LINK-AREA.                                              DTSBR451
00135  ++INCLUDE DTSIL008                                               DTSBR451
00136      EJECT                                                        DTSBR451
00137  01  L056-LINK-AREA.                                              DTSBR451
00138  ++INCLUDE DTSIL056                                               DTSBR451
00139      EJECT                                                        DTSBR451
00140  01  L090-LINK-AREA.                                              DTSBR451
00141  ++INCLUDE DTSIL090                                               DTSBR451
00142      EJECT                                                        DTSBR451
00143  01  L119-LINK-AREA.                                              DTSBR451
00144  ++INCLUDE DTSIL119                                               DTSBR451
00145      EJECT                                                        DTSBR451
00146  ++INCLUDE DTSXL451                                               DTSBR451
00147      SKIP3                                                        DTSBR451
00148 *RW1                                                              DTSBR451
00149  01  CONVERT-BARCODE-LINE.                                        DTSBR451
00150      05  BARC-EMP-NO             PIC  9(06)  VALUE ZEROS.         DTSBR451
00151                                                                   DTSBR451
00152  01  WS-BARC-LINE.                                                DTSBR451
00153      05  FILLER                  PIC  X(40)  VALUE SPACES.        DTSBR451
00154      05  CONVERTED-BARCODE       PIC  X(50).                      DTSBR451
00155      05  FILLER                  PIC  X(30)  VALUE SPACES.        DTSBR451
00156                                                                   DTSBR451
00157  01  BARI-LINK-AREA.                                              DTSBR451
00158  ++INCLUDE BARIL599                                               DTSBR451
00159      SKIP3                                                        DTSBR451
00160 *RW2                                                              DTSBR451
00161  LINKAGE SECTION.                                                 DTSBR451
00162      SKIP3                                                        DTSBR451
00163  01  LRCM-LINK-AREA.                                              DTSBR451
00164  ++INCLUDE DTSILRCM                                               DTSBR451
00165      EJECT                                                        DTSBR451
00166  01  R451-REC.                                                    DTSBR451
00167  ++INCLUDE DTSIR451                                               DTSBR451
00168      EJECT                                                        DTSBR451
00169  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR451
00170                           R451-REC.                               DTSBR451
00171      SKIP2                                                        DTSBR451
00172      IF FIRST-TIME-IND = 'Y'                                      DTSBR451
00173          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR451
00174          MOVE 'N' TO FIRST-TIME-IND                               DTSBR451
00175          MOVE 0 TO WRK-COUNTER.                                   DTSBR451
00176                                                                   DTSBR451
00177      IF LRCM-EOR-88                                               DTSBR451
00178          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR451
00179      ELSE                                                         DTSBR451
00180          ADD 1 TO WRK-COUNTER                                     DTSBR451
00181          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR451
00182      SKIP2                                                        DTSBR451
00183      GOBACK.                                                      DTSBR451
00184      EJECT                                                        DTSBR451
00185  I1000-INITIATE.                                                  DTSBR451
00186                                                                   DTSBR451
00187      OPEN OUTPUT PRT-FILE.                                        DTSBR451
00188      MOVE SPACES TO XEROX-T451RW.                                 DTSBR451
00189                                                                   DTSBR451
00190 *    WRITE XEROX-T451RW     FROM BLANK-LINE                       DTSBR451
00191 *        AFTER ADVANCING TOP-OF-PAGE.                             DTSBR451
00192 *RW1                                                              DTSBR451
00193 **   WRITE XEROX-T451RW     FROM XEROX-CNTL-LINE                  DTSBR451
00194 **       AFTER ADVANCING TOP-OF-PAGE.                             DTSBR451
00195 *RW2                                                              DTSBR451
00196 *    WRITE XEROX-T451RW     FROM BLANK-LINE                       DTSBR451
00197 *        AFTER ADVANCING TOP-OF-PAGE.                             DTSBR451
00198 *    WRITE XEROX-T451RW     FROM BLANK-LINE                       DTSBR451
00199 *        AFTER ADVANCING TOP-OF-PAGE.                             DTSBR451
00200                                                                   DTSBR451
00201      SET L119-REQ-COLLECTIONS-88 TO TRUE.                         DTSBR451
00202      PERFORM S119-REQ-MIXED THRU S119-EXIT.                       DTSBR451
00203      MOVE L119-UNIT-VOICE TO WS-UNIT-TEL.                         DTSBR451
00204  I1000-EXIT.                                                      DTSBR451
00205      EXIT.                                                        DTSBR451
00206      EJECT                                                        DTSBR451
00207  P1000-PROCESS.                                                   DTSBR451
00208 **NH TESTING NEW DELINQ NOTICE                                       CL**7
00209      MOVE R451-EMP-NO       TO HDR-EMP-NO.                           CL*13
00210      MOVE R451-FMT-LINE (1) TO HDR-FMT-LINE-1                        CL*13
00211      MOVE R451-FMT-LINE (1) TO MAIL-ADDR-LINE1.                      CL**8
00212      MOVE R451-FMT-LINE (2) TO HDR-FMT-LINE-2                        CL*13
00213      MOVE R451-FMT-LINE (2) TO MAIL-ADDR-LINE2.                      CL**8
00214      MOVE R451-FMT-LINE (3) TO HDR-FMT-LINE-3                        CL*13
00215      MOVE R451-FMT-LINE (3) TO MAIL-ADDR-LINE3.                      CL**8
00216      MOVE R451-FMT-LINE (4) TO HDR-FMT-LINE-4                        CL*13
00217      MOVE R451-FMT-LINE (4) TO MAIL-ADDR-LINE4.                      CL**8
00218      MOVE R451-FMT-LINE (5) TO HDR-FMT-LINE-5                        CL*13
00219      MOVE R451-FMT-LINE (5) TO MAIL-ADDR-LINE5.                      CL**8
00220                                                                   DTSBR451
00221                                                                   DTSBR451
00222      MOVE '(' TO DISP-TEL-FILLER-1.                               DTSBR451
00223      MOVE WS-UNIT-AREA-CD TO DISP-TEL-AREA-CD.                    DTSBR451
00224      MOVE ') ' TO DISP-TEL-FILLER-2.                              DTSBR451
00225      MOVE WS-UNIT-PREFIX TO DISP-TEL-PREFIX.                      DTSBR451
00226      MOVE '-' TO DISP-TEL-FILLER-3.                               DTSBR451
00227      MOVE WS-UNIT-SUFFIX TO DISP-TEL-SUFFIX.                      DTSBR451
00228                                                                   DTSBR451
00229 *    MOVE 20200621 TO R451-MAIL-DATE                                 CL*25
00230      MOVE R451-MAIL-DATE TO L002-DATE.                               CL*22
00231      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR451
00232                                                                   DTSBR451
00233      MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-MAIL-DATE.             CL*13
00234                                                                   DTSBR451
00235      MOVE R451-TOTAL-RATE TO L056-RATE.                           DTSBR451
00236      PERFORM S056-DISP1-LEFT-PCT THRU S056-EXIT.                  DTSBR451
00237      MOVE L056-DISP-RATE TO WS-DISP-RATE.                            CL*13
00238                                                                   DTSBR451
00239                                                                   DTSBR451
00240      MOVE R451-YRQ TO L008-YRQ.                                   DTSBR451
00241      PERFORM S008-MIXED-CASE THRU S008-EXIT.                      DTSBR451
00242      MOVE L008-YEAR TO HDR-LONG-YEAR DTL-LONG-YEAR.                  CL*13
00243                                                                   DTSBR451
00244      MOVE R451-DUE-DATE TO L001-FED-8-DATE-9.                     DTSBR451
00245      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR451
00246      MOVE L001-SLASH-8-DATE TO WS-SLASH-DUE-DATE.                    CL*13
00247                                                                   DTSBR451
00248      MOVE R451-DUE-DATE TO L002-DATE.                             DTSBR451
00249      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR451
00250                                                                   DTSBR451
00251 *    STRING L002-LONG-TEXT-AREA DELIMITED BY '  '                 DTSBR451
00252 *            ','  DELIMITED BY SIZE                               DTSBR451
00253 *            INTO WS-LONG-TEXT-DUE-DATE.                          DTSBR451
00254                                                                   DTSBR451
00255 *    MOVE DISP-TEL TO RPT-CALL-PHONE.                             DTSBR451
00256                                                                   DTSBR451
00257 *    MOVE R451-RETURN-BY-DATE TO L002-DATE.                       DTSBR451
00258 *    PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR451
00259                                                                   DTSBR451
00260      PERFORM P2000-REPT-HEADER-RTN THRU P2000-EXIT.               DTSBR451
00261                                                                   DTSBR451
00262 **   MOVE +90 TO L090-DESIRED-LINE-LIMIT.                            CL*16
00263 **   MOVE +3 TO L090-PHRASE-CNT.                                     CL*16
00264 *    MOVE MC-LIT-WAS-DUE-BY TO L090-PHRASE (1).                      CL**9
00265 **   MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (1).                   CL*16
00266 **   MOVE WS-LONG-TEXT-DUE-DATE TO L090-PHRASE (2).                  CL*16
00267 **   MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (2).                   CL*16
00268 **   MOVE SPACES TO L090-PHRASE (2).                                 CL*16
00269 *    STRING L002-LONG-TEXT-AREA DELIMITED BY '  '                    CL*16
00270 **         ','                 DELIMITED BY SIZE                     CL*16
00271 **         INTO L090-PHRASE (2).                                     CL*16
00272 **   MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2).                  CL*16
00273 **   MOVE MC-LIT-IS-NOW-DEL  TO L090-PHRASE (3).                     CL**9
00274 *    MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3).                  CL*16
00275 **   PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                   CL*16
00276 **   DISPLAY 'L90 ' L090-PARAGRAPH-LINE-CNT                          CL*16
00277 **   IF (L090-UNSUCCESSFUL-88)                                       CL*16
00278 **            OR                                                     CL*16
00279 *       (L090-PARAGRAPH-LINE-CNT NOT = +1)                           CL*16
00280 **      MOVE 'LOGIC ERROR P1000-1' TO ABEND-MSG                      CL*16
00281 **      PERFORM S999-ABEND THRU S999-EXIT.                           CL*16
00282 **    MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-1.                CL*10
00283 **                                                                   CL*16
00284 *      MOVE +120 TO L090-DESIRED-LINE-LIMIT.                         CL*16
00285 **     MOVE +3 TO L090-PHRASE-CNT.                                   CL*16
00286 **     MOVE MC-LIT-NOTICE-TO-US TO L090-PHRASE (1).                  CL**9
00287 **     MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1).                CL*16
00288 **     MOVE R451-RETURN-BY-DATE TO L002-DATE.                        CL*16
00289 *      PERFORM S002-MIXED-CASE THRU S002-EXIT.                       CL*16
00290 **     MOVE SPACES TO L090-PHRASE (2).                               CL*16
00291 **     STRING L002-LONG-TEXT-AREA DELIMITED BY '  '                  CL*16
00292 **            ','                 DELIMITED BY SIZE                  CL*16
00293 **         INTO L090-PHRASE (2).                                     CL*16
00294 *      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2).                CL*16
00295 **     MOVE MC-LIT-NOTICE-TO-US1 TO L090-PHRASE (3).                 CL**9
00296 **     MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3).                CL*16
00297 **     PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                 CL*16
00298 **   DISPLAY 'L91 ' L090-PARAGRAPH-LINE-CNT                          CL*16
00299 *       IF (L090-UNSUCCESSFUL-88)                                    CL*16
00300 **                OR                                                 CL*16
00301 **         (L090-PARAGRAPH-LINE-CNT NOT = +1)                        CL*16
00302 **          MOVE 'LOGIC ERROR P1000-3' TO ABEND-MSG                  CL*16
00303 **          PERFORM S999-ABEND THRU S999-EXIT.                       CL*16
00304 *       MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-3.              CL*16
00305 **                                                                   CL*16
00306 **   WRITE XEROX-T451RW FROM DTL-LINE-2 AFTER ADVANCING 2 LINE       CL**9
00307 **   WRITE XEROX-T451RW FROM DTL-LINE-3 AFTER ADVANCING 1 LINE       CL**9
00308 **   WRITE XEROX-T451RW FROM DTL-LINE-4 AFTER ADVANCING 1 LINE       CL**9
00309 *    WRITE XEROX-T451RW FROM DTL-LINE-5 AFTER ADVANCING 1 LINE    DTSBR451
00310 **   WRITE XEROX-T451RW FROM DTL-LINE-6 AFTER ADVANCING 1 LINE       CL**9
00311 **   WRITE XEROX-T451RW FROM DTL-LINE-7 AFTER ADVANCING 1 LINE       CL**9
00312 **   WRITE XEROX-T451RW FROM DTL-LINE-8 AFTER ADVANCING 1 LINE       CL**9
00313 **   WRITE XEROX-T451RW FROM DTL-LINE-9 AFTER ADVANCING 1 LINE       CL**9
00314 **   WRITE XEROX-T451RW FROM DTL-LINE-11 AFTER ADVANCING 2 LINE      CL**9
00315 **   WRITE XEROX-T451RW FROM DTL-LINE-12 AFTER ADVANCING 1 LINE.     CL**9
00316                                                                   DTSBR451
00317      PERFORM P3000-SELF-MAILER-RTN THRU P3000-EXIT.               DTSBR451
00318  P1000-EXIT.                                                      DTSBR451
00319      EXIT.                                                        DTSBR451
00320      EJECT                                                        DTSBR451
00321  P2000-REPT-HEADER-RTN.                                           DTSBR451
00322 *RW1                                                              DTSBR451
00323 *    MOVE R451-EMP-NO       TO BARC-EMP-NO.                       DTSBR451
00324 *    PERFORM S599-BARCODE   THRU S599-EXIT.                       DTSBR451
00325 *                                                                 DTSBR451
00326 *    IF L599-SETB-FONT1                                           DTSBR451
00327 *       MOVE 'MODIFY=TAXSM1,' TO XEROX-CME                        DTSBR451
00328 *    ELSE                                                         DTSBR451
00329 *    IF L599-SETB-FONT2                                           DTSBR451
00330 *       MOVE 'MODIFY=TAXSM2,' TO XEROX-CME                        DTSBR451
00331 *    ELSE                                                         DTSBR451
00332 *       MOVE 'MODIFY=TAXSM1,' TO XEROX-CME.                       DTSBR451
00333                                                                   DTSBR451
00334      WRITE XEROX-T451RW     FROM XEROX-CNTL-LINE18                DTSBR451
00335             AFTER ADVANCING TOP-OF-PAGE.                          DTSBR451
00336      WRITE XEROX-T451RW     FROM XEROX-CNTL-LINE20.               DTSBR451
00337      WRITE XEROX-T451RW FROM VSCA-LINE   AFTER  6 LINE.              CL*19
00338                                                                   DTSBR451
00339 *    WRITE XEROX-T451RW FROM HDR-LINE-10 AFTER  5 LINE.              CL**4
00340      WRITE XEROX-T451RW FROM HDR-LINE-10 AFTER  4 LINE.              CL*21
00341      WRITE XEROX-T451RW FROM HDR-LINE-11 AFTER  2 LINE.              CL*13
00342      WRITE XEROX-T451RW FROM HDR-LINE-12 AFTER  1 LINE.              CL*13
00343      WRITE XEROX-T451RW FROM HDR-LINE-13 AFTER  1 LINE.              CL*13
00344      WRITE XEROX-T451RW FROM HDR-LINE-14 AFTER  1 LINE.              CL*13
00345      WRITE XEROX-T451RW FROM HDR-LINE-15 AFTER  1 LINE.              CL*13
00346      WRITE XEROX-T451RW FROM HDR-LINE-16 AFTER  2 LINE.              CL*13
00347  P2000-EXIT.                                                      DTSBR451
00348      EXIT.                                                        DTSBR451
00349      EJECT                                                        DTSBR451
00350  P3000-SELF-MAILER-RTN.                                           DTSBR451
00351 *RW1                                                              DTSBR451
00352      MOVE L599-BARCODED-DATA  TO CONVERTED-BARCODE.               DTSBR451
00353      WRITE XEROX-T451RW  FROM BLANK-LINE                          DTSBR451
00354                       AFTER ADVANCING TOP-OF-PAGE.                DTSBR451
00355 *    WRITE XEROX-T451RW FROM WS-BARC-LINE AFTER 04.               DTSBR451
00356 *                                                                 DTSBR451
00357      WRITE XEROX-T451RW FROM VSCA-LINE  AFTER ADVANCING 16 LINE.  DTSBR451
00358 *    WRITE XEROX-T451RW FROM MAIL-ADDR1 AFTER ADVANCING 6 LINE.   DTSBR451
00359      WRITE XEROX-T451RW  FROM MAIL-ADDR1 AFTER 1  LINE.           DTSBR451
00360 *RW2                                                              DTSBR451
00361      WRITE XEROX-T451RW  FROM MAIL-ADDR2 AFTER 1 LINE.            DTSBR451
00362      WRITE XEROX-T451RW  FROM MAIL-ADDR3 AFTER 1 LINE.            DTSBR451
00363      WRITE XEROX-T451RW  FROM MAIL-ADDR4 AFTER 1 LINE.            DTSBR451
00364      WRITE XEROX-T451RW  FROM MAIL-ADDR5 AFTER 1 LINE.            DTSBR451
00365                                                                   DTSBR451
00366  P3000-EXIT.                                                      DTSBR451
00367      EXIT.                                                        DTSBR451
00368      EJECT                                                        DTSBR451
00369                                                                   DTSBR451
00370                                                                   DTSBR451
00371  T1000-TERMINATE.                                                 DTSBR451
00372      CLOSE PRT-FILE.                                              DTSBR451
00373  T1000-EXIT.                                                      DTSBR451
00374      EXIT.                                                        DTSBR451
00375      EJECT                                                        DTSBR451
00376  S001-FROM-FED-8.                                                 DTSBR451
00377      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR451
00378      GO TO S001-DATE.                                             DTSBR451
00379                                                                   DTSBR451
00380  S001-DATE.                                                       DTSBR451
00381      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR451
00382  S001-EXIT.                                                       DTSBR451
00383      EXIT.                                                        DTSBR451
00384      SKIP3                                                        DTSBR451
00385  S002-UPPER-CASE.                                                 DTSBR451
00386      SET L002-UPPER-CASE TO TRUE.                                 DTSBR451
00387      GO TO S002-DATE-ALPHA.                                       DTSBR451
00388                                                                   DTSBR451
00389  S002-MIXED-CASE.                                                 DTSBR451
00390      SET L002-MIXED-CASE TO TRUE.                                 DTSBR451
00391      GO TO S002-DATE-ALPHA.                                       DTSBR451
00392                                                                   DTSBR451
00393  S002-DATE-ALPHA.                                                 DTSBR451
00394      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR451
00395  S002-EXIT.                                                       DTSBR451
00396      EXIT.                                                        DTSBR451
00397      SKIP3                                                        DTSBR451
00398  S004-FROM-5.                                                     DTSBR451
00399      SET L004-FROM-5 TO TRUE.                                     DTSBR451
00400      GO TO S004-QUARTER.                                          DTSBR451
00401                                                                   DTSBR451
00402  S004-QUARTER.                                                    DTSBR451
00403      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR451
00404  S004-EXIT.                                                       DTSBR451
00405      EXIT.                                                        DTSBR451
00406      SKIP3                                                        DTSBR451
00407  S008-UPPER-CASE.                                                 DTSBR451
00408      SET L008-UPPER-CASE TO TRUE.                                 DTSBR451
00409      GO TO S008-QUARTER-ALPHA.                                    DTSBR451
00410                                                                   DTSBR451
00411  S008-MIXED-CASE.                                                 DTSBR451
00412      SET L008-MIXED-CASE TO TRUE.                                 DTSBR451
00413      GO TO S008-QUARTER-ALPHA.                                    DTSBR451
00414                                                                   DTSBR451
00415  S008-QUARTER-ALPHA.                                              DTSBR451
00416      CALL 'DTSBU008' USING L008-LINK-AREA.                        DTSBR451
00417  S008-EXIT.                                                       DTSBR451
00418      EXIT.                                                        DTSBR451
00419      SKIP3                                                        DTSBR451
00420  S056-DISP1-LEFT-PCT.                                             DTSBR451
00421      SET L056-DISP1-LEFT-PCT-88 TO TRUE.                          DTSBR451
00422      GO TO S056-RATE-DISPLAY.                                     DTSBR451
00423                                                                   DTSBR451
00424  S056-RATE-DISPLAY.                                               DTSBR451
00425      CALL 'DTSBU056' USING L056-LINK-AREA.                        DTSBR451
00426  S056-EXIT.                                                       DTSBR451
00427      EXIT.                                                        DTSBR451
00428      SKIP3                                                        DTSBR451
00429  S090-PARAGRAPH-FORMAT.                                           DTSBR451
00430       MOVE +0 TO L090-INDENT.                                     DTSBR451
00431       SET L090-SPECIAL-CHAR-STD-88 TO TRUE.                       DTSBR451
00432                                                                   DTSBR451
00433       CALL 'DTSBU090' USING L090-LINK-AREA.                       DTSBR451
00434  S090-EXIT.                                                       DTSBR451
00435       EXIT.                                                       DTSBR451
00436       SKIP3                                                       DTSBR451
00437  S119-REQ-CAPS.                                                   DTSBR451
00438      SET L119-REQ-CAPS-88 TO TRUE.                                DTSBR451
00439      GO TO S119-AGENCY-FACTS.                                     DTSBR451
00440                                                                   DTSBR451
00441  S119-REQ-MIXED.                                                  DTSBR451
00442      SET L119-REQ-MIXED-88 TO TRUE.                               DTSBR451
00443      GO TO S119-AGENCY-FACTS.                                     DTSBR451
00444                                                                   DTSBR451
00445  S119-AGENCY-FACTS.                                               DTSBR451
00446      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR451
00447  S119-EXIT.                                                       DTSBR451
00448      EXIT.                                                        DTSBR451
00449      SKIP3                                                        DTSBR451
00450  S599-BARCODE.                                                    DTSBR451
00451      MOVE CONVERT-BARCODE-LINE           TO L599-INPUT-DATA.      DTSBR451
00452      MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH.      DTSBR451
00453      MOVE 'TAX'                          TO L599-SYSTEM.          DTSBR451
00454                                                                   DTSBR451
00455      CALL 'DTSBU599' USING BARI-LINK-AREA.                        DTSBR451
00456                                                                   DTSBR451
00457      IF L599-NOT-CONVERTED                                        DTSBR451
00458       PERFORM S999-ABEND  THRU S999-EXIT.                         DTSBR451
00459  S599-EXIT.                                                       DTSBR451
00460      EXIT.                                                        DTSBR451
00461      SKIP3                                                        DTSBR451
00462  S999-ABEND.                                                      DTSBR451
00463      DISPLAY '***'.                                               DTSBR451
00464      DISPLAY '***  '                                              DTSBR451
00465              ABEND-MSG.                                           DTSBR451
00466      DISPLAY '***'.                                               DTSBR451
00467                                                                   DTSBR451
00468      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR451
00469  S999-EXIT.                                                       DTSBR451
00470      EXIT.                                                        DTSBR451
00471                                                                   DTSBR451
