00001  IDENTIFICATION DIVISION.                                         05/06/20
00002  PROGRAM-ID.             DTSBE320.                                DTSBE320
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV010
00004  DATE-WRITTEN.           MARCH 1999.                              DTSBE320
00005  DATE-COMPILED.                                                   DTSBE320
00006      SKIP3                                                        DTSBE320
00007 *****                                                                CL**3
00008 *    NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE  DTSBE320
00009 *    NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE  DTSBE320
00010 *    NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE  DTSBE320
00011 *                                                                 DTSBE320
00012 *       THE PENALTY ASSESSMENT PROCESS IS DESIGNED TO BE RUN      DTSBE320
00013 *       IMMEDIATELY PRIOR TO A DAILY UPDATE RUN.                  DTSBE320
00014 *                                                                 DTSBE320
00015 *       IF THE PENALTY ASSESSMENT PROCESS IS RUN IMMEDIATELY      DTSBE320
00016 *       AFTER A DAILY UPDATE RUN, NOTHING TOO TERRIBLE WILL       DTSBE320
00017 *       OCCUR.  THE BTC RECORDS GENERATED BY DTSBE320 WILL NOT    DTSBE320
00018 *       BE CONVERTED TO TAX ACCOUNTING ADJUSTMENT TRANSACTIONS    DTSBE320
00019 *       AND THE TAX ACCOUNTING ADJUSTMENT TRANSACTIONS POSTED     DTSBE320
00020 *       TO THE EMPLOYER ACCOUNTS UNTIL THE FOLLOWING WORK DAY.    DTSBE320
00021 *       THUS, DURING THE NEXT WORK DAY, STAFF USING CICS TO       DTSBE320
00022 *       DISPLAY EMPLOYER ACCOUNT INFORMATION WILL NOT SEE THE     DTSBE320
00023 *       MENALTY CHARGED AMOUNTS ASSESSED BY DTSBE320.             DTSBE320
00024 *                                                                 DTSBE320
00025 *    NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE  DTSBE320
00026 *    NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE  DTSBE320
00027 *    NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE  DTSBE320
00028 *                                                                 DTSBE320
00029 *                                                                 DTSBE320
00030 *    FUNCTION:  QUARTERLY PENALTY ASSESSMENT.                     DTSBE320
00031 *                                                                 DTSBE320
00032 *                                                                 DTSBE320
00033 *    MODIFICATION LOG:                                            DTSBE320
00034 *                                                                 DTSBE320
00035 *    03/23/1999  WRITTEN FOR DC.                                  DTSBE320
00036 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBE320
00037 *                                                                 DTSBE320
00038 *    07/28/1999  L102-TAX-DUE-DATE AND L102-RPT-DUE-DATE ADDED    DTSBE320
00039 *                TO DTSBU102 LINKAGE AREA.                        DTSBE320
00040 *                REFERENCE: ORDERS FROM MS STERN  PROGRAMM: EHH   DTSBE320
00041 *                                                                 DTSBE320
00042 *    05/10/2002  MODIFIED PROGRAM TO BYPASS ANNUAL FILERS.        DTSBE320
00043 *                REFERENCE: HOUSEHOLD             PROGRAMM: ZL1   DTSBE320
00044 *                                                                 DTSBE320
00045 *    07/31/2006  MODIFIED TO INCLUDE ONLY UI TAX IN PENALTY       DTSBE320
00046 *                CALCULATION: P1000, P1210.                       DTSBE320
00047 *                REFERENCE:                      PROGRAMMER: GD   DTSBE320
00048 *                                                                 DTSBE320
00049 *    09/06/2007  MODIFIED TO PASS THE CURRENT RUN DATE TO         DTSBE320
00050 *                DTSBU102 (LATE PENALTY).                         DTSBE320
00051 *                REFERENCE:                      PROGRAMMER: GD   DTSBE320
00052 *                                                                 DTSBE320
00053 *    09/17/2008  MODIFIED TO INCLUDE ADMIN ASSESS IN PENALTY      DTSBE320
00054 *                CALCULATION FOR RATED EMPLOYERS. IT IS           DTSBE320
00055 *                EXCLUDED FOR SELF-INSURED, SINCE THE DUE DATE    DTSBE320
00056 *                VARIES DEPENDING ON WHEN WAGES ARE ENTERED.      DTSBE320
00057 *                REFERENCE:                      PROGRAMMER: GD   DTSBE320
00058 *                                                                 DTSBE320
00059 *    02/12/2013  MODIFIED BASED ON CHANGES TO THE DELINQUENCY     DTSBE320
00060 *                PROCESS DESCRIBED IN TICKET 1688.                DTSBE320
00061 *                FOR THE FIRST STEP IN THE SET OF CHANGES, THE    DTSBE320
00062 *                PROGRAM WILL SELECT ONLY CONTRIBUTORY EMPLOYERS. DTSBE320
00063 *                REFERENCE: TICKET 1688          PROGRAMMER: GD   DTSBE320
00064 *                                                                 DTSBE320
00065 *    02/14/2013  MODIFIED BASED ON CHANGES TO THE DELINQUENCY     DTSBE320
00066 *                PROCESS DESCRIBED IN TICKET 1688.                DTSBE320
00067 *                NEXT STEP: MODIFICATIONS FOR REIMBURSABLE        DTSBE320
00068 *                EMPLOYERS, AND THE CALCULATION OF PENALTY.       DTSBE320
00069 *                REFERENCE: TICKETS 1688, 1696   PROGRAMMER: GD   DTSBE320
00070 *                                                                 DTSBE320
00071 *    03/12/2013  TICKET 1696, RAISING CONTRIBUTORY PENALTY        DTSBE320
00072 *                PERCENTAGE TO 25%, IS NO LONGER IN EFFECT.       DTSBE320
00073 *                REFERENCE: TICKETS 1688, 1696   PROGRAMMER: GD   DTSBE320
00074 *                                                                 DTSBE320
00075 *                                                                 DTSBE320
00076 *    02/20/2014  MODDIFIED PROGRAM TO CHECK TRANSACTION FILE      DTSBE320
00077 *                FOR EMPLOYERS WAITING TO BE PROCESSED. IF FOUND  DTSBE320
00078 *                DO NOT GENERATE A MISSING REPORT LETTER OR       DTSBE320
00079 *                CALCULATE PENALTY.                               DTSBE320
00080 *                REFERENCE:                      PROGRAMMER: ZL1  DTSBE320
00081 *                                                                 DTSBE320
00082 *                                                                 DTSBE320
00083 *    11/04/2015  RESUMED USING NORMAL PENALTY PROGRAM,            DTSBE320
00084 *                REFERENCE:                      PROGRAMMER: ZL1  DTSBE320
00085 *                                                                 DTSBE320
00086 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE320
00087 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE320
00088 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBE320
00089 *                                                                 DTSBE320
00090 *                                                                 DTSBE320
00091 *  DESCRIPTION:                                                   DTSBE320
00092 *                                                                 DTSBE320
00093 *    SEE SECTION 3.3.3.4 OF DC REQUIREMENTS.                      DTSBE320
00094 *                                                                 DTSBE320
00095 *                                                                 DTSBE320
00096 *    RECORDS READ:                                                DTSBE320
00097 *                                                                 DTSBE320
00098 *      MASTER:                                                    DTSBE320
00099 *                                                                 DTSBE320
00100 *        MHDR                                                     DTSBE320
00101 *        MQTR                                                     DTSBE320
00102 *        MRPT                                                     DTSBE320
00103 *                                                                 DTSBE320
00104 *                                                                 DTSBE320
00105 *      ALTERNATE INDEX:                                           DTSBE320
00106 *                                                                 DTSBE320
00107 *        NONE.                                                    DTSBE320
00108 *                                                                 DTSBE320
00109 *                                                                 DTSBE320
00110 *      REFERENCE:                                                 DTSBE320
00111 *                                                                 DTSBE320
00112 *        FQTR                                                     DTSBE320
00113 *                                                                 DTSBE320
00114 *                                                                 DTSBE320
00115 *    RECORDS UPDATED:                                             DTSBE320
00116 *                                                                 DTSBE320
00117 *        MHDR (REWRITE)                                           DTSBE320
00118 *                                                                 DTSBE320
00119 *                                                                 DTSBE320
00120 *    REPORT RECORDS WRITTEN:                                      DTSBE320
00121 *                                                                 DTSBE320
00122 *        NONE.                                                    DTSBE320
00123 *                                                                 DTSBE320
00124 *                                                                 DTSBE320
00125 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE320
00126 *                                                                 DTSBE320
00127 *        T026.                                                    DTSBE320
00128 *                                                                 DTSBE320
00129 *                                                                 DTSBE320
00130 *    MODULES CALLED:                                              DTSBE320
00131 *                                                                 DTSBE320
00132 *        DTSBU001  DATE CONVERSION/EDIT.                          DTSBE320
00133 *        DTSBU004  QUARTER CONVERSION/EDIT.                       DTSBE320
00134 *        DTSBU102  PENALTY CHARGE CALCULATION.                    DTSBE320
00135 *        DTSBU910  MASTER FILE I/O DRIVER.                        DTSBE320
00136 *        DTSBU931  REFERENCE FILE I/O DRIVER.                     DTSBE320
00137 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.   DTSBE320
00138 *        DTSBU947  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 2.   DTSBE320
00139 *                                                                 DTSBE320
00140 *****                                                             DTSBE320
00141                                                                   DTSBE320
00142                                                                   DTSBE320
00143  ENVIRONMENT DIVISION.                                            DTSBE320
00144  INPUT-OUTPUT SECTION.                                            DTSBE320
00145  FILE-CONTROL.                                                    DTSBE320
00146      SELECT PENALTY-FILE     ASSIGN TO DTSFTPEN                   DTSBE320
00147             FILE STATUS IS PENALTY-STATUS.                        DTSBE320
00148                                                                   DTSBE320
00149      SELECT EMP-RPT-FILE   ASSIGN TO DTSBX212                     DTSBE320
00150            FILE STATUS IS DOWNX212-STATUS.                        DTSBE320
00151                                                                   DTSBE320
00152                                                                   DTSBE320
00153  DATA DIVISION.                                                   DTSBE320
00154  FILE SECTION.                                                    DTSBE320
00155                                                                   DTSBE320
00156  FD  PENALTY-FILE                                                 DTSBE320
00157      RECORDING MODE IS F                                          DTSBE320
00158      LABEL RECORDS ARE STANDARD                                   DTSBE320
00159      BLOCK CONTAINS 0 CHARACTERS.                                 DTSBE320
00160      SKIP1                                                        DTSBE320
00161  01  PENALTY-REC                    PIC X(30).                    DTSBE320
00162                                                                   DTSBE320
00163  FD  EMP-RPT-FILE                                                 DTSBE320
00164      RECORDING MODE IS F                                          DTSBE320
00165      BLOCK CONTAINS 0 RECORDS                                     DTSBE320
00166      LABEL RECORDS ARE OMITTED.                                   DTSBE320
00167                                                                   DTSBE320
00168  01  EMP-RPT-REC                   PIC X(106).                    DTSBE320
00169                                                                   DTSBE320
00170                                                                   DTSBE320
00171  WORKING-STORAGE SECTION.                                         DTSBE320
001715 77  PAN-VALET PICTURE X(24) VALUE '010DTSBE320  05/06/20'.       DTSBE320
00172  77  PAN-VALET PICTURE X(24) VALUE '087DTSBE320  04/06/17'.       DTSBE320
00173  77  PAN-VALET PICTURE X(24) VALUE '004DTSBE320  02/10/16'.       DTSBE320
00174  77  PAN-VALET PICTURE X(24) VALUE '084DTSBE320  11/23/15'.       DTSBE320
00175  77  PAN-VALET PICTURE X(24) VALUE '020DTSBE320  11/20/15'.       DTSBE320
00176  77  PAN-VALET PICTURE X(24) VALUE '082DTSBE320  05/28/14'.       DTSBE320
00177  77  PAN-VALET PICTURE X(24) VALUE '035DTSBE320  05/28/14'.       DTSBE320
00178  77  PAN-VALET PICTURE X(24) VALUE '080DTSBE320  11/12/13'.       DTSBE320
00179  77  PAN-VALET PICTURE X(24) VALUE '013DTSBE320  11/12/13'.       DTSBE320
00180  77  PAN-VALET PICTURE X(24) VALUE '078DTSBE320  08/09/13'.       DTSBE320
00181  77  PAN-VALET PICTURE X(24) VALUE '019DTSBE320  07/17/13'.       DTSBE320
00182  77  PAN-VALET PICTURE X(24) VALUE '076DTSBE320  04/01/13'.       DTSBE320
00183  77  PAN-VALET PICTURE X(24) VALUE '030DTSBE320  03/21/13'.       DTSBE320
00184  77  PAN-VALET PICTURE X(24) VALUE '074DTSBE320  02/13/13'.       DTSBE320
00185  77  PAN-VALET PICTURE X(24) VALUE '004DTSBE320  02/12/13'.       DTSBE320
00186  77  PAN-VALET PICTURE X(24) VALUE '072DTSBE320  12/04/08'.       DTSBE320
00187                                                                   DTSBE320
00188  01  WRK-AREA.                                                    DTSBE320
00189      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +320.DTSBE320
00190                                                                   DTSBE320
00191      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE320'.DTSBE320
00192                                                                   DTSBE320
00193      05  WRK-RUN-TYPE      PIC  X(01).                            DTSBE320
00194          88  WRK-RUN-TYPE-RATED-88      VALUE 'R'.                DTSBE320
00195          88  WRK-RUN-TYPE-SELF-INS-88   VALUE 'S'.                DTSBE320
00196                                                                   DTSBE320
00197      05  PEN-RUN-YRQ       PIC  X(01).                            DTSBE320
00198          88  PEN-RUN-YRQ-YES-88         VALUE 'Y'.                DTSBE320
00199          88  PEN-RUN-YRQ-NO-88          VALUE 'N'.                DTSBE320
00200                                                                   DTSBE320
00201      05  GENERATE-LTR-IND  PIC  X(01).                            DTSBE320
00202          88 GENERATE-NO-LTR-88          VALUE '0'.                DTSBE320
00203          88 GENERATE-MISS-RPT-LTR-88    VALUE '1'.                DTSBE320
00204          88 GENERATE-LATE-PEN-LTR-88    VALUE '2'.                DTSBE320
00205                                                                   DTSBE320
00206      05  PENALTY-STATUS              PIC  X(02) VALUE SPACES.     DTSBE320
00207          88  PENALTY-OK-88             VALUE '00'.                DTSBE320
00208                                                                   DTSBE320
00209      05  ALL-NINES-DATE              PIC S9(09)  COMP-3           DTSBE320
00210                                             VALUE +999999999.     DTSBE320
00211                                                                   DTSBE320
00212                                                                   DTSBE320
00213      05  WRK-EMP-NO                  PIC S9(07)  COMP-3           DTSBE320
00214                                                  VALUE +0.        DTSBE320
00215      05  WRK-SUBJECT-SLASH-QTR       PIC X(04).                   DTSBE320
00216                                                                   DTSBE320
00217      05  WRK-FIRST-PEN-INT-YRQ       PIC S9(05)       COMP-3.     DTSBE320
00218                                                                   DTSBE320
00219      05  WRK-PEN-CNT                 PIC S9(07)  COMP-3           DTSBE320
00220                                             VALUE +0.             DTSBE320
00221                                                                   DTSBE320
00222      05  WRK-PEN-LTR-CNT             PIC S9(07)  COMP-3           DTSBE320
00223                                             VALUE +0.             DTSBE320
00224                                                                   DTSBE320
00225      05  WRK-LATE-LTR-CNT             PIC S9(07)  COMP-3          DTSBE320
00226                                             VALUE +0.             DTSBE320
00227                                                                   DTSBE320
00228      05  WRK-TF-TABLE-CNT            PIC S9(07)  COMP-3           DTSBE320
00229                                                 VALUE +0.         DTSBE320
00230      05  WRK-BYPASS-CNT              PIC S9(07)  COMP-3           DTSBE320
00231                                                VALUE +0.          DTSBE320
00232                                                                   DTSBE320
00233                                                                   DTSBE320
00234      05  DOWNX212-STATUS             PIC  X(02).                  DTSBE320
00235          88  DOWNX212-OK-88           VALUE '00'.                 DTSBE320
00236                                                                   DTSBE320
00237                                                                   DTSBE320
00238      05  TF-SUB                  PIC S9(07) COMP-3.               DTSBE320
00239      05  TF-MAX                  PIC S9(07) COMP-3                DTSBE320
00240                                   VALUE +999999.                  DTSBE320
00241      05  TRANS-FILE-RPTS  OCCURS 999999 TIMES.                    DTSBE320
00242          10  TRANS-FILE-RPT-IND  PIC  X(01).                      DTSBE320
00243              88  TF-RPT-FOUND-YES-88  VALUE 'Y'.                  DTSBE320
00244              88  TF-RPT-FOUND-NO-88   VALUE 'N'.                  DTSBE320
00245          10  TRANS-BYPASSED-IND  PIC  X(01).                      DTSBE320
00246              88  TF-BYPASSED-YES-88   VALUE 'Y'.                  DTSBE320
00247              88  TF-BYPASSED-NO-88    VALUE 'N'.                  DTSBE320
00248                                                                   DTSBE320
00249      05  ABEND-MSG                       PIC  X(60).              DTSBE320
00250                                                                   DTSBE320
00251      05  W-PENALTY-REC.                                           DTSBE320
00252          10  W-PEN-EMP               PIC  9(06).                  DTSBE320
00253          10  FILLER                  PIC  X(01) VALUE ';'.        DTSBE320
00254          10  W-PEN-BAL               PIC  --------9.99.           DTSBE320
00255          10  FILLER                  PIC  X(01) VALUE ';'.        DTSBE320
00256          10  W-PEN-AMT               PIC  ------9.99.             DTSBE320
00257                                                                   DTSBE320
00258      05  AMT-DISP1                   PIC -,---,--9.99.            DTSBE320
00259      05  AMT-DISP2                   PIC -,---,--9.99.            DTSBE320
00260      05  AMT-DISP3                   PIC -,---,--9.99.            DTSBE320
00261                                                                   DTSBE320
00262                                                                   DTSBE320
00263      05  WRK-TIMELY-PAYMENTS             PIC S9(09)V99  COMP-3.   DTSBE320
00264      05  WRK-TAX-BALANCE-AMT             PIC S9(09)V99  COMP-3.   DTSBE320
00265      05  WRK-TAX-CHARGED-AMT             PIC S9(09)V99  COMP-3.   DTSBE320
00266      05  WRK-TOLERANCE-AMT               PIC S9(09)V99  COMP-3    DTSBE320
00267 *                                        VALUE +100.00.           DTSBE320
00268                                          VALUE +50.00.            DTSBE320
00269      EJECT                                                        DTSBE320
00270  01  EVL-LOG-AREA.                                                DTSBE320
00271          10  EVL-TEXT               PIC X(27)                     DTSBE320
00272              VALUE 'NOTICE OF LATE PENALTY FOR '.                 DTSBE320
00273          10  EVL-SLASH-QTR          PIC X(4).                     DTSBE320
00274          10  FILLER                 PIC X(9)                      DTSBE320
00275              VALUE '  MAILED '.                                   DTSBE320
00276          10  EVL-ADDR-TYPE          PIC X(04).                    DTSBE320
00277          10  EVL-ADDR-ID-NO         PIC XXX.                      DTSBE320
00278  01  EVL-TEXT-MISS-LTR.                                           DTSBE320
00279          10  FILLER                 PIC X(27)                     DTSBE320
00280              VALUE 'MISSING REPORT NOTICE FOR  '.                 DTSBE320
00281  01  EVL-TEXT-PEN-LTR.                                            DTSBE320
00282          10  FILLER                 PIC X(27)                     DTSBE320
00283              VALUE 'NOTICE OF LATE PENALTY FOR '.                 DTSBE320
00284  01  WAV-LOG-AREA.                                                DTSBE320
00285          10  WAV-TEXT               PIC X(28)                     DTSBE320
00286              VALUE 'LATE PENALTY WAIVED FOR QTR '.                DTSBE320
00287          10  WAV-SLASH-QTR          PIC X(4).                     DTSBE320
00288          10  FILLER                 PIC X(9)                      DTSBE320
00289              VALUE '         '.                                   DTSBE320
00290      EJECT                                                        DTSBE320
00291  01  MSG-AREA.                                                    DTSBE320
00292      05  MSG1-AREA.                                               DTSBE320
00293          10  MSG1-ID                PIC  X(03)  VALUE '321'.      DTSBE320
00294          10  MSG1-TEXT.                                           DTSBE320
00295              15  FILLER             PIC  X(40)                    DTSBE320
00296                VALUE '                                        '.  DTSBE320
00297              15  FILLER             PIC  X(40)                    DTSBE320
00298                VALUE '                                        '.  DTSBE320
00299      EJECT                                                        DTSBE320
00300  01  W-EMP-RPT-REC.                                               DTSBE320
00301  ++INCLUDE DTSIX212                                               DTSBE320
00302                                                                   DTSBE320
00303  01  L001-LINK-AREA.                                              DTSBE320
00304  ++INCLUDE DTSIL001                                               DTSBE320
00305      EJECT                                                        DTSBE320
00306  01  L004-LINK-AREA.                                              DTSBE320
00307  ++INCLUDE DTSIL004                                               DTSBE320
00308      EJECT                                                        DTSBE320
00309  01  L005-LINK-AREA.                                              DTSBE320
00310  ++INCLUDE DTSIL005                                               DTSBE320
00311      EJECT                                                        DTSBE320
00312  01  L102-LINK-AREA.                                              DTSBE320
00313  ++INCLUDE DTSIL102                                               DTSBE320
00314      EJECT                                                        DTSBE320
00315  01  L101-LINK-AREA.                                              DTSBE320
00316  ++INCLUDE DTSIL101                                               DTSBE320
00317      EJECT                                                        DTSBE320
00318  01  L109-LINK-AREA.                                              DTSBE320
00319  ++INCLUDE DTSIL109                                               DTSBE320
00320      EJECT                                                        DTSBE320
00321  01  L111-LINK-AREA.                                              DTSBE320
00322  ++INCLUDE DTSIL111                                               DTSBE320
00323      EJECT                                                        DTSBE320
00324  01  L112-LINK-AREA.                                              DTSBE320
00325  ++INCLUDE DTSIL112                                               DTSBE320
00326      EJECT                                                        DTSBE320
00327  01  L410-LINK-AREA.                                              DTSBE320
00328  ++INCLUDE DTSIL410                                               DTSBE320
00329      SKIP3                                                        DTSBE320
00330  01  L516-LINK-AREA.                                              DTSBE320
00331  ++INCLUDE DTSIL516                                               DTSBE320
00332      SKIP3                                                        DTSBE320
00333  01  L910-LINK-AREA.                                              DTSBE320
00334  ++INCLUDE DTSIL910                                               DTSBE320
00335      SKIP3                                                        DTSBE320
00336  01  MSKL-REC.                                                    DTSBE320
00337  ++INCLUDE DTSIMSKL                                               DTSBE320
00338      SKIP3                                                        DTSBE320
00339  01  MHDR-REC.                                                    DTSBE320
00340  ++INCLUDE DTSIMHDR                                               DTSBE320
00341      SKIP3                                                        DTSBE320
00342  01  MQTR-REC.                                                    DTSBE320
00343  ++INCLUDE DTSIMQTR                                               DTSBE320
00344      SKIP3                                                        DTSBE320
00345  01  MEVL-REC.                                                    DTSBE320
00346  ++INCLUDE DTSIMEVL                                               DTSBE320
00347      SKIP3                                                        DTSBE320
00348  01  MRPT-REC.                                                    DTSBE320
00349  ++INCLUDE DTSIMRPT                                               DTSBE320
00350      SKIP3                                                        DTSBE320
00351  01  L923-LINK-AREA.                                              DTSBE320
00352  ++INCLUDE DTSIL923                                               DTSBE320
00353      EJECT                                                        DTSBE320
00354  01  ASKL-REC.                                                    DTSBE320
00355  ++INCLUDE DTSIASKL                                               DTSBE320
00356      EJECT                                                        DTSBE320
00357  01  ARPT-REC.                                                    DTSBE320
00358  ++INCLUDE DTSIARPT                                               DTSBE320
00359                                                                   DTSBE320
00360  01  MDST-REC.                                                    DTSBE320
00361  ++INCLUDE DTSIMDST                                               DTSBE320
00362      EJECT                                                        DTSBE320
00363  01  L931-LINK-AREA.                                              DTSBE320
00364  ++INCLUDE DTSIL931                                               DTSBE320
00365      SKIP3                                                        DTSBE320
00366  01  FSKL-REC.                                                    DTSBE320
00367  ++INCLUDE DTSIFSKL                                               DTSBE320
00368      SKIP3                                                        DTSBE320
00369  01  FQTR-REC.                                                    DTSBE320
00370  ++INCLUDE DTSIFQTR                                               DTSBE320
00371      EJECT                                                        DTSBE320
00372  ++INCLUDE OJRWE320                                               DTSBE320
00373      EJECT                                                        DTSBE320
00374  01  R320-REC.                                                    DTSBE320
00375  ++INCLUDE DTSIR320                                               DTSBE320
00376  01  R907-REC.                                                    DTSBE320
00377  ++INCLUDE DTSIR907                                               DTSBE320
00378      EJECT                                                        DTSBE320
00379  01  L927-LINK-AREA.                                              DTSBE320
00380  ++INCLUDE DTSIL927                                               DTSBE320
00381      SKIP3                                                        DTSBE320
00382  01  T026-REC.                                                    DTSBE320
00383  ++INCLUDE DTSIT026                                               DTSBE320
00384      EJECT                                                        DTSBE320
00385  01  CACT-LITERALS.                                               DTSBE320
00386  ++INCLUDE DTSICACT                                               DTSBE320
00387      EJECT                                                        DTSBE320
00388  LINKAGE SECTION.                                                 DTSBE320
00389      SKIP3                                                        DTSBE320
00390  01  LECM-LINK-AREA.                                              DTSBE320
00391  ++INCLUDE DTSILECM                                               DTSBE320
00392      SKIP3                                                        DTSBE320
00393          10  FILLER REDEFINES LECM-EXTRACT-PARMS.                 DTSBE320
00394              15  LECM-PARM-SUBJECT-YRQ   PIC  X(03).              DTSBE320
00395              15  FILLER                  PIC  X(01).              DTSBE320
00396              15  LECM-PARM-RUN-TYPE      PIC  X(01).              DTSBE320
00397                  88  LECM-PARM-RUN-RATED-88      VALUE 'R'.       DTSBE320
00398                  88  LECM-PARM-RUN-SELF-INS-88   VALUE 'S'.       DTSBE320
00399                  88  LECM-PARM-RUN-BOTH-88       VALUE ' '.       DTSBE320
00400                  88  LECM-PARM-RUN-TYPE-VALID-88                  DTSBE320
00401                                            VALUE ' ' 'R', 'S'.    DTSBE320
00402              15  FILLER                  PIC  X(63).              DTSBE320
00403      EJECT                                                        DTSBE320
00404  01  MPRF-LINK-REC.                                               DTSBE320
00405  ++INCLUDE DTSIMPRF                                               DTSBE320
00406      EJECT                                                        DTSBE320
00407  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE320
00408                           MPRF-LINK-REC.                          DTSBE320
00409                                                                   DTSBE320
00410      EVALUATE TRUE                                                DTSBE320
00411      WHEN LECM-PROCESS-88                                         DTSBE320
00412          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE320
00413                                                                   DTSBE320
00414      WHEN LECM-INITIALIZE-88                                      DTSBE320
00415          SET WRK-EDIT-PASSED-88 TO TRUE                           DTSBE320
00416          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE320
00417          IF WRK-EDIT-FAILED-88                                    DTSBE320
00418             PERFORM S999-ABEND THRU S999-EXIT                     DTSBE320
00419          END-IF                                                   DTSBE320
00420                                                                   DTSBE320
00421      WHEN LECM-TERMINATE-88                                       DTSBE320
00422          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE320
00423                                                                   DTSBE320
00424      WHEN OTHER                                                   DTSBE320
00425          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE320
00426            TO ABEND-MSG                                           DTSBE320
00427          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE320
00428                                                                   DTSBE320
00429                                                                   DTSBE320
00430      GOBACK.                                                      DTSBE320
00431      EJECT                                                        DTSBE320
00432  I0000-INITIALIZE.                                                DTSBE320
00433      MOVE LECM-TRACE-IND TO L910-TRACE-IND                        DTSBE320
00434                             L931-TRACE-IND.                       DTSBE320
00435                                                                   DTSBE320
00436      MOVE WRK-MOD-NAME TO L910-MOD-NAME                           DTSBE320
00437                           L931-MOD-NAME                           DTSBE320
00438                           R907-MODULE-NAME.                       DTSBE320
00439                                                                   DTSBE320
00440                                                                   DTSBE320
00441      MOVE LECM-PARM-SUBJECT-YRQ TO                                DTSBE320
00442                        OJR-PARM-SUBJECT-YRQ.                      DTSBE320
00443                                                                   DTSBE320
00444      MOVE LENGTH OF R907-REC TO R907-LENGTH.                      DTSBE320
00445                                                                   DTSBE320
00446      MOVE '907' TO R907-REC-TYPE.                                 DTSBE320
00447                                                                   DTSBE320
00448      MOVE LENGTH OF R320-REC TO R320-LENGTH.                      DTSBE320
00449                                                                   DTSBE320
00450      MOVE '320' TO R320-REC-TYPE.                                 DTSBE320
00451                                                                   DTSBE320
00452      MOVE LENGTH OF T026-REC TO T026-LENGTH.                      DTSBE320
00453                                                                   DTSBE320
00454      MOVE '026' TO T026-REC-TYPE.                                 DTSBE320
00455                                                                   DTSBE320
00456      MOVE WRK-MOD-NAME TO T026-ORIGIN.                            DTSBE320
00457                                                                   DTSBE320
00458      MOVE LECM-SYS-DATE TO T026-SYS-DATE.                         DTSBE320
00459                                                                   DTSBE320
00460      MOVE LECM-SYS-TIME TO T026-SYS-TIME.                         DTSBE320
00461                                                                   DTSBE320
00462                                                                   DTSBE320
00463      PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT.        DTSBE320
00464                                                                   DTSBE320
00465                                                                   DTSBE320
00466      IF WRK-PARM-SUBJECT-YRQ > LECM-LAST-PEN-ASSESSED-YRQ         DTSBE320
00467          MOVE WRK-PARM-SUBJECT-YRQ                                DTSBE320
00468            TO LECM-LAST-PEN-ASSESSED-YRQ.                         DTSBE320
00469                                                                   DTSBE320
00470                                                                   DTSBE320
00471      PERFORM S109-FIRST-PEN-INT-YRQ  THRU S109-EXIT.              DTSBE320
00472      MOVE L109-FIRST-PEN-INT-YRQ TO WRK-FIRST-PEN-INT-YRQ.        DTSBE320
00473                                                                   DTSBE320
00474      OPEN OUTPUT PENALTY-FILE                                     DTSBE320
00475      IF NOT PENALTY-OK-88                                         DTSBE320
00476         DISPLAY 'CANNOT OPEN PENALTY FILE '                       DTSBE320
00477            PENALTY-STATUS                                         DTSBE320
00478      END-IF.                                                      DTSBE320
00479                                                                   DTSBE320
00480      PERFORM I3000-TRANS-FILE-RPTS       THRU I3000-EXIT.         DTSBE320
00481                                                                   DTSBE320
00482      OPEN INPUT  EMP-RPT-FILE                                     DTSBE320
00483      IF NOT DOWNX212-OK-88                                        DTSBE320
00484         DISPLAY 'CANNOT OPEN WEB REPORT FILE -BX212 '             DTSBE320
00485            DOWNX212-STATUS                                        DTSBE320
00486         PERFORM S999-ABEND THRU S999-EXIT                         DTSBE320
00487      END-IF.                                                      DTSBE320
00488       DISPLAY ' EMP FILE OPEND ' DOWNX212-STATUS.                 DTSBE320
00489                                                                   DTSBE320
00490      PERFORM I4000-TRANS-UPLOAD          THRU I4000-EXIT.         DTSBE320
00491                                                                   DTSBE320
00492       DISPLAY ' EMP TABLE COMPLETED '                             DTSBE320
00493                                                                   DTSBE320
00494      SET LECM-MST-OPEN-UPDATE-88 TO TRUE.                         DTSBE320
00495                                                                   DTSBE320
00496      SET LECM-REF-OPEN-UPDATE-88 TO TRUE.                         DTSBE320
00497  I0000-EXIT.                                                      DTSBE320
00498      EXIT.                                                        DTSBE320
00499      SKIP3                                                        DTSBE320
00500  I1000-EDIT-AND-DEFAULT-PARMS.                                    DTSBE320
00501      PERFORM I1100-SUBJECT-YRQ           THRU I1100-EXIT.         DTSBE320
00502 *    PERFORM I1300-RUN-TYPE              THRU I1300-EXIT.         DTSBE320
00503      PERFORM I1200-READ-FQTR             THRU I1200-EXIT.         DTSBE320
00504 *    PERFORM I1310-PENALTY-RUN-VALID     THRU I1310-EXIT.         DTSBE320
00505                                                                   DTSBE320
00506 *    PERFORM I1305-VERIFY-RUN-YRQ  THRU I1305-EXIT UNTIL          DTSBE320
00507 *       PEN-RUN-YRQ-YES-88.                                       DTSBE320
00508 *                                                                 DTSBE320
00509      DISPLAY 'BE320 SUBJECT QTR: ' WRK-PARM-SUBJECT-YRQ.          DTSBE320
00510                                                                   DTSBE320
00511 *       PERFORM I1310-RATED-RUN         THRU I1310-EXIT           DTSBE320
00512 *    ELSE                                                         DTSBE320
00513 *       PERFORM I1320-SELF-INS-RUN      THRU I1320-EXIT           DTSBE320
00514 *    END-IF.                                                      DTSBE320
00515                                                                   DTSBE320
00516                                                                   DTSBE320
00517  I1000-EXIT.                                                      DTSBE320
00518      EXIT.                                                        DTSBE320
00519                                                                   DTSBE320
00520  I1100-SUBJECT-YRQ.                                               DTSBE320
00521      IF LECM-PARM-SUBJECT-YRQ = SPACES                            DTSBE320
00522         MOVE LECM-LAST-PEN-ASSESSED-YRQ TO L004-QTR-5-9           DTSBE320
00523         PERFORM S004-FROM-5 THRU S004-EXIT                        DTSBE320
00524         ADD +1 TO L004-ABS-QTR                                    DTSBE320
00525         PERFORM S004-FROM-ABS THRU S004-EXIT                      DTSBE320
00526         MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ                 DTSBE320
00527         MOVE L004-SLASH-QTR TO WRK-SUBJECT-SLASH-QTR              DTSBE320
00528      ELSE                                                         DTSBE320
00529         MOVE LECM-PARM-SUBJECT-YRQ TO L004-QTR-3-X                DTSBE320
00530         PERFORM S004-FROM-3 THRU S004-EXIT                        DTSBE320
00531         IF L004-VALID-QTR                                         DTSBE320
00532             MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ             DTSBE320
00533             MOVE L004-SLASH-QTR TO WRK-SUBJECT-SLASH-QTR          DTSBE320
00534         ELSE                                                      DTSBE320
00535             MOVE 'PARM-SUBJECT-YRQ NOT VALID'                     DTSBE320
00536               TO ABEND-MSG                                        DTSBE320
00537             PERFORM S999-ABEND THRU S999-EXIT                     DTSBE320
00538         END-IF                                                    DTSBE320
00539      END-IF.                                                      DTSBE320
00540                                                                   DTSBE320
00541                                                                   DTSBE320
00542      MOVE LECM-LAST-PEN-ASSESSED-YRQ TO L004-QTR-5-9.             DTSBE320
00543                                                                   DTSBE320
00544      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBE320
00545                                                                   DTSBE320
00546      ADD +1 TO L004-ABS-QTR.                                      DTSBE320
00547                                                                   DTSBE320
00548      PERFORM S004-FROM-ABS THRU S004-EXIT.                        DTSBE320
00549                                                                   DTSBE320
00550      IF L004-QTR-5-9 = WRK-PARM-SUBJECT-YRQ                       DTSBE320
00551          NEXT SENTENCE                                            DTSBE320
00552      ELSE                                                         DTSBE320
00553          MOVE                                                     DTSBE320
00554      'PARM-SUBJECT-YRQ NOT COMPATIBLE WITH LAST-PEN-ASSESSED-YRQ' DTSBE320
00555            TO ABEND-MSG                                           DTSBE320
00556          PERFORM S999-ABEND THRU S999-EXIT                        DTSBE320
00557      END-IF.                                                      DTSBE320
00558                                                                   DTSBE320
00559  I1100-EXIT.                                                      DTSBE320
00560      EXIT.                                                        DTSBE320
00561                                                                   DTSBE320
00562  I1200-READ-FQTR.                                                 DTSBE320
00563                                                                   DTSBE320
00564      MOVE LOW-VALUES                     TO FQTR-KEY-AREA.        DTSBE320
00565      SET FQTR-QTR-88                     TO TRUE.                 DTSBE320
00566      MOVE WRK-PARM-SUBJECT-YRQ           TO FQTR-YRQ.             DTSBE320
00567      MOVE FQTR-KEY-AREA                  TO FSKL-KEY-AREA.        DTSBE320
00568                                                                   DTSBE320
00569      PERFORM S931-READ                   THRU S931-EXIT.          DTSBE320
00570      IF L931-NO-REC-88                                            DTSBE320
00571         DISPLAY 'DTSBE320 TERMINATING: FQTR REC NOT FOUND'        DTSBE320
00572         MOVE 'FQTR RECORD NOT FOUND'                              DTSBE320
00573            TO ABEND-MSG                                           DTSBE320
00574         PERFORM S999-ABEND              THRU S999-EXIT            DTSBE320
00575      ELSE                                                         DTSBE320
00576         MOVE FSKL-REC                   TO FQTR-REC               DTSBE320
00577      END-IF.                                                      DTSBE320
00578                                                                   DTSBE320
00579  I1200-EXIT.                                                      DTSBE320
00580      EXIT.                                                        DTSBE320
00581                                                                   DTSBE320
00582  I1300-RUN-TYPE.                                                  DTSBE320
00583      IF NOT LECM-PARM-RUN-TYPE-VALID-88                           DTSBE320
00584         DISPLAY 'INVALID PARM RUN TYPE: ' LECM-PARM-RUN-TYPE      DTSBE320
00585         MOVE 'PARM RUN TYPE NOT VALID'                            DTSBE320
00586            TO ABEND-MSG                                           DTSBE320
00587         PERFORM S999-ABEND              THRU S999-EXIT            DTSBE320
00588      ELSE                                                         DTSBE320
00589         MOVE LECM-PARM-RUN-TYPE         TO WRK-RUN-TYPE           DTSBE320
00590         DISPLAY 'BE320 RUN TYPE: ' WRK-RUN-TYPE                   DTSBE320
00591      END-IF.                                                      DTSBE320
00592                                                                   DTSBE320
00593  I1300-EXIT.                                                      DTSBE320
00594      EXIT.                                                        DTSBE320
00595                                                                   DTSBE320
00596  I1305-VERIFY-RUN-YRQ.                                            DTSBE320
00597        SET PEN-RUN-YRQ-YES-88 TO TRUE.                            DTSBE320
00598                                                                   DTSBE320
00599      IF ((FQTR-LATE-PEN-ASSESSED-DATE > +0 AND                    DTSBE320
00600              WRK-RUN-TYPE-RATED-88)                               DTSBE320
00601                      OR                                           DTSBE320
00602 *       (FQTR-SELF-INS-LATE-PEN-DATE > +0 AND                     DTSBE320
00603             (WRK-RUN-TYPE-SELF-INS-88))                           DTSBE320
00604         ADD +1 TO L004-ABS-QTR                                    DTSBE320
00605         PERFORM S004-FROM-ABS THRU S004-EXIT                      DTSBE320
00606         MOVE L004-QTR-5-9 TO WRK-PARM-SUBJECT-YRQ                 DTSBE320
00607         PERFORM I1200-READ-FQTR  THRU I1200-EXIT                  DTSBE320
00608         SET PEN-RUN-YRQ-NO-88 TO TRUE                             DTSBE320
00609      END-IF.                                                      DTSBE320
00610                                                                   DTSBE320
00611  I1305-EXIT.                                                      DTSBE320
00612      EXIT.                                                        DTSBE320
00613                                                                   DTSBE320
00614  I1310-PENALTY-RUN-VALID.                                         DTSBE320
00615                                                                   DTSBE320
00616      MOVE WRK-PARM-SUBJECT-YRQ        TO L004-QTR-5-9.            DTSBE320
00617      PERFORM S004-FROM-5              THRU S004-EXIT.             DTSBE320
00618                                                                   DTSBE320
00619      MOVE L004-QTR-DEFAULT-DUE-DATE   TO L001-FED-8-DATE-9.       DTSBE320
00620      PERFORM S001-FROM-FED-8          THRU S001-EXIT.             DTSBE320
00621      ADD +5                           TO L001-JUL-ABS-DAY.           CL*10
00622      PERFORM S001-FROM-ABS-DAY        THRU S001-EXIT.             DTSBE320
00623                                                                   DTSBE320
00624      IF LECM-CURR-RUN-DATE < L001-FED-8-DATE-9                    DTSBE320
00625         DISPLAY 'DTSBE320 TERMINATING: TOO EARLY'                 DTSBE320
00626         DISPLAY 'MUST BE AT LEAST 10 DAYS AFTER DUE DATE'         DTSBE320
00627         MOVE 'DTSBE320 TERMINATING: TOO EARLY'                    DTSBE320
00628            TO ABEND-MSG                                           DTSBE320
00629         PERFORM S999-ABEND              THRU S999-EXIT            DTSBE320
00630      END-IF.                                                      DTSBE320
00631                                                                   DTSBE320
00632                                                                   DTSBE320
00633  I1310-EXIT.                                                      DTSBE320
00634      EXIT.                                                        DTSBE320
00635                                                                   DTSBE320
00636  I1320-SELF-INS-RUN.                                              DTSBE320
00637      DISPLAY 'BE320 RUN TYPE: REIMBURSING'.                       DTSBE320
00638                                                                   DTSBE320
00639      MOVE FQTR-SELF-INS-TAX-DUE-DATE  TO L001-FED-8-DATE-9.       DTSBE320
00640      PERFORM S001-FROM-FED-8          THRU S001-EXIT.             DTSBE320
00641      ADD +5                           TO L001-JUL-ABS-DAY.        DTSBE320
00642      PERFORM S001-FROM-ABS-DAY        THRU S001-EXIT.             DTSBE320
00643                                                                   DTSBE320
00644      IF LECM-CURR-RUN-DATE < L001-FED-8-DATE-9                    DTSBE320
00645         DISPLAY 'DTSBE320 TERMINATING: TOO EARLY'                 DTSBE320
00646         DISPLAY 'MUST BE AT LEAST 5 DAYS AFTER DUE DATE'          DTSBE320
00647         MOVE 'DTSBE320 TERMINATING: TOO EARLY'                    DTSBE320
00648            TO ABEND-MSG                                           DTSBE320
00649         PERFORM S999-ABEND              THRU S999-EXIT            DTSBE320
00650      END-IF.                                                      DTSBE320
00651                                                                   DTSBE320
00652  I1320-EXIT.                                                      DTSBE320
00653      EXIT.                                                        DTSBE320
00654                                                                   DTSBE320
00655  I3000-TRANS-FILE-RPTS.                                           DTSBE320
00656      PERFORM                                                      DTSBE320
00657         VARYING TF-SUB FROM +1 BY +1                              DTSBE320
00658         UNTIL TF-SUB > TF-MAX                                     DTSBE320
00659            SET TF-RPT-FOUND-NO-88 (TF-SUB)  TO TRUE               DTSBE320
00660            SET TF-BYPASSED-NO-88  (TF-SUB)  TO TRUE               DTSBE320
00661      END-PERFORM.                                                 DTSBE320
00662                                                                   DTSBE320
00663      PERFORM S923-OPEN-READ          THRU S923-EXIT.              DTSBE320
00664                                                                   DTSBE320
00665      MOVE ZERO      TO ASKL-BATCH-NO                              DTSBE320
00666                        ASKL-ITEM-NO.                              DTSBE320
00667                                                                   DTSBE320
00668      PERFORM S923-START-BROWSE THRU S923-EXIT.                    DTSBE320
00669      PERFORM UNTIL L923-NO-REC-88                                 DTSBE320
00670         IF ASKL-RPT-88                                            DTSBE320
00671            MOVE ASKL-REC TO ARPT-REC                              DTSBE320
00672            IF (ARPT-ORIG-88                                       DTSBE320
00673            AND ARPT-YRQ = WRK-PARM-SUBJECT-YRQ                    DTSBE320
00674            AND ARPT-NOT-PROCESSED-88)                             DTSBE320
00675               IF NOT ARPT-EMP-NO-NO-ENTRY-88                      DTSBE320
00676                  SET TF-RPT-FOUND-YES-88 (ARPT-EMP-NO) TO TRUE    DTSBE320
00677                  ADD +1 TO WRK-TF-TABLE-CNT                       DTSBE320
00678                  DISPLAY 'I3 ' ARPT-EMP-NO '  ' ARPT-BATCH-NO     DTSBE320
00679                     ' ' ARPT-ITEM-NO                              DTSBE320
00680               END-IF                                              DTSBE320
00681            END-IF                                                 DTSBE320
00682         END-IF                                                    DTSBE320
00683         PERFORM S923-READ-NEXT       THRU S923-EXIT               DTSBE320
00684      END-PERFORM.                                                 DTSBE320
00685                                                                   DTSBE320
00686      PERFORM S923-CLOSE              THRU S923-EXIT.              DTSBE320
00687                                                                   DTSBE320
00688  I3000-EXIT.                                                      DTSBE320
00689      EXIT.                                                        DTSBE320
00690  I4000-TRANS-UPLOAD.                                              DTSBE320
00691         READ EMP-RPT-FILE INTO W-EMP-RPT-REC AT END               DTSBE320
00692         GO TO I4000-EXIT.                                         DTSBE320
00693         MOVE X212-EMP-NBR TO WRK-EMP-NO                           DTSBE320
00694 *       MOVE X212-QTR    TO WRK-ICESA-YRQ                         DTSBE320
00695 *       MOVE WRK-ICESA-CCYY TO WRK-RPT-CCYY                       DTSBE320
00696 *       MOVE WRK-ICESA-QTR  TO WRK-RPT-QTR                        DTSBE320
00697                                                                   DTSBE320
00698 *       MOVE WRK-RPT-WS TO WRK-RPT-YRQ.                           DTSBE320
00699                                                                   DTSBE320
00700 *       IF WRK-RPT-YRQ = WRK-PARM-SUBJECT-YRQ                     DTSBE320
00701            SET TF-RPT-FOUND-YES-88 (WRK-EMP-NO) TO TRUE           DTSBE320
00702            ADD +1 TO WRK-TF-TABLE-CNT.                            DTSBE320
00703           DISPLAY 'EMP-BYPASS-FROM-FILE: ' WRK-EMP-NO             DTSBE320
00704                                                                   DTSBE320
00705         GO TO I4000-TRANS-UPLOAD.                                 DTSBE320
00706  I4000-EXIT.                                                      DTSBE320
00707      EXIT.                                                        DTSBE320
00708  P0000-PROCESS.                                                   DTSBE320
00709 *****IF (MPRF-EMP-NO < 360094)                                    DTSBE320
00710 *************OR                                                   DTSBE320
00711 ********(MPRF-EMP-NO > 360098)                                    DTSBE320
00712 *********GO TO P0000-EXIT.                                        DTSBE320
00713                                                                   DTSBE320
00714                                                                   DTSBE320
00715      MOVE MPRF-EMP-NO TO R907-EMP-NO.                             DTSBE320
00716                                                                   DTSBE320
00717                                                                   DTSBE320
00718      IF MPRF-STATUS-SUB-88                                        DTSBE320
00719          NEXT SENTENCE                                            DTSBE320
00720      ELSE                                                         DTSBE320
00721         GO TO P0000-EXIT.                                         DTSBE320
00722                                                                   DTSBE320
00723                                                                   DTSBE320
00724 *    IF WRK-RUN-TYPE-RATED-88                                     DTSBE320
00725 *       IF MPRF-CLASS-RATED-88                                    DTSBE320
00726 *          NEXT SENTENCE                                          DTSBE320
00727 *       ELSE                                                      DTSBE320
00728 *          GO TO P0000-EXIT                                       DTSBE320
00729 *       END-IF                                                    DTSBE320
00730 *    ELSE                                                         DTSBE320
00731 *       IF WRK-RUN-TYPE-SELF-INS-88                               DTSBE320
00732 *          IF MPRF-CLASS-SELF-INS-88                              DTSBE320
00733 *          NEXT SENTENCE                                          DTSBE320
00734 *       ELSE                                                      DTSBE320
00735 *          GO TO P0000-EXIT                                       DTSBE320
00736 *       END-IF                                                    DTSBE320
00737 *    END-IF.                                                      DTSBE320
00738                                                                   DTSBE320
00739      SET L410-MODE-INPUT-YRQ-88 TO TRUE.                          DTSBE320
00740      MOVE MPRF-EMP-NO           TO L410-EMP-NO.                   DTSBE320
00741      MOVE WRK-PARM-SUBJECT-YRQ  TO L410-YRQ                       DTSBE320
00742      PERFORM S410-FILE-SCHED    THRU S410-EXIT.                   DTSBE320
00743 ***  DISPLAY 'EMP NO            ' MPRF-EMP-NO                     DTSBE320
00744 *    DISPLAY ' WRK PARM SUB YRQ ' WRK-PARM-SUBJECT-YRQ.           DTSBE320
00745 *    DISPLAY ' L410 INPUT MODE  ' L410-MODE                       DTSBE320
00746 ***  DISPLAY ' L410 FILE SCHED  ' L410-FILING-SCHED.              DTSBE320
00747                                                                   DTSBE320
00748      IF L410-ANN-SCHED-88                                         DTSBE320
00749 ***      DISPLAY ' **** ANNUAL FILER  CANNOT PROCESS' MPRF-EMP-NO DTSBE320
00750          GO TO P0000-EXIT                                         DTSBE320
00751      END-IF.                                                      DTSBE320
00752                                                                   DTSBE320
00753      SET GENERATE-NO-LTR-88 TO TRUE.                              DTSBE320
00754                                                                   DTSBE320
00755      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSBE320
00756                                                                   DTSBE320
00757      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBE320
00758                                                                   DTSBE320
00759      SET MQTR-QTR-88 TO TRUE.                                     DTSBE320
00760                                                                   DTSBE320
00761      MOVE WRK-PARM-SUBJECT-YRQ TO MQTR-YRQ.                       DTSBE320
00762                                                                   DTSBE320
00763      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE320
00764                                                                   DTSBE320
00765      PERFORM S910-READ THRU S910-EXIT.                            DTSBE320
00766                                                                   DTSBE320
00767      IF L910-NO-REC-88                                            DTSBE320
00768         MOVE WRK-PARM-SUBJECT-YRQ     TO L516-YRQ                 DTSBE320
00769         PERFORM S516-LIABILITY        THRU S516-EXIT              DTSBE320
00770         IF L516-LIABLE-88                                         DTSBE320
00771          IF TF-RPT-FOUND-YES-88 (MPRF-EMP-NO)                     DTSBE320
00772             SET TF-BYPASSED-YES-88 (MPRF-EMP-NO) TO TRUE          DTSBE320
00773             ADD +1 TO WRK-BYPASS-CNT                              DTSBE320
00774             GO TO P0000-EXIT                                      DTSBE320
00775          ELSE                                                     DTSBE320
00776            ADD 1 TO WRK-LATE-LTR-CNT                              DTSBE320
00777            SET GENERATE-MISS-RPT-LTR-88 TO TRUE                   DTSBE320
00778            PERFORM P2000-GENERATE-T026 THRU P2000-EXIT            DTSBE320
00779            PERFORM P2500-GENERATE-R320 THRU P2500-EXIT            DTSBE320
00780            PERFORM P2600-GENERATE-ELOG THRU P2600-EXIT            DTSBE320
00781            GO TO P0000-EXIT                                       DTSBE320
00782         ELSE                                                      DTSBE320
00783             DISPLAY ' NO QTR REC FOUND -NOT LIAB ' MPRF-EMP-NO    DTSBE320
00784             GO TO P0000-EXIT.                                     DTSBE320
00785                                                                   DTSBE320
00786      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE320
00787                                                                      CL**7
00788      DISPLAY 'EMP/RPT-TYPE: ' MQTR-EMP-NO ' ' MQTR-CURR-RPT-TYPE.    CL**7
00789                                                                      CL**7
00790      IF MQTR-CURR-RCVD-88                                         DTSBE320
00791              OR                                                   DTSBE320
00792         MQTR-CURR-ESTIM-88                                        DTSBE320
00793          NEXT SENTENCE                                               CL**9
00794 *        GO TO P0000-CONT.                                           CL**9
00795      ELSE                                                            CL**9
00796          GO TO P0000-EXIT.                                           CL**9
00797                                                                      CL**8
00798 *    IF MQTR-CURR-RPT-TYPE = 'L'                                     CL**9
00799 *        NEXT SENTENCE                                               CL**9
00800 *    ELSE                                                            CL**9
00801 *        GO TO P0000-EXIT.                                           CL**9
00802                                                                      CL**8
00803 *       MOVE WRK-PARM-SUBJECT-YRQ     TO L516-YRQ                    CL**9
00804 *       PERFORM S516-LIABILITY        THRU S516-EXIT                 CL**9
00805 *       IF L516-LIABLE-88                                            CL**9
00806 *        IF TF-RPT-FOUND-YES-88 (MPRF-EMP-NO)                        CL**9
00807 *           SET TF-BYPASSED-YES-88 (MPRF-EMP-NO) TO TRUE             CL**9
00808 *           ADD +1 TO WRK-BYPASS-CNT                                 CL**9
00809 *           GO TO P0000-EXIT                                         CL**9
00810 *        ELSE                                                        CL**9
00811 *          ADD 1 TO WRK-LATE-LTR-CNT                                 CL**9
00812 *          SET GENERATE-MISS-RPT-LTR-88 TO TRUE                      CL**9
00813 *          PERFORM P2000-GENERATE-T026 THRU P2000-EXIT               CL**9
00814 *          PERFORM P2500-GENERATE-R320 THRU P2500-EXIT               CL**9
00815 *          PERFORM P2600-GENERATE-ELOG THRU P2600-EXIT               CL**9
00816 *          GO TO P0000-EXIT                                          CL**9
00817 *       ELSE                                                         CL**9
00818 *           DISPLAY ' NO QTR REC FOUND -NOT LIAB ' MPRF-EMP-NO       CL**9
00819 *           GO TO P0000-EXIT.                                        CL**9
00820                                                                      CL**8
00821                                                                   DTSBE320
00822  P0000-CONT.                                                         CL**8
00823      MOVE ZEROS TO WRK-TAX-BALANCE-AMT.                           DTSBE320
00824      MOVE ZEROS TO WRK-TAX-CHARGED-AMT.                           DTSBE320
00825      MOVE ZEROS TO WRK-TIMELY-PAYMENTS.                           DTSBE320
00826      MOVE ZEROS TO L102-LATE-PEN-CHARGE-CHNG                      DTSBE320
00827                    L102-LATE-PEN-WAIVE-CHNG                       DTSBE320
00828                    L102-LATE-PEN-CHARGED-AMT.                     DTSBE320
00829                                                                   DTSBE320
00830      MOVE ZEROS TO AMT-DISP3.                                     DTSBE320
00831      MOVE ZEROS TO AMT-DISP2.                                     DTSBE320
00832      MOVE ZEROS TO AMT-DISP1.                                     DTSBE320
00833                                                                   DTSBE320
00834                                                                   DTSBE320
00835      PERFORM P1000-INITIALIZE-L102 THRU P1000-EXIT.               DTSBE320
00836                                                                   DTSBE320
00837      IF L102-TAX-CHARGED-AMT = ZEROS OR                           DTSBE320
00838         L102-TAX-BALANCE-AMT = ZEROS OR                           DTSBE320
00839         L102-LATE-PEN-CHARGED-AMT > ZEROS                         DTSBE320
00840          GO TO P0000-EXIT.                                        DTSBE320
00841                                                                   DTSBE320
00842         MOVE L102-TAX-CHARGED-AMT      TO AMT-DISP3               DTSBE320
00843         MOVE L102-TAX-BALANCE-AMT      TO AMT-DISP1               DTSBE320
00844         MOVE WRK-TIMELY-PAYMENTS       TO AMT-DISP2               DTSBE320
00845      DISPLAY 'PEN Q153 ' MPRF-EMP-NO ' ' MPRF-EMP-CLASS           DTSBE320
00846             '  RCVD ' L102-OR-RECEIVED-DATE                       DTSBE320
00847             ' CHRG ' AMT-DISP3                                    DTSBE320
00848             ' PAID ' AMT-DISP2                                    DTSBE320
00849             ' BALN ' AMT-DISP1                                    DTSBE320
00850                                                                   DTSBE320
00851      IF L102-TAX-BALANCE-AMT < WRK-TOLERANCE-AMT AND              DTSBE320
00852              WRK-TIMELY-PAYMENTS > ZEROS                          DTSBE320
00853          MOVE 100 TO L102-LATE-PEN-CHARGE-CHNG                    DTSBE320
00854          MOVE L102-LATE-PEN-CHARGE-CHNG TO                        DTSBE320
00855               L102-LATE-PEN-WAIVE-CHNG                            DTSBE320
00856         MOVE L102-TAX-BALANCE-AMT      TO AMT-DISP2               DTSBE320
00857         MOVE WRK-TIMELY-PAYMENTS       TO AMT-DISP1               DTSBE320
00858          DISPLAY 'PEN WAIVE ' MPRF-EMP-NO ' ' MPRF-EMP-CLASS      DTSBE320
00859             '  RCVD ' L102-OR-RECEIVED-DATE                       DTSBE320
00860             '  BAL ' AMT-DISP2                                    DTSBE320
00861             ' PAID ' AMT-DISP1                                    DTSBE320
00862          PERFORM P2000-GENERATE-T026 THRU P2000-EXIT              DTSBE320
00863          PERFORM P2700-GENERATE-ELOG THRU P2700-EXIT              DTSBE320
00864          GO TO P0000-EXIT.                                        DTSBE320
00865                                                                   DTSBE320
00866                                                                   DTSBE320
00867      IF L102-TAX-BALANCE-AMT < WRK-TOLERANCE-AMT AND              DTSBE320
00868              WRK-TIMELY-PAYMENTS = ZEROS                          DTSBE320
00869          MOVE 100 TO L102-LATE-PEN-CHARGE-CHNG                    DTSBE320
00870         MOVE L102-TAX-CHARGED-AMT      TO AMT-DISP2               DTSBE320
00871         MOVE WRK-TIMELY-PAYMENTS       TO AMT-DISP1               DTSBE320
00872          DISPLAY 'PEN GIVEN ' MPRF-EMP-NO ' ' MPRF-EMP-CLASS      DTSBE320
00873             '  RCVD ' L102-OR-RECEIVED-DATE                       DTSBE320
00874             ' CHRG ' AMT-DISP2                                    DTSBE320
00875             ' PAID ' AMT-DISP1                                    DTSBE320
00876          SET GENERATE-LATE-PEN-LTR-88 TO TRUE                     DTSBE320
00877          ADD 1 TO WRK-PEN-LTR-CNT                                 DTSBE320
00878          PERFORM P2000-GENERATE-T026 THRU P2000-EXIT              DTSBE320
00879          PERFORM P2500-GENERATE-R320 THRU P2500-EXIT              DTSBE320
00880          PERFORM P2600-GENERATE-ELOG THRU P2600-EXIT              DTSBE320
00881          GO TO P0000-EXIT.                                        DTSBE320
00882                                                                   DTSBE320
00883      PERFORM S102-PEN-ASSESSMENT-RUN THRU S102-EXIT.              DTSBE320
00884                                                                   DTSBE320
00885      IF L102-LATE-PEN-CHARGE-CHNG > +0                            DTSBE320
00886        IF TF-RPT-FOUND-YES-88 (MPRF-EMP-NO)                       DTSBE320
00887          SET TF-BYPASSED-YES-88 (MPRF-EMP-NO) TO TRUE             DTSBE320
00888          ADD +1 TO WRK-BYPASS-CNT                                 DTSBE320
00889          GO TO P0000-EXIT                                         DTSBE320
00890        ELSE                                                       DTSBE320
00891         MOVE L102-TAX-CHARGED-AMT      TO AMT-DISP2               DTSBE320
00892         MOVE WRK-TIMELY-PAYMENTS       TO AMT-DISP1               DTSBE320
00893          DISPLAY 'PEN-102 ' MPRF-EMP-NO ' ' MPRF-EMP-CLASS        DTSBE320
00894             '  RCVD ' L102-OR-RECEIVED-DATE                       DTSBE320
00895             ' CHRG ' AMT-DISP2                                    DTSBE320
00896             ' PAID ' AMT-DISP1                                    DTSBE320
00897          SET GENERATE-LATE-PEN-LTR-88 TO TRUE                     DTSBE320
00898          ADD 1 TO WRK-PEN-LTR-CNT                                 DTSBE320
00899          PERFORM P2000-GENERATE-T026 THRU P2000-EXIT              DTSBE320
00900          PERFORM P2500-GENERATE-R320 THRU P2500-EXIT              DTSBE320
00901          PERFORM P2600-GENERATE-ELOG THRU P2600-EXIT              DTSBE320
00902          GO TO P0000-EXIT                                         DTSBE320
00903      END-IF.                                                      DTSBE320
00904                                                                   DTSBE320
00905                                                                   DTSBE320
00906      DISPLAY '*NO-PEN ' MPRF-EMP-NO ' ' MPRF-EMP-CLASS            DTSBE320
00907             '  RCVD ' L102-OR-RECEIVED-DATE                       DTSBE320
00908             ' CHRG ' AMT-DISP2                                    DTSBE320
00909             ' PAID ' AMT-DISP1.                                   DTSBE320
00910                                                                   DTSBE320
00911  P0000-EXIT.                                                      DTSBE320
00912      EXIT.                                                        DTSBE320
00913      EJECT                                                        DTSBE320
00914  P1000-INITIALIZE-L102.                                           DTSBE320
00915      MOVE MPRF-EMP-CLASS     TO L102-EMP-CLASS.                   DTSBE320
00916                                                                   DTSBE320
00917      MOVE +0 TO L102-TRAN-RECEIVED-DATE.                          DTSBE320
00918                                                                   DTSBE320
00919      SET L102-WAIVE-LATE-PEN-NO-88 TO TRUE.                       DTSBE320
00920                                                                   DTSBE320
00921      MOVE WRK-PARM-SUBJECT-YRQ TO L102-LAST-PEN-ASSESSED-YRQ.     DTSBE320
00922                                                                   DTSBE320
00923      MOVE +0 TO L102-OR-RECEIVED-DATE.                            DTSBE320
00924                                                                   DTSBE320
00925      MOVE LECM-CURR-RUN-DATE  TO L102-CURR-RUN-DATE.              DTSBE320
00926                                                                   DTSBE320
00927      IF MQTR-CURR-RCVD-88                                         DTSBE320
00928          MOVE LOW-VALUES TO MRPT-KEY-AREA                         DTSBE320
00929          MOVE MPRF-EMP-NO TO MRPT-EMP-NO                          DTSBE320
00930          SET MRPT-RPT-88 TO TRUE                                  DTSBE320
00931          MOVE WRK-PARM-SUBJECT-YRQ TO MRPT-YRQ                    DTSBE320
00932          MOVE MRPT-KEY-AREA TO MSKL-KEY-AREA                      DTSBE320
00933          PERFORM S910-START-BROWSE THRU S910-EXIT                 DTSBE320
00934          PERFORM P1100-MRPT-SCAN THRU P1100-EXIT                  DTSBE320
00935              UNTIL L910-NO-REC-88.                                DTSBE320
00936                                                                   DTSBE320
00937      MOVE WRK-PARM-SUBJECT-YRQ TO L102-MQTR-YRQ.                  DTSBE320
00938                                                                   DTSBE320
00939      DISPLAY ' EMP ' MQTR-EMP-NO  ' TAXDTE ' MQTR-TAX-DUE-DATE    DTSBE320
00940      MOVE MQTR-TAX-DUE-DATE TO L102-TAX-DUE-DATE.                 DTSBE320
00941                                                                   DTSBE320
00942      MOVE MQTR-RPT-DUE-DATE TO L102-RPT-DUE-DATE.                 DTSBE320
00943                                                                   DTSBE320
00944      MOVE +0 TO L102-LATE-PEN-CHARGED-AMT                         DTSBE320
00945                 L102-TAX-CHARGED-AMT                              DTSBE320
00946                 L102-TAX-BALANCE-AMT.                             DTSBE320
00947                                                                   DTSBE320
00948 **********************************************************        DTSBE320
00949 *  PRIOR TO 2008/1, UI TAX ONLY IS SUBJECT TO PENALTY.            DTSBE320
00950 *  FOR 2008/1 AND FOLLOWING, ADMIN ASSESS IS ALSO INCLUDED.       DTSBE320
00951 *  EXCLUDE ADMIN ASSESS FOR SELF-INSURED - THE DUE DATE           DTSBE320
00952 *  VARIES BASED ON WHEN WAGES ARE POSTED AND BILLS SENT.          DTSBE320
00953 *                                                                 DTSBE320
00954 *  UPDATE 02/19/2013:                                             DTSBE320
00955 *  THE BALANCE DUE IS CALCULATED FOR BOTH CONTRIBUTORY AND        DTSBE320
00956 *  REMIMBURSING EMPLOYERS BASED ON TIMELY PAYMENTS, NOT ON        DTSBE320
00957 *  THE BALANCE DUE AS OF THE RUN DATE.                            DTSBE320
00958 **********************************************************        DTSBE320
00959                                                                   DTSBE320
00960      PERFORM                                                      DTSBE320
00961        VARYING MQTR-ACCT-IDX FROM 1 BY 1                          DTSBE320
00962        UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                        DTSBE320
00963          IF MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX)                 DTSBE320
00964              ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                 DTSBE320
00965               TO L102-LATE-PEN-CHARGED-AMT                        DTSBE320
00966          END-IF                                                   DTSBE320
00967          IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX)                       DTSBE320
00968              ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                 DTSBE320
00969               TO L102-TAX-CHARGED-AMT                             DTSBE320
00970          END-IF                                                   DTSBE320
00971                                                                   DTSBE320
00972          IF MPRF-CLASS-RATED-88                                   DTSBE320
00973             IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX)                   DTSBE320
00974                IF MQTR-YRQ >= WRK-FIRST-PEN-INT-YRQ               DTSBE320
00975                   ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)            DTSBE320
00976                     TO L102-TAX-CHARGED-AMT                       DTSBE320
00977                END-IF                                             DTSBE320
00978             END-IF                                                DTSBE320
00979          END-IF                                                   DTSBE320
00980                                                                   DTSBE320
00981      END-PERFORM.                                                 DTSBE320
00982                                                                   DTSBE320
00983      MOVE ZERO                    TO WRK-TIMELY-PAYMENTS.         DTSBE320
00984      PERFORM P1200-PAYMENTS       THRU P1200-EXIT.                DTSBE320
00985      COMPUTE L102-TAX-BALANCE-AMT =                               DTSBE320
00986         (L102-TAX-CHARGED-AMT - WRK-TIMELY-PAYMENTS).             DTSBE320
00987                                                                   DTSBE320
00988      MOVE L102-TAX-BALANCE-AMT    TO WRK-TAX-BALANCE-AMT.         DTSBE320
00989      MOVE L102-TAX-CHARGED-AMT    TO WRK-TAX-CHARGED-AMT.         DTSBE320
00990                                                                   DTSBE320
00991      MOVE MQTR-PEN-AREA           TO L102-PEN-AREA.               DTSBE320
00992                                                                   DTSBE320
00993 **   MOVE WRK-TIMELY-PAYMENTS     TO L102-TIMELY-SI-PAY-AMT.      DTSBE320
00994                                                                   DTSBE320
00995  P1000-EXIT.                                                      DTSBE320
00996      EXIT.                                                        DTSBE320
00997      SKIP3                                                        DTSBE320
00998  P1100-MRPT-SCAN.                                                 DTSBE320
00999      MOVE MSKL-REC                  TO MRPT-REC.                  DTSBE320
01000                                                                   DTSBE320
01001      IF MRPT-YRQ NOT = WRK-PARM-SUBJECT-YRQ                       DTSBE320
01002         SET L910-NO-REC-88          TO TRUE                       DTSBE320
01003         GO TO P1100-EXIT                                          DTSBE320
01004      ELSE                                                         DTSBE320
01005         IF MRPT-ORIG-88                                           DTSBE320
01006            MOVE MRPT-RECEIVED-DATE  TO L102-OR-RECEIVED-DATE      DTSBE320
01007         END-IF                                                    DTSBE320
01008      END-IF.                                                      DTSBE320
01009                                                                   DTSBE320
01010      PERFORM S910-READ-NEXT         THRU S910-EXIT.               DTSBE320
01011                                                                   DTSBE320
01012  P1100-EXIT.                                                      DTSBE320
01013      EXIT.                                                        DTSBE320
01014                                                                   DTSBE320
01015  P1200-PAYMENTS.                                                  DTSBE320
01016 ***********************************************************       DTSBE320
01017 * INCLUDE ONLY PAYMENTS OF UI TAX IN TIMELY PAYMENT TOTAL.        DTSBE320
01018 ***********************************************************       DTSBE320
01019      MOVE LOW-VALUE      TO MDST-KEY-AREA.                        DTSBE320
01020      MOVE MPRF-EMP-NO    TO MDST-EMP-NO.                          DTSBE320
01021      SET MDST-DST-88     TO TRUE.                                 DTSBE320
01022      MOVE MDST-KEY-AREA  TO MSKL-KEY-AREA.                        DTSBE320
01023                                                                   DTSBE320
01024      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE320
01025      IF L910-OK-88                                                DTSBE320
01026          PERFORM P1210-SCAN-MDST  THRU P1210-EXIT                 DTSBE320
01027             UNTIL L910-NO-REC-88.                                 DTSBE320
01028                                                                   DTSBE320
01029  P1200-EXIT.                                                      DTSBE320
01030      EXIT.                                                        DTSBE320
01031                                                                   DTSBE320
01032  P1210-SCAN-MDST.                                                 DTSBE320
01033      MOVE MSKL-REC      TO MDST-REC.                              DTSBE320
01034                                                                   DTSBE320
01035      IF (MDST-YRQ = MQTR-YRQ                                      DTSBE320
01036      AND MDST-RECEIVED-DATE <= MQTR-TAX-DUE-DATE)                 DTSBE320
01037         PERFORM                                                   DTSBE320
01038           VARYING MDST-ACCT-IDX FROM +1 BY +1                     DTSBE320
01039           UNTIL MDST-ACCT-IDX > MDST-ACCT-CNT                     DTSBE320
01040             IF MDST-ACCT-UI-88 (MDST-ACCT-IDX)                    DTSBE320
01041                ADD MDST-AMT (MDST-ACCT-IDX)                       DTSBE320
01042                    TO WRK-TIMELY-PAYMENTS                         DTSBE320
01043             END-IF                                                DTSBE320
01044             IF MPRF-CLASS-RATED-88                                DTSBE320
01045                IF MDST-ACCT-SUR-88 (MDST-ACCT-IDX)                DTSBE320
01046                   ADD MDST-AMT (MDST-ACCT-IDX)                    DTSBE320
01047                    TO WRK-TIMELY-PAYMENTS                         DTSBE320
01048                END-IF                                             DTSBE320
01049             END-IF                                                DTSBE320
01050         END-PERFORM                                               DTSBE320
01051      END-IF.                                                      DTSBE320
01052                                                                   DTSBE320
01053      PERFORM S910-READ-NEXT  THRU S910-EXIT.                      DTSBE320
01054                                                                   DTSBE320
01055  P1210-EXIT.                                                      DTSBE320
01056      EXIT.                                                        DTSBE320
01057      EJECT                                                        DTSBE320
01058  P2000-GENERATE-T026.                                             DTSBE320
01059      MOVE MPRF-EMP-NO TO T026-EMP-NO.                             DTSBE320
01060                                                                   DTSBE320
01061      SET T026-LATE-PEN-CHG TO TRUE.                               DTSBE320
01062                                                                   DTSBE320
01063      MOVE MPRF-PRIMARY-NAME TO T026-NAME-CHECK.                   DTSBE320
01064                                                                   DTSBE320
01065      IF GENERATE-MISS-RPT-LTR-88                                  DTSBE320
01066         MOVE 100   TO L102-LATE-PEN-CHARGE-CHNG.                  DTSBE320
01067                                                                   DTSBE320
01068      MOVE L102-LATE-PEN-CHARGE-CHNG TO T026-AMT.                  DTSBE320
01069                                                                   DTSBE320
01070      MOVE +0 TO T026-RECEIVED-DATE.                               DTSBE320
01071                                                                   DTSBE320
01072      MOVE WRK-PARM-SUBJECT-YRQ TO T026-APPLIC-YRQ.                DTSBE320
01073                                                                   DTSBE320
01074      MOVE CACT-APPLIC-LATE-PEN TO T026-APPLIC-IND.                DTSBE320
01075                                                                   DTSBE320
01076      MOVE +0 TO T026-APPLIC-BATCH-NO                              DTSBE320
01077                 T026-APPLIC-ITEM-NO.                              DTSBE320
01078                                                                   DTSBE320
01079      MOVE +0 TO T026-DATE-1                                       DTSBE320
01080                 T026-DATE-2.                                      DTSBE320
01081                                                                   DTSBE320
01082      MOVE SPACE TO T026-INT-SPAN-IND.                             DTSBE320
01083                                                                   DTSBE320
01084      SET T026-NO-INT-RATE-88 TO TRUE.                             DTSBE320
01085                                                                   DTSBE320
01086      MOVE 'SYS' TO T026-RESPONSIBLE-ACTIVITY.                     DTSBE320
01087                                                                   DTSBE320
01088      MOVE SPACES TO T026-RESPONSIBLE-OP-ID.                       DTSBE320
01089                                                                   DTSBE320
01090      PERFORM S927-WRITE-T026 THRU S927-EXIT.                      DTSBE320
01091                                                                   DTSBE320
01092      IF GENERATE-MISS-RPT-LTR-88                                  DTSBE320
01093         GO TO P2000-EXIT.                                         DTSBE320
01094                                                                   DTSBE320
01095      IF L102-LATE-PEN-WAIVE-CHNG > +0                             DTSBE320
01096          SET T026-LATE-PEN-WAIVE TO TRUE                          DTSBE320
01097          MOVE L102-LATE-PEN-WAIVE-CHNG TO T026-AMT                DTSBE320
01098          PERFORM S927-WRITE-T026 THRU S927-EXIT.                  DTSBE320
01099                                                                   DTSBE320
01100      MOVE MPRF-EMP-NO                 TO W-PEN-EMP.               DTSBE320
01101      MOVE L102-TAX-BALANCE-AMT        TO W-PEN-BAL.               DTSBE320
01102      MOVE L102-LATE-PEN-CHARGE-CHNG   TO W-PEN-AMT.               DTSBE320
01103                                                                   DTSBE320
01104      WRITE PENALTY-REC                FROM W-PENALTY-REC.         DTSBE320
01105                                                                   DTSBE320
01106  P2000-EXIT.                                                      DTSBE320
01107      EXIT.                                                        DTSBE320
01108      EJECT                                                        DTSBE320
01109  P2500-GENERATE-R320.                                             DTSBE320
01110      MOVE MPRF-EMP-NO TO R320-EMP-NO.                             DTSBE320
01111      MOVE MQTR-YRQ    TO R320-YRQ.                                DTSBE320
01112                                                                   DTSBE320
01113      MOVE LECM-CURR-RUN-DATE  TO R320-MAIL-DATE.                  DTSBE320
01114                                                                   DTSBE320
01115      MOVE +0 TO R320-UI-TAX-CHARGED-AMT                           DTSBE320
01116                R320-PEN-CHARGED-AMT                               DTSBE320
01117                R320-UI-TAX-PAID-AMT                               DTSBE320
01118                R320-INT-CHARGED-AMT.                              DTSBE320
01119                                                                   DTSBE320
01120      IF GENERATE-MISS-RPT-LTR-88                                  DTSBE320
01121         SET R320-GENERATE-MISS-RPT-LTR-88 TO TRUE                 DTSBE320
01122         MOVE L004-QTR-DEFAULT-DUE-DATE    TO R320-TAX-DUE-DATE    DTSBE320
01123         GO TO P2500-GENERATE-R320-CONTINUE                        DTSBE320
01124      END-IF.                                                      DTSBE320
01125                                                                   DTSBE320
01126      SET R320-GENERATE-LATE-PEN-LTR-88 TO TRUE.                   DTSBE320
01127                                                                   DTSBE320
01128      MOVE R320-MAIL-DATE TO L001-FED-8-DATE-9                     DTSBE320
01129      PERFORM S001-FROM-FED-8 THRU S001-EXIT                       DTSBE320
01130      ADD +14 TO L001-JUL-ABS-DAY                                  DTSBE320
01131      PERFORM S001-FROM-ABS-DAY THRU S001-EXIT.                    DTSBE320
01132      MOVE L001-FED-8-DATE-9         TO R320-INT-COMP-DATE.        DTSBE320
01133      MOVE L102-LATE-PEN-CHARGE-CHNG TO R320-PEN-CHARGED-AMT.      DTSBE320
01134      MOVE L102-TAX-CHARGED-AMT      TO R320-UI-TAX-CHARGED-AMT.   DTSBE320
01135      MOVE WRK-TIMELY-PAYMENTS       TO R320-UI-TAX-PAID-AMT.      DTSBE320
01136      MOVE +0                        TO L101-PAID-CHNG.            DTSBE320
01137      MOVE R320-INT-COMP-DATE        TO L101-RECEIVED-DATE.        DTSBE320
01138      MOVE MQTR-TAX-DUE-DATE         TO R320-TAX-DUE-DATE.         DTSBE320
01139      MOVE MQTR-TAX-DUE-DATE         TO L101-TAX-DUE-DATE.         DTSBE320
01140      MOVE MQTR-INT-AREA             TO L101-INT-AREA.             DTSBE320
01141                                                                   DTSBE320
01142      PERFORM P2510-MQTR-ACCT-LOOP THRU P2510-EXIT                 DTSBE320
01143          VARYING MQTR-ACCT-IDX FROM 1 BY 1                        DTSBE320
01144          UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT.                     DTSBE320
01145                                                                   DTSBE320
01146      PERFORM S101-PER-MONTH-NO THRU S101-EXIT.                    DTSBE320
01147      ADD L101-INT-CHARGE-CHNG TO R320-INT-CHARGED-AMT.            DTSBE320
01148      DISPLAY 'R320-EMP-NO         ' R320-EMP-NO.                     CL**5
01149      DISPLAY 'R320-INT-CHARGED-AMT' R320-INT-CHARGED-AMT.            CL**4
01150  P2500-GENERATE-R320-CONTINUE.                                    DTSBE320
01151                                                                   DTSBE320
01152      SET L111-LOOKUP-TAD-88 TO TRUE.                              DTSBE320
01153                                                                   DTSBE320
01154      SET L111-ID-NO-TAD-MAIL-88 TO TRUE.                          DTSBE320
01155                                                                   DTSBE320
01156      PERFORM S111-LOOKUP-ADDR THRU S111-EXIT.                     DTSBE320
01157                                                                   DTSBE320
01158      IF L111-ADDR-FOUND-88                                        DTSBE320
01159          MOVE L111-ADDR-TYPE TO L112-ADDR-TYPE                    DTSBE320
01160          SET L112-ANCHOR-LAST-88 TO TRUE                          DTSBE320
01161          MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME              DTSBE320
01162          MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA          DTSBE320
01163          PERFORM S112-FORMAT-ADDR THRU S112-EXIT                  DTSBE320
01164      ELSE                                                         DTSBE320
01165          MOVE ALL '?' TO L112-ADDRESS                             DTSBE320
01166                          L112-MAILING-ADDRESS.                    DTSBE320
01167      MOVE L112-MAILING-ADDRESS TO R320-FMT-ADDR.                  DTSBE320
01168                                                                   DTSBE320
01169      MOVE L112-ZIP TO R320-ZIP.                                   DTSBE320
01170                                                                   DTSBE320
01171      MOVE L112-ADVANCED-BARCODE TO R320-ADVANCED-BARCODE.         DTSBE320
01172                                                                   DTSBE320
01173         IF MPRF-CLASS-RATED-88                                    DTSBE320
01174            SET R320-RATED-FILING-88 TO TRUE                       DTSBE320
01175         ELSE                                                      DTSBE320
01176            SET R320-SI-FILING-88 TO TRUE.                         DTSBE320
01177                                                                   DTSBE320
01178      PERFORM S946-WRITE-R320 THRU S946-EXIT.                      DTSBE320
01179                                                                   DTSBE320
01180  P2500-EXIT.                                                      DTSBE320
01181      EXIT.                                                        DTSBE320
01182      EJECT                                                        DTSBE320
01183  P2510-MQTR-ACCT-LOOP.                                            DTSBE320
01184      IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX)                           DTSBE320
01185          ADD MQTR-PAID-AMT (MQTR-ACCT-IDX)                        DTSBE320
01186           TO R320-UI-TAX-PAID-AMT.                                DTSBE320
01187 **   ELSE                                                         DTSBE320
01188      IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX)                           DTSBE320
01189 **       ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                     DTSBE320
01190          ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX)                     DTSBE320
01191           TO L101-PAID-CHNG.                                      DTSBE320
01192 **   ELSE                                                         DTSBE320
01193      IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX)                          DTSBE320
01194 **   IF MQTR-ACCT-TAX-88 (MQTR-ACCT-IDX)                          DTSBE320
01195          IF MQTR-YRQ >= WRK-FIRST-PEN-INT-YRQ                     DTSBE320
01196             ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX)                  DTSBE320
01197               TO L101-PAID-CHNG                                   DTSBE320
01198          END-IF.                                                  DTSBE320
01199 **   ELSE                                                         DTSBE320
01200      IF MQTR-ACCT-INT-88 (MQTR-ACCT-IDX)                          DTSBE320
01201          ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                     DTSBE320
01202           TO R320-INT-CHARGED-AMT.                                DTSBE320
01203 **   ELSE                                                         DTSBE320
01204      IF (MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX))                   DTSBE320
01205             OR                                                    DTSBE320
01206         (MQTR-ACCT-NSF-PEN-88 (MQTR-ACCT-IDX))                    DTSBE320
01207             OR                                                    DTSBE320
01208         (MQTR-ACCT-MISC-PEN-88 (MQTR-ACCT-IDX))                   DTSBE320
01209          ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                     DTSBE320
01210           TO R320-PEN-CHARGED-AMT.                                DTSBE320
01211  P2510-EXIT.                                                      DTSBE320
01212      EXIT.                                                        DTSBE320
01213      EJECT                                                        DTSBE320
01214  P2600-GENERATE-ELOG.                                             DTSBE320
01215       MOVE LOW-VALUES TO MEVL-REC.                                DTSBE320
01216         MOVE WRK-SUBJECT-SLASH-QTR TO EVL-SLASH-QTR               DTSBE320
01217         MOVE SPACES TO EVL-ADDR-TYPE                              DTSBE320
01218         MOVE SPACES TO EVL-ADDR-ID-NO                             DTSBE320
01219                                                                   DTSBE320
01220       ADD +1000 TO LECM-EMP-ABSTIME.                              DTSBE320
01221       MOVE LECM-EMP-ABSTIME TO L005-ABSTIME.                      DTSBE320
01222                                                                   DTSBE320
01223       PERFORM S005-FROM-ABSTIME THRU S005-EXIT.                   DTSBE320
01224                                                                   DTSBE320
01225       MOVE MPRF-EMP-NO TO MEVL-EMP-NO.                            DTSBE320
01226                                                                   DTSBE320
01227       SET MEVL-EVL-88 TO TRUE.                                    DTSBE320
01228                                                                   DTSBE320
01229       MOVE L005-DATE TO MEVL-DATE.                                DTSBE320
01230                                                                   DTSBE320
01231       MOVE L005-TIME TO MEVL-TIME.                                DTSBE320
01232       MOVE ZEROS TO MEVL-PURGE-DATE.                              DTSBE320
01233                                                                   DTSBE320
01234       IF R320-GENERATE-MISS-RPT-LTR-88                            DTSBE320
01235         MOVE EVL-TEXT-MISS-LTR  TO  EVL-TEXT                      DTSBE320
01236       ELSE                                                        DTSBE320
01237         MOVE EVL-TEXT-PEN-LTR  TO  EVL-TEXT.                      DTSBE320
01238                                                                   DTSBE320
01239       MOVE EVL-LOG-AREA       TO MEVL-TEXT.                       DTSBE320
01240                                                                   DTSBE320
01241       SET MEVL-SOURCE-SYSTEM-88 TO TRUE.                          DTSBE320
01242                                                                   DTSBE320
01243       SET MEVL-NOT-CONVERTED-88 TO TRUE.                          DTSBE320
01244                                                                   DTSBE320
01245       MOVE LECM-CURR-RUN-DATE TO MEVL-ESTB-DATE                   DTSBE320
01246                                 MEVL-CHNG-DATE.                   DTSBE320
01247                                                                   DTSBE320
01248                                                                   DTSBE320
01249       MOVE MEVL-REC TO MSKL-REC.                                  DTSBE320
01250                                                                   DTSBE320
01251       PERFORM S910-WRITE THRU S910-EXIT.                          DTSBE320
01252  P2600-EXIT.                                                      DTSBE320
01253        EXIT.                                                      DTSBE320
01254  P2700-GENERATE-ELOG.                                             DTSBE320
01255       MOVE LOW-VALUES TO MEVL-REC.                                DTSBE320
01256         MOVE WRK-SUBJECT-SLASH-QTR TO WAV-SLASH-QTR               DTSBE320
01257         MOVE SPACES TO EVL-ADDR-TYPE                              DTSBE320
01258         MOVE SPACES TO EVL-ADDR-ID-NO                             DTSBE320
01259                                                                   DTSBE320
01260       ADD +1000 TO LECM-EMP-ABSTIME.                              DTSBE320
01261       MOVE LECM-EMP-ABSTIME TO L005-ABSTIME.                      DTSBE320
01262                                                                   DTSBE320
01263       PERFORM S005-FROM-ABSTIME THRU S005-EXIT.                   DTSBE320
01264                                                                   DTSBE320
01265       MOVE MPRF-EMP-NO TO MEVL-EMP-NO.                            DTSBE320
01266                                                                   DTSBE320
01267       SET MEVL-EVL-88 TO TRUE.                                    DTSBE320
01268                                                                   DTSBE320
01269       MOVE L005-DATE TO MEVL-DATE.                                DTSBE320
01270                                                                   DTSBE320
01271       MOVE L005-TIME TO MEVL-TIME.                                DTSBE320
01272       MOVE ZEROS TO MEVL-PURGE-DATE.                              DTSBE320
01273                                                                   DTSBE320
01274       MOVE WAV-LOG-AREA       TO MEVL-TEXT.                       DTSBE320
01275                                                                   DTSBE320
01276       SET MEVL-SOURCE-SYSTEM-88 TO TRUE.                          DTSBE320
01277                                                                   DTSBE320
01278       SET MEVL-NOT-CONVERTED-88 TO TRUE.                          DTSBE320
01279                                                                   DTSBE320
01280       MOVE LECM-CURR-RUN-DATE TO MEVL-ESTB-DATE                   DTSBE320
01281                                 MEVL-CHNG-DATE.                   DTSBE320
01282                                                                   DTSBE320
01283                                                                   DTSBE320
01284       MOVE MEVL-REC TO MSKL-REC.                                  DTSBE320
01285                                                                   DTSBE320
01286       PERFORM S910-WRITE THRU S910-EXIT.                          DTSBE320
01287  P2700-EXIT.                                                      DTSBE320
01288        EXIT.                                                      DTSBE320
01289        EJECT                                                      DTSBE320
01290  P3000-ADD-FQTR.                                                  DTSBE320
01291        MOVE LOW-VALUES TO FQTR-DATA-AREA                          DTSBE320
01292        MOVE +0 TO FQTR-UC30-MASS-MAIL-DATE                        DTSBE320
01293                   FQTR-SELF-INS-TAX-DUE-DATE                      DTSBE320
01294 *                 FQTR-SELF-INS-LATE-PEN-DATE                     DTSBE320
01295                   FQTR-LATE-PEN-ASSESSED-DATE                     DTSBE320
01296                   FQTR-UC30-FIRST-DEL-DATE                        DTSBE320
01297                   FQTR-UC30-FINAL-DEL-DATE                        DTSBE320
01298                   FQTR-UC30-FINAL-ACTION-DATE.                    DTSBE320
01299        MOVE LECM-CURR-RUN-DATE TO FQTR-ESTB-DATE                  DTSBE320
01300                                   FQTR-CHNG-DATE.                 DTSBE320
01301 *      IF WRK-RUN-TYPE-SELF-INS-88                                DTSBE320
01302 *         MOVE LECM-CURR-RUN-DATE                                 DTSBE320
01303 *                 TO FQTR-SELF-INS-LATE-PEN-DATE                  DTSBE320
01304 *      ELSE                                                       DTSBE320
01305           MOVE LECM-CURR-RUN-DATE                                 DTSBE320
01306                   TO FQTR-LATE-PEN-ASSESSED-DATE.                 DTSBE320
01307        MOVE FQTR-REC TO FSKL-REC                                  DTSBE320
01308        PERFORM S931-WRITE THRU S931-EXIT.                         DTSBE320
01309  P3000-EXIT.                                                      DTSBE320
01310      EXIT.                                                        DTSBE320
01311      EJECT                                                        DTSBE320
01312  P3100-UPD-FQTR.                                                  DTSBE320
01313          MOVE FSKL-REC TO FQTR-REC                                DTSBE320
01314 *      IF WRK-RUN-TYPE-SELF-INS-88                                DTSBE320
01315 *         MOVE LECM-CURR-RUN-DATE                                 DTSBE320
01316 *                 TO FQTR-SELF-INS-LATE-PEN-DATE                  DTSBE320
01317 *      ELSE                                                       DTSBE320
01318           MOVE LECM-CURR-RUN-DATE                                 DTSBE320
01319                   TO FQTR-LATE-PEN-ASSESSED-DATE.                 DTSBE320
01320          MOVE LECM-CURR-RUN-DATE                                  DTSBE320
01321            TO FQTR-CHNG-DATE                                      DTSBE320
01322          MOVE FQTR-REC TO FSKL-REC                                DTSBE320
01323          PERFORM S931-REWRITE THRU S931-EXIT.                     DTSBE320
01324                                                                   DTSBE320
01325  P3100-EXIT.                                                      DTSBE320
01326      EXIT.                                                        DTSBE320
01327      EJECT                                                        DTSBE320
01328                                                                   DTSBE320
01329  T0000-TERMINATE.                                                 DTSBE320
01330      MOVE LOW-VALUES TO FQTR-KEY-AREA.                            DTSBE320
01331                                                                   DTSBE320
01332      SET FQTR-QTR-88 TO TRUE.                                     DTSBE320
01333                                                                   DTSBE320
01334      MOVE WRK-PARM-SUBJECT-YRQ TO FQTR-YRQ.                       DTSBE320
01335                                                                   DTSBE320
01336      MOVE FQTR-KEY-AREA TO FSKL-KEY-AREA.                         DTSBE320
01337                                                                   DTSBE320
01338      PERFORM S931-READ THRU S931-EXIT.                            DTSBE320
01339                                                                   DTSBE320
01340      IF L931-NO-REC-88                                            DTSBE320
01341         PERFORM P3000-ADD-FQTR THRU P3000-EXIT                    DTSBE320
01342      ELSE                                                         DTSBE320
01343         PERFORM P3100-UPD-FQTR THRU P3100-EXIT.                   DTSBE320
01344      MOVE LOW-VALUES TO MHDR-KEY-AREA.                            DTSBE320
01345                                                                   DTSBE320
01346      MOVE +0 TO MHDR-EMP-NO.                                      DTSBE320
01347                                                                   DTSBE320
01348      SET MHDR-HDR-88 TO TRUE.                                     DTSBE320
01349                                                                   DTSBE320
01350      MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE320
01351                                                                   DTSBE320
01352      PERFORM S910-READ THRU S910-EXIT.                            DTSBE320
01353                                                                   DTSBE320
01354      IF L910-NO-REC-88                                            DTSBE320
01355          MOVE 'MHDR RECORD NOT FOUND'                             DTSBE320
01356            TO ABEND-MSG                                           DTSBE320
01357          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE320
01358                                                                   DTSBE320
01359                                                                   DTSBE320
01360      MOVE MSKL-REC TO MHDR-REC.                                   DTSBE320
01361                                                                   DTSBE320
01362      IF WRK-PARM-SUBJECT-YRQ > MHDR-LAST-PEN-ASSESSED-YRQ         DTSBE320
01363          MOVE WRK-PARM-SUBJECT-YRQ                                DTSBE320
01364            TO MHDR-LAST-PEN-ASSESSED-YRQ                          DTSBE320
01365          MOVE LECM-CURR-RUN-DATE TO MHDR-CHNG-DATE.               DTSBE320
01366                                                                   DTSBE320
01367      MOVE MHDR-REC TO MSKL-REC.                                   DTSBE320
01368                                                                   DTSBE320
01369      PERFORM S910-REWRITE THRU S910-EXIT.                         DTSBE320
01370                                                                   DTSBE320
01371      CLOSE PENALTY-FILE EMP-RPT-FILE.                             DTSBE320
01372                                                                   DTSBE320
01373      DISPLAY 'BE320 TERMINATION '.                                DTSBE320
01374      DISPLAY '  PENALTIES ASSESSED: ' WRK-PEN-CNT.                DTSBE320
01375      DISPLAY '  PENALTY LETTER CNT: ' WRK-PEN-LTR-CNT             DTSBE320
01376      DISPLAY 'LATE REP  LETTER CNT: ' WRK-LATE-LTR-CNT.           DTSBE320
01377      DISPLAY SPACE.                                               DTSBE320
01378      DISPLAY 'TF TABLE ENTRIES   :     ' WRK-TF-TABLE-CNT.        DTSBE320
01379      DISPLAY 'TF BYPASSED        :     ' WRK-BYPASS-CNT.          DTSBE320
01380                                                                   DTSBE320
01381 *    DISPLAY 'NOT BYPASSED       :     '.                            CL**3
01382 *    PERFORM                                                         CL**3
01383 *       VARYING TF-SUB FROM +1 BY +1                                 CL**3
01384 *       UNTIL TF-SUB > TF-MAX                                        CL**3
01385 *         IF TF-RPT-FOUND-YES-88  (TF-SUB)                           CL**3
01386 *          IF TF-BYPASSED-NO-88  (TF-SUB)                            CL**3
01387 *             DISPLAY TF-SUB                                         CL**3
01388 *          END-IF                                                    CL**3
01389 *         END-IF                                                     CL**3
01390 *    END-PERFORM.                                                    CL**3
01391                                                                   DTSBE320
01392  T0000-EXIT.                                                      DTSBE320
01393      EXIT.                                                        DTSBE320
01394      EJECT                                                        DTSBE320
01395  S001-FROM-FED-8.                                                 DTSBE320
01396      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE320
01397      GO TO S001-DATE.                                             DTSBE320
01398                                                                   DTSBE320
01399  S001-FROM-CAL-6.                                                 DTSBE320
01400      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBE320
01401      GO TO S001-DATE.                                             DTSBE320
01402                                                                   DTSBE320
01403  S001-FROM-ABS-DAY.                                               DTSBE320
01404      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBE320
01405      GO TO S001-DATE.                                             DTSBE320
01406                                                                   DTSBE320
01407  S001-DATE.                                                       DTSBE320
01408      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBE320
01409  S001-EXIT.                                                       DTSBE320
01410      EXIT.                                                        DTSBE320
01411      SKIP3                                                        DTSBE320
01412  S004-FROM-5.                                                     DTSBE320
01413      SET L004-FROM-5 TO TRUE.                                     DTSBE320
01414      GO TO S004-QTR.                                              DTSBE320
01415                                                                   DTSBE320
01416  S004-FROM-ABS.                                                   DTSBE320
01417      SET L004-FROM-ABS TO TRUE.                                   DTSBE320
01418      GO TO S004-QTR.                                              DTSBE320
01419                                                                   DTSBE320
01420  S004-FROM-3.                                                     DTSBE320
01421      SET L004-FROM-3 TO TRUE.                                     DTSBE320
01422      GO TO S004-QTR.                                              DTSBE320
01423                                                                   DTSBE320
01424  S004-QTR.                                                        DTSBE320
01425      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBE320
01426  S004-EXIT.                                                       DTSBE320
01427      EXIT.                                                        DTSBE320
01428      SKIP3                                                        DTSBE320
01429  S005-FROM-ABSTIME.                                               DTSBE320
01430       SET L005-FROM-ABSTIME TO TRUE.                              DTSBE320
01431       GO TO S005-ABSTIME.                                         DTSBE320
01432                                                                   DTSBE320
01433  S005-ABSTIME.                                                    DTSBE320
01434       CALL 'DTSBU005' USING L005-LINK-AREA.                       DTSBE320
01435  S005-EXIT.                                                       DTSBE320
01436       EXIT.                                                       DTSBE320
01437  S101-PER-MONTH-NO.                                               DTSBE320
01438       SET L101-PER-MONTH-NO-88 TO TRUE.                           DTSBE320
01439      GO TO S101-INT-COMP.                                         DTSBE320
01440                                                                   DTSBE320
01441  S101-INT-COMP.                                                   DTSBE320
01442      CALL 'DTSBU101' USING L101-LINK-AREA.                        DTSBE320
01443  S101-EXIT.                                                       DTSBE320
01444      EXIT.                                                        DTSBE320
01445  S102-PEN-ASSESSMENT-RUN.                                         DTSBE320
01446      SET L102-PEN-ASSESSMENT-RUN-88 TO TRUE.                      DTSBE320
01447      GO TO S102-PENALTY-COMPUTATION.                              DTSBE320
01448                                                                   DTSBE320
01449  S102-PENALTY-COMPUTATION.                                        DTSBE320
01450      CALL 'DTSBU102' USING L102-LINK-AREA.                        DTSBE320
01451  S102-EXIT.                                                       DTSBE320
01452      EXIT.                                                        DTSBE320
01453      SKIP3                                                        DTSBE320
01454  S109-FIRST-PEN-INT-YRQ.                                          DTSBE320
01455      SET L109-CMND-PEN-INT-QTR-88 TO TRUE.                        DTSBE320
01456      GO TO S109-SUR-RATE.                                         DTSBE320
01457                                                                   DTSBE320
01458  S109-SUR-RATE.                                                   DTSBE320
01459      CALL 'DTSBU109' USING L109-LINK-AREA.                        DTSBE320
01460  S109-EXIT.                                                       DTSBE320
01461      EXIT.                                                        DTSBE320
01462                                                                   DTSBE320
01463  S111-LOOKUP-ADDR.                                                DTSBE320
01464      MOVE MPRF-EMP-NO TO L111-EMP-NO.                             DTSBE320
01465                                                                   DTSBE320
01466      CALL 'DTSBU111' USING L111-LINK-AREA.                        DTSBE320
01467  S111-EXIT.                                                       DTSBE320
01468      EXIT.                                                        DTSBE320
01469      SKIP3                                                        DTSBE320
01470  S112-FORMAT-ADDR.                                                DTSBE320
01471      CALL 'DTSBU112' USING L112-LINK-AREA.                        DTSBE320
01472  S112-EXIT.                                                       DTSBE320
01473      EXIT.                                                        DTSBE320
01474      SKIP3                                                        DTSBE320
01475  S410-FILE-SCHED.                                                 DTSBE320
01476      CALL 'DTSBU410' USING L410-LINK-AREA.                        DTSBE320
01477  S410-EXIT.                                                       DTSBE320
01478      EXIT.                                                        DTSBE320
01479      SKIP3                                                        DTSBE320
01480  S516-LIABILITY.                                                  DTSBE320
01481       CALL 'DTSBU516' USING L516-LINK-AREA                        DTSBE320
01482                             MPRF-LINK-REC.                        DTSBE320
01483  S516-EXIT.                                                       DTSBE320
01484       EXIT.                                                       DTSBE320
01485       SKIP3                                                       DTSBE320
01486  S910-READ.                                                       DTSBE320
01487      SET L910-READ-88 TO TRUE.                                    DTSBE320
01488      GO TO S910-MSTR-IO.                                          DTSBE320
01489                                                                   DTSBE320
01490  S910-START-BROWSE.                                               DTSBE320
01491      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE320
01492      GO TO S910-MSTR-IO.                                          DTSBE320
01493                                                                   DTSBE320
01494  S910-READ-NEXT.                                                  DTSBE320
01495      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE320
01496      GO TO S910-MSTR-IO.                                          DTSBE320
01497                                                                   DTSBE320
01498 *S910-COUNT.                                                      DTSBE320
01499 *****SET L910-COUNT-88 TO TRUE.                                   DTSBE320
01500 *****GO TO S910-MSTR-IO.                                          DTSBE320
01501                                                                   DTSBE320
01502  S910-WRITE.                                                      DTSBE320
01503      SET L910-WRITE-88 TO TRUE.                                   DTSBE320
01504      SET LECM-EMP-UPDATED-YES-88 TO TRUE.                         DTSBE320
01505      GO TO S910-MSTR-IO.                                          DTSBE320
01506                                                                   DTSBE320
01507  S910-REWRITE.                                                    DTSBE320
01508      SET L910-REWRITE-88 TO TRUE.                                 DTSBE320
01509      SET LECM-EMP-UPDATED-YES-88 TO TRUE.                         DTSBE320
01510      GO TO S910-MSTR-IO.                                          DTSBE320
01511                                                                   DTSBE320
01512 *S910-DELETE.                                                     DTSBE320
01513 *****SET L910-DELETE-88 TO TRUE.                                  DTSBE320
01514 *****SET LECM-EMP-UPDATED-YES-88 TO TRUE.                         DTSBE320
01515 *****GO TO S910-MSTR-IO.                                          DTSBE320
01516                                                                   DTSBE320
01517  S910-MSTR-IO.                                                    DTSBE320
01518      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBE320
01519                            MSKL-REC.                              DTSBE320
01520  S910-EXIT.                                                       DTSBE320
01521      EXIT.                                                        DTSBE320
01522      SKIP3                                                        DTSBE320
01523  S923-OPEN-READ.                                                  DTSBE320
01524      SET L923-OPEN-READ-88 TO TRUE.                               DTSBE320
01525      GO TO S923-ATC-IO.                                           DTSBE320
01526                                                                   DTSBE320
01527  S923-START-BROWSE.                                               DTSBE320
01528      SET L923-START-BROWSE-88 TO TRUE.                            DTSBE320
01529      GO TO S923-ATC-IO.                                           DTSBE320
01530                                                                   DTSBE320
01531  S923-READ-NEXT.                                                  DTSBE320
01532      SET L923-READ-NEXT-88 TO TRUE.                               DTSBE320
01533      GO TO S923-ATC-IO.                                           DTSBE320
01534                                                                   DTSBE320
01535  S923-CLOSE.                                                      DTSBE320
01536      SET L923-CLOSE-88     TO TRUE.                               DTSBE320
01537      GO TO S923-ATC-IO.                                           DTSBE320
01538                                                                   DTSBE320
01539  S923-ATC-IO.                                                     DTSBE320
01540      CALL 'DTSBU923' USING L923-LINK-AREA                         DTSBE320
01541                            ASKL-REC.                              DTSBE320
01542  S923-EXIT.                                                       DTSBE320
01543      EXIT.                                                        DTSBE320
01544                                                                   DTSBE320
01545  S931-READ.                                                       DTSBE320
01546      SET L931-READ-88 TO TRUE.                                    DTSBE320
01547      GO TO S931-REF-I.                                            DTSBE320
01548                                                                   DTSBE320
01549 *S931-START-BROWSE.                                               DTSBE320
01550 *****SET L931-START-BROWSE-88 TO TRUE.                            DTSBE320
01551 *****GO TO S931-REF-I.                                            DTSBE320
01552                                                                   DTSBE320
01553 *S931-READ-NEXT.                                                  DTSBE320
01554 *****SET L931-READ-NEXT-88 TO TRUE.                               DTSBE320
01555 *****GO TO S931-REF-I.                                            DTSBE320
01556                                                                   DTSBE320
01557  S931-WRITE.                                                      DTSBE320
01558      SET L931-WRITE-88 TO TRUE.                                   DTSBE320
01559      GO TO S931-REF-I.                                            DTSBE320
01560                                                                   DTSBE320
01561  S931-REWRITE.                                                    DTSBE320
01562      SET L931-REWRITE-88 TO TRUE.                                 DTSBE320
01563      GO TO S931-REF-I.                                            DTSBE320
01564                                                                   DTSBE320
01565 *S931-DELETE.                                                     DTSBE320
01566 *****SET L931-DELETE-88 TO TRUE.                                  DTSBE320
01567 *****GO TO S931-REF-I.                                            DTSBE320
01568                                                                   DTSBE320
01569  S931-REF-I.                                                      DTSBE320
01570      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBE320
01571                            FSKL-REC.                              DTSBE320
01572  S931-EXIT.                                                       DTSBE320
01573      EXIT.                                                        DTSBE320
01574      SKIP3                                                        DTSBE320
01575  S946-WRITE-R907.                                                 DTSBE320
01576      CALL 'DTSBU946' USING R907-REC.                              DTSBE320
01577      GO TO S946-EXIT.                                             DTSBE320
01578  S946-WRITE-R320.                                                 DTSBE320
01579      CALL 'DTSBU946' USING R320-REC.                              DTSBE320
01580      GO TO S946-EXIT.                                             DTSBE320
01581                                                                   DTSBE320
01582  S946-EXIT.                                                       DTSBE320
01583      EXIT.                                                        DTSBE320
01584      SKIP3                                                        DTSBE320
01585  S927-WRITE-T026.                                                 DTSBE320
01586      SET L927-WRITE-88 TO TRUE.                                   DTSBE320
01587      CALL 'DTSBU927' USING L927-LINK-AREA                         DTSBE320
01588                            T026-REC.                              DTSBE320
01589      GO TO S927-EXIT.                                             DTSBE320
01590                                                                   DTSBE320
01591  S927-EXIT.                                                       DTSBE320
01592      EXIT.                                                        DTSBE320
01593      SKIP3                                                        DTSBE320
01594  S999-ABEND.                                                      DTSBE320
01595      DISPLAY '*** DTSBE320 ABENDING.  '                           DTSBE320
01596              ABEND-MSG.                                           DTSBE320
01597                                                                   DTSBE320
01598      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBE320
01599  S999-EXIT.                                                       DTSBE320
01600      EXIT.                                                        DTSBE320
