00001  IDENTIFICATION DIVISION.                                         05/17/13
00002  PROGRAM-ID.             DTSBR451.                                DTSBR451
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV015
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 '015DTSBR451  05/17/13'.       DTSBR451
00086  77  PAN-VALET PICTURE X(24) VALUE '022DTSBR451  05/03/13'.       DTSBR451
00087  77  PAN-VALET PICTURE X(24) VALUE '013DTSBR451  06/18/07'.       DTSBR451
00088                                                                   DTSBR451
00089  01  WRK-AREA.                                                    DTSBR451
00090      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +451.DTSBR451
00091      05  WRK-COUNTER                 PIC  9(1).                   DTSBR451
00092                                                                   DTSBR451
00093      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR451
00094                                                                   DTSBR451
00095      05  ABEND-MSG                   PIC  X(60).                  DTSBR451
00096  01  VSCA-LINE.                                                   DTSBR451
00097      05  VSCA-DATA                   PIC  X(133).                 DTSBR451
00098                                                                   DTSBR451
00099      05  WS-UNIT-TEL.                                             DTSBR451
00100          10  WS-UNIT-AREA-CD         PIC  X(03).                  DTSBR451
00101          10  WS-UNIT-PREFIX          PIC  X(03).                  DTSBR451
00102          10  WS-UNIT-SUFFIX          PIC  X(04).                  DTSBR451
00103          10  WS-UNIT-EXTENSION       PIC  X(04).                  DTSBR451
00104                                                                   DTSBR451
00105      05  DISP-TEL.                                                DTSBR451
00106          10  DISP-TEL-FILLER-1       PIC  X(01)  VALUE '('.       DTSBR451
00107          10  DISP-TEL-AREA-CD        PIC  X(03).                  DTSBR451
00108          10  DISP-TEL-FILLER-2       PIC  X(02)  VALUE ')-'.      DTSBR451
00109          10  DISP-TEL-PREFIX         PIC  X(03).                  DTSBR451
00110          10  DISP-TEL-FILLER-3       PIC  X(01)  VALUE '-'.       DTSBR451
00111          10  DISP-TEL-SUFFIX         PIC  X(04).                  DTSBR451
00112      SKIP3                                                        DTSBR451
00113                                                                   DTSBR451
00114  01  T451-ADDR-AREA.                                              DTSBR451
00115  ++INCLUDE DTSXMAIL                                               DTSBR451
00116      EJECT                                                        DTSBR451
00117 *01  T451-REPT-HDR.                                               DTSBR451
00118 *++INCLUDE DTSXAHDR                                               DTSBR451
00119      EJECT                                                        DTSBR451
00120  ++INCLUDE DTSIZ51A                                               DTSBR451
00121      EJECT                                                        DTSBR451
00122  ++INCLUDE DTSIZ51B                                               DTSBR451
00123      EJECT                                                        DTSBR451
00124  01  L001-LINK-AREA.                                              DTSBR451
00125  ++INCLUDE DTSIL001                                               DTSBR451
00126      EJECT                                                        DTSBR451
00127  01  L002-LINK-AREA.                                              DTSBR451
00128  ++INCLUDE DTSIL002                                               DTSBR451
00129      EJECT                                                        DTSBR451
00130  01  L004-LINK-AREA.                                              DTSBR451
00131  ++INCLUDE DTSIL004                                               DTSBR451
00132      EJECT                                                        DTSBR451
00133  01  L008-LINK-AREA.                                              DTSBR451
00134  ++INCLUDE DTSIL008                                               DTSBR451
00135      EJECT                                                        DTSBR451
00136  01  L056-LINK-AREA.                                              DTSBR451
00137  ++INCLUDE DTSIL056                                               DTSBR451
00138      EJECT                                                        DTSBR451
00139  01  L090-LINK-AREA.                                              DTSBR451
00140  ++INCLUDE DTSIL090                                               DTSBR451
00141      EJECT                                                        DTSBR451
00142  01  L119-LINK-AREA.                                              DTSBR451
00143  ++INCLUDE DTSIL119                                               DTSBR451
00144      EJECT                                                        DTSBR451
00145  ++INCLUDE DTSXL451                                               DTSBR451
00146      SKIP3                                                        DTSBR451
00147 *RW1                                                              DTSBR451
00148  01  CONVERT-BARCODE-LINE.                                        DTSBR451
00149      05  BARC-EMP-NO             PIC  9(06)  VALUE ZEROS.         DTSBR451
00150                                                                   DTSBR451
00151  01  WS-BARC-LINE.                                                DTSBR451
00152      05  FILLER                  PIC  X(40)  VALUE SPACES.        DTSBR451
00153      05  CONVERTED-BARCODE       PIC  X(50).                      DTSBR451
00154      05  FILLER                  PIC  X(30)  VALUE SPACES.        DTSBR451
00155                                                                   DTSBR451
00156  01  BARI-LINK-AREA.                                              DTSBR451
00157  ++INCLUDE BARIL599                                               DTSBR451
00158      SKIP3                                                        DTSBR451
00159 *RW2                                                              DTSBR451
00160  LINKAGE SECTION.                                                 DTSBR451
00161      SKIP3                                                        DTSBR451
00162  01  LRCM-LINK-AREA.                                              DTSBR451
00163  ++INCLUDE DTSILRCM                                               DTSBR451
00164      EJECT                                                        DTSBR451
00165  01  R451-REC.                                                    DTSBR451
00166  ++INCLUDE DTSIR451                                               DTSBR451
00167      EJECT                                                        DTSBR451
00168  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR451
00169                           R451-REC.                               DTSBR451
00170      SKIP2                                                        DTSBR451
00171      IF FIRST-TIME-IND = 'Y'                                      DTSBR451
00172          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR451
00173          MOVE 'N' TO FIRST-TIME-IND                               DTSBR451
00174          MOVE 0 TO WRK-COUNTER.                                   DTSBR451
00175                                                                   DTSBR451
00176      IF LRCM-EOR-88                                               DTSBR451
00177          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR451
00178      ELSE                                                         DTSBR451
00179          ADD 1 TO WRK-COUNTER                                     DTSBR451
00180          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR451
00181      SKIP2                                                        DTSBR451
00182      GOBACK.                                                      DTSBR451
00183      EJECT                                                        DTSBR451
00184  I1000-INITIATE.                                                  DTSBR451
00185                                                                   DTSBR451
00186      OPEN OUTPUT PRT-FILE.                                        DTSBR451
00187      MOVE SPACES TO XEROX-T451RW.                                 DTSBR451
00188                                                                   DTSBR451
00189 *    WRITE XEROX-T451RW     FROM BLANK-LINE                       DTSBR451
00190 *        AFTER ADVANCING TOP-OF-PAGE.                             DTSBR451
00191 *RW1                                                              DTSBR451
00192 **   WRITE XEROX-T451RW     FROM XEROX-CNTL-LINE                  DTSBR451
00193 **       AFTER ADVANCING TOP-OF-PAGE.                             DTSBR451
00194 *RW2                                                              DTSBR451
00195 *    WRITE XEROX-T451RW     FROM BLANK-LINE                       DTSBR451
00196 *        AFTER ADVANCING TOP-OF-PAGE.                             DTSBR451
00197 *    WRITE XEROX-T451RW     FROM BLANK-LINE                       DTSBR451
00198 *        AFTER ADVANCING TOP-OF-PAGE.                             DTSBR451
00199                                                                   DTSBR451
00200      SET L119-REQ-COLLECTIONS-88 TO TRUE.                         DTSBR451
00201      PERFORM S119-REQ-MIXED THRU S119-EXIT.                       DTSBR451
00202      MOVE L119-UNIT-VOICE TO WS-UNIT-TEL.                         DTSBR451
00203  I1000-EXIT.                                                      DTSBR451
00204      EXIT.                                                        DTSBR451
00205      EJECT                                                        DTSBR451
00206  P1000-PROCESS.                                                   DTSBR451
00207      MOVE R451-EMP-NO       TO HDR-EMP-NO.                        DTSBR451
00208      MOVE R451-FMT-LINE (1) TO HDR-FMT-LINE-1                     DTSBR451
00209                                MAIL-ADDR-LINE1.                   DTSBR451
00210      MOVE R451-FMT-LINE (2) TO HDR-FMT-LINE-2                     DTSBR451
00211                                MAIL-ADDR-LINE2.                   DTSBR451
00212      MOVE R451-FMT-LINE (3) TO HDR-FMT-LINE-3                     DTSBR451
00213                                MAIL-ADDR-LINE3.                   DTSBR451
00214      MOVE R451-FMT-LINE (4) TO HDR-FMT-LINE-4                     DTSBR451
00215                                MAIL-ADDR-LINE4.                   DTSBR451
00216      MOVE R451-FMT-LINE (5) TO HDR-FMT-LINE-5                     DTSBR451
00217                                MAIL-ADDR-LINE5.                   DTSBR451
00218                                                                   DTSBR451
00219                                                                   DTSBR451
00220      MOVE '(' TO DISP-TEL-FILLER-1.                               DTSBR451
00221      MOVE WS-UNIT-AREA-CD TO DISP-TEL-AREA-CD.                    DTSBR451
00222      MOVE ') ' TO DISP-TEL-FILLER-2.                              DTSBR451
00223      MOVE WS-UNIT-PREFIX TO DISP-TEL-PREFIX.                      DTSBR451
00224      MOVE '-' TO DISP-TEL-FILLER-3.                               DTSBR451
00225      MOVE WS-UNIT-SUFFIX TO DISP-TEL-SUFFIX.                      DTSBR451
00226                                                                   DTSBR451
00227      MOVE R451-MAIL-DATE TO L002-DATE.                            DTSBR451
00228      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR451
00229                                                                   DTSBR451
00230      MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-MAIL-DATE.          DTSBR451
00231                                                                   DTSBR451
00232      MOVE R451-TOTAL-RATE TO L056-RATE.                           DTSBR451
00233      PERFORM S056-DISP1-LEFT-PCT THRU S056-EXIT.                  DTSBR451
00234      MOVE L056-DISP-RATE TO WS-DISP-RATE.                         DTSBR451
00235                                                                   DTSBR451
00236                                                                   DTSBR451
00237      MOVE R451-YRQ TO L008-YRQ.                                   DTSBR451
00238      PERFORM S008-MIXED-CASE THRU S008-EXIT.                      DTSBR451
00239      MOVE L008-YEAR TO HDR-LONG-YEAR DTL-LONG-YEAR.               DTSBR451
00240                                                                   DTSBR451
00241      MOVE R451-DUE-DATE TO L001-FED-8-DATE-9.                     DTSBR451
00242      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR451
00243      MOVE L001-SLASH-8-DATE TO WS-SLASH-DUE-DATE.                 DTSBR451
00244                                                                   DTSBR451
00245      MOVE R451-DUE-DATE TO L002-DATE.                             DTSBR451
00246      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR451
00247                                                                   DTSBR451
00248 *    STRING L002-LONG-TEXT-AREA DELIMITED BY '  '                 DTSBR451
00249 *            ','  DELIMITED BY SIZE                               DTSBR451
00250 *            INTO WS-LONG-TEXT-DUE-DATE.                          DTSBR451
00251                                                                   DTSBR451
00252 *    MOVE DISP-TEL TO RPT-CALL-PHONE.                             DTSBR451
00253                                                                   DTSBR451
00254 *    MOVE R451-RETURN-BY-DATE TO L002-DATE.                       DTSBR451
00255 *    PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR451
00256                                                                   DTSBR451
00257      PERFORM P2000-REPT-HEADER-RTN THRU P2000-EXIT.               DTSBR451
00258                                                                   DTSBR451
00259      MOVE +90 TO L090-DESIRED-LINE-LIMIT.                         DTSBR451
00260      MOVE +3 TO L090-PHRASE-CNT.                                  DTSBR451
00261      MOVE MC-LIT-WAS-DUE-BY TO L090-PHRASE (1).                   DTSBR451
00262      MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (1).                DTSBR451
00263 *    MOVE WS-LONG-TEXT-DUE-DATE TO L090-PHRASE (2).               DTSBR451
00264 *    MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (2).                DTSBR451
00265      MOVE SPACES TO L090-PHRASE (2).                              DTSBR451
00266      STRING L002-LONG-TEXT-AREA DELIMITED BY '  '                 DTSBR451
00267            ','                 DELIMITED BY SIZE                  DTSBR451
00268            INTO L090-PHRASE (2).                                  DTSBR451
00269      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2).               DTSBR451
00270      MOVE MC-LIT-IS-NOW-DEL  TO L090-PHRASE (3).                  DTSBR451
00271      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3).               DTSBR451
00272      PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR451
00273      DISPLAY 'L90 ' L090-PARAGRAPH-LINE-CNT                       DTSBR451
00274      IF (L090-UNSUCCESSFUL-88)                                    DTSBR451
00275               OR                                                  DTSBR451
00276         (L090-PARAGRAPH-LINE-CNT NOT = +1)                        DTSBR451
00277         MOVE 'LOGIC ERROR P1000-1' TO ABEND-MSG                   DTSBR451
00278         PERFORM S999-ABEND THRU S999-EXIT.                        DTSBR451
00279       MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-1.             DTSBR451
00280                                                                   DTSBR451
00281        MOVE +120 TO L090-DESIRED-LINE-LIMIT.                      DTSBR451
00282        MOVE +3 TO L090-PHRASE-CNT.                                DTSBR451
00283        MOVE MC-LIT-NOTICE-TO-US TO L090-PHRASE (1).               DTSBR451
00284        MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1).             DTSBR451
00285        MOVE R451-RETURN-BY-DATE TO L002-DATE.                     DTSBR451
00286        PERFORM S002-MIXED-CASE THRU S002-EXIT.                    DTSBR451
00287        MOVE SPACES TO L090-PHRASE (2).                            DTSBR451
00288        STRING L002-LONG-TEXT-AREA DELIMITED BY '  '               DTSBR451
00289               ','                 DELIMITED BY SIZE               DTSBR451
00290            INTO L090-PHRASE (2).                                  DTSBR451
00291        MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2).             DTSBR451
00292        MOVE MC-LIT-NOTICE-TO-US1 TO L090-PHRASE (3).              DTSBR451
00293        MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3).             DTSBR451
00294        PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.              DTSBR451
00295      DISPLAY 'L91 ' L090-PARAGRAPH-LINE-CNT                       DTSBR451
00296         IF (L090-UNSUCCESSFUL-88)                                 DTSBR451
00297                   OR                                              DTSBR451
00298            (L090-PARAGRAPH-LINE-CNT NOT = +1)                     DTSBR451
00299             MOVE 'LOGIC ERROR P1000-3' TO ABEND-MSG               DTSBR451
00300             PERFORM S999-ABEND THRU S999-EXIT.                    DTSBR451
00301         MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-3.           DTSBR451
00302                                                                   DTSBR451
00303      WRITE XEROX-T451RW FROM DTL-LINE-2 AFTER ADVANCING 2 LINE    DTSBR451
00304      WRITE XEROX-T451RW FROM DTL-LINE-3 AFTER ADVANCING 1 LINE    DTSBR451
00305      WRITE XEROX-T451RW FROM DTL-LINE-4 AFTER ADVANCING 1 LINE    DTSBR451
00306 *    WRITE XEROX-T451RW FROM DTL-LINE-5 AFTER ADVANCING 1 LINE    DTSBR451
00307      WRITE XEROX-T451RW FROM DTL-LINE-6 AFTER ADVANCING 1 LINE    DTSBR451
00308      WRITE XEROX-T451RW FROM DTL-LINE-7 AFTER ADVANCING 1 LINE    DTSBR451
00309      WRITE XEROX-T451RW FROM DTL-LINE-8 AFTER ADVANCING 1 LINE    DTSBR451
00310      WRITE XEROX-T451RW FROM DTL-LINE-9 AFTER ADVANCING 1 LINE    DTSBR451
00311      WRITE XEROX-T451RW FROM DTL-LINE-11 AFTER ADVANCING 2 LINE   DTSBR451
00312      WRITE XEROX-T451RW FROM DTL-LINE-12 AFTER ADVANCING 1 LINE.  DTSBR451
00313                                                                   DTSBR451
00314      PERFORM P3000-SELF-MAILER-RTN THRU P3000-EXIT.               DTSBR451
00315  P1000-EXIT.                                                      DTSBR451
00316      EXIT.                                                        DTSBR451
00317      EJECT                                                        DTSBR451
00318  P2000-REPT-HEADER-RTN.                                           DTSBR451
00319 *RW1                                                              DTSBR451
00320 *    MOVE R451-EMP-NO       TO BARC-EMP-NO.                       DTSBR451
00321 *    PERFORM S599-BARCODE   THRU S599-EXIT.                       DTSBR451
00322 *                                                                 DTSBR451
00323 *    IF L599-SETB-FONT1                                           DTSBR451
00324 *       MOVE 'MODIFY=TAXSM1,' TO XEROX-CME                        DTSBR451
00325 *    ELSE                                                         DTSBR451
00326 *    IF L599-SETB-FONT2                                           DTSBR451
00327 *       MOVE 'MODIFY=TAXSM2,' TO XEROX-CME                        DTSBR451
00328 *    ELSE                                                         DTSBR451
00329 *       MOVE 'MODIFY=TAXSM1,' TO XEROX-CME.                       DTSBR451
00330                                                                   DTSBR451
00331      WRITE XEROX-T451RW     FROM XEROX-CNTL-LINE18                DTSBR451
00332             AFTER ADVANCING TOP-OF-PAGE.                          DTSBR451
00333      WRITE XEROX-T451RW     FROM XEROX-CNTL-LINE20.               DTSBR451
00334      WRITE XEROX-T451RW FROM VSCA-LINE   AFTER  5 LINE.           DTSBR451
00335                                                                   DTSBR451
00336      WRITE XEROX-T451RW FROM HDR-LINE-10 AFTER  5 LINE.           DTSBR451
00337      WRITE XEROX-T451RW FROM HDR-LINE-11 AFTER  2 LINE.           DTSBR451
00338      WRITE XEROX-T451RW FROM HDR-LINE-12 AFTER  1 LINE.           DTSBR451
00339      WRITE XEROX-T451RW FROM HDR-LINE-13 AFTER  1 LINE.           DTSBR451
00340      WRITE XEROX-T451RW FROM HDR-LINE-14 AFTER  1 LINE.           DTSBR451
00341      WRITE XEROX-T451RW FROM HDR-LINE-15 AFTER  1 LINE.           DTSBR451
00342      WRITE XEROX-T451RW FROM HDR-LINE-16 AFTER  2 LINE.           DTSBR451
00343  P2000-EXIT.                                                      DTSBR451
00344      EXIT.                                                        DTSBR451
00345      EJECT                                                        DTSBR451
00346  P3000-SELF-MAILER-RTN.                                           DTSBR451
00347 *RW1                                                              DTSBR451
00348      MOVE L599-BARCODED-DATA  TO CONVERTED-BARCODE.               DTSBR451
00349      WRITE XEROX-T451RW  FROM BLANK-LINE                          DTSBR451
00350                       AFTER ADVANCING TOP-OF-PAGE.                DTSBR451
00351 *    WRITE XEROX-T451RW FROM WS-BARC-LINE AFTER 04.               DTSBR451
00352 *                                                                 DTSBR451
00353      WRITE XEROX-T451RW FROM VSCA-LINE  AFTER ADVANCING 16 LINE.  DTSBR451
00354 *    WRITE XEROX-T451RW FROM MAIL-ADDR1 AFTER ADVANCING 6 LINE.   DTSBR451
00355      WRITE XEROX-T451RW  FROM MAIL-ADDR1 AFTER 1  LINE.           DTSBR451
00356 *RW2                                                              DTSBR451
00357      WRITE XEROX-T451RW  FROM MAIL-ADDR2 AFTER 1 LINE.            DTSBR451
00358      WRITE XEROX-T451RW  FROM MAIL-ADDR3 AFTER 1 LINE.            DTSBR451
00359      WRITE XEROX-T451RW  FROM MAIL-ADDR4 AFTER 1 LINE.            DTSBR451
00360      WRITE XEROX-T451RW  FROM MAIL-ADDR5 AFTER 1 LINE.            DTSBR451
00361                                                                   DTSBR451
00362  P3000-EXIT.                                                      DTSBR451
00363      EXIT.                                                        DTSBR451
00364      EJECT                                                        DTSBR451
00365                                                                   DTSBR451
00366                                                                   DTSBR451
00367  T1000-TERMINATE.                                                 DTSBR451
00368      CLOSE PRT-FILE.                                              DTSBR451
00369  T1000-EXIT.                                                      DTSBR451
00370      EXIT.                                                        DTSBR451
00371      EJECT                                                        DTSBR451
00372  S001-FROM-FED-8.                                                 DTSBR451
00373      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR451
00374      GO TO S001-DATE.                                             DTSBR451
00375                                                                   DTSBR451
00376  S001-DATE.                                                       DTSBR451
00377      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR451
00378  S001-EXIT.                                                       DTSBR451
00379      EXIT.                                                        DTSBR451
00380      SKIP3                                                        DTSBR451
00381  S002-UPPER-CASE.                                                 DTSBR451
00382      SET L002-UPPER-CASE TO TRUE.                                 DTSBR451
00383      GO TO S002-DATE-ALPHA.                                       DTSBR451
00384                                                                   DTSBR451
00385  S002-MIXED-CASE.                                                 DTSBR451
00386      SET L002-MIXED-CASE TO TRUE.                                 DTSBR451
00387      GO TO S002-DATE-ALPHA.                                       DTSBR451
00388                                                                   DTSBR451
00389  S002-DATE-ALPHA.                                                 DTSBR451
00390      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR451
00391  S002-EXIT.                                                       DTSBR451
00392      EXIT.                                                        DTSBR451
00393      SKIP3                                                        DTSBR451
00394  S004-FROM-5.                                                     DTSBR451
00395      SET L004-FROM-5 TO TRUE.                                     DTSBR451
00396      GO TO S004-QUARTER.                                          DTSBR451
00397                                                                   DTSBR451
00398  S004-QUARTER.                                                    DTSBR451
00399      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR451
00400  S004-EXIT.                                                       DTSBR451
00401      EXIT.                                                        DTSBR451
00402      SKIP3                                                        DTSBR451
00403  S008-UPPER-CASE.                                                 DTSBR451
00404      SET L008-UPPER-CASE TO TRUE.                                 DTSBR451
00405      GO TO S008-QUARTER-ALPHA.                                    DTSBR451
00406                                                                   DTSBR451
00407  S008-MIXED-CASE.                                                 DTSBR451
00408      SET L008-MIXED-CASE TO TRUE.                                 DTSBR451
00409      GO TO S008-QUARTER-ALPHA.                                    DTSBR451
00410                                                                   DTSBR451
00411  S008-QUARTER-ALPHA.                                              DTSBR451
00412      CALL 'DTSBU008' USING L008-LINK-AREA.                        DTSBR451
00413  S008-EXIT.                                                       DTSBR451
00414      EXIT.                                                        DTSBR451
00415      SKIP3                                                        DTSBR451
00416  S056-DISP1-LEFT-PCT.                                             DTSBR451
00417      SET L056-DISP1-LEFT-PCT-88 TO TRUE.                          DTSBR451
00418      GO TO S056-RATE-DISPLAY.                                     DTSBR451
00419                                                                   DTSBR451
00420  S056-RATE-DISPLAY.                                               DTSBR451
00421      CALL 'DTSBU056' USING L056-LINK-AREA.                        DTSBR451
00422  S056-EXIT.                                                       DTSBR451
00423      EXIT.                                                        DTSBR451
00424      SKIP3                                                        DTSBR451
00425  S090-PARAGRAPH-FORMAT.                                           DTSBR451
00426       MOVE +0 TO L090-INDENT.                                     DTSBR451
00427       SET L090-SPECIAL-CHAR-STD-88 TO TRUE.                       DTSBR451
00428                                                                   DTSBR451
00429       CALL 'DTSBU090' USING L090-LINK-AREA.                       DTSBR451
00430  S090-EXIT.                                                       DTSBR451
00431       EXIT.                                                       DTSBR451
00432       SKIP3                                                       DTSBR451
00433  S119-REQ-CAPS.                                                   DTSBR451
00434      SET L119-REQ-CAPS-88 TO TRUE.                                DTSBR451
00435      GO TO S119-AGENCY-FACTS.                                     DTSBR451
00436                                                                   DTSBR451
00437  S119-REQ-MIXED.                                                  DTSBR451
00438      SET L119-REQ-MIXED-88 TO TRUE.                               DTSBR451
00439      GO TO S119-AGENCY-FACTS.                                     DTSBR451
00440                                                                   DTSBR451
00441  S119-AGENCY-FACTS.                                               DTSBR451
00442      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR451
00443  S119-EXIT.                                                       DTSBR451
00444      EXIT.                                                        DTSBR451
00445      SKIP3                                                        DTSBR451
00446  S599-BARCODE.                                                    DTSBR451
00447      MOVE CONVERT-BARCODE-LINE           TO L599-INPUT-DATA.      DTSBR451
00448      MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH.      DTSBR451
00449      MOVE 'TAX'                          TO L599-SYSTEM.          DTSBR451
00450                                                                   DTSBR451
00451      CALL 'DTSBU599' USING BARI-LINK-AREA.                        DTSBR451
00452                                                                   DTSBR451
00453      IF L599-NOT-CONVERTED                                        DTSBR451
00454       PERFORM S999-ABEND  THRU S999-EXIT.                         DTSBR451
00455  S599-EXIT.                                                       DTSBR451
00456      EXIT.                                                        DTSBR451
00457      SKIP3                                                        DTSBR451
00458  S999-ABEND.                                                      DTSBR451
00459      DISPLAY '***'.                                               DTSBR451
00460      DISPLAY '***  '                                              DTSBR451
00461              ABEND-MSG.                                           DTSBR451
00462      DISPLAY '***'.                                               DTSBR451
00463                                                                   DTSBR451
00464      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR451
00465  S999-EXIT.                                                       DTSBR451
00466      EXIT.                                                        DTSBR451
00467                                                                   DTSBR451
