00001  IDENTIFICATION DIVISION.                                         11/14/13
00002  PROGRAM-ID.             DTSBE418.                                DTSBE418
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV004
00004  DATE-WRITTEN.           AUGUST 1994.                             DTSBE418
00005  DATE-COMPILED.                                                   DTSBE418
00006      SKIP3                                                        DTSBE418
00007 *****                                                             DTSBE418
00008 *                                                                 DTSBE418
00009 *       THE DELINQUENT REPORT EXTRACT PROCESS IS DESIGNED TO RUN  DTSBE418
00010 *       IMMEDIATELY FOLLOWING A DAILY UPDATE RUN.                 DTSBE418
00011 *                                                                 DTSBE418
00012 *       IF THE DELINQUENT REPORT EXTRACT PROCESS DOES NOT RUN     DTSBE418
00013 *       IMMEDIATELY FOLLOWING A DAILY UPDATE RUN (AND ON-LINE     DTSBE418
00014 *       UPDATES OCCURRED BETWEEN THE DAILY UPDATE RUN AND THE     DTSBE418
00015 *       DELINQUENT REPORT EXTRACT PROCESS), THEN "INCONSISTENT"   DTSBE418
00016 *       MQTR-CURR-RPT-TYPE VALUES MAY BE ENCOUNTERED AND          DTSBE418
00017 *       REPORTED.                                                 DTSBE418
00018 *                                                                 DTSBE418
00019 *    NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE  DTSBE418
00020 *    NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE  DTSBE418
00021 *    NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE NOTE  DTSBE418
00022 *                                                                 DTSBE418
00023 *                                                                 DTSBE418
00024 *    FUNCTION:  DELINQUENT REPORT EXTRACT.                        DTSBE418
00025 *                                                                 DTSBE418
00026 *                                                                 DTSBE418
00027 *    MODIFICATION LOG:                                            DTSBE418
00028 *                                                                 DTSBE418
00029 *    03/09/1999  REVIEWED AND MODIFIED FOR DC.                    DTSBE418
00030 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBE418
00031 *                                                                 DTSBE418
00032 *    05/24/1999  PICKUP MODIFICATION.  FIRST PURSUED YRQ MUST BE  DTSBE418
00033 *                GREATER THAN LECM-PICKUP-YRQ.                    DTSBE418
00034 *                REFERENCE: PICKUP DIR          PROGRAMMER: EHH   DTSBE418
00035 *                                                                 DTSBE418
00036 *                                                                 DTSBE418
00037 *    05/10/2002  MODIFIED PROGRAM TO BYPASS ANNUAL FILERS         DTSBE418
00038 *                REFERENCE: HOUSEHOLD           PROGRAMMER: ZL1   DTSBE418
00039 *                                                                 DTSBE418
00040 *    08/15/2002  MODIFIED FOR NEW VERSION OF DTSIL516. THE        DTSBE418
00041 *                PROGRAM WILL WRITE AN R907 RECORD IF IT ADDS     DTSBE418
00042 *                AN MQTR BUT THE RATE IS ESTIMATED.               DTSBE418
00043 *                REFERENCE: HOUSEHOLD           PROGRAMMER: GD    DTSBE418
00044 *                                                                 DTSBE418
00045 *    05/12/2004  MODIFIED TO WRITE R716 RECORDS ONLY DURING THE   DTSBE418
00046 *                DELINQUENCY RUN FOR THE FIRST QUARTER.           DTSBE418
00047 *                REFERENCE: TPS REQUIREMENTS    PROGRAMMER: GB    DTSBE418
00048 *    10/25/04    ABOVE REQUEST CANCELLED TO ALLOW ALL QUARTERS    DTSBE418
00049 *                TO PROCESS.                                      DTSBE418
00050 *                                                                 DTSBE418
00051 *    04/15/2005  MODIFIED FOR NEW PENALTY PROCESS. PENALTY        DTSBE418
00052 *                ASSESSED FOR MISSING REPORTS.                    DTSBE418
00053 *                REFERENCE: DIR 107             PROGRAMMER: GD    DTSBE418
00054 *                                                                 DTSBE418
00055 *    11/22/05  ADD MPRF-RETURN-MAIL-IND. IF MPRF-RETURN-MAIL-YES-8DTSBE418
00056 *              ON MPRF-EMP-NO, BY PASS THAT ACCOUNT EXTRACT INFO- DTSBE418
00057 *              MATION AND SEND NO MISSING QUARTERLY REPORT LETTER DTSBE418
00058 *              TO THAT EMPLOYER.                                  DTSBE418
00059 *              WORK ORDER:                      PROGRAMMER: RW1   DTSBE418
00060 *                                                                 DTSBE418
00061 *    03/07/06  ADDED PROCESSING TO CHECK FOR UNPROCESSED REPORTS IDTSBE418
00062 *              THE TRANSACTION FILE (ATC). DO NOT COUNT AS        DTSBE418
00063 *              DELINQUENT IF A REPORT EXISTS IN THE TRANSACTION   DTSBE418
00064 *              FILE FOR THE EMPLOYER.                             DTSBE418
00065 *              WORK ORDER:                      PROGRAMMER: GD    DTSBE418
00066 *                                                                 DTSBE418
00067 *    09/10/07  PENALTY AND INTEREST CALCULATIONS MODIFIED TO      DTSBE418
00068 *              EXCLUDE SUR-TAX. P4100 P4111.                      DTSBE418
00069 *              WORK ORDER:                      PROGRAMMER: ZL1   DTSBE418
00070 *                                                                 DTSBE418
00071 *    09/10/07  MODIFIED P4100 TO PASS LECM-CURR-RUN-DATE  TO      DTSBE418
00072 *              NEW FIELD L102-CURR-RUN-DATE.                      DTSBE418
00073 *              WORK ORDER:                      PROGRAMMER: ZL1   DTSBE418
00074 *                                                                 DTSBE418
00075 *    05/11/09  MOVED TEST FOR BAD ADDRESS SO THAT IT WILL ONLY    DTSBE418
00076 *              PREVENT MAILING OF THE NOTICE, AND NOT REMOVE      DTSBE418
00077 *              THE EMPLOYER FROM THE DELINQUENCY PROCESS          DTSBE418
00078 *              ALTOGETHER.                                        DTSBE418
00079 *              WORK ORDER:                      PROGRAMMER: GD    DTSBE418
00080 *                                                                 DTSBE418
00081 *    05/27/10  ADDED CODE TO BYPASS EMPLOYERS WITH AN ORIGINAL    DTSBE418
00082 *              REPORT IN THE ATC FILE TO P2100 (MQTR EXISTS).     DTSBE418
00083 *              WORK ORDER:                      PROGRAMMER: GD    DTSBE418
00084 *                                                                 DTSBE418
00085 *    03/29/13  ADDED CODE TO TIMELY PAYMENTS CALCULATIONS.        DTSBE418
00086 *              WORK ORDER:                      PROGRAMMER: ZL1   DTSBE418
00087 *                                                                 DTSBE418
00088 *    07/02/13  MODIFIED CODE NOT TO PRINT DELINQUENT NOTICE.      DTSBE418
00089 *              NEW PROGRAM DTSBE418 WILL CREATE IR417 WHEN NEEDED DTSBE418
00090 *              WORK ORDER:                      PROGRAMMER: ZL1   DTSBE418
00091 *                                                                 DTSBE418
00092 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE418
00093 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBE418
00094 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBE418
00095 *                                                                 DTSBE418
00096 *                                                                 DTSBE418
00097 *  DESCRIPTION:                                                   DTSBE418
00098 *                                                                 DTSBE418
00099 *                                                                 DTSBE418
00100 *    INITIATION:                                                  DTSBE418
00101 *                                                                 DTSBE418
00102 *      SET LECM-MST-OPEN-UPDATE-88 TO TRUE.                       DTSBE418
00103 *      SET LECM-REF-OPEN-UPDATE-88 TO TRUE.                       DTSBE418
00104 *                                                                 DTSBE418
00105 *      EDIT AND DEFAULT PARAMETERS.  SEE PRINTED OUTPUTS          DTSBE418
00106 *      DESCRIPTIONS AND LAYOUTS (417R1, 418R1, 716R1).            DTSBE418
00107 *                                                                 DTSBE418
00108 *      IF WRK-PARM-SUBJECT-YRQ IS GREATER THAN                    DTSBE418
00109 *      LECM-LAST-UC30-DEL-MAIL-YRQ THEN MOVE                      DTSBE418
00110 *      WRK-PARM-SUBJECT-YRQ TO LECM-LAST-UC30-DEL-MAIL-YRQ.       DTSBE418
00111 *                                                                 DTSBE418
00112 *      REFIGURE LECM-FIRST-PURSUED-RPT-YRQ.                       DTSBE418
00113 *                                                                 DTSBE418
00114 *                                                                 DTSBE418
00115 *    PROCESSING:                                                  DTSBE418
00116 *                                                                 DTSBE418
00117 *      SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (417R1,        DTSBE418
00118 *      418R1, 716R1).                                             DTSBE418
00119 *                                                                 DTSBE418
00120 *      INCLUDES EXTENSIVE MASTER FILE UPDATING.                   DTSBE418
00121 *                                                                 DTSBE418
00122 *      MAINTAIN MPRF-PURSUED-RPT-CNT.                             DTSBE418
00123 *                                                                 DTSBE418
00124 *                                                                 DTSBE418
00125 *    TERMINATION:                                                 DTSBE418
00126 *                                                                 DTSBE418
00127 *      READ THE MHDR RECORD.  IF WRK-PARM-SUBJECT-YRQ IS          DTSBE418
00128 *      GREATER THAN MHDR-LAST-UC30-DEL-MAIL-YRQ THEN MOVE         DTSBE418
00129 *      WRK-PARM-SUBJECT-YRQ TO MHDR-LAST-UC30-DEL-MAIL-YRQ.       DTSBE418
00130 *      REFIGURE MHDR-FIRST-PURSUED-RPT-YRQ.                       DTSBE418
00131 *      REWRITE THE MHDR-RECORD.                                   DTSBE418
00132 *                                                                 DTSBE418
00133 *      READ FQTR RECORD FOR WRK-PARM-SUBJECT-YRQ.  IF FOUND,      DTSBE418
00134 *      REWRITE; IF NOT FOUND, CREATE A FQTR RECORD AND WRITE.     DTSBE418
00135 *      MOVE LECM-CURR-RUN-DATE TO FQTR-UC30-DEL-MAIL-DATE.        DTSBE418
00136 *                                                                 DTSBE418
00137 *                                                                 DTSBE418
00138 *    RECORDS READ:                                                DTSBE418
00139 *                                                                 DTSBE418
00140 *      MASTER:                                                    DTSBE418
00141 *                                                                 DTSBE418
00142 *        MHDR                                                     DTSBE418
00143 *        MQTR                                                     DTSBE418
00144 *        MRPT                                                     DTSBE418
00145 *        MTAD                                                     DTSBE418
00146 *        MOPO                                                     DTSBE418
00147 *        MTAA                                                     DTSBE418
00148 *                                                                 DTSBE418
00149 *                                                                 DTSBE418
00150 *      ALTERNATE INDEX:                                           DTSBE418
00151 *                                                                 DTSBE418
00152 *        NONE.                                                    DTSBE418
00153 *                                                                 DTSBE418
00154 *                                                                 DTSBE418
00155 *      REFERENCE:                                                 DTSBE418
00156 *                                                                 DTSBE418
00157 *        FQTR                                                     DTSBE418
00158 *                                                                 DTSBE418
00159 *                                                                 DTSBE418
00160 *    RECORDS UPDATED:                                             DTSBE418
00161 *                                                                 DTSBE418
00162 *        MHDR (REWRITE)                                           DTSBE418
00163 *        MTCK (WRITE)                                             DTSBE418
00164 *        MEVL (WRITE)                                             DTSBE418
00165 *        FQTR (WRITE, REWRITE)                                    DTSBE418
00166 *                                                                 DTSBE418
00167 *                                                                 DTSBE418
00168 *    REPORT RECORDS WRITTEN:                                      DTSBE418
00169 *                                                                 DTSBE418
00170 *        R716  RQC REPORT DELINQUENCY UNIVERSE.                   DTSBE418
00171 *        R417  DELINQUENT REPORT NOTICE LETTER.                   DTSBE418
00172 *        R418  DELINQUENT EMPLOYER ACCOUNT NUMBER LIST.           DTSBE418
00173 *        R907  UNUSUAL CONDITION ENCOUNTERED.                     DTSBE418
00174 *                                                                 DTSBE418
00175 *                                                                 DTSBE418
00176 *    BATCH TRANSACTION COLLECTION RECORDS WRITTEN:                DTSBE418
00177 *                                                                 DTSBE418
00178 *        NONE.                                                    DTSBE418
00179 *                                                                 DTSBE418
00180 *                                                                 DTSBE418
00181 *    MODULES CALLED:                                              DTSBE418
00182 *                                                                 DTSBE418
00183 *        DTSBU001  DATE CONVERSION/EDIT.                          DTSBE418
00184 *        DTSBU004  QUARTER CONVERSION/EDIT.                       DTSBE418
00185 *        DTSBU061  FIELD ZIP / FIELD REP ID.                      DTSBE418
00186 *        DTSBU111  ADDRESS LOOKUP.                                DTSBE418
00187 *        DTSBU112  ADDRESS FORMAT.                                DTSBE418
00188 *        DTSBU511  INITIALIZE MQTR.                               DTSBE418
00189 *        DTSBU516  DETERMINE LIABILITY, DUE DATE, AND RATE        DTSBE418
00190 *                  FOR A GIVEN QUARTER.                           DTSBE418
00191 *        DTSBU910  MASTER FILE I/O DRIVER.                        DTSBE418
00192 *        DTSBU931  REFERENCE FILE I/O DRIVER.                     DTSBE418
00193 *        DTSBU946  VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1.   DTSBE418
00194 *                                                                 DTSBE418
00195 *****                                                             DTSBE418
00196                                                                   DTSBE418
00197                                                                   DTSBE418
00198  ENVIRONMENT DIVISION.                                            DTSBE418
00199  INPUT-OUTPUT SECTION.                                            DTSBE418
00200      SKIP3                                                        DTSBE418
00201  FILE-CONTROL.                                                    DTSBE418
00202      SELECT DOWNLOAD-FILE    ASSIGN TO DTSFE417                   DTSBE418
00203             FILE STATUS IS DOWNLOAD-STATUS.                       DTSBE418
00204                                                                   DTSBE418
00205                                                                   DTSBE418
00206  DATA DIVISION.                                                   DTSBE418
00207  FILE SECTION.                                                    DTSBE418
00208  FD  DOWNLOAD-FILE                                                DTSBE418
00209      RECORDING MODE IS F                                          DTSBE418
00210      LABEL RECORDS ARE STANDARD                                   DTSBE418
00211      BLOCK CONTAINS 0 CHARACTERS.                                 DTSBE418
00212      SKIP1                                                        DTSBE418
00213  01  DOWNLOAD-REC                    PIC X(51).                   DTSBE418
00214                                                                   DTSBE418
00215                                                                   DTSBE418
00216  WORKING-STORAGE SECTION.                                         DTSBE418
002165 77  PAN-VALET PICTURE X(24) VALUE '004DTSBE418  11/14/13'.       DTSBE418
00217  77  PAN-VALET PICTURE X(24) VALUE '002DTSBE418  11/08/13'.       DTSBE418
00218  77  PAN-VALET PICTURE X(24) VALUE '002DTSBE418  11/07/13'.       DTSBE418
00219  77  PAN-VALET PICTURE X(24) VALUE '016DTSBE418  08/20/13'.       DTSBE418
00220  77  PAN-VALET PICTURE X(24) VALUE '080DTSBE418  04/01/13'.       DTSBE418
00221  77  PAN-VALET PICTURE X(24) VALUE '008DTSBE418  03/29/13'.       DTSBE418
00222  77  PAN-VALET PICTURE X(24) VALUE '078DTSBE418  05/27/10'.       DTSBE418
00223                                                                   DTSBE418
00224  01  WRK-AREA.                                                    DTSBE418
00225      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +418.DTSBE418
00226                                                                   DTSBE418
00227      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBE418'.DTSBE418
00228                                                                   DTSBE418
00229      05  DOWNLOAD-STATUS             PIC  X(02).                  DTSBE418
00230          88  DOWNLOAD-OK-88           VALUE '00'.                 DTSBE418
00231                                                                   DTSBE418
00232      05  WRK-DOWNLOAD-REC.                                        DTSBE418
00233          10  D-EMP-NO                PIC 9(06).                   DTSBE418
00234          10  FILLER                  PIC X(01) VALUE ';'.         DTSBE418
00235          10  D-EMP-NAME              PIC X(40).                   DTSBE418
00236          10  FILLER                  PIC X(01) VALUE ';'.         DTSBE418
00237          10  D-LIAB-IND              PIC X(01).                   DTSBE418
00238          10  FILLER                  PIC X(01) VALUE ';'.         DTSBE418
00239          10  D-RET-MAIL-IND          PIC X(01).                   DTSBE418
00240                                                                   DTSBE418
00241      05  ALL-NINES-DATE              PIC S9(09)  COMP-3           DTSBE418
00242                                             VALUE +999999999.     DTSBE418
00243                                                                   DTSBE418
00244      05  AMT-DISP1                   PIC --------9.99.            DTSBE418
00245                                                                   DTSBE418
00246      05  ABEND-MSG                       PIC  X(60).              DTSBE418
00247                                                                   DTSBE418
00248      05  WRK-PEN-CNT                 PIC S9(07)  COMP-3           DTSBE418
00249                                             VALUE +0.             DTSBE418
00250      05  WRK-SI-PEN-CNT              PIC S9(07)  COMP-3           DTSBE418
00251                                             VALUE +0.             DTSBE418
00252      05  WRK-SI-DEL-CNT              PIC S9(07)  COMP-3           DTSBE418
00253                                             VALUE +0.             DTSBE418
00254      05  WRK-DELINQUENT-CNT          PIC S9(07)  COMP-3           DTSBE418
00255                                             VALUE +0.             DTSBE418
00256      05  WRK-OVER-2-MISS-CNT         PIC S9(07)  COMP-3           DTSBE418
00257                                             VALUE +0.             DTSBE418
00258      05  WRK-TF-TABLE-CNT            PIC S9(07)  COMP-3           DTSBE418
00259                                             VALUE +0.             DTSBE418
00260      05  WRK-BYPASS-CNT              PIC S9(07)  COMP-3           DTSBE418
00261                                             VALUE +0.             DTSBE418
00262                                                                   DTSBE418
00263      05  WRK-TIMELY-PAYMENTS         PIC S9(09)V99 COMP-3         DTSBE418
00264                                             VALUE +0.             DTSBE418
00265                                                                   DTSBE418
00266      05  INCONSISTENCY-ENCOUNTERED-IND   PIC  X(01).              DTSBE418
00267                                                                   DTSBE418
00268      05  TPS-UNIV-QTR                    PIC  9(01) VALUE 1.      DTSBE418
00269                                                                   DTSBE418
00270      05  WRK-TRIGGER-DATE                PIC S9(09)  COMP-3.      DTSBE418
00271                                                                   DTSBE418
00272      05  WRK-ORIG-RECEIVED-DATE          PIC S9(09)  COMP-3.      DTSBE418
00273                                                                   DTSBE418
00274      05  WRK-FIRST-PEN-INT-YRQ           PIC S9(05)  COMP-3.      DTSBE418
00275                                                                   DTSBE418
00276      05  EMPL-BYPASSED-IND  PIC  X(01).                           DTSBE418
00277              88  EMP-BYPASS-YES-88   VALUE 'Y'.                   DTSBE418
00278              88  EMP-BYPASS-NO-88    VALUE 'N'.                   DTSBE418
00279                                                                   DTSBE418
00280                                                                   DTSBE418
00281      05  TF-SUB                  PIC S9(07) COMP-3.               DTSBE418
00282      05  TF-MAX                  PIC S9(07) COMP-3                DTSBE418
00283                                   VALUE +999999.                  DTSBE418
00284      05  TRANS-FILE-RPTS  OCCURS 999999 TIMES.                    DTSBE418
00285          10  TRANS-FILE-RPT-IND  PIC  X(01).                      DTSBE418
00286              88  TF-RPT-FOUND-YES-88  VALUE 'Y'.                  DTSBE418
00287              88  TF-RPT-FOUND-NO-88   VALUE 'N'.                  DTSBE418
00288          10  TRANS-BYPASSED-IND  PIC  X(01).                      DTSBE418
00289              88  TF-BYPASSED-YES-88   VALUE 'Y'.                  DTSBE418
00290              88  TF-BYPASSED-NO-88    VALUE 'N'.                  DTSBE418
00291                                                                   DTSBE418
00292      05  EVL-TEXT.                                                DTSBE418
00293          10  FILLER                 PIC X(22)                     DTSBE418
00294              VALUE 'DELINQUENT NOTICE FOR '.                      DTSBE418
00295          10  EVL-SLASH-QTR          PIC X(4).                     DTSBE418
00296          10  FILLER                 PIC X(11)                     DTSBE418
00297              VALUE ' MAILED TO '.                                 DTSBE418
00298          10  EVL-ADDR-TYPE          PIC X(04).                    DTSBE418
00299          10  EVL-ADDR-ID-NO         PIC ZZ9.                      DTSBE418
00300      EJECT                                                        DTSBE418
00301  01  MSG-AREA.                                                    DTSBE418
00302      05  MSG1-AREA.                                               DTSBE418
00303          10  MSG1-ID                PIC  X(03)  VALUE '421'.      DTSBE418
00304          10  MSG1-TEXT.                                           DTSBE418
00305              15  FILLER             PIC  X(40)                    DTSBE418
00306                VALUE 'RATE MISSING.  DELINQUENT REPORT LETTER '.  DTSBE418
00307              15  FILLER             PIC  X(40)                    DTSBE418
00308                VALUE 'PRINTED WITHOUT A RATE.          YRQ =  '.  DTSBE418
00309              15  MSG1-SLASHED-YRQ   PIC  X(04).                   DTSBE418
00310                                                                   DTSBE418
00311      05  MSG2-AREA.                                               DTSBE418
00312          10  MSG2-ID                PIC  X(03)  VALUE '422'.      DTSBE418
00313          10  MSG2-TEXT.                                           DTSBE418
00314              15  FILLER             PIC  X(40)                    DTSBE418
00315                VALUE 'DELINQUENT REPORT LETTER PRINTING SUPPRE'.  DTSBE418
00316              15  FILLER             PIC  X(40)                    DTSBE418
00317                VALUE 'SSED ON ALL MTAD RECORDS.        YRQ =  '.  DTSBE418
00318              15  MSG2-SLASHED-YRQ   PIC  X(04).                   DTSBE418
00319                                                                   DTSBE418
00320      05  MSG3-AREA.                                               DTSBE418
00321          10  MSG3-ID                PIC  X(03)  VALUE '423'.      DTSBE418
00322          10  MSG3-TEXT.                                           DTSBE418
00323              15  FILLER             PIC  X(40)                    DTSBE418
00324                VALUE 'MORE THAN 19 ADDITIONAL REPORTS ARE MISS'.  DTSBE418
00325              15  FILLER             PIC  X(40)                    DTSBE418
00326                VALUE 'ING.  INCOMPLETE LETTER PRINTED. YRQ =  '.  DTSBE418
00327              15  MSG3-SLASHED-YRQ   PIC  X(04).                   DTSBE418
00328                                                                   DTSBE418
00329      05  MSG4-AREA.                                               DTSBE418
00330          10  MSG4-ID                PIC  X(03)  VALUE '424'.      DTSBE418
00331          10  MSG4-TEXT.                                           DTSBE418
00332              15  FILLER             PIC  X(40)                    DTSBE418
00333                VALUE 'INCONSISTENT MQR-CURR-RPT-TYPE ENCOUNTER'.  DTSBE418
00334              15  FILLER             PIC  X(40)                    DTSBE418
00335                VALUE 'ED.  SCREAM AT PROGRAMMING.      YRQ =  '.  DTSBE418
00336              15  MSG4-SLASHED-YRQ   PIC  X(04).                   DTSBE418
00337                                                                   DTSBE418
00338      05  MSG5-AREA.                                               DTSBE418
00339          10  MSG5-ID                PIC  X(03)  VALUE '425'.      DTSBE418
00340          10  MSG5-TEXT.                                           DTSBE418
00341              15  FILLER             PIC  X(40)                    DTSBE418
00342                VALUE 'DELINQUENT REPORT LETTER PRINTING SUPPRE'.  DTSBE418
00343              15  FILLER             PIC  X(40)                    DTSBE418
00344                VALUE 'SSED FOR ALL ADDRESSES.          YRQ =  '.  DTSBE418
00345              15  MSG5-SLASHED-YRQ   PIC  X(04).                   DTSBE418
00346                                                                   DTSBE418
00347      05  MSG6-AREA.                                               DTSBE418
00348          10  MSG6-ID                PIC  X(03)  VALUE '426'.      DTSBE418
00349          10  MSG6-TEXT.                                           DTSBE418
00350              15  FILLER             PIC  X(40)                    DTSBE418
00351                VALUE 'DELINQUENT QUARTER ADDED BUT RATE IS EST'.  DTSBE418
00352              15  FILLER             PIC  X(40)                    DTSBE418
00353                VALUE 'IMATED.                          YRQ =  '.  DTSBE418
00354              15  MSG6-SLASHED-YRQ   PIC  X(04).                   DTSBE418
00355      EJECT                                                        DTSBE418
00356  01  L001-LINK-AREA.                                              DTSBE418
00357  ++INCLUDE DTSIL001                                               DTSBE418
00358      EJECT                                                        DTSBE418
00359  01  L004-LINK-AREA.                                              DTSBE418
00360  ++INCLUDE DTSIL004                                               DTSBE418
00361      EJECT                                                        DTSBE418
00362  01  L005-LINK-AREA.                                              DTSBE418
00363  ++INCLUDE DTSIL005                                               DTSBE418
00364      EJECT                                                        DTSBE418
00365  01  L061-LINK-AREA.                                              DTSBE418
00366  ++INCLUDE DTSIL061                                               DTSBE418
00367      EJECT                                                        DTSBE418
00368  01  L064-LINK-AREA.                                              DTSBE418
00369  ++INCLUDE DTSIL064                                               DTSBE418
00370      EJECT                                                        DTSBE418
00371  01  L102-LINK-AREA.                                              DTSBE418
00372  ++INCLUDE DTSIL102                                               DTSBE418
00373      EJECT                                                        DTSBE418
00374  01  L109-LINK-AREA.                                              DTSBE418
00375  ++INCLUDE DTSIL109                                               DTSBE418
00376      EJECT                                                        DTSBE418
00377  01  L111-LINK-AREA.                                              DTSBE418
00378  ++INCLUDE DTSIL111                                               DTSBE418
00379      EJECT                                                        DTSBE418
00380  01  L112-LINK-AREA.                                              DTSBE418
00381  ++INCLUDE DTSIL112                                               DTSBE418
00382      EJECT                                                        DTSBE418
00383  01  L410-LINK-AREA.                                              DTSBE418
00384  ++INCLUDE DTSIL410                                               DTSBE418
00385      EJECT                                                        DTSBE418
00386  01  L516-LINK-AREA.                                              DTSBE418
00387  ++INCLUDE DTSIL516                                               DTSBE418
00388      EJECT                                                        DTSBE418
00389  01  L910-LINK-AREA.                                              DTSBE418
00390  ++INCLUDE DTSIL910                                               DTSBE418
00391      SKIP3                                                        DTSBE418
00392  01  MSKL-REC.                                                    DTSBE418
00393  ++INCLUDE DTSIMSKL                                               DTSBE418
00394      SKIP3                                                        DTSBE418
00395  01  MHDR-REC.                                                    DTSBE418
00396  ++INCLUDE DTSIMHDR                                               DTSBE418
00397      SKIP3                                                        DTSBE418
00398  01  MQTR-REC.                                                    DTSBE418
00399  ++INCLUDE DTSIMQTR                                               DTSBE418
00400      SKIP3                                                        DTSBE418
00401  01  MRPT-REC.                                                    DTSBE418
00402  ++INCLUDE DTSIMRPT                                               DTSBE418
00403      SKIP3                                                        DTSBE418
00404  01  MTAD-REC.                                                    DTSBE418
00405  ++INCLUDE DTSIMTAD                                               DTSBE418
00406      SKIP3                                                        DTSBE418
00407  01  MOPO-REC.                                                    DTSBE418
00408  ++INCLUDE DTSIMOPO                                               DTSBE418
00409      SKIP3                                                        DTSBE418
00410  01  MTAA-REC.                                                    DTSBE418
00411  ++INCLUDE DTSIMTAA                                               DTSBE418
00412      SKIP3                                                        DTSBE418
00413  01  MEVL-REC.                                                    DTSBE418
00414  ++INCLUDE DTSIMEVL                                               DTSBE418
00415      SKIP3                                                        DTSBE418
00416  01  MTCK-REC.                                                    DTSBE418
00417  ++INCLUDE DTSIMTCK                                               DTSBE418
00418      EJECT                                                        DTSBE418
00419  01  MDST-REC.                                                    DTSBE418
00420  ++INCLUDE DTSIMDST                                               DTSBE418
00421      EJECT                                                        DTSBE418
00422  01  L923-LINK-AREA.                                              DTSBE418
00423  ++INCLUDE DTSIL923                                               DTSBE418
00424      EJECT                                                        DTSBE418
00425  01  ASKL-REC.                                                    DTSBE418
00426  ++INCLUDE DTSIASKL                                               DTSBE418
00427      EJECT                                                        DTSBE418
00428  01  ARPT-REC.                                                    DTSBE418
00429  ++INCLUDE DTSIARPT                                               DTSBE418
00430                                                                   DTSBE418
00431  01  L931-LINK-AREA.                                              DTSBE418
00432  ++INCLUDE DTSIL931                                               DTSBE418
00433      SKIP3                                                        DTSBE418
00434  01  FSKL-REC.                                                    DTSBE418
00435  ++INCLUDE DTSIFSKL                                               DTSBE418
00436      SKIP3                                                        DTSBE418
00437  01  FQTR-REC.                                                    DTSBE418
00438  ++INCLUDE DTSIFQTR                                               DTSBE418
00439      EJECT                                                        DTSBE418
00440  01  R417-REC.                                                    DTSBE418
00441  ++INCLUDE DTSIR417                                               DTSBE418
00442      SKIP3                                                        DTSBE418
00443  01  R418-REC.                                                    DTSBE418
00444  ++INCLUDE DTSIR418                                               DTSBE418
00445      SKIP3                                                        DTSBE418
00446  01  R907-REC.                                                    DTSBE418
00447  ++INCLUDE DTSIR907                                               DTSBE418
00448      EJECT                                                        DTSBE418
00449  01  L927-LINK-AREA.                                              DTSBE418
00450  ++INCLUDE DTSIL927                                               DTSBE418
00451                                                                   DTSBE418
00452  01  T026-REC.                                                    DTSBE418
00453  ++INCLUDE DTSIT026                                               DTSBE418
00454                                                                   DTSBE418
00455  01  CACT-LITERALS.                                               DTSBE418
00456  ++INCLUDE DTSICACT                                               DTSBE418
00457                                                                   DTSBE418
00458  ++INCLUDE OJRWE417                                               DTSBE418
00459      EJECT                                                        DTSBE418
00460  LINKAGE SECTION.                                                 DTSBE418
00461      SKIP3                                                        DTSBE418
00462  01  LECM-LINK-AREA.                                              DTSBE418
00463  ++INCLUDE DTSILECM                                               DTSBE418
00464      SKIP3                                                        DTSBE418
00465          10  FILLER REDEFINES LECM-EXTRACT-PARMS.                 DTSBE418
00466              15  LECM-PARM-SUBJECT-YRQ   PIC  X(03).              DTSBE418
00467              15  FILLER                  PIC  X(01).              DTSBE418
00468              15  LECM-PARM-RETURN-BY-DATE                         DTSBE418
00469                                          PIC  X(06).              DTSBE418
00470              15  FILLER                  PIC  X(58).              DTSBE418
00471      EJECT                                                        DTSBE418
00472  01  MPRF-LINK-REC.                                               DTSBE418
00473  ++INCLUDE DTSIMPRF                                               DTSBE418
00474      EJECT                                                        DTSBE418
00475  PROCEDURE DIVISION USING LECM-LINK-AREA                          DTSBE418
00476                           MPRF-LINK-REC.                          DTSBE418
00477                                                                   DTSBE418
00478      EVALUATE TRUE                                                DTSBE418
00479      WHEN LECM-PROCESS-88                                         DTSBE418
00480          PERFORM P0000-PROCESS THRU P0000-EXIT                    DTSBE418
00481                                                                   DTSBE418
00482      WHEN LECM-INITIALIZE-88                                      DTSBE418
00483          SET WRK-EDIT-PASSED-88 TO TRUE                           DTSBE418
00484          PERFORM I0000-INITIALIZE THRU I0000-EXIT                 DTSBE418
00485          IF WRK-EDIT-FAILED-88                                    DTSBE418
00486             PERFORM S999-ABEND THRU S999-EXIT                     DTSBE418
00487          END-IF                                                   DTSBE418
00488                                                                   DTSBE418
00489      WHEN LECM-TERMINATE-88                                       DTSBE418
00490          PERFORM T0000-TERMINATE THRU T0000-EXIT                  DTSBE418
00491                                                                   DTSBE418
00492      WHEN OTHER                                                   DTSBE418
00493          MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED'            DTSBE418
00494            TO ABEND-MSG                                           DTSBE418
00495          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBE418
00496                                                                   DTSBE418
00497                                                                   DTSBE418
00498      GOBACK.                                                      DTSBE418
00499      EJECT                                                        DTSBE418
00500  I0000-INITIALIZE.                                                DTSBE418
00501      MOVE LECM-TRACE-IND TO L910-TRACE-IND                        DTSBE418
00502                             L931-TRACE-IND                        DTSBE418
00503                             L516-TRACE-IND.                       DTSBE418
00504                                                                   DTSBE418
00505      MOVE WRK-MOD-NAME TO L910-MOD-NAME                           DTSBE418
00506                           L931-MOD-NAME                           DTSBE418
00507                           R907-MODULE-NAME.                       DTSBE418
00508                                                                   DTSBE418
00509      MOVE LECM-PARM-SUBJECT-YRQ TO                                DTSBE418
00510              OJR-PARM-SUBJECT-YRQ.                                DTSBE418
00511                                                                   DTSBE418
00512      MOVE LECM-PARM-RETURN-BY-DATE TO                             DTSBE418
00513              OJR-PARM-RETURN-BY-DATE.                             DTSBE418
00514                                                                   DTSBE418
00515      MOVE LECM-PARM-SUBJECT-YRQ TO                                DTSBE418
00516                  OJR-PARM-SUBJECT-YRQ.                            DTSBE418
00517                                                                   DTSBE418
00518      MOVE LECM-PARM-RETURN-BY-DATE TO                             DTSBE418
00519                  OJR-PARM-RETURN-BY-DATE.                         DTSBE418
00520                                                                   DTSBE418
00521      MOVE LENGTH OF T026-REC TO T026-LENGTH.                      DTSBE418
00522      MOVE '026' TO T026-REC-TYPE.                                 DTSBE418
00523      MOVE WRK-MOD-NAME TO T026-ORIGIN.                            DTSBE418
00524      MOVE LECM-SYS-DATE TO T026-SYS-DATE.                         DTSBE418
00525      MOVE LECM-SYS-TIME TO T026-SYS-TIME.                         DTSBE418
00526                                                                   DTSBE418
00527      MOVE LENGTH OF R417-REC TO R417-LENGTH.                      DTSBE418
00528                                                                   DTSBE418
00529      MOVE '417' TO R417-REC-TYPE.                                 DTSBE418
00530                                                                   DTSBE418
00531      MOVE LENGTH OF R418-REC TO R418-LENGTH.                      DTSBE418
00532                                                                   DTSBE418
00533      MOVE '418' TO R418-REC-TYPE.                                 DTSBE418
00534                                                                   DTSBE418
00535      MOVE LENGTH OF R907-REC TO R907-LENGTH.                      DTSBE418
00536                                                                   DTSBE418
00537      MOVE '907' TO R907-REC-TYPE.                                 DTSBE418
00538                                                                   DTSBE418
00539                                                                   DTSBE418
00540      PERFORM I1000-EDIT-AND-DEFAULT-PARMS THRU I1000-EXIT.        DTSBE418
00541                                                                   DTSBE418
00542                                                                   DTSBE418
00543      IF WRK-PARM-SUBJECT-YRQ > LECM-LAST-UC30-DEL-MAIL-YRQ        DTSBE418
00544          MOVE WRK-PARM-SUBJECT-YRQ                                DTSBE418
00545            TO LECM-LAST-UC30-DEL-MAIL-YRQ.                        DTSBE418
00546                                                                   DTSBE418
00547                                                                   DTSBE418
00548      PERFORM I2000-FIRST-PURSUED-RPT-YRQ THRU I2000-EXIT.         DTSBE418
00549                                                                   DTSBE418
00550                                                                   DTSBE418
00551      IF WRK-FIRST-PURSUED-RPT-YRQ > LECM-FIRST-PURSUED-RPT-YRQ    DTSBE418
00552          MOVE WRK-FIRST-PURSUED-RPT-YRQ                           DTSBE418
00553            TO LECM-FIRST-PURSUED-RPT-YRQ.                         DTSBE418
00554                                                                   DTSBE418
00555      PERFORM I3000-TRANS-FILE-RPTS       THRU I3000-EXIT.         DTSBE418
00556                                                                   DTSBE418
00557      SET LECM-MST-OPEN-UPDATE-88 TO TRUE.                         DTSBE418
00558                                                                   DTSBE418
00559      SET LECM-REF-OPEN-UPDATE-88 TO TRUE.                         DTSBE418
00560                                                                   DTSBE418
00561      PERFORM S109-FIRST-PEN-INT-YRQ  THRU S109-EXIT.              DTSBE418
00562      MOVE L109-FIRST-PEN-INT-YRQ TO WRK-FIRST-PEN-INT-YRQ.        DTSBE418
00563                                                                   DTSBE418
00564                                                                   DTSBE418
00565      OPEN OUTPUT     DOWNLOAD-FILE.                               DTSBE418
00566      IF NOT DOWNLOAD-OK-88                                        DTSBE418
00567         DISPLAY 'CANNOT OPEN DOWNLOAD FILE ' DOWNLOAD-STATUS      DTSBE418
00568         PERFORM S999-ABEND         THRU S999-EXIT                 DTSBE418
00569      END-IF.                                                      DTSBE418
00570                                                                   DTSBE418
00571  I0000-EXIT.                                                      DTSBE418
00572      EXIT.                                                        DTSBE418
00573  ++INCLUDE OJRPE418                                               DTSBE418
00574                                                                   DTSBE418
00575  I3000-TRANS-FILE-RPTS.                                           DTSBE418
00576      PERFORM                                                      DTSBE418
00577         VARYING TF-SUB FROM +1 BY +1                              DTSBE418
00578         UNTIL TF-SUB > TF-MAX                                     DTSBE418
00579            SET TF-RPT-FOUND-NO-88 (TF-SUB)  TO TRUE               DTSBE418
00580            SET TF-BYPASSED-NO-88  (TF-SUB)  TO TRUE               DTSBE418
00581      END-PERFORM.                                                 DTSBE418
00582                                                                   DTSBE418
00583      PERFORM S923-OPEN-READ          THRU S923-EXIT.              DTSBE418
00584                                                                   DTSBE418
00585      MOVE ZERO      TO ASKL-BATCH-NO                              DTSBE418
00586                        ASKL-ITEM-NO.                              DTSBE418
00587                                                                   DTSBE418
00588      PERFORM S923-START-BROWSE THRU S923-EXIT.                    DTSBE418
00589      PERFORM UNTIL L923-NO-REC-88                                 DTSBE418
00590         IF ASKL-RPT-88                                            DTSBE418
00591            MOVE ASKL-REC TO ARPT-REC                              DTSBE418
00592            IF (ARPT-ORIG-88                                       DTSBE418
00593            AND ARPT-YRQ = WRK-PARM-SUBJECT-YRQ                    DTSBE418
00594            AND ARPT-NOT-PROCESSED-88)                             DTSBE418
00595               IF NOT ARPT-EMP-NO-NO-ENTRY-88                      DTSBE418
00596                  SET TF-RPT-FOUND-YES-88 (ARPT-EMP-NO) TO TRUE    DTSBE418
00597                  ADD +1 TO WRK-TF-TABLE-CNT                       DTSBE418
00598                  DISPLAY 'I3 ' ARPT-EMP-NO '  ' ARPT-BATCH-NO     DTSBE418
00599                     ' ' ARPT-ITEM-NO                              DTSBE418
00600               END-IF                                              DTSBE418
00601            END-IF                                                 DTSBE418
00602         END-IF                                                    DTSBE418
00603         PERFORM S923-READ-NEXT       THRU S923-EXIT               DTSBE418
00604      END-PERFORM.                                                 DTSBE418
00605                                                                   DTSBE418
00606      PERFORM S923-CLOSE              THRU S923-EXIT.              DTSBE418
00607                                                                   DTSBE418
00608  I3000-EXIT.                                                      DTSBE418
00609      EXIT.                                                        DTSBE418
00610  P0000-PROCESS.                                                   DTSBE418
00611 *****IF (MPRF-EMP-NO < 360094)                                    DTSBE418
00612 *************OR                                                   DTSBE418
00613 ********(MPRF-EMP-NO > 360098)                                    DTSBE418
00614 *********GO TO P0000-EXIT.                                        DTSBE418
00615                                                                   DTSBE418
00616      MOVE MPRF-EMP-NO TO R907-EMP-NO.                             DTSBE418
00617                                                                   DTSBE418
00618      IF MPRF-CLASS-SUB-88                                         DTSBE418
00619         SET L410-MODE-INPUT-YRQ-88 TO TRUE                        DTSBE418
00620         MOVE MPRF-EMP-NO           TO L410-EMP-NO                 DTSBE418
00621         MOVE WRK-PARM-SUBJECT-YRQ  TO L410-YRQ                    DTSBE418
00622         PERFORM S410-FILE-SCHED    THRU S410-EXIT                 DTSBE418
00623         IF L410-ANN-SCHED-88                                      DTSBE418
00624 ***        DISPLAY ' **** ANNUAL FILER  CANNOT PROCESS' MPRF-EMP-NDTSBE418
00625            GO TO P0000-EXIT                                       DTSBE418
00626         END-IF                                                    DTSBE418
00627      END-IF.                                                      DTSBE418
00628                                                                   DTSBE418
00629 **********************************************************        DTSBE418
00630 * SELECT EMPLOYERS LIABLE DURING THE SUBJECT QUARTER              DTSBE418
00631 * BUT WHERE THE QUARTER IS NOT PURSUED.                           DTSBE418
00632 **********************************************************        DTSBE418
00633      IF MPRF-CLASS-SUB-88                                         DTSBE418
00634          NEXT SENTENCE                                            DTSBE418
00635      ELSE                                                         DTSBE418
00636          GO TO P0000-EXIT.                                        DTSBE418
00637                                                                   DTSBE418
00638      MOVE WRK-PARM-SUBJECT-YRQ     TO L516-YRQ.                   DTSBE418
00639      PERFORM S516-LIABILITY        THRU S516-EXIT.                DTSBE418
00640      IF L516-LIABLE-88                                            DTSBE418
00641         MOVE LOW-VALUES            TO MQTR-KEY-AREA               DTSBE418
00642         MOVE MPRF-EMP-NO           TO MQTR-EMP-NO                 DTSBE418
00643         SET MQTR-QTR-88            TO TRUE                        DTSBE418
00644         MOVE WRK-PARM-SUBJECT-YRQ  TO MQTR-YRQ                    DTSBE418
00645         MOVE MQTR-KEY-AREA         TO MSKL-KEY-AREA               DTSBE418
00646         PERFORM S910-READ          THRU S910-EXIT                 DTSBE418
00647         IF L910-OK-88                                             DTSBE418
00648            MOVE MSKL-REC           TO MQTR-REC                    DTSBE418
00649            IF  MQTR-CURR-DELINQ-88                                DTSBE418
00650            AND MQTR-MISS-LETTER-SENT-88                           DTSBE418
00651            DISPLAY ' CURR DELQ AND LETTER SENT ' MPRF-EMP-NO      DTSBE418
00652            ELSE                                                   DTSBE418
00653               GO TO P0000-EXIT                                    DTSBE418
00654            END-IF                                                 DTSBE418
00655         ELSE                                                      DTSBE418
00656               GO TO P0000-EXIT                                    DTSBE418
00657         END-IF                                                    DTSBE418
00658      ELSE                                                         DTSBE418
00659         GO TO P0000-EXIT                                          DTSBE418
00660      END-IF.                                                      DTSBE418
00661                                                                   DTSBE418
00662      MOVE MPRF-EMP-NO             TO D-EMP-NO.                    DTSBE418
00663      MOVE MPRF-PRIMARY-NAME       TO D-EMP-NAME.                  DTSBE418
00664      IF L516-LIABLE-88                                            DTSBE418
00665         MOVE 'Y'                  TO D-LIAB-IND                   DTSBE418
00666      ELSE                                                         DTSBE418
00667         MOVE 'N'                  TO D-LIAB-IND                   DTSBE418
00668      END-IF.                                                      DTSBE418
00669      MOVE MPRF-RETURN-MAIL-IND    TO D-RET-MAIL-IND.              DTSBE418
00670                                                                   DTSBE418
00671      WRITE DOWNLOAD-REC           FROM WRK-DOWNLOAD-REC.          DTSBE418
00672      IF NOT DOWNLOAD-OK-88                                        DTSBE418
00673         DISPLAY 'CANNOT WRITE DOWNLOAD REC '                      DTSBE418
00674            DOWNLOAD-STATUS                                        DTSBE418
00675      END-IF.                                                      DTSBE418
00676                                                                   DTSBE418
00677      DISPLAY 'P0000 ' MPRF-EMP-NO '  ' L516-LIABLE-IND            DTSBE418
00678        '  ' L516-YRQ '  ' MPRF-RETURN-MAIL-IND.                   DTSBE418
00679 **********************************************************        DTSBE418
00680 **   IF MPRF-PURSUED-RPT-CNT > +0                                 DTSBE418
00681 **       PERFORM P1000-DROP-PURSUIT THRU P1000-EXIT.              DTSBE418
00682                                                                   DTSBE418
00683 *    MOVE 'N' TO WRK-SUBJECT-YRQ-PURSUED-IND.                     DTSBE418
00684                                                                   DTSBE418
00685      MOVE +0 TO WRK-SUBJECT-YRQ-RPT-DUE-DATE.                     DTSBE418
00686                                                                   DTSBE418
00687      SET WRK-SUBJECT-YRQ-NO-UI-RATE-88 TO TRUE.                   DTSBE418
00688                                                                   DTSBE418
00689      PERFORM P2000-SUBJECT-YRQ THRU P2000-EXIT.                   DTSBE418
00690                                                                   DTSBE418
00691      IF EMP-BYPASS-NO-88                                          DTSBE418
00692         IF MPRF-RETURN-MAIL-NO-88                                 DTSBE418
00693             PERFORM P3000-CONSTRUCT-RPT-RECS THRU P3000-EXIT      DTSBE418
00694          END-IF.                                                  DTSBE418
00695 *        PERFORM P4000-PENALTY            THRU P4000-EXIT         DTSBE418
00696 *    END-IF.                                                      DTSBE418
00697                                                                   DTSBE418
00698  P0000-EXIT.                                                      DTSBE418
00699      EXIT.                                                        DTSBE418
00700      EJECT                                                        DTSBE418
00701  P1000-DROP-PURSUIT.                                              DTSBE418
00702      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSBE418
00703                                                                   DTSBE418
00704      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBE418
00705                                                                   DTSBE418
00706      SET MQTR-QTR-88 TO TRUE.                                     DTSBE418
00707                                                                   DTSBE418
00708      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE418
00709                                                                   DTSBE418
00710      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE418
00711                                                                   DTSBE418
00712      PERFORM P1100-SCAN-MQTR THRU P1100-EXIT                      DTSBE418
00713          UNTIL L910-NO-REC-88.                                    DTSBE418
00714  P1000-EXIT.                                                      DTSBE418
00715      EXIT.                                                        DTSBE418
00716      SKIP3                                                        DTSBE418
00717  P1100-SCAN-MQTR.                                                 DTSBE418
00718      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE418
00719                                                                   DTSBE418
00720      IF MQTR-YRQ < WRK-FIRST-PURSUED-RPT-YRQ                      DTSBE418
00721          NEXT SENTENCE                                            DTSBE418
00722      ELSE                                                         DTSBE418
00723          SET L910-NO-REC-88 TO TRUE                               DTSBE418
00724          GO TO P1100-EXIT.                                        DTSBE418
00725                                                                   DTSBE418
00726 *    IF MQTR-RPT-IS-PURSUED-88                                    DTSBE418
00727 *        SET MQTR-RPT-NOT-PURSUED-88 TO TRUE                      DTSBE418
00728 *        MOVE MQTR-REC TO MSKL-REC                                DTSBE418
00729 *        PERFORM S910-REWRITE THRU S910-EXIT                      DTSBE418
00730 *        IF MPRF-PURSUED-RPT-CNT > +0                             DTSBE418
00731 *            SUBTRACT 1 FROM MPRF-PURSUED-RPT-CNT.                DTSBE418
00732                                                                   DTSBE418
00733      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE418
00734  P1100-EXIT.                                                      DTSBE418
00735      EXIT.                                                        DTSBE418
00736      EJECT                                                        DTSBE418
00737  P2000-SUBJECT-YRQ.                                               DTSBE418
00738      MOVE WRK-PARM-SUBJECT-YRQ TO L516-YRQ.                       DTSBE418
00739                                                                   DTSBE418
00740      PERFORM S516-LIABILITY THRU S516-EXIT.                       DTSBE418
00741                                                                   DTSBE418
00742                                                                   DTSBE418
00743      MOVE LOW-VALUES TO MQTR-KEY-AREA.                            DTSBE418
00744                                                                   DTSBE418
00745      MOVE MPRF-EMP-NO TO MQTR-EMP-NO.                             DTSBE418
00746                                                                   DTSBE418
00747      SET MQTR-QTR-88 TO TRUE.                                     DTSBE418
00748                                                                   DTSBE418
00749      MOVE WRK-PARM-SUBJECT-YRQ TO MQTR-YRQ.                       DTSBE418
00750                                                                   DTSBE418
00751      MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE418
00752                                                                   DTSBE418
00753      PERFORM S910-READ THRU S910-EXIT.                            DTSBE418
00754                                                                   DTSBE418
00755      IF L910-OK-88                                                DTSBE418
00756          PERFORM P2100-MQTR-EXISTS THRU P2100-EXIT                DTSBE418
00757      ELSE                                                         DTSBE418
00758         DISPLAY 'BE418 NO QTR REC EXIST ' MPRF-EMP-NO.            DTSBE418
00759 *        PERFORM P2200-NO-MQTR-EXISTS THRU P2200-EXIT.            DTSBE418
00760  P2000-EXIT.                                                      DTSBE418
00761      EXIT.                                                        DTSBE418
00762      SKIP3                                                        DTSBE418
00763  P2100-MQTR-EXISTS.                                               DTSBE418
00764      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE418
00765      SET EMP-BYPASS-NO-88 TO TRUE.                                DTSBE418
00766                                                                   DTSBE418
00767      MOVE 'N' TO INCONSISTENCY-ENCOUNTERED-IND.                   DTSBE418
00768                                                                   DTSBE418
00769      IF TF-RPT-FOUND-YES-88 (MPRF-EMP-NO)                         DTSBE418
00770         SET TF-BYPASSED-YES-88 (MPRF-EMP-NO) TO TRUE              DTSBE418
00771         ADD +1 TO WRK-BYPASS-CNT                                  DTSBE418
00772         SET EMP-BYPASS-YES-88 TO TRUE                             DTSBE418
00773         DISPLAY 'BE418 TRAN FOUND P2100 ' MPRF-EMP-NO             DTSBE418
00774         GO TO P2100-EXIT                                          DTSBE418
00775      END-IF.                                                      DTSBE418
00776                                                                   DTSBE418
00777                                                                   DTSBE418
00778      IF L516-LIABLE-88                                            DTSBE418
00779          PERFORM P2110-LIABLE THRU P2110-EXIT                     DTSBE418
00780      ELSE                                                         DTSBE418
00781          PERFORM P2120-NOT-LIABLE THRU P2120-EXIT.                DTSBE418
00782                                                                   DTSBE418
00783                                                                   DTSBE418
00784 *    IF INCONSISTENCY-ENCOUNTERED-IND = 'Y'                       DTSBE418
00785 *        NEXT SENTENCE                                            DTSBE418
00786 *    ELSE                                                         DTSBE418
00787 *        IF MQTR-RPT-IS-PURSUED-88                                DTSBE418
00788 *            MOVE 'Y' TO WRK-SUBJECT-YRQ-PURSUED-IND              DTSBE418
00789              MOVE MQTR-RPT-DUE-DATE                               DTSBE418
00790                TO WRK-SUBJECT-YRQ-RPT-DUE-DATE                    DTSBE418
00791              MOVE MQTR-UI-RATE TO WRK-SUBJECT-YRQ-UI-RATE.        DTSBE418
00792                                                                   DTSBE418
00793                                                                   DTSBE418
00794 *    MOVE LECM-CURR-RUN-DATE TO MQTR-CHNG-DATE.                   DTSBE418
00795                                                                   DTSBE418
00796 *    MOVE MQTR-REC TO MSKL-REC.                                   DTSBE418
00797                                                                   DTSBE418
00798 *    PERFORM S910-REWRITE THRU S910-EXIT.                         DTSBE418
00799  P2100-EXIT.                                                      DTSBE418
00800      EXIT.                                                        DTSBE418
00801      SKIP3                                                        DTSBE418
00802  P2110-LIABLE.                                                    DTSBE418
00803      IF MQTR-CURR-NOT-LIABLE-88                                   DTSBE418
00804          PERFORM S9100-INCONSISTENT-RPT-TYPE THRU S9100-EXIT.     DTSBE418
00805 *    ELSE                                                         DTSBE418
00806 *        NEXT SENTENCE.                                           DTSBE418
00807 *    IF MQTR-CURR-RCVD-88 OR MQTR-CURR-ESTIM-88                   DTSBE418
00808 *        NEXT SENTENCE                                            DTSBE418
00809 *    ELSE                                                         DTSBE418
00810 *        IF MQTR-RPT-DUE-DATE = WRK-SUBJECT-YRQ-DEF-DUE-DATE      DTSBE418
00811 *            SET MQTR-CURR-DELINQ-88 TO TRUE                      DTSBE418
00812 *        ELSE                                                     DTSBE418
00813 *            IF MQTR-RPT-DUE-DATE <= LECM-PRIOR-RUN-DATE          DTSBE418
00814 *                IF MQTR-CURR-NOT-DUE-88                          DTSBE418
00815 *                    PERFORM S9100-INCONSISTENT-RPT-TYPE          DTSBE418
00816 *                       THRU S9100-EXIT                           DTSBE418
00817 *                ELSE                                             DTSBE418
00818 *                    NEXT SENTENCE                                DTSBE418
00819 *            ELSE                                                 DTSBE418
00820 *                IF MQTR-CURR-NOT-DUE-88                          DTSBE418
00821 *                    MOVE MQTR-RPT-DUE-DATE TO WRK-TRIGGER-DATE   DTSBE418
00822 *                    PERFORM S3000-ESTB-MTCK THRU S3000-EXIT      DTSBE418
00823 *                ELSE                                             DTSBE418
00824 *                    PERFORM S9100-INCONSISTENT-RPT-TYPE          DTSBE418
00825 *                       THRU S9100-EXIT.                          DTSBE418
00826 *                                                                 DTSBE418
00827                                                                   DTSBE418
00828 *    PERFORM S1000-PURSUED-RPT-IND THRU S1000-EXIT.               DTSBE418
00829                                                                   DTSBE418
00830                                                                   DTSBE418
00831 *    PERFORM S2000-MISS-RPT-CUTOFF-CD THRU S2000-EXIT.            DTSBE418
00832                                                                   DTSBE418
00833                                                                   DTSBE418
00834  P2110-EXIT.                                                      DTSBE418
00835      EXIT.                                                        DTSBE418
00836      SKIP3                                                        DTSBE418
00837  P2120-NOT-LIABLE.                                                DTSBE418
00838      IF MQTR-CURR-NOT-LIABLE-88                                   DTSBE418
00839          NEXT SENTENCE                                            DTSBE418
00840      ELSE                                                         DTSBE418
00841          PERFORM S9100-INCONSISTENT-RPT-TYPE THRU S9100-EXIT.     DTSBE418
00842                                                                   DTSBE418
00843                                                                   DTSBE418
00844 *    PERFORM S2000-MISS-RPT-CUTOFF-CD THRU S2000-EXIT.            DTSBE418
00845  P2120-EXIT.                                                      DTSBE418
00846      EXIT.                                                        DTSBE418
00847      SKIP3                                                        DTSBE418
00848  P2200-NO-MQTR-EXISTS.                                            DTSBE418
00849      IF L516-NOT-LIABLE-88                                        DTSBE418
00850          GO TO P2200-EXIT.                                        DTSBE418
00851                                                                   DTSBE418
00852      IF TF-RPT-FOUND-YES-88 (MPRF-EMP-NO)                         DTSBE418
00853         SET TF-BYPASSED-YES-88 (MPRF-EMP-NO) TO TRUE              DTSBE418
00854         ADD +1 TO WRK-BYPASS-CNT                                  DTSBE418
00855         DISPLAY 'BE418 TRAN FOUND ' MPRF-EMP-NO                   DTSBE418
00856      END-IF.                                                      DTSBE418
00857                                                                   DTSBE418
00858  P2200-EXIT.                                                      DTSBE418
00859      EXIT.                                                        DTSBE418
00860      EJECT                                                        DTSBE418
00861  P3000-CONSTRUCT-RPT-RECS.                                        DTSBE418
00862      MOVE MPRF-EMP-NO TO R417-EMP-NO                              DTSBE418
00863                          R418-EMP-NO.                             DTSBE418
00864                                                                   DTSBE418
00865      MOVE WRK-UC30-FIRST-DEL-MAIL-DATE                            DTSBE418
00866        TO R417-MAIL-DATE.                                         DTSBE418
00867                                                                   DTSBE418
00868      MOVE WRK-PARM-RETURN-BY-DATE TO R417-RETURN-BY-DATE.         DTSBE418
00869                                                                   DTSBE418
00870      MOVE WRK-PARM-SUBJECT-YRQ TO R417-YRQ                        DTSBE418
00871                                   R418-YRQ.                       DTSBE418
00872                                                                   DTSBE418
00873      MOVE WRK-SUBJECT-YRQ-RPT-DUE-DATE                            DTSBE418
00874        TO R417-DUE-DATE.                                          DTSBE418
00875                                                                   DTSBE418
00876      MOVE MPRF-PRIMARY-NAME TO R418-PRIMARY-NAME.                 DTSBE418
00877                                                                   DTSBE418
00878      MOVE ZEROS TO R417-ADDITIONAL-RPT-CNT                        DTSBE418
00879                    R418-ADDITIONAL-RPT-CNT.                       DTSBE418
00880                                                                   DTSBE418
00881                                                                   DTSBE418
00882      PERFORM                                                      DTSBE418
00883        VARYING WRK-SUB FROM 1 BY 1                                DTSBE418
00884        UNTIL WRK-SUB > +19                                        DTSBE418
00885          MOVE +0 TO R417-ADDITIONAL-RPT-YRQ (WRK-SUB)             DTSBE418
00886                     R418-ADDITIONAL-RPT-YRQ (WRK-SUB)             DTSBE418
00887      END-PERFORM.                                                 DTSBE418
00888                                                                   DTSBE418
00889                                                                   DTSBE418
00890      IF MPRF-PURSUED-RPT-CNT LESS THAN 2                          DTSBE418
00891          NEXT SENTENCE                                            DTSBE418
00892      ELSE                                                         DTSBE418
00893          MOVE LOW-VALUES TO MQTR-KEY-AREA                         DTSBE418
00894          MOVE MPRF-EMP-NO TO MQTR-EMP-NO                          DTSBE418
00895          SET MQTR-QTR-88 TO TRUE                                  DTSBE418
00896          MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA                      DTSBE418
00897          PERFORM S910-START-BROWSE THRU S910-EXIT                 DTSBE418
00898          PERFORM P3010-SCAN-MQTR THRU P3010-EXIT                  DTSBE418
00899              UNTIL L910-NO-REC-88.                                DTSBE418
00900                                                                   DTSBE418
00901                                                                   DTSBE418
00902      PERFORM S061-DETERMINE-FLD-REP THRU S061-EXIT.               DTSBE418
00903                                                                   DTSBE418
00904                                                                   DTSBE418
00905      MOVE L061-FLD-REP-ID TO R418-FIELD-REP-ID.                   DTSBE418
00906                                                                   DTSBE418
00907                                                                   DTSBE418
00908      PERFORM P3020-CALC-RATE THRU P3020-EXIT.                     DTSBE418
00909                                                                   DTSBE418
00910                                                                   DTSBE418
00911      SET WRK-MTAD-NO-LETTER-SENT-88 TO TRUE.                      DTSBE418
00912                                                                   DTSBE418
00913      MOVE LOW-VALUES TO MTAD-KEY-AREA.                            DTSBE418
00914                                                                   DTSBE418
00915      MOVE MPRF-EMP-NO TO MTAD-EMP-NO.                             DTSBE418
00916                                                                   DTSBE418
00917      SET MTAD-TAD-88 TO TRUE.                                     DTSBE418
00918                                                                   DTSBE418
00919      MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE418
00920                                                                   DTSBE418
00921      MOVE SPACES TO R418-ADDRESS1-SENT-IND                        DTSBE418
00922                     R418-ADDRESS2-SENT-IND                        DTSBE418
00923                     R418-ADDRESS3-SENT-IND.                       DTSBE418
00924                                                                   DTSBE418
00925                                                                   DTSBE418
00926      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE418
00927                                                                   DTSBE418
00928                                                                   DTSBE418
00929      PERFORM P3030-SCAN-MTAD THRU P3030-EXIT                      DTSBE418
00930          UNTIL L910-NO-REC-88.                                    DTSBE418
00931                                                                   DTSBE418
00932                                                                   DTSBE418
00933      IF WRK-MTAD-NO-LETTER-SENT-88                                DTSBE418
00934          MOVE MSG2-ID TO R907-MSG-ID                              DTSBE418
00935          MOVE WRK-SUBJECT-SLASH-QTR TO MSG2-SLASHED-YRQ           DTSBE418
00936          MOVE MSG2-TEXT TO R907-MSG-TEXT                          DTSBE418
00937          PERFORM S946-WRITE-R907 THRU S946-EXIT.                  DTSBE418
00938                                                                   DTSBE418
00939                                                                   DTSBE418
00940      SET WRK-MOPO-NO-LETTER-SENT-88 TO TRUE.                      DTSBE418
00941                                                                   DTSBE418
00942      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBE418
00943                                                                   DTSBE418
00944      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBE418
00945                                                                   DTSBE418
00946      SET MSKL-OPO-88 TO TRUE.                                     DTSBE418
00947                                                                   DTSBE418
00948      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE418
00949                                                                   DTSBE418
00950      PERFORM P3040-SCAN-MOPO THRU P3040-EXIT                      DTSBE418
00951          UNTIL L910-NO-REC-88.                                    DTSBE418
00952                                                                   DTSBE418
00953                                                                   DTSBE418
00954      SET WRK-MTAA-NO-LETTER-SENT-88 TO TRUE.                      DTSBE418
00955                                                                   DTSBE418
00956      MOVE LOW-VALUES TO MSKL-KEY-AREA.                            DTSBE418
00957                                                                   DTSBE418
00958      MOVE MPRF-EMP-NO TO MSKL-EMP-NO.                             DTSBE418
00959                                                                   DTSBE418
00960      SET MSKL-TAA-88 TO TRUE.                                     DTSBE418
00961                                                                   DTSBE418
00962      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE418
00963                                                                   DTSBE418
00964      PERFORM P3050-SCAN-MTAA THRU P3050-EXIT                      DTSBE418
00965          UNTIL L910-NO-REC-88.                                    DTSBE418
00966                                                                   DTSBE418
00967                                                                   DTSBE418
00968      IF (WRK-MTAD-NO-LETTER-SENT-88)                              DTSBE418
00969               AND                                                 DTSBE418
00970         (WRK-MOPO-NO-LETTER-SENT-88)                              DTSBE418
00971               AND                                                 DTSBE418
00972         (WRK-MTAA-NO-LETTER-SENT-88)                              DTSBE418
00973          MOVE MSG5-ID TO R907-MSG-ID                              DTSBE418
00974          MOVE WRK-SUBJECT-SLASH-QTR TO MSG5-SLASHED-YRQ           DTSBE418
00975          MOVE MSG5-TEXT TO R907-MSG-TEXT                          DTSBE418
00976          PERFORM S946-WRITE-R907 THRU S946-EXIT                   DTSBE418
00977      ELSE                                                         DTSBE418
00978          PERFORM S064-LOOKUP-FLD-ZIP-ADDR THRU S064-EXIT          DTSBE418
00979          MOVE L064-CITY TO R418-CITY                              DTSBE418
00980          MOVE L064-ST TO R418-STATE                               DTSBE418
00981          MOVE L064-ZIP TO R418-ZIP                                DTSBE418
00982          PERFORM S946-WRITE-R418 THRU S946-EXIT.                  DTSBE418
00983                                                                   DTSBE418
00984 *     PERFORM P3060-TPS-UNIVERSE THRU P3060-EXIT.                 DTSBE418
00985                                                                   DTSBE418
00986       ADD +1 TO WRK-DELINQUENT-CNT.                               DTSBE418
00987       IF MPRF-CLASS-SELF-INS-88                                   DTSBE418
00988          ADD +1 TO WRK-SI-DEL-CNT                                 DTSBE418
00989       END-IF.                                                     DTSBE418
00990                                                                   DTSBE418
00991  P3000-EXIT.                                                      DTSBE418
00992      EXIT.                                                        DTSBE418
00993      EJECT                                                        DTSBE418
00994  P3010-SCAN-MQTR.                                                 DTSBE418
00995      MOVE MSKL-REC TO MQTR-REC.                                   DTSBE418
00996                                                                   DTSBE418
00997      IF MQTR-YRQ = WRK-PARM-SUBJECT-YRQ                           DTSBE418
00998         NEXT SENTENCE                                             DTSBE418
00999      ELSE                                                         DTSBE418
01000         IF MQTR-RPT-IS-PURSUED-88                                 DTSBE418
01001            ADD +1 TO R417-ADDITIONAL-RPT-CNT                      DTSBE418
01002                      R418-ADDITIONAL-RPT-CNT                      DTSBE418
01003            IF R417-ADDITIONAL-RPT-CNT > 19                        DTSBE418
01004                SET L910-NO-REC-88 TO TRUE                         DTSBE418
01005                PERFORM P3011-WRITE-R907 THRU P3011-EXIT           DTSBE418
01006                SUBTRACT +1 FROM R417-ADDITIONAL-RPT-CNT           DTSBE418
01007                                 R418-ADDITIONAL-RPT-CNT           DTSBE418
01008                GO TO P3010-EXIT                                   DTSBE418
01009            ELSE                                                   DTSBE418
01010                MOVE MQTR-YRQ TO                                   DTSBE418
01011              R417-ADDITIONAL-RPT-YRQ (R417-ADDITIONAL-RPT-CNT)    DTSBE418
01012              R418-ADDITIONAL-RPT-YRQ (R418-ADDITIONAL-RPT-CNT).   DTSBE418
01013                                                                   DTSBE418
01014                                                                   DTSBE418
01015      PERFORM S910-READ-NEXT  THRU  S910-EXIT.                     DTSBE418
01016  P3010-EXIT.                                                      DTSBE418
01017      EXIT.                                                        DTSBE418
01018      EJECT                                                        DTSBE418
01019  P3011-WRITE-R907.                                                DTSBE418
01020      MOVE MSG3-ID TO R907-MSG-ID.                                 DTSBE418
01021                                                                   DTSBE418
01022      MOVE MQTR-YRQ TO L004-QTR-5-9                                DTSBE418
01023                                                                   DTSBE418
01024      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBE418
01025                                                                   DTSBE418
01026      MOVE L004-SLASH-QTR TO MSG3-SLASHED-YRQ.                     DTSBE418
01027                                                                   DTSBE418
01028      MOVE MSG3-TEXT TO R907-MSG-TEXT.                             DTSBE418
01029                                                                   DTSBE418
01030      PERFORM S946-WRITE-R907 THRU S946-EXIT.                      DTSBE418
01031  P3011-EXIT.                                                      DTSBE418
01032      EXIT.                                                        DTSBE418
01033      EJECT                                                        DTSBE418
01034  P3020-CALC-RATE.                                                 DTSBE418
01035      IF WRK-SUBJECT-YRQ-NO-UI-RATE-88                             DTSBE418
01036         IF MPRF-CLASS-SELF-INS-88                                 DTSBE418
01037             PERFORM P3021-GET-L109 THRU P3021-EXIT                DTSBE418
01038             COMPUTE                                               DTSBE418
01039                 R417-TOTAL-RATE = L109-SUR-RATE                   DTSBE418
01040         ELSE                                                      DTSBE418
01041              SET R417-NO-UI-RATE-88 TO TRUE                       DTSBE418
01042              PERFORM P3022-NO-RATE-R907 THRU P3022-EXIT           DTSBE418
01043      ELSE                                                         DTSBE418
01044          PERFORM P3021-GET-L109 THRU P3021-EXIT                   DTSBE418
01045             COMPUTE                                               DTSBE418
01046                 R417-TOTAL-RATE =                                 DTSBE418
01047                 WRK-SUBJECT-YRQ-UI-RATE +                         DTSBE418
01048                 L109-SUR-RATE.                                    DTSBE418
01049                                                                   DTSBE418
01050      MOVE R417-TOTAL-RATE TO R418-TOTAL-RATE.                     DTSBE418
01051  P3020-EXIT.                                                      DTSBE418
01052      EXIT.                                                        DTSBE418
01053      EJECT                                                        DTSBE418
01054  P3021-GET-L109.                                                  DTSBE418
01055      MOVE MPRF-EMP-CLASS TO L109-EMP-CLASS.                       DTSBE418
01056                                                                   DTSBE418
01057      MOVE MQTR-YRQ TO L109-YRQ.                                   DTSBE418
01058                                                                   DTSBE418
01059      SET L109-CMND-INPUT-QTR-88 TO TRUE.                          DTSBE418
01060                                                                   DTSBE418
01061      PERFORM S109-LOOKUP-SUR-RATE THRU S109-EXIT.                 DTSBE418
01062  P3021-EXIT.                                                      DTSBE418
01063      EXIT.                                                        DTSBE418
01064      EJECT                                                        DTSBE418
01065  P3022-NO-RATE-R907.                                              DTSBE418
01066      MOVE MSG1-ID TO R907-MSG-ID.                                 DTSBE418
01067                                                                   DTSBE418
01068      MOVE WRK-SUBJECT-SLASH-QTR TO MSG1-SLASHED-YRQ.              DTSBE418
01069                                                                   DTSBE418
01070      MOVE MSG1-TEXT TO R907-MSG-TEXT.                             DTSBE418
01071                                                                   DTSBE418
01072      PERFORM S946-WRITE-R907 THRU S946-EXIT.                      DTSBE418
01073  P3022-EXIT.                                                      DTSBE418
01074      EXIT.                                                        DTSBE418
01075      EJECT                                                        DTSBE418
01076  P3030-SCAN-MTAD.                                                 DTSBE418
01077      MOVE MSKL-REC TO MTAD-REC.                                   DTSBE418
01078                                                                   DTSBE418
01079      IF MTAD-MISSING-RPT-LTRS-YES-88                              DTSBE418
01080          SET WRK-MTAD-LETTER-SENT-88 TO TRUE                      DTSBE418
01081          PERFORM P3031-LOOKUP-ADDR THRU P3031-EXIT                DTSBE418
01082          PERFORM P3032-SET-ADDRESS-SENT-IND THRU P3032-EXIT       DTSBE418
01083          PERFORM S946-WRITE-R417 THRU S946-EXIT                   DTSBE418
01084          MOVE WRK-SUBJECT-SLASH-QTR TO EVL-SLASH-QTR              DTSBE418
01085          MOVE 'MTAD' TO EVL-ADDR-TYPE                             DTSBE418
01086          MOVE MTAD-ID-NO TO EVL-ADDR-ID-NO                        DTSBE418
01087          PERFORM S4000-WRITE-MEVL THRU S4000-EXIT                 DTSBE418
01088          MOVE MTAD-REC TO MSKL-REC                                DTSBE418
01089          PERFORM S910-READ THRU S910-EXIT                         DTSBE418
01090          IF L910-NO-REC-88                                        DTSBE418
01091              MOVE 'LOGIC ERROR IN P3030' TO ABEND-MSG             DTSBE418
01092              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE418
01093                                                                   DTSBE418
01094                                                                   DTSBE418
01095      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE418
01096  P3030-EXIT.                                                      DTSBE418
01097      EXIT.                                                        DTSBE418
01098      SKIP3                                                        DTSBE418
01099  P3031-LOOKUP-ADDR.                                               DTSBE418
01100      MOVE MTAD-ID-NO TO L111-ID-NO.                               DTSBE418
01101                                                                   DTSBE418
01102                                                                   DTSBE418
01103      PERFORM S111-LOOKUP-TAD THRU S111-EXIT.                      DTSBE418
01104                                                                   DTSBE418
01105                                                                   DTSBE418
01106      IF L111-ADDR-FOUND-88                                        DTSBE418
01107          MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA          DTSBE418
01108          PERFORM S112-TAD-ADDR THRU S112-EXIT                     DTSBE418
01109          MOVE L112-MAILING-ADDRESS TO R417-FMT-ADDR               DTSBE418
01110          MOVE L112-ZIP TO R417-ZIP                                DTSBE418
01111                           R417-SORT-ZIP                           DTSBE418
01112          MOVE L112-ADVANCED-BARCODE TO R417-ADVANCED-BARCODE      DTSBE418
01113      ELSE                                                         DTSBE418
01114          MOVE ALL '?' TO R417-FMT-ADDR                            DTSBE418
01115                          R417-ZIP                                 DTSBE418
01116                          R417-SORT-ZIP                            DTSBE418
01117                          R417-ADVANCED-BARCODE.                   DTSBE418
01118  P3031-EXIT.                                                      DTSBE418
01119      EXIT.                                                        DTSBE418
01120      SKIP3                                                        DTSBE418
01121  P3032-SET-ADDRESS-SENT-IND.                                      DTSBE418
01122      IF MTAD-ID-NO = 001                                          DTSBE418
01123          SET R418-ADDRESS1-SENT-YES TO TRUE                       DTSBE418
01124      ELSE                                                         DTSBE418
01125      IF MTAD-ID-NO = 002                                          DTSBE418
01126          SET R418-ADDRESS2-SENT-YES TO TRUE.                      DTSBE418
01127  P3032-EXIT.                                                      DTSBE418
01128      EXIT.                                                        DTSBE418
01129      EJECT                                                        DTSBE418
01130  P3040-SCAN-MOPO.                                                 DTSBE418
01131      MOVE MSKL-REC TO MOPO-REC.                                   DTSBE418
01132                                                                   DTSBE418
01133      IF MOPO-MISSING-RPT-LTRS-YES-88                              DTSBE418
01134          SET WRK-MOPO-LETTER-SENT-88 TO TRUE                      DTSBE418
01135          PERFORM P3041-LOOKUP-ADDR THRU P3041-EXIT                DTSBE418
01136          PERFORM S946-WRITE-R417 THRU S946-EXIT                   DTSBE418
01137          MOVE WRK-SUBJECT-SLASH-QTR TO EVL-SLASH-QTR              DTSBE418
01138          MOVE 'MOPO' TO EVL-ADDR-TYPE                             DTSBE418
01139          MOVE MOPO-ID-NO TO EVL-ADDR-ID-NO                        DTSBE418
01140          PERFORM S4000-WRITE-MEVL THRU S4000-EXIT                 DTSBE418
01141          MOVE MOPO-REC TO MSKL-REC                                DTSBE418
01142          PERFORM S910-READ THRU S910-EXIT                         DTSBE418
01143          IF L910-NO-REC-88                                        DTSBE418
01144              MOVE 'LOGIC ERROR IN P3040' TO ABEND-MSG             DTSBE418
01145              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE418
01146                                                                   DTSBE418
01147      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE418
01148  P3040-EXIT.                                                      DTSBE418
01149      EXIT.                                                        DTSBE418
01150      SKIP3                                                        DTSBE418
01151  P3041-LOOKUP-ADDR.                                               DTSBE418
01152      MOVE MOPO-ID-NO TO L111-ID-NO.                               DTSBE418
01153                                                                   DTSBE418
01154      PERFORM S111-LOOKUP-OPO THRU S111-EXIT.                      DTSBE418
01155                                                                   DTSBE418
01156      IF L111-ADDR-FOUND-88                                        DTSBE418
01157          MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA          DTSBE418
01158          PERFORM S112-OPO-ADDR THRU S112-EXIT                     DTSBE418
01159          MOVE L112-MAILING-ADDRESS TO R417-FMT-ADDR               DTSBE418
01160          MOVE L112-ZIP TO R417-ZIP                                DTSBE418
01161                           R417-SORT-ZIP                           DTSBE418
01162          MOVE L112-ADVANCED-BARCODE TO R417-ADVANCED-BARCODE      DTSBE418
01163      ELSE                                                         DTSBE418
01164          MOVE ALL '?' TO R417-FMT-ADDR                            DTSBE418
01165                          R417-ZIP                                 DTSBE418
01166                          R417-SORT-ZIP                            DTSBE418
01167                          R417-ADVANCED-BARCODE.                   DTSBE418
01168  P3041-EXIT.                                                      DTSBE418
01169      EXIT.                                                        DTSBE418
01170      EJECT                                                        DTSBE418
01171  P3050-SCAN-MTAA.                                                 DTSBE418
01172      MOVE MSKL-REC TO MTAA-REC.                                   DTSBE418
01173                                                                   DTSBE418
01174      IF MTAA-MISSING-RPT-LTRS-YES-88                              DTSBE418
01175          SET WRK-MTAA-LETTER-SENT-88 TO TRUE                      DTSBE418
01176          PERFORM P3051-LOOKUP-ADDR THRU P3051-EXIT                DTSBE418
01177          PERFORM S946-WRITE-R417 THRU S946-EXIT                   DTSBE418
01178          MOVE WRK-SUBJECT-SLASH-QTR TO EVL-SLASH-QTR              DTSBE418
01179          MOVE 'MTAA' TO EVL-ADDR-TYPE                             DTSBE418
01180          MOVE MTAA-ID-NO TO EVL-ADDR-ID-NO                        DTSBE418
01181          PERFORM S4000-WRITE-MEVL THRU S4000-EXIT                 DTSBE418
01182          MOVE MTAA-REC TO MSKL-REC                                DTSBE418
01183          PERFORM S910-READ THRU S910-EXIT                         DTSBE418
01184          IF L910-NO-REC-88                                        DTSBE418
01185              MOVE 'LOGIC ERROR IN P3050' TO ABEND-MSG             DTSBE418
01186              PERFORM S999-ABEND THRU S999-EXIT.                   DTSBE418
01187                                                                   DTSBE418
01188      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE418
01189  P3050-EXIT.                                                      DTSBE418
01190      EXIT.                                                        DTSBE418
01191      SKIP3                                                        DTSBE418
01192  P3051-LOOKUP-ADDR.                                               DTSBE418
01193      MOVE MTAA-ID-NO TO L111-ID-NO.                               DTSBE418
01194                                                                   DTSBE418
01195      PERFORM S111-LOOKUP-TAA THRU S111-EXIT.                      DTSBE418
01196                                                                   DTSBE418
01197      IF L111-ADDR-FOUND-88                                        DTSBE418
01198          MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA          DTSBE418
01199          PERFORM S112-TAA-ADDR THRU S112-EXIT                     DTSBE418
01200          MOVE L112-MAILING-ADDRESS TO R417-FMT-ADDR               DTSBE418
01201          MOVE L112-ZIP TO R417-ZIP                                DTSBE418
01202                           R417-SORT-ZIP                           DTSBE418
01203          MOVE L112-ADVANCED-BARCODE TO R417-ADVANCED-BARCODE      DTSBE418
01204      ELSE                                                         DTSBE418
01205          MOVE ALL '?' TO R417-FMT-ADDR                            DTSBE418
01206                          R417-ZIP                                 DTSBE418
01207                          R417-SORT-ZIP                            DTSBE418
01208                          R417-ADVANCED-BARCODE.                   DTSBE418
01209                                                                   DTSBE418
01210  P3051-EXIT.                                                      DTSBE418
01211      EXIT.                                                        DTSBE418
01212                                                                   DTSBE418
01213  P3060-TPS-UNIVERSE.                                              DTSBE418
01214                                                                   DTSBE418
01215 *    MOVE WRK-PARM-SUBJECT-YRQ  TO L004-QTR-5-9.                  DTSBE418
01216 *                                                                 DTSBE418
01217 *    IF L004-QTR-5-Q         = TPS-UNIV-QTR                       DTSBE418
01218 *       NEXT SENTENCE                                             DTSBE418
01219 *    ELSE                                                         DTSBE418
01220 *       GO TO P3060-EXIT                                          DTSBE418
01221 *    END-IF.                                                      DTSBE418
01222                                                                   DTSBE418
01223 *    MOVE MPRF-EMP-NO TO R716-EMP-NO.                             DTSBE418
01224                                                                   DTSBE418
01225 *    MOVE LECM-CURR-RUN-DATE TO R716-RUN-DATE.                    DTSBE418
01226                                                                   DTSBE418
01227 *    MOVE MPRF-PRIMARY-NAME TO R716-PRIMARY-NAME.                 DTSBE418
01228                                                                   DTSBE418
01229 *    PERFORM S946-WRITE-R716 THRU S946-EXIT.                      DTSBE418
01230                                                                   DTSBE418
01231  P3060-EXIT.                                                      DTSBE418
01232      EXIT.                                                        DTSBE418
01233                                                                   DTSBE418
01234                                                                   DTSBE418
01235  P4000-PENALTY.                                                   DTSBE418
01236      IF MPRF-PURSUED-RPT-CNT > +2                                 DTSBE418
01237         ADD +1 TO WRK-OVER-2-MISS-CNT                             DTSBE418
01238         DISPLAY 'OVER 2 ' MPRF-EMP-NO '  ' MPRF-PURSUED-RPT-CNT   DTSBE418
01239         GO TO P4000-EXIT                                          DTSBE418
01240      END-IF                                                       DTSBE418
01241      PERFORM P4100-INIT-L102       THRU P4100-EXIT.               DTSBE418
01242                                                                   DTSBE418
01243      PERFORM S102-DELINQUENCY-RUN THRU S102-EXIT.                 DTSBE418
01244      IF L102-LATE-PEN-CHARGE-CHNG > +0                            DTSBE418
01245         ADD +1 TO WRK-PEN-CNT                                     DTSBE418
01246         IF MPRF-CLASS-SELF-INS-88                                 DTSBE418
01247            ADD +1 TO WRK-SI-PEN-CNT                               DTSBE418
01248         END-IF                                                    DTSBE418
01249         PERFORM P4200-GENERATE-T026 THRU P4200-EXIT               DTSBE418
01250      END-IF.                                                      DTSBE418
01251                                                                   DTSBE418
01252  P4000-EXIT.                                                      DTSBE418
01253      EXIT.                                                        DTSBE418
01254                                                                   DTSBE418
01255  P4100-INIT-L102.                                                 DTSBE418
01256      MOVE MPRF-EMP-CLASS     TO L102-EMP-CLASS.                   DTSBE418
01257      MOVE +0 TO L102-TRAN-RECEIVED-DATE.                          DTSBE418
01258      SET L102-WAIVE-LATE-PEN-NO-88 TO TRUE.                       DTSBE418
01259      MOVE WRK-PARM-SUBJECT-YRQ TO L102-LAST-PEN-ASSESSED-YRQ.     DTSBE418
01260      MOVE +0 TO L102-OR-RECEIVED-DATE.                            DTSBE418
01261                                                                   DTSBE418
01262      MOVE WRK-PARM-SUBJECT-YRQ TO L102-MQTR-YRQ.                  DTSBE418
01263      MOVE MQTR-TAX-DUE-DATE TO L102-TAX-DUE-DATE.                 DTSBE418
01264      MOVE MQTR-RPT-DUE-DATE TO L102-RPT-DUE-DATE.                 DTSBE418
01265                                                                   DTSBE418
01266      MOVE LECM-CURR-RUN-DATE TO L102-CURR-RUN-DATE.               DTSBE418
01267                                                                   DTSBE418
01268      MOVE +0 TO L102-LATE-PEN-CHARGED-AMT                         DTSBE418
01269                 L102-TAX-CHARGED-AMT                              DTSBE418
01270                 L102-TAX-BALANCE-AMT                              DTSBE418
01271                 WRK-TIMELY-PAYMENTS.                              DTSBE418
01272      PERFORM                                                      DTSBE418
01273        VARYING MQTR-ACCT-IDX FROM 1 BY 1                          DTSBE418
01274        UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                        DTSBE418
01275          IF MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX)                 DTSBE418
01276              ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                 DTSBE418
01277               TO L102-LATE-PEN-CHARGED-AMT                        DTSBE418
01278          END-IF                                                   DTSBE418
01279          IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX)                       DTSBE418
01280              ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                 DTSBE418
01281               TO L102-TAX-CHARGED-AMT                             DTSBE418
01282 *            ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX)                 DTSBE418
01283 *             TO L102-TAX-BALANCE-AMT                             DTSBE418
01284          END-IF                                                   DTSBE418
01285          IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX)                      DTSBE418
01286            IF MQTR-YRQ >= WRK-FIRST-PEN-INT-YRQ                   DTSBE418
01287               ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                DTSBE418
01288                           TO L102-TAX-CHARGED-AMT                 DTSBE418
01289            END-IF                                                 DTSBE418
01290          END-IF                                                   DTSBE418
01291      END-PERFORM.                                                 DTSBE418
01292                                                                   DTSBE418
01293      MOVE MQTR-PEN-AREA TO L102-PEN-AREA.                         DTSBE418
01294                                                                   DTSBE418
01295 *    MOVE ZERO          TO WRK-TIMELY-SI-PAY-AMT.                 DTSBE418
01296 *    IF MPRF-CLASS-SELF-INS-88                                    DTSBE418
01297 *       MOVE WRK-TIMELY-SI-PAY-AMT TO L102-TIMELY-SI-PAY-AMT      DTSBE418
01298 *    END-IF.                                                      DTSBE418
01299                                                                   DTSBE418
01300      PERFORM P4110-PAYMENTS       THRU P4110-EXIT                 DTSBE418
01301                                                                   DTSBE418
01302      COMPUTE L102-TAX-BALANCE-AMT =                               DTSBE418
01303           (L102-TAX-CHARGED-AMT - WRK-TIMELY-PAYMENTS).           DTSBE418
01304                                                                   DTSBE418
01305  P4100-EXIT.                                                      DTSBE418
01306      EXIT.                                                        DTSBE418
01307                                                                   DTSBE418
01308  P4110-PAYMENTS.                                                  DTSBE418
01309      MOVE LOW-VALUE      TO MDST-KEY-AREA.                        DTSBE418
01310      MOVE MPRF-EMP-NO    TO MDST-EMP-NO.                          DTSBE418
01311      SET MDST-DST-88     TO TRUE.                                 DTSBE418
01312      MOVE MDST-KEY-AREA  TO MSKL-KEY-AREA.                        DTSBE418
01313      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE418
01314      IF L910-OK-88                                                DTSBE418
01315          PERFORM P4111-SCAN-MDST  THRU P4111-EXIT                 DTSBE418
01316             UNTIL L910-NO-REC-88.                                 DTSBE418
01317                                                                   DTSBE418
01318  P4110-EXIT.                                                      DTSBE418
01319      EXIT.                                                        DTSBE418
01320                                                                   DTSBE418
01321  P4111-SCAN-MDST.                                                 DTSBE418
01322      MOVE MSKL-REC      TO MDST-REC.                              DTSBE418
01323      IF (MDST-YRQ = MQTR-YRQ                                      DTSBE418
01324      AND MDST-RECEIVED-DATE <= MQTR-TAX-DUE-DATE)                 DTSBE418
01325          PERFORM                                                  DTSBE418
01326              VARYING MDST-ACCT-IDX FROM +1 BY +1                  DTSBE418
01327              UNTIL MDST-ACCT-IDX > MDST-ACCT-CNT                  DTSBE418
01328                  IF MDST-ACCT-UI-88 (MDST-ACCT-IDX)               DTSBE418
01329                      ADD MDST-AMT (MDST-ACCT-IDX)                 DTSBE418
01330                          TO WRK-TIMELY-PAYMENTS                   DTSBE418
01331                  END-IF                                           DTSBE418
01332                   IF MDST-ACCT-SUR-88 (MDST-ACCT-IDX)             DTSBE418
01333                      ADD MDST-AMT (MDST-ACCT-IDX)                 DTSBE418
01334                          TO WRK-TIMELY-PAYMENTS                   DTSBE418
01335                   END-IF                                          DTSBE418
01336          END-PERFORM                                              DTSBE418
01337      END-IF.                                                      DTSBE418
01338      PERFORM S910-READ-NEXT  THRU S910-EXIT.                      DTSBE418
01339  P4111-EXIT.                                                      DTSBE418
01340      EXIT.                                                        DTSBE418
01341                                                                   DTSBE418
01342  P4200-GENERATE-T026.                                             DTSBE418
01343      MOVE MPRF-EMP-NO TO T026-EMP-NO.                             DTSBE418
01344      SET T026-LATE-PEN-CHG TO TRUE.                               DTSBE418
01345      MOVE MPRF-PRIMARY-NAME TO T026-NAME-CHECK.                   DTSBE418
01346      MOVE L102-LATE-PEN-CHARGE-CHNG TO T026-AMT.                  DTSBE418
01347      MOVE +0 TO T026-RECEIVED-DATE.                               DTSBE418
01348      MOVE WRK-PARM-SUBJECT-YRQ TO T026-APPLIC-YRQ.                DTSBE418
01349      MOVE CACT-APPLIC-LATE-PEN TO T026-APPLIC-IND.                DTSBE418
01350      MOVE +0 TO T026-APPLIC-BATCH-NO                              DTSBE418
01351                 T026-APPLIC-ITEM-NO.                              DTSBE418
01352                                                                   DTSBE418
01353      MOVE +0 TO T026-DATE-1                                       DTSBE418
01354                 T026-DATE-2.                                      DTSBE418
01355      MOVE SPACE TO T026-INT-SPAN-IND.                             DTSBE418
01356      SET T026-NO-INT-RATE-88 TO TRUE.                             DTSBE418
01357      MOVE 'SYS' TO T026-RESPONSIBLE-ACTIVITY.                     DTSBE418
01358      MOVE SPACES TO T026-RESPONSIBLE-OP-ID.                       DTSBE418
01359      PERFORM S927-WRITE-T026 THRU S927-EXIT.                      DTSBE418
01360      IF L102-LATE-PEN-WAIVE-CHNG > +0                             DTSBE418
01361          SET T026-LATE-PEN-WAIVE TO TRUE                          DTSBE418
01362          MOVE L102-LATE-PEN-WAIVE-CHNG TO T026-AMT                DTSBE418
01363          PERFORM S927-WRITE-T026 THRU S927-EXIT.                  DTSBE418
01364                                                                   DTSBE418
01365  P4200-EXIT.                                                      DTSBE418
01366      EXIT.                                                        DTSBE418
01367                                                                   DTSBE418
01368  T0000-TERMINATE.                                                 DTSBE418
01369      CLOSE DOWNLOAD-FILE.                                         DTSBE418
01370                                                                   DTSBE418
01371      MOVE LOW-VALUES TO FQTR-KEY-AREA.                            DTSBE418
01372                                                                   DTSBE418
01373      SET FQTR-QTR-88 TO TRUE.                                     DTSBE418
01374                                                                   DTSBE418
01375      MOVE WRK-PARM-SUBJECT-YRQ TO FQTR-YRQ.                       DTSBE418
01376                                                                   DTSBE418
01377      MOVE FQTR-KEY-AREA TO FSKL-KEY-AREA.                         DTSBE418
01378                                                                   DTSBE418
01379      PERFORM S931-READ THRU S931-EXIT.                            DTSBE418
01380                                                                   DTSBE418
01381      IF L931-NO-REC-88                                            DTSBE418
01382         DISPLAY ' NO QTR REC FOUND'                               DTSBE418
01383      ELSE                                                         DTSBE418
01384          MOVE FSKL-REC TO FQTR-REC                                DTSBE418
01385 *        MOVE WRK-UC30-FIRST-DEL-CUTOFF-DATE                      DTSBE418
01386 *          TO FQTR-UC30-FIRST-DEL-DATE                            DTSBE418
01387 *        MOVE WRK-PARM-RETURN-BY-DATE TO                          DTSBE418
01388 *             FQTR-UC30-FINAL-ACTION-DATE                         DTSBE418
01389          MOVE LECM-CURR-RUN-DATE                                  DTSBE418
01390            TO FQTR-CHNG-DATE                                      DTSBE418
01391               FQTR-DELQ-LTR-SENT-DATE                             DTSBE418
01392          MOVE FQTR-REC TO FSKL-REC                                DTSBE418
01393          PERFORM S931-REWRITE THRU S931-EXIT.                     DTSBE418
01394                                                                   DTSBE418
01395                                                                   DTSBE418
01396      DISPLAY SPACE.                                               DTSBE418
01397      DISPLAY '**  DTSBE418 TERMINATION **'.                       DTSBE418
01398      DISPLAY 'DELINQUENT EMPLOYERS:    ' WRK-DELINQUENT-CNT.      DTSBE418
01399      DISPLAY 'SELF-INS DELINQUENT:     ' WRK-SI-DEL-CNT.          DTSBE418
01400      DISPLAY 'OVER 2 MISSING RPTS:     ' WRK-OVER-2-MISS-CNT.     DTSBE418
01401      DISPLAY SPACE.                                               DTSBE418
01402      DISPLAY 'TF TABLE ENTRIES   :     ' WRK-TF-TABLE-CNT.        DTSBE418
01403      DISPLAY 'TF BYPASSED        :     ' WRK-BYPASS-CNT.          DTSBE418
01404                                                                   DTSBE418
01405      DISPLAY 'NOT BYPASSED       :     '.                         DTSBE418
01406      PERFORM                                                      DTSBE418
01407         VARYING TF-SUB FROM +1 BY +1                              DTSBE418
01408         UNTIL TF-SUB > TF-MAX                                     DTSBE418
01409           IF TF-RPT-FOUND-YES-88  (TF-SUB)                        DTSBE418
01410            IF TF-BYPASSED-NO-88  (TF-SUB)                         DTSBE418
01411               DISPLAY TF-SUB                                      DTSBE418
01412            END-IF                                                 DTSBE418
01413           END-IF                                                  DTSBE418
01414      END-PERFORM.                                                 DTSBE418
01415                                                                   DTSBE418
01416  T0000-EXIT.                                                      DTSBE418
01417      EXIT.                                                        DTSBE418
01418      EJECT                                                        DTSBE418
01419  S1000-PURSUED-RPT-IND.                                           DTSBE418
01420      IF MQTR-RPT-IS-PURSUED-88                                    DTSBE418
01421          SUBTRACT 1 FROM MPRF-PURSUED-RPT-CNT.                    DTSBE418
01422                                                                   DTSBE418
01423      SET MQTR-RPT-NOT-PURSUED-88 TO TRUE.                         DTSBE418
01424                                                                   DTSBE418
01425      IF (MPRF-NOT-WRITTEN-OFF-88)                                 DTSBE418
01426             AND                                                   DTSBE418
01427         (MQTR-CURR-DELINQ-88 OR MQTR-CURR-ESTIM-88)               DTSBE418
01428             AND                                                   DTSBE418
01429         (MQTR-YRQ >= WRK-FIRST-PURSUED-RPT-YRQ)                   DTSBE418
01430          SET MQTR-RPT-IS-PURSUED-88 TO TRUE.                      DTSBE418
01431                                                                   DTSBE418
01432      IF MQTR-RPT-IS-PURSUED-88                                    DTSBE418
01433          ADD +1 TO MPRF-PURSUED-RPT-CNT.                          DTSBE418
01434  S1000-EXIT.                                                      DTSBE418
01435      EXIT.                                                        DTSBE418
01436      EJECT                                                        DTSBE418
01437  S2000-MISS-RPT-CUTOFF-CD.                                        DTSBE418
01438       IF MQTR-RPT-IS-PURSUED-88                                   DTSBE418
01439           PERFORM S2100-RPT-IS-PURSUED THRU S2100-EXIT            DTSBE418
01440       ELSE                                                        DTSBE418
01441           IF MQTR-CURR-RCVD-88                                    DTSBE418
01442               PERFORM S2200-CURR-RCVD THRU S2200-EXIT             DTSBE418
01443           ELSE                                                    DTSBE418
01444           IF MQTR-CURR-NOT-LIABLE-88                              DTSBE418
01445               SET MQTR-MISS-NOT-LIABLE-88 TO TRUE                 DTSBE418
01446           ELSE                                                    DTSBE418
01447           IF MQTR-CURR-NOT-DUE-88                                 DTSBE418
01448               SET MQTR-MISS-NO-LTR-EXT-88 TO TRUE                 DTSBE418
01449           ELSE                                                    DTSBE418
01450               SET MQTR-MISS-NO-LTR-OTHER-88 TO TRUE.              DTSBE418
01451  S2000-EXIT.                                                      DTSBE418
01452      EXIT.                                                        DTSBE418
01453      SKIP3                                                        DTSBE418
01454  S2100-RPT-IS-PURSUED.                                            DTSBE418
01455      SET MQTR-MISS-NO-LTR-ADDR-88 TO TRUE.                        DTSBE418
01456                                                                   DTSBE418
01457      MOVE LOW-VALUES TO MTAD-KEY-AREA.                            DTSBE418
01458                                                                   DTSBE418
01459      MOVE MPRF-EMP-NO TO MTAD-EMP-NO.                             DTSBE418
01460                                                                   DTSBE418
01461      SET MTAD-TAD-88 TO TRUE.                                     DTSBE418
01462                                                                   DTSBE418
01463      MOVE MTAD-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE418
01464                                                                   DTSBE418
01465      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE418
01466                                                                   DTSBE418
01467      PERFORM S2110-MTAD-SCAN THRU S2110-EXIT                      DTSBE418
01468          UNTIL L910-NO-REC-88.                                    DTSBE418
01469                                                                   DTSBE418
01470                                                                   DTSBE418
01471      IF MQTR-MISS-LETTER-SENT-88                                  DTSBE418
01472          GO TO S2100-EXIT.                                        DTSBE418
01473                                                                   DTSBE418
01474                                                                   DTSBE418
01475      MOVE LOW-VALUES TO MOPO-KEY-AREA.                            DTSBE418
01476                                                                   DTSBE418
01477      MOVE MPRF-EMP-NO TO MOPO-EMP-NO.                             DTSBE418
01478                                                                   DTSBE418
01479      SET MOPO-OPO-88 TO TRUE.                                     DTSBE418
01480                                                                   DTSBE418
01481      MOVE MOPO-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE418
01482                                                                   DTSBE418
01483      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE418
01484                                                                   DTSBE418
01485      PERFORM                                                      DTSBE418
01486        UNTIL L910-NO-REC-88                                       DTSBE418
01487          MOVE MSKL-REC TO MOPO-REC                                DTSBE418
01488          IF MOPO-MISSING-RPT-LTRS-YES-88                          DTSBE418
01489              SET MQTR-MISS-LETTER-SENT-88 TO TRUE                 DTSBE418
01490          END-IF                                                   DTSBE418
01491          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBE418
01492      END-PERFORM.                                                 DTSBE418
01493                                                                   DTSBE418
01494                                                                   DTSBE418
01495      IF MQTR-MISS-LETTER-SENT-88                                  DTSBE418
01496          GO TO S2100-EXIT.                                        DTSBE418
01497                                                                   DTSBE418
01498                                                                   DTSBE418
01499      MOVE LOW-VALUES TO MTAA-KEY-AREA.                            DTSBE418
01500                                                                   DTSBE418
01501      MOVE MPRF-EMP-NO TO MTAA-EMP-NO.                             DTSBE418
01502                                                                   DTSBE418
01503      SET MTAA-TAA-88 TO TRUE.                                     DTSBE418
01504                                                                   DTSBE418
01505      MOVE MTAA-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE418
01506                                                                   DTSBE418
01507      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE418
01508                                                                   DTSBE418
01509      PERFORM                                                      DTSBE418
01510        UNTIL L910-NO-REC-88                                       DTSBE418
01511          MOVE MSKL-REC TO MTAA-REC                                DTSBE418
01512          IF MTAA-MISSING-RPT-LTRS-YES-88                          DTSBE418
01513              SET MQTR-MISS-LETTER-SENT-88 TO TRUE                 DTSBE418
01514          END-IF                                                   DTSBE418
01515          PERFORM S910-READ-NEXT THRU S910-EXIT                    DTSBE418
01516      END-PERFORM.                                                 DTSBE418
01517  S2100-EXIT.                                                      DTSBE418
01518      EXIT.                                                        DTSBE418
01519      SKIP3                                                        DTSBE418
01520  S2110-MTAD-SCAN.                                                 DTSBE418
01521      MOVE MSKL-REC TO MTAD-REC.                                   DTSBE418
01522                                                                   DTSBE418
01523      IF MTAD-MISSING-RPT-LTRS-YES-88                              DTSBE418
01524          SET MQTR-MISS-LETTER-SENT-88 TO TRUE                     DTSBE418
01525          SET L910-NO-REC-88 TO TRUE                               DTSBE418
01526      ELSE                                                         DTSBE418
01527          PERFORM S910-READ-NEXT THRU S910-EXIT.                   DTSBE418
01528  S2110-EXIT.                                                      DTSBE418
01529      EXIT.                                                        DTSBE418
01530      SKIP3                                                        DTSBE418
01531  S2200-CURR-RCVD.                                                 DTSBE418
01532      MOVE ALL-NINES-DATE TO WRK-ORIG-RECEIVED-DATE.               DTSBE418
01533                                                                   DTSBE418
01534                                                                   DTSBE418
01535      MOVE LOW-VALUES TO MRPT-KEY-AREA.                            DTSBE418
01536                                                                   DTSBE418
01537      MOVE MPRF-EMP-NO TO MRPT-EMP-NO.                             DTSBE418
01538                                                                   DTSBE418
01539      SET MRPT-RPT-88 TO TRUE.                                     DTSBE418
01540                                                                   DTSBE418
01541      MOVE MQTR-YRQ TO MRPT-YRQ.                                   DTSBE418
01542                                                                   DTSBE418
01543      MOVE MRPT-KEY-AREA TO MSKL-KEY-AREA.                         DTSBE418
01544                                                                   DTSBE418
01545      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBE418
01546                                                                   DTSBE418
01547      PERFORM S2210-MRPT-SCAN THRU S2210-EXIT                      DTSBE418
01548          UNTIL L910-NO-REC-88.                                    DTSBE418
01549                                                                   DTSBE418
01550      IF WRK-ORIG-RECEIVED-DATE > MQTR-RPT-DUE-DATE                DTSBE418
01551          SET MQTR-MISS-UNTIMELY-88 TO TRUE                        DTSBE418
01552      ELSE                                                         DTSBE418
01553          SET MQTR-MISS-TIMELY-88 TO TRUE.                         DTSBE418
01554  S2200-EXIT.                                                      DTSBE418
01555      EXIT.                                                        DTSBE418
01556      SKIP3                                                        DTSBE418
01557  S2210-MRPT-SCAN.                                                 DTSBE418
01558      MOVE MSKL-REC TO MRPT-REC.                                   DTSBE418
01559                                                                   DTSBE418
01560      IF MQTR-YRQ = MRPT-YRQ                                       DTSBE418
01561          NEXT SENTENCE                                            DTSBE418
01562      ELSE                                                         DTSBE418
01563          SET L910-NO-REC-88 TO TRUE                               DTSBE418
01564          GO TO S2210-EXIT.                                        DTSBE418
01565                                                                   DTSBE418
01566      IF MRPT-ORIG-88                                              DTSBE418
01567          MOVE MRPT-RECEIVED-DATE                                  DTSBE418
01568            TO WRK-ORIG-RECEIVED-DATE.                             DTSBE418
01569                                                                   DTSBE418
01570      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBE418
01571  S2210-EXIT.                                                      DTSBE418
01572      EXIT.                                                        DTSBE418
01573      EJECT                                                        DTSBE418
01574  S3000-ESTB-MTCK.                                                 DTSBE418
01575      MOVE LOW-VALUES TO MTCK-REC.                                 DTSBE418
01576                                                                   DTSBE418
01577      MOVE MPRF-EMP-NO TO MTCK-EMP-NO.                             DTSBE418
01578                                                                   DTSBE418
01579      SET MTCK-TCK-88 TO TRUE.                                     DTSBE418
01580                                                                   DTSBE418
01581      ADD +1 TO LECM-EMP-ABSTIME.                                  DTSBE418
01582                                                                   DTSBE418
01583      MOVE LECM-EMP-ABSTIME TO MTCK-ESTB-ABSTIME.                  DTSBE418
01584                                                                   DTSBE418
01585      MOVE +0 TO MTCK-PURGE-DATE.                                  DTSBE418
01586                                                                   DTSBE418
01587      MOVE +0 TO MTCK-TEXT-CNT.                                    DTSBE418
01588                                                                   DTSBE418
01589      SET MTCK-TYPE-CHK-LATE-88 TO TRUE.                           DTSBE418
01590                                                                   DTSBE418
01591      MOVE WRK-TRIGGER-DATE TO MTCK-TRIGGER-DATE.                  DTSBE418
01592                                                                   DTSBE418
01593      MOVE +0 TO MTCK-ACKNOWLEDGED-DATE.                           DTSBE418
01594                                                                   DTSBE418
01595      SET MTCK-SOURCE-SYSTEM-88 TO TRUE.                           DTSBE418
01596                                                                   DTSBE418
01597      SET MTCK-DEST-SYSTEM-88 TO TRUE.                             DTSBE418
01598                                                                   DTSBE418
01599      MOVE MQTR-YRQ TO MTCK-LTE-YRQ.                               DTSBE418
01600                                                                   DTSBE418
01601      SET MTCK-NOT-CONVERTED-88 TO TRUE.                           DTSBE418
01602                                                                   DTSBE418
01603      MOVE LECM-CURR-RUN-DATE TO MTCK-ESTB-DATE                    DTSBE418
01604                                 MTCK-CHNG-DATE.                   DTSBE418
01605                                                                   DTSBE418
01606      MOVE MTCK-REC TO MSKL-REC.                                   DTSBE418
01607                                                                   DTSBE418
01608      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBE418
01609  S3000-EXIT.                                                      DTSBE418
01610      EXIT.                                                        DTSBE418
01611      EJECT                                                        DTSBE418
01612  S4000-WRITE-MEVL.                                                DTSBE418
01613      ADD +1000 TO LECM-EMP-ABSTIME.                               DTSBE418
01614                                                                   DTSBE418
01615                                                                   DTSBE418
01616      MOVE LECM-EMP-ABSTIME TO L005-ABSTIME.                       DTSBE418
01617                                                                   DTSBE418
01618      PERFORM S005-FROM-ABSTIME THRU S005-EXIT.                    DTSBE418
01619                                                                   DTSBE418
01620                                                                   DTSBE418
01621      MOVE LOW-VALUES TO MEVL-REC.                                 DTSBE418
01622                                                                   DTSBE418
01623      MOVE MPRF-EMP-NO TO MEVL-EMP-NO.                             DTSBE418
01624                                                                   DTSBE418
01625      SET MEVL-EVL-88 TO TRUE.                                     DTSBE418
01626                                                                   DTSBE418
01627      MOVE L005-DATE TO MEVL-DATE.                                 DTSBE418
01628                                                                   DTSBE418
01629      MOVE L005-TIME TO MEVL-TIME.                                 DTSBE418
01630                                                                   DTSBE418
01631      MOVE ZEROS TO MEVL-PURGE-DATE.                               DTSBE418
01632                                                                   DTSBE418
01633      MOVE EVL-TEXT TO MEVL-TEXT.                                  DTSBE418
01634                                                                   DTSBE418
01635      SET MEVL-SOURCE-SYSTEM-88 TO TRUE.                           DTSBE418
01636                                                                   DTSBE418
01637      SET MEVL-NOT-CONVERTED-88 TO TRUE.                           DTSBE418
01638                                                                   DTSBE418
01639      MOVE LECM-CURR-RUN-DATE TO MEVL-ESTB-DATE                    DTSBE418
01640                                 MEVL-CHNG-DATE.                   DTSBE418
01641                                                                   DTSBE418
01642                                                                   DTSBE418
01643      MOVE MEVL-REC TO MSKL-REC.                                   DTSBE418
01644                                                                   DTSBE418
01645      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBE418
01646  S4000-EXIT.                                                      DTSBE418
01647      EXIT.                                                        DTSBE418
01648      EJECT                                                        DTSBE418
01649  S9100-INCONSISTENT-RPT-TYPE.                                     DTSBE418
01650      MOVE MQTR-YRQ TO L004-QTR-5-9.                               DTSBE418
01651                                                                   DTSBE418
01652      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBE418
01653                                                                   DTSBE418
01654      MOVE L004-SLASH-QTR TO MSG4-SLASHED-YRQ.                     DTSBE418
01655                                                                   DTSBE418
01656      MOVE MSG4-ID TO R907-MSG-ID.                                 DTSBE418
01657                                                                   DTSBE418
01658      MOVE MSG4-TEXT TO R907-MSG-TEXT.                             DTSBE418
01659                                                                   DTSBE418
01660      PERFORM S946-WRITE-R907 THRU S946-EXIT.                      DTSBE418
01661                                                                   DTSBE418
01662      MOVE 'Y' TO INCONSISTENCY-ENCOUNTERED-IND.                   DTSBE418
01663  S9100-EXIT.                                                      DTSBE418
01664      EXIT.                                                        DTSBE418
01665      EJECT                                                        DTSBE418
01666  S001-FROM-FED-8.                                                 DTSBE418
01667      SET L001-FROM-FED-8 TO TRUE.                                 DTSBE418
01668      GO TO S001-DATE.                                             DTSBE418
01669                                                                   DTSBE418
01670  S001-FROM-CAL-6.                                                 DTSBE418
01671      SET L001-FROM-CAL-6 TO TRUE.                                 DTSBE418
01672      GO TO S001-DATE.                                             DTSBE418
01673                                                                   DTSBE418
01674  S001-FROM-ABS-DAY.                                               DTSBE418
01675      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBE418
01676      GO TO S001-DATE.                                             DTSBE418
01677                                                                   DTSBE418
01678  S001-DATE.                                                       DTSBE418
01679      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBE418
01680  S001-EXIT.                                                       DTSBE418
01681      EXIT.                                                        DTSBE418
01682      SKIP3                                                        DTSBE418
01683  S004-FROM-5.                                                     DTSBE418
01684      SET L004-FROM-5 TO TRUE.                                     DTSBE418
01685      GO TO S004-QTR.                                              DTSBE418
01686                                                                   DTSBE418
01687  S004-FROM-ABS.                                                   DTSBE418
01688      SET L004-FROM-ABS TO TRUE.                                   DTSBE418
01689      GO TO S004-QTR.                                              DTSBE418
01690                                                                   DTSBE418
01691  S004-FROM-3.                                                     DTSBE418
01692      SET L004-FROM-3 TO TRUE.                                     DTSBE418
01693      GO TO S004-QTR.                                              DTSBE418
01694                                                                   DTSBE418
01695  S004-QTR.                                                        DTSBE418
01696      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBE418
01697  S004-EXIT.                                                       DTSBE418
01698      EXIT.                                                        DTSBE418
01699      SKIP3                                                        DTSBE418
01700  S005-FROM-ABSTIME.                                               DTSBE418
01701      SET L005-FROM-ABSTIME TO TRUE.                               DTSBE418
01702      GO TO S005-ABSTIME.                                          DTSBE418
01703                                                                   DTSBE418
01704  S005-ABSTIME.                                                    DTSBE418
01705      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBE418
01706  S005-EXIT.                                                       DTSBE418
01707      EXIT.                                                        DTSBE418
01708      SKIP3                                                        DTSBE418
01709  S061-DETERMINE-FLD-REP.                                          DTSBE418
01710      MOVE MPRF-FLD-ZIP-ST TO L061-FLD-ZIP-ST.                     DTSBE418
01711                                                                   DTSBE418
01712      MOVE MPRF-EMP-NO TO L061-EMP-NO.                             DTSBE418
01713                                                                   DTSBE418
01714      CALL 'DTSBU061' USING L061-LINK-AREA.                        DTSBE418
01715  S061-EXIT.                                                       DTSBE418
01716      EXIT.                                                        DTSBE418
01717      SKIP3                                                        DTSBE418
01718  S064-LOOKUP-FLD-ZIP-ADDR.                                        DTSBE418
01719      MOVE MPRF-EMP-NO TO L064-EMP-NO.                             DTSBE418
01720                                                                   DTSBE418
01721      MOVE MPRF-TAX-REC-ADDR-EXISTS-IND                            DTSBE418
01722        TO L064-TAX-REC-ADDR-EXISTS-IND.                           DTSBE418
01723                                                                   DTSBE418
01724      CALL 'DTSBU064' USING L064-LINK-AREA.                        DTSBE418
01725  S064-EXIT.                                                       DTSBE418
01726      EXIT.                                                        DTSBE418
01727      SKIP3                                                        DTSBE418
01728  S102-DELINQUENCY-RUN.                                            DTSBE418
01729      SET L102-DELINQUENCY-RUN-88  TO TRUE.                        DTSBE418
01730      GO TO S102-PENALTY-COMPUTATION.                              DTSBE418
01731                                                                   DTSBE418
01732  S102-PENALTY-COMPUTATION.                                        DTSBE418
01733      CALL 'DTSBU102' USING L102-LINK-AREA.                        DTSBE418
01734  S102-EXIT.                                                       DTSBE418
01735      EXIT.                                                        DTSBE418
01736                                                                   DTSBE418
01737  S109-FIRST-PEN-INT-YRQ.                                          DTSBE418
01738       SET L109-CMND-PEN-INT-QTR-88 TO TRUE.                       DTSBE418
01739                                                                   DTSBE418
01740  S109-LOOKUP-SUR-RATE.                                            DTSBE418
01741      CALL 'DTSBU109' USING L109-LINK-AREA.                        DTSBE418
01742  S109-EXIT.                                                       DTSBE418
01743      EXIT.                                                        DTSBE418
01744      SKIP3                                                        DTSBE418
01745  S111-LOOKUP-TAD.                                                 DTSBE418
01746      SET L111-LOOKUP-TAD-88 TO TRUE.                              DTSBE418
01747      GO TO S111-LOOKUP-ADDR.                                      DTSBE418
01748                                                                   DTSBE418
01749  S111-LOOKUP-TAA.                                                 DTSBE418
01750      SET L111-LOOKUP-TAA-88 TO TRUE.                              DTSBE418
01751      GO TO S111-LOOKUP-ADDR.                                      DTSBE418
01752                                                                   DTSBE418
01753  S111-LOOKUP-OPO.                                                 DTSBE418
01754      SET L111-LOOKUP-OPO-88 TO TRUE.                              DTSBE418
01755      GO TO S111-LOOKUP-ADDR.                                      DTSBE418
01756                                                                   DTSBE418
01757  S111-LOOKUP-ADDR.                                                DTSBE418
01758      MOVE MPRF-EMP-NO TO L111-EMP-NO.                             DTSBE418
01759                                                                   DTSBE418
01760      CALL 'DTSBU111' USING L111-LINK-AREA.                        DTSBE418
01761  S111-EXIT.                                                       DTSBE418
01762      EXIT.                                                        DTSBE418
01763      SKIP3                                                        DTSBE418
01764  S112-TAD-ADDR.                                                   DTSBE418
01765      SET L112-TAD-ADDR-88 TO TRUE.                                DTSBE418
01766      GO TO S112-FORMAT-ADDR.                                      DTSBE418
01767                                                                   DTSBE418
01768  S112-TAA-ADDR.                                                   DTSBE418
01769      SET L112-TAA-ADDR-88 TO TRUE.                                DTSBE418
01770      GO TO S112-FORMAT-ADDR.                                      DTSBE418
01771                                                                   DTSBE418
01772  S112-OPO-ADDR.                                                   DTSBE418
01773      SET L112-OPO-ADDR-88 TO TRUE.                                DTSBE418
01774      GO TO S112-FORMAT-ADDR.                                      DTSBE418
01775                                                                   DTSBE418
01776  S112-FORMAT-ADDR.                                                DTSBE418
01777      SET L112-ANCHOR-LAST-88 TO TRUE.                             DTSBE418
01778                                                                   DTSBE418
01779      MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME.                 DTSBE418
01780                                                                   DTSBE418
01781      CALL 'DTSBU112' USING L112-LINK-AREA.                        DTSBE418
01782  S112-EXIT.                                                       DTSBE418
01783      EXIT.                                                        DTSBE418
01784      SKIP3                                                        DTSBE418
01785  S410-FILE-SCHED.                                                 DTSBE418
01786      CALL 'DTSBU410' USING L410-LINK-AREA.                        DTSBE418
01787  S410-EXIT.                                                       DTSBE418
01788      EXIT.                                                        DTSBE418
01789      SKIP3                                                        DTSBE418
01790  S511-INITIALIZE-MQTR.                                            DTSBE418
01791      CALL 'DTSBU511' USING MQTR-REC.                              DTSBE418
01792  S511-EXIT.                                                       DTSBE418
01793      EXIT.                                                        DTSBE418
01794      SKIP3                                                        DTSBE418
01795  S516-LIABILITY.                                                  DTSBE418
01796      CALL 'DTSBU516' USING L516-LINK-AREA                         DTSBE418
01797                            MPRF-LINK-REC.                         DTSBE418
01798  S516-EXIT.                                                       DTSBE418
01799      EXIT.                                                        DTSBE418
01800      SKIP3                                                        DTSBE418
01801  S910-READ.                                                       DTSBE418
01802      SET L910-READ-88 TO TRUE.                                    DTSBE418
01803      GO TO S910-MSTR-IO.                                          DTSBE418
01804                                                                   DTSBE418
01805  S910-START-BROWSE.                                               DTSBE418
01806      SET L910-START-BROWSE-88 TO TRUE.                            DTSBE418
01807      GO TO S910-MSTR-IO.                                          DTSBE418
01808                                                                   DTSBE418
01809  S910-READ-NEXT.                                                  DTSBE418
01810      SET L910-READ-NEXT-88 TO TRUE.                               DTSBE418
01811      GO TO S910-MSTR-IO.                                          DTSBE418
01812                                                                   DTSBE418
01813  S910-COUNT.                                                      DTSBE418
01814      SET L910-COUNT-88 TO TRUE.                                   DTSBE418
01815      GO TO S910-MSTR-IO.                                          DTSBE418
01816                                                                   DTSBE418
01817  S910-WRITE.                                                      DTSBE418
01818      SET L910-WRITE-88 TO TRUE.                                   DTSBE418
01819      SET LECM-EMP-UPDATED-YES-88 TO TRUE.                         DTSBE418
01820      GO TO S910-MSTR-IO.                                          DTSBE418
01821                                                                   DTSBE418
01822  S910-REWRITE.                                                    DTSBE418
01823      SET L910-REWRITE-88 TO TRUE.                                 DTSBE418
01824      SET LECM-EMP-UPDATED-YES-88 TO TRUE.                         DTSBE418
01825      GO TO S910-MSTR-IO.                                          DTSBE418
01826                                                                   DTSBE418
01827  S910-DELETE.                                                     DTSBE418
01828      SET L910-DELETE-88 TO TRUE.                                  DTSBE418
01829      SET LECM-EMP-UPDATED-YES-88 TO TRUE.                         DTSBE418
01830      GO TO S910-MSTR-IO.                                          DTSBE418
01831                                                                   DTSBE418
01832  S910-MSTR-IO.                                                    DTSBE418
01833      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBE418
01834                            MSKL-REC.                              DTSBE418
01835  S910-EXIT.                                                       DTSBE418
01836      EXIT.                                                        DTSBE418
01837      SKIP3                                                        DTSBE418
01838  S923-OPEN-READ.                                                  DTSBE418
01839      SET L923-OPEN-READ-88 TO TRUE.                               DTSBE418
01840      GO TO S923-ATC-IO.                                           DTSBE418
01841                                                                   DTSBE418
01842  S923-START-BROWSE.                                               DTSBE418
01843      SET L923-START-BROWSE-88 TO TRUE.                            DTSBE418
01844      GO TO S923-ATC-IO.                                           DTSBE418
01845                                                                   DTSBE418
01846  S923-READ-NEXT.                                                  DTSBE418
01847      SET L923-READ-NEXT-88 TO TRUE.                               DTSBE418
01848      GO TO S923-ATC-IO.                                           DTSBE418
01849                                                                   DTSBE418
01850  S923-CLOSE.                                                      DTSBE418
01851      SET L923-CLOSE-88     TO TRUE.                               DTSBE418
01852      GO TO S923-ATC-IO.                                           DTSBE418
01853                                                                   DTSBE418
01854  S923-ATC-IO.                                                     DTSBE418
01855      CALL 'DTSBU923' USING L923-LINK-AREA                         DTSBE418
01856                            ASKL-REC.                              DTSBE418
01857  S923-EXIT.                                                       DTSBE418
01858      EXIT.                                                        DTSBE418
01859                                                                   DTSBE418
01860  S927-WRITE-T026.                                                 DTSBE418
01861      SET L927-WRITE-88 TO TRUE.                                   DTSBE418
01862      CALL 'DTSBU927' USING L927-LINK-AREA                         DTSBE418
01863                            T026-REC.                              DTSBE418
01864      GO TO S927-EXIT.                                             DTSBE418
01865                                                                   DTSBE418
01866  S927-EXIT.                                                       DTSBE418
01867      EXIT.                                                        DTSBE418
01868                                                                   DTSBE418
01869  S931-READ.                                                       DTSBE418
01870      SET L931-READ-88 TO TRUE.                                    DTSBE418
01871      GO TO S931-REF-I.                                            DTSBE418
01872                                                                   DTSBE418
01873  S931-START-BROWSE.                                               DTSBE418
01874      SET L931-START-BROWSE-88 TO TRUE.                            DTSBE418
01875      GO TO S931-REF-I.                                            DTSBE418
01876                                                                   DTSBE418
01877  S931-READ-NEXT.                                                  DTSBE418
01878      SET L931-READ-NEXT-88 TO TRUE.                               DTSBE418
01879      GO TO S931-REF-I.                                            DTSBE418
01880                                                                   DTSBE418
01881  S931-WRITE.                                                      DTSBE418
01882      SET L931-WRITE-88 TO TRUE.                                   DTSBE418
01883      GO TO S931-REF-I.                                            DTSBE418
01884                                                                   DTSBE418
01885  S931-REWRITE.                                                    DTSBE418
01886      SET L931-REWRITE-88 TO TRUE.                                 DTSBE418
01887      GO TO S931-REF-I.                                            DTSBE418
01888                                                                   DTSBE418
01889  S931-DELETE.                                                     DTSBE418
01890      SET L931-DELETE-88 TO TRUE.                                  DTSBE418
01891      GO TO S931-REF-I.                                            DTSBE418
01892                                                                   DTSBE418
01893  S931-REF-I.                                                      DTSBE418
01894      CALL 'DTSBU931' USING L931-LINK-AREA                         DTSBE418
01895                            FSKL-REC.                              DTSBE418
01896  S931-EXIT.                                                       DTSBE418
01897      EXIT.                                                        DTSBE418
01898      SKIP3                                                        DTSBE418
01899  S946-WRITE-R417.                                                 DTSBE418
01900      CALL 'DTSBU946' USING R417-REC.                              DTSBE418
01901      GO TO S946-EXIT.                                             DTSBE418
01902                                                                   DTSBE418
01903  S946-WRITE-R418.                                                 DTSBE418
01904      CALL 'DTSBU946' USING R418-REC.                              DTSBE418
01905      GO TO S946-EXIT.                                             DTSBE418
01906                                                                   DTSBE418
01907 *S946-WRITE-R716.                                                 DTSBE418
01908 *    CALL 'DTSBU946' USING R716-REC.                              DTSBE418
01909 *    GO TO S946-EXIT.                                             DTSBE418
01910                                                                   DTSBE418
01911  S946-WRITE-R907.                                                 DTSBE418
01912      CALL 'DTSBU946' USING R907-REC.                              DTSBE418
01913      GO TO S946-EXIT.                                             DTSBE418
01914                                                                   DTSBE418
01915  S946-EXIT.                                                       DTSBE418
01916      EXIT.                                                        DTSBE418
01917      SKIP3                                                        DTSBE418
01918  S999-ABEND.                                                      DTSBE418
01919      DISPLAY '*** DTSBE418 ABENDING.  '                           DTSBE418
01920              ABEND-MSG.                                           DTSBE418
01921                                                                   DTSBE418
01922      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBE418
01923  S999-EXIT.                                                       DTSBE418
01924      EXIT.                                                        DTSBE418
