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