00001  IDENTIFICATION DIVISION.                                         01/29/01
00002  PROGRAM-ID.             DTSBR904.                                DTSBR904
00003  AUTHOR.                 MT DEPT OF LABOR/UI PROGRAMMING SECTION     LV031
00004  DATE-WRITTEN.           JULY 1994.                               DTSBR904
00005  DATE-COMPILED.                                                   DTSBR904
00006                                                                   DTSBR904
00007 *****                                                             DTSBR904
00008 *    CALLING SEQUENCE:  DTSBD400 CALLS                            DTSBR904
00009 *                       DTSBD399 WHICH UPDATES DTSIR904           DTSBR904
00010 *                       DTSBR904 READS DTSIR904 RECORDS.          DTSBR904
00011 *                                                                 DTSBR904
00012 *    FUNCTION:  DAILY UPDATE CONTROL REPORT PRINTING.             DTSBR904
00013 *                                                                 DTSBR904
00014 *                                                                 DTSBR904
00015 *    MODIFICATION HISTORY:                                        DTSBR904
00016 *                                                                 DTSBR904
00017 * 07-25-94 INITIAL DEVELOPMENT                                    DTSBR904
00018 *          REFERENCE RFP #RAP             AUTHOR OF CHANGE - SFW  DTSBR904
00019 *                                                                 DTSBR904
00020 * MM-DD-YY MODIFIED TO DUTAS PROGRAM NAMING CONVENTIONS.          DTSBR904
00021 *          CHANGED ALL "COPY" STATEMENT TO "++INCLUDE"            DTSBR904
00022 *          REFERENCE RFP #****            AUTHOR OF CHANGE - DVS  DTSBR904
00023 *                                                                 DTSBR904
00024 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR904
00025 *          XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX  DTSBR904
00026 *          REFERENCE RFP #****            AUTHOR OF CHANGE - XXX  DTSBR904
00027 *                                                                 DTSBR904
00028 *                                                                 DTSBR904
00029 *    DESCRIPTION:                                                 DTSBR904
00030 *                                                                 DTSBR904
00031 *        THIS MODULE DISPLAYS WHAT THE MASTER FILE HEADER RECORD  DTSBR904
00032 *        FIELDS LOOKED LIKE BEFORE AND AFTER THE DAILY UPDATE     DTSBR904
00033 *        STEP.                                                    DTSBR904
00034 *                                                                 DTSBR904
00035 *                                                                 DTSBR904
00036 *    RECORDS READ:                                                DTSBR904
00037 *                                                                 DTSBR904
00038 *        NONE.                                                    DTSBR904
00039 *                                                                 DTSBR904
00040 *                                                                 DTSBR904
00041 *    PRINTED OUTPUTS:                                             DTSBR904
00042 *                                                                 DTSBR904
00043 *        907R1  DAILY UPDATE CONTROL REPORT LIST.                 DTSBR904
00044 *                                                                 DTSBR904
00045 *                                                                 DTSBR904
00046 *    RECORDS WRITTEN:                                             DTSBR904
00047 *                                                                 DTSBR904
00048 *        NONE.                                                    DTSBR904
00049 *                                                                 DTSBR904
00050 *                                                                 DTSBR904
00051 *    MODULES CALLED:                                              DTSBR904
00052 *                                                                 DTSBR904
00053 *        DTSBU001 DATE EDIT/CONVERSION MODULE                     DTSBR904
00054 *        DTSBU004 QUARTER EDIT/CONVERSION MODULE                  DTSBR904
00055 *                                                                 DTSBR904
00056 *                                                                 DTSBR904
00057 *****                                                             DTSBR904
00058      EJECT                                                        DTSBR904
00059  ENVIRONMENT DIVISION.                                            DTSBR904
00060                                                                   DTSBR904
00061  CONFIGURATION SECTION.                                           DTSBR904
00062  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR904
00063                                                                   DTSBR904
00064  INPUT-OUTPUT SECTION.                                            DTSBR904
00065                                                                   DTSBR904
00066  FILE-CONTROL.                                                    DTSBR904
00067      SELECT PRT-FILE ASSIGN TO RPT904R1.                          DTSBR904
00068                                                                   DTSBR904
00069  DATA DIVISION.                                                   DTSBR904
00070                                                                   DTSBR904
00071  FILE SECTION.                                                    DTSBR904
00072                                                                   DTSBR904
00073  FD  PRT-FILE                                                     DTSBR904
00074      RECORDING MODE IS F.                                         DTSBR904
00075  01  REPORT-LISTING1                 PIC  X(133).                 DTSBR904
00076                                                                   DTSBR904
00077  WORKING-STORAGE SECTION.                                         DTSBR904
000775 77  PAN-VALET PICTURE X(24) VALUE '031DTSBR904  01/29/01'.       DTSBR904
00078                                                                   DTSBR904
00079  01  WRK-AREA.                                                    DTSBR904
00080      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +904.DTSBR904
00081      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR904
00082                                                                   DTSBR904
00083      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR904
00084      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR904
00085      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR904
00086                                                                   DTSBR904
00087      05  WRK-SUB                     PIC S9(04)  COMP  VALUE +0.  DTSBR904
00088                                                                   DTSBR904
00089      05  WRK-QTRS-DATES OCCURS 2 TIMES.                           DTSBR904
00090          10  WRK-PRIOR-RUN-DATE      PIC  X(10)  VALUE SPACES.    DTSBR904
00091          10  WRK-PRIOR-MAIL-DATE     PIC  X(10)  VALUE SPACES.    DTSBR904
00092          10  WRK-CURR-RUN-DATE       PIC  X(10)  VALUE SPACES.    DTSBR904
00093          10  WRK-CURR-MAIL-DATE      PIC  X(10)  VALUE SPACES.    DTSBR904
00094          10  WRK-NEXT-RUN-DATE       PIC  X(10)  VALUE SPACES.    DTSBR904
00095          10  WRK-NEXT-MAIL-DATE      PIC  X(10)  VALUE SPACES.    DTSBR904
00096          10  WRK-CMPL-WEEK-BEGIN-DATE                             DTSBR904
00097                                      PIC  X(10)  VALUE SPACES.    DTSBR904
00098          10  WRK-CMPL-WEEK-END-DATE  PIC  X(10)  VALUE SPACES.    DTSBR904
00099          10  WRK-CMPL-MONTH-BEGIN-DATE                            DTSBR904
00100                                      PIC  X(10)  VALUE SPACES.    DTSBR904
00101          10  WRK-CMPL-MONTH-END-DATE PIC  X(10)  VALUE SPACES.    DTSBR904
00102          10  WRK-CMPL-QTR-BEGIN-DATE PIC  X(10)  VALUE SPACES.    DTSBR904
00103          10  WRK-CMPL-QTR-END-DATE   PIC  X(10)  VALUE SPACES.    DTSBR904
00104          10  WRK-CMPL-YEAR-BEGIN-DATE                             DTSBR904
00105                                      PIC  X(10)  VALUE SPACES.    DTSBR904
00106          10  WRK-CMPL-YEAR-END-DATE  PIC  X(10)  VALUE SPACES.    DTSBR904
00107          10  WRK-DEFAULT-RCV-DATE    PIC  X(10)  VALUE SPACES.    DTSBR904
00108          10  WRK-LAST-MJRN-PURGE-DATE                             DTSBR904
00109                                      PIC  X(10)  VALUE SPACES.    DTSBR904
00110                                                                   DTSBR904
00111          10  WRK-LAST-UC30-MASS-MAIL-YRQ                          DTSBR904
00112                                      PIC  X(06)  VALUE SPACES.    DTSBR904
00113          10  WRK-LAST-UC30-DEL-MAIL-YRQ                           DTSBR904
00114                                      PIC  X(06)  VALUE SPACES.    DTSBR904
00115          10  WRK-FIRST-PURSUED-RPT-YRQ                            DTSBR904
00116                                      PIC  X(06)  VALUE SPACES.    DTSBR904
00117          10  WRK-LAST-RATE-END-YRQ                                DTSBR904
00118                                      PIC  X(06)  VALUE SPACES.    DTSBR904
00119      EJECT                                                        DTSBR904
00120  01  L001-LINK-AREA.                                              DTSBR904
00121  ++INCLUDE DTSIL001                                               DTSBR904
00122      EJECT                                                        DTSBR904
00123  01  L004-LINK-AREA.                                              DTSBR904
00124  ++INCLUDE DTSIL004                                               DTSBR904
00125      EJECT                                                        DTSBR904
00126                                                                   DTSBR904
00127  01  PAGE-HEADING.                                                DTSBR904
00128      05  HDR-LINE-1.                                              DTSBR904
00129          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00130          10  FILLER                  PIC  X(05)                   DTSBR904
00131                 VALUE '904R1'.                                    DTSBR904
00132          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR904
00133          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR904
00134          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR904
00135          10  FILLER                  PIC  X(05)                   DTSBR904
00136                 VALUE 'DATE:'.                                    DTSBR904
00137          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00138          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR904
00139                                                                   DTSBR904
00140      05  HDR-LINE-2.                                              DTSBR904
00141          10  FILLER                  PIC  X(40)  VALUE SPACES.    DTSBR904
00142          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR904
00143          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR904
00144          10  FILLER                  PIC  X(05)                   DTSBR904
00145                 VALUE 'TIME:'.                                    DTSBR904
00146          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00147          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR904
00148                                                                   DTSBR904
00149      05  HDR-LINE-3.                                              DTSBR904
00150          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00151          10  FILLER                  PIC  X(10)                   DTSBR904
00152                 VALUE 'ROUTE TO: '.                               DTSBR904
00153          10  WRK-ROUTE-LOCATION-1    PIC  X(25).                  DTSBR904
00154          10  FILLER                  PIC  X(82)  VALUE SPACES.    DTSBR904
00155          10  FILLER                  PIC  X(05)                   DTSBR904
00156                 VALUE 'PAGE:'.                                    DTSBR904
00157          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR904
00158          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR904
00159                                                                   DTSBR904
00160      05  HDR-LINE-4.                                              DTSBR904
00161          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR904
00162          10  WRK-ROUTE-LOCATION-2    PIC  X(25).                  DTSBR904
00163          10  FILLER                  PIC  X(15)  VALUE SPACES.    DTSBR904
00164          10  FILLER                  PIC  X(27)                   DTSBR904
00165                 VALUE 'DAILY UPDATE CONTROL REPORT'.              DTSBR904
00166                                                                   DTSBR904
00167      05  HDR-LINE-5                  PIC  X(133) VALUE SPACES.    DTSBR904
00168                                                                   DTSBR904
00169      05  HDR-LINE-6                  PIC  X(133) VALUE SPACES.    DTSBR904
00170                                                                   DTSBR904
00171      05  HDR-LINE-7.                                              DTSBR904
00172          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00173          10  FILLER                  PIC  X(10)                   DTSBR904
00174                 VALUE 'RUN TYPE: '.                               DTSBR904
00175          10  HDR-RUN-TYPE            PIC  X(01).                  DTSBR904
00176                                                                   DTSBR904
00177  01  DETAIL-LINE.                                                 DTSBR904
00178      05  DTL-LINE-3.                                              DTSBR904
00179          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00180          10  FILLER                  PIC  X(39)                   DTSBR904
00181                 VALUE 'PRE UPDATE HEADER RECORD FIELD VALUES: '.  DTSBR904
00182                                                                   DTSBR904
00183      05  DTL-LINE-4                  PIC  X(133) VALUE SPACES.    DTSBR904
00184                                                                   DTSBR904
00185      05  DTL-LINE-5.                                              DTSBR904
00186          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR904
00187          10  FILLER                  PIC  X(15)                   DTSBR904
00188                 VALUE 'PRIOR RUN DATE:'.                          DTSBR904
00189          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00190          10  DTL-PRIOR-RUN-DATE-1    PIC  X(10).                  DTSBR904
00191          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR904
00192          10  FILLER                  PIC  X(16)                   DTSBR904
00193                 VALUE 'PRIOR MAIL-DATE:'.                         DTSBR904
00194          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00195          10  DTL-PRIOR-MAIL-DATE-1   PIC  X(10).                  DTSBR904
00196                                                                   DTSBR904
00197      05  DTL-LINE-6.                                              DTSBR904
00198          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR904
00199          10  FILLER                  PIC  X(17)                   DTSBR904
00200                 VALUE 'CURRENT RUN DATE:'.                        DTSBR904
00201          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00202          10  DTL-CURR-RUN-DATE-1     PIC  X(10).                  DTSBR904
00203          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR904
00204          10  FILLER                  PIC  X(18)                   DTSBR904
00205                 VALUE 'CURRENT MAIL DATE:'.                       DTSBR904
00206          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00207          10  DTL-CURR-MAIL-DATE-1    PIC  X(10).                  DTSBR904
00208          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR904
00209          10  FILLER                  PIC  X(23)                   DTSBR904
00210                 VALUE 'LAST USED BATCH NUMBER:'.                  DTSBR904
00211          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00212          10  DTL-LAST-USED-BATCH-NO-1 PIC 9(05).                  DTSBR904
00213                                                                   DTSBR904
00214      05  DTL-LINE-7.                                              DTSBR904
00215          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR904
00216          10  FILLER                  PIC  X(14)                   DTSBR904
00217                 VALUE 'NEXT RUN DATE:'.                           DTSBR904
00218          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00219          10  DTL-NEXT-RUN-DATE-1     PIC  X(10).                  DTSBR904
00220          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR904
00221          10  FILLER                  PIC  X(15)                   DTSBR904
00222                 VALUE 'NEXT MAIL DATE:'.                          DTSBR904
00223          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00224          10  DTL-NEXT-MAIL-DATE-1    PIC  X(10).                  DTSBR904
00225          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR904
00226          10  FILLER                  PIC  X(22)                   DTSBR904
00227                 VALUE 'DEFAULT RECEIVED DATE:'.                   DTSBR904
00228          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00229          10  DTL-DEFAULT-RCV-DATE-1  PIC  X(10).                  DTSBR904
00230                                                                   DTSBR904
00231      05  DTL-LINE-8                  PIC  X(133) VALUE SPACES.    DTSBR904
00232                                                                   DTSBR904
00233      05  DTL-LINE-9                  PIC  X(133) VALUE SPACES.    DTSBR904
00234                                                                   DTSBR904
00235      05  DTL-LINE-10.                                             DTSBR904
00236          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR904
00237          10  FILLER                  PIC  X(34)                   DTSBR904
00238                 VALUE 'LAST COMPLETED WEEK    BEGIN DATE:'.       DTSBR904
00239          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00240          10  DTL-CMPL-WEEK-BEGIN-DATE-1 PIC  X(10).               DTSBR904
00241          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR904
00242          10  FILLER                  PIC  X(32)                   DTSBR904
00243                 VALUE 'LAST COMPLETED WEEK    END DATE:'.         DTSBR904
00244          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00245          10  DTL-CMPL-WEEK-END-DATE-1 PIC  X(10).                 DTSBR904
00246                                                                   DTSBR904
00247      05  DTL-LINE-11.                                             DTSBR904
00248          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR904
00249          10  FILLER                  PIC  X(34)                   DTSBR904
00250                 VALUE 'LAST COMPLETED MONTH   BEGIN DATE:'.       DTSBR904
00251          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00252          10  DTL-CMPL-MONTH-BEGIN-DATE-1 PIC  X(10).              DTSBR904
00253          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR904
00254          10  FILLER                  PIC  X(32)                   DTSBR904
00255                 VALUE 'LAST COMPLETED MONTH   END DATE:'.         DTSBR904
00256          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00257          10  DTL-CMPL-MONTH-END-DATE-1 PIC  X(10).                DTSBR904
00258                                                                   DTSBR904
00259      05  DTL-LINE-12.                                             DTSBR904
00260          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR904
00261          10  FILLER                  PIC  X(34)                   DTSBR904
00262                 VALUE 'LAST COMPLETED QUARTER BEGIN DATE:'.       DTSBR904
00263          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00264          10  DTL-CMPL-QTR-BEGIN-DATE-1 PIC  X(10).                DTSBR904
00265          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR904
00266          10  FILLER                  PIC  X(32)                   DTSBR904
00267                 VALUE 'LAST COMPLETED QUARTER END DATE:'.         DTSBR904
00268          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00269          10  DTL-CMPL-QTR-END-DATE-1 PIC  X(10).                  DTSBR904
00270                                                                   DTSBR904
00271      05  DTL-LINE-13.                                             DTSBR904
00272          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR904
00273          10  FILLER                  PIC  X(34)                   DTSBR904
00274                 VALUE 'LAST COMPLETED YEAR    BEGIN DATE:'.       DTSBR904
00275          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00276          10  DTL-CMPL-YEAR-BEGIN-DATE-1 PIC  X(10).               DTSBR904
00277          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR904
00278          10  FILLER                  PIC  X(32)                   DTSBR904
00279                 VALUE 'LAST COMPLETED YEAR    END DATE:'.         DTSBR904
00280          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00281          10  DTL-CMPL-YEAR-END-DATE-1 PIC  X(10).                 DTSBR904
00282                                                                   DTSBR904
00283      05  DTL-LINE-14                 PIC  X(133) VALUE SPACES.    DTSBR904
00284                                                                   DTSBR904
00285      05  DTL-LINE-15                 PIC  X(133) VALUE SPACES.    DTSBR904
00286                                                                   DTSBR904
00287      05  DTL-LINE-16.                                             DTSBR904
00288          10  FILLER                  PIC  X(18)  VALUE SPACES.    DTSBR904
00289          10  FILLER                  PIC  X(17)                   DTSBR904
00290                 VALUE 'LAST USED EMP NO:'.                        DTSBR904
00291          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00292          10  DTL-LAST-USED-EMP-NO-1  PIC  999B999.                DTSBR904
00293          10  FILLER                  PIC  X(33)  VALUE SPACES.    DTSBR904
00294          10  FILLER                  PIC  X(22)                   DTSBR904
00295                 VALUE 'LAST USED REFUND NO. :'.                   DTSBR904
00296          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00297          10  DTL-LAST-USED-REFUND-NO-1 PIC  99B9999.              DTSBR904
00298                                                                   DTSBR904
00299      05  DTL-LINE-17.                                             DTSBR904
00300          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR904
00301          10  FILLER                  PIC  X(26)                   DTSBR904
00302                 VALUE 'LAST USED FIELD ASSIGN NO:'.               DTSBR904
00303          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00304          10  DTL-LAST-USED-ASSIGN-NO-1 PIC  99B99999.             DTSBR904
00305          10  FILLER                  PIC  X(32)  VALUE SPACES.    DTSBR904
00306          10  FILLER                  PIC  X(22)                   DTSBR904
00307                 VALUE '    LAST USED LIEN NO:'.                   DTSBR904
00308          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00309          10  DTL-LAST-USED-LIEN-NO-1 PIC  99B9999.                DTSBR904
00310                                                                   DTSBR904
00311      05  DTL-LINE-18.                                             DTSBR904
00312          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR904
00313          10  FILLER                  PIC  X(26)                   DTSBR904
00314                 VALUE 'LAST UC-30 MASS MAIL QTR :'.               DTSBR904
00315          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00316          10  DTL-LAST-UC30-MASS-MAIL-YRQ-1 PIC  X(06).            DTSBR904
00317          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR904
00318          10  FILLER                  PIC  X(22)                   DTSBR904
00319                 VALUE 'FIRST PURSUED RPT QTR:'.                   DTSBR904
00320          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00321          10  DTL-FIRST-PURSUED-RPT-YRQ-1 PIC  X(06).              DTSBR904
00322                                                                   DTSBR904
00323      05  DTL-LINE-19.                                             DTSBR904
00324          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR904
00325          10  FILLER                  PIC  X(26)                   DTSBR904
00326                 VALUE 'LAST UC-30 DEL MAIL QTR  :'.               DTSBR904
00327          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00328          10  DTL-LAST-UC30-DEL-MAIL-YRQ-1 PIC  X(06).             DTSBR904
00329          10  FILLER                  PIC  X(20)  VALUE SPACES.    DTSBR904
00330          10  FILLER                  PIC  X(36)                   DTSBR904
00331                 VALUE 'LAST MASTER FILE JOURNAL PURGE DATE:'.     DTSBR904
00332          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00333          10  DTL-LAST-MJRN-PURGE-DATE-1 PIC  X(10).               DTSBR904
00334                                                                   DTSBR904
00335      05  DTL-LINE-20.                                             DTSBR904
00336          10  FILLER                  PIC  X(16)  VALUE SPACES.    DTSBR904
00337          10  FILLER                  PIC  X(19)                   DTSBR904
00338                 VALUE 'LAST RATE END QTR :'.                      DTSBR904
00339          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00340          10  DTL-LAST-RATE-END-YRQ-1 PIC  X(06).                  DTSBR904
00341                                                                   DTSBR904
00342      05  DTL-LINE-21                 PIC  X(133) VALUE SPACES.    DTSBR904
00343                                                                   DTSBR904
00344      05  DTL-LINE-22                 PIC  X(133) VALUE SPACES.    DTSBR904
00345                                                                   DTSBR904
00346      05  DTL-LINE-23                 PIC  X(133) VALUE SPACES.    DTSBR904
00347                                                                   DTSBR904
00348      05  DTL-LINE-24.                                             DTSBR904
00349          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00350          10  FILLER                  PIC  X(39)                   DTSBR904
00351                 VALUE 'POST UPDATE HEADER RECORD FIELD VALUES:'.  DTSBR904
00352                                                                   DTSBR904
00353      05  DTL-LINE-25                 PIC  X(133) VALUE SPACES.    DTSBR904
00354                                                                   DTSBR904
00355      05  DTL-LINE-26.                                             DTSBR904
00356          10  FILLER                  PIC  X(06)  VALUE SPACES.    DTSBR904
00357          10  FILLER                  PIC  X(15)                   DTSBR904
00358                 VALUE 'PRIOR RUN DATE:'.                          DTSBR904
00359          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00360          10  DTL-PRIOR-RUN-DATE-2    PIC  X(10).                  DTSBR904
00361          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR904
00362          10  FILLER                  PIC  X(16)                   DTSBR904
00363                 VALUE 'PRIOR MAIL-DATE:'.                         DTSBR904
00364          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00365          10  DTL-PRIOR-MAIL-DATE-2   PIC  X(10).                  DTSBR904
00366                                                                   DTSBR904
00367      05  DTL-LINE-27.                                             DTSBR904
00368          10  FILLER                  PIC  X(04)  VALUE SPACES.    DTSBR904
00369          10  FILLER                  PIC  X(17)                   DTSBR904
00370                 VALUE 'CURRENT RUN DATE:'.                        DTSBR904
00371          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00372          10  DTL-CURR-RUN-DATE-2     PIC  X(10).                  DTSBR904
00373          10  FILLER                  PIC  X(08)  VALUE SPACES.    DTSBR904
00374          10  FILLER                  PIC  X(18)                   DTSBR904
00375                 VALUE 'CURRENT MAIL DATE:'.                       DTSBR904
00376          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00377          10  DTL-CURR-MAIL-DATE-2    PIC  X(10).                  DTSBR904
00378          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR904
00379          10  FILLER                  PIC  X(23)                   DTSBR904
00380                 VALUE 'LAST USED BATCH NUMBER:'.                  DTSBR904
00381          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00382          10  DTL-LAST-USED-BATCH-NO-2 PIC 9(05).                  DTSBR904
00383                                                                   DTSBR904
00384      05  DTL-LINE-28.                                             DTSBR904
00385          10  FILLER                  PIC  X(07)  VALUE SPACES.    DTSBR904
00386          10  FILLER                  PIC  X(14)                   DTSBR904
00387                 VALUE 'NEXT RUN DATE:'.                           DTSBR904
00388          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00389          10  DTL-NEXT-RUN-DATE-2     PIC  X(10).                  DTSBR904
00390          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR904
00391          10  FILLER                  PIC  X(15)                   DTSBR904
00392                 VALUE 'NEXT MAIL DATE:'.                          DTSBR904
00393          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00394          10  DTL-NEXT-MAIL-DATE-2    PIC  X(10).                  DTSBR904
00395          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR904
00396          10  FILLER                  PIC  X(22)                   DTSBR904
00397                 VALUE 'DEFAULT RECEIVED DATE:'.                   DTSBR904
00398          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00399          10  DTL-DEFAULT-RCV-DATE-2  PIC  X(10).                  DTSBR904
00400                                                                   DTSBR904
00401      05  DTL-LINE-29                 PIC  X(133) VALUE SPACES.    DTSBR904
00402                                                                   DTSBR904
00403      05  DTL-LINE-30                 PIC  X(133) VALUE SPACES.    DTSBR904
00404                                                                   DTSBR904
00405      05  DTL-LINE-31.                                             DTSBR904
00406          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR904
00407          10  FILLER                  PIC  X(34)                   DTSBR904
00408                 VALUE 'LAST COMPLETED WEEK    BEGIN DATE:'.       DTSBR904
00409          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00410          10  DTL-CMPL-WEEK-BEGIN-DATE-2 PIC  X(10).               DTSBR904
00411          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR904
00412          10  FILLER                  PIC  X(32)                   DTSBR904
00413                 VALUE 'LAST COMPLETED WEEK    END DATE:'.         DTSBR904
00414          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00415          10  DTL-CMPL-WEEK-END-DATE-2 PIC  X(10).                 DTSBR904
00416                                                                   DTSBR904
00417      05  DTL-LINE-32.                                             DTSBR904
00418          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR904
00419          10  FILLER                  PIC  X(34)                   DTSBR904
00420                 VALUE 'LAST COMPLETED MONTH   BEGIN DATE:'.       DTSBR904
00421          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00422          10  DTL-CMPL-MONTH-BEGIN-DATE-2 PIC  X(10).              DTSBR904
00423          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR904
00424          10  FILLER                  PIC  X(32)                   DTSBR904
00425                 VALUE 'LAST COMPLETED MONTH   END DATE:'.         DTSBR904
00426          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00427          10  DTL-CMPL-MONTH-END-DATE-2 PIC  X(10).                DTSBR904
00428                                                                   DTSBR904
00429      05  DTL-LINE-33.                                             DTSBR904
00430          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR904
00431          10  FILLER                  PIC  X(34)                   DTSBR904
00432                 VALUE 'LAST COMPLETED QUARTER BEGIN DATE:'.       DTSBR904
00433          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00434          10  DTL-CMPL-QTR-BEGIN-DATE-2 PIC  X(10).                DTSBR904
00435          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR904
00436          10  FILLER                  PIC  X(32)                   DTSBR904
00437                 VALUE 'LAST COMPLETED QUARTER END DATE:'.         DTSBR904
00438          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00439          10  DTL-CMPL-QTR-END-DATE-2 PIC  X(10).                  DTSBR904
00440                                                                   DTSBR904
00441      05  DTL-LINE-34.                                             DTSBR904
00442          10  FILLER                  PIC  X(05)  VALUE SPACES.    DTSBR904
00443          10  FILLER                  PIC  X(34)                   DTSBR904
00444                 VALUE 'LAST COMPLETED YEAR    BEGIN DATE:'.       DTSBR904
00445          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00446          10  DTL-CMPL-YEAR-BEGIN-DATE-2 PIC  X(10).               DTSBR904
00447          10  FILLER                  PIC  X(11)  VALUE SPACES.    DTSBR904
00448          10  FILLER                  PIC  X(32)                   DTSBR904
00449                 VALUE 'LAST COMPLETED YEAR    END DATE:'.         DTSBR904
00450          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00451          10  DTL-CMPL-YEAR-END-DATE-2 PIC  X(10).                 DTSBR904
00452                                                                   DTSBR904
00453      05  DTL-LINE-35                 PIC  X(133) VALUE SPACES.    DTSBR904
00454                                                                   DTSBR904
00455      05  DTL-LINE-36                 PIC  X(133) VALUE SPACES.    DTSBR904
00456                                                                   DTSBR904
00457      05  DTL-LINE-37.                                             DTSBR904
00458          10  FILLER                  PIC  X(18)  VALUE SPACES.    DTSBR904
00459          10  FILLER                  PIC  X(17)                   DTSBR904
00460                 VALUE 'LAST USED EMP NO:'.                        DTSBR904
00461          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00462          10  DTL-LAST-USED-EMP-NO-2  PIC  999B999.                DTSBR904
00463          10  FILLER                  PIC  X(33)  VALUE SPACES.    DTSBR904
00464          10  FILLER                  PIC  X(22)                   DTSBR904
00465                 VALUE 'LAST USED REFUND NO. :'.                   DTSBR904
00466          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00467          10  DTL-LAST-USED-REFUND-NO-2 PIC  99B9999.              DTSBR904
00468                                                                   DTSBR904
00469      05  DTL-LINE-38.                                             DTSBR904
00470          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR904
00471          10  FILLER                  PIC  X(26)                   DTSBR904
00472                 VALUE 'LAST USED FIELD ASSIGN NO:'.               DTSBR904
00473          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00474          10  DTL-LAST-USED-ASSIGN-NO-2 PIC  99B99999.             DTSBR904
00475          10  FILLER                  PIC  X(32)  VALUE SPACES.    DTSBR904
00476          10  FILLER                  PIC  X(22)                   DTSBR904
00477                 VALUE '    LAST USED LIEN NO:'.                   DTSBR904
00478          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00479          10  DTL-LAST-USED-LIEN-NO-2 PIC  99B9999.                DTSBR904
00480                                                                   DTSBR904
00481      05  DTL-LINE-39.                                             DTSBR904
00482          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR904
00483          10  FILLER                  PIC  X(26)                   DTSBR904
00484                 VALUE 'LAST UC-30 MASS MAIL QTR :'.               DTSBR904
00485          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00486          10  DTL-LAST-UC30-MASS-MAIL-YRQ-2 PIC  X(06).            DTSBR904
00487          10  FILLER                  PIC  X(34)  VALUE SPACES.    DTSBR904
00488          10  FILLER                  PIC  X(22)                   DTSBR904
00489                 VALUE 'FIRST PURSUED RPT QTR:'.                   DTSBR904
00490          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00491          10  DTL-FIRST-PURSUED-RPT-YRQ-2 PIC  X(06).              DTSBR904
00492                                                                   DTSBR904
00493      05  DTL-LINE-40.                                             DTSBR904
00494          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR904
00495          10  FILLER                  PIC  X(26)                   DTSBR904
00496                 VALUE 'LAST UC-30 DEL MAIL QTR  :'.               DTSBR904
00497          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00498          10  DTL-LAST-UC30-DEL-MAIL-YRQ-2 PIC  X(06).             DTSBR904
00499          10  FILLER                  PIC  X(20)  VALUE SPACES.    DTSBR904
00500          10  FILLER                  PIC  X(36)                   DTSBR904
00501                 VALUE 'LAST MASTER FILE JOURNAL PURGE DATE:'.     DTSBR904
00502          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00503          10  DTL-LAST-MJRN-PURGE-DATE-2 PIC  X(10).               DTSBR904
00504                                                                   DTSBR904
00505      05  DTL-LINE-41.                                             DTSBR904
00506          10  FILLER                  PIC  X(16)  VALUE SPACES.    DTSBR904
00507          10  FILLER                  PIC  X(19)                   DTSBR904
00508                 VALUE 'LAST RATE END QTR :'.                      DTSBR904
00509          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR904
00510          10  DTL-LAST-RATE-END-YRQ-2 PIC  X(06).                  DTSBR904
00511      EJECT                                                        DTSBR904
00512  LINKAGE SECTION.                                                 DTSBR904
00513                                                                   DTSBR904
00514  01  LRCM-LINK-AREA.                                              DTSBR904
00515  ++INCLUDE DTSILRCM                                               DTSBR904
00516      EJECT                                                        DTSBR904
00517  01  R904-REC.                                                    DTSBR904
00518  ++INCLUDE DTSIR904                                               DTSBR904
00519      EJECT                                                        DTSBR904
00520  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR904
00521                           R904-REC.                               DTSBR904
00522                                                                   DTSBR904
00523      IF FIRST-TIME-IND = 'Y'                                      DTSBR904
00524          PERFORM I1000-INITIATE                                   DTSBR904
00525             THRU I1000-EXIT                                       DTSBR904
00526          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR904
00527                                                                   DTSBR904
00528      IF LRCM-EOR-88                                               DTSBR904
00529          PERFORM T1000-TERMINATE                                  DTSBR904
00530             THRU T1000-EXIT                                       DTSBR904
00531      ELSE                                                         DTSBR904
00532          PERFORM P1000-PROCESS                                    DTSBR904
00533             THRU P1000-EXIT.                                      DTSBR904
00534                                                                   DTSBR904
00535      GOBACK.                                                      DTSBR904
00536      EJECT                                                        DTSBR904
00537  I1000-INITIATE.                                                  DTSBR904
00538                                                                   DTSBR904
00539      OPEN OUTPUT PRT-FILE.                                        DTSBR904
00540      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR904
00541      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR904
00542      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR904
00543      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR904
00544      MOVE SPACES TO REPORT-LISTING1.                              DTSBR904
00545                                                                   DTSBR904
00546  I1000-EXIT.                                                      DTSBR904
00547      EXIT.                                                        DTSBR904
00548      EJECT                                                        DTSBR904
00549  P1000-PROCESS.                                                   DTSBR904
00550                                                                   DTSBR904
00551      PERFORM P1100-SETUP-QTRS-AND-DATES                           DTSBR904
00552         THRU P1100-EXIT                                           DTSBR904
00553           VARYING WRK-SUB FROM 1 BY 1                             DTSBR904
00554             UNTIL WRK-SUB > 2.                                    DTSBR904
00555                                                                   DTSBR904
00556      MOVE R904-RUN-TYPE               TO HDR-RUN-TYPE.            DTSBR904
00557      MOVE 'UI TAX PROGRAMMERS  '      TO WRK-ROUTE-LOCATION-1.    DTSBR904
00558      MOVE SPACES                      TO WRK-ROUTE-LOCATION-2.    DTSBR904
00559                                                                   DTSBR904
00560      PERFORM P2000-MOVE-DATA THRU P2000-EXIT.                     DTSBR904
00561      PERFORM P3000-PRINT-HEADER THRU P3000-EXIT.                  DTSBR904
00562      PERFORM P4000-PRINT-DETAIL THRU P4000-EXIT.                  DTSBR904
00563      MOVE +0          TO WS-PAGE-CNT.                             DTSBR904
00564      MOVE +60         TO WS-LINE-CNT2.                            DTSBR904
00565                                                                   DTSBR904
00566      MOVE 'TAX ACCOUNTING SECTION'    TO WRK-ROUTE-LOCATION-1.    DTSBR904
00567      MOVE 'CONTRIBUTIONS BUREAU'      TO WRK-ROUTE-LOCATION-2.    DTSBR904
00568                                                                   DTSBR904
00569      PERFORM P2000-MOVE-DATA THRU P2000-EXIT.                     DTSBR904
00570      PERFORM P3000-PRINT-HEADER THRU P3000-EXIT.                  DTSBR904
00571      PERFORM P4000-PRINT-DETAIL THRU P4000-EXIT.                  DTSBR904
00572                                                                   DTSBR904
00573  P1000-EXIT.                                                      DTSBR904
00574      EXIT.                                                        DTSBR904
00575                                                                   DTSBR904
00576  P1100-SETUP-QTRS-AND-DATES.                                      DTSBR904
00577                                                                   DTSBR904
00578      SET L004-FROM-5 TO TRUE.                                     DTSBR904
00579                                                                   DTSBR904
00580      MOVE R904-LAST-UC30-MASS-MAIL-YRQ (WRK-SUB) TO L004-QTR-5-9. DTSBR904
00581      PERFORM S004-LINK-QTR                                        DTSBR904
00582         THRU S004-EXIT.                                           DTSBR904
00583      MOVE L004-SLASH-5-QTR TO                                     DTSBR904
00584             WRK-LAST-UC30-MASS-MAIL-YRQ (WRK-SUB).                DTSBR904
00585                                                                   DTSBR904
00586      MOVE R904-LAST-UC30-DEL-MAIL-YRQ (WRK-SUB) TO L004-QTR-5-9.  DTSBR904
00587      PERFORM S004-LINK-QTR                                        DTSBR904
00588         THRU S004-EXIT.                                           DTSBR904
00589      MOVE L004-SLASH-5-QTR TO WRK-LAST-UC30-DEL-MAIL-YRQ (WRK-SUB)DTSBR904
00590                                                                   DTSBR904
00591      MOVE R904-FIRST-PURSUED-RPT-YRQ (WRK-SUB) TO L004-QTR-5-9.   DTSBR904
00592      PERFORM S004-LINK-QTR                                        DTSBR904
00593         THRU S004-EXIT.                                           DTSBR904
00594      MOVE L004-SLASH-5-QTR TO WRK-FIRST-PURSUED-RPT-YRQ (WRK-SUB).DTSBR904
00595                                                                   DTSBR904
00596      MOVE R904-LAST-RATE-END-YRQ (WRK-SUB) TO L004-QTR-5-9.       DTSBR904
00597      PERFORM S004-LINK-QTR                                        DTSBR904
00598         THRU S004-EXIT.                                           DTSBR904
00599      MOVE L004-SLASH-5-QTR TO WRK-LAST-RATE-END-YRQ (WRK-SUB).    DTSBR904
00600                                                                   DTSBR904
00601                                                                   DTSBR904
00602      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR904
00603                                                                   DTSBR904
00604      MOVE R904-PRIOR-RUN-DATE (WRK-SUB) TO L001-FED-8-DATE-9.     DTSBR904
00605      PERFORM S001-LINK-DATE                                       DTSBR904
00606         THRU S001-EXIT.                                           DTSBR904
00607      MOVE L001-SLASH-8-DATE TO WRK-PRIOR-RUN-DATE (WRK-SUB).      DTSBR904
00608                                                                   DTSBR904
00609      MOVE R904-PRIOR-MAIL-DATE (WRK-SUB) TO L001-FED-8-DATE-9.    DTSBR904
00610      PERFORM S001-LINK-DATE                                       DTSBR904
00611         THRU S001-EXIT.                                           DTSBR904
00612      MOVE L001-SLASH-8-DATE TO WRK-PRIOR-MAIL-DATE (WRK-SUB).     DTSBR904
00613                                                                   DTSBR904
00614      MOVE R904-CURR-RUN-DATE (WRK-SUB) TO L001-FED-8-DATE-9.      DTSBR904
00615      PERFORM S001-LINK-DATE                                       DTSBR904
00616         THRU S001-EXIT.                                           DTSBR904
00617      MOVE L001-SLASH-8-DATE TO WRK-CURR-RUN-DATE (WRK-SUB).       DTSBR904
00618                                                                   DTSBR904
00619      MOVE R904-CURR-MAIL-DATE (WRK-SUB) TO L001-FED-8-DATE-9.     DTSBR904
00620      PERFORM S001-LINK-DATE                                       DTSBR904
00621         THRU S001-EXIT.                                           DTSBR904
00622      MOVE L001-SLASH-8-DATE TO WRK-CURR-MAIL-DATE (WRK-SUB).      DTSBR904
00623                                                                   DTSBR904
00624      MOVE R904-NEXT-RUN-DATE (WRK-SUB) TO L001-FED-8-DATE-9.      DTSBR904
00625      PERFORM S001-LINK-DATE                                       DTSBR904
00626         THRU S001-EXIT.                                           DTSBR904
00627      MOVE L001-SLASH-8-DATE TO WRK-NEXT-RUN-DATE (WRK-SUB).       DTSBR904
00628                                                                   DTSBR904
00629      MOVE R904-NEXT-MAIL-DATE (WRK-SUB) TO L001-FED-8-DATE-9.     DTSBR904
00630      PERFORM S001-LINK-DATE                                       DTSBR904
00631         THRU S001-EXIT.                                           DTSBR904
00632      MOVE L001-SLASH-8-DATE TO WRK-NEXT-MAIL-DATE (WRK-SUB).      DTSBR904
00633                                                                   DTSBR904
00634      MOVE R904-CMPL-WEEK-BEGIN-DATE (WRK-SUB)                     DTSBR904
00635                           TO L001-FED-8-DATE-9.                   DTSBR904
00636      PERFORM S001-LINK-DATE                                       DTSBR904
00637         THRU S001-EXIT.                                           DTSBR904
00638      MOVE L001-SLASH-8-DATE TO WRK-CMPL-WEEK-BEGIN-DATE (WRK-SUB).DTSBR904
00639                                                                   DTSBR904
00640      MOVE R904-CMPL-WEEK-END-DATE (WRK-SUB) TO L001-FED-8-DATE-9. DTSBR904
00641      PERFORM S001-LINK-DATE                                       DTSBR904
00642         THRU S001-EXIT.                                           DTSBR904
00643      MOVE L001-SLASH-8-DATE TO WRK-CMPL-WEEK-END-DATE (WRK-SUB).  DTSBR904
00644                                                                   DTSBR904
00645      MOVE R904-CMPL-MONTH-BEGIN-DATE (WRK-SUB)                    DTSBR904
00646                           TO L001-FED-8-DATE-9.                   DTSBR904
00647      PERFORM S001-LINK-DATE                                       DTSBR904
00648         THRU S001-EXIT.                                           DTSBR904
00649      MOVE L001-SLASH-8-DATE TO WRK-CMPL-MONTH-BEGIN-DATE (WRK-SUB)DTSBR904
00650                                                                   DTSBR904
00651      MOVE R904-CMPL-MONTH-END-DATE (WRK-SUB)                      DTSBR904
00652                           TO L001-FED-8-DATE-9.                   DTSBR904
00653      PERFORM S001-LINK-DATE                                       DTSBR904
00654         THRU S001-EXIT.                                           DTSBR904
00655      MOVE L001-SLASH-8-DATE TO WRK-CMPL-MONTH-END-DATE (WRK-SUB). DTSBR904
00656                                                                   DTSBR904
00657      MOVE R904-CMPL-QTR-BEGIN-DATE (WRK-SUB)                      DTSBR904
00658                           TO L001-FED-8-DATE-9.                   DTSBR904
00659      PERFORM S001-LINK-DATE                                       DTSBR904
00660         THRU S001-EXIT.                                           DTSBR904
00661      MOVE L001-SLASH-8-DATE TO WRK-CMPL-QTR-BEGIN-DATE (WRK-SUB). DTSBR904
00662                                                                   DTSBR904
00663      MOVE R904-CMPL-QTR-END-DATE (WRK-SUB) TO L001-FED-8-DATE-9.  DTSBR904
00664      PERFORM S001-LINK-DATE                                       DTSBR904
00665         THRU S001-EXIT.                                           DTSBR904
00666      MOVE L001-SLASH-8-DATE TO WRK-CMPL-QTR-END-DATE (WRK-SUB).   DTSBR904
00667                                                                   DTSBR904
00668      MOVE R904-CMPL-YEAR-BEGIN-DATE (WRK-SUB)                     DTSBR904
00669                           TO L001-FED-8-DATE-9.                   DTSBR904
00670      PERFORM S001-LINK-DATE                                       DTSBR904
00671         THRU S001-EXIT.                                           DTSBR904
00672      MOVE L001-SLASH-8-DATE TO WRK-CMPL-YEAR-BEGIN-DATE (WRK-SUB).DTSBR904
00673                                                                   DTSBR904
00674      MOVE R904-CMPL-YEAR-END-DATE (WRK-SUB) TO L001-FED-8-DATE-9. DTSBR904
00675      PERFORM S001-LINK-DATE                                       DTSBR904
00676         THRU S001-EXIT.                                           DTSBR904
00677      MOVE L001-SLASH-8-DATE TO WRK-CMPL-YEAR-END-DATE (WRK-SUB).  DTSBR904
00678                                                                   DTSBR904
00679      MOVE R904-DEFAULT-RCV-DATE (WRK-SUB)                         DTSBR904
00680                           TO L001-FED-8-DATE-9.                   DTSBR904
00681      PERFORM S001-LINK-DATE                                       DTSBR904
00682         THRU S001-EXIT.                                           DTSBR904
00683      MOVE L001-SLASH-8-DATE TO WRK-DEFAULT-RCV-DATE (WRK-SUB).    DTSBR904
00684                                                                   DTSBR904
00685      MOVE R904-LAST-MJRN-PURGE-DATE (WRK-SUB)                     DTSBR904
00686                           TO L001-FED-8-DATE-9.                   DTSBR904
00687      PERFORM S001-LINK-DATE                                       DTSBR904
00688         THRU S001-EXIT.                                           DTSBR904
00689      MOVE L001-SLASH-8-DATE TO WRK-LAST-MJRN-PURGE-DATE (WRK-SUB).DTSBR904
00690                                                                   DTSBR904
00691  P1100-EXIT.                                                      DTSBR904
00692      EXIT.                                                        DTSBR904
00693                                                                   DTSBR904
00694  P2000-MOVE-DATA.                                                 DTSBR904
00695                                                                   DTSBR904
00696      MOVE WRK-PRIOR-RUN-DATE (1)      TO DTL-PRIOR-RUN-DATE-1.    DTSBR904
00697      MOVE WRK-PRIOR-MAIL-DATE (1)     TO DTL-PRIOR-MAIL-DATE-1.   DTSBR904
00698                                                                   DTSBR904
00699      MOVE WRK-CURR-RUN-DATE (1)       TO DTL-CURR-RUN-DATE-1.     DTSBR904
00700      MOVE WRK-CURR-MAIL-DATE (1)      TO DTL-CURR-MAIL-DATE-1.    DTSBR904
00701      MOVE R904-LAST-USED-BATCH-NO (1) TO DTL-LAST-USED-BATCH-NO-1.DTSBR904
00702                                                                   DTSBR904
00703      MOVE WRK-NEXT-RUN-DATE (1)       TO DTL-NEXT-RUN-DATE-1.     DTSBR904
00704      MOVE WRK-NEXT-MAIL-DATE (1)      TO DTL-NEXT-MAIL-DATE-1.    DTSBR904
00705      MOVE WRK-DEFAULT-RCV-DATE (1)    TO DTL-DEFAULT-RCV-DATE-1.  DTSBR904
00706                                                                   DTSBR904
00707      MOVE WRK-CMPL-WEEK-BEGIN-DATE (1) TO                         DTSBR904
00708                               DTL-CMPL-WEEK-BEGIN-DATE-1.         DTSBR904
00709      MOVE WRK-CMPL-WEEK-END-DATE (1)  TO DTL-CMPL-WEEK-END-DATE-1.DTSBR904
00710                                                                   DTSBR904
00711      MOVE WRK-CMPL-MONTH-BEGIN-DATE (1) TO                        DTSBR904
00712                               DTL-CMPL-MONTH-BEGIN-DATE-1.        DTSBR904
00713      MOVE WRK-CMPL-MONTH-END-DATE (1)   TO                        DTSBR904
00714                               DTL-CMPL-MONTH-END-DATE-1.          DTSBR904
00715                                                                   DTSBR904
00716      MOVE WRK-CMPL-QTR-BEGIN-DATE (1)   TO                        DTSBR904
00717                               DTL-CMPL-QTR-BEGIN-DATE-1.          DTSBR904
00718      MOVE WRK-CMPL-QTR-END-DATE (1) TO DTL-CMPL-QTR-END-DATE-1.   DTSBR904
00719                                                                   DTSBR904
00720      MOVE WRK-CMPL-YEAR-BEGIN-DATE (1) TO                         DTSBR904
00721                               DTL-CMPL-YEAR-BEGIN-DATE-1.         DTSBR904
00722      MOVE WRK-CMPL-YEAR-END-DATE (1) TO DTL-CMPL-YEAR-END-DATE-1. DTSBR904
00723                                                                   DTSBR904
00724      MOVE R904-LAST-USED-EMP-NO (1)   TO DTL-LAST-USED-EMP-NO-1.  DTSBR904
00725      MOVE R904-LAST-USED-REFUND-NO (1) TO                         DTSBR904
00726                               DTL-LAST-USED-REFUND-NO-1.          DTSBR904
00727                                                                   DTSBR904
00728      MOVE R904-LAST-USED-ASSIGN-NO (1) TO                         DTSBR904
00729                               DTL-LAST-USED-ASSIGN-NO-1.          DTSBR904
00730      MOVE R904-LAST-USED-LIEN-NO (1)  TO DTL-LAST-USED-LIEN-NO-1. DTSBR904
00731                                                                   DTSBR904
00732      MOVE WRK-LAST-UC30-MASS-MAIL-YRQ (1) TO                      DTSBR904
00733                               DTL-LAST-UC30-MASS-MAIL-YRQ-1.      DTSBR904
00734      MOVE WRK-FIRST-PURSUED-RPT-YRQ (1) TO                        DTSBR904
00735                               DTL-FIRST-PURSUED-RPT-YRQ-1.        DTSBR904
00736                                                                   DTSBR904
00737      MOVE WRK-LAST-UC30-DEL-MAIL-YRQ (1) TO                       DTSBR904
00738                               DTL-LAST-UC30-DEL-MAIL-YRQ-1.       DTSBR904
00739      MOVE WRK-LAST-MJRN-PURGE-DATE (1) TO                         DTSBR904
00740                               DTL-LAST-MJRN-PURGE-DATE-1.         DTSBR904
00741                                                                   DTSBR904
00742      MOVE WRK-LAST-RATE-END-YRQ (1) TO                            DTSBR904
00743                               DTL-LAST-RATE-END-YRQ-1.            DTSBR904
00744                                                                   DTSBR904
00745      MOVE WRK-PRIOR-RUN-DATE (2)      TO DTL-PRIOR-RUN-DATE-2.    DTSBR904
00746      MOVE WRK-PRIOR-MAIL-DATE (2)     TO DTL-PRIOR-MAIL-DATE-2.   DTSBR904
00747                                                                   DTSBR904
00748      MOVE WRK-CURR-RUN-DATE (2)       TO DTL-CURR-RUN-DATE-2.     DTSBR904
00749      MOVE WRK-CURR-MAIL-DATE (2)      TO DTL-CURR-MAIL-DATE-2.    DTSBR904
00750      MOVE R904-LAST-USED-BATCH-NO (2) TO DTL-LAST-USED-BATCH-NO-2.DTSBR904
00751                                                                   DTSBR904
00752      MOVE WRK-NEXT-RUN-DATE (2)       TO DTL-NEXT-RUN-DATE-2.     DTSBR904
00753      MOVE WRK-NEXT-MAIL-DATE (2)      TO DTL-NEXT-MAIL-DATE-2.    DTSBR904
00754      MOVE WRK-DEFAULT-RCV-DATE (2)    TO DTL-DEFAULT-RCV-DATE-2.  DTSBR904
00755                                                                   DTSBR904
00756      MOVE WRK-CMPL-WEEK-BEGIN-DATE (2) TO                         DTSBR904
00757                               DTL-CMPL-WEEK-BEGIN-DATE-2.         DTSBR904
00758      MOVE WRK-CMPL-WEEK-END-DATE (2)  TO DTL-CMPL-WEEK-END-DATE-2.DTSBR904
00759                                                                   DTSBR904
00760      MOVE WRK-CMPL-MONTH-BEGIN-DATE (2) TO                        DTSBR904
00761                               DTL-CMPL-MONTH-BEGIN-DATE-2.        DTSBR904
00762      MOVE WRK-CMPL-MONTH-END-DATE (2)   TO                        DTSBR904
00763                               DTL-CMPL-MONTH-END-DATE-2.          DTSBR904
00764                                                                   DTSBR904
00765      MOVE WRK-CMPL-QTR-BEGIN-DATE (2)   TO                        DTSBR904
00766                               DTL-CMPL-QTR-BEGIN-DATE-2.          DTSBR904
00767      MOVE WRK-CMPL-QTR-END-DATE (2) TO DTL-CMPL-QTR-END-DATE-2.   DTSBR904
00768                                                                   DTSBR904
00769      MOVE WRK-CMPL-YEAR-BEGIN-DATE (2) TO                         DTSBR904
00770                               DTL-CMPL-YEAR-BEGIN-DATE-2.         DTSBR904
00771      MOVE WRK-CMPL-YEAR-END-DATE (2) TO DTL-CMPL-YEAR-END-DATE-2. DTSBR904
00772                                                                   DTSBR904
00773      MOVE R904-LAST-USED-EMP-NO (2)   TO DTL-LAST-USED-EMP-NO-2.  DTSBR904
00774      MOVE R904-LAST-USED-REFUND-NO (2) TO                         DTSBR904
00775                               DTL-LAST-USED-REFUND-NO-2.          DTSBR904
00776                                                                   DTSBR904
00777      MOVE R904-LAST-USED-ASSIGN-NO (2) TO                         DTSBR904
00778                               DTL-LAST-USED-ASSIGN-NO-2.          DTSBR904
00779      MOVE R904-LAST-USED-LIEN-NO (2)  TO DTL-LAST-USED-LIEN-NO-2. DTSBR904
00780                                                                   DTSBR904
00781      MOVE WRK-LAST-UC30-MASS-MAIL-YRQ (2) TO                      DTSBR904
00782                               DTL-LAST-UC30-MASS-MAIL-YRQ-2.      DTSBR904
00783      MOVE WRK-FIRST-PURSUED-RPT-YRQ (2) TO                        DTSBR904
00784                               DTL-FIRST-PURSUED-RPT-YRQ-2.        DTSBR904
00785                                                                   DTSBR904
00786      MOVE WRK-LAST-UC30-DEL-MAIL-YRQ (2) TO                       DTSBR904
00787                               DTL-LAST-UC30-DEL-MAIL-YRQ-2.       DTSBR904
00788      MOVE WRK-LAST-MJRN-PURGE-DATE (2) TO                         DTSBR904
00789                               DTL-LAST-MJRN-PURGE-DATE-2.         DTSBR904
00790                                                                   DTSBR904
00791      MOVE WRK-LAST-RATE-END-YRQ (2) TO                            DTSBR904
00792                               DTL-LAST-RATE-END-YRQ-2.            DTSBR904
00793  P2000-EXIT.                                                      DTSBR904
00794      EXIT.                                                        DTSBR904
00795                                                                   DTSBR904
00796  P3000-PRINT-HEADER.                                              DTSBR904
00797                                                                   DTSBR904
00798      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR904
00799           WS-LINE-CNT2 GREATER 58                                 DTSBR904
00800         MOVE +0          TO WS-LINE-CNT                           DTSBR904
00801         MOVE +0          TO WS-LINE-CNT2                          DTSBR904
00802         ADD  +1          TO WS-PAGE-CNT                           DTSBR904
00803         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR904
00804         WRITE REPORT-LISTING1 FROM HDR-LINE-1                     DTSBR904
00805                 AFTER TOP-OF-PAGE                                 DTSBR904
00806         WRITE REPORT-LISTING1 FROM HDR-LINE-2 AFTER 1             DTSBR904
00807         WRITE REPORT-LISTING1 FROM HDR-LINE-3 AFTER 1             DTSBR904
00808         WRITE REPORT-LISTING1 FROM HDR-LINE-4 AFTER 1             DTSBR904
00809         WRITE REPORT-LISTING1 FROM HDR-LINE-5 AFTER 1             DTSBR904
00810         WRITE REPORT-LISTING1 FROM HDR-LINE-6 AFTER 1             DTSBR904
00811         WRITE REPORT-LISTING1 FROM HDR-LINE-7 AFTER 1             DTSBR904
00812         ADD +7    TO WS-LINE-CNT2.                                DTSBR904
00813                                                                   DTSBR904
00814  P3000-EXIT.                                                      DTSBR904
00815      EXIT.                                                        DTSBR904
00816                                                                   DTSBR904
00817  P4000-PRINT-DETAIL.                                              DTSBR904
00818                                                                   DTSBR904
00819         WRITE REPORT-LISTING1 FROM DTL-LINE-3 AFTER 3             DTSBR904
00820         WRITE REPORT-LISTING1 FROM DTL-LINE-4 AFTER 1             DTSBR904
00821         WRITE REPORT-LISTING1 FROM DTL-LINE-5 AFTER 1             DTSBR904
00822         WRITE REPORT-LISTING1 FROM DTL-LINE-6 AFTER 1             DTSBR904
00823         WRITE REPORT-LISTING1 FROM DTL-LINE-7 AFTER 1             DTSBR904
00824         WRITE REPORT-LISTING1 FROM DTL-LINE-8 AFTER 1             DTSBR904
00825         WRITE REPORT-LISTING1 FROM DTL-LINE-9 AFTER 1             DTSBR904
00826         WRITE REPORT-LISTING1 FROM DTL-LINE-10 AFTER 1            DTSBR904
00827         WRITE REPORT-LISTING1 FROM DTL-LINE-11 AFTER 1            DTSBR904
00828         WRITE REPORT-LISTING1 FROM DTL-LINE-12 AFTER 1            DTSBR904
00829         WRITE REPORT-LISTING1 FROM DTL-LINE-13 AFTER 1            DTSBR904
00830         WRITE REPORT-LISTING1 FROM DTL-LINE-14 AFTER 1            DTSBR904
00831         WRITE REPORT-LISTING1 FROM DTL-LINE-15 AFTER 1            DTSBR904
00832         WRITE REPORT-LISTING1 FROM DTL-LINE-16 AFTER 1            DTSBR904
00833         WRITE REPORT-LISTING1 FROM DTL-LINE-17 AFTER 1            DTSBR904
00834         WRITE REPORT-LISTING1 FROM DTL-LINE-18 AFTER 1            DTSBR904
00835         WRITE REPORT-LISTING1 FROM DTL-LINE-19 AFTER 1            DTSBR904
00836         WRITE REPORT-LISTING1 FROM DTL-LINE-20 AFTER 1            DTSBR904
00837         WRITE REPORT-LISTING1 FROM DTL-LINE-21 AFTER 1            DTSBR904
00838         WRITE REPORT-LISTING1 FROM DTL-LINE-22 AFTER 1            DTSBR904
00839         WRITE REPORT-LISTING1 FROM DTL-LINE-23 AFTER 1            DTSBR904
00840         WRITE REPORT-LISTING1 FROM DTL-LINE-24 AFTER 1            DTSBR904
00841         WRITE REPORT-LISTING1 FROM DTL-LINE-25 AFTER 1            DTSBR904
00842         WRITE REPORT-LISTING1 FROM DTL-LINE-26 AFTER 1            DTSBR904
00843         WRITE REPORT-LISTING1 FROM DTL-LINE-27 AFTER 1            DTSBR904
00844         WRITE REPORT-LISTING1 FROM DTL-LINE-28 AFTER 1            DTSBR904
00845         WRITE REPORT-LISTING1 FROM DTL-LINE-29 AFTER 1            DTSBR904
00846         WRITE REPORT-LISTING1 FROM DTL-LINE-30 AFTER 1            DTSBR904
00847         WRITE REPORT-LISTING1 FROM DTL-LINE-31 AFTER 1            DTSBR904
00848         WRITE REPORT-LISTING1 FROM DTL-LINE-32 AFTER 1            DTSBR904
00849         WRITE REPORT-LISTING1 FROM DTL-LINE-33 AFTER 1            DTSBR904
00850         WRITE REPORT-LISTING1 FROM DTL-LINE-34 AFTER 1            DTSBR904
00851         WRITE REPORT-LISTING1 FROM DTL-LINE-35 AFTER 1            DTSBR904
00852         WRITE REPORT-LISTING1 FROM DTL-LINE-36 AFTER 1            DTSBR904
00853         WRITE REPORT-LISTING1 FROM DTL-LINE-37 AFTER 1            DTSBR904
00854         WRITE REPORT-LISTING1 FROM DTL-LINE-38 AFTER 1            DTSBR904
00855         WRITE REPORT-LISTING1 FROM DTL-LINE-39 AFTER 1            DTSBR904
00856         WRITE REPORT-LISTING1 FROM DTL-LINE-40 AFTER 1            DTSBR904
00857         WRITE REPORT-LISTING1 FROM DTL-LINE-41 AFTER 1            DTSBR904
00858         ADD +41   TO WS-LINE-CNT2.                                DTSBR904
00859                                                                   DTSBR904
00860  P4000-EXIT.                                                      DTSBR904
00861      EXIT.                                                        DTSBR904
00862                                                                   DTSBR904
00863  T1000-TERMINATE.                                                 DTSBR904
00864                                                                   DTSBR904
00865      CLOSE PRT-FILE.                                              DTSBR904
00866                                                                   DTSBR904
00867  T1000-EXIT.                                                      DTSBR904
00868      EXIT.                                                        DTSBR904
00869      EJECT                                                        DTSBR904
00870  S001-LINK-DATE.                                                  DTSBR904
00871                                                                   DTSBR904
00872      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR904
00873                                                                   DTSBR904
00874  S001-EXIT.                                                       DTSBR904
00875      EXIT.                                                        DTSBR904
00876                                                                   DTSBR904
00877  S004-LINK-QTR.                                                   DTSBR904
00878                                                                   DTSBR904
00879      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBR904
00880                                                                   DTSBR904
00881  S004-EXIT.                                                       DTSBR904
00882      EXIT.                                                        DTSBR904
00883                                                                   DTSBR904
00884 *S999-ABEND.                                                      DTSBR904
00885 *                                                                 DTSBR904
00886 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR904
00887 *                                                                 DTSBR904
00888 *S999-EXIT.                                                       DTSBR904
00889 *    EXIT.                                                        DTSBR904
