00001  IDENTIFICATION DIVISION.                                         02/21/20
00002  PROGRAM-ID.             DTSBR417.                                DTSBR417
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV012
00004                          MODIFIED BY TRW S&ITG.                   DTSBR417
00005  DATE-WRITTEN.           JANUARY 1995.                            DTSBR417
00006  DATE-COMPILED.                                                   DTSBR417
00007      SKIP3                                                        DTSBR417
00008 *****                                                             DTSBR417
00009 *                                                                 DTSBR417
00010 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBR417
00011 *                       DTSBE417 WHICH UPDATES DTSIR417           DTSBR417
00012 *                       DTSBR417 READS DTSIR417 RECORDS.          DTSBR417
00013 *                                                                 DTSBR417
00014 *    FUNCTION:  MISSING QUARTERLY REPORT NOTICE.                  DTSBR417
00015 *                                                                 DTSBR417
00016 *                                                                 DTSBR417
00017 *    MODIFICATION HISTORY:                                        DTSBR417
00018 *                                                                 DTSBR417
00019 * 01-12-95 INITIAL DEVELOPMENT                                    DTSBR417
00020 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - EHH  DTSBR417
00021 *                                                                 DTSBR417
00022 * 11-28-97 RECOMPILED FOR MODIFIED DTSIL119.                      DTSBR417
00023 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - EHH  DTSBR417
00024 *                                                                 DTSBR417
00025 *                                                                    CL**2
00026 * 03-25-15 RECOMPILED FOR NEW VERSION OF DELINQUENCY LETTER          CL**2
00027 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - ZL1     CL**2
00028 *                                                                    CL**2
00029 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR417
00030 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR417
00031 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR417
00032 *                                                                 DTSBR417
00033 *                                                                 DTSBR417
00034 *    DESCRIPTION:                                                 DTSBR417
00035 *                                                                 DTSBR417
00036 *        THIS MODULE PRINTS A "DELINQUENT REPORT NOTICE".         DTSBR417
00037 *                                                                 DTSBR417
00038 *                                                                 DTSBR417
00039 *    RECORDS READ:                                                DTSBR417
00040 *                                                                 DTSBR417
00041 *        NONE.                                                    DTSBR417
00042 *                                                                 DTSBR417
00043 *                                                                 DTSBR417
00044 *    PRINTED OUTPUTS:                                             DTSBR417
00045 *                                                                 DTSBR417
00046 *        417R1  DELINQUENT REPORT NOTICE.                         DTSBR417
00047 *                                                                 DTSBR417
00048 *                                                                 DTSBR417
00049 *    RECORDS WRITTEN:                                             DTSBR417
00050 *                                                                 DTSBR417
00051 *        NONE.                                                    DTSBR417
00052 *                                                                 DTSBR417
00053 *                                                                 DTSBR417
00054 *    MODULES CALLED:                                              DTSBR417
00055 *                                                                 DTSBR417
00056 *        DTSBU002  DATE ALPHA CONVERSION MODULE.                  DTSBR417
00057 *        DTSBU004  YEAR/QUARTER CONVERSION.                       DTSBR417
00058 *        DTSBU008  DISPLAY QUARTER IN TEXT FORMAT.                DTSBR417
00059 *        DTSBU056  RATE DISPLAY.                                  DTSBR417
00060 *        DTSBU090  PARAGRAPH FORMATTING MODULE.                   DTSBR417
00061 *        DTSBU119  AGENCY FACTS.                                  DTSBR417
00062 *                                                                 DTSBR417
00063 *                                                                 DTSBR417
00064 *****                                                             DTSBR417
00065      EJECT                                                        DTSBR417
00066  ENVIRONMENT DIVISION.                                            DTSBR417
00067                                                                   DTSBR417
00068  CONFIGURATION SECTION.                                           DTSBR417
00069  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR417
00070                                                                   DTSBR417
00071  INPUT-OUTPUT SECTION.                                            DTSBR417
00072                                                                   DTSBR417
00073  FILE-CONTROL.                                                    DTSBR417
00074      SELECT PRT-FILE ASSIGN TO RPT417R1.                          DTSBR417
00075                                                                   DTSBR417
00076  DATA DIVISION.                                                   DTSBR417
00077                                                                   DTSBR417
00078  FILE SECTION.                                                    DTSBR417
00079                                                                   DTSBR417
00080  FD  PRT-FILE                                                     DTSBR417
00081      RECORDING MODE IS F                                          DTSBR417
00082      BLOCK CONTAINS 0 RECORDS                                     DTSBR417
00083      LABEL RECORDS ARE OMITTED.                                   DTSBR417
00084                                                                   DTSBR417
00085  01  XEROX-REPORT.                                                DTSBR417
00086      05  FILLER                      PIC X(1).                    DTSBR417
00087      05  XEROX-RPT                   PIC X(132).                  DTSBR417
00088                                                                   DTSBR417
00089      EJECT                                                        DTSBR417
00090  WORKING-STORAGE SECTION.                                         DTSBR417
000905 77  PAN-VALET PICTURE X(24) VALUE '012DTSBR417  02/21/20'.       DTSBR417
00091  77  PAN-VALET PICTURE X(24) VALUE '054DTSBR417  02/26/14'.       DTSBR417
00092  77  PAN-VALET PICTURE X(24) VALUE '024DTSBR417  02/04/14'.       DTSBR417
00093  77  PAN-VALET PICTURE X(24) VALUE '052DTSBR417  11/14/13'.       DTSBR417
00094  77  PAN-VALET PICTURE X(24) VALUE '010DTSBR417  11/14/13'.       DTSBR417
00095  77  PAN-VALET PICTURE X(24) VALUE '050DTSBR417  06/03/13'.       DTSBR417
00096  77  PAN-VALET PICTURE X(24) VALUE '001DTSBR417  04/12/13'.       DTSBR417
00097  77  PAN-VALET PICTURE X(24) VALUE '048DTSBR417  04/03/13'.       DTSBR417
00098  77  PAN-VALET PICTURE X(24) VALUE '026DTSBR417  03/29/13'.       DTSBR417
00099                                                                   DTSBR417
00100  01  WRK-AREA.                                                    DTSBR417
00101      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +417.DTSBR417
00102      05  WRK-COUNTER                 PIC  9(1).                   DTSBR417
00103      05  WS-YRQ-UNPACK               PIC  9(5)   VALUE 0.         DTSBR417
00104                                                                   DTSBR417
00105      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR417
00106                                                                   DTSBR417
00107      05  ABEND-MSG                   PIC  X(60).                  DTSBR417
00108                                                                   DTSBR417
00109      05  WS-UNIT-TEL.                                             DTSBR417
00110          10  WS-UNIT-AREA-CD         PIC  X(03).                  DTSBR417
00111          10  WS-UNIT-PREFIX          PIC  X(03).                  DTSBR417
00112          10  WS-UNIT-SUFFIX          PIC  X(04).                  DTSBR417
00113          10  WS-UNIT-EXTENSION       PIC  X(04).                  DTSBR417
00114                                                                   DTSBR417
00115      05  DISP-TEL.                                                DTSBR417
00116          10  DISP-TEL-FILLER-1       PIC  X(01)  VALUE '('.       DTSBR417
00117          10  DISP-TEL-AREA-CD        PIC  X(03).                  DTSBR417
00118          10  DISP-TEL-FILLER-2       PIC  X(02)  VALUE ') '.      DTSBR417
00119          10  DISP-TEL-PREFIX         PIC  X(03).                  DTSBR417
00120          10  DISP-TEL-FILLER-3       PIC  X(01)  VALUE '-'.       DTSBR417
00121          10  DISP-TEL-SUFFIX         PIC  X(04).                  DTSBR417
00122          10  FILLER                  PIC  X(01)  VALUE '.'.       DTSBR417
00123                                                                   DTSBR417
00124      05  WS-START-POS                PIC S9(04)  COMP.            DTSBR417
00125                                                                   DTSBR417
00126 *    05  WS-LONG-TEXT-MAIL-DATE      PIC  X(18).                  DTSBR417
00127                                                                   DTSBR417
00128      05  WS-UC-SHORT-MONTHS.                                      DTSBR417
00129          10  WS-UC-SHORT-MONTH-1     PIC  X(03).                  DTSBR417
00130          10  WS-UC-SHORT-MONTH-2     PIC  X(03).                  DTSBR417
00131          10  WS-UC-SHORT-MONTH-3     PIC  X(03).                  DTSBR417
00132                                                                   DTSBR417
00133      05  WS-MC-QTR-LONG-DSCR         PIC  X(06).                  DTSBR417
00134                                                                   DTSBR417
00135      05  WS-SHORT-YEAR               PIC  X(02).                  DTSBR417
00136                                                                   DTSBR417
00137      05  WS-LONG-YEAR                PIC  X(04).                  DTSBR417
00138                                                                   DTSBR417
00139 *    05  WS-DISP-RATE                PIC  X(07).                  DTSBR417
00140                                                                   DTSBR417
00141 *    05  WS-SLASH-DUE-DATE           PIC  X(10).                  DTSBR417
00142                                                                   DTSBR417
00143      05  WS-LONG-TEXT-DUE-DATE       PIC  X(18).                  DTSBR417
00144                                                                   DTSBR417
00145 *    05  WS-TEXT-LINE-1              PIC  X(70).                  DTSBR417
00146                                                                   DTSBR417
00147 *    05  WS-TEXT-LINE-2              PIC  X(33).                  DTSBR417
00148                                                                   DTSBR417
00149 *    05  WS-TEXT-LINE-3A             PIC  X(70).                  DTSBR417
00150                                                                   DTSBR417
00151 *    05  WS-TEXT-LINE-3B             PIC  X(70).                  DTSBR417
00152                                                                   DTSBR417
00153 *    05  WS-TEXT-LINE-3C             PIC  X(70).                  DTSBR417
00154                                                                   DTSBR417
00155 *    05  WS-TEXT-LINE-4              PIC  X(70).                  DTSBR417
00156                                                                   DTSBR417
00157      05  DETAIL-2-LINE-CNT           PIC S9(04)  COMP.            DTSBR417
00158                                                                   DTSBR417
00159      05  DETAIL-2-BLANK-LINE-CNT     PIC S9(04)  COMP.            DTSBR417
00160                                                                   DTSBR417
00161      05  WS-YRQ-SUB                  PIC S9(04)  COMP.            DTSBR417
00162      05  ADDR-FMT-AREA               PIC X(200).                  DTSBR417
00163      05  ADDR-FMT-AREA-X REDEFINES ADDR-FMT-AREA.                 DTSBR417
00164          10  ADDR-FMT-LINE OCCURS 5 TIMES PIC X(40).              DTSBR417
00165                                                                   DTSBR417
00166      05  WS-REC                      PIC  X(132) VALUE SPACES.    DTSBR417
00167  01  VSCA-LINE.                                                   DTSBR417
00168      05  VSCA-DATA                   PIC X(133) VALUE SPACES.     DTSBR417
00169                                                                   DTSBR417
00170      EJECT                                                        DTSBR417
00171  01  MIXED-CASE-LITERALS.                                         DTSBR417
00172  ++INCLUDE DTSIZ41D                                               DTSBR417
00173      EJECT                                                        DTSBR417
00174  01  L001-LINK-AREA.                                              DTSBR417
00175  ++INCLUDE DTSIL001                                               DTSBR417
00176      EJECT                                                        DTSBR417
00177  01  L002-LINK-AREA.                                              DTSBR417
00178  ++INCLUDE DTSIL002                                               DTSBR417
00179      EJECT                                                        DTSBR417
00180  01  L004-LINK-AREA.                                              DTSBR417
00181  ++INCLUDE DTSIL004                                               DTSBR417
00182      EJECT                                                        DTSBR417
00183  01  L008-LINK-AREA.                                              DTSBR417
00184  ++INCLUDE DTSIL008                                               DTSBR417
00185      EJECT                                                        DTSBR417
00186  01  L056-LINK-AREA.                                              DTSBR417
00187  ++INCLUDE DTSIL056                                               DTSBR417
00188      EJECT                                                        DTSBR417
00189  01  L090-LINK-AREA.                                              DTSBR417
00190  ++INCLUDE DTSIL090                                               DTSBR417
00191      EJECT                                                        DTSBR417
00192  01  L119-LINK-AREA.                                              DTSBR417
00193  ++INCLUDE DTSIL119                                               DTSBR417
00194      EJECT                                                        DTSBR417
00195  ++INCLUDE DTSIZ41C                                               DTSBR417
00196      SKIP3                                                        DTSBR417
00197  ++INCLUDE DTSXL417                                               DTSBR417
00198      SKIP3                                                        DTSBR417
00199 *RW1                                                              DTSBR417
00200  01  CONVERT-BARCODE-LINE.                                        DTSBR417
00201      05  BARC-EMP-NO             PIC  9(06)  VALUE ZEROS.         DTSBR417
00202                                                                   DTSBR417
00203  01  WS-BARC-LINE.                                                DTSBR417
00204      05  FILLER                  PIC  X(40)  VALUE SPACES.        DTSBR417
00205      05  CONVERTED-BARCODE       PIC  X(50).                      DTSBR417
00206      05  FILLER                  PIC  X(30)  VALUE SPACES.        DTSBR417
00207                                                                   DTSBR417
00208  01  BARI-LINK-AREA.                                              DTSBR417
00209  ++INCLUDE BARIL599                                               DTSBR417
00210      SKIP3                                                        DTSBR417
00211 *RW2                                                              DTSBR417
00212      EJECT                                                        DTSBR417
00213  LINKAGE SECTION.                                                 DTSBR417
00214      SKIP3                                                        DTSBR417
00215  01  LRCM-LINK-AREA.                                              DTSBR417
00216  ++INCLUDE DTSILRCM                                               DTSBR417
00217      EJECT                                                        DTSBR417
00218  01  R417-REC.                                                    DTSBR417
00219  ++INCLUDE DTSIR417                                               DTSBR417
00220      EJECT                                                        DTSBR417
00221  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR417
00222                           R417-REC.                               DTSBR417
00223      SKIP2                                                        DTSBR417
00224      IF FIRST-TIME-IND = 'Y'                                      DTSBR417
00225          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR417
00226          MOVE 'N' TO FIRST-TIME-IND                               DTSBR417
00227          MOVE 0 TO WRK-COUNTER.                                   DTSBR417
00228                                                                   DTSBR417
00229 *BO  IF WRK-COUNTER > 1                                           DTSBR417
00230 *        GOBACK.                                                  DTSBR417
00231                                                                   DTSBR417
00232      IF LRCM-EOR-88                                               DTSBR417
00233          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR417
00234      ELSE                                                         DTSBR417
00235          ADD 1 TO WRK-COUNTER                                     DTSBR417
00236          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR417
00237      SKIP2                                                        DTSBR417
00238      GOBACK.                                                      DTSBR417
00239      EJECT                                                        DTSBR417
00240  I1000-INITIATE.                                                  DTSBR417
00241                                                                   DTSBR417
00242      OPEN OUTPUT PRT-FILE.                                        DTSBR417
00243      MOVE SPACES TO XEROX-REPORT.                                 DTSBR417
00244                                                                   DTSBR417
00245      WRITE XEROX-REPORT     FROM VSCA-LINE                        DTSBR417
00246          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR417
00247      WRITE XEROX-REPORT     FROM VSCA-LINE AFTER ADVANCING 11.    DTSBR417
00248      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE13                DTSBR417
00249      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE14.               DTSBR417
00250      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE15.               DTSBR417
00251      WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE16.               DTSBR417
00252 *    WRITE XEROX-REPORT     FROM ROUTE-INFO-LINE17.               DTSBR417
00253 *    WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE18.               DTSBR417
00254 *    WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE19.               DTSBR417
00255 *    WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE20.               DTSBR417
00256                                                                   DTSBR417
00257 *BO  SET L119-REQ-DEL-RPT-88 TO TRUE.                             DTSBR417
00258      SET L119-REQ-COLLECTIONS-88 TO TRUE.                         DTSBR417
00259      PERFORM S119-REQ-MIXED THRU S119-EXIT.                       DTSBR417
00260      MOVE L119-UNIT-VOICE TO WS-UNIT-TEL.                         DTSBR417
00261  I1000-EXIT.                                                      DTSBR417
00262      EXIT.                                                        DTSBR417
00263      EJECT                                                        DTSBR417
00264  P1000-PROCESS.                                                   DTSBR417
00265      DISPLAY 'EMP NO ' R417-EMP-NO.                               DTSBR417
00266 *    MOVE '(' TO DISP-TEL-FILLER-1.                               DTSBR417
00267 *    MOVE WS-UNIT-AREA-CD TO DISP-TEL-AREA-CD.                    DTSBR417
00268 *    MOVE ') ' TO DISP-TEL-FILLER-2.                              DTSBR417
00269 *    MOVE WS-UNIT-PREFIX TO DISP-TEL-PREFIX.                      DTSBR417
00270 *    MOVE '-' TO DISP-TEL-FILLER-3.                               DTSBR417
00271 *    MOVE WS-UNIT-SUFFIX TO DISP-TEL-SUFFIX.                      DTSBR417
00272 **   MOVE DISP-TEL      TO WS-TEXT-LINE-2.                        DTSBR417
00273 *    MOVE 20151020 TO R417-MAIL-DATE.                                CL**4
00274 *    MOVE 20151030 TO R417-RETURN-BY-DATE.                           CL**4
00275      DISPLAY ' MAIL DTE ' R417-MAIL-DATE                             CL*12
00276      MOVE ZEROS          TO L002-DATE.                               CL*12
00277      MOVE R417-MAIL-DATE TO L002-DATE.                            DTSBR417
00278      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR417
00279                                                                   DTSBR417
00280      COMPUTE WS-START-POS = (18 - L002-LONG-TEXT-CNT) / 2.        DTSBR417
00281                                                                   DTSBR417
00282      ADD +1 TO WS-START-POS.                                      DTSBR417
00283                                                                   DTSBR417
00284      IF (WS-START-POS > +0)                                       DTSBR417
00285            AND                                                    DTSBR417
00286         (WS-START-POS < +18)                                      DTSBR417
00287          MOVE SPACES TO WS-LONG-TEXT-MAIL-DATE                    DTSBR417
00288          MOVE L002-LONG-TEXT-AREA                                 DTSBR417
00289            TO WS-LONG-TEXT-MAIL-DATE (WS-START-POS:)              DTSBR417
00290      ELSE                                                         DTSBR417
00291           MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-MAIL-DATE.     DTSBR417
00292      DISPLAY 'LONG MAIL DATE: '  WS-LONG-TEXT-MAIL-DATE.             CL*12
00293                                                                   DTSBR417
00294      MOVE R417-TOTAL-RATE TO L056-RATE.                           DTSBR417
00295      PERFORM S056-DISP1-LEFT-PCT THRU S056-EXIT.                  DTSBR417
00296      MOVE L056-DISP-RATE TO WS-DISP-RATE.                         DTSBR417
00297                                                                   DTSBR417
00298      MOVE R417-YRQ TO L008-YRQ.                                   DTSBR417
00299      PERFORM S008-UPPER-CASE THRU S008-EXIT.                      DTSBR417
00300      MOVE L008-SHORT-MONTHS TO WS-UC-SHORT-MONTHS.                DTSBR417
00301                                                                   DTSBR417
00302      PERFORM S008-MIXED-CASE THRU S008-EXIT.                      DTSBR417
00303 *    MOVE L008-SHORT-DSCR TO DTL-UC-SHORT-QTR-3.                     CL**9
00304                                                                   DTSBR417
00305      MOVE L008-YEAR (3:2) TO WS-SHORT-YEAR.                       DTSBR417
00306                                                                   DTSBR417
00307 *    MOVE L008-YEAR TO WS-LONG-YEAR DTL-LONG-YEAR3.                  CL**9
00308      MOVE L008-YEAR TO WS-LONG-YEAR.                                 CL*10
00309                                                                   DTSBR417
00310      MOVE R417-DUE-DATE TO L001-FED-8-DATE-9.                     DTSBR417
00311      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR417
00312      MOVE L001-SLASH-8-DATE TO WS-SLASH-DUE-DATE.                 DTSBR417
00313                                                                   DTSBR417
00314 *    MOVE 20130731 TO R417-DUE-DATE.                              DTSBR417
00315      DISPLAY ' DUE DATE ' R417-DUE-DATE                           DTSBR417
00316      MOVE R417-DUE-DATE TO L002-DATE.                             DTSBR417
00317      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR417
00318 *    MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-DUE-DATE.           DTSBR417
00319                                                                   DTSBR417
00320      PERFORM P3000-PRINT-HEADER THRU P3000-EXIT.                  DTSBR417
00321                                                                   DTSBR417
00322      MOVE +130 TO L090-DESIRED-LINE-LIMIT.                        DTSBR417
00323      MOVE +3 TO L090-PHRASE-CNT.                                  DTSBR417
00324      MOVE MC-LIT-WAS-DUE-BY TO L090-PHRASE (1).                   DTSBR417
00325      MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (1).                DTSBR417
00326 *    MOVE WS-LONG-TEXT-DUE-DATE TO L090-PHRASE (2).               DTSBR417
00327 *    MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (2).                DTSBR417
00328      MOVE SPACES TO L090-PHRASE (2).                              DTSBR417
00329      STRING L002-LONG-TEXT-AREA DELIMITED BY '  '                 DTSBR417
00330             '.'                 DELIMITED BY SIZE                 DTSBR417
00331          INTO L090-PHRASE (2).                                    DTSBR417
00332      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2).               DTSBR417
00333      MOVE MC-LIT-IS-NOW-DEL  TO L090-PHRASE (3).                  DTSBR417
00334      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3).               DTSBR417
00335      PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR417
00336      DISPLAY 'L90 ' L090-PARAGRAPH-LINE-CNT                       DTSBR417
00337      IF (L090-UNSUCCESSFUL-88)                                    DTSBR417
00338            OR                                                     DTSBR417
00339         (L090-PARAGRAPH-LINE-CNT NOT = +1)                        DTSBR417
00340          MOVE 'LOGIC ERROR P1000-1' TO ABEND-MSG                  DTSBR417
00341          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR417
00342 *    MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-1.                 CL**7
00343                                                                   DTSBR417
00344                                                                   DTSBR417
00345      MOVE +130 TO L090-DESIRED-LINE-LIMIT.                        DTSBR417
00346      MOVE +3 TO L090-PHRASE-CNT.                                  DTSBR417
00347      MOVE MC-LIT-NOTICE-TO-US TO L090-PHRASE (1).                 DTSBR417
00348      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1).               DTSBR417
00349      SET L004-FROM-5     TO TRUE.                                 DTSBR417
00350      MOVE R417-YRQ       TO WS-YRQ-UNPACK.                        DTSBR417
00351      MOVE WS-YRQ-UNPACK  TO L004-QTR-5-AREA.                      DTSBR417
00352      PERFORM S004-FROM-5   THRU S004-EXIT.                        DTSBR417
00353      MOVE L004-QTR-END-DATE   TO L002-DATE.                       DTSBR417
00354                                                                   DTSBR417
00355      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR417
00356      MOVE SPACES TO L090-PHRASE (2).                              DTSBR417
00357      STRING L002-LONG-TEXT-AREA DELIMITED BY '  '                 DTSBR417
00358             ','                 DELIMITED BY SIZE                 DTSBR417
00359          INTO L090-PHRASE (2).                                    DTSBR417
00360      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2).               DTSBR417
00361      MOVE MC-LIT-NOTICE-TO-US1 TO L090-PHRASE (3).                DTSBR417
00362      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3).               DTSBR417
00363      PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR417
00364      DISPLAY 'L903 ' L090-PARAGRAPH-LINE-CNT                      DTSBR417
00365       DISPLAY ' LIN ' L090-PARAGRAPH-LINE (1)                     DTSBR417
00366      IF (L090-UNSUCCESSFUL-88)                                    DTSBR417
00367                OR                                                 DTSBR417
00368         (L090-PARAGRAPH-LINE-CNT NOT = +1)                        DTSBR417
00369          MOVE 'LOGIC ERROR P1000-3' TO ABEND-MSG                  DTSBR417
00370          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR417
00371 *    MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-3.                 CL**7
00372                                                                   DTSBR417
00373                                                                   DTSBR417
00374      MOVE +130 TO L090-DESIRED-LINE-LIMIT.                        DTSBR417
00375      MOVE +3 TO L090-PHRASE-CNT.                                  DTSBR417
00376      MOVE MC-LIT-NOTICE-TO-US2 TO L090-PHRASE (1).                DTSBR417
00377      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1).               DTSBR417
00378      DISPLAY ' RTN BYE DATE ' R417-RETURN-BY-DATE.                DTSBR417
00379      MOVE R417-RETURN-BY-DATE TO L002-DATE.                       DTSBR417
00380      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR417
00381      MOVE SPACES TO L090-PHRASE (2).                              DTSBR417
00382      STRING L002-LONG-TEXT-AREA DELIMITED BY '  '                 DTSBR417
00383             ','                 DELIMITED BY SIZE                 DTSBR417
00384          INTO L090-PHRASE (2).                                    DTSBR417
00385      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2).               DTSBR417
00386      MOVE MC-LIT-NOTICE-TO-US3 TO L090-PHRASE (3).                DTSBR417
00387      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (3).               DTSBR417
00388      PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR417
00389      DISPLAY 'L904 ' L090-PARAGRAPH-LINE-CNT                      DTSBR417
00390       DISPLAY ' LIN ' L090-PARAGRAPH-LINE (1)                     DTSBR417
00391      IF (L090-UNSUCCESSFUL-88)                                    DTSBR417
00392                OR                                                 DTSBR417
00393         (L090-PARAGRAPH-LINE-CNT NOT = +1)                        DTSBR417
00394          MOVE 'LOGIC ERROR P1000-4' TO ABEND-MSG                  DTSBR417
00395          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR417
00396 *    MOVE L090-PARAGRAPH-LINE (1) TO WS-TEXT-LINE-4.                 CL**7
00397                                                                   DTSBR417
00398      PERFORM P4000-PRINT-DETAIL-1 THRU P4000-EXIT.                DTSBR417
00399                                                                   DTSBR417
00400      MOVE +0 TO DETAIL-2-LINE-CNT.                                DTSBR417
00401                                                                   DTSBR417
00402      PERFORM P2000-SELF-MAILER-RTN THRU P2000-EXIT.               DTSBR417
00403  P1000-EXIT.                                                      DTSBR417
00404      EXIT.                                                        DTSBR417
00405      EJECT                                                        DTSBR417
00406  P2000-SELF-MAILER-RTN.                                           DTSBR417
00407      MOVE R417-FMT-LINE (1) TO WS-ADDR-FMT-LINE-1.                DTSBR417
00408      MOVE R417-FMT-LINE (2) TO WS-ADDR-FMT-LINE-2.                DTSBR417
00409      MOVE R417-FMT-LINE (3) TO WS-ADDR-FMT-LINE-3.                DTSBR417
00410      MOVE R417-FMT-LINE (4) TO WS-ADDR-FMT-LINE-4.                DTSBR417
00411      MOVE R417-FMT-LINE (5) TO WS-ADDR-FMT-LINE-5.                DTSBR417
00412 *RW1                                                              DTSBR417
00413 *    MOVE R417-EMP-NO       TO BARC-EMP-NO.                       DTSBR417
00414 *    PERFORM S599-BARCODE   THRU S599-EXIT.                       DTSBR417
00415 *RW2                                                              DTSBR417
00416      PERFORM P8000-PRINT-VSCA-ADDR THRU P8000-EXIT.               DTSBR417
00417                                                                   DTSBR417
00418  P2000-EXIT.                                                      DTSBR417
00419      EXIT.                                                        DTSBR417
00420      EJECT                                                        DTSBR417
00421  P1100-ADDITIONAL-RPTS.                                           DTSBR417
00422      MOVE +66 TO L090-DESIRED-LINE-LIMIT.                         DTSBR417
00423      MOVE 'ADDITIONAL DELINQUENT REPORTS DUE:'                    DTSBR417
00424        TO L090-PHRASE (1).                                        DTSBR417
00425 *    SET L090-PHRASE-UNDERLINE-88 (1) TO TRUE.                    DTSBR417
00426      SET L090-PHRASE-BOLD-88 (1) TO TRUE.                         DTSBR417
00427      MOVE SPACES TO L090-PHRASE (2).                              DTSBR417
00428      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2).               DTSBR417
00429                                                                   DTSBR417
00430      MOVE +2 TO L090-PHRASE-CNT.                                  DTSBR417
00431                                                                   DTSBR417
00432      PERFORM                                                      DTSBR417
00433        VARYING R417-YRQ-IDX FROM 1 BY 1                           DTSBR417
00434        UNTIL R417-YRQ-IDX > R417-ADDITIONAL-RPT-CNT               DTSBR417
00435          MOVE R417-ADDITIONAL-RPT-YRQ (R417-YRQ-IDX)              DTSBR417
00436            TO L004-QTR-5-9                                        DTSBR417
00437          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBR417
00438          ADD +1 TO L090-PHRASE-CNT                                DTSBR417
00439          MOVE SPACES                                              DTSBR417
00440            TO L090-PHRASE (L090-PHRASE-CNT)                       DTSBR417
00441          MOVE SPACES                                              DTSBR417
00442            TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT)        DTSBR417
00443          SET WS-YRQ-SUB TO R417-YRQ-IDX                           DTSBR417
00444          IF WS-YRQ-SUB = R417-ADDITIONAL-RPT-CNT                  DTSBR417
00445              STRING L004-SLASH-QTR DELIMITED BY SIZE              DTSBR417
00446                     '.'            DELIMITED BY SIZE              DTSBR417
00447                  INTO L090-PHRASE (L090-PHRASE-CNT)               DTSBR417
00448          ELSE                                                     DTSBR417
00449              STRING L004-SLASH-QTR DELIMITED BY SIZE              DTSBR417
00450                     ',' DELIMITED BY SIZE                         DTSBR417
00451                  INTO L090-PHRASE (L090-PHRASE-CNT)               DTSBR417
00452          END-IF                                                   DTSBR417
00453      END-PERFORM.                                                 DTSBR417
00454                                                                   DTSBR417
00455  P3000-PRINT-HEADER.                                              DTSBR417
00456      MOVE R417-EMP-NO       TO BARC-EMP-NO.                       DTSBR417
00457      PERFORM S599-BARCODE   THRU S599-EXIT.                       DTSBR417
00458                                                                   DTSBR417
00459      IF L599-SETB-FONT1                                           DTSBR417
00460         MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME                        DTSBR417
00461      ELSE                                                         DTSBR417
00462      IF L599-SETB-FONT2                                           DTSBR417
00463         MOVE 'MODIFY=TAXSM2,' TO CNTL1-CME                        DTSBR417
00464      ELSE                                                         DTSBR417
00465         MOVE 'MODIFY=TAXSM1,' TO CNTL1-CME.                       DTSBR417
00466                                                                   DTSBR417
00467      MOVE 'MODIFY=CME418,' TO CNTL1-CME.                          DTSBR417
00468      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE18                DTSBR417
00469             AFTER ADVANCING TOP-OF-PAGE.                          DTSBR417
00470 *    WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE19.               DTSBR417
00471      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE20.               DTSBR417
00472                                                                   DTSBR417
00473      MOVE R417-FMT-LINE (1) TO HDR-FMT-LINE-1.                    DTSBR417
00474      MOVE R417-FMT-LINE (2) TO HDR-FMT-LINE-2.                    DTSBR417
00475      MOVE R417-FMT-LINE (3) TO HDR-FMT-LINE-3.                    DTSBR417
00476      MOVE R417-FMT-LINE (4) TO HDR-FMT-LINE-4.                    DTSBR417
00477      MOVE R417-FMT-LINE (5) TO HDR-FMT-LINE-5.                    DTSBR417
00478      MOVE R417-EMP-NO       TO HDR-EMP-NO.                        DTSBR417
00479      MOVE WS-UC-SHORT-MONTH-1 TO HDR-UC-SHORT-MONTH-1.            DTSBR417
00480      MOVE WS-UC-SHORT-MONTH-2 TO HDR-UC-SHORT-MONTH-2.            DTSBR417
00481      MOVE WS-UC-SHORT-MONTH-3 TO HDR-UC-SHORT-MONTH-3.            DTSBR417
00482      MOVE WS-LONG-YEAR        TO HDR-LONG-YEAR.                   DTSBR417
00483 *    WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR417
00484      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 8  LINE.   DTSBR417
00485 *    WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 10 LINE.   DTSBR417
00486      WRITE XEROX-REPORT FROM HDR-LINE-10 AFTER ADVANCING 1 LINE.     CL**8
00487      WRITE XEROX-REPORT FROM HDR-LINE-11 AFTER ADVANCING 2 LINE.     CL**8
00488      WRITE XEROX-REPORT FROM HDR-LINE-12 AFTER ADVANCING 1 LINE.  DTSBR417
00489      WRITE XEROX-REPORT FROM HDR-LINE-13 AFTER ADVANCING 1 LINE.  DTSBR417
00490      WRITE XEROX-REPORT FROM HDR-LINE-14 AFTER ADVANCING 1 LINE.  DTSBR417
00491      WRITE XEROX-REPORT FROM HDR-LINE-15 AFTER ADVANCING 1 LINE.  DTSBR417
00492 *    WRITE XEROX-REPORT FROM HDR-LINE-16 AFTER ADVANCING 1 LINE.  DTSBR417
00493 *    WRITE XEROX-REPORT FROM HDR-LINE-17 AFTER ADVANCING 1 LINE.  DTSBR417
00494                                                                   DTSBR417
00495  P3000-EXIT.                                                      DTSBR417
00496      EXIT.                                                        DTSBR417
00497                                                                   DTSBR417
00498  P4000-PRINT-DETAIL-1.                                            DTSBR417
00499      MOVE WS-UC-SHORT-MONTH-1 TO DTL-UC-SHORT-MONTH-1.            DTSBR417
00500      MOVE WS-UC-SHORT-MONTH-2 TO DTL-UC-SHORT-MONTH-2.            DTSBR417
00501      MOVE WS-UC-SHORT-MONTH-3 TO DTL-UC-SHORT-MONTH-3.            DTSBR417
00502      MOVE WS-LONG-YEAR        TO DTL-LONG-YEAR.                   DTSBR417
00503      WRITE XEROX-REPORT FROM DTL-LINE-2 AFTER ADVANCING 2 LINE.   DTSBR417
00504      WRITE XEROX-REPORT FROM DTL-LINE-3 AFTER ADVANCING 1 LINE.   DTSBR417
00505      WRITE XEROX-REPORT FROM DTL-LINE-4 AFTER ADVANCING 1 LINE.      CL**6
00506      WRITE XEROX-REPORT FROM DTL-LINE-5 AFTER ADVANCING 1 LINE.   DTSBR417
00507      WRITE XEROX-REPORT FROM DTL-LINE-6 AFTER ADVANCING 1 LINE.   DTSBR417
00508      WRITE XEROX-REPORT FROM DTL-LINE-7  AFTER ADVANCING 1 LINE.     CL**5
00509      WRITE XEROX-REPORT FROM DTL-LINE-8 AFTER ADVANCING 1 LINE.      CL**8
00510      WRITE XEROX-REPORT FROM DTL-LINE-9  AFTER ADVANCING 1 LINE.     CL**5
00511      WRITE XEROX-REPORT FROM DTL-LINE-9A AFTER ADVANCING 1 LINE.     CL*11
00512      WRITE XEROX-REPORT FROM DTL-LINE-10 AFTER ADVANCING 2 LINE.     CL**8
00513      WRITE XEROX-REPORT FROM DTL-LINE-11 AFTER ADVANCING 1 LINE.     CL**6
00514      WRITE XEROX-REPORT FROM DTL-LINE-12 AFTER ADVANCING 1 LINE.     CL**6
00515      WRITE XEROX-REPORT FROM DTL-LINE-13 AFTER ADVANCING 1 LINE.     CL**6
00516      WRITE XEROX-REPORT FROM DTL-LINE-14 AFTER ADVANCING 1 LINE.     CL**6
00517      WRITE XEROX-REPORT FROM DTL-LINE-15 AFTER ADVANCING 1 LINE.     CL**6
00518      WRITE XEROX-REPORT FROM DTL-LINE-16 AFTER ADVANCING 1 LINE.     CL**6
00519      WRITE XEROX-REPORT FROM DTL-LINE-17 AFTER ADVANCING 1 LINE.     CL**6
00520      WRITE XEROX-REPORT FROM DTL-LINE-18 AFTER ADVANCING 1 LINE.     CL**6
00521 *    WRITE XEROX-REPORT FROM DTL-LINE-19 AFTER ADVANCING 1 LINE.     CL**6
00522                                                                   DTSBR417
00523  P4000-EXIT.                                                      DTSBR417
00524      EXIT.                                                        DTSBR417
00525                                                                   DTSBR417
00526  P8000-PRINT-VSCA-ADDR.                                           DTSBR417
00527 *RW1                                                              DTSBR417
00528      MOVE L599-BARCODED-DATA  TO CONVERTED-BARCODE.               DTSBR417
00529                                                                   DTSBR417
00530       MOVE SPACES             TO WS-REC.                          DTSBR417
00531       WRITE XEROX-REPORT FROM WS-REC                              DTSBR417
00532           AFTER ADVANCING TOP-OF-PAGE.                            DTSBR417
00533                                                                   DTSBR417
00534 *    WRITE XEROX-REPORT FROM WS-BARC-LINE AFTER 04.               DTSBR417
00535                                                                   DTSBR417
00536 *    WRITE XEROX-REPORT     FROM VSCA-LINE                        DTSBR417
00537 *        AFTER ADVANCING TOP-OF-PAGE.                             DTSBR417
00538      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 16 LINE.   DTSBR417
00539 *    WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 13 LINE.   DTSBR417
00540 *RW2                                                              DTSBR417
00541      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-17                    DTSBR417
00542              AFTER ADVANCING 1 LINE.                              DTSBR417
00543      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-18                    DTSBR417
00544              AFTER ADVANCING 1 LINE.                              DTSBR417
00545      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-19                    DTSBR417
00546              AFTER ADVANCING 1 LINE.                              DTSBR417
00547      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-20                    DTSBR417
00548              AFTER ADVANCING 1 LINE.                              DTSBR417
00549      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-21                    DTSBR417
00550              AFTER ADVANCING 1 LINE.                              DTSBR417
00551                                                                   DTSBR417
00552  P8000-EXIT.                                                      DTSBR417
00553      EXIT.                                                        DTSBR417
00554                                                                   DTSBR417
00555  T1000-TERMINATE.                                                 DTSBR417
00556      CLOSE PRT-FILE.                                              DTSBR417
00557  T1000-EXIT.                                                      DTSBR417
00558      EXIT.                                                        DTSBR417
00559      EJECT                                                        DTSBR417
00560  S001-FROM-FED-8.                                                 DTSBR417
00561      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR417
00562      GO TO S001-DATE.                                             DTSBR417
00563                                                                   DTSBR417
00564  S001-DATE.                                                       DTSBR417
00565      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR417
00566  S001-EXIT.                                                       DTSBR417
00567      EXIT.                                                        DTSBR417
00568      SKIP3                                                        DTSBR417
00569  S002-UPPER-CASE.                                                 DTSBR417
00570      SET L002-UPPER-CASE TO TRUE.                                 DTSBR417
00571      GO TO S002-DATE-ALPHA.                                       DTSBR417
00572                                                                   DTSBR417
00573  S002-MIXED-CASE.                                                 DTSBR417
00574      SET L002-MIXED-CASE TO TRUE.                                 DTSBR417
00575      GO TO S002-DATE-ALPHA.                                       DTSBR417
00576                                                                   DTSBR417
00577  S002-DATE-ALPHA.                                                 DTSBR417
00578      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR417
00579  S002-EXIT.                                                       DTSBR417
00580      EXIT.                                                        DTSBR417
00581      SKIP3                                                        DTSBR417
00582  S004-FROM-5.                                                     DTSBR417
00583      SET L004-FROM-5 TO TRUE.                                     DTSBR417
00584      GO TO S004-QUARTER.                                          DTSBR417
00585                                                                   DTSBR417
00586  S004-QUARTER.                                                    DTSBR417
00587      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR417
00588  S004-EXIT.                                                       DTSBR417
00589      EXIT.                                                        DTSBR417
00590      SKIP3                                                        DTSBR417
00591  S008-UPPER-CASE.                                                 DTSBR417
00592      SET L008-UPPER-CASE TO TRUE.                                 DTSBR417
00593      GO TO S008-QUARTER-ALPHA.                                    DTSBR417
00594                                                                   DTSBR417
00595  S008-MIXED-CASE.                                                 DTSBR417
00596      SET L008-MIXED-CASE TO TRUE.                                 DTSBR417
00597      GO TO S008-QUARTER-ALPHA.                                    DTSBR417
00598                                                                   DTSBR417
00599  S008-QUARTER-ALPHA.                                              DTSBR417
00600      CALL 'DTSBU008' USING L008-LINK-AREA.                        DTSBR417
00601  S008-EXIT.                                                       DTSBR417
00602      EXIT.                                                        DTSBR417
00603      SKIP3                                                        DTSBR417
00604  S056-DISP1-LEFT-PCT.                                             DTSBR417
00605      SET L056-DISP1-LEFT-PCT-88 TO TRUE.                          DTSBR417
00606      GO TO S056-RATE-DISPLAY.                                     DTSBR417
00607                                                                   DTSBR417
00608  S056-RATE-DISPLAY.                                               DTSBR417
00609      CALL 'DTSBU056' USING L056-LINK-AREA.                        DTSBR417
00610  S056-EXIT.                                                       DTSBR417
00611      EXIT.                                                        DTSBR417
00612      SKIP3                                                        DTSBR417
00613  S090-PARAGRAPH-FORMAT.                                           DTSBR417
00614      MOVE +0 TO L090-INDENT.                                      DTSBR417
00615      SET L090-SPECIAL-CHAR-STD-88 TO TRUE.                        DTSBR417
00616                                                                   DTSBR417
00617      CALL 'DTSBU090' USING L090-LINK-AREA.                        DTSBR417
00618  S090-EXIT.                                                       DTSBR417
00619      EXIT.                                                        DTSBR417
00620      SKIP3                                                        DTSBR417
00621  S119-REQ-CAPS.                                                   DTSBR417
00622      SET L119-REQ-CAPS-88 TO TRUE.                                DTSBR417
00623      GO TO S119-AGENCY-FACTS.                                     DTSBR417
00624                                                                   DTSBR417
00625  S119-REQ-MIXED.                                                  DTSBR417
00626      SET L119-REQ-MIXED-88 TO TRUE.                               DTSBR417
00627      GO TO S119-AGENCY-FACTS.                                     DTSBR417
00628                                                                   DTSBR417
00629  S119-AGENCY-FACTS.                                               DTSBR417
00630      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR417
00631  S119-EXIT.                                                       DTSBR417
00632      EXIT.                                                        DTSBR417
00633      SKIP3                                                        DTSBR417
00634  S599-BARCODE.                                                    DTSBR417
00635      MOVE CONVERT-BARCODE-LINE           TO L599-INPUT-DATA.      DTSBR417
00636      MOVE LENGTH OF CONVERT-BARCODE-LINE TO L599-REC-LENGTH.      DTSBR417
00637      MOVE 'TAX'                          TO L599-SYSTEM.          DTSBR417
00638                                                                   DTSBR417
00639      CALL 'DTSBU599' USING BARI-LINK-AREA.                        DTSBR417
00640                                                                   DTSBR417
00641      IF L599-NOT-CONVERTED                                        DTSBR417
00642       PERFORM S999-ABEND  THRU S999-EXIT.                         DTSBR417
00643  S599-EXIT.                                                       DTSBR417
00644      EXIT.                                                        DTSBR417
00645      SKIP3                                                        DTSBR417
00646  S999-ABEND.                                                      DTSBR417
00647      DISPLAY '***'.                                               DTSBR417
00648      DISPLAY '***  '                                              DTSBR417
00649              ABEND-MSG.                                           DTSBR417
00650      DISPLAY '***'.                                               DTSBR417
00651                                                                   DTSBR417
00652      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR417
00653  S999-EXIT.                                                       DTSBR417
00654      EXIT.                                                        DTSBR417
00655                                                                   DTSBR417
