00001  IDENTIFICATION DIVISION.                                         01/29/01
00002  PROGRAM-ID.             DTSBR440.                                DTSBR440
00003  AUTHOR.                 TRW/TDI OF LABOR/UI PROGRAMMING SECTION     LV003
00004  DATE-WRITTEN.           OCTOBER 2000.                            DTSBR440
00005  DATE-COMPILED.                                                   DTSBR440
00006                                                                   DTSBR440
00007 *****                                                             DTSBR440
00008 *                                                                 DTSBR440
00009 *    FUNCTION:  MONTHLY TAX ACTIVITY OVERVIEW FOR DETERMINATION,  DTSBR440
00010 *               AUDIT, DELINQUENT, PENALTY AND INTEREST.          DTSBR440
00011 *                                                                 DTSBR440
00012 *                                                                 DTSBR440
00013 *    MODIFICATION HISTORY:                                        DTSBR440
00014 *                                                                 DTSBR440
00015 * 10-20-00 CLONED FROM DTSBR520 THEN MODIFIED TO ALSO HANDLE      DTSBR440
00016 *          THE ABOVE FUNCTION TO GENERATE THE 440R1 REPORTS.      DTSBR440
00017 *          REFERENCE RFP #****            AUTHOR OF CHANGE - RLW  DTSBR440
00018 *                                                                 DTSBR440
00019 * MM-DD-YY MODIFY TO MEET DUTAS PROGRAMMING MODIFICATIONS.        DTSBR440
00020 *          REFERENCE RFP #****            AUTHOR OF CHANGE - RLW  DTSBR440
00021 *                                                                 DTSBR440
00022 *                                                                 DTSBR440
00023 *    DESCRIPTION:                                                 DTSBR440
00024 *                                                                 DTSBR440
00025 *        THIS MODULE REPORTS ANY EMPLOYERS WHO, FOR A MONTHLY     DTSBR440
00026 *        TAX ACTIVITY OVERVIEW FOR:                               DTSBR440
00027 *        1. LIABILITY DETERMINATION.                              DTSBR440
00028 *        2. AUDIT ACTIVITIES.                                     DTSBR440
00029 *        3. COLLECTION OF PAST DUE, PENALTY, AND INTEREST.        DTSBR440
00030 *                                                                 DTSBR440
00031 *                                                                 DTSBR440
00032 *    RECORDS READ:                                                DTSBR440
00033 *                                                                 DTSBR440
00034 *        NONE.                                                    DTSBR440
00035 *                                                                 DTSBR440
00036 *                                                                 DTSBR440
00037 *    PRINTED OUTPUTS:                                             DTSBR440
00038 *                                                                 DTSBR440
00039 *        440R1  MONTHLY TAX ACTIVITY OVERVIEW                     DTSBR440
00040 *                                                                 DTSBR440
00041 *                                                                 DTSBR440
00042 *    RECORDS WRITTEN:                                             DTSBR440
00043 *                                                                 DTSBR440
00044 *        NONE.                                                    DTSBR440
00045 *                                                                 DTSBR440
00046 *                                                                 DTSBR440
00047 *    MODULES CALLED:                                              DTSBR440
00048 *                                                                 DTSBR440
00049 *                                                                 DTSBR440
00050 *****                                                             DTSBR440
00051      EJECT                                                        DTSBR440
00052  ENVIRONMENT DIVISION.                                            DTSBR440
00053                                                                   DTSBR440
00054  CONFIGURATION SECTION.                                           DTSBR440
00055  SPECIAL-NAMES. C01 IS TOP-OF-PAGE.                               DTSBR440
00056                                                                   DTSBR440
00057  INPUT-OUTPUT SECTION.                                            DTSBR440
00058                                                                   DTSBR440
00059  FILE-CONTROL.                                                    DTSBR440
00060      SELECT PRT-FILE ASSIGN TO RPT440R1.                          DTSBR440
00061                                                                   DTSBR440
00062  DATA DIVISION.                                                   DTSBR440
00063                                                                   DTSBR440
00064  FILE SECTION.                                                    DTSBR440
00065                                                                   DTSBR440
00066  FD  PRT-FILE                                                     DTSBR440
00067      RECORDING MODE IS F.                                         DTSBR440
00068  01  REPORT-LISTING                  PIC  X(133).                 DTSBR440
00069                                                                   DTSBR440
00070  WORKING-STORAGE SECTION.                                         DTSBR440
000705 77  PAN-VALET PICTURE X(24) VALUE '003DTSBR440  01/29/01'.       DTSBR440
00071                                                                   DTSBR440
00072  01  WRK-AREA.                                                    DTSBR440
00073      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +440.DTSBR440
00074      05  FIRST-TIME-IND              PIC  X(01)  VALUE 'Y'.       DTSBR440
00075                                                                   DTSBR440
00076      05  WS-LINE-CNT                 PIC S9(02) COMP-3 VALUE 60.  DTSBR440
00077      05  WS-LINE-CNT2                PIC S9(02) COMP-3 VALUE +0.  DTSBR440
00078      05  WS-PAGE-CNT                 PIC S9(03) COMP-3 VALUE +0.  DTSBR440
00079      05  WS-DETAIL-CNT               PIC S9(07) COMP-3 VALUE +0.  DTSBR440
00080                                                                   DTSBR440
00081  01  L001-LINK-AREA.                                              DTSBR440
00082  ++INCLUDE DTSIL001                                               DTSBR440
00083      EJECT                                                        DTSBR440
00084                                                                   DTSBR440
00085  01  PAGE-HEADING.                                                DTSBR440
00086      05  HDR-LINE-1.                                              DTSBR440
00087          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00088          10  FILLER                  PIC  X(05)                   DTSBR440
00089                 VALUE '440R1'.                                    DTSBR440
00090          10  FILLER                  PIC  X(35)  VALUE SPACES.    DTSBR440
00091          10  HDR-AGY-NAME-LINE1      PIC  X(50).                  DTSBR440
00092          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR440
00093          10  FILLER                  PIC  X(05)                   DTSBR440
00094                 VALUE 'DATE:'.                                    DTSBR440
00095          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00096          10  HDR-SYS-DATE            PIC  X(08).                  DTSBR440
00097                                                                   DTSBR440
00098      05  HDR-LINE-2.                                              DTSBR440
00099          10  FILLER                  PIC  X(41)  VALUE SPACES.    DTSBR440
00100          10  HDR-AGY-NAME-LINE2      PIC  X(50).                  DTSBR440
00101          10  FILLER                  PIC  X(28)  VALUE SPACES.    DTSBR440
00102          10  FILLER                  PIC  X(05)                   DTSBR440
00103                 VALUE 'TIME:'.                                    DTSBR440
00104          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00105          10  HDR-SYS-TIME            PIC  X(08).                  DTSBR440
00106                                                                   DTSBR440
00107      05  HDR-LINE-3.                                              DTSBR440
00108          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00109          10  FILLER                  PIC  X(35)                   DTSBR440
00110                 VALUE 'ROUTE TO:  ASSOCIATE UI DIRECTOR '.        DTSBR440
00111          10  FILLER                  PIC  X(83)  VALUE SPACES.    DTSBR440
00112          10  FILLER                  PIC  X(05)                   DTSBR440
00113                 VALUE 'PAGE:'.                                    DTSBR440
00114          10  FILLER                  PIC  X(03)  VALUE SPACES.    DTSBR440
00115          10  HDR-PAGE-CNT            PIC  ZZ,ZZ9.                 DTSBR440
00116                                                                   DTSBR440
00117      05  HDR-LINE-4.                                              DTSBR440
00118          10  FILLER                  PIC  X(45)  VALUE SPACES.    DTSBR440
00119          10  FILLER                  PIC  X(40)                   DTSBR440
00120                VALUE '      MONTHLY TAX ACTIVITY OVERVIEW    '.   DTSBR440
00121                                                                   DTSBR440
00122      05  HDR-LINE-5.                                              DTSBR440
00123          10  FILLER                  PIC  X(27)  VALUE SPACES.    DTSBR440
00124          10  FILLER                  PIC  X(40)                   DTSBR440
00125                VALUE '    DETERMINATION, AUDITS, DELINQUENT CO'.  DTSBR440
00126          10  FILLER                  PIC  X(40)                   DTSBR440
00127                VALUE 'LLECTIONS, PENALTY, AND INTEREST        '.  DTSBR440
00128                                                                   DTSBR440
00129      05  HDR-LINE-6                  PIC  X(133) VALUE SPACES.    DTSBR440
00130                                                                   DTSBR440
00131      05  HDR-LINE-7.                                              DTSBR440
00132          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00133          10  FILLER                  PIC  X(29)                   DTSBR440
00134                VALUE 'REPORTING PERIOD START DATE: '.             DTSBR440
00135          10  HDR-START-DATE          PIC  X(10)  VALUE SPACES.    DTSBR440
00136          10  FILLER                  PIC  X(35)  VALUE SPACE.     DTSBR440
00137          10  FILLER                  PIC  X(12)                   DTSBR440
00138                VALUE 'FISCAL YEAR:'.                              DTSBR440
00139          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00140          10  HDR-CURR-FISCAL-YR      PIC  X(10)  VALUE SPACES.    DTSBR440
00141          10  FILLER                  PIC  X(06)  VALUE SPACE.     DTSBR440
00142          10  FILLER                  PIC  X(18)                   DTSBR440
00143                VALUE 'PRIOR FISCAL YEAR:'.                        DTSBR440
00144          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00145          10  HDR-PRIOR-FISCAL-YR     PIC  X(10)  VALUE SPACES.    DTSBR440
00146                                                                   DTSBR440
00147      05  HDR-LINE-8.                                              DTSBR440
00148          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00149          10  FILLER                  PIC  X(29)                   DTSBR440
00150                VALUE 'REPORTING PERIOD END DATE:   '.             DTSBR440
00151          10  HDR-END-DATE            PIC  X(10)  VALUE SPACES.    DTSBR440
00152                                                                   DTSBR440
00153      05  HDR-LINE-9                  PIC  X(133) VALUE SPACES.    DTSBR440
00154      05  HDR-LINE-10.                                             DTSBR440
00155          10  FILLER                  PIC  X(59)  VALUE SPACE.     DTSBR440
00156          10  FILLER                  PIC  X(07)                   DTSBR440
00157                VALUE 'CURRENT'.                                   DTSBR440
00158          10  FILLER                  PIC  X(11)  VALUE SPACE.     DTSBR440
00159          10  FILLER                  PIC  X(19)                   DTSBR440
00160                VALUE 'CURRENT FISCAL YEAR'.                       DTSBR440
00161          10  FILLER                  PIC  X(14)  VALUE SPACE.     DTSBR440
00162          10  FILLER                  PIC  X(17)                   DTSBR440
00163                VALUE 'PRIOR FISCAL YEAR'.                         DTSBR440
00164                                                                   DTSBR440
00165      05  HDR-LINE-11.                                             DTSBR440
00166          10  FILLER                  PIC  X(54)  VALUE SPACE.     DTSBR440
00167          10  FILLER                  PIC  X(16)                   DTSBR440
00168                VALUE 'REPORTING PERIOD'.                          DTSBR440
00169          10  FILLER                  PIC  X(13)  VALUE SPACE.     DTSBR440
00170          10  FILLER                  PIC  X(09)                   DTSBR440
00171                VALUE 'TO DATE'.                                   DTSBR440
00172          10  FILLER                  PIC  X(15)  VALUE SPACE.     DTSBR440
00173                                                                   DTSBR440
00174      05  HDR-LINE-12                 PIC  X(133) VALUE SPACES.    DTSBR440
00175                                                                   DTSBR440
00176  01  DETAIL-LINE.                                                 DTSBR440
00177                                                                   DTSBR440
00178      05  DTL-LINE-1.                                              DTSBR440
00179          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00180          10  FILLER                  PIC  X(29)                   DTSBR440
00181                VALUE '1. LIABILITY DETERMINATIONS  '.             DTSBR440
00182                                                                   DTSBR440
00183      05  DTL-LINE-2                  PIC  X(133) VALUE SPACES.    DTSBR440
00184                                                                   DTSBR440
00185      05  DTL-LINE-3.                                              DTSBR440
00186          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR440
00187          10  FILLER                  PIC  X(40)                   DTSBR440
00188                VALUE 'NEW LIABILITY DETERMINATIONS ENTERED:   '.  DTSBR440
00189          10  FILLER                  PIC  X(09)                   DTSBR440
00190                VALUE '         '.                                 DTSBR440
00191          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00192          10  DTL-NEW-DET-CNT-MTH     PIC  ZZZ,ZZ9.                DTSBR440
00193          10  FILLER                  PIC  X(19)  VALUE SPACES.    DTSBR440
00194          10  DTL-NEW-DET-CNT-YR      PIC  ZZZ,ZZ9.                DTSBR440
00195          10  FILLER                  PIC  X(24)  VALUE SPACES.    DTSBR440
00196          10  DTL-NEW-DET-CNT-PYR     PIC  ZZZ,ZZ9.                DTSBR440
00197                                                                   DTSBR440
00198      05  DTL-LINE-4.                                              DTSBR440
00199          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR440
00200          10  FILLER                  PIC  X(40)                   DTSBR440
00201                VALUE 'NEW DETERMINATIONS ENTERED WITHIN 90 DAY'.  DTSBR440
00202          10  FILLER                  PIC  X(09)                   DTSBR440
00203                VALUE 'S:       '.                                 DTSBR440
00204          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00205          10  DTL-NEW-DET-90-CNT-MTH  PIC  ZZZ,ZZ9.                DTSBR440
00206          10  FILLER                  PIC  X(19)  VALUE SPACES.    DTSBR440
00207          10  DTL-NEW-DET-90-CNT-YR   PIC  ZZZ,ZZ9.                DTSBR440
00208          10  FILLER                  PIC  X(24)  VALUE SPACES.    DTSBR440
00209          10  DTL-NEW-DET-90-CNT-PYR  PIC  ZZZ,ZZ9.                DTSBR440
00210                                                                   DTSBR440
00211      05  DTL-LINE-5.                                              DTSBR440
00212          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR440
00213          10  FILLER                  PIC  X(40)                   DTSBR440
00214                VALUE 'NEW DETERMINATIONS ENTERED WITHIN 180 DA'.  DTSBR440
00215          10  FILLER                  PIC  X(09)                   DTSBR440
00216                VALUE 'YS:      '.                                 DTSBR440
00217          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00218          10  DTL-NEW-DET-180-CNT-MTH PIC  ZZZ,ZZ9.                DTSBR440
00219          10  FILLER                  PIC  X(19)  VALUE SPACES.    DTSBR440
00220          10  DTL-NEW-DET-180-CNT-YR  PIC  ZZZ,ZZ9.                DTSBR440
00221          10  FILLER                  PIC  X(24)  VALUE SPACES.    DTSBR440
00222          10  DTL-NEW-DET-180-CNT-PYR PIC  ZZZ,ZZ9.                DTSBR440
00223                                                                   DTSBR440
00224      05  DTL-LINE-6.                                              DTSBR440
00225          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR440
00226          10  FILLER                  PIC  X(40)                   DTSBR440
00227                VALUE 'PERCENTAGE OF DETERMINATIONS ENTERED TIM'.  DTSBR440
00228          10  FILLER                  PIC  X(09)                   DTSBR440
00229                VALUE 'ELY:     '.                                 DTSBR440
00230          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00231          10  DTL-NEW-DET-TMLY-PCT-MTH PIC  ZZZ,ZZ9.               DTSBR440
00232          10  FILLER                  PIC  X(19)  VALUE SPACES.    DTSBR440
00233          10  DTL-NEW-DET-TMLY-PCT-YR PIC  ZZZ,ZZ9.                DTSBR440
00234          10  FILLER                  PIC  X(24)  VALUE SPACES.    DTSBR440
00235          10  DTL-NEW-DET-TMLY-PCT-PYR PIC  ZZZ,ZZ9.               DTSBR440
00236                                                                   DTSBR440
00237      05  DTL-LINE-7.                                              DTSBR440
00238          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR440
00239          10  FILLER                  PIC  X(40)                   DTSBR440
00240                VALUE 'INACTIVATIONS ENTERED:                  '.  DTSBR440
00241          10  FILLER                  PIC  X(09)                   DTSBR440
00242                VALUE '         '.                                 DTSBR440
00243          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00244          10  DTL-INACT-CNT-MTH       PIC  ZZZ,ZZ9.                DTSBR440
00245          10  FILLER                  PIC  X(19)  VALUE SPACES.    DTSBR440
00246          10  DTL-INACT-CNT-YR        PIC  ZZZ,ZZ9.                DTSBR440
00247          10  FILLER                  PIC  X(24)  VALUE SPACES.    DTSBR440
00248          10  DTL-INACT-CNT-PYR       PIC  ZZZ,ZZ9.                DTSBR440
00249                                                                   DTSBR440
00250      05  DTL-LINE-8.                                              DTSBR440
00251          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR440
00252          10  FILLER                  PIC  X(40)                   DTSBR440
00253                VALUE 'TOTAL LIABLE EMPLOYERS:                 '.  DTSBR440
00254          10  FILLER                  PIC  X(09)                   DTSBR440
00255                VALUE '         '.                                 DTSBR440
00256          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00257          10  DTL-LIABLE-EMP-CNT      PIC  ZZZ,ZZ9.                DTSBR440
00258          10  FILLER                  PIC  X(19)  VALUE SPACES.    DTSBR440
00259                                                                   DTSBR440
00260 *    05  DTL-LINE-9                  PIC  X(133) VALUE SPACES.    DTSBR440
00261 *    05  DTL-LINE-10                 PIC  X(133) VALUE SPACES.    DTSBR440
00262 *                                                                 DTSBR440
00263 *    05  DTL-LINE-11.                                             DTSBR440
00264 *        10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00265 *        10  FILLER                  PIC  X(29)                   DTSBR440
00266 *              VALUE '2. AUDITS                    '.             DTSBR440
00267 *                                                                 DTSBR440
00268 *    05  DTL-LINE-12                 PIC  X(133) VALUE SPACES.    DTSBR440
00269 *                                                                 DTSBR440
00270 *    05  DTL-LINE-13.                                             DTSBR440
00271 *        10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR440
00272 *        10  FILLER                  PIC  X(40)                   DTSBR440
00273 *              VALUE 'AUDITS COMPLETED:                       '.  DTSBR440
00274 *        10  FILLER                  PIC  X(08)                   DTSBR440
00275 *              VALUE '        '.                                  DTSBR440
00276 *        10  FILLER                  PIC  X(02)  VALUE SPACE.     DTSBR440
00277 *        10  DTL-AUDIT-CNT-MTH       PIC  ZZZ,ZZ9.                DTSBR440
00278 *        10  FILLER                  PIC  X(19)  VALUE SPACES.    DTSBR440
00279 *        10  DTL-AUDIT-CNT-YR        PIC  ZZZ,ZZ9.                DTSBR440
00280 *        10  FILLER                  PIC  X(24)  VALUE SPACES.    DTSBR440
00281 *        10  DTL-AUDIT-CNT-PYR       PIC  ZZZ,ZZ9.                DTSBR440
00282                                                                   DTSBR440
00283      05  DTL-LINE-14                 PIC  X(133) VALUE SPACES.    DTSBR440
00284      05  DTL-LINE-15                 PIC  X(133) VALUE SPACES.    DTSBR440
00285                                                                   DTSBR440
00286      05  DTL-LINE-16.                                             DTSBR440
00287          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00288          10  FILLER                  PIC  X(29)                   DTSBR440
00289                VALUE '2. COLLECTIONS               '.             DTSBR440
00290                                                                   DTSBR440
00291      05  DTL-LINE-17                 PIC  X(133) VALUE SPACES.    DTSBR440
00292                                                                   DTSBR440
00293      05  DTL-LINE-18.                                             DTSBR440
00294          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR440
00295          10  FILLER                  PIC  X(40)                   DTSBR440
00296                VALUE 'PAST DUE CONTRIBUTIONS COLLECTED:       '.  DTSBR440
00297          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00298          10  DTL-PAST-DUE-COLL-MTH   PIC  $,$$$,$$$,$$9.99.       DTSBR440
00299          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR440
00300          10  DTL-PAST-DUE-COLL-YR    PIC  $,$$$,$$$,$$9.99.       DTSBR440
00301          10  FILLER                  PIC  X(15)  VALUE SPACES.    DTSBR440
00302          10  DTL-PAST-DUE-COLL-PYR   PIC  $,$$$,$$$,$$9.99.       DTSBR440
00303                                                                   DTSBR440
00304      05  DTL-LINE-19.                                             DTSBR440
00305          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR440
00306          10  FILLER                  PIC  X(40)                   DTSBR440
00307                VALUE 'PENALTY COLLECTED:                      '.  DTSBR440
00308          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00309          10  DTL-PENALTY-COLL-MTH    PIC  $,$$$,$$$,$$9.99.       DTSBR440
00310          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR440
00311          10  DTL-PENALTY-COLL-YR     PIC  $,$$$,$$$,$$9.99.       DTSBR440
00312          10  FILLER                  PIC  X(15)  VALUE SPACES.    DTSBR440
00313          10  DTL-PENALTY-COLL-PYR    PIC  $,$$$,$$$,$$9.99.       DTSBR440
00314                                                                   DTSBR440
00315      05  DTL-LINE-20.                                             DTSBR440
00316          10  FILLER                  PIC  X(09)  VALUE SPACES.    DTSBR440
00317          10  FILLER                  PIC  X(40)                   DTSBR440
00318                VALUE 'INTEREST COLLECTED:                     '.  DTSBR440
00319          10  FILLER                  PIC  X(01)  VALUE SPACE.     DTSBR440
00320          10  DTL-INTEREST-COLL-MTH   PIC  $,$$$,$$$,$$9.99.       DTSBR440
00321          10  FILLER                  PIC  X(10)  VALUE SPACES.    DTSBR440
00322          10  DTL-INTEREST-COLL-YR    PIC  $,$$$,$$$,$$9.99.       DTSBR440
00323          10  FILLER                  PIC  X(15)  VALUE SPACES.    DTSBR440
00324          10  DTL-INTEREST-COLL-PYR   PIC  $,$$$,$$$,$$9.99.       DTSBR440
00325                                                                   DTSBR440
00326  01  CONTROL-FOOTING-FINAL.                                       DTSBR440
00327      05  CTF-LINE-4.                                              DTSBR440
00328          10  FILLER                  PIC  X(26)  VALUE SPACES.    DTSBR440
00329          10  FILLER                  PIC  X(17)                   DTSBR440
00330                 VALUE '*** END OF REPORT'.                        DTSBR440
00331      EJECT                                                        DTSBR440
00332  LINKAGE SECTION.                                                 DTSBR440
00333                                                                   DTSBR440
00334  01  LRCM-LINK-AREA.                                              DTSBR440
00335  ++INCLUDE DTSILRCM                                               DTSBR440
00336      EJECT                                                        DTSBR440
00337  01  R440-REC.                                                    DTSBR440
00338  ++INCLUDE DTSIR440                                               DTSBR440
00339      EJECT                                                        DTSBR440
00340  PROCEDURE DIVISION USING LRCM-LINK-AREA                          DTSBR440
00341                           R440-REC.                               DTSBR440
00342      IF FIRST-TIME-IND = 'Y'                                      DTSBR440
00343          PERFORM I1000-INITIATE THRU I1000-EXIT                   DTSBR440
00344          MOVE 'N' TO FIRST-TIME-IND.                              DTSBR440
00345                                                                   DTSBR440
00346      IF LRCM-EOR-88                                               DTSBR440
00347          PERFORM T1000-TERMINATE THRU T1000-EXIT                  DTSBR440
00348      ELSE                                                         DTSBR440
00349          PERFORM P1000-PROCESS THRU P1000-EXIT.                   DTSBR440
00350                                                                   DTSBR440
00351      GOBACK.                                                      DTSBR440
00352                                                                   DTSBR440
00353  I1000-INITIATE.                                                  DTSBR440
00354                                                                   DTSBR440
00355      OPEN OUTPUT PRT-FILE.                                        DTSBR440
00356      MOVE LRCM-SYS-DATE TO HDR-SYS-DATE.                          DTSBR440
00357      MOVE LRCM-SYS-TIME TO HDR-SYS-TIME.                          DTSBR440
00358      MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1.              DTSBR440
00359      MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2.              DTSBR440
00360      MOVE SPACES TO REPORT-LISTING.                               DTSBR440
00361                                                                   DTSBR440
00362  I1000-EXIT.                                                      DTSBR440
00363      EXIT.                                                        DTSBR440
00364                                                                   DTSBR440
00365  P1000-PROCESS.                                                   DTSBR440
00366                                                                   DTSBR440
00367      MOVE R440-PERIOD-START-DATE       TO L001-FED-8-DATE-9.      DTSBR440
00368      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR440
00369      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR440
00370      MOVE L001-SLASH-8-DATE            TO HDR-START-DATE.         DTSBR440
00371                                                                   DTSBR440
00372      MOVE R440-PERIOD-END-DATE         TO L001-FED-8-DATE-9.      DTSBR440
00373      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR440
00374      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR440
00375      MOVE L001-SLASH-8-DATE            TO HDR-END-DATE.           DTSBR440
00376                                                                   DTSBR440
00377      MOVE R440-CURR-FISCAL-YEAR        TO L001-FED-8-DATE-9.      DTSBR440
00378      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR440
00379      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR440
00380      MOVE L001-SLASH-8-DATE            TO HDR-CURR-FISCAL-YR.     DTSBR440
00381                                                                   DTSBR440
00382      MOVE R440-PRIOR-FISCAL-YEAR       TO L001-FED-8-DATE-9.      DTSBR440
00383      SET L001-FROM-FED-8 TO TRUE.                                 DTSBR440
00384      PERFORM S001-DATE THRU S001-EXIT.                            DTSBR440
00385      MOVE L001-SLASH-8-DATE            TO HDR-PRIOR-FISCAL-YR.    DTSBR440
00386                                                                   DTSBR440
00387      MOVE R440-NEW-DTRM-CNT-MTH        TO DTL-NEW-DET-CNT-MTH.    DTSBR440
00388      MOVE R440-NEW-DTRM-CNT-YR         TO DTL-NEW-DET-CNT-YR.     DTSBR440
00389      MOVE R440-NEW-DTRM-CNT-PYR        TO DTL-NEW-DET-CNT-PYR.    DTSBR440
00390                                                                   DTSBR440
00391      MOVE R440-NEW-DTRM-T90-CNT-MTH    TO DTL-NEW-DET-90-CNT-MTH. DTSBR440
00392      MOVE R440-NEW-DTRM-T90-CNT-YR     TO DTL-NEW-DET-90-CNT-YR.  DTSBR440
00393      MOVE R440-NEW-DTRM-T90-CNT-PYR    TO DTL-NEW-DET-90-CNT-PYR. DTSBR440
00394                                                                   DTSBR440
00395      MOVE R440-NEW-DTRM-T180-CNT-MTH TO DTL-NEW-DET-180-CNT-MTH.  DTSBR440
00396      MOVE R440-NEW-DTRM-T180-CNT-YR    TO DTL-NEW-DET-180-CNT-YR. DTSBR440
00397      MOVE R440-NEW-DTRM-T180-CNT-PYR TO DTL-NEW-DET-180-CNT-PYR.  DTSBR440
00398                                                                   DTSBR440
00399      MOVE R440-NEW-DTRM-TMLY-PCT-MTH  TO DTL-NEW-DET-TMLY-PCT-MTH.DTSBR440
00400      MOVE R440-NEW-DTRM-TMLY-PCT-YR    TO DTL-NEW-DET-TMLY-PCT-YR.DTSBR440
00401      MOVE R440-NEW-DTRM-TMLY-PCT-PYR  TO DTL-NEW-DET-TMLY-PCT-PYR.DTSBR440
00402                                                                   DTSBR440
00403      MOVE R440-INACTIVATION-CNT-MTH    TO DTL-INACT-CNT-MTH.      DTSBR440
00404      MOVE R440-INACTIVATION-CNT-YR     TO DTL-INACT-CNT-YR.       DTSBR440
00405      MOVE R440-INACTIVATION-CNT-PYR    TO DTL-INACT-CNT-PYR.      DTSBR440
00406                                                                   DTSBR440
00407      MOVE R440-LIABLE-EMP-CNT          TO DTL-LIABLE-EMP-CNT.     DTSBR440
00408                                                                   DTSBR440
00409 *    MOVE R440-AUDIT-CNT-MTH           TO DTL-AUDIT-CNT-MTH.      DTSBR440
00410 *    MOVE R440-AUDIT-CNT-YR            TO DTL-AUDIT-CNT-YR.       DTSBR440
00411 *    MOVE R440-AUDIT-CNT-PYR           TO DTL-AUDIT-CNT-PYR.      DTSBR440
00412                                                                   DTSBR440
00413      MOVE R440-PAST-DUE-COLLECT-MTH    TO DTL-PAST-DUE-COLL-MTH.  DTSBR440
00414      MOVE R440-PAST-DUE-COLLECT-YR     TO DTL-PAST-DUE-COLL-YR.   DTSBR440
00415      MOVE R440-PAST-DUE-COLLECT-PYR    TO DTL-PAST-DUE-COLL-PYR.  DTSBR440
00416                                                                   DTSBR440
00417      MOVE R440-PENALTY-COLLECT-MTH     TO DTL-PENALTY-COLL-MTH.   DTSBR440
00418      MOVE R440-PENALTY-COLLECT-YR      TO DTL-PENALTY-COLL-YR.    DTSBR440
00419      MOVE R440-PENALTY-COLLECT-PYR     TO DTL-PENALTY-COLL-PYR.   DTSBR440
00420                                                                   DTSBR440
00421      MOVE R440-INTEREST-COLLECT-MTH    TO DTL-INTEREST-COLL-MTH.  DTSBR440
00422      MOVE R440-INTEREST-COLLECT-YR     TO DTL-INTEREST-COLL-YR.   DTSBR440
00423      MOVE R440-INTEREST-COLLECT-PYR    TO DTL-INTEREST-COLL-PYR.  DTSBR440
00424                                                                   DTSBR440
00425      PERFORM P2000-PRINT-HEADER THRU P2000-EXIT.                  DTSBR440
00426      WRITE REPORT-LISTING FROM DTL-LINE-1 AFTER 1.                DTSBR440
00427      WRITE REPORT-LISTING FROM DTL-LINE-2 AFTER 1.                DTSBR440
00428      WRITE REPORT-LISTING FROM DTL-LINE-3 AFTER 1.                DTSBR440
00429      WRITE REPORT-LISTING FROM DTL-LINE-4 AFTER 1.                DTSBR440
00430      WRITE REPORT-LISTING FROM DTL-LINE-5 AFTER 1.                DTSBR440
00431      WRITE REPORT-LISTING FROM DTL-LINE-6 AFTER 1.                DTSBR440
00432      WRITE REPORT-LISTING FROM DTL-LINE-7 AFTER 1.                DTSBR440
00433      WRITE REPORT-LISTING FROM DTL-LINE-8 AFTER 1.                DTSBR440
00434 *    WRITE REPORT-LISTING FROM DTL-LINE-9 AFTER 1.                DTSBR440
00435 *    WRITE REPORT-LISTING FROM DTL-LINE-10 AFTER 1.               DTSBR440
00436 *    WRITE REPORT-LISTING FROM DTL-LINE-11 AFTER 1.               DTSBR440
00437 *    WRITE REPORT-LISTING FROM DTL-LINE-12 AFTER 1.               DTSBR440
00438 *    WRITE REPORT-LISTING FROM DTL-LINE-13 AFTER 1.               DTSBR440
00439      WRITE REPORT-LISTING FROM DTL-LINE-14 AFTER 1.               DTSBR440
00440      WRITE REPORT-LISTING FROM DTL-LINE-15 AFTER 1.               DTSBR440
00441      WRITE REPORT-LISTING FROM DTL-LINE-16 AFTER 1.               DTSBR440
00442      WRITE REPORT-LISTING FROM DTL-LINE-17 AFTER 1.               DTSBR440
00443      WRITE REPORT-LISTING FROM DTL-LINE-18 AFTER 1.               DTSBR440
00444      WRITE REPORT-LISTING FROM DTL-LINE-19 AFTER 1.               DTSBR440
00445      WRITE REPORT-LISTING FROM DTL-LINE-20 AFTER 1.               DTSBR440
00446      MOVE +60  TO WS-LINE-CNT2.                                   DTSBR440
00447      ADD +1 TO WS-DETAIL-CNT.                                     DTSBR440
00448                                                                   DTSBR440
00449  P1000-EXIT.                                                      DTSBR440
00450      EXIT.                                                        DTSBR440
00451                                                                   DTSBR440
00452  P2000-PRINT-HEADER.                                              DTSBR440
00453                                                                   DTSBR440
00454      IF WS-LINE-CNT GREATER 58 OR                                 DTSBR440
00455           WS-LINE-CNT2 GREATER 58                                 DTSBR440
00456         MOVE +0          TO WS-LINE-CNT                           DTSBR440
00457         MOVE +0          TO WS-LINE-CNT2                          DTSBR440
00458         ADD  +1          TO WS-PAGE-CNT                           DTSBR440
00459         MOVE WS-PAGE-CNT TO HDR-PAGE-CNT                          DTSBR440
00460         WRITE REPORT-LISTING FROM HDR-LINE-1                      DTSBR440
00461                 AFTER TOP-OF-PAGE                                 DTSBR440
00462         WRITE REPORT-LISTING FROM HDR-LINE-2 AFTER 1              DTSBR440
00463         WRITE REPORT-LISTING FROM HDR-LINE-3 AFTER 1              DTSBR440
00464         WRITE REPORT-LISTING FROM HDR-LINE-4 AFTER 1              DTSBR440
00465         WRITE REPORT-LISTING FROM HDR-LINE-5 AFTER 1              DTSBR440
00466         WRITE REPORT-LISTING FROM HDR-LINE-6 AFTER 1              DTSBR440
00467         WRITE REPORT-LISTING FROM HDR-LINE-7 AFTER 1              DTSBR440
00468         WRITE REPORT-LISTING FROM HDR-LINE-8 AFTER 1              DTSBR440
00469         WRITE REPORT-LISTING FROM HDR-LINE-9 AFTER 1              DTSBR440
00470         WRITE REPORT-LISTING FROM HDR-LINE-10 AFTER 1             DTSBR440
00471         WRITE REPORT-LISTING FROM HDR-LINE-11 AFTER 1             DTSBR440
00472         WRITE REPORT-LISTING FROM HDR-LINE-12 AFTER 1             DTSBR440
00473         ADD +12   TO WS-LINE-CNT2.                                DTSBR440
00474                                                                   DTSBR440
00475  P2000-EXIT.                                                      DTSBR440
00476      EXIT.                                                        DTSBR440
00477                                                                   DTSBR440
00478  T1000-TERMINATE.                                                 DTSBR440
00479                                                                   DTSBR440
00480                                                                   DTSBR440
00481 *    MOVE WS-DETAIL-CNT              TO CTF-DETAIL-CNT.           DTSBR440
00482      WRITE REPORT-LISTING FROM CTF-LINE-4 AFTER 4.                DTSBR440
00483                                                                   DTSBR440
00484      CLOSE PRT-FILE.                                              DTSBR440
00485                                                                   DTSBR440
00486  T1000-EXIT.                                                      DTSBR440
00487      EXIT.                                                        DTSBR440
00488      EJECT                                                        DTSBR440
00489                                                                   DTSBR440
00490  S001-DATE.                                                       DTSBR440
00491                                                                   DTSBR440
00492      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBR440
00493                                                                   DTSBR440
00494  S001-EXIT.                                                       DTSBR440
00495      EXIT.                                                        DTSBR440
00496                                                                   DTSBR440
00497 *S999-ABEND.                                                      DTSBR440
00498 *    SKIP1                                                        DTSBR440
00499 *    CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBR440
00500 *    SKIP2                                                        DTSBR440
00501 *S999-EXIT.                                                       DTSBR440
00502 *    EXIT.                                                        DTSBR440
00503                                                                   DTSBR440
