00001  IDENTIFICATION DIVISION.                                         01/29/01
00002  PROGRAM-ID.             DTSBE440.                                DTSBE440
00003  AUTHOR.                 TRW.                                        LV003
00004  DATE-WRITTEN.           OCTOBER 2000.                            DTSBE440
00005  DATE-COMPILED.                                                   DTSBE440
00006      SKIP3                                                        DTSBE440
00007 *****                                                             DTSBE440
00008 *                                                                 DTSBE440
00009 *                                                                 DTSBE440
00010 *    FUNCTION:  MANAGEMENT REPORT OF DETERMINATIONS, AUDITS,      DTSBE440
00011 *               DELIQUENT COLLECTIONS AND PENALTY AND INTEREST.   DTSBE440
00012 *                                                                 DTSBE440
00013 *    MODIFICATION LOG:                                            DTSBE440
00014 *                                                                 DTSBE440
00015 *    10/16/2000  MODIFED FROM DTSBE713 (ETA 581 EXTRACT).         DTSBE440
00016 *                WORK ORDER: DIR00082           PROGRAMMER: GD    DTSBE440
00017 *                                                                 DTSBE440
00018 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE440
00019 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE440
00020 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBE440
00021 *                                                                 DTSBE440
00022 *                                                                 DTSBE440
00023 *  DESCRIPTION:                                                   DTSBE440
00024 *                                                                 DTSBE440
00025 *                                                                 DTSBE440
00026 *    INITIATION:                                                  DTSBE440
00027 *                                                                 DTSBE440
00028 *      SET LECM-MST-OPEN-READ-88 TO TRUE.                         DTSBE440
00029 *                                                                 DTSBE440
00030 *      EDIT AND DEFAULT PARAMETERS.                               DTSBE440
00031 *                                                                 DTSBE440
00032 *                                                                 DTSBE440
00033 *    PROCESSING:                                                  DTSBE440
00034 *                                                                 DTSBE440
00035 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (440R1).       DTSBE440
00036 *                                                                 DTSBE440
00037 *                                                                 DTSBE440
00038 *    TERMINATION:                                                 DTSBE440
00039 *                                                                 DTSBE440
00040 *                                                                 DTSBE440
00041 *                                                                 DTSBE440
00042 *                                                                 DTSBE440
00043 *    RECORDS READ:                                                DTSBE440
00044 *                                                                 DTSBE440
00045 *      MASTER:                                                    DTSBE440
00046 *                                                                 DTSBE440
00047 *        MJRN                                                     DTSBE440
00048 *                                                                 DTSBE440
00049 *                                                                 DTSBE440
00050 *      ALTERNATE INDEX:                                           DTSBE440
00051 *                                                                 DTSBE440
00052 *        NONE.                                                    DTSBE440
00053 *                                                                 DTSBE440
00054 *                                                                 DTSBE440
00055 *      REFERENCE:                                                 DTSBE440
00056 *                                                                 DTSBE440
00057 *                                                                 DTSBE440
00058 *                                                                 DTSBE440
00059 *    RECORDS UPDATED:                                             DTSBE440
00060 *                                                                 DTSBE440
00061 *        NONE                                                     DTSBE440
00062 *                                                                 DTSBE440
00063 *                                                                 DTSBE440
00064 *    REPORT RECORDS WRITTEN:                                      DTSBE440
00065 *                                                                 DTSBE440
00066 *        R440 MONTHLY TAX ACTIVITY OVERVIEW.                      DTSBE440
00067 *                                                                 DTSBE440
00068 *                                                                 DTSBE440
00069 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE440
00070 *                                                                 DTSBE440
00071 *        NONE.                                                    DTSBE440
00072 *                                                                 DTSBE440
00073 *                                                                 DTSBE440
00074 *    MODULES CALLED:                                              DTSBE440
00075 *                                                                 DTSBE440
00076 *        DTSBU001  DATE EDIT/CONVERSION.                          DTSBE440
00077 *        DTSBU004  QUARTER EDIT/CONVERSION.                       DTSBE440
00078 *        DTSBU005  ABSOLUTE TIME CONVERSION/EDIT.                 DTSBE440
00079 *        DTSBU910  MASTER FILE I/O.                               DTSBE440
00080 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.   DTSBE440
00081 *                                                                 DTSBE440
00082 *                                                                 DTSBE440
00083 *****                                                             DTSBE440
00084      SKIP3                                                        DTSBE440
00085  ENVIRONMENT DIVISION.                                            DTSBE440
00086      EJECT                                                        DTSBE440
00087  DATA DIVISION.                                                   DTSBE440
00088      SKIP3                                                        DTSBE440
00089  WORKING-STORAGE SECTION.                                         DTSBE440
000895 77  PAN-VALET PICTURE X(24) VALUE '003DTSBE440  01/29/01'.       DTSBE440
00090      SKIP3                                                        DTSBE440
00091  01  WRK-AREA.                                                    DTSBE440
00092      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +440.DTSBE440
00093                                                                   DTSBE440
00094      05  ABEND-MSG                       PIC  X(60).              DTSBE440
00095                                                                   DTSBE440
00096      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE440'.DTSBE440
00097                                                                   DTSBE440
00098      05  WRK-PERIOD-START-DATE       PIC S9(09)  COMP-3.          DTSBE440
00099                                                                   DTSBE440
00100      05  WRK-PERIOD-START-ABSTIME    PIC S9(15)  COMP-3.          DTSBE440
00101                                                                   DTSBE440
00102      05  WRK-CURR-YR-START-DATE      PIC S9(09)  COMP-3.          DTSBE440
00103                                                                   DTSBE440
00104      05  WRK-CURR-YR-START-ABSTIME   PIC S9(15)  COMP-3.          DTSBE440
00105                                                                   DTSBE440
00106      05  WRK-PRIOR-YR-START-DATE     PIC S9(09)  COMP-3.          DTSBE440
00107                                                                   DTSBE440
00108      05  WRK-PRIOR-YR-START-ABSTIME  PIC S9(15)  COMP-3.          DTSBE440
00109                                                                   DTSBE440
00110      05  WRK-PERIOD-END-DATE         PIC S9(09)  COMP-3.          DTSBE440
00111                                                                   DTSBE440
00112      05  WRK-ENTRY-JUL-ABS-DAY       PIC S9(08)  COMP.            DTSBE440
00113                                                                   DTSBE440
00114      05  WRK-TIME-LAPSE-DAYS         PIC S9(08)  COMP.            DTSBE440
00115                                                                   DTSBE440
00116      05  WRK-JRN-MAX                 PIC S9(04)  COMP  VALUE +400.DTSBE440
00117                                                                   DTSBE440
00118      05  WRK-JRN-SUB                 PIC S9(04)  COMP.            DTSBE440
00119                                                                   DTSBE440
00120      05  WRK-JRN-AREA OCCURS 400 TIMES                            DTSBE440
00121                       INDEXED BY WRK-JRN-IDX.                     DTSBE440
00122          10  WRK-JRN-PMT-CHANGE-IND      PIC  X(01).              DTSBE440
00123              88  WRK-JRN-PMT-CHANGE-YES   VALUE 'Y'.              DTSBE440
00124              88  WRK-JRN-PMT-CHANGE-NO    VALUE 'N'.              DTSBE440
00125          10  WRK-JRN-PMT-AMT             PIC S9(09)V99.           DTSBE440
00126          10  WRK-JRN-INT-CHANGE-IND      PIC  X(01).              DTSBE440
00127              88  WRK-JRN-INT-CHANGE-YES   VALUE 'Y'.              DTSBE440
00128              88  WRK-JRN-INT-CHANGE-NO    VALUE 'N'.              DTSBE440
00129                                                                   DTSBE440
00130      05  WRK-MJRN-YRQ                PIC S9(05)        COMP-3.    DTSBE440
00131      SKIP3                                                        DTSBE440
00132      05  WRK-INT-CHG                 PIC S9(09)V99     COMP-3.    DTSBE440
00133      05  DISPLAY-AMT-X               PIC  X(15).                  DTSBE440
00134      05  DISPLAY-AMT REDEFINES DISPLAY-AMT-X                      DTSBE440
00135                                      PIC  ZZZ,ZZZ,ZZ9.99-.        DTSBE440
00136      EJECT                                                        DTSBE440
00137  01  L001-LINK-AREA.                                              DTSBE440
00138  ++INCLUDE DTSIL001                                               DTSBE440
00139      EJECT                                                        DTSBE440
00140  01  L004-LINK-AREA.                                              DTSBE440
00141  ++INCLUDE DTSIL004                                               DTSBE440
00142      EJECT                                                        DTSBE440
00143  01  L005-LINK-AREA.                                              DTSBE440
00144  ++INCLUDE DTSIL005                                               DTSBE440
00145      EJECT                                                        DTSBE440
00146  01  L910-LINK-AREA.                                              DTSBE440
00147  ++INCLUDE DTSIL910                                               DTSBE440
00148      SKIP3                                                        DTSBE440
00149  01  MSKL-REC.                                                    DTSBE440
00150  ++INCLUDE DTSIMSKL                                               DTSBE440
00151      SKIP3                                                        DTSBE440
00152  01  MHDR-REC.                                                    DTSBE440
00153  ++INCLUDE DTSIMHDR                                               DTSBE440
00154      SKIP3                                                        DTSBE440
00155  01  MERD-REC.                                                    DTSBE440
00156  ++INCLUDE DTSIMERD                                               DTSBE440
00157      SKIP3                                                        DTSBE440
00158  01  MQTR-REC.                                                    DTSBE440
00159  ++INCLUDE DTSIMQTR                                               DTSBE440
00160      SKIP3                                                        DTSBE440
00161  01  MJRN-REC.                                                    DTSBE440
00162  ++INCLUDE DTSIMJRN                                               DTSBE440
00163      SKIP3                                                        DTSBE440
00164  01  MFAS-REC.                                                    DTSBE440
00165  ++INCLUDE DTSIMFAS                                               DTSBE440
00166      SKIP3                                                        DTSBE440
00167  01  R440-REC.                                                    DTSBE440
00168  ++INCLUDE DTSIR440                                               DTSBE440
00169      EJECT                                                        DTSBE440
00170  01  MMAX-LITERALS.                                               DTSBE440
00171  ++INCLUDE DTSIMMAX                                               DTSBE440
00172      EJECT                                                        DTSBE440
00173  LINKAGE SECTION.                                                 DTSBE440
00174      SKIP3                                                        DTSBE440
00175  01  LECM-LINK-AREA.                                              DTSBE440
00176  ++INCLUDE DTSILECM                                               DTSBE440
00177      SKIP3                                                        DTSBE440
00178          10  FILLER REDEFINES LECM-EXTRACT-PARMS.                 DTSBE440
00179              15  LECM-PARM-PERIOD-START-DATE  PIC  9(06).         DTSBE440
00180              15  FILLER                       PIC  X(01).         DTSBE440
00181              15  LECM-PARM-PERIOD-END-DATE    PIC  9(06).         DTSBE440
00182              15  FILLER                       PIC  X(55).         DTSBE440
00183      EJECT                                                        DTSBE440
00184  01  MPRF-LINK-REC.                                               DTSBE440
00185  ++INCLUDE DTSIMPRF                                               DTSBE440
00186      EJECT                                                        DTSBE440
00187  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE440
00188                           MPRF-LINK-REC.                          DTSBE440
00189      SKIP2                                                        DTSBE440
00190      IF LECM-PROCESS-88                                           DTSBE440
00191          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE440
00192      ELSE                                                         DTSBE440
00193      IF LECM-INITIALIZE-88                                        DTSBE440
00194          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE440
00195      ELSE                                                         DTSBE440
00196      IF LECM-TERMINATE-88                                         DTSBE440
00197          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE440
00198      ELSE                                                         DTSBE440
00199          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE440
00200            TO ABEND-MSG                                           DTSBE440
00201          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE440
00202      SKIP2                                                        DTSBE440
00203      GOBACK.                                                      DTSBE440
00204      EJECT                                                        DTSBE440
00205  I0000-INITIALIZE.                                                DTSBE440
00206      MOVE LECM-TRACE-IND TO L910-TRACE-IND.                       DTSBE440
00207                                                                   DTSBE440
00208      MOVE WRK-MOD-NAME TO L910-MOD-NAME.                          DTSBE440
00209                                                                   DTSBE440
00210      MOVE LENGTH OF R440-REC TO R440-LENGTH.                      DTSBE440
00211      MOVE '440'  TO R440-REC-TYPE.                                DTSBE440
00212                                                                   DTSBE440
00213      PERFORM I0100-INIT-R440              THRU I0100-EXIT.        DTSBE440
00214                                                                   DTSBE440
00215      PERFORM I1000-READ-MHDR              THRU I1000-EXIT.        DTSBE440
00216                                                                   DTSBE440
00217      PERFORM I2000-EDIT-AND-DEFAULT-PARMS THRU I2000-EXIT.        DTSBE440
00218                                                                   DTSBE440
00219      SET LECM-MST-OPEN-READ-88 TO TRUE.                           DTSBE440
00220                                                                   DTSBE440
00221  I0000-EXIT.                                                      DTSBE440
00222      EXIT.                                                        DTSBE440
00223                                                                   DTSBE440
00224  I0100-INIT-R440.                                                 DTSBE440
00225      MOVE +0          TO R440-NEW-DTRM-CNT-MTH                    DTSBE440
00226                          R440-NEW-DTRM-CNT-YR                     DTSBE440
00227                          R440-NEW-DTRM-CNT-PYR                    DTSBE440
00228                          R440-NEW-DTRM-T90-CNT-MTH                DTSBE440
00229                          R440-NEW-DTRM-T90-CNT-YR                 DTSBE440
00230                          R440-NEW-DTRM-T90-CNT-PYR                DTSBE440
00231                          R440-NEW-DTRM-T180-CNT-MTH               DTSBE440
00232                          R440-NEW-DTRM-T180-CNT-YR                DTSBE440
00233                          R440-NEW-DTRM-T180-CNT-PYR               DTSBE440
00234                          R440-INACTIVATION-CNT-MTH                DTSBE440
00235                          R440-INACTIVATION-CNT-YR                 DTSBE440
00236                          R440-INACTIVATION-CNT-PYR                DTSBE440
00237                          R440-LIABLE-EMP-CNT                      DTSBE440
00238                          R440-AUDIT-CNT-MTH                       DTSBE440
00239                          R440-AUDIT-CNT-YR                        DTSBE440
00240                          R440-AUDIT-CNT-PYR                       DTSBE440
00241                          R440-PAST-DUE-COLLECT-MTH                DTSBE440
00242                          R440-PAST-DUE-COLLECT-YR                 DTSBE440
00243                          R440-PAST-DUE-COLLECT-PYR                DTSBE440
00244                          R440-PENALTY-COLLECT-MTH                 DTSBE440
00245                          R440-PENALTY-COLLECT-YR                  DTSBE440
00246                          R440-PENALTY-COLLECT-PYR                 DTSBE440
00247                          R440-INTEREST-COLLECT-MTH                DTSBE440
00248                          R440-INTEREST-COLLECT-YR                 DTSBE440
00249                          R440-INTEREST-COLLECT-PYR.               DTSBE440
00250                                                                   DTSBE440
00251  I0100-EXIT.                                                      DTSBE440
00252      EXIT.                                                        DTSBE440
00253                                                                   DTSBE440
00254      EJECT                                                        DTSBE440
00255  I1000-READ-MHDR.                                                 DTSBE440
00256      MOVE LOW-VALUES       TO MHDR-KEY-AREA.                      DTSBE440
00257      MOVE +0               TO MHDR-EMP-NO.                        DTSBE440
00258      SET MHDR-HDR-88       TO TRUE.                               DTSBE440
00259      MOVE MHDR-KEY-AREA    TO MSKL-KEY-AREA.                      DTSBE440
00260      PERFORM S910-READ     THRU S910-EXIT.                        DTSBE440
00261      IF L910-NO-REC-88                                            DTSBE440
00262         MOVE 'MHDR RECORD NOT FOUND'                              DTSBE440
00263                            TO ABEND-MSG                           DTSBE440
00264         PERFORM S999-ABEND THRU S999-EXIT                         DTSBE440
00265      ELSE                                                         DTSBE440
00266         MOVE MSKL-REC      TO MHDR-REC.                           DTSBE440
00267                                                                   DTSBE440
00268  I1000-EXIT.                                                      DTSBE440
00269      EXIT.                                                        DTSBE440
00270                                                                   DTSBE440
00271  I2000-EDIT-AND-DEFAULT-PARMS.                                    DTSBE440
00272      PERFORM I2100-PERIOD-START-DATE THRU I2100-EXIT.             DTSBE440
00273                                                                   DTSBE440
00274      PERFORM I2200-PERIOD-END-DATE   THRU I2200-EXIT.             DTSBE440
00275                                                                   DTSBE440
00276      PERFORM I2300-YEAR-START-DATES  THRU I2300-EXIT.             DTSBE440
00277                                                                   DTSBE440
00278      MOVE WRK-PERIOD-START-DATE      TO R440-PERIOD-START-DATE.   DTSBE440
00279                                                                   DTSBE440
00280      MOVE WRK-PERIOD-END-DATE        TO R440-PERIOD-END-DATE.     DTSBE440
00281                                                                   DTSBE440
00282      MOVE WRK-CURR-YR-START-DATE     TO R440-CURR-FISCAL-YEAR.    DTSBE440
00283                                                                   DTSBE440
00284      MOVE WRK-PRIOR-YR-START-DATE    TO R440-PRIOR-FISCAL-YEAR.   DTSBE440
00285                                                                   DTSBE440
00286      DISPLAY 'DTSBE440 START DATE ' WRK-PERIOD-START-DATE.        DTSBE440
00287      DISPLAY 'DTSBE440 END DATE   ' WRK-PERIOD-END-DATE.          DTSBE440
00288      DISPLAY 'DTSBE440 CURR YEAR  ' WRK-CURR-YR-START-DATE.       DTSBE440
00289      DISPLAY 'DTSBE440 PRIOR YEAR ' WRK-PRIOR-YR-START-DATE.      DTSBE440
00290                                                                   DTSBE440
00291  I2000-EXIT.                                                      DTSBE440
00292      EXIT.                                                        DTSBE440
00293      SKIP3                                                        DTSBE440
00294  I2100-PERIOD-START-DATE.                                         DTSBE440
00295      IF LECM-PARM-PERIOD-START-DATE = SPACES                      DTSBE440
00296         PERFORM I2110-DEFAULT-START-DATE THRU I2110-EXIT          DTSBE440
00297      ELSE                                                         DTSBE440
00298         PERFORM I2120-EDIT-START-DATE    THRU I2120-EXIT.         DTSBE440
00299                                                                   DTSBE440
00300      IF WRK-PERIOD-START-DATE > LECM-LAST-MJRN-PURGE-DATE         DTSBE440
00301          NEXT SENTENCE                                            DTSBE440
00302      ELSE                                                         DTSBE440
00303          MOVE                                                     DTSBE440
00304      'START-DATE NOT GREATER THAN LAST-MJRN-PURGE-DATE'           DTSBE440
00305            TO ABEND-MSG                                           DTSBE440
00306          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE440
00307                                                                   DTSBE440
00308  I2100-EXIT.                                                      DTSBE440
00309      EXIT.                                                        DTSBE440
00310                                                                   DTSBE440
00311  I2110-DEFAULT-START-DATE.                                        DTSBE440
00312      MOVE MHDR-CMPL-MONTH-BEGIN-DATE TO WRK-PERIOD-START-DATE     DTSBE440
00313                                         L005-DATE                 DTSBE440
00314      MOVE ZERO                       TO L005-TIME                 DTSBE440
00315      PERFORM S005-FROM-DATE-TIME     THRU S005-EXIT               DTSBE440
00316      MOVE L005-ABSTIME               TO WRK-PERIOD-START-ABSTIME. DTSBE440
00317                                                                   DTSBE440
00318  I2110-EXIT.                                                      DTSBE440
00319      EXIT.                                                        DTSBE440
00320                                                                   DTSBE440
00321  I2120-EDIT-START-DATE.                                           DTSBE440
00322      MOVE LECM-PARM-PERIOD-START-DATE TO L001-CAL-6-DATE-X.       DTSBE440
00323      PERFORM S001-FROM-CAL-6          THRU S001-EXIT.             DTSBE440
00324      IF L001-INVALID-DATE                                         DTSBE440
00325           MOVE 'LECM-PARM-PERIOD-START-DATE NOT VALID'            DTSBE440
00326             TO ABEND-MSG                                          DTSBE440
00327           PERFORM S999-ABEND          THRU S999-EXIT              DTSBE440
00328       ELSE                                                        DTSBE440
00329          MOVE L001-FED-8-DATE-9       TO WRK-PERIOD-START-DATE    DTSBE440
00330                                          L005-DATE                DTSBE440
00331          MOVE ZERO                    TO L005-TIME                DTSBE440
00332          PERFORM S005-FROM-DATE-TIME  THRU S005-EXIT              DTSBE440
00333          MOVE L005-ABSTIME            TO WRK-PERIOD-START-ABSTIME DTSBE440
00334       END-IF.                                                     DTSBE440
00335                                                                   DTSBE440
00336  I2120-EXIT.                                                      DTSBE440
00337      EXIT.                                                        DTSBE440
00338                                                                   DTSBE440
00339  I2200-PERIOD-END-DATE.                                           DTSBE440
00340      IF LECM-PARM-PERIOD-END-DATE = SPACES                        DTSBE440
00341         PERFORM I2210-DEFAULT-END-DATE   THRU I2210-EXIT          DTSBE440
00342      ELSE                                                         DTSBE440
00343         PERFORM I2220-EDIT-END-DATE      THRU I2220-EXIT.         DTSBE440
00344                                                                   DTSBE440
00345  I2200-EXIT.                                                      DTSBE440
00346      EXIT.                                                        DTSBE440
00347                                                                   DTSBE440
00348  I2210-DEFAULT-END-DATE.                                          DTSBE440
00349      MOVE MHDR-CMPL-MONTH-END-DATE   TO WRK-PERIOD-END-DATE.      DTSBE440
00350                                                                   DTSBE440
00351  I2210-EXIT.                                                      DTSBE440
00352      EXIT.                                                        DTSBE440
00353                                                                   DTSBE440
00354  I2220-EDIT-END-DATE.                                             DTSBE440
00355      MOVE LECM-PARM-PERIOD-END-DATE  TO L001-CAL-6-DATE-X.        DTSBE440
00356      PERFORM S001-FROM-CAL-6         THRU S001-EXIT.              DTSBE440
00357      IF L001-INVALID-DATE                                         DTSBE440
00358           MOVE 'LECM-PARM-END-DATE NOT VALID'                     DTSBE440
00359             TO ABEND-MSG                                          DTSBE440
00360           PERFORM S999-ABEND         THRU S999-EXIT               DTSBE440
00361       ELSE                                                        DTSBE440
00362          MOVE L001-FED-8-DATE-9      TO WRK-PERIOD-END-DATE       DTSBE440
00363       END-IF.                                                     DTSBE440
00364                                                                   DTSBE440
00365  I2220-EXIT.                                                      DTSBE440
00366      EXIT.                                                        DTSBE440
00367                                                                   DTSBE440
00368  I2300-YEAR-START-DATES.                                          DTSBE440
00369      MOVE WRK-PERIOD-START-DATE    TO L001-FED-8-DATE-9.          DTSBE440
00370      IF L001-FED-8-MO > 9                                         DTSBE440
00371         MOVE 10                    TO L001-FED-8-MO               DTSBE440
00372         MOVE 01                    TO L001-FED-8-DA               DTSBE440
00373      ELSE                                                         DTSBE440
00374         SUBTRACT 1                 FROM L001-FED-8-YR             DTSBE440
00375         MOVE 10                    TO L001-FED-8-MO               DTSBE440
00376         MOVE 01                    TO L001-FED-8-DA               DTSBE440
00377      END-IF.                                                      DTSBE440
00378                                                                   DTSBE440
00379      PERFORM S001-FROM-FED-8         THRU S001-EXIT.              DTSBE440
00380      IF L001-INVALID-DATE                                         DTSBE440
00381           MOVE 'YEAR START DATE NOT VALID'                        DTSBE440
00382             TO ABEND-MSG                                          DTSBE440
00383           PERFORM S999-ABEND         THRU S999-EXIT               DTSBE440
00384       ELSE                                                        DTSBE440
00385          MOVE L001-FED-8-DATE-9      TO L005-DATE                 DTSBE440
00386                                         WRK-CURR-YR-START-DATE    DTSBE440
00387          MOVE ZERO                   TO L005-TIME                 DTSBE440
00388          PERFORM S005-FROM-DATE-TIME THRU S005-EXIT               DTSBE440
00389          MOVE L005-ABSTIME           TO WRK-CURR-YR-START-ABSTIME DTSBE440
00390       END-IF.                                                     DTSBE440
00391                                                                   DTSBE440
00392      SUBTRACT 1                      FROM L001-FED-8-YR.          DTSBE440
00393      PERFORM S001-FROM-FED-8         THRU S001-EXIT.              DTSBE440
00394      IF L001-INVALID-DATE                                         DTSBE440
00395           MOVE 'PRIOR YEAR START DATE NOT VALID'                  DTSBE440
00396             TO ABEND-MSG                                          DTSBE440
00397           PERFORM S999-ABEND         THRU S999-EXIT               DTSBE440
00398       ELSE                                                        DTSBE440
00399          MOVE L001-FED-8-DATE-9      TO L005-DATE                 DTSBE440
00400                                         WRK-PRIOR-YR-START-DATE   DTSBE440
00401          MOVE ZERO                   TO L005-TIME                 DTSBE440
00402          PERFORM S005-FROM-DATE-TIME THRU S005-EXIT               DTSBE440
00403          MOVE L005-ABSTIME           TO WRK-PRIOR-YR-START-ABSTIMEDTSBE440
00404       END-IF.                                                     DTSBE440
00405                                                                   DTSBE440
00406  I2300-EXIT.                                                      DTSBE440
00407      EXIT.                                                        DTSBE440
00408                                                                   DTSBE440
00409      EJECT                                                        DTSBE440
00410  P0000-PROCESS.                                                   DTSBE440
00411      IF MPRF-CLASS-SUB-88                                         DTSBE440
00412         ADD +1 TO R440-LIABLE-EMP-CNT                             DTSBE440
00413      ELSE                                                         DTSBE440
00414         GO TO P0000-EXIT.                                         DTSBE440
00415                                                                   DTSBE440
00416      PERFORM P1000-DETERMINATIONS     THRU P1000-EXIT.            DTSBE440
00417                                                                   DTSBE440
00418      PERFORM P2000-AUDIT-ACTIVITY     THRU P2000-EXIT.            DTSBE440
00419                                                                   DTSBE440
00420      PERFORM P3000-UI-TAX-COLLECTIONS THRU P3000-EXIT.            DTSBE440
00421                                                                   DTSBE440
00422  P0000-EXIT.                                                      DTSBE440
00423      EXIT.                                                        DTSBE440
00424      EJECT                                                        DTSBE440
00425  P1000-DETERMINATIONS.                                            DTSBE440
00426      MOVE LOW-VALUES                  TO MERD-KEY-AREA.           DTSBE440
00427      MOVE MPRF-EMP-NO                 TO MERD-EMP-NO.             DTSBE440
00428      SET MERD-ERD-88                  TO TRUE.                    DTSBE440
00429      MOVE WRK-PRIOR-YR-START-ABSTIME  TO MERD-ESTB-ABSTIME.       DTSBE440
00430      MOVE MERD-KEY-AREA               TO MSKL-KEY-AREA.           DTSBE440
00431      PERFORM S910-START-BROWSE        THRU S910-EXIT.             DTSBE440
00432      PERFORM P1100-SCAN-MERD          THRU P1100-EXIT             DTSBE440
00433          UNTIL L910-NO-REC-88.                                    DTSBE440
00434  P1000-EXIT.                                                      DTSBE440
00435      EXIT.                                                        DTSBE440
00436      SKIP3                                                        DTSBE440
00437  P1100-SCAN-MERD.                                                 DTSBE440
00438      MOVE MSKL-REC TO MERD-REC.                                   DTSBE440
00439                                                                   DTSBE440
00440      IF (MERD-ESTB-DATE < WRK-PRIOR-YR-START-DATE)                DTSBE440
00441            OR                                                     DTSBE440
00442         (MERD-ESTB-DATE > WRK-PERIOD-END-DATE)                    DTSBE440
00443          NEXT SENTENCE                                            DTSBE440
00444      ELSE                                                         DTSBE440
00445         IF MERD-DETER-INACT-88                                    DTSBE440
00446            PERFORM P1110-INACTIVE              THRU P1110-EXIT    DTSBE440
00447         ELSE                                                      DTSBE440
00448            IF MERD-DETER-NEW-88                                   DTSBE440
00449               PERFORM P1120-NEW-DETERMINATION  THRU P1120-EXIT    DTSBE440
00450            END-IF                                                 DTSBE440
00451         END-IF                                                    DTSBE440
00452       END-IF.                                                     DTSBE440
00453                                                                   DTSBE440
00454      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE440
00455                                                                   DTSBE440
00456  P1100-EXIT.                                                      DTSBE440
00457      EXIT.                                                        DTSBE440
00458                                                                   DTSBE440
00459  P1110-INACTIVE.                                                  DTSBE440
00460      IF MERD-ESTB-DATE >= WRK-PERIOD-START-DATE                   DTSBE440
00461         ADD +1 TO R440-INACTIVATION-CNT-MTH                       DTSBE440
00462      END-IF.                                                      DTSBE440
00463                                                                   DTSBE440
00464      IF MERD-ESTB-DATE >= WRK-CURR-YR-START-DATE                  DTSBE440
00465         ADD +1 TO R440-INACTIVATION-CNT-YR                        DTSBE440
00466      END-IF.                                                      DTSBE440
00467                                                                   DTSBE440
00468      IF  MERD-ESTB-DATE >= WRK-PRIOR-YR-START-DATE                DTSBE440
00469      AND MERD-ESTB-DATE <  WRK-CURR-YR-START-DATE                 DTSBE440
00470         ADD +1 TO R440-INACTIVATION-CNT-PYR                       DTSBE440
00471      END-IF.                                                      DTSBE440
00472                                                                   DTSBE440
00473  P1110-EXIT.                                                      DTSBE440
00474      EXIT.                                                        DTSBE440
00475                                                                   DTSBE440
00476  P1120-NEW-DETERMINATION.                                         DTSBE440
00477      MOVE MERD-ESTB-DATE TO L001-FED-8-DATE-9.                    DTSBE440
00478      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBE440
00479      MOVE L001-JUL-ABS-DAY TO WRK-ENTRY-JUL-ABS-DAY.              DTSBE440
00480                                                                   DTSBE440
00481      MOVE MERD-EFFECTIVE-DATE TO L004-DATE.                       DTSBE440
00482      PERFORM S004-FROM-DATE THRU S004-EXIT.                       DTSBE440
00483      MOVE L004-QTR-END-DATE TO L001-FED-8-DATE-9.                 DTSBE440
00484      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBE440
00485                                                                   DTSBE440
00486      COMPUTE WRK-TIME-LAPSE-DAYS                                  DTSBE440
00487        = WRK-ENTRY-JUL-ABS-DAY - L001-JUL-ABS-DAY.                DTSBE440
00488                                                                   DTSBE440
00489      IF MERD-ESTB-DATE >= WRK-PERIOD-START-DATE                   DTSBE440
00490         PERFORM P1121-CURRENT-PERIOD     THRU P1121-EXIT          DTSBE440
00491      END-IF.                                                      DTSBE440
00492                                                                   DTSBE440
00493      IF MERD-ESTB-DATE >= WRK-CURR-YR-START-DATE                  DTSBE440
00494         PERFORM P1122-CURRENT-YEAR    THRU P1122-EXIT             DTSBE440
00495      END-IF.                                                      DTSBE440
00496                                                                   DTSBE440
00497      IF  MERD-ESTB-DATE >= WRK-PRIOR-YR-START-DATE                DTSBE440
00498      AND MERD-ESTB-DATE <  WRK-CURR-YR-START-DATE                 DTSBE440
00499         PERFORM P1123-PRIOR-YEAR   THRU P1123-EXIT                DTSBE440
00500      END-IF.                                                      DTSBE440
00501                                                                   DTSBE440
00502  P1120-EXIT.                                                      DTSBE440
00503      EXIT.                                                        DTSBE440
00504                                                                   DTSBE440
00505  P1121-CURRENT-PERIOD.                                            DTSBE440
00506      ADD +1 TO R440-NEW-DTRM-CNT-MTH.                             DTSBE440
00507      IF WRK-TIME-LAPSE-DAYS < +91                                 DTSBE440
00508         ADD +1 TO R440-NEW-DTRM-T90-CNT-MTH                       DTSBE440
00509      END-IF.                                                      DTSBE440
00510      IF WRK-TIME-LAPSE-DAYS < +181                                DTSBE440
00511         ADD +1 TO R440-NEW-DTRM-T180-CNT-MTH                      DTSBE440
00512      END-IF.                                                      DTSBE440
00513                                                                   DTSBE440
00514  P1121-EXIT.                                                      DTSBE440
00515      EXIT.                                                        DTSBE440
00516                                                                   DTSBE440
00517  P1122-CURRENT-YEAR.                                              DTSBE440
00518      ADD +1 TO R440-NEW-DTRM-CNT-YR.                              DTSBE440
00519      IF WRK-TIME-LAPSE-DAYS < +91                                 DTSBE440
00520         ADD +1 TO R440-NEW-DTRM-T90-CNT-YR                        DTSBE440
00521      END-IF.                                                      DTSBE440
00522      IF WRK-TIME-LAPSE-DAYS < +181                                DTSBE440
00523         ADD +1 TO R440-NEW-DTRM-T180-CNT-YR                       DTSBE440
00524      END-IF.                                                      DTSBE440
00525                                                                   DTSBE440
00526  P1122-EXIT.                                                      DTSBE440
00527      EXIT.                                                        DTSBE440
00528                                                                   DTSBE440
00529  P1123-PRIOR-YEAR.                                                DTSBE440
00530      ADD +1 TO R440-NEW-DTRM-CNT-PYR.                             DTSBE440
00531                                                                   DTSBE440
00532      IF WRK-TIME-LAPSE-DAYS < +91                                 DTSBE440
00533         ADD +1 TO R440-NEW-DTRM-T90-CNT-PYR                       DTSBE440
00534      END-IF.                                                      DTSBE440
00535                                                                   DTSBE440
00536      IF WRK-TIME-LAPSE-DAYS < +181                                DTSBE440
00537         ADD +1 TO R440-NEW-DTRM-T180-CNT-PYR                      DTSBE440
00538      END-IF.                                                      DTSBE440
00539                                                                   DTSBE440
00540  P1123-EXIT.                                                      DTSBE440
00541      EXIT.                                                        DTSBE440
00542                                                                   DTSBE440
00543  P2000-AUDIT-ACTIVITY.                                            DTSBE440
00544      IF MPRF-NO-MFAS-88                                           DTSBE440
00545          GO TO P2000-EXIT.                                        DTSBE440
00546                                                                   DTSBE440
00547      MOVE LOW-VALUES           TO MFAS-KEY-AREA.                  DTSBE440
00548      MOVE MPRF-EMP-NO          TO MFAS-EMP-NO.                    DTSBE440
00549      SET MFAS-FAS-88           TO TRUE.                           DTSBE440
00550      MOVE MFAS-KEY-AREA        TO MSKL-KEY-AREA.                  DTSBE440
00551      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE440
00552      PERFORM P2100-SCAN-MFAS   THRU P2100-EXIT                    DTSBE440
00553          UNTIL L910-NO-REC-88.                                    DTSBE440
00554                                                                   DTSBE440
00555  P2000-EXIT.                                                      DTSBE440
00556      EXIT.                                                        DTSBE440
00557      SKIP3                                                        DTSBE440
00558  P2100-SCAN-MFAS.                                                 DTSBE440
00559      MOVE MSKL-REC TO MFAS-REC.                                   DTSBE440
00560                                                                   DTSBE440
00561      IF MFAS-PROCESSED-DATE >= WRK-PERIOD-START-DATE              DTSBE440
00562         ADD +1 TO R440-AUDIT-CNT-MTH                              DTSBE440
00563      END-IF.                                                      DTSBE440
00564                                                                   DTSBE440
00565      IF MFAS-PROCESSED-DATE >= WRK-CURR-YR-START-DATE             DTSBE440
00566         ADD +1 TO R440-AUDIT-CNT-YR                               DTSBE440
00567      END-IF.                                                      DTSBE440
00568                                                                   DTSBE440
00569      IF  MFAS-PROCESSED-DATE >= WRK-PRIOR-YR-START-DATE           DTSBE440
00570      AND MFAS-PROCESSED-DATE <  WRK-CURR-YR-START-DATE            DTSBE440
00571         ADD +1 TO R440-AUDIT-CNT-PYR                              DTSBE440
00572      END-IF.                                                      DTSBE440
00573                                                                   DTSBE440
00574      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE440
00575                                                                   DTSBE440
00576  P2100-EXIT.                                                      DTSBE440
00577      EXIT.                                                        DTSBE440
00578      EJECT                                                        DTSBE440
00579  P3000-UI-TAX-COLLECTIONS.                                        DTSBE440
00580      MOVE LOW-VALUES                 TO MJRN-KEY-AREA.            DTSBE440
00581      MOVE MPRF-EMP-NO                TO MJRN-EMP-NO.              DTSBE440
00582      SET MJRN-JRN-88                 TO TRUE.                     DTSBE440
00583      MOVE WRK-PRIOR-YR-START-ABSTIME TO MJRN-ESTB-ABSTIME.        DTSBE440
00584      MOVE MJRN-KEY-AREA              TO MSKL-KEY-AREA.            DTSBE440
00585      PERFORM S910-START-BROWSE       THRU S910-EXIT.              DTSBE440
00586                                                                   DTSBE440
00587      PERFORM                                                      DTSBE440
00588        UNTIL L910-NO-REC-88                                       DTSBE440
00589          MOVE MSKL-REC               TO MJRN-REC                  DTSBE440
00590          PERFORM P3100-PROCESS-MJRN  THRU P3100-EXIT              DTSBE440
00591          PERFORM S910-READ-NEXT      THRU S910-EXIT               DTSBE440
00592      END-PERFORM.                                                 DTSBE440
00593                                                                   DTSBE440
00594  P3000-EXIT.                                                      DTSBE440
00595      EXIT.                                                        DTSBE440
00596      SKIP3                                                        DTSBE440
00597 ***************************************************************** DTSBE440
00598 *  THIS PROCESS DETERMINES THE AMOUNT IN PAST DUE CONTRIBUTIONS   DTSBE440
00599 *  COLLECTED BY LOOKING AT ALL PAYMENTS THAT RESULT IN A CHANGE   DTSBE440
00600 *  IN INTEREST CHARGED.  IF A PAYMENT PRODUCES A CHANGE IN        DTSBE440
00601 *  INTEREST, IS MUST HAVE BEEN DIRECTED TO A PAST-DUE RECEIVABLE. DTSBE440
00602 *  THE CHANGE MAY BE EITHER POSITIVE OR NEGATIVE.                 DTSBE440
00603 *                                                                 DTSBE440
00604 *  THE PROCESS SCANS THE ACCOUNTING JOURNAL RECORDS (MJRN) AND    DTSBE440
00605 *  TABLES SOME INFORMATION ABOUT EACH JOURNAL RECORD, WITH EACH   DTSBE440
00606 *  OCCURRENCE OF THE TABLE RECORDING DATA ABOUT A SINGLE QUARTER. DTSBE440
00607 *  IF THERE IS A PAYMENT, IT SAVES THE PAYMENT AMOUNT IN THE      DTSBE440
00608 *  TABLE OCCURRENCE FOR THAT QUARTER. IF THERE AN INTEREST        DTSBE440
00609 *  CHARGE ASSOCIATED WITH THE SAME JOURNAL ENTRY, IT MARKS        DTSBE440
00610 *  THE PAYMENT AS BEING ASSOCIATED WITH A CHANGE IN INTEREST      DTSBE440
00611 *  CHARGED.                                                       DTSBE440
00612 *                                                                 DTSBE440
00613 *  AFTER TABLING ALL DATA FOR THE JOURNAL RECORD, THE             DTSBE440
00614 *  PROCESS SCANS THE TABLE. FOR ANY QUARTER IN WHICH THERE        DTSBE440
00615 *  IS A CHANGE TO BOTH TAX PAID AND INTEREST CHARGED, THE         DTSBE440
00616 *  PROCESS ADDS THE PAYMENT TO THE TOTAL OF PAST DUE              DTSBE440
00617 *  CONTRIBUTIONS COLLECTED.                                       DTSBE440
00618 ***************************************************************** DTSBE440
00619  P3100-PROCESS-MJRN.                                              DTSBE440
00620      IF MJRN-TRAN-CNVR-88                                         DTSBE440
00621          GO TO P3100-EXIT.                                        DTSBE440
00622                                                                   DTSBE440
00623      IF (MJRN-ESTB-DATE < WRK-PRIOR-YR-START-DATE)                DTSBE440
00624              OR                                                   DTSBE440
00625         (MJRN-ESTB-DATE > WRK-PERIOD-END-DATE)                    DTSBE440
00626          GO TO P3100-EXIT.                                        DTSBE440
00627                                                                   DTSBE440
00628      PERFORM P3110-INIT-JRN-TAB THRU P3110-EXIT.                  DTSBE440
00629      PERFORM P3120-ACCT-GROUP   THRU P3120-EXIT                   DTSBE440
00630          VARYING MJRN-OCC-IDX FROM 1 BY 1                         DTSBE440
00631          UNTIL MJRN-OCC-IDX > MJRN-OCC-CNT.                       DTSBE440
00632                                                                   DTSBE440
00633      PERFORM P3130-UPDATE-PMT-TOTALS THRU P3130-EXIT              DTSBE440
00634          VARYING WRK-JRN-IDX FROM 1 BY 1                          DTSBE440
00635          UNTIL WRK-JRN-IDX > WRK-JRN-MAX.                         DTSBE440
00636                                                                   DTSBE440
00637  P3100-EXIT.                                                      DTSBE440
00638      EXIT.                                                        DTSBE440
00639      SKIP3                                                        DTSBE440
00640  P3110-INIT-JRN-TAB.                                              DTSBE440
00641      PERFORM                                                      DTSBE440
00642         VARYING WRK-JRN-SUB FROM +1 BY +1                         DTSBE440
00643         UNTIL WRK-JRN-SUB > WRK-JRN-MAX                           DTSBE440
00644            SET WRK-JRN-PMT-CHANGE-NO (WRK-JRN-SUB) TO TRUE        DTSBE440
00645            SET WRK-JRN-INT-CHANGE-NO (WRK-JRN-SUB) TO TRUE        DTSBE440
00646            MOVE ZERO TO WRK-JRN-PMT-AMT (WRK-JRN-SUB)             DTSBE440
00647      END-PERFORM.                                                 DTSBE440
00648                                                                   DTSBE440
00649  P3110-EXIT.                                                      DTSBE440
00650      EXIT.                                                        DTSBE440
00651  P3120-ACCT-GROUP.                                                DTSBE440
00652      MOVE MJRN-YRQ (MJRN-OCC-IDX) TO WRK-MJRN-YRQ.                DTSBE440
00653      MOVE WRK-MJRN-YRQ TO L004-QTR-5-9.                           DTSBE440
00654      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBE440
00655                                                                   DTSBE440
00656      IF MJRN-ROW-UI-88 (MJRN-OCC-IDX)                             DTSBE440
00657          PERFORM P3121-UPDATE-UI   THRU P3121-EXIT                DTSBE440
00658      ELSE                                                         DTSBE440
00659         IF MJRN-ROW-INT-88 (MJRN-OCC-IDX)                         DTSBE440
00660            PERFORM P3122-UPDATE-INT  THRU P3122-EXIT              DTSBE440
00661         ELSE                                                      DTSBE440
00662            IF MJRN-ROW-LATE-PEN-88 (MJRN-OCC-IDX)                 DTSBE440
00663               PERFORM P3123-UPDATE-PEN  THRU P3123-EXIT           DTSBE440
00664            ELSE                                                   DTSBE440
00665               GO TO P3120-EXIT.                                   DTSBE440
00666                                                                   DTSBE440
00667  P3120-EXIT.                                                      DTSBE440
00668      EXIT.                                                        DTSBE440
00669                                                                   DTSBE440
00670  P3121-UPDATE-UI.                                                 DTSBE440
00671      IF MJRN-COL-PAID-88 (MJRN-OCC-IDX)                           DTSBE440
00672      OR MJRN-COL-TOLERATED-88 (MJRN-OCC-IDX)                      DTSBE440
00673         SET WRK-JRN-PMT-CHANGE-YES (L004-ABS-QTR) TO TRUE         DTSBE440
00674         ADD MJRN-AMT (MJRN-OCC-IDX)                               DTSBE440
00675                             TO WRK-JRN-PMT-AMT (L004-ABS-QTR).    DTSBE440
00676  P3121-EXIT.                                                      DTSBE440
00677      EXIT.                                                        DTSBE440
00678                                                                   DTSBE440
00679  P3122-UPDATE-INT.                                                DTSBE440
00680      IF MJRN-COL-CHARGED-88 (MJRN-OCC-IDX)                        DTSBE440
00681         SET WRK-JRN-INT-CHANGE-YES (L004-ABS-QTR) TO TRUE         DTSBE440
00682      END-IF.                                                      DTSBE440
00683                                                                   DTSBE440
00684      IF MJRN-COL-PAID-88 (MJRN-OCC-IDX)                           DTSBE440
00685      OR MJRN-COL-TOLERATED-88 (MJRN-OCC-IDX)                      DTSBE440
00686         IF MJRN-ESTB-DATE >= WRK-CURR-YR-START-DATE               DTSBE440
00687            ADD MJRN-AMT (MJRN-OCC-IDX)                            DTSBE440
00688               TO R440-INTEREST-COLLECT-YR                         DTSBE440
00689         END-IF                                                    DTSBE440
00690         IF MJRN-ESTB-DATE >= WRK-PERIOD-START-DATE                DTSBE440
00691            ADD MJRN-AMT (MJRN-OCC-IDX)                            DTSBE440
00692               TO R440-INTEREST-COLLECT-MTH                        DTSBE440
00693         END-IF                                                    DTSBE440
00694         IF  MJRN-ESTB-DATE >= WRK-PRIOR-YR-START-DATE             DTSBE440
00695         AND MJRN-ESTB-DATE < WRK-CURR-YR-START-DATE               DTSBE440
00696            ADD MJRN-AMT (MJRN-OCC-IDX)                            DTSBE440
00697               TO R440-INTEREST-COLLECT-PYR                        DTSBE440
00698         END-IF                                                    DTSBE440
00699      END-IF.                                                      DTSBE440
00700                                                                   DTSBE440
00701  P3122-EXIT.                                                      DTSBE440
00702      EXIT.                                                        DTSBE440
00703                                                                   DTSBE440
00704  P3123-UPDATE-PEN.                                                DTSBE440
00705      IF MJRN-COL-PAID-88 (MJRN-OCC-IDX)                           DTSBE440
00706      OR MJRN-COL-TOLERATED-88 (MJRN-OCC-IDX)                      DTSBE440
00707         IF MJRN-ESTB-DATE >= WRK-CURR-YR-START-DATE               DTSBE440
00708            ADD MJRN-AMT (MJRN-OCC-IDX)                            DTSBE440
00709               TO R440-PENALTY-COLLECT-YR                          DTSBE440
00710         END-IF                                                    DTSBE440
00711         IF MJRN-ESTB-DATE >= WRK-PERIOD-START-DATE                DTSBE440
00712            ADD MJRN-AMT (MJRN-OCC-IDX)                            DTSBE440
00713               TO R440-PENALTY-COLLECT-MTH                         DTSBE440
00714         END-IF                                                    DTSBE440
00715         IF MJRN-ESTB-DATE >=  WRK-PRIOR-YR-START-DATE             DTSBE440
00716         AND MJRN-ESTB-DATE <  WRK-CURR-YR-START-DATE              DTSBE440
00717            ADD MJRN-AMT (MJRN-OCC-IDX)                            DTSBE440
00718               TO R440-PENALTY-COLLECT-PYR                         DTSBE440
00719         END-IF                                                    DTSBE440
00720      END-IF.                                                      DTSBE440
00721                                                                   DTSBE440
00722  P3123-EXIT.                                                      DTSBE440
00723      EXIT.                                                        DTSBE440
00724                                                                   DTSBE440
00725  P3130-UPDATE-PMT-TOTALS.                                         DTSBE440
00726      IF WRK-JRN-PMT-CHANGE-YES (WRK-JRN-IDX)                      DTSBE440
00727      AND WRK-JRN-INT-CHANGE-YES (WRK-JRN-IDX)                     DTSBE440
00728         IF MJRN-ESTB-DATE >= WRK-CURR-YR-START-DATE               DTSBE440
00729            ADD WRK-JRN-PMT-AMT (WRK-JRN-IDX)                      DTSBE440
00730               TO R440-PAST-DUE-COLLECT-YR                         DTSBE440
00731         END-IF                                                    DTSBE440
00732         IF MJRN-ESTB-DATE >= WRK-PERIOD-START-DATE                DTSBE440
00733            ADD WRK-JRN-PMT-AMT (WRK-JRN-IDX)                      DTSBE440
00734               TO R440-PAST-DUE-COLLECT-MTH                        DTSBE440
00735         END-IF                                                    DTSBE440
00736         IF  MJRN-ESTB-DATE >= WRK-PRIOR-YR-START-DATE             DTSBE440
00737         AND MJRN-ESTB-DATE <  WRK-CURR-YR-START-DATE              DTSBE440
00738            ADD WRK-JRN-PMT-AMT (WRK-JRN-IDX)                      DTSBE440
00739               TO R440-PAST-DUE-COLLECT-PYR                        DTSBE440
00740         END-IF                                                    DTSBE440
00741      END-IF.                                                      DTSBE440
00742                                                                   DTSBE440
00743  P3130-EXIT.                                                      DTSBE440
00744      EXIT.                                                        DTSBE440
00745                                                                   DTSBE440
00746                                                                   DTSBE440
00747      EJECT                                                        DTSBE440
00748  T0000-TERMINATE.                                                 DTSBE440
00749      IF  R440-NEW-DTRM-T90-CNT-MTH > ZERO                         DTSBE440
00750      AND R440-NEW-DTRM-CNT-MTH > ZERO                             DTSBE440
00751         COMPUTE R440-NEW-DTRM-TMLY-PCT-MTH =                      DTSBE440
00752            (R440-NEW-DTRM-T90-CNT-MTH /                           DTSBE440
00753             R440-NEW-DTRM-CNT-MTH) * 100                          DTSBE440
00754      ELSE                                                         DTSBE440
00755         MOVE ZERO TO R440-NEW-DTRM-TMLY-PCT-MTH.                  DTSBE440
00756                                                                   DTSBE440
00757      IF  R440-NEW-DTRM-T90-CNT-YR > ZERO                          DTSBE440
00758      AND R440-NEW-DTRM-CNT-YR > ZERO                              DTSBE440
00759         COMPUTE R440-NEW-DTRM-TMLY-PCT-YR =                       DTSBE440
00760            (R440-NEW-DTRM-T90-CNT-YR /                            DTSBE440
00761             R440-NEW-DTRM-CNT-YR) * 100                           DTSBE440
00762      ELSE                                                         DTSBE440
00763         MOVE ZERO TO R440-NEW-DTRM-TMLY-PCT-YR.                   DTSBE440
00764                                                                   DTSBE440
00765      IF  R440-NEW-DTRM-T90-CNT-PYR > ZERO                         DTSBE440
00766      AND R440-NEW-DTRM-CNT-PYR > ZERO                             DTSBE440
00767      COMPUTE R440-NEW-DTRM-TMLY-PCT-PYR =                         DTSBE440
00768         (R440-NEW-DTRM-T90-CNT-PYR /                              DTSBE440
00769          R440-NEW-DTRM-CNT-PYR) * 100                             DTSBE440
00770      ELSE                                                         DTSBE440
00771         MOVE ZERO TO R440-NEW-DTRM-TMLY-PCT-PYR.                  DTSBE440
00772                                                                   DTSBE440
00773      DISPLAY 'NEW DETERM ' R440-NEW-DTRM-CNT-MTH                  DTSBE440
00774         '  ' R440-NEW-DTRM-CNT-YR                                 DTSBE440
00775         '  ' R440-NEW-DTRM-CNT-PYR.                               DTSBE440
00776      DISPLAY 'NEW DETERM T90 ' R440-NEW-DTRM-T90-CNT-MTH          DTSBE440
00777         '  ' R440-NEW-DTRM-T90-CNT-YR                             DTSBE440
00778         '  ' R440-NEW-DTRM-T90-CNT-PYR.                           DTSBE440
00779      DISPLAY 'PCT TIMELY ' R440-NEW-DTRM-TMLY-PCT-MTH             DTSBE440
00780         '  ' R440-NEW-DTRM-TMLY-PCT-YR                            DTSBE440
00781         '  ' R440-NEW-DTRM-TMLY-PCT-PYR.                          DTSBE440
00782      DISPLAY 'NEW DETERM T180 ' R440-NEW-DTRM-T180-CNT-MTH        DTSBE440
00783         '  ' R440-NEW-DTRM-T180-CNT-YR                            DTSBE440
00784         '  ' R440-NEW-DTRM-T180-CNT-PYR.                          DTSBE440
00785      DISPLAY 'INACTIVATIONS   ' R440-INACTIVATION-CNT-MTH         DTSBE440
00786         '  ' R440-INACTIVATION-CNT-YR                             DTSBE440
00787         '  ' R440-INACTIVATION-CNT-PYR.                           DTSBE440
00788      DISPLAY 'AUDIT           ' R440-AUDIT-CNT-MTH                DTSBE440
00789         '  ' R440-AUDIT-CNT-YR.                                   DTSBE440
00790      DISPLAY 'PAST DUE PAYMT  ' R440-PAST-DUE-COLLECT-MTH         DTSBE440
00791         '  ' R440-PAST-DUE-COLLECT-YR                             DTSBE440
00792         '  ' R440-PAST-DUE-COLLECT-PYR.                           DTSBE440
00793      DISPLAY 'PENALTY         ' R440-PENALTY-COLLECT-MTH          DTSBE440
00794         '  ' R440-PENALTY-COLLECT-YR                              DTSBE440
00795         '  ' R440-PENALTY-COLLECT-PYR.                            DTSBE440
00796      DISPLAY 'INTEREST        ' R440-INTEREST-COLLECT-MTH         DTSBE440
00797         '  ' R440-INTEREST-COLLECT-YR                             DTSBE440
00798         '  ' R440-INTEREST-COLLECT-PYR.                           DTSBE440
00799                                                                   DTSBE440
00800      PERFORM S946-WRITE-R440      THRU S946-EXIT.                 DTSBE440
00801                                                                   DTSBE440
00802  T0000-EXIT.                                                      DTSBE440
00803      EXIT.                                                        DTSBE440
00804      EJECT                                                        DTSBE440
00805  S001-FROM-FED-8.                                                 DTSBE440
00806      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE440
00807      GO TO S001-DATE.                                             DTSBE440
00808                                                                   DTSBE440
00809 **** S001-FROM-ABS-DAY.                                           DTSBE440
00810 ****     SET L001-FROM-ABS-DAY TO TRUE.                           DTSBE440
00811 ****     GO TO S001-DATE.                                         DTSBE440
00812                                                                   DTSBE440
00813  S001-FROM-CAL-6.                                                 DTSBE440
00814      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBE440
00815      GO TO S001-DATE.                                             DTSBE440
00816                                                                   DTSBE440
00817  S001-DATE.                                                       DTSBE440
00818      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBE440
00819  S001-EXIT.                                                       DTSBE440
00820      EXIT.                                                        DTSBE440
00821      SKIP3                                                        DTSBE440
00822  S004-FROM-5.                                                     DTSBE440
00823      SET L004-FROM-5 TO TRUE.                                     DTSBE440
00824      GO TO S004-QTR.                                              DTSBE440
00825                                                                   DTSBE440
00826 **** S004-FROM-ABS.                                               DTSBE440
00827 ****     SET L004-FROM-ABS TO TRUE.                               DTSBE440
00828 ****     GO TO S004-QTR.                                          DTSBE440
00829                                                                   DTSBE440
00830 **** S004-FROM-3.                                                 DTSBE440
00831 ****     SET L004-FROM-3 TO TRUE.                                 DTSBE440
00832 ****     GO TO S004-QTR.                                          DTSBE440
00833                                                                   DTSBE440
00834  S004-FROM-DATE.                                                  DTSBE440
00835      SET L004-FROM-DATE TO TRUE.                                  DTSBE440
00836      GO TO S004-QTR.                                              DTSBE440
00837                                                                   DTSBE440
00838  S004-QTR.                                                        DTSBE440
00839                                                                   DTSBE440
00840      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBE440
00841                                                                   DTSBE440
00842  S004-EXIT.                                                       DTSBE440
00843      EXIT.                                                        DTSBE440
00844      SKIP3                                                        DTSBE440
00845 **** S005-FROM-ABSTIME.                                           DTSBE440
00846 ****     SET L005-FROM-ABSTIME TO TRUE.                           DTSBE440
00847 ****     GO TO S005-ABSTIME.                                      DTSBE440
00848                                                                   DTSBE440
00849  S005-FROM-DATE-TIME.                                             DTSBE440
00850      SET L005-FROM-DATE-TIME TO TRUE.                             DTSBE440
00851      GO TO S005-ABSTIME.                                          DTSBE440
00852                                                                   DTSBE440
00853  S005-ABSTIME.                                                    DTSBE440
00854      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBE440
00855  S005-EXIT.                                                       DTSBE440
00856      EXIT.                                                        DTSBE440
00857      SKIP3                                                        DTSBE440
00858  S910-READ.                                                       DTSBE440
00859      SET L910-READ-88 TO TRUE.                                    DTSBE440
00860      GO TO S910-MSTR-IO.                                          DTSBE440
00861                                                                   DTSBE440
00862  S910-START-BROWSE.                                               DTSBE440
00863      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE440
00864      GO TO S910-MSTR-IO.                                          DTSBE440
00865                                                                   DTSBE440
00866  S910-READ-NEXT.                                                  DTSBE440
00867      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE440
00868      GO TO S910-MSTR-IO.                                          DTSBE440
00869                                                                   DTSBE440
00870 *S910-COUNT.                                                      DTSBE440
00871 *****SET L910-COUNT-88 TO TRUE.                                   DTSBE440
00872 *****GO TO S910-MSTR-IO.                                          DTSBE440
00873                                                                   DTSBE440
00874                                                                   DTSBE440
00875  S910-MSTR-IO.                                                    DTSBE440
00876      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBE440
00877                            MSKL-REC.                              DTSBE440
00878  S910-EXIT.                                                       DTSBE440
00879      EXIT.                                                        DTSBE440
00880      SKIP3                                                        DTSBE440
00881  S946-WRITE-R440.                                                 DTSBE440
00882      CALL 'DTSBU946' USING R440-REC.                              DTSBE440
00883      GO TO S946-EXIT.                                             DTSBE440
00884                                                                   DTSBE440
00885  S946-EXIT.                                                       DTSBE440
00886      EXIT.                                                        DTSBE440
00887      SKIP3                                                        DTSBE440
00888  S999-ABEND.                                                      DTSBE440
00889      DISPLAY '*** DTSBE715 ABENDING.  '                           DTSBE440
00890              ABEND-MSG.                                           DTSBE440
00891                                                                   DTSBE440
00892      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBE440
00893  S999-EXIT.                                                       DTSBE440
00894      EXIT.                                                        DTSBE440
