00001  IDENTIFICATION DIVISION.                                         01/31/06
00002  PROGRAM-ID.             DTSBR421.                                DTSBR421
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV022
00004  DATE-WRITTEN.           JANUARY 1995.                            DTSBR421
00005  DATE-COMPILED.                                                   DTSBR421
00006      SKIP3                                                        DTSBR421
00007 *****                                                             DTSBR421
00008 *                                                                 DTSBR421
00009 *    CALLING SEQUENCE:  DTSBE420 CREATES DTSIR421 RECORDS.        DTSBR421
00010 *                       DTSBD800 CALLS DTSBR421 WHICH PRODUCES    DTSBR421
00011 *                                THE REPORT NOTICE.               DTSBR421
00012 *                                                                 DTSBR421
00013 *    FUNCTION:  FINAL DELINQUENT REPORT NOTICE.                   DTSBR421
00014 *                                                                 DTSBR421
00015 *                                                                 DTSBR421
00016 *    MODIFICATION HISTORY:                                        DTSBR421
00017 *                                                                 DTSBR421
00018 * 01-19-95 INITIAL DEVELOPMENT                                    DTSBR421
00019 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - EHH  DTSBR421
00020 *                                                                 DTSBR421
00021 * 11-28-97 RECOMPILED FOR MODIFICATIONS TO DTSIL119.              DTSBR421
00022 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - EHH  DTSBR421
00023 *                                                                 DTSBR421
00024 * 05-11-00 RECOMPILED FOR MODIFICATIONS TO DTSIL119,AND IZ COPYBOODTSBR421
00025 *          REFERENCE: DC DEVELOPMENT      AUTHOR OF CHANGE - ZL1  DTSBR421
00026 *                                                                 DTSBR421
00027 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR421
00028 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR421
00029 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR421
00030 *                                                                 DTSBR421
00031 *                                                                 DTSBR421
00032 *    DESCRIPTION:                                                 DTSBR421
00033 *                                                                 DTSBR421
00034 *        THIS MODULE PRINTS A "FINAL DELINQUENT REPORT NOTICE".   DTSBR421
00035 *                                                                 DTSBR421
00036 *                                                                 DTSBR421
00037 *    RECORDS READ:                                                DTSBR421
00038 *                                                                 DTSBR421
00039 *        NONE.                                                    DTSBR421
00040 *                                                                 DTSBR421
00041 *                                                                 DTSBR421
00042 *    PRINTED OUTPUTS:                                             DTSBR421
00043 *                                                                 DTSBR421
00044 *        421R1  FINAL DELINQUENT REPORT NOTICE.                   DTSBR421
00045 *                                                                 DTSBR421
00046 *                                                                 DTSBR421
00047 *    RECORDS WRITTEN:                                             DTSBR421
00048 *                                                                 DTSBR421
00049 *        NONE.                                                    DTSBR421
00050 *                                                                 DTSBR421
00051 *                                                                 DTSBR421
00052 *    MODULES CALLED:                                              DTSBR421
00053 *                                                                 DTSBR421
00054 *        DTSBU002  DATE ALPHA CONVERSION MODULE.                  DTSBR421
00055 *        DTSBU004  YEAR/QUARTER CONVERSION.                       DTSBR421
00056 *        DTSBU008  DISPLAY QUARTER IN TEXT FORMAT.                DTSBR421
00057 *        DTSBU056  RATE DISPLAY.                                  DTSBR421
00058 *        DTSBU062  FIELD REP ID EDIT/DESCRIPTION.                 DTSBR421
00059 *        DTSBU071  NAME EDIT/CONVERSION.                          DTSBR421
00060 *        DTSBU090  PARAGRAPH FORMATTING MODULE.                   DTSBR421
00061 *        DTSBU119  AGENCY FACTS.                                  DTSBR421
00062 *                                                                 DTSBR421
00063 *                                                                 DTSBR421
00064 *****                                                             DTSBR421
00065      EJECT                                                        DTSBR421
00066  ENVIRONMENT DIVISION.                                            DTSBR421
00067                                                                   DTSBR421
00068  CONFIGURATION SECTION.                                           DTSBR421
00069  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR421
00070                                                                   DTSBR421
00071  INPUT-OUTPUT SECTION.                                            DTSBR421
00072                                                                   DTSBR421
00073  FILE-CONTROL.                                                    DTSBR421
00074      SELECT PRT-FILE ASSIGN TO RPT421R1.                          DTSBR421
00075                                                                   DTSBR421
00076  DATA DIVISION.                                                   DTSBR421
00077                                                                   DTSBR421
00078  FILE SECTION.                                                    DTSBR421
00079                                                                   DTSBR421
00080  FD  PRT-FILE                                                     DTSBR421
00081      RECORDING MODE IS F                                          DTSBR421
00082      BLOCK CONTAINS 0 RECORDS                                     DTSBR421
00083      LABEL RECORDS ARE OMITTED.                                   DTSBR421
00084                                                                   DTSBR421
00085  01  XEROX-REPORT.                                                DTSBR421
00086      05  FILLER                      PIC X(1).                    DTSBR421
00087      05  XEROX-RPT                   PIC X(132).                  DTSBR421
00088                                                                   DTSBR421
00089      EJECT                                                        DTSBR421
00090  WORKING-STORAGE SECTION.                                         DTSBR421
000905 77  PAN-VALET PICTURE X(24) VALUE '022DTSBR421  01/31/06'.       DTSBR421
00091                                                                   DTSBR421
00092  01  WRK-AREA.                                                    DTSBR421
00093      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +421.DTSBR421
00094                                                                   DTSBR421
00095      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR421
00096                                                                   DTSBR421
00097      05  ABEND-MSG                   PIC  X(60).                  DTSBR421
00098                                                                   DTSBR421
00099      05  HOLD-FLD-REP-ID             PIC  X(02).                  DTSBR421
00100          88  HOLD-FLD-REP-OUT-OF-STATE-88   VALUE '98' '99'.      DTSBR421
00101                                                                   DTSBR421
00102      05  WS-UNIT-TEL.                                             DTSBR421
00103          10  WS-UNIT-AREA-CD         PIC  X(03).                  DTSBR421
00104          10  WS-UNIT-PREFIX          PIC  X(03).                  DTSBR421
00105          10  WS-UNIT-SUFFIX          PIC  X(04).                  DTSBR421
00106          10  WS-UNIT-EXTENSION       PIC  X(04).                  DTSBR421
00107                                                                   DTSBR421
00108      05  WS-UNIT-FAX.                                             DTSBR421
00109          10  WS-UNIT-FAX-AREA-CD         PIC  X(03).              DTSBR421
00110          10  WS-UNIT-FAX-PREFIX          PIC  X(03).              DTSBR421
00111          10  WS-UNIT-FAX-SUFFIX          PIC  X(04).              DTSBR421
00112          10  WS-UNIT-FAX-EXTENSION       PIC  X(04).              DTSBR421
00113                                                                   DTSBR421
00114      05  DISP-UNIT-TEL.                                           DTSBR421
00115          10  DISP-UNIT-TEL-FILLER-1  PIC  X(01).                  DTSBR421
00116          10  DISP-UNIT-TEL-AREA-CD   PIC  X(03).                  DTSBR421
00117          10  DISP-UNIT-TEL-FILLER-2  PIC  X(02).                  DTSBR421
00118          10  DISP-UNIT-TEL-PREFIX    PIC  X(03).                  DTSBR421
00119          10  DISP-UNIT-TEL-FILLER-3  PIC  X(01).                  DTSBR421
00120          10  DISP-UNIT-TEL-SUFFIX    PIC  X(04).                  DTSBR421
00121                                                                   DTSBR421
00122      05  DISP-UNIT-FAX.                                           DTSBR421
00123          10  DISP-UNIT-FAX-FILLER-1  PIC  X(01).                  DTSBR421
00124          10  DISP-UNIT-FAX-AREA-CD   PIC  X(03).                  DTSBR421
00125          10  DISP-UNIT-FAX-FILLER-2  PIC  X(02).                  DTSBR421
00126          10  DISP-UNIT-FAX-PREFIX    PIC  X(03).                  DTSBR421
00127          10  DISP-UNIT-FAX-FILLER-3  PIC  X(01).                  DTSBR421
00128          10  DISP-UNIT-FAX-SUFFIX    PIC  X(04).                  DTSBR421
00129                                                                   DTSBR421
00130      05  DISP-FLD-TEL.                                            DTSBR421
00131          10  DISP-FLD-TEL-FILLER-1   PIC  X(01).                  DTSBR421
00132          10  DISP-FLD-TEL-AREA-CD    PIC  X(03).                  DTSBR421
00133          10  DISP-FLD-TEL-FILLER-2   PIC  X(02).                  DTSBR421
00134          10  DISP-FLD-TEL-PREFIX     PIC  X(03).                  DTSBR421
00135          10  DISP-FLD-TEL-FILLER-3   PIC  X(01).                  DTSBR421
00136          10  DISP-FLD-TEL-SUFFIX     PIC  X(04).                  DTSBR421
00137                                                                   DTSBR421
00138      05  WS-START-POS                PIC S9(04)  COMP.            DTSBR421
00139                                                                   DTSBR421
00140      05  WS-LONG-TEXT-MAIL-DATE      PIC  X(18).                  DTSBR421
00141                                                                   DTSBR421
00142      05  WS-LONG-TEXT-FIRST-DEL-DATE PIC  X(18).                  DTSBR421
00143                                                                   DTSBR421
00144      05  WS-LONG-TEXT-THREAT-DATE    PIC  X(18).                  DTSBR421
00145                                                                   DTSBR421
00146      05  WS-UC-SHORT-MONTHS.                                      DTSBR421
00147          10  WS-UC-SHORT-MONTH-1     PIC  X(03).                  DTSBR421
00148          10  WS-UC-SHORT-MONTH-2     PIC  X(03).                  DTSBR421
00149          10  WS-UC-SHORT-MONTH-3     PIC  X(03).                  DTSBR421
00150                                                                   DTSBR421
00151      05  WS-SHORT-YEAR               PIC  X(02).                  DTSBR421
00152                                                                   DTSBR421
00153      05  WS-LONG-YEAR                PIC  X(04).                  DTSBR421
00154                                                                   DTSBR421
00155      05  WS-LONG-TEXT-DUE-DATE       PIC  X(18).                  DTSBR421
00156                                                                   DTSBR421
00157      05  WS-TEXT-LINE-5              PIC  X(70).                  DTSBR421
00158                                                                   DTSBR421
00159      05  DETAIL-5-LINE-CNT           PIC S9(04)  COMP.            DTSBR421
00160                                                                   DTSBR421
00161      05  DETAIL-5-BLANK-LINE-CNT     PIC S9(04)  COMP.            DTSBR421
00162                                                                   DTSBR421
00163      05  WS-YRQ-SUB                  PIC S9(04)  COMP.            DTSBR421
00164                                                                   DTSBR421
00165      05  WS-AMT-CTR                  PIC S9(04)  COMP.            DTSBR421
00166      05  WS-AMT                      PIC  X(14).                  DTSBR421
00167      05  WS-AMT-EDIT REDEFINES WS-AMT                             DTSBR421
00168                                      PIC  ZZZ,ZZZ,ZZ9.99.         DTSBR421
00169      05  WS-ADDR-FMT-AREA            PIC X(200).                  DTSBR421
00170      05  WS-ADDR-FMT-AREA-X REDEFINES WS-ADDR-FMT-AREA.           DTSBR421
00171          10 ADDR-FMT-LINE OCCURS 5 TIMES PIC X(40).               DTSBR421
00172                                                                   DTSBR421
00173  01  VSCA-LINE.                                                   DTSBR421
00174      05  VSCA-DATA                   PIC X(133) VALUE SPACES.     DTSBR421
00175                                                                   DTSBR421
00176      EJECT                                                        DTSBR421
00177  01  MIXED-CASE-LITERALS.                                         DTSBR421
00178  ++INCLUDE DTSIZ42A                                               DTSBR421
00179      EJECT                                                        DTSBR421
00180  01  L001-LINK-AREA.                                              DTSBR421
00181  ++INCLUDE DTSIL001                                               DTSBR421
00182      EJECT                                                        DTSBR421
00183  01  L002-LINK-AREA.                                              DTSBR421
00184  ++INCLUDE DTSIL002                                               DTSBR421
00185      EJECT                                                        DTSBR421
00186  01  L004-LINK-AREA.                                              DTSBR421
00187  ++INCLUDE DTSIL004                                               DTSBR421
00188      EJECT                                                        DTSBR421
00189  01  L008-LINK-AREA.                                              DTSBR421
00190  ++INCLUDE DTSIL008                                               DTSBR421
00191      EJECT                                                        DTSBR421
00192  01  L056-LINK-AREA.                                              DTSBR421
00193  ++INCLUDE DTSIL056                                               DTSBR421
00194      EJECT                                                        DTSBR421
00195  01  L062-LINK-AREA.                                              DTSBR421
00196  ++INCLUDE DTSIL062                                               DTSBR421
00197      EJECT                                                        DTSBR421
00198  01  L071-LINK-AREA.                                              DTSBR421
00199  ++INCLUDE DTSIL071                                               DTSBR421
00200      EJECT                                                        DTSBR421
00201  01  L090-LINK-AREA.                                              DTSBR421
00202  ++INCLUDE DTSIL090                                               DTSBR421
00203      EJECT                                                        DTSBR421
00204  01  L119-LINK-AREA.                                              DTSBR421
00205  ++INCLUDE DTSIL119                                               DTSBR421
00206      EJECT                                                        DTSBR421
00207 *REPORT SECTION.                                                  DTSBR421
00208  ++INCLUDE DTSXL421                                               DTSBR421
00209      SKIP3                                                        DTSBR421
00210  ++INCLUDE DTSIZ42B                                               DTSBR421
00211      EJECT                                                        DTSBR421
00212  LINKAGE SECTION.                                                 DTSBR421
00213      SKIP3                                                        DTSBR421
00214  01  LRCM-LINK-AREA.                                              DTSBR421
00215  ++INCLUDE DTSILRCM                                               DTSBR421
00216      EJECT                                                        DTSBR421
00217  01  R421-REC.                                                    DTSBR421
00218  ++INCLUDE DTSIR421                                               DTSBR421
00219      EJECT                                                        DTSBR421
00220  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR421
00221                           R421-REC.                               DTSBR421
00222                                                                   DTSBR421
00223      IF FIRST-TIME-IND = 'Y'                                      DTSBR421
00224          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR421
00225          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR421
00226                                                                   DTSBR421
00227      IF LRCM-EOR-88                                               DTSBR421
00228          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR421
00229      ELSE                                                         DTSBR421
00230          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR421
00231                                                                   DTSBR421
00232      GOBACK.                                                      DTSBR421
00233      EJECT                                                        DTSBR421
00234  I1000-INITIATE.                                                  DTSBR421
00235                                                                   DTSBR421
00236      OPEN OUTPUT PRT-FILE.                                        DTSBR421
00237      MOVE SPACES TO XEROX-REPORT.                                 DTSBR421
00238                                                                   DTSBR421
00239      WRITE XEROX-REPORT     FROM VSCA-LINE                        DTSBR421
00240          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR421
00241      WRITE XEROX-REPORT     FROM VSCA-LINE AFTER ADVANCING 11.    DTSBR421
00242      WRITE XEROX-REPORT     FROM XEROX-CNTL-LINE.                 DTSBR421
00243                                                                   DTSBR421
00244      SET L119-REQ-COLLECTIONS-88 TO TRUE.                         DTSBR421
00245      PERFORM S119-REQ-MIXED THRU S119-EXIT.                       DTSBR421
00246      MOVE L119-UNIT-VOICE TO WS-UNIT-TEL.                         DTSBR421
00247      MOVE L119-UNIT-FAX   TO WS-UNIT-FAX.                         DTSBR421
00248      MOVE HIGH-VALUES TO HOLD-FLD-REP-ID.                         DTSBR421
00249  I1000-EXIT.                                                      DTSBR421
00250      EXIT.                                                        DTSBR421
00251      EJECT                                                        DTSBR421
00252  P1000-PROCESS.                                                   DTSBR421
00253      MOVE '(' TO DISP-UNIT-TEL-FILLER-1.                          DTSBR421
00254      MOVE WS-UNIT-AREA-CD TO DISP-UNIT-TEL-AREA-CD.               DTSBR421
00255      MOVE ') ' TO DISP-UNIT-TEL-FILLER-2.                         DTSBR421
00256      MOVE WS-UNIT-PREFIX TO DISP-UNIT-TEL-PREFIX.                 DTSBR421
00257      MOVE '-' TO DISP-UNIT-TEL-FILLER-3.                          DTSBR421
00258      MOVE WS-UNIT-SUFFIX TO DISP-UNIT-TEL-SUFFIX.                 DTSBR421
00259                                                                   DTSBR421
00260      MOVE R421-MAIL-DATE TO L002-DATE.                            DTSBR421
00261      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR421
00262                                                                   DTSBR421
00263      COMPUTE WS-START-POS = (18 - L002-LONG-TEXT-CNT) / 2.        DTSBR421
00264                                                                   DTSBR421
00265      ADD +1 TO WS-START-POS.                                      DTSBR421
00266                                                                   DTSBR421
00267      IF (WS-START-POS > +0)                                       DTSBR421
00268            AND                                                    DTSBR421
00269         (WS-START-POS < +18)                                      DTSBR421
00270          MOVE SPACES TO WS-LONG-TEXT-MAIL-DATE                    DTSBR421
00271          MOVE L002-LONG-TEXT-AREA                                 DTSBR421
00272            TO WS-LONG-TEXT-MAIL-DATE (WS-START-POS:)              DTSBR421
00273      ELSE                                                         DTSBR421
00274           MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-MAIL-DATE.     DTSBR421
00275                                                                   DTSBR421
00276      MOVE R421-TOTAL-RATE TO L056-RATE.                           DTSBR421
00277      PERFORM S056-DISP1-LEFT-PCT THRU S056-EXIT.                  DTSBR421
00278      MOVE L056-DISP-RATE TO WS-DISP-RATE.                         DTSBR421
00279                                                                   DTSBR421
00280      MOVE R421-YRQ TO L008-YRQ.                                   DTSBR421
00281      PERFORM S008-UPPER-CASE THRU S008-EXIT.                      DTSBR421
00282      MOVE L008-SHORT-MONTHS TO WS-UC-SHORT-MONTHS.                DTSBR421
00283                                                                   DTSBR421
00284      MOVE L008-YEAR (3:2) TO WS-SHORT-YEAR.                       DTSBR421
00285                                                                   DTSBR421
00286      MOVE L008-YEAR TO WS-LONG-YEAR.                              DTSBR421
00287                                                                   DTSBR421
00288      MOVE R421-DUE-DATE TO L001-FED-8-DATE-9.                     DTSBR421
00289      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBR421
00290      MOVE L001-SLASH-DATE TO WS-SLASH-DUE-DATE.                   DTSBR421
00291                                                                   DTSBR421
00292      MOVE R421-DUE-DATE TO L002-DATE.                             DTSBR421
00293      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR421
00294      MOVE L002-LONG-TEXT-AREA TO WS-LONG-TEXT-DUE-DATE.           DTSBR421
00295                                                                   DTSBR421
00296      PERFORM P4000-PRINT-HEADER THRU P4000-EXIT.                  DTSBR421
00297                                                                   DTSBR421
00298      MOVE R421-AS-OF-DATE TO L002-DATE.                           DTSBR421
00299      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR421
00300      MOVE L002-SHORT-TEXT-AREA                                    DTSBR421
00301        TO WS-SHORT-TEXT-AS-OF-DATE.                               DTSBR421
00302                                                                   DTSBR421
00303      MOVE +70 TO L090-DESIRED-LINE-LIMIT.                         DTSBR421
00304      MOVE +9 TO L090-PHRASE-CNT.                                  DTSBR421
00305                                                                   DTSBR421
00306      MOVE MC-LIT-WAGE TO L090-PHRASE (1).                         DTSBR421
00307      MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (1).                DTSBR421
00308                                                                   DTSBR421
00309      MOVE MC-LIT-OF TO L090-PHRASE (2).                           DTSBR421
00310      MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (2).                DTSBR421
00311                                                                   DTSBR421
00312      MOVE SPACES TO L090-PHRASE (3).                              DTSBR421
00313      STRING                                                       DTSBR421
00314          WS-UC-SHORT-MONTH-1 DELIMITED BY SIZE                    DTSBR421
00315          ', '                DELIMITED BY SIZE                    DTSBR421
00316          WS-UC-SHORT-MONTH-2 DELIMITED BY SIZE                    DTSBR421
00317          ' '                 DELIMITED BY SIZE                    DTSBR421
00318          MC-LIT-AND          DELIMITED BY '  '                    DTSBR421
00319          ' '                 DELIMITED BY SIZE                    DTSBR421
00320          WS-UC-SHORT-MONTH-3 DELIMITED BY SIZE                    DTSBR421
00321          ' '                 DELIMITED BY SIZE                    DTSBR421
00322          WS-LONG-YEAR        DELIMITED BY SIZE                    DTSBR421
00323          '.'                 DELIMITED BY SIZE                    DTSBR421
00324        INTO                                                       DTSBR421
00325          L090-PHRASE (3).                                         DTSBR421
00326      MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (3).                DTSBR421
00327                                                                   DTSBR421
00328      MOVE MC-LIT-THIS-REPORT-WAS TO L090-PHRASE (4).              DTSBR421
00329      MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (4).                DTSBR421
00330                                                                   DTSBR421
00331      MOVE SPACES TO L090-PHRASE (5).                              DTSBR421
00332      STRING WS-LONG-TEXT-DUE-DATE DELIMITED BY '  '               DTSBR421
00333             '.'                   DELIMITED BY SIZE               DTSBR421
00334        INTO                                                       DTSBR421
00335          L090-PHRASE (5).                                         DTSBR421
00336      MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (5).                DTSBR421
00337                                                                   DTSBR421
00338      MOVE MC-LIT-WE-RECEIVED-NO TO L090-PHRASE (6).               DTSBR421
00339      MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (6).                DTSBR421
00340                                                                   DTSBR421
00341      MOVE MC-LIT-MAILED-ON      TO L090-PHRASE (7).               DTSBR421
00342      MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (7).                DTSBR421
00343                                                                   DTSBR421
00344      MOVE R421-UC30-FIRST-DEL-MAIL-DATE TO L002-DATE.             DTSBR421
00345      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR421
00346      MOVE SPACE TO L090-PHRASE (8).                               DTSBR421
00347      STRING                                                       DTSBR421
00348          L002-LONG-TEXT-AREA DELIMITED BY '  '                    DTSBR421
00349          ','                 DELIMITED BY SIZE                    DTSBR421
00350        INTO                                                       DTSBR421
00351          L090-PHRASE (8).                                         DTSBR421
00352      MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (8).                DTSBR421
00353                                                                   DTSBR421
00354      MOVE MC-LIT-MAILED-TO-YOUR TO L090-PHRASE (9).               DTSBR421
00355      MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (9).                DTSBR421
00356                                                                   DTSBR421
00357      PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR421
00358                                                                   DTSBR421
00359      IF (L090-UNSUCCESSFUL-88)                                    DTSBR421
00360            OR                                                     DTSBR421
00361         (L090-PARAGRAPH-LINE-CNT > +4)                            DTSBR421
00362          MOVE 'LOGIC ERROR P1000-1' TO ABEND-MSG                  DTSBR421
00363          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR421
00364                                                                   DTSBR421
00365      PERFORM P5000-PRINT-DETAIL-1 THRU P5000-EXIT.                DTSBR421
00366                                                                   DTSBR421
00367      MOVE +70 TO L090-DESIRED-LINE-LIMIT.                         DTSBR421
00368      MOVE +7 TO L090-PHRASE-CNT.                                  DTSBR421
00369                                                                   DTSBR421
00370      MOVE MC-LIT-BY-5   TO L090-PHRASE (1).                       DTSBR421
00371      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (1).               DTSBR421
00372                                                                   DTSBR421
00373      MOVE MC-LIT-BY-PM TO L090-PHRASE (2).                        DTSBR421
00374      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (2).               DTSBR421
00375                                                                   DTSBR421
00376      MOVE R421-FINAL-ACTION-DATE TO L002-DATE.                    DTSBR421
00377      PERFORM S002-MIXED-CASE THRU S002-EXIT.                      DTSBR421
00378      MOVE SPACE TO L090-PHRASE (3).                               DTSBR421
00379      STRING L002-LONG-TEXT-AREA  DELIMITED BY '  '                DTSBR421
00380             ','                  DELIMITED BY SIZE                DTSBR421
00381        INTO                                                       DTSBR421
00382          L090-PHRASE (3).                                         DTSBR421
00383                                                                   DTSBR421
00384      MOVE MC-LIT-A-MISSING-QTRS1 TO L090-PHRASE (4).              DTSBR421
00385      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (4).               DTSBR421
00386                                                                   DTSBR421
00387      MOVE MC-LIT-A-MISSING-QTRS2 TO L090-PHRASE (5).              DTSBR421
00388      MOVE SPACES TO L090-PHRASE-OVERSTRIKE-IND (5).               DTSBR421
00389                                                                   DTSBR421
00390      MOVE MC-LIT-TAX-LIEN    TO L090-PHRASE (6).                  DTSBR421
00391      MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (6).                DTSBR421
00392                                                                   DTSBR421
00393      MOVE MC-LIT-AMOUNT     TO L090-PHRASE (7).                   DTSBR421
00394      MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (7).                DTSBR421
00395                                                                   DTSBR421
00396      PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR421
00397                                                                   DTSBR421
00398      DISPLAY ' LCNT ' L090-PARAGRAPH-LINE-CNT                     DTSBR421
00399      IF (L090-UNSUCCESSFUL-88)                                    DTSBR421
00400               OR                                                  DTSBR421
00401         (L090-PARAGRAPH-LINE-CNT NOT = +3)                        DTSBR421
00402          MOVE 'LOGIC ERROR P1000-2' TO ABEND-MSG                  DTSBR421
00403          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR421
00404                                                                   DTSBR421
00405      PERFORM P6000-PRINT-DETAIL-2 THRU P6000-EXIT.                DTSBR421
00406                                                                   DTSBR421
00407      IF R421-FIELD-REP-ID = HOLD-FLD-REP-ID                       DTSBR421
00408          NEXT SENTENCE                                            DTSBR421
00409      ELSE                                                         DTSBR421
00410          MOVE R421-FIELD-REP-ID TO HOLD-FLD-REP-ID                DTSBR421
00411                                    L062-FLD-REP-ID                DTSBR421
00412          IF L062-FIELD-DESK-88                                    DTSBR421
00413              SET L062-DEFAULT-FLD-REP-88 TO TRUE                  DTSBR421
00414          END-IF                                                   DTSBR421
00415          PERFORM S062-FLD-REP-ID THRU S062-EXIT                   DTSBR421
00416          IF L062-NOT-VALID                                        DTSBR421
00417              SET L062-DEFAULT-FLD-REP-88 TO TRUE                  DTSBR421
00418              PERFORM S062-FLD-REP-ID THRU S062-EXIT               DTSBR421
00419          END-IF                                                   DTSBR421
00420          IF L062-NOT-VALID                                        DTSBR421
00421              MOVE 'LOGIC ERROR P1000-4' TO ABEND-MSG              DTSBR421
00422              PERFORM S999-ABEND THRU S999-EXIT                    DTSBR421
00423          END-IF.                                                  DTSBR421
00424                                                                   DTSBR421
00425      MOVE L062-NAME TO L071-NAM.                                  DTSBR421
00426      PERFORM S071-FROM-LAST-NAME-FIRST THRU S071-EXIT.            DTSBR421
00427                                                                   DTSBR421
00428      MOVE +70 TO L090-DESIRED-LINE-LIMIT.                         DTSBR421
00429      MOVE +0 TO L090-PHRASE-CNT.                                  DTSBR421
00430                                                                   DTSBR421
00431      ADD +1 TO L090-PHRASE-CNT.                                   DTSBR421
00432      MOVE MC-LIT-SERVICES TO L090-PHRASE (L090-PHRASE-CNT).       DTSBR421
00433      MOVE SPACE                                                   DTSBR421
00434        TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT).           DTSBR421
00435                                                                   DTSBR421
00436      ADD +1 TO L090-PHRASE-CNT.                                   DTSBR421
00437      MOVE DISP-UNIT-TEL   TO L090-PHRASE (L090-PHRASE-CNT).       DTSBR421
00438      MOVE SPACE                                                   DTSBR421
00439        TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT).           DTSBR421
00440                                                                   DTSBR421
00441      ADD +1 TO L090-PHRASE-CNT.                                   DTSBR421
00442      MOVE SPACES TO L090-PHRASE (L090-PHRASE-CNT).                DTSBR421
00443      STRING                                                       DTSBR421
00444          MC-LIT-FIELD-REP        DELIMITED BY '  '                DTSBR421
00445          ' '                     DELIMITED BY SIZE                DTSBR421
00446          L071-NAM                DELIMITED BY '  '                DTSBR421
00447          ','                     DELIMITED BY SIZE                DTSBR421
00448        INTO                                                       DTSBR421
00449          L090-PHRASE (L090-PHRASE-CNT).                           DTSBR421
00450      MOVE SPACE                                                   DTSBR421
00451        TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT).           DTSBR421
00452                                                                   DTSBR421
00453      ADD +1 TO L090-PHRASE-CNT.                                   DTSBR421
00454      MOVE MC-LIT-AT TO L090-PHRASE (L090-PHRASE-CNT).             DTSBR421
00455      MOVE SPACE                                                   DTSBR421
00456        TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT).           DTSBR421
00457                                                                   DTSBR421
00458      MOVE '(' TO DISP-FLD-TEL-FILLER-1.                           DTSBR421
00459      MOVE L062-VOICE-1-AREA-CD TO DISP-FLD-TEL-AREA-CD.           DTSBR421
00460      MOVE ')\' TO DISP-FLD-TEL-FILLER-2.                          DTSBR421
00461      MOVE L062-VOICE-1-PREFIX TO DISP-FLD-TEL-PREFIX.             DTSBR421
00462      MOVE '-' TO DISP-FLD-TEL-FILLER-3.                           DTSBR421
00463      MOVE L062-VOICE-1-SUFFIX TO DISP-FLD-TEL-SUFFIX.             DTSBR421
00464                                                                   DTSBR421
00465      ADD +1 TO L090-PHRASE-CNT.                                   DTSBR421
00466      MOVE SPACE TO L090-PHRASE (L090-PHRASE-CNT).                 DTSBR421
00467      STRING                                                       DTSBR421
00468          DISP-FLD-TEL       DELIMITED BY SIZE                     DTSBR421
00469          '.'                DELIMITED BY SIZE                     DTSBR421
00470        INTO                                                       DTSBR421
00471          L090-PHRASE (L090-PHRASE-CNT).                           DTSBR421
00472      MOVE SPACE                                                   DTSBR421
00473        TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT).           DTSBR421
00474                                                                   DTSBR421
00475      ADD +1 TO L090-PHRASE-CNT.                                   DTSBR421
00476      MOVE MC-LIT-TELEPHONE-NUMBER-FAX                             DTSBR421
00477        TO L090-PHRASE (L090-PHRASE-CNT).                          DTSBR421
00478      MOVE SPACE                                                   DTSBR421
00479        TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT).           DTSBR421
00480                                                                   DTSBR421
00481      MOVE '(' TO DISP-UNIT-FAX-FILLER-1.                          DTSBR421
00482      MOVE WS-UNIT-FAX-AREA-CD TO DISP-UNIT-FAX-AREA-CD.           DTSBR421
00483      MOVE ') ' TO DISP-UNIT-FAX-FILLER-2.                         DTSBR421
00484      MOVE WS-UNIT-FAX-PREFIX TO DISP-UNIT-FAX-PREFIX.             DTSBR421
00485      MOVE '-' TO DISP-UNIT-FAX-FILLER-3.                          DTSBR421
00486      MOVE WS-UNIT-FAX-SUFFIX TO DISP-UNIT-FAX-SUFFIX.             DTSBR421
00487                                                                   DTSBR421
00488      ADD +1 TO L090-PHRASE-CNT.                                   DTSBR421
00489      MOVE SPACE TO L090-PHRASE (L090-PHRASE-CNT).                 DTSBR421
00490      STRING                                                       DTSBR421
00491          DISP-UNIT-FAX      DELIMITED BY SIZE                     DTSBR421
00492          '.'                DELIMITED BY SIZE                     DTSBR421
00493        INTO                                                       DTSBR421
00494          L090-PHRASE (L090-PHRASE-CNT).                           DTSBR421
00495      MOVE SPACE                                                   DTSBR421
00496        TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT).           DTSBR421
00497                                                                   DTSBR421
00498      PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR421
00499                                                                   DTSBR421
00500      IF (L090-UNSUCCESSFUL-88)                                    DTSBR421
00501             OR                                                    DTSBR421
00502         (L090-PARAGRAPH-LINE-CNT > +4)                            DTSBR421
00503             OR                                                    DTSBR421
00504         (L090-PARAGRAPH-LINE-CNT < +1)                            DTSBR421
00505          MOVE 'LOGIC ERROR P1000-5' TO ABEND-MSG                  DTSBR421
00506          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR421
00507                                                                   DTSBR421
00508      IF L090-PARAGRAPH-LINE-CNT < +4                              DTSBR421
00509          MOVE SPACES TO L090-PARAGRAPH-LINE (4).                  DTSBR421
00510                                                                   DTSBR421
00511      IF L090-PARAGRAPH-LINE-CNT < +3                              DTSBR421
00512          MOVE SPACES TO L090-PARAGRAPH-LINE (3).                  DTSBR421
00513                                                                   DTSBR421
00514      IF L090-PARAGRAPH-LINE-CNT < +2                              DTSBR421
00515          MOVE SPACES TO L090-PARAGRAPH-LINE (2).                  DTSBR421
00516                                                                   DTSBR421
00517      PERFORM P7000-PRINT-DETAIL-4A THRU P7000-EXIT.               DTSBR421
00518                                                                   DTSBR421
00519      MOVE +0 TO DETAIL-5-LINE-CNT.                                DTSBR421
00520                                                                   DTSBR421
00521      IF R421-ADDITIONAL-RPT-CNT > +0                              DTSBR421
00522          PERFORM P1100-ADDITIONAL-RPTS THRU P1100-EXIT.           DTSBR421
00523                                                                   DTSBR421
00524      COMPUTE DETAIL-5-BLANK-LINE-CNT = 4 - DETAIL-5-LINE-CNT.     DTSBR421
00525                                                                   DTSBR421
00526      IF DETAIL-5-BLANK-LINE-CNT > +0                              DTSBR421
00527          MOVE SPACES TO WS-TEXT-LINE-5                            DTSBR421
00528          PERFORM                                                  DTSBR421
00529            DETAIL-5-BLANK-LINE-CNT TIMES                          DTSBR421
00530              PERFORM P8000-PRINT-DETAIL-5A THRU P8000-EXIT        DTSBR421
00531          END-PERFORM                                              DTSBR421
00532      END-IF.                                                      DTSBR421
00533                                                                   DTSBR421
00534                                                                   DTSBR421
00535      PERFORM P2000-XEROX-ROUTINE THRU P2000-EXIT.                 DTSBR421
00536  P1000-EXIT.                                                      DTSBR421
00537      EXIT.                                                        DTSBR421
00538      EJECT                                                        DTSBR421
00539  P1100-ADDITIONAL-RPTS.                                           DTSBR421
00540      MOVE +65 TO L090-DESIRED-LINE-LIMIT.                         DTSBR421
00541                                                                   DTSBR421
00542      MOVE ')\' TO DISP-UNIT-TEL-FILLER-2.                         DTSBR421
00543      MOVE +1 TO L090-PHRASE-CNT.                                  DTSBR421
00544      MOVE SPACES TO L090-PHRASE (L090-PHRASE-CNT).                DTSBR421
00545      STRING MC-LIT-PLEASE-CALL    DELIMITED BY '  '               DTSBR421
00546             ' '                   DELIMITED BY SIZE               DTSBR421
00547             DISP-UNIT-TEL         DELIMITED BY SIZE               DTSBR421
00548          INTO L090-PHRASE (L090-PHRASE-CNT).                      DTSBR421
00549      MOVE SPACE TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT).  DTSBR421
00550                                                                   DTSBR421
00551      ADD +1 TO L090-PHRASE-CNT.                                   DTSBR421
00552      MOVE MC-LIT-FOR-INFORMATION                                  DTSBR421
00553        TO L090-PHRASE (L090-PHRASE-CNT).                          DTSBR421
00554      MOVE SPACES                                                  DTSBR421
00555        TO L090-PHRASE-OVERSTRIKE-IND (L090-PHRASE-CNT).           DTSBR421
00556                                                                   DTSBR421
00557      PERFORM S090-PARAGRAPH-FORMAT THRU S090-EXIT.                DTSBR421
00558                                                                   DTSBR421
00559      IF L090-UNSUCCESSFUL-88                                      DTSBR421
00560          MOVE 'LOGIC ERROR P1100-1' TO ABEND-MSG                  DTSBR421
00561          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR421
00562                                                                   DTSBR421
00563      PERFORM                                                      DTSBR421
00564        VARYING L090-PARAGRAPH-IDX FROM 1 BY 1                     DTSBR421
00565        UNTIL L090-PARAGRAPH-IDX > L090-PARAGRAPH-LINE-CNT         DTSBR421
00566          MOVE L090-PARAGRAPH-LINE (L090-PARAGRAPH-IDX)            DTSBR421
00567            TO WS-TEXT-LINE-5                                      DTSBR421
00568          IF L090-PARAGRAPH-LINE-DUPE-88 (L090-PARAGRAPH-IDX)      DTSBR421
00569              PERFORM P1110-DUPE-TWEAK THRU P1110-EXIT             DTSBR421
00570              PERFORM P9000-PRINT-DETAIL-5B THRU P9000-EXIT        DTSBR421
00571          ELSE                                                     DTSBR421
00572              PERFORM P8000-PRINT-DETAIL-5A THRU P8000-EXIT        DTSBR421
00573              ADD +1 TO DETAIL-5-LINE-CNT                          DTSBR421
00574          END-IF                                                   DTSBR421
00575      END-PERFORM.                                                 DTSBR421
00576                                                                   DTSBR421
00577      IF (DETAIL-5-LINE-CNT < +1)                                  DTSBR421
00578            OR                                                     DTSBR421
00579         (DETAIL-5-LINE-CNT > +4)                                  DTSBR421
00580          DISPLAY 'P1100-2 '                                       DTSBR421
00581                  DETAIL-5-LINE-CNT                                DTSBR421
00582          MOVE 'LOGIC ERROR P1100-2' TO ABEND-MSG                  DTSBR421
00583          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBR421
00584  P1100-EXIT.                                                      DTSBR421
00585      EXIT.                                                        DTSBR421
00586      SKIP3                                                        DTSBR421
00587  P1110-DUPE-TWEAK.                                                DTSBR421
00588      IF DETAIL-5-LINE-CNT = +1                                    DTSBR421
00589          MOVE ALL '_' TO WS-TEXT-LINE-5 (1:33)                    DTSBR421
00590          MOVE SPACE TO WS-TEXT-LINE-5 (34:1).                     DTSBR421
00591  P1110-EXIT.                                                      DTSBR421
00592      EXIT.                                                        DTSBR421
00593  P2000-XEROX-ROUTINE.                                             DTSBR421
00594        MOVE R421-FMT-ADDR  TO  WS-ADDR-FMT-AREA.                  DTSBR421
00595        PERFORM P3000-SELF-MAILER-RTN THRU P3000-EXIT.             DTSBR421
00596  P2000-EXIT.                                                      DTSBR421
00597      EXIT.                                                        DTSBR421
00598      EJECT                                                        DTSBR421
00599  P3000-SELF-MAILER-RTN.                                           DTSBR421
00600       MOVE R421-FMT-LINE (1) TO WS-ADDR-FMT-LINE-1.               DTSBR421
00601       MOVE R421-FMT-LINE (2) TO WS-ADDR-FMT-LINE-2.               DTSBR421
00602       MOVE R421-FMT-LINE (3) TO WS-ADDR-FMT-LINE-3.               DTSBR421
00603       MOVE R421-FMT-LINE (4) TO WS-ADDR-FMT-LINE-4.               DTSBR421
00604       MOVE R421-FMT-LINE (5) TO WS-ADDR-FMT-LINE-5.               DTSBR421
00605       PERFORM P9500-PRINT-VSCA-ADDR THRU P9500-EXIT.              DTSBR421
00606  P3000-EXIT.                                                      DTSBR421
00607      EXIT.                                                        DTSBR421
00608      EJECT                                                        DTSBR421
00609  P4000-PRINT-HEADER.                                              DTSBR421
00610      MOVE WS-LONG-TEXT-MAIL-DATE TO HDR-LONG-TEXT-MAIL-DATE.      DTSBR421
00611      MOVE WS-SHORT-YEAR  TO HDR-SHORT-YEAR.                       DTSBR421
00612      MOVE WS-UC-SHORT-MONTH-1 TO HDR-UC-SHORT-MONTH-1.            DTSBR421
00613      MOVE WS-UC-SHORT-MONTH-2 TO HDR-UC-SHORT-MONTH-2.            DTSBR421
00614      MOVE WS-UC-SHORT-MONTH-3 TO HDR-UC-SHORT-MONTH-3.            DTSBR421
00615      MOVE R421-FMT-LINE (1) TO HDR-FMT-LINE-1.                    DTSBR421
00616      MOVE R421-FMT-LINE (2) TO HDR-FMT-LINE-2.                    DTSBR421
00617      MOVE R421-FMT-LINE (3) TO HDR-FMT-LINE-3.                    DTSBR421
00618      MOVE R421-FMT-LINE (4) TO HDR-FMT-LINE-4.                    DTSBR421
00619      MOVE R421-FMT-LINE (5) TO HDR-FMT-LINE-5.                    DTSBR421
00620      MOVE R421-EMP-NO       TO HDR-EMP-NO.                        DTSBR421
00621      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING TOP-OF-PAGEDTSBR421
00622      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 07 LINE.   DTSBR421
00623      WRITE XEROX-REPORT FROM HDR-LINE-13 AFTER ADVANCING 1 LINE.  DTSBR421
00624      WRITE XEROX-REPORT FROM HDR-LINE-15 AFTER ADVANCING 1 LINE.  DTSBR421
00625      WRITE XEROX-REPORT FROM HDR-LINE-16 AFTER ADVANCING 1 LINE.  DTSBR421
00626      WRITE XEROX-REPORT FROM HDR-LINE-17 AFTER ADVANCING 1 LINE.  DTSBR421
00627      WRITE XEROX-REPORT FROM HDR-LINE-18 AFTER ADVANCING 1 LINE.  DTSBR421
00628      WRITE XEROX-REPORT FROM HDR-LINE-19 AFTER ADVANCING 1 LINE.  DTSBR421
00629      WRITE XEROX-REPORT FROM HDR-LINE-20 AFTER ADVANCING 1 LINE.  DTSBR421
00630      WRITE XEROX-REPORT FROM HDR-LINE-21 AFTER ADVANCING 1 LINE.  DTSBR421
00631      WRITE XEROX-REPORT FROM HDR-LINE-22 AFTER ADVANCING 3 LINE.  DTSBR421
00632      WRITE XEROX-REPORT FROM HDR-LINE-23 AFTER ADVANCING 1 LINE.  DTSBR421
00633                                                                   DTSBR421
00634  P4000-EXIT.                                                      DTSBR421
00635      EXIT.                                                        DTSBR421
00636                                                                   DTSBR421
00637  P5000-PRINT-DETAIL-1.                                            DTSBR421
00638      MOVE L090-PARAGRAPH-LINE (1) TO DTL1-PARAGRAPH-LINE-1.       DTSBR421
00639      MOVE L090-PARAGRAPH-LINE (2) TO DTL1-PARAGRAPH-LINE-2.       DTSBR421
00640      MOVE L090-PARAGRAPH-LINE (3) TO DTL1-PARAGRAPH-LINE-3.       DTSBR421
00641      WRITE XEROX-REPORT FROM DTL1-LINE-4 AFTER ADVANCING 3 LINE.  DTSBR421
00642      WRITE XEROX-REPORT FROM DTL1-LINE-5 AFTER ADVANCING 1 LINE.  DTSBR421
00643      WRITE XEROX-REPORT FROM DTL1-LINE-6 AFTER ADVANCING 1 LINE.  DTSBR421
00644      WRITE XEROX-REPORT FROM DTL1-LINE-7 AFTER ADVANCING 1 LINE.  DTSBR421
00645                                                                   DTSBR421
00646  P5000-EXIT.                                                      DTSBR421
00647      EXIT.                                                        DTSBR421
00648                                                                   DTSBR421
00649  P6000-PRINT-DETAIL-2.                                            DTSBR421
00650      MOVE L090-PARAGRAPH-LINE (1) TO DTL2-PARAGRAPH-LINE-1.       DTSBR421
00651      MOVE L090-PARAGRAPH-LINE (2) TO DTL2-PARAGRAPH-LINE-2.       DTSBR421
00652      MOVE L090-PARAGRAPH-LINE (3) TO DTL2-PARAGRAPH-LINE-3.       DTSBR421
00653      WRITE XEROX-REPORT FROM DTL2-LINE-3 AFTER ADVANCING 4 LINE.  DTSBR421
00654      WRITE XEROX-REPORT FROM DTL2-LINE-4 AFTER ADVANCING 1 LINE.  DTSBR421
00655      WRITE XEROX-REPORT FROM DTL2-LINE-5 AFTER ADVANCING 1 LINE.  DTSBR421
00656                                                                   DTSBR421
00657  P6000-EXIT.                                                      DTSBR421
00658      EXIT.                                                        DTSBR421
00659                                                                   DTSBR421
00660                                                                   DTSBR421
00661  P7000-PRINT-DETAIL-4A.                                           DTSBR421
00662      MOVE L090-PARAGRAPH-LINE (1) TO DTL4A-PARAGRAPH-LINE-1.      DTSBR421
00663      MOVE L090-PARAGRAPH-LINE (2) TO DTL4A-PARAGRAPH-LINE-2.      DTSBR421
00664      MOVE L090-PARAGRAPH-LINE (3) TO DTL4A-PARAGRAPH-LINE-3.      DTSBR421
00665      WRITE XEROX-REPORT FROM DTL4A-LINE-2 AFTER ADVANCING 3 LINE. DTSBR421
00666      WRITE XEROX-REPORT FROM DTL4A-LINE-3 AFTER ADVANCING 1 LINE. DTSBR421
00667      WRITE XEROX-REPORT FROM DTL4A-LINE-4 AFTER ADVANCING 1 LINE. DTSBR421
00668      WRITE XEROX-REPORT FROM DTL4A-LINE-5 AFTER ADVANCING 1 LINE. DTSBR421
00669      WRITE XEROX-REPORT FROM DTL4A-LINE-6 AFTER ADVANCING 1 LINE. DTSBR421
00670      WRITE XEROX-REPORT FROM DTL4A-LINE-7 AFTER ADVANCING 1 LINE. DTSBR421
00671                                                                   DTSBR421
00672  P7000-EXIT.                                                      DTSBR421
00673      EXIT.                                                        DTSBR421
00674                                                                   DTSBR421
00675  P8000-PRINT-DETAIL-5A.                                           DTSBR421
00676                                                                   DTSBR421
00677      MOVE WS-TEXT-LINE-5 TO DTL5A-TEXT-LINE-5.                    DTSBR421
00678      WRITE XEROX-REPORT FROM DTL5A-LINE-1 AFTER ADVANCING 1 LINE. DTSBR421
00679                                                                   DTSBR421
00680  P8000-EXIT.                                                      DTSBR421
00681      EXIT.                                                        DTSBR421
00682                                                                   DTSBR421
00683  P9000-PRINT-DETAIL-5B.                                           DTSBR421
00684                                                                   DTSBR421
00685      MOVE WS-TEXT-LINE-5 TO DTL5B-TEXT-LINE-5.                    DTSBR421
00686      WRITE XEROX-REPORT FROM DTL5B-LINE-0 AFTER ADVANCING 0 LINE. DTSBR421
00687                                                                   DTSBR421
00688  P9000-EXIT.                                                      DTSBR421
00689      EXIT.                                                        DTSBR421
00690                                                                   DTSBR421
00691  P9500-PRINT-VSCA-ADDR.                                           DTSBR421
00692      WRITE XEROX-REPORT     FROM VSCA-LINE                        DTSBR421
00693          AFTER ADVANCING TOP-OF-PAGE.                             DTSBR421
00694      WRITE XEROX-REPORT FROM VSCA-LINE AFTER ADVANCING 14 LINE.   DTSBR421
00695      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-17                    DTSBR421
00696              AFTER ADVANCING 1 LINE.                              DTSBR421
00697      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-18                    DTSBR421
00698              AFTER ADVANCING 1 LINE.                              DTSBR421
00699      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-19                    DTSBR421
00700              AFTER ADVANCING 1 LINE.                              DTSBR421
00701      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-20                    DTSBR421
00702              AFTER ADVANCING 1 LINE.                              DTSBR421
00703      WRITE XEROX-REPORT FROM VSCA-ADDR-LINE-21                    DTSBR421
00704              AFTER ADVANCING 1 LINE.                              DTSBR421
00705                                                                   DTSBR421
00706  P9500-EXIT.                                                      DTSBR421
00707      EXIT.                                                        DTSBR421
00708                                                                   DTSBR421
00709  T1000-TERMINATE.                                                 DTSBR421
00710      CLOSE PRT-FILE.                                              DTSBR421
00711  T1000-EXIT.                                                      DTSBR421
00712      EXIT.                                                        DTSBR421
00713      EJECT                                                        DTSBR421
00714  S001-FROM-FED-8.                                                 DTSBR421
00715      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR421
00716      GO TO S001-DATE.                                             DTSBR421
00717                                                                   DTSBR421
00718  S001-DATE.                                                       DTSBR421
00719      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR421
00720  S001-EXIT.                                                       DTSBR421
00721      EXIT.                                                        DTSBR421
00722      SKIP3                                                        DTSBR421
00723 *S002-UPPER-CASE.                                                 DTSBR421
00724 **   SET L002-UPPER-CASE TO TRUE.                                 DTSBR421
00725 **   GO TO S002-DATE-ALPHA.                                       DTSBR421
00726                                                                   DTSBR421
00727  S002-MIXED-CASE.                                                 DTSBR421
00728      SET L002-MIXED-CASE TO TRUE.                                 DTSBR421
00729      GO TO S002-DATE-ALPHA.                                       DTSBR421
00730                                                                   DTSBR421
00731  S002-DATE-ALPHA.                                                 DTSBR421
00732      CALL 'DTSBU002' USING L002-LINK-AREA.                        DTSBR421
00733  S002-EXIT.                                                       DTSBR421
00734      EXIT.                                                        DTSBR421
00735      SKIP3                                                        DTSBR421
00736 *S004-FROM-5.                                                     DTSBR421
00737 **   SET L004-FROM-5 TO TRUE.                                     DTSBR421
00738 **   GO TO S004-QUARTER.                                          DTSBR421
00739 **                                                                DTSBR421
00740 *S004-QUARTER.                                                    DTSBR421
00741 **   CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR421
00742 *S004-EXIT.                                                       DTSBR421
00743 **   EXIT.                                                        DTSBR421
00744      SKIP3                                                        DTSBR421
00745  S008-UPPER-CASE.                                                 DTSBR421
00746      SET L008-UPPER-CASE TO TRUE.                                 DTSBR421
00747      GO TO S008-QUARTER-ALPHA.                                    DTSBR421
00748                                                                   DTSBR421
00749 *S008-MIXED-CASE.                                                 DTSBR421
00750 **   SET L008-MIXED-CASE TO TRUE.                                 DTSBR421
00751 **   GO TO S008-QUARTER-ALPHA.                                    DTSBR421
00752                                                                   DTSBR421
00753  S008-QUARTER-ALPHA.                                              DTSBR421
00754      CALL 'DTSBU008' USING L008-LINK-AREA.                        DTSBR421
00755  S008-EXIT.                                                       DTSBR421
00756      EXIT.                                                        DTSBR421
00757      SKIP3                                                        DTSBR421
00758  S056-DISP1-LEFT-PCT.                                             DTSBR421
00759      SET L056-DISP1-LEFT-PCT-88 TO TRUE.                          DTSBR421
00760      GO TO S056-RATE-DISPLAY.                                     DTSBR421
00761                                                                   DTSBR421
00762  S056-RATE-DISPLAY.                                               DTSBR421
00763      CALL 'DTSBU056' USING L056-LINK-AREA.                        DTSBR421
00764  S056-EXIT.                                                       DTSBR421
00765      EXIT.                                                        DTSBR421
00766      SKIP3                                                        DTSBR421
00767  S062-FLD-REP-ID.                                                 DTSBR421
00768      CALL 'DTSBU062' USING L062-LINK-AREA.                        DTSBR421
00769  S062-EXIT.                                                       DTSBR421
00770      EXIT.                                                        DTSBR421
00771      SKIP3                                                        DTSBR421
00772  S071-FROM-LAST-NAME-FIRST.                                       DTSBR421
00773      SET L071-FROM-LAST-NAME-FIRST TO TRUE.                       DTSBR421
00774      GO TO S071-NAME-CONVERSION.                                  DTSBR421
00775                                                                   DTSBR421
00776  S071-NAME-CONVERSION.                                            DTSBR421
00777      CALL 'DTSBU071' USING L071-LINK-AREA.                        DTSBR421
00778  S071-EXIT.                                                       DTSBR421
00779      EXIT.                                                        DTSBR421
00780      SKIP3                                                        DTSBR421
00781  S090-PARAGRAPH-FORMAT.                                           DTSBR421
00782      MOVE +0 TO L090-INDENT.                                      DTSBR421
00783      SET L090-SPECIAL-CHAR-STD-88 TO TRUE.                        DTSBR421
00784                                                                   DTSBR421
00785      CALL 'DTSBU090' USING L090-LINK-AREA.                        DTSBR421
00786  S090-EXIT.                                                       DTSBR421
00787      EXIT.                                                        DTSBR421
00788      SKIP3                                                        DTSBR421
00789 *S119-REQ-CAPS.                                                   DTSBR421
00790 **   SET L119-REQ-CAPS-88 TO TRUE.                                DTSBR421
00791 **   GO TO S119-AGENCY-FACTS.                                     DTSBR421
00792                                                                   DTSBR421
00793  S119-REQ-MIXED.                                                  DTSBR421
00794      SET L119-REQ-MIXED-88 TO TRUE.                               DTSBR421
00795      GO TO S119-AGENCY-FACTS.                                     DTSBR421
00796                                                                   DTSBR421
00797  S119-AGENCY-FACTS.                                               DTSBR421
00798      CALL 'DTSBU119' USING L119-LINK-AREA.                        DTSBR421
00799  S119-EXIT.                                                       DTSBR421
00800      EXIT.                                                        DTSBR421
00801      SKIP3                                                        DTSBR421
00802  S999-ABEND.                                                      DTSBR421
00803      DISPLAY '***'.                                               DTSBR421
00804      DISPLAY '***  '                                              DTSBR421
00805              ABEND-MSG.                                           DTSBR421
00806      DISPLAY '***'.                                               DTSBR421
00807                                                                   DTSBR421
00808      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR421
00809  S999-EXIT.                                                       DTSBR421
00810      EXIT.                                                        DTSBR421
00811                                                                   DTSBR421
