00001  IDENTIFICATION DIVISION.                                         12/18/13
00002  PROGRAM-ID.             DTSBD371.                                DTSBD371
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV098
00004  DATE-WRITTEN.           JANUARY 1991.                            DTSBD371
00005  DATE-COMPILED.                                                   DTSBD371
00006      SKIP3                                                        DTSBD371
00007 *****                                                             DTSBD371
00008 *                                                                 DTSBD371
00009 *                                                                 DTSBD371
00010 *    FUNCTION:  REPORT TRANSACTION PROCESSING.                    DTSBD371
00011 *                                                                 DTSBD371
00012 *                                                                 DTSBD371
00013 *    MODIFICATION LOG:                                            DTSBD371
00014 *                                                                 DTSBD371
00015 *    01/25/92  INITIAL DEVELOPMENT.                               DTSBD371
00016 *              WORK ORDER:                      PROGRAMMER: TCL   DTSBD371
00017 *                                                                 DTSBD371
00018 *    04/27/95  MODIFIED P4000.  FOR ORIGINAL REPORTS FROM         DTSBD371
00019 *              SELF-INSURED EMPLOYERS, APPLY REMITTANCE TO        DTSBD371
00020 *              AFT BEFORE APPLYING REMITTANCE TO UI.              DTSBD371
00021 *              WORK ORDER: CR085                PROGRAMMER: EHH   DTSBD371
00022 *                                                                 DTSBD371
00023 *    12/13/1998  REVIEWED AND MODIFIED FOR DC.                    DTSBD371
00024 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBD371
00025 *                                                                 DTSBD371
00026 *    02/27/1999  MODIFIED FOR DC SELF INSURED EMPLOYER TAX DUE    DTSBD371
00027 *                DATE REQUIREMENT.                                DTSBD371
00028 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBD371
00029 *                                                                 DTSBD371
00030 *    03/20/1999  MODIFIED TO CHARGE PENALTY WHEN AN ESTIMATED     DTSBD371
00031 *                REPORT IS PROCESSED AND TO MEET NEW ESTIMATED    DTSBD371
00032 *                REPORT LETTER REQUIREMENTS.                      DTSBD371
00033 *                REFERENCE: DIR 059             PROGRAMMER: EHH   DTSBD371
00034 *                                                                 DTSBD371
00035 *    03/27/1999  MODIFIED TO WRITE A MEVL RECORD OCCURRENCE       DTSBD371
00036 *                WHEN A ARPT-WAGE-RPT-NO-88 ARPT RECORD IS        DTSBD371
00037 *                PROCESSED.                                       DTSBD371
00038 *                REFERENCE: DC DEVELOPMENT      PROGRAMMER: EHH   DTSBD371
00039 *                                                                 DTSBD371
00040 *    05/15/1999  IF ARPT-YRQ IS <= TO LBCM-PICKUP-YRQ, THEN       DTSBD371
00041 *                FAIL THE TRANSACTION.                            DTSBD371
00042 *                REFERENCE: PICKUP DIR          PROGRAMMER: EHH   DTSBD371
00043 *                                                                 DTSBD371
00044 *    07/28/1999  L102-TAX-DUE-DATE AND L102-RPT-DUE-DATE ADDED    DTSBD371
00045 *                TO DTSBU102 LINKAGE AREA.                        DTSBD371
00046 *                REFERENCE: ORDERS FROM MS STERN  PROGRAMM: EHH   DTSBD371
00047 *                                                                 DTSBD371
00048 *    01/28/2000  PER INSTRUCTIONS FROM GIL, WHEN PREPARING TO     DTSBD371
00049 *                CALL DTSBU102 TO CALCULATE PENALTY CHARGED, IF   DTSBD371
00050 *                APRT-ORIG-88, THEN REDUCE L102-TAX-BALANCE-AMT   DTSBD371
00051 *                BY AVAILABLE (BUT NOT YET APPLIED) PAID AMOUNTS  DTSBD371
00052 *                PRIOR TO THE CALL TO DTSBU102.  AVAILABLE (BUT   DTSBD371
00053 *                NOT YET APPLIED PAID AMOUNTS) RESIDE IN ARPT-    DTSBD371
00054 *                REMIT-AMT AND IF MPRF-TOT-CREDIT-AMT.            DTSBD371
00055 *                REFERENCE: PEN CHARGE MOD      PROGRAMMER: EHH   DTSBD371
00056 *                                                                 DTSBD371
00057 *    03/16/2000  CORRECTED ERROR IN P2830-WITHDRAW-LATE-PAY-PEN.  DTSBD371
00058 *                WHEN REPORT IS WITHDRAWN, PENALTY SHOULD BE      DTSBD371
00059 *                REVERSED FOR BOTH RATED AND SELF-INSURED EMPS.   DTSBD371
00060 *                REFERENCE: PAULETTE BROWN      PROGRAMMER: GD    DTSBD371
00061 *                                                                 DTSBD371
00062 *    05/08/2000  MODIFIED PROCESSING IN P2800 ACCORDING TO        DTSBD371
00063 *                PENALTY CHARGING REQUIREMENTS IN DIR00076.       DTSBD371
00064 *                REFERENCE: DIR00076            PROGRAMMER: GD    DTSBD371
00065 *                                                                 DTSBD371
00066 *    08/14/2002  RECOMPILED TO GET NEW VERSION OF DTSIL516        DTSBD371
00067 *                REFERENCE: HOUSEHOLD           PROGRAMMER: GD    DTSBD371
00068 *                                                                 DTSBD371
00069 *    10/02/2003  ADDED P0200 AND CALL TO DTSBU430 TO RELEASE      DTSBD371
00070 *                W4 WAGE TRANSACTIONS FOR REPORTS SUBMITTED       DTSBD371
00071 *                THROUGH THE WEB OR IVR.                          DTSBD371
00072 *                REFERENCE: EFT                 PROGRAMMER: GD    DTSBD371
00073 *                                                                 DTSBD371
00074 *    01/25/2005  INITILIZED NEW FIELD TO ZEROS. NEW FIELD WAS     DTSBD371
00075 *                ADDED (APAY-NSF-MNTE-ABSTIME) FOR MATCHING       DTSBD371
00076 *                NSF RECORD ON THE MNTE RECORD.                   DTSBD371
00077 *                REFERENCE: EFT                 PROGRAMMER: ZL1   DTSBD371
00078 *                                                                 DTSBD371
00079 *    02/11/2005  MODIFIED CALL TO P0200 IN P0000 TO CHECK         DTSBD371
00080 *                PSEUDO DOCUMENT NUMBER INSTEAD OF TRACE          DTSBD371
00081 *                NUMBER - ANY ARPT WITH A PSEUDO DOCUMENT         DTSBD371
00082 *                NUMBER HAS WAGE DATA TO BE PROCESSED.            DTSBD371
00083 *                REFERENCE:                     PROGRAMMER: GD    DTSBD371
00084 *                                                                 DTSBD371
00085 *    04/14/2005  MODIFIED FOR NEW VERSION OF DTSIL102 -           DTSBD371
00086 *                PENALTY NOW ASSESSED ON LATE REPORTS WHEN        DTSBD371
00087 *                THEY ARE ENTERED RATHER THAN WAITING FOR THE     DTSBD371
00088 *                QUARTER TO BE DECLARED DELINQUENT.               DTSBD371
00089 *                REFERENCE: DIR 107             PROGRAMMER: GD    DTSBD371
00090 *                                                                 DTSBD371
00091 *    08/12/2005  MODIFIED P2800 (PENALTY). IF MISSING REPORT      DTSBD371
00092 *                PENALTY EXISTS AND THE PROGRAM IS PROCESSING     DTSBD371
00093 *                AN ORIGINAL REPORT, WITHDRAW THE MISSING REPORT  DTSBD371
00094 *                PENALTY BEFORE PROCESSING THE REPORT. IF LATE    DTSBD371
00095 *                PENALTY IS REQUIRED, THE PROGRAM WILL RECALCULATEDTSBD371
00096 *                IT.  IF THE REPORT IS TIMELY (BUT ENTERED AFTER  DTSBD371
00097 *                THE DELINQUENCY RUN, THE PENALTY WILL HAVE       DTSBD371
00098 *                BEEN WITHDRAWN.                                  DTSBD371
00099 *                REFERENCE:                     PROGRAMMER: GD    DTSBD371
00100 *                                                                 DTSBD371
00101 *    10/07/2005  MODIFIED P2590 FOR NEW MEANING OF WAGE-RPT-IND:  DTSBD371
00102 *                IT NOW SPEFICIES WHETHER WAGES WERE SUBMITTED    DTSBD371
00103 *                ON MAGNETIC MEDIA. ADDED CODE TO COPY STATUS     DTSBD371
00104 *                CHANGE IND FROM ARPT TO MRPT.                    DTSBD371
00105 *                REFERENCE:                     PROGRAMMER: GD    DTSBD371
00106 *                                                                 DTSBD371
00107 *    01/03/2006  UPDATED FOR ADMINISTRATIVE ASSESSMENT.           DTSBD371
00108 *                REFERENCE:                     PROGRAMMER: GD    DTSBD371
00109 *                                                                 DTSBD371
00110 *    02/20/2006  PENALTY AND INTEREST CALCULATIONS MODIFIED       DTSBD371
00111 *                TO EXCLUDE SUR-TAX: P2031A, P2030, P2831A.       DTSBD371
00112 *                REFERENCE: ADMIN ASSESS        PROGRAMMER: GD    DTSBD371
00113 *                                                                 DTSBD371
00114 *    03/02/2006  MODIFIED FOR NEW VERSION OF BU109.               DTSBD371
00115 *                REFERENCE: ADMIN ASSESS        PROGRAMMER: GD    DTSBD371
00116 *                                                                 DTSBD371
00117 *    03/15/2006  MODIFIED TO BYPASS ZERO-WAGE REPORTS FOR         DTSBD371
00118 *                INACTIVE ACCOUNTS.  THE PROGRAM WILL WRITE       DTSBD371
00119 *                AN EVENT LOG RECORD.                             DTSBD371
00120 *                CHANGED P1100, P1300, P0000, P0300.              DTSBD371
00121 *                REFERENCE:                     PROGRAMMER: GD    DTSBD371
00122 *                                                                 DTSBD371
00123 *    09/27/2006  MODIFIED P2600 AND FOLLOWING TO BYPASS ALL       DTSBD371
00124 *                ADJUSTMENTS OF ADMIN ASSESSMENT FOR SELF-        DTSBD371
00125 *                INSURED ACCOUNTS. THE ASSESSENT FOR THESE        DTSBD371
00126 *                EMPLOYERS WILL ONLY BE CHANGED THROUGH           DTSBD371
00127 *                CHANGES IN WAGES (DTSBE325).                     DTSBD371
00128 *                REFERENCE:                     PROGRAMMER: GD    DTSBD371
00129 *                                                                 DTSBD371
00130 *    06/13/2007  MODIFIED P0200 TO PASS EMPLOYER ACCOUNT          DTSBD371
00131 *                NUMBER IN L420 LINKAGE TO BU420.                 DTSBD371
00132 *                REFERENCE:                     PROGRAMMER: GD    DTSBD371
00133 *                                                                 DTSBD371
00134 *    09/10/2007  MODIFIED P0200 TO MOVE LBCM-CURR-RUN-DATE        DTSBD371
00135 *                TO NEW FIELD L102-CURR-RUN-DATE.                 DTSBD371
00136 *                REFERENCE:                     PROGRAMMER: ZL1   DTSBD371
00137 *                                                                 DTSBD371
00138 *    08/11/2007  MODIFIED P2600: REMOVED CALL TO P2610 TO         DTSBD371
00139 *                ADJUST SUR-TAX.  THIS CODE WAS IN THE ORIGINAL   DTSBD371
00140 *                MONTANA SOFTWARE, BUT IS NOT RELEVANT TO DC,     DTSBD371
00141 *                AND RESULTED IN MISCALCULATIONS.                 DTSBD371
00142 *                THE CODE RECOMPUTES THE SUR-TAX DUE BY           DTSBD371
00143 *                COMBINING THE UI TAX RATE AND THE ADMIN ASSESS   DTSBD371
00144 *                TAX RATE. THIS PRODUCES ERRORS OF 1 CENT IN      DTSBD371
00145 *                THE AMOUNT CHARGED.                              DTSBD371
00146 *                REFERENCE:                     PROGRAMMER: GD    DTSBD371
00147 *                                                                 DTSBD371
00148 *    07/28/2009  MODIFIED P2910 TO MOVE THE PENALTY BALANCE       DTSBD371
00149 *                AMOUNT TO THE R316 RECORD FOR ESTIMATED          DTSBD371
00150 *                REPORTS INSTEAD OF THE AMOUNT CHARGED.           DTSBD371
00151 *                ORIGINALLY, PENALTY WAS CHARGED WHEN             DTSBD371
00152 *                THE ESTIMATED REPORT WAS POSTED. NOW IT IS       DTSBD371
00153 *                CHARGED WHEN THE QUARTER IS DECLARED DELINQUENT. DTSBD371
00154 *                REFERENCE:                     PROGRAMMER: GD1   DTSBD371
00155 *                                                                 DTSBD371
00156 *    08/19/2010  MODIFIED P4000 TO MOVE THE CHECK SCAN DATE       DTSBD371
00157 *                AND CHECK SEQUENCE NUMBER FROM THE ARPT          DTSBD371
00158 *                RECORD TO THE APAY RECORD.                       DTSBD371
00159 *                THIS DATA EXISTS WHEN THE ARPT TRANSACTION       DTSBD371
00160 *                WAS CREATED FROM THE WEB CHECK-SCANNING PROCESS. DTSBD371
00161 *                REFERENCE:                     PROGRAMMER: GD1   DTSBD371
00162 *                                                                 DTSBD371
00163 *    11/14/2011  MODIFIED P0200 FOR NEW VERSION OF L420           DTSBD371
00164 *                LINKAGE - ACCOUNTING BATCH AND ITEMS NUMBERS     DTSBD371
00165 *                ARE NOW PASSED SO THAT BD420 WRITE WRITE         DTSBD371
00166 *                X148 WAGE RECORDS TO UPDATE THE SERVER DATABASE. DTSBD371
00167 *                REFERENCE:                     PROGRAMMER: GD1   DTSBD371
00168 *                                                                 DTSBD371
00169 *    03/02/2012  MODIFIED TO PASS THE QUARTER TO THE L420         DTSBD371
00170 *                LINKAGE - IF THE QUARTER HAS BEEN CHANGED, THE   DTSBD371
00171 *                WAGES WILL BE POSTED TO THE CORRECT QUARTER.     DTSBD371
00172 *                REFERENCE:                     PROGRAMMER: GD1   DTSBD371
00173 *                                                                 DTSBD371
00174 *    02/27/2013  MODIFIED TO HANDLE REPORTS FROM BOTH             DTSBD371
00175 *                QUARTERLY AND ANNUAL FILERS.                     DTSBD371
00176 *                REFERENCE:                     PROGRAMMER: GD1   DTSBD371
00177 *                                                                 DTSBD371
00178 *    07/08/2013  MODIFIED TO ALLOW PROCESSING OF REPORTS FOR      DTSBD371
00179 *                ANNUAL FILERS WITH ESTIMATED RATES.              DTSBD371
00180 *                REFERENCE: TICKET 1901         PROGRAMMER: GD    DTSBD371
00181 *                                                                 DTSBD371
00182 *    09/16/2013  MODIFIED PROCESS IN P0000 THAT SETS THE          DTSBD371
00183 *                PSEUDO-BATCH AND ITEM NUMBERS TO INCLUDE         DTSBD371
00184 *                ALL REPORTS. THE PROCESS THAT CALLS              DTSBD371
00185 *                DTSBU420 IS NOW USED FOR WAGES ENTERED           DTSBD371
00186 *                BY TDEC,                                         DTSBD371
00187 *                REFERENCE: TICKET 2022         PROGRAMMER: GD    DTSBD371
00188 *                                                                 DTSBD371
00189 *    09/27/2013  MODIFIED PROCESSES THAT SET THE QUARTER STATUS   DTSBD371
00190 *                FOR ANNUAL FILERS. THE NEW ANNUAL LIABILITY      DTSBD371
00191 *                FIELD RETURNED BY BU516 WILL HELP TO SET THIS    DTSBD371
00192 *                MORE ACCURATELY.                                 DTSBD371
00193 *                REFERENCE: TICKET 2081         PROGRAMMER: GD    DTSBD371
00194 *                                                                 DTSBD371
00195 *    MM/DD/YYYY  XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD371
00196 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX   DTSBD371
00197 *                REFERENCE: XXXXXXXXXXXXXXX     PROGRAMMER: XXX   DTSBD371
00198 *                                                                 DTSBD371
00199 *                                                                 DTSBD371
00200 *  DESCRIPTION:                                                   DTSBD371
00201 *                                                                 DTSBD371
00202 *      PROCESSES ACCOUNTING REPORT TRANSACTIONS.                  DTSBD371
00203 *                                                                 DTSBD371
00204 *                                                                 DTSBD371
00205 *      MASTER FILE RECORDS READ:                                  DTSBD371
00206 *                                                                 DTSBD371
00207 *        MQTR                                                     DTSBD371
00208 *        MRPT                                                     DTSBD371
00209 *        MPAY                                                     DTSBD371
00210 *        MTCK                                                     DTSBD371
00211 *                                                                 DTSBD371
00212 *                                                                 DTSBD371
00213 *      MASTER FILE RECORDS UPDATED:                               DTSBD371
00214 *                                                                 DTSBD371
00215 *        MQTR (WRITE, REWRITE)                                    DTSBD371
00216 *        MRPT (WRITE)                                             DTSBD371
00217 *                                                                 DTSBD371
00218 *                                                                 DTSBD371
00219 *      REPORT RECORDS WRITTEN:                                    DTSBD371
00220 *                                                                 DTSBD371
00221 *        R726  MISSING EMPLOYEE COUNT LETTER.                     DTSBD371
00222 *        R907  ERROR.                                             DTSBD371
00223 *                                                                 DTSBD371
00224 *                                                                 DTSBD371
00225 *      MODULES CALLED:                                            DTSBD371
00226 *                                                                 DTSBD371
00227 *        DTSBD372 PAYMENT TRANSACTION PROCESSING.                 DTSBD371
00228 *        DTSBU001 DATE EDIT/CONVERSION.                           DTSBD371
00229 *        DTSBU101 COMPUTE INTEREST CHARGED.                       DTSBD371
00230 *        DTSBU102 COMPUTE LATE PAYMENT PENALTY CHARGED.           DTSBD371
00231 *        DTSBU511 INITIALIZE A MQTR RECORD.                       DTSBD371
00232 *        DTSBU516 DETERMINE LIABILITY, DUE DATE, AND RATE FOR A   DTSBD371
00233 *                 GIVEN QUARTER.                                  DTSBD371
00234 *        DTSBU520 PAYMENT APPLICATION.                            DTSBD371
00235 *        DTSBU522 RETURN A PAID AMOUNT TO UNAPPLIED CREDIT.       DTSBD371
00236 *        DTSBU541 MODIFY A SPECIFIED CHARGED, WAIVED, TOLERATED   DTSBD371
00237 *                 OR WRITTEN OFF AMOUNT.                          DTSBD371
00238 *        DTSBU549 JOURNALING/BATCH DETAIL LISTING.                DTSBD371
00239 *        DTSBU590 EMPLOYER CLEANUP.                               DTSBD371
00240 *        DTSBU910 MASTER FILE I/O.                                DTSBD371
00241 *        DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1.     DTSBD371
00242 *                                                                 DTSBD371
00243 *                                                                 DTSBD371
00244 *****                                                             DTSBD371
00245      SKIP3                                                        DTSBD371
00246  ENVIRONMENT DIVISION.                                            DTSBD371
00247      EJECT                                                        DTSBD371
00248  DATA DIVISION.                                                   DTSBD371
00249      SKIP3                                                        DTSBD371
00250  WORKING-STORAGE SECTION.                                         DTSBD371
002505 77  PAN-VALET PICTURE X(24) VALUE '098DTSBD371  12/18/13'.       DTSBD371
00251  77  PAN-VALET PICTURE X(24) VALUE '002DTSBD371  09/27/13'.       DTSBD371
00252  77  PAN-VALET PICTURE X(24) VALUE '096DTSBD371  09/25/13'.       DTSBD371
00253  77  PAN-VALET PICTURE X(24) VALUE '004DTSBD371  09/16/13'.       DTSBD371
00254  77  PAN-VALET PICTURE X(24) VALUE '094DTSBD371  07/08/13'.       DTSBD371
00255  77  PAN-VALET PICTURE X(24) VALUE '004DTSBD371  07/08/13'.       DTSBD371
00256  77  PAN-VALET PICTURE X(24) VALUE '092DTSBD371  06/20/13'.       DTSBD371
00257  77  PAN-VALET PICTURE X(24) VALUE '008DTSBD371  06/12/13'.       DTSBD371
00258  77  PAN-VALET PICTURE X(24) VALUE '090DTSBD371  05/20/13'.       DTSBD371
00259  77  PAN-VALET PICTURE X(24) VALUE '017DTSBD371  05/16/13'.       DTSBD371
00260  77  PAN-VALET PICTURE X(24) VALUE '054DTSBD371  05/08/13'.       DTSBD371
00261  77  PAN-VALET PICTURE X(24) VALUE '085DTSBD371  03/12/12'.       DTSBD371
00262      SKIP3                                                        DTSBD371
00263  01  WRK-AREA.                                                    DTSBD371
00264      05  WRK-ABEND-CD                PIC S9(04)  COMP  VALUE +371.DTSBD371
00265                                                                   DTSBD371
00266      05  WRK-MOD-NAME                PIC  X(08)  VALUE 'DTSBD371'.DTSBD371
00267                                                                   DTSBD371
00268      05  FIRST-TIME-IND                  PIC  X(01)    VALUE 'Y'. DTSBD371
00269                                                                   DTSBD371
00270      05  WRK-NULL-DOC-NO.                                         DTSBD371
00271          10  WRK-NULL-BATCH-NO           PIC S9(05)       COMP-3. DTSBD371
00272          10  WRK-NULL-ITEM-NO            PIC S9(03)       COMP-3. DTSBD371
00273                                                                   DTSBD371
00274      05  PRE-UPDATE-TOT-WAGE             PIC S9(11)V9(02) COMP-3. DTSBD371
00275                                                                   DTSBD371
00276      05  PRE-UPDATE-EXCESS-WAGE          PIC S9(11)V9(02) COMP-3. DTSBD371
00277                                                                   DTSBD371
00278      05  PRE-UPDATE-TAX-WAGE             PIC S9(11)V9(02) COMP-3. DTSBD371
00279                                                                   DTSBD371
00280      05  PRE-UPDATE-UI-CHARGED-AMT       PIC S9(09)V9(02) COMP-3. DTSBD371
00281                                                                   DTSBD371
00282      05  PRE-UPDATE-SUR-CHARGED-AMT      PIC S9(09)V9(02) COMP-3. DTSBD371
00283                                                                   DTSBD371
00284      05  PRE-UPDATE-CURR-RPT-TYPE        PIC  X(01).              DTSBD371
00285          88  PRE-UPDATE-CURR-ESTIM-88       VALUE 'E'.            DTSBD371
00286                                                                   DTSBD371
00287      05  WRK-CW-ON-FILE-IND              PIC  X(01).              DTSBD371
00288          88  WRK-CW-ON-FILE-YES-88          VALUE 'Y'.            DTSBD371
00289          88  WRK-CW-ON-FILE-NO-88           VALUE 'N'.            DTSBD371
00290                                                                   DTSBD371
00291      05  WRK-CW-SAME-DAY-IND             PIC  X(01).              DTSBD371
00292          88  WRK-CW-SAME-DAY-YES-88         VALUE 'Y'.            DTSBD371
00293          88  WRK-CW-SAME-DAY-NO-88          VALUE 'N'.            DTSBD371
00294                                                                   DTSBD371
00295      05  WRK-CW-ADJUST-IND               PIC  X(01).              DTSBD371
00296          88  WRK-CW-ADJUST-YES-88           VALUE 'Y'.            DTSBD371
00297          88  WRK-CW-ADJUST-NO-88            VALUE 'N'.            DTSBD371
00298                                                                   DTSBD371
00299      05  UI-SUB                          PIC S9(04)       COMP.   DTSBD371
00300                                                                   DTSBD371
00301      05  SUR-SUB                         PIC S9(04)       COMP.   DTSBD371
00302                                                                   DTSBD371
00303      05  INT-SUB                         PIC S9(04)       COMP.   DTSBD371
00304                                                                   DTSBD371
00305      05  LATE-PEN-SUB                    PIC S9(04)       COMP.   DTSBD371
00306                                                                   DTSBD371
00307      05  NSF-PEN-SUB                     PIC S9(04)       COMP.   DTSBD371
00308                                                                   DTSBD371
00309      05  MISC-PEN-SUB                    PIC S9(04)       COMP.   DTSBD371
00310                                                                   DTSBD371
00311      05  NEW-RPT-DUE-DATE                PIC S9(09)       COMP-3. DTSBD371
00312                                                                   DTSBD371
00313      05  NEW-TAX-DUE-DATE                PIC S9(09)       COMP-3. DTSBD371
00314                                                                   DTSBD371
00315      05  WRK-1ST-MTH-EMPL-CNT            PIC S9(07)       COMP-3. DTSBD371
00316                                                                   DTSBD371
00317      05  WRK-2ND-MTH-EMPL-CNT            PIC S9(07)       COMP-3. DTSBD371
00318                                                                   DTSBD371
00319      05  WRK-3RD-MTH-EMPL-CNT            PIC S9(07)       COMP-3. DTSBD371
00320                                                                   DTSBD371
00321      05  WRK-UI-CHARGED-AMT              PIC S9(09)V9(02) COMP-3. DTSBD371
00322                                                                   DTSBD371
00323      05  WRK-SUR-CHARGED-AMT             PIC S9(09)V9(02) COMP-3. DTSBD371
00324                                                                   DTSBD371
00325      05  WRK-TAX-CHRG-DIFF-AMT           PIC S9(09)V9(02) COMP-3. DTSBD371
00326                                                                   DTSBD371
00327      05  WRK-TIMELY-PAYMENTS             PIC S9(09)V9(02) COMP-3. DTSBD371
00328                                                                   DTSBD371
00329      05  TAX-RATE                        PIC S9(01)V9(04) COMP-3. DTSBD371
00330                                                                   DTSBD371
00331      05  WRK-PEN-CHARGED-AMT             PIC S9(09)V9(02) COMP-3. DTSBD371
00332                                                                   DTSBD371
00333      05  WRK-INT-CHARGED-AMT             PIC S9(09)V9(02) COMP-3. DTSBD371
00334                                                                   DTSBD371
00335      05  WRK-FIRST-PEN-INT-YRQ           PIC S9(05)       COMP-3. DTSBD371
00336                                                                   DTSBD371
00337      05  WRK-TOT-WAGE-ADJ                PIC S9(11)V9(02) COMP-3. DTSBD371
00338                                                                   DTSBD371
00339      05  WRK-TAX-WAGE-ADJ                PIC S9(11)V9(02) COMP-3. DTSBD371
00340                                                                   DTSBD371
00341      05  ACCT-SUB                        PIC S9(04)       COMP.   DTSBD371
00342                                                                   DTSBD371
00343      05  ACCT-SUB1                       PIC S9(04)       COMP.   DTSBD371
00344                                                                   DTSBD371
00345      05  ACCT-SUB2                       PIC S9(04)       COMP.   DTSBD371
00346                                                                   DTSBD371
00347      05  ACCT-CRUNCH-COMPLETE-IND        PIC  X(01).              DTSBD371
00348                                                                   DTSBD371
00349      05  WRK-RPT-DUE-DATE                PIC S9(09)       COMP-3. DTSBD371
00350                                                                   DTSBD371
00351      05  WRK-PURSUED-RPT-IND             PIC  X(01).              DTSBD371
00352                                                                   DTSBD371
00353      05  WRK-UC30H-DEL-END-YRQ           PIC S9(05)       COMP-3. DTSBD371
00354                                                                   DTSBD371
00355      05  WRK-LAST-DEL-YRQ                PIC S9(05)       COMP-3. DTSBD371
00356                                                                   DTSBD371
00357      05  WRK-FIRST-ANN-YRQ               PIC S9(05)       COMP-3  DTSBD371
00358                                           VALUE +20021.           DTSBD371
00359                                                                   DTSBD371
00360      05  WRK-ANN-YRQ1                    PIC S9(05)       COMP-3. DTSBD371
00361      05  WRK-ANN-YRQ4                    PIC S9(05)       COMP-3. DTSBD371
00362      05  WRK-ANN-REMIT-AMT               PIC S9(09)V9(02) COMP-3  DTSBD371
00363                                            VALUE +0.              DTSBD371
00364      05  WRK-REMIT-AMT                   PIC S9(09)V9(02) COMP-3  DTSBD371
00365                                            VALUE +0.              DTSBD371
00366      05  WRK-ANN-TAX-CHG-AMT             PIC S9(09)V9(02) COMP-3  DTSBD371
00367                                            VALUE +0.              DTSBD371
00368      05  WRK-ANN-LP-CHG-AMT              PIC S9(09)V9(02) COMP-3  DTSBD371
00369                                            VALUE +0.              DTSBD371
00370                                                                   DTSBD371
00371      05  WRK-R316-YRQ                    PIC 9(05).               DTSBD371
00372      05  WRK-R316-YRQX REDEFINES WRK-R316-YRQ.                    DTSBD371
00373          10 WRK-R316-YR                  PIC 9(4).                DTSBD371
00374          10 WRK-R316-Q                   PIC 9(1).                DTSBD371
00375                                                                   DTSBD371
00376      05  WRK-R316-UI-TAX-CHARGED-AMT     PIC S9(09)V9(02) COMP-3. DTSBD371
00377                                                                   DTSBD371
00378      05  WRK-R316-SUR-TAX-CHARGED-AMT    PIC S9(09)V9(02) COMP-3. DTSBD371
00379                                                                   DTSBD371
00380      05  WRK-R316-PEN-CHARGED-AMT        PIC S9(09)V9(02) COMP-3. DTSBD371
00381                                                                   DTSBD371
00382      05  WRK-R316-INT-CHARGED-AMT        PIC S9(09)V9(02) COMP-3. DTSBD371
00383                                                                   DTSBD371
00384      05  WRK-MNTE-AREA.                                           DTSBD371
00385          10  WRK-MNTE-SUBJECT           PIC  X(40)  VALUE         DTSBD371
00386              'EMPLOYER REPORT WAGES ADJUSTED FROM CW '.           DTSBD371
00387                                                                   DTSBD371
00388          10  WRK-MNTE-LINE1.                                      DTSBD371
00389              15  FILLER                 PIC  X(40)  VALUE         DTSBD371
00390              'TOTAL AND TAXABLE WAGES ADJUSTED FOR:  '.           DTSBD371
00391          10  WRK-MNTE-LINE2.                                      DTSBD371
00392              15  FILLER                 PIC  X(05)  VALUE         DTSBD371
00393                  'QTR: '.                                         DTSBD371
00394              15  WRK-MNTE-YRQ           PIC  X(06).               DTSBD371
00395              15  FILLER                 PIC  X(09)  VALUE         DTSBD371
00396                  '  BATCH: '.                                     DTSBD371
00397              15  WRK-MNTE-BATCH         PIC  9(05).               DTSBD371
00398              15  FILLER                 PIC  X(08)  VALUE         DTSBD371
00399                  '  ITEM: '.                                      DTSBD371
00400              15  WRK-MNTE-ITEM          PIC  9(03).               DTSBD371
00401          10  WRK-MNTE-LINE3.                                      DTSBD371
00402              15  FILLER                 PIC  X(22)  VALUE         DTSBD371
00403                  'EMPL RPT TOTAL WAGES: '.                        DTSBD371
00404              15  WRK-MNTE-OR-TOT-WAGE   PIC  ----------9.99.      DTSBD371
00405              15  FILLER                 PIC  X(22)  VALUE         DTSBD371
00406                  '  EMP RPT TAX WAGES : '.                        DTSBD371
00407              15  WRK-MNTE-OR-TAX-WAGE   PIC  ----------9.99.      DTSBD371
00408          10  WRK-MNTE-LINE4.                                      DTSBD371
00409              15  FILLER                 PIC  X(22)  VALUE         DTSBD371
00410                  'ADJUSTED TOTAL WAGES: '.                        DTSBD371
00411              15  WRK-MNTE-ADJ-TOT-WAGE  PIC  ----------9.99.      DTSBD371
00412              15  FILLER                 PIC  X(22)  VALUE         DTSBD371
00413                  '  ADJUSTED TAX WAGES: '.                        DTSBD371
00414              15  WRK-MNTE-ADJ-TAX-WAGE  PIC  ----------9.99.      DTSBD371
00415                                                                   DTSBD371
00416      05  WRK-AMT1                        PIC S9(09)V9(02) COMP-3. DTSBD371
00417                                                                   DTSBD371
00418      05  AMT-DISP1                    PIC --,---,---,--9.99.      DTSBD371
00419      05  AMT-DISP2                    PIC ---,---,--9.99.         DTSBD371
00420      05  AMT-DISP3                    PIC ---,---,--9.99.         DTSBD371
00421      05  AMT-DISP-RATE1               PIC 9.9999.                 DTSBD371
00422      05  AMT-DISP-RATE2               PIC 9.9999.                 DTSBD371
00423                                                                   DTSBD371
00424      05  EVL-TEXT                        PIC  X(50).              DTSBD371
00425                                                                   DTSBD371
00426      05  WRK-0-WAGE-INACT-IND            PIC  X(01).              DTSBD371
00427          88  WRK-0-WAGE-INACT-YES-88        VALUE 'Y'.            DTSBD371
00428          88  WRK-0-WAGE-INACT-NO-88         VALUE 'N'.            DTSBD371
00429                                                                   DTSBD371
00430  01  MSG-TABLE.                                                   DTSBD371
00431      05  MSG0-NOT-PASSED-FULL-EDITS.                              DTSBD371
00432          10  MSG0-ID         PIC  X(11)  VALUE 'DTSBD371905'.     DTSBD371
00433          10  MSG0-SHORT-TEXT PIC  X(20)  VALUE 'FAILED FULL EDT'. DTSBD371
00434          10  MSG0-LONG-TEXT.                                      DTSBD371
00435              15  FILLER      PIC  X(30)                           DTSBD371
00436                    VALUE 'TRANSACTION FAILED - DID NOT P'.        DTSBD371
00437              15  FILLER      PIC  X(30)                           DTSBD371
00438                    VALUE 'ASS FULL EDITS ON SCREEN 24   '.        DTSBD371
00439                                                                   DTSBD371
00440      05  MSG1-INVALID-RPT-TYPE.                                   DTSBD371
00441          10  MSG1-ID         PIC  X(11)  VALUE 'DTSBD371311'.     DTSBD371
00442          10  MSG1-SHORT-TEXT PIC  X(20)  VALUE 'INVALID RPT TY'.  DTSBD371
00443          10  MSG1-LONG-TEXT.                                      DTSBD371
00444              15  FILLER      PIC  X(30)                           DTSBD371
00445                    VALUE 'TRANSACTION FAILED - REPORT TY'.        DTSBD371
00446              15  FILLER      PIC  X(30)                           DTSBD371
00447                    VALUE 'PE NOT VALID                  '.        DTSBD371
00448                                                                   DTSBD371
00449      05  MSG2-INCONSISTANT-RPT-TYPE.                              DTSBD371
00450          10  MSG2-ID         PIC  X(11)  VALUE 'DTSBD371312'.     DTSBD371
00451          10  MSG2-SHORT-TEXT PIC  X(20)  VALUE 'INCONST RPT TY'.  DTSBD371
00452          10  MSG2-LONG-TEXT.                                      DTSBD371
00453              15  FILLER      PIC  X(30)                           DTSBD371
00454                    VALUE 'TRANSACTION FAILED - RPT TYP N'.        DTSBD371
00455              15  FILLER      PIC  X(30)                           DTSBD371
00456                    VALUE 'OT CONSISTANT WITH CURR RPT TY'.        DTSBD371
00457                                                                   DTSBD371
00458      05  MSG3-NOT-LIABLE.                                         DTSBD371
00459          10  MSG3-ID         PIC  X(11)  VALUE 'DTSBD371313'.     DTSBD371
00460          10  MSG3-SHORT-TEXT PIC  X(20)  VALUE 'EMP NOT LIABLE'.  DTSBD371
00461          10  MSG3-LONG-TEXT.                                      DTSBD371
00462              15  FILLER      PIC  X(30)                           DTSBD371
00463                    VALUE 'TRANSACTION FAILED - EMPLOYER '.        DTSBD371
00464              15  FILLER      PIC  X(30)                           DTSBD371
00465                    VALUE 'NOT LIABLE DURING RPT-YRQ     '.        DTSBD371
00466                                                                   DTSBD371
00467      05  MSG4-NO-RATE.                                            DTSBD371
00468          10  MSG4-ID         PIC  X(11)  VALUE 'DTSBD371314'.     DTSBD371
00469          10  MSG4-SHORT-TEXT PIC  X(20)  VALUE 'NO RATE EXISTS'.  DTSBD371
00470          10  MSG4-LONG-TEXT.                                      DTSBD371
00471              15  FILLER      PIC  X(30)                           DTSBD371
00472                    VALUE 'TRANSACTION FAILED - NO RATE E'.        DTSBD371
00473              15  FILLER      PIC  X(30)                           DTSBD371
00474                    VALUE 'XISTS FOR RPT-YRQ             '.        DTSBD371
00475                                                                   DTSBD371
00476      05  MSG5-NEGATIVE-NUMERIC.                                   DTSBD371
00477          10  MSG5-ID         PIC  X(11)  VALUE 'DTSBD371315'.     DTSBD371
00478          10  MSG5-SHORT-TEXT PIC  X(20)  VALUE 'YIELDS NEGATIV'.  DTSBD371
00479          10  MSG5-LONG-TEXT.                                      DTSBD371
00480              15  FILLER      PIC  X(30)                           DTSBD371
00481                    VALUE 'TRANSACTION FAILED - WOULD RES'.        DTSBD371
00482              15  FILLER      PIC  X(30)                           DTSBD371
00483                    VALUE 'ULT IN NEGATIVE NUMERIC FIELD '.        DTSBD371
00484                                                                   DTSBD371
00485      05  MSG6-MANUAL-INT-QTR.                                     DTSBD371
00486          10  MSG6-ID.                                             DTSBD371
00487              15  MSG6-ID1    PIC  X(08)  VALUE 'DTSBD371'.        DTSBD371
00488              15  MSG6-ID2    PIC  X(03)  VALUE '316'.             DTSBD371
00489          10  MSG6-SHORT-TEXT PIC  X(20)  VALUE 'MANUAL INT QTR'.  DTSBD371
00490          10  MSG6-LONG-TEXT.                                      DTSBD371
00491              15  FILLER      PIC  X(30)                           DTSBD371
00492                    VALUE 'QUARTERLY REPORT PROCESSED FOR'.        DTSBD371
00493              15  FILLER      PIC  X(26)                           DTSBD371
00494                    VALUE ' MANUAL INTEREST QUARTER: '.            DTSBD371
00495              15  MSG6-YRQ    PIC  X(04).                          DTSBD371
00496                                                                   DTSBD371
00497      05  MSG7-MANUAL-PEN-QTR.                                     DTSBD371
00498          10  MSG7-ID.                                             DTSBD371
00499              15  MSG7-ID1    PIC  X(08)  VALUE 'DTSBD371'.        DTSBD371
00500              15  MSG7-ID2    PIC  X(03)  VALUE '317'.             DTSBD371
00501          10  MSG7-SHORT-TEXT PIC  X(20)  VALUE 'MANUAL PEN QTR'.  DTSBD371
00502          10  MSG7-LONG-TEXT.                                      DTSBD371
00503              15  FILLER      PIC  X(30)                           DTSBD371
00504                    VALUE 'QUARTERLY REPORT PROCESSED FOR'.        DTSBD371
00505              15  FILLER      PIC  X(26)                           DTSBD371
00506                    VALUE ' MANUAL PENALTY QUARTER:  '.            DTSBD371
00507              15  MSG7-YRQ    PIC  X(04).                          DTSBD371
00508                                                                   DTSBD371
00509      05  MSG8-DUPLICATE-TRAN.                                     DTSBD371
00510          10  MSG8-ID         PIC  X(11)  VALUE 'DTSBD371307'.     DTSBD371
00511          10  MSG8-SHORT-TEXT PIC  X(20)  VALUE 'DUPLICATE TRAN'.  DTSBD371
00512          10  MSG8-LONG-TEXT.                                      DTSBD371
00513              15  FILLER      PIC  X(30)                           DTSBD371
00514                    VALUE 'TRANSACTION FAILED - DUPLICATE'.        DTSBD371
00515              15  FILLER      PIC  X(30)                           DTSBD371
00516                    VALUE ' TRANSACTION                  '.        DTSBD371
00517                                                                   DTSBD371
00518      05  MSG9-ESTIM-OVERLAY.                                      DTSBD371
00519          10  MSG9-ID.                                             DTSBD371
00520              15  MSG9-ID1    PIC  X(08)  VALUE 'DTSBD371'.        DTSBD371
00521              15  MSG9-ID2    PIC  X(03)  VALUE '318'.             DTSBD371
00522          10  MSG9-SHORT-TEXT PIC  X(20)  VALUE 'ESTIMATED OVLY'.  DTSBD371
00523          10  MSG9-LONG-TEXT.                                      DTSBD371
00524              15  FILLER      PIC  X(30)                           DTSBD371
00525                    VALUE 'ESTIMATED REPORT REPLACED BY O'.        DTSBD371
00526              15  FILLER      PIC  X(26)                           DTSBD371
00527                    VALUE 'RIGINAL REPORT.  QUARTER: '.            DTSBD371
00528              15  MSG9-YRQ    PIC  X(04).                          DTSBD371
00529                                                                   DTSBD371
00530      05  MSG10-LESS-OR-EQUAL-PKUP-YRQ.                            DTSBD371
00531          10  MSG10-ID.                                            DTSBD371
00532              15  MSG10-ID1   PIC  X(08)  VALUE 'DTSBD371'.        DTSBD371
00533              15  MSG10-ID2   PIC  X(03)  VALUE '319'.             DTSBD371
00534          10  MSG10-SHORT-TEXT PIC X(20)  VALUE 'YRQ <= 19924  '.  DTSBD371
00535          10  MSG10-LONG-TEXT.                                     DTSBD371
00536              15  FILLER      PIC  X(30)                           DTSBD371
00537                    VALUE 'TRANSACTION FAILED - YRQ <= PI'.        DTSBD371
00538              15  FILLER      PIC  X(30)                           DTSBD371
00539                    VALUE 'CKUP YRQ (1992/4)             '.        DTSBD371
00540                                                                   DTSBD371
00541      05  MSG11-CLMT-WG-RPT-FOUND.                                 DTSBD371
00542          10  MSG11-ID.                                            DTSBD371
00543              15  MSG11-ID1   PIC  X(08)  VALUE 'DTSBD371'.        DTSBD371
00544              15  MSG11-ID2   PIC  X(03)  VALUE '320'.             DTSBD371
00545          10  MSG11-SHORT-TEXT PIC X(20)  VALUE 'CLAIMNT WG RPT'.  DTSBD371
00546          10  MSG11-LONG-TEXT.                                     DTSBD371
00547              15  FILLER      PIC  X(30)                           DTSBD371
00548                    VALUE 'TRANSACTION HELD - CLAIMANT WG'.        DTSBD371
00549              15  FILLER      PIC  X(30)                           DTSBD371
00550                    VALUE ' RPT FOUND - CURR WAGES NEEDED'.        DTSBD371
00551                                                                   DTSBD371
00552      05  MSG12-CW-SAME-DAY.                                       DTSBD371
00553          10  MSG12-ID.                                            DTSBD371
00554              15  MSG12-ID1   PIC  X(08)  VALUE 'DTSBD371'.        DTSBD371
00555              15  MSG12-ID2   PIC  X(03)  VALUE '321'.             DTSBD371
00556          10  MSG12-SHORT-TEXT PIC X(20)  VALUE 'CW SAME DAY   '.  DTSBD371
00557          10  MSG12-LONG-TEXT.                                     DTSBD371
00558              15  FILLER      PIC  X(30)                           DTSBD371
00559                    VALUE 'TRANSACTION HELD - CLAIMANT WG'.        DTSBD371
00560              15  FILLER      PIC  X(30)                           DTSBD371
00561                    VALUE ' RPT ENTERED SAME DAY AS ORIG '.        DTSBD371
00562                                                                   DTSBD371
00563      05  MSG13-CW-EMPL-CNT.                                       DTSBD371
00564          10  MSG13-ID.                                            DTSBD371
00565              15  MSG13-ID1   PIC  X(08)  VALUE 'DTSBD371'.        DTSBD371
00566              15  MSG13-ID2   PIC  X(03)  VALUE '322'.             DTSBD371
00567          10  MSG13-SHORT-TEXT PIC X(20)  VALUE 'CW WORKER CNTS'.  DTSBD371
00568          10  MSG13-LONG-TEXT.                                     DTSBD371
00569              15  FILLER      PIC  X(30)                           DTSBD371
00570                    VALUE 'TRANSACTION FAILED - CLAIMANT '.        DTSBD371
00571              15  FILLER      PIC  X(30)                           DTSBD371
00572                    VALUE 'WAGE RPT WITH WORKER COUNTS   '.        DTSBD371
00573                                                                   DTSBD371
00574  05  MSG14-WAGES-ON-NON-LIABLE-YRQ.                               DTSBD371
00575      10  MSG14-ID.                                                DTSBD371
00576          15  MSG14-ID1   PIC  X(08)  VALUE 'DTSBD371'.            DTSBD371
00577          15  MSG14-ID2   PIC  X(03)  VALUE '323'.                 DTSBD371
00578      10  MSG14-SHORT-TEXT PIC X(20)                               DTSBD371
00579                VALUE 'NON-LIAB-QTR W/WAGES'.                      DTSBD371
00580      10  MSG14-LONG-TEXT.                                         DTSBD371
00581          15  FILLER      PIC  X(30)                               DTSBD371
00582                VALUE 'TRANSACTION FAILED - WAGES REP'.            DTSBD371
00583          15  FILLER      PIC  X(30)                               DTSBD371
00584                VALUE 'ORTED ON NON-LIABLE QTR       '.            DTSBD371
00585                                                                   DTSBD371
00586  01  EVL-TABLE.                                                   DTSBD371
00587      05  EVL1-TEXT.                                               DTSBD371
00588          10  FILLER          PIC  X(45)                           DTSBD371
00589        VALUE 'REPORT RCVD WITHOUT USEABLE WAGE DATA.  YRQ: '.     DTSBD371
00590          10  EVL1-SLASH-QTR  PIC  X(04).                          DTSBD371
00591      05  EVL2-TEXT.                                               DTSBD371
00592          10  FILLER          PIC  X(45)                           DTSBD371
00593        VALUE 'ZERO-WAGE REPORT RCVD - ACCT INACTIVE.  YRQ: '.     DTSBD371
00594          10  EVL2-SLASH-QTR  PIC  X(04).                          DTSBD371
00595      EJECT                                                        DTSBD371
00596  01  APAY-REC.                                                    DTSBD371
00597  ++INCLUDE DTSIAPAY                                               DTSBD371
00598      EJECT                                                        DTSBD371
00599  01  R316-REC.                                                    DTSBD371
00600  ++INCLUDE DTSIR316                                               DTSBD371
00601      EJECT                                                        DTSBD371
00602  01  R726-REC.                                                    DTSBD371
00603  ++INCLUDE DTSIR726                                               DTSBD371
00604      EJECT                                                        DTSBD371
00605  01  R907-REC.                                                    DTSBD371
00606  ++INCLUDE DTSIR907                                               DTSBD371
00607      EJECT                                                        DTSBD371
00608  01  L910-LINK-AREA.                                              DTSBD371
00609  ++INCLUDE DTSIL910                                               DTSBD371
00610      SKIP3                                                        DTSBD371
00611  01  MSKL-REC.                                                    DTSBD371
00612  ++INCLUDE DTSIMSKL                                               DTSBD371
00613      SKIP3                                                        DTSBD371
00614  01  MQTR-REC.                                                    DTSBD371
00615  ++INCLUDE DTSIMQTR                                               DTSBD371
00616      SKIP3                                                        DTSBD371
00617  01  MRPT-REC.                                                    DTSBD371
00618  ++INCLUDE DTSIMRPT                                               DTSBD371
00619      SKIP3                                                        DTSBD371
00620  01  MPAY-REC.                                                    DTSBD371
00621  ++INCLUDE DTSIMPAY                                               DTSBD371
00622      SKIP3                                                        DTSBD371
00623  01  MTCK-REC.                                                    DTSBD371
00624  ++INCLUDE DTSIMTCK                                               DTSBD371
00625      SKIP3                                                        DTSBD371
00626  01  MDST-REC.                                                    DTSBD371
00627  ++INCLUDE DTSIMDST                                               DTSBD371
00628      SKIP3                                                        DTSBD371
00629  01  MEVL-REC.                                                    DTSBD371
00630  ++INCLUDE DTSIMEVL                                               DTSBD371
00631      EJECT                                                        DTSBD371
00632  01  MNTE-REC.                                                    DTSBD371
00633  ++INCLUDE DTSIMNTE                                               DTSBD371
00634      EJECT                                                        DTSBD371
00635  01  L001-LINK-AREA.                                              DTSBD371
00636  ++INCLUDE DTSIL001                                               DTSBD371
00637      SKIP3                                                        DTSBD371
00638  01  L004-LINK-AREA.                                              DTSBD371
00639  ++INCLUDE DTSIL004                                               DTSBD371
00640      SKIP3                                                        DTSBD371
00641  01  L005-LINK-AREA.                                              DTSBD371
00642  ++INCLUDE DTSIL005                                               DTSBD371
00643      SKIP3                                                        DTSBD371
00644  01  L101-LINK-AREA.                                              DTSBD371
00645  ++INCLUDE DTSIL101                                               DTSBD371
00646      SKIP3                                                        DTSBD371
00647  01  L102-LINK-AREA.                                              DTSBD371
00648  ++INCLUDE DTSIL102                                               DTSBD371
00649      SKIP3                                                        DTSBD371
00650  01  L109-LINK-AREA.                                              DTSBD371
00651  ++INCLUDE DTSIL109                                               DTSBD371
00652      SKIP3                                                        DTSBD371
00653  01  L111-LINK-AREA.                                              DTSBD371
00654  ++INCLUDE DTSIL111                                               DTSBD371
00655      SKIP3                                                        DTSBD371
00656  01  L112-LINK-AREA.                                              DTSBD371
00657  ++INCLUDE DTSIL112                                               DTSBD371
00658      SKIP3                                                        DTSBD371
00659  01  L415-LINK-AREA.                                              DTSBD371
00660  ++INCLUDE DTSIL415                                               DTSBD371
00661      SKIP3                                                        DTSBD371
00662  01  L420-LINK-AREA.                                              DTSBD371
00663  ++INCLUDE DTSIL420                                               DTSBD371
00664      SKIP3                                                        DTSBD371
00665  01  L424-LINK-AREA.                                              DTSBD371
00666  ++INCLUDE DTSIL424                                               DTSBD371
00667      SKIP3                                                        DTSBD371
00668  01  L516-LINK-AREA.                                              DTSBD371
00669  ++INCLUDE DTSIL516                                               DTSBD371
00670      SKIP3                                                        DTSBD371
00671  01  L520-LINK-AREA.                                              DTSBD371
00672  ++INCLUDE DTSIL520                                               DTSBD371
00673      SKIP3                                                        DTSBD371
00674  01  L522-LINK-AREA.                                              DTSBD371
00675  ++INCLUDE DTSIL522                                               DTSBD371
00676      SKIP3                                                        DTSBD371
00677  01  L541-LINK-AREA.                                              DTSBD371
00678  ++INCLUDE DTSIL541                                               DTSBD371
00679      SKIP3                                                        DTSBD371
00680  01  L549-LINK-AREA.                                              DTSBD371
00681  ++INCLUDE DTSIL549                                               DTSBD371
00682      EJECT                                                        DTSBD371
00683  01  L590-LINK-AREA.                                              DTSBD371
00684  ++INCLUDE DTSIL590                                               DTSBD371
00685      EJECT                                                        DTSBD371
00686  01  MMAX-LITERALS.                                               DTSBD371
00687  ++INCLUDE DTSIMMAX                                               DTSBD371
00688      SKIP3                                                        DTSBD371
00689  01  CACT-LITERALS.                                               DTSBD371
00690  ++INCLUDE DTSICACT                                               DTSBD371
00691      EJECT                                                        DTSBD371
00692  LINKAGE SECTION.                                                 DTSBD371
00693      SKIP3                                                        DTSBD371
00694  01  LBCM-LINK-AREA.                                              DTSBD371
00695  ++INCLUDE DTSILBCM                                               DTSBD371
00696      EJECT                                                        DTSBD371
00697  01  MPRF-REC.                                                    DTSBD371
00698  ++INCLUDE DTSIMPRF                                               DTSBD371
00699      EJECT                                                        DTSBD371
00700  01  ARPT-REC.                                                    DTSBD371
00701  ++INCLUDE DTSIARPT                                               DTSBD371
00702      EJECT                                                        DTSBD371
00703  PROCEDURE DIVISION USING LBCM-LINK-AREA                          DTSBD371
00704                           MPRF-REC                                DTSBD371
00705                           ARPT-REC.                               DTSBD371
00706                                                                   DTSBD371
00707      IF FIRST-TIME-IND = 'Y'                                      DTSBD371
00708          PERFORM I0000-FIRST-TIME THRU I0000-EXIT                 DTSBD371
00709          MOVE 'N' TO FIRST-TIME-IND.                              DTSBD371
00710                                                                   DTSBD371
00711                                                                   DTSBD371
00712      PERFORM P0000-PROCESS THRU P0000-EXIT.                       DTSBD371
00713                                                                   DTSBD371
00714                                                                   DTSBD371
00715      GOBACK.                                                      DTSBD371
00716      EJECT                                                        DTSBD371
00717  I0000-FIRST-TIME.                                                DTSBD371
00718      MOVE LBCM-TRACE-IND TO L910-TRACE-IND                        DTSBD371
00719                             L516-TRACE-IND.                       DTSBD371
00720                                                                   DTSBD371
00721      MOVE WRK-MOD-NAME   TO L910-MOD-NAME                         DTSBD371
00722                             R907-MODULE-NAME.                     DTSBD371
00723                                                                   DTSBD371
00724      MOVE LENGTH OF R316-REC TO R316-LENGTH.                      DTSBD371
00725                                                                   DTSBD371
00726      MOVE '316' TO R316-REC-TYPE.                                 DTSBD371
00727                                                                   DTSBD371
00728      MOVE LENGTH OF R726-REC TO R726-LENGTH.                      DTSBD371
00729                                                                   DTSBD371
00730      MOVE '726' TO R726-REC-TYPE.                                 DTSBD371
00731                                                                   DTSBD371
00732      MOVE LENGTH OF R907-REC TO R907-LENGTH.                      DTSBD371
00733                                                                   DTSBD371
00734      MOVE '907' TO R907-REC-TYPE.                                 DTSBD371
00735                                                                   DTSBD371
00736      MOVE +0 TO WRK-NULL-BATCH-NO                                 DTSBD371
00737                 WRK-NULL-ITEM-NO.                                 DTSBD371
00738                                                                   DTSBD371
00739      SET L415-MODE-MOST-RECENT-88 TO TRUE.                        DTSBD371
00740      PERFORM S415-HOUSEHOLD-DATES   THRU S415-EXIT.               DTSBD371
00741      MOVE L415-UC30H-FIRST-DEL-END-YRQ                            DTSBD371
00742                                    TO WRK-UC30H-DEL-END-YRQ.      DTSBD371
00743      DISPLAY 'I0000 ANN DEL YR END ' WRK-UC30H-DEL-END-YRQ.       DTSBD371
00744                                                                   DTSBD371
00745      PERFORM S109-FIRST-PEN-INT-YRQ  THRU S109-EXIT.              DTSBD371
00746      MOVE L109-FIRST-PEN-INT-YRQ TO WRK-FIRST-PEN-INT-YRQ.        DTSBD371
00747                                                                   DTSBD371
00748  I0000-EXIT.                                                      DTSBD371
00749      EXIT.                                                        DTSBD371
00750      EJECT                                                        DTSBD371
00751  P0000-PROCESS.                                                   DTSBD371
00752 *&                                                                DTSBD371
00753 *    IF ARPT-EMP-NO = 149318                                      DTSBD371
00754 *        DISPLAY 'DTSBD371 P0000 FIRST ' ARPT-EMP-NO              DTSBD371
00755 *           '  ' ARPT-YRQ                                         DTSBD371
00756 *           '  ' ARPT-RPT-TYPE                                    DTSBD371
00757 *           '  ' ARPT-BATCH-NO ' ' ARPT-ITEM-NO.                  DTSBD371
00758 *    END-IF.                                                      DTSBD371
00759 *&                                                                DTSBD371
00760      SET WRK-0-WAGE-INACT-NO-88    TO TRUE.                       DTSBD371
00761      SET WRK-CW-ON-FILE-NO-88      TO TRUE.                       DTSBD371
00762      SET WRK-CW-SAME-DAY-NO-88     TO TRUE.                       DTSBD371
00763      SET WRK-CW-ADJUST-NO-88       TO TRUE .                      DTSBD371
00764                                                                   DTSBD371
00765      MOVE MPRF-EMP-NO TO R907-EMP-NO.                             DTSBD371
00766                                                                   DTSBD371
00767      IF (ARPT-PASSED-FULL-EDITS-NO-88)                            DTSBD371
00768                OR                                                 DTSBD371
00769         (ARPT-EMP-NO-NO-ENTRY-88)                                 DTSBD371
00770                OR                                                 DTSBD371
00771         (ARPT-YRQ-NO-ENTRY-88)                                    DTSBD371
00772                OR                                                 DTSBD371
00773         (ARPT-TOT-WAGE-NO-ENTRY-88)                               DTSBD371
00774                OR                                                 DTSBD371
00775         (ARPT-EXCESS-WAGE-NO-ENTRY-88)                            DTSBD371
00776                OR                                                 DTSBD371
00777         (ARPT-TAX-WAGE-NO-ENTRY-88)                               DTSBD371
00778                OR                                                 DTSBD371
00779         (ARPT-REMIT-AMT-NO-ENTRY-88)                              DTSBD371
00780          SET LBCM-TRN-NOT-OK-88 TO TRUE                           DTSBD371
00781          MOVE MSG0-NOT-PASSED-FULL-EDITS                          DTSBD371
00782            TO LBCM-TRN-MSG-AREA                                   DTSBD371
00783          GO TO P0000-EXIT                                         DTSBD371
00784      END-IF.                                                      DTSBD371
00785                                                                   DTSBD371
00786      MOVE ARPT-YRQ TO L516-YRQ.                                   DTSBD371
00787      PERFORM S516-LIABILITY-INFO THRU S516-EXIT.                  DTSBD371
00788                                                                   DTSBD371
00789      IF L516-ANN-SCHED-88                                         DTSBD371
00790         MOVE WRK-UC30H-DEL-END-YRQ        TO WRK-LAST-DEL-YRQ     DTSBD371
00791         DISPLAY 'BD371 ANNUAL FILER ' MPRF-EMP-NO '  ' ARPT-YRQ   DTSBD371
00792         PERFORM P0050-ANN-REMITTANCE      THRU P0050-EXIT         DTSBD371
00793      ELSE                                                         DTSBD371
00794         MOVE LBCM-LAST-UC30-DEL-MAIL-YRQ  TO WRK-LAST-DEL-YRQ     DTSBD371
00795      END-IF.                                                      DTSBD371
00796                                                                   DTSBD371
00797      MOVE LOW-VALUES           TO MQTR-KEY-AREA.                  DTSBD371
00798      MOVE MPRF-EMP-NO          TO MQTR-EMP-NO.                    DTSBD371
00799      SET MQTR-QTR-88           TO TRUE.                           DTSBD371
00800      MOVE ARPT-YRQ             TO MQTR-YRQ.                       DTSBD371
00801      MOVE MQTR-KEY-AREA        TO MSKL-KEY-AREA.                  DTSBD371
00802                                                                   DTSBD371
00803      PERFORM S910-READ         THRU S910-EXIT.                    DTSBD371
00804                                                                   DTSBD371
00805      IF L910-NO-REC-88                                            DTSBD371
00806         PERFORM S511-MQTR-INIT THRU S511-EXIT                     DTSBD371
00807         IF MQTR-YRQ > WRK-LAST-DEL-YRQ                            DTSBD371
00808            SET MQTR-MISS-NOT-YET-RUN-88 TO TRUE                   DTSBD371
00809         ELSE                                                      DTSBD371
00810            SET MQTR-MISS-NOT-LIABLE-88 TO TRUE                    DTSBD371
00811         END-IF                                                    DTSBD371
00812      ELSE                                                         DTSBD371
00813         MOVE MSKL-REC TO MQTR-REC.                                DTSBD371
00814                                                                   DTSBD371
00815      MOVE MQTR-TOT-WAGE TO PRE-UPDATE-TOT-WAGE.                   DTSBD371
00816                                                                   DTSBD371
00817      MOVE MQTR-TAX-WAGE TO PRE-UPDATE-TAX-WAGE.                   DTSBD371
00818                                                                   DTSBD371
00819      MOVE MQTR-EXCESS-WAGE TO PRE-UPDATE-EXCESS-WAGE.             DTSBD371
00820                                                                   DTSBD371
00821      MOVE MQTR-CURR-RPT-TYPE TO PRE-UPDATE-CURR-RPT-TYPE.         DTSBD371
00822                                                                   DTSBD371
00823      MOVE +0 TO PRE-UPDATE-UI-CHARGED-AMT                         DTSBD371
00824                 PRE-UPDATE-SUR-CHARGED-AMT.                       DTSBD371
00825                                                                   DTSBD371
00826                                                                   DTSBD371
00827      PERFORM P0100-MQTR-ACCT-SCAN THRU P0100-EXIT                 DTSBD371
00828          VARYING MQTR-ACCT-IDX FROM 1 BY 1                        DTSBD371
00829          UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT.                     DTSBD371
00830                                                                   DTSBD371
00831                                                                   DTSBD371
00832      PERFORM P1000-EDIT THRU P1000-EXIT.                          DTSBD371
00833                                                                   DTSBD371
00834      IF LBCM-TRN-NOT-OK-88                                        DTSBD371
00835          GO TO P0000-EXIT.                                        DTSBD371
00836                                                                   DTSBD371
00837      IF WRK-0-WAGE-INACT-YES-88                                   DTSBD371
00838      AND NOT ARPT-ADMIN-CORR-88                                   DTSBD371
00839         PERFORM P0300-ZERO-WAGE-INACT   THRU P0300-EXIT           DTSBD371
00840         GO TO P0000-EXIT                                          DTSBD371
00841      END-IF.                                                      DTSBD371
00842                                                                   DTSBD371
00843                                                                   DTSBD371
00844      SET LBCM-EMP-ACCOUNTING-YES-88 TO TRUE.                      DTSBD371
00845                                                                   DTSBD371
00846                                                                   DTSBD371
00847      PERFORM P2000-UPDATE-MQTR THRU P2000-EXIT.                   DTSBD371
00848                                                                   DTSBD371
00849                                                                   DTSBD371
00850      MOVE MQTR-KEY-AREA TO MSKL-REC.                              DTSBD371
00851                                                                   DTSBD371
00852      PERFORM S910-READ THRU S910-EXIT.                            DTSBD371
00853                                                                   DTSBD371
00854      IF L910-OK-88                                                DTSBD371
00855          MOVE MQTR-REC TO MSKL-REC                                DTSBD371
00856          PERFORM S910-REWRITE THRU S910-EXIT                      DTSBD371
00857      ELSE                                                         DTSBD371
00858          MOVE LBCM-CURR-RUN-DATE TO MQTR-ESTB-DATE                DTSBD371
00859          MOVE MQTR-REC TO MSKL-REC                                DTSBD371
00860          PERFORM S910-WRITE THRU S910-EXIT.                       DTSBD371
00861                                                                   DTSBD371
00862                                                                   DTSBD371
00863      PERFORM P3000-MRPT-WRITE THRU P3000-EXIT.                    DTSBD371
00864                                                                   DTSBD371
00865                                                                   DTSBD371
00866      IF ARPT-REMIT-AMT > 0                                        DTSBD371
00867            PERFORM P4000-REMIT-PROCESS     THRU P4000-EXIT        DTSBD371
00868         END-IF.                                                   DTSBD371
00869                                                                   DTSBD371
00870                                                                   DTSBD371
00871 *&                                                                DTSBD371
00872 *    IF MPRF-EMP-NO = 081547                                      DTSBD371
00873 *       MOVE MPRF-TOT-BALANCE-AMT       TO AMT-DISP2              DTSBD371
00874 *       MOVE MPRF-TOT-CREDIT-AMT        TO AMT-DISP3              DTSBD371
00875 *       DISPLAY 'DTSBD371 - 1 ' MRPT-EMP-NO '  ' MQTR-YRQ         DTSBD371
00876 *       '  BAL ' AMT-DISP2 '  CR ' AMT-DISP3                      DTSBD371
00877 *    END-IF.                                                      DTSBD371
00878 *&                                                                DTSBD371
00879      SET L520-NO-PREF-88 TO TRUE.                                 DTSBD371
00880                                                                   DTSBD371
00881      MOVE WRK-NULL-DOC-NO TO L520-PREF-PAY-DOC-NO.                DTSBD371
00882                                                                   DTSBD371
00883      MOVE +0 TO L520-PREF-APPLIC-YRQ.                             DTSBD371
00884                                                                   DTSBD371
00885      MOVE SPACE TO L520-PREF-APPLIC-IND.                          DTSBD371
00886                                                                   DTSBD371
00887      SET L520-ANNUAL-RPT-NULL-88 TO TRUE.                         DTSBD371
00888                                                                   DTSBD371
00889      MOVE ZERO    TO L520-WITHDRAW-ANN-YRQ.                       DTSBD371
00890                                                                   DTSBD371
00891      SET L520-LAST-ANN-QTR-NULL-88  TO TRUE.                      DTSBD371
00892                                                                   DTSBD371
00893 ***  MOVE WRK-FIRST-PEN-INT-YRQ     TO L520-FIRST-PEN-INT-YRQ.    DTSBD371
00894                                                                   DTSBD371
00895      PERFORM S520-APPLY-CREDIT THRU S520-EXIT.                    DTSBD371
00896                                                                   DTSBD371
00897 *&                                                                DTSBD371
00898 *    IF MPRF-EMP-NO = 081547                                      DTSBD371
00899 *       MOVE MPRF-TOT-BALANCE-AMT       TO AMT-DISP2              DTSBD371
00900 *       MOVE MPRF-TOT-CREDIT-AMT        TO AMT-DISP3              DTSBD371
00901 *       DISPLAY 'DTSBD371 - 2 ' MRPT-EMP-NO '  ' MQTR-YRQ         DTSBD371
00902 *       '  BAL ' AMT-DISP2 '  CR ' AMT-DISP3                      DTSBD371
00903 *    END-IF.                                                      DTSBD371
00904 *&                                                                DTSBD371
00905 *****************************                                     DTSBD371
00906 * MODIFIED 9/16/2013 - TICKET 2022                                DTSBD371
00907 *****************************                                     DTSBD371
00908      IF MPRF-EMP-NO = 144048 OR 171498                            DTSBD371
00909         IF ARPT-PSEUDO-BATCH-NO NOT NUMERIC                       DTSBD371
00910            MOVE ZERO TO ARPT-PSEUDO-BATCH-NO                      DTSBD371
00911         END-IF                                                    DTSBD371
00912          DISPLAY 'DTSBD371 P0000 ' ARPT-EMP-NO                    DTSBD371
00913             '  ' ARPT-YRQ                                         DTSBD371
00914             '  ' ARPT-BATCH-NO ' ' ARPT-ITEM-NO                   DTSBD371
00915             '  ' ARPT-PSEUDO-BATCH-NO ' ' ARPT-PSEUDO-ITEM-NO     DTSBD371
00916      END-IF.                                                      DTSBD371
00917                                                                   DTSBD371
00918      IF ARPT-PSEUDO-BATCH-NO     NOT NUMERIC                      DTSBD371
00919         MOVE ARPT-BATCH-NO       TO ARPT-PSEUDO-BATCH-NO          DTSBD371
00920      ELSE                                                         DTSBD371
00921         IF ARPT-PSEUDO-BATCH-NO = ZERO                            DTSBD371
00922            MOVE ARPT-BATCH-NO    TO ARPT-PSEUDO-BATCH-NO          DTSBD371
00923         END-IF                                                    DTSBD371
00924      END-IF.                                                      DTSBD371
00925                                                                   DTSBD371
00926      IF ARPT-PSEUDO-ITEM-NO      NOT NUMERIC                      DTSBD371
00927         MOVE ARPT-ITEM-NO        TO ARPT-PSEUDO-ITEM-NO           DTSBD371
00928      ELSE                                                         DTSBD371
00929         IF ARPT-PSEUDO-ITEM-NO = ZERO                             DTSBD371
00930            MOVE ARPT-ITEM-NO     TO ARPT-PSEUDO-ITEM-NO           DTSBD371
00931         END-IF                                                    DTSBD371
00932      END-IF.                                                      DTSBD371
00933                                                                   DTSBD371
00934      IF MPRF-EMP-NO = 144048 OR 171498                            DTSBD371
00935          DISPLAY 'DTSBD371 P0000 ' ARPT-EMP-NO                    DTSBD371
00936             '  ' ARPT-YRQ                                         DTSBD371
00937             '  ' ARPT-PSEUDO-BATCH-NO ' ' ARPT-PSEUDO-ITEM-NO     DTSBD371
00938      END-IF.                                                      DTSBD371
00939                                                                   DTSBD371
00940      PERFORM P0200-WRITE-WAGES THRU P0200-EXIT.                   DTSBD371
00941                                                                   DTSBD371
00942 **   IF (ARPT-PSEUDO-BATCH-NO NUMERIC                             DTSBD371
00943 *    AND ARPT-PSEUDO-ITEM-NO NUMERIC)                             DTSBD371
00944 *       IF (ARPT-PSEUDO-BATCH-NO > ZERO                           DTSBD371
00945 *       AND ARPT-PSEUDO-ITEM-NO > ZERO)                           DTSBD371
00946 *          PERFORM P0200-WRITE-WAGES THRU P0200-EXIT              DTSBD371
00947 *       END-IF                                                    DTSBD371
00948 *    END-IF.                                                      DTSBD371
00949 *                                                                 DTSBD371
00950 *    IF L516-ANN-SCHED-88                                         DTSBD371
00951 *       IF ARPT-PSEUDO-BATCH-NO     NOT NUMERIC                   DTSBD371
00952 *          MOVE ARPT-BATCH-NO       TO ARPT-PSEUDO-BATCH-NO       DTSBD371
00953 *       ELSE                                                      DTSBD371
00954 *          IF ARPT-PSEUDO-BATCH-NO = ZERO                         DTSBD371
00955 *             MOVE ARPT-BATCH-NO    TO ARPT-PSEUDO-BATCH-NO       DTSBD371
00956 *          END-IF                                                 DTSBD371
00957 *       END-IF                                                    DTSBD371
00958 *       IF ARPT-PSEUDO-ITEM-NO      NOT NUMERIC                   DTSBD371
00959 *          MOVE ARPT-ITEM-NO        TO ARPT-PSEUDO-ITEM-NO        DTSBD371
00960 *       ELSE                                                      DTSBD371
00961 *          IF ARPT-PSEUDO-ITEM-NO = ZERO                          DTSBD371
00962 *             MOVE ARPT-ITEM-NO     TO ARPT-PSEUDO-ITEM-NO        DTSBD371
00963 *          END-IF                                                 DTSBD371
00964 *       END-IF                                                    DTSBD371
00965 *       PERFORM P0200-WRITE-WAGES   THRU P0200-EXIT               DTSBD371
00966 **   END-IF.                                                      DTSBD371
00967                                                                   DTSBD371
00968                                                                   DTSBD371
00969  P0000-EXIT.                                                      DTSBD371
00970      EXIT.                                                        DTSBD371
00971                                                                   DTSBD371
00972 *****************                                                 DTSBD371
00973 * SUM REMITTANCE AMOUNT FOR ANNUAL REPORTS AS EACH QUARTER        DTSBD371
00974 * IS PROCESSED. THIS AMOUNT IS NEEDED IN THE PENALTY              DTSBD371
00975 * CALCULATION PROCESS (P2800).                                    DTSBD371
00976 *****************                                                 DTSBD371
00977  P0050-ANN-REMITTANCE.                                            DTSBD371
00978      MOVE ARPT-YRQ              TO L004-QTR-5-9.                  DTSBD371
00979      IF L004-QTR-5-Q = 1                                          DTSBD371
00980         MOVE ARPT-REMIT-AMT     TO WRK-ANN-REMIT-AMT              DTSBD371
00981      ELSE                                                         DTSBD371
00982         ADD  ARPT-REMIT-AMT     TO WRK-ANN-REMIT-AMT              DTSBD371
00983      END-IF.                                                      DTSBD371
00984                                                                   DTSBD371
00985      MOVE ARPT-REMIT-AMT        TO AMT-DISP1.                     DTSBD371
00986      MOVE WRK-ANN-REMIT-AMT     TO AMT-DISP2.                     DTSBD371
00987      DISPLAY 'BD371 P0050 ' ARPT-EMP-NO '  ' ARPT-YRQ             DTSBD371
00988         '  ' AMT-DISP1 '  ' AMT-DISP2.                            DTSBD371
00989  P0050-EXIT.                                                      DTSBD371
00990      EXIT.                                                        DTSBD371
00991                                                                   DTSBD371
00992  P0100-MQTR-ACCT-SCAN.                                            DTSBD371
00993      IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX)                           DTSBD371
00994          MOVE MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                    DTSBD371
00995            TO PRE-UPDATE-UI-CHARGED-AMT                           DTSBD371
00996      ELSE                                                         DTSBD371
00997      IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX)                          DTSBD371
00998          MOVE MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                    DTSBD371
00999            TO PRE-UPDATE-SUR-CHARGED-AMT.                         DTSBD371
01000  P0100-EXIT.                                                      DTSBD371
01001      EXIT.                                                        DTSBD371
01002                                                                   DTSBD371
01003  P0200-WRITE-WAGES.                                               DTSBD371
01004 ************************************************************      DTSBD371
01005 *    WRITE W4 WAGE TRANSACTIONS                                   DTSBD371
01006 ************************************************************      DTSBD371
01007      MOVE ARPT-BATCH-NO              TO L420-BATCH-NO.            DTSBD371
01008      MOVE ARPT-ITEM-NO               TO L420-ITEM-NO.             DTSBD371
01009      MOVE ARPT-PSEUDO-BATCH-NO       TO L420-PSEUDO-BATCH-NO.     DTSBD371
01010      MOVE ARPT-PSEUDO-ITEM-NO        TO L420-PSEUDO-ITEM-NO.      DTSBD371
01011      MOVE ARPT-YRQ                   TO L420-YRQ.                 DTSBD371
01012      MOVE ARPT-RECEIVED-DATE         TO L420-RECEIVED-DATE.       DTSBD371
01013      MOVE MPRF-EMP-NO                TO L420-EMP-NO.              DTSBD371
01014      MOVE MPRF-PRIMARY-NAME          TO L420-EMP-NAME.            DTSBD371
01015      MOVE ARPT-RPT-TYPE              TO L420-RPT-TYPE.            DTSBD371
01016      MOVE LBCM-ABSTIME               TO L420-ABSTIME.             DTSBD371
01017      MOVE LBCM-SYS-DATE              TO L001-FED-8-DATE-9.        DTSBD371
01018      PERFORM S001-FROM-FED-8         THRU S001-EXIT.              DTSBD371
01019      MOVE L001-SLASH-8-DATE          TO L420-SYS-DATE.            DTSBD371
01020      SET L420-NAME-TYPE-FULL-88      TO TRUE.                     DTSBD371
01021      PERFORM S420A-WRITE-WAGE-TRANS  THRU S420A-EXIT.             DTSBD371
01022      PERFORM S420B-DELETE-WTC        THRU S420B-EXIT.             DTSBD371
01023                                                                   DTSBD371
01024  P0200-EXIT.                                                      DTSBD371
01025      EXIT.                                                        DTSBD371
01026                                                                   DTSBD371
01027  P0300-ZERO-WAGE-INACT.                                           DTSBD371
01028      MOVE MQTR-YRQ              TO L004-QTR-5-9.                  DTSBD371
01029      PERFORM S004-FROM-5        THRU S004-EXIT.                   DTSBD371
01030      MOVE L004-SLASH-QTR        TO EVL2-SLASH-QTR.                DTSBD371
01031      MOVE EVL2-TEXT             TO EVL-TEXT.                      DTSBD371
01032      PERFORM S4000-WRITE-MEVL   THRU S4000-EXIT.                  DTSBD371
01033                                                                   DTSBD371
01034  P0300-EXIT.                                                      DTSBD371
01035      EXIT.                                                        DTSBD371
01036                                                                   DTSBD371
01037  P1000-EDIT.                                                      DTSBD371
01038 *&                                                                DTSBD371
01039 *     IF ARPT-EMP-NO = 011709 OR 085431 OR 068382                 DTSBD371
01040 *        DISPLAY 'DTSBD140 P1000 ' ARPT-EMP-NO                    DTSBD371
01041 *           '  ' ARPT-YRQ                                         DTSBD371
01042 *           '  ' ARPT-RPT-TYPE                                    DTSBD371
01043 *     END-IF.                                                     DTSBD371
01044 *&                                                                DTSBD371
01045       IF ARPT-YRQ <= LBCM-PICKUP-YRQ                              DTSBD371
01046           SET LBCM-TRN-NOT-OK-88 TO TRUE                          DTSBD371
01047           MOVE MSG10-LESS-OR-EQUAL-PKUP-YRQ TO LBCM-TRN-MSG-AREA  DTSBD371
01048           GO TO P1000-EXIT.                                       DTSBD371
01049                                                                   DTSBD371
01050                                                                   DTSBD371
01051 *    MOVE MQTR-YRQ TO L516-YRQ.                                   DTSBD371
01052 *                                                                 DTSBD371
01053 *    PERFORM S516-LIABILITY-INFO THRU S516-EXIT.                  DTSBD371
01054                                                                   DTSBD371
01055 **   IF L516-ANN-SCHED-88                                         DTSBD371
01056 *       IF ARPT-WITHDRW-88                                        DTSBD371
01057 *          NEXT SENTENCE                                          DTSBD371
01058 *       ELSE                                                      DTSBD371
01059 *          IF L516-NOT-LIABLE-88                                  DTSBD371
01060 *          AND ARPT-TOT-WAGE > ZERO                               DTSBD371
01061 *             SET LBCM-TRN-NOT-OK-88 TO TRUE                      DTSBD371
01062 *             MOVE MSG11-WAGES-ON-NON-LIABLE-YRQ TO               DTSBD371
01063 *                                     LBCM-TRN-MSG-AREA           DTSBD371
01064 *             GO TO P1000-EXIT                                    DTSBD371
01065 *          END-IF                                                 DTSBD371
01066 *       END-IF                                                    DTSBD371
01067 **   END-IF.                                                      DTSBD371
01068                                                                   DTSBD371
01069      EVALUATE TRUE                                                DTSBD371
01070        WHEN ARPT-ORIG-88                                          DTSBD371
01071          PERFORM P1100-EDIT-ORIG      THRU P1100-EXIT             DTSBD371
01072                                                                   DTSBD371
01073        WHEN ARPT-ESTIM-88                                         DTSBD371
01074          PERFORM P1200-EDIT-ESTIM     THRU P1200-EXIT             DTSBD371
01075                                                                   DTSBD371
01076        WHEN ARPT-EMP-AMEND-88                                     DTSBD371
01077        OR ARPT-AUDIT-88                                           DTSBD371
01078        OR ARPT-FLD-SUP-88                                         DTSBD371
01079        OR ARPT-ADMIN-CORR-88                                      DTSBD371
01080          PERFORM P1300-EDIT-CHNG      THRU P1300-EXIT             DTSBD371
01081                                                                   DTSBD371
01082        WHEN ARPT-WITHDRW-88                                       DTSBD371
01083          PERFORM P1400-EDIT-WITHDRW   THRU P1400-EXIT             DTSBD371
01084                                                                   DTSBD371
01085        WHEN ARPT-CLMT-WAGE-88                                     DTSBD371
01086          PERFORM P1500-CLAIMANT-WAGE  THRU P1500-EXIT             DTSBD371
01087                                                                   DTSBD371
01088        WHEN OTHER                                                 DTSBD371
01089           SET LBCM-TRN-NOT-OK-88       TO TRUE                    DTSBD371
01090           MOVE MSG1-INVALID-RPT-TYPE   TO LBCM-TRN-MSG-AREA       DTSBD371
01091      END-EVALUATE.                                                DTSBD371
01092                                                                   DTSBD371
01093 **   IF ARPT-ORIG-88                                              DTSBD371
01094 *        PERFORM P1100-EDIT-ORIG THRU P1100-EXIT                  DTSBD371
01095 *    ELSE                                                         DTSBD371
01096 *    IF ARPT-ESTIM-88                                             DTSBD371
01097 *        PERFORM P1200-EDIT-ESTIM THRU P1200-EXIT                 DTSBD371
01098 *    ELSE                                                         DTSBD371
01099 *    IF ARPT-EMP-AMEND-88                                         DTSBD371
01100 *           OR                                                    DTSBD371
01101 *       ARPT-AUDIT-88                                             DTSBD371
01102 *           OR                                                    DTSBD371
01103 *       ARPT-FLD-SUP-88                                           DTSBD371
01104 *           OR                                                    DTSBD371
01105 *       ARPT-ADMIN-CORR-88                                        DTSBD371
01106 *        PERFORM P1300-EDIT-CHNG THRU P1300-EXIT                  DTSBD371
01107 *    ELSE                                                         DTSBD371
01108 *    IF ARPT-WITHDRW-88                                           DTSBD371
01109 *        PERFORM P1400-EDIT-WITHDRW THRU P1400-EXIT               DTSBD371
01110 *****ELSE                                                         DTSBD371
01111 *****IF ARPT-ORIGEFF-88                                           DTSBD371
01112 *********PERFORM P1500-EDIT-ORIGEFF THRU P1500-EXIT               DTSBD371
01113 *    ELSE                                                         DTSBD371
01114 *        SET LBCM-TRN-NOT-OK-88 TO TRUE                           DTSBD371
01115 **       MOVE MSG1-INVALID-RPT-TYPE TO LBCM-TRN-MSG-AREA.         DTSBD371
01116                                                                   DTSBD371
01117      IF LBCM-TRN-OK-88                                            DTSBD371
01118          PERFORM P1010-EDIT-DUPLICATE THRU P1010-EXIT             DTSBD371
01119      END-IF.                                                      DTSBD371
01120                                                                   DTSBD371
01121      IF ARPT-ESTIM-88                                             DTSBD371
01122      OR ARPT-WITHDRW-88                                           DTSBD371
01123         GO TO P1000-EXIT                                          DTSBD371
01124      END-IF.                                                      DTSBD371
01125                                                                   DTSBD371
01126 *************                                                     DTSBD371
01127 * CHECK WHETHER ANY CLAIMANT WAGE REPORTS ARE ON FILE.            DTSBD371
01128 * IF A CLAIMANT WAGE REPORT WAS ENTERED THE SAME DAY AS AN        DTSBD371
01129 * ORIGINAL REPORT, BYPASS THE OR UNTIL THE NEXT DAY: THE          DTSBD371
01130 * WAGES FROM THE CW NEED TO BE ON FILE IN THE WGH BEFORE          DTSBD371
01131 * THE OR CAN BE PROCESSED CORRECTLY.                              DTSBD371
01132 *************                                                     DTSBD371
01133      IF MQTR-CURR-CLMT-WAGE-88                                    DTSBD371
01134         PERFORM S1200-CHK-FOR-CW         THRU S1200-EXIT          DTSBD371
01135         IF WRK-CW-SAME-DAY-YES-88                                 DTSBD371
01136            DISPLAY 'CW ENTERED SAME DAY ' MRPT-EMP-NO             DTSBD371
01137               '  ' MRPT-BATCH-NO '  ' MRPT-ITEM-NO                DTSBD371
01138            SET LBCM-TRN-NOT-OK-88        TO TRUE                  DTSBD371
01139            MOVE MSG12-CW-SAME-DAY        TO LBCM-TRN-MSG-AREA     DTSBD371
01140            GO TO P1100-EXIT                                       DTSBD371
01141         END-IF                                                    DTSBD371
01142      END-IF.                                                      DTSBD371
01143                                                                   DTSBD371
01144 *************                                                     DTSBD371
01145 * CHECK FOR WAGES FROM THE ORIGINAL REPORT IN THE WTC FILE.       DTSBD371
01146 * THE WAGES ARE ENTERED BY TDEC - UNTIL THEY ARE RECEIVED,        DTSBD371
01147 * THE ORIGINAL RPT CANNOT BE PROCESSED. THE TOTAL AND             DTSBD371
01148 * TAXABLE WAGES FOR THE ORIGINAL RPT MUST BE ADJUSTED FOR         DTSBD371
01149 * WAGES ENTERED ON THE CW.                                        DTSBD371
01150 * FOR EACH WORKER WITH WAGES REPORTED ON BOTH THE CW AND ORIG     DTSBD371
01151 * REPORTS, THE TOTAL AND TAXABLE WAGE AMOUNTS MUST BE DEDCUTED    DTSBD371
01152 * FROM THE TOTAL AND TAXABLE WAGES ON THE ORIGINAL.               DTSBD371
01153 *************                                                     DTSBD371
01154      IF WRK-CW-ON-FILE-NO-88                                      DTSBD371
01155         NEXT SENTENCE                                             DTSBD371
01156      ELSE                                                         DTSBD371
01157         PERFORM S1300-CHECK-WAGES           THRU S1300-EXIT       DTSBD371
01158         IF L424-WGH-WAGES-YES-88                                  DTSBD371
01159            IF L424-WTC-WAGES-NO-88                                DTSBD371
01160               DISPLAY                                             DTSBD371
01161               'BD371 P1100: CW ON FILE - NO ORIG WAGES FOUND '    DTSBD371
01162                  MQTR-EMP-NO                                      DTSBD371
01163               SET LBCM-TRN-NOT-OK-88        TO TRUE               DTSBD371
01164               MOVE MSG11-CLMT-WG-RPT-FOUND  TO LBCM-TRN-MSG-AREA  DTSBD371
01165               GO TO P1100-EXIT                                    DTSBD371
01166            ELSE                                                   DTSBD371
01167               SET WRK-CW-ADJUST-YES-88      TO TRUE               DTSBD371
01168               PERFORM S1400-CALC-WAGE-ADJ   THRU S1400-EXIT       DTSBD371
01169            END-IF                                                 DTSBD371
01170         END-IF                                                    DTSBD371
01171      END-IF.                                                      DTSBD371
01172                                                                   DTSBD371
01173  P1000-EXIT.                                                      DTSBD371
01174      EXIT.                                                        DTSBD371
01175      SKIP3                                                        DTSBD371
01176  P1010-EDIT-DUPLICATE.                                            DTSBD371
01177      MOVE LOW-VALUES TO MPAY-KEY-AREA.                            DTSBD371
01178                                                                   DTSBD371
01179      MOVE MPRF-EMP-NO TO MPAY-EMP-NO.                             DTSBD371
01180                                                                   DTSBD371
01181      SET MPAY-PAY-88 TO TRUE.                                     DTSBD371
01182                                                                   DTSBD371
01183      MOVE ARPT-DOC-NO TO MPAY-DOC-NO.                             DTSBD371
01184                                                                   DTSBD371
01185      MOVE MPAY-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD371
01186                                                                   DTSBD371
01187      PERFORM S910-READ THRU S910-EXIT.                            DTSBD371
01188                                                                   DTSBD371
01189      IF L910-OK-88                                                DTSBD371
01190          SET LBCM-TRN-NOT-OK-88 TO TRUE                           DTSBD371
01191          MOVE MSG8-DUPLICATE-TRAN TO LBCM-TRN-MSG-AREA            DTSBD371
01192          GO TO P1010-EXIT.                                        DTSBD371
01193                                                                   DTSBD371
01194                                                                   DTSBD371
01195      MOVE LOW-VALUES TO MRPT-KEY-AREA.                            DTSBD371
01196                                                                   DTSBD371
01197      MOVE MPRF-EMP-NO TO MRPT-EMP-NO.                             DTSBD371
01198                                                                   DTSBD371
01199      SET MRPT-RPT-88 TO TRUE.                                     DTSBD371
01200                                                                   DTSBD371
01201      MOVE ARPT-YRQ TO MRPT-YRQ.                                   DTSBD371
01202                                                                   DTSBD371
01203      MOVE ARPT-DOC-NO TO MRPT-DOC-NO.                             DTSBD371
01204                                                                   DTSBD371
01205      MOVE MRPT-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD371
01206                                                                   DTSBD371
01207      PERFORM S910-READ THRU S910-EXIT.                            DTSBD371
01208                                                                   DTSBD371
01209      IF L910-OK-88                                                DTSBD371
01210          SET LBCM-TRN-NOT-OK-88 TO TRUE                           DTSBD371
01211          MOVE MSG8-DUPLICATE-TRAN TO LBCM-TRN-MSG-AREA            DTSBD371
01212          GO TO P1010-EXIT.                                        DTSBD371
01213  P1010-EXIT.                                                      DTSBD371
01214      EXIT.                                                        DTSBD371
01215                                                                   DTSBD371
01216  P1100-EDIT-ORIG.                                                 DTSBD371
01217      IF MQTR-CURR-RCVD-88                                         DTSBD371
01218         SET LBCM-TRN-NOT-OK-88 TO TRUE                            DTSBD371
01219         MOVE MSG2-INCONSISTANT-RPT-TYPE TO LBCM-TRN-MSG-AREA      DTSBD371
01220         GO TO P1100-EXIT                                          DTSBD371
01221      END-IF.                                                      DTSBD371
01222                                                                   DTSBD371
01223      IF L516-NOT-LIABLE-88                                        DTSBD371
01224         IF L516-ANN-LIABLE-88                                     DTSBD371
01225            NEXT SENTENCE                                          DTSBD371
01226         ELSE                                                      DTSBD371
01227            IF (ARPT-TOT-WAGE = ZERO                               DTSBD371
01228            AND ARPT-REMIT-AMT = ZERO)                             DTSBD371
01229               SET WRK-0-WAGE-INACT-YES-88   TO TRUE               DTSBD371
01230               GO TO P1100-EXIT                                    DTSBD371
01231            ELSE                                                   DTSBD371
01232               SET LBCM-TRN-NOT-OK-88 TO TRUE                      DTSBD371
01233               MOVE MSG3-NOT-LIABLE TO LBCM-TRN-MSG-AREA           DTSBD371
01234               GO TO P1100-EXIT                                    DTSBD371
01235            END-IF                                                 DTSBD371
01236         END-IF                                                    DTSBD371
01237      END-IF.                                                      DTSBD371
01238                                                                   DTSBD371
01239      IF MPRF-CLASS-RATED-88                                       DTSBD371
01240         IF L516-NO-RATE-88                                        DTSBD371
01241            IF L516-ESTIMATED-RATE-88                              DTSBD371
01242               DISPLAY 'BD371 P1100: ANN RPT W/ESTIMATED RATE '    DTSBD371
01243                  ARPT-EMP-NO '  ' ARPT-YRQ                        DTSBD371
01244            ELSE                                                   DTSBD371
01245               MOVE MSG4-NO-RATE TO LBCM-TRN-MSG-AREA              DTSBD371
01246               SET LBCM-TRN-NOT-OK-88 TO TRUE                      DTSBD371
01247               GO TO P1100-EXIT                                    DTSBD371
01248            END-IF                                                 DTSBD371
01249         END-IF                                                    DTSBD371
01250      END-IF.                                                      DTSBD371
01251                                                                   DTSBD371
01252      PERFORM P1800-EDIT-OVERLAY THRU P1800-EXIT.                  DTSBD371
01253  P1100-EXIT.                                                      DTSBD371
01254      EXIT.                                                        DTSBD371
01255                                                                   DTSBD371
01256  P1200-EDIT-ESTIM.                                                DTSBD371
01257      IF MQTR-CURR-RCVD-88                                         DTSBD371
01258          SET LBCM-TRN-NOT-OK-88 TO TRUE                           DTSBD371
01259          MOVE MSG2-INCONSISTANT-RPT-TYPE TO LBCM-TRN-MSG-AREA     DTSBD371
01260          GO TO P1200-EXIT.                                        DTSBD371
01261                                                                   DTSBD371
01262      IF L516-NOT-LIABLE-88                                        DTSBD371
01263         IF L516-ANN-LIABLE-88                                     DTSBD371
01264            NEXT SENTENCE                                          DTSBD371
01265         ELSE                                                      DTSBD371
01266            SET LBCM-TRN-NOT-OK-88 TO TRUE                         DTSBD371
01267            MOVE MSG3-NOT-LIABLE TO LBCM-TRN-MSG-AREA              DTSBD371
01268            GO TO P1200-EXIT                                       DTSBD371
01269         END-IF                                                    DTSBD371
01270      END-IF.                                                      DTSBD371
01271                                                                   DTSBD371
01272      IF MPRF-CLASS-RATED-88                                       DTSBD371
01273         IF L516-NO-RATE-88                                        DTSBD371
01274            MOVE MSG4-NO-RATE TO LBCM-TRN-MSG-AREA                 DTSBD371
01275            SET LBCM-TRN-NOT-OK-88 TO TRUE                         DTSBD371
01276            GO TO P1200-EXIT                                       DTSBD371
01277         END-IF                                                    DTSBD371
01278      END-IF.                                                      DTSBD371
01279                                                                   DTSBD371
01280      PERFORM P1800-EDIT-OVERLAY THRU P1800-EXIT.                  DTSBD371
01281  P1200-EXIT.                                                      DTSBD371
01282      EXIT.                                                        DTSBD371
01283                                                                   DTSBD371
01284  P1300-EDIT-CHNG.                                                 DTSBD371
01285      IF NOT MQTR-CURR-RCVD-88                                     DTSBD371
01286          SET LBCM-TRN-NOT-OK-88 TO TRUE                           DTSBD371
01287          MOVE MSG2-INCONSISTANT-RPT-TYPE TO LBCM-TRN-MSG-AREA     DTSBD371
01288          GO TO P1300-EXIT.                                        DTSBD371
01289                                                                   DTSBD371
01290 *****************                                                 DTSBD371
01291 * AN AC REPORT MAY BE SUBMITTED FOR AN ANNUAL FILER WHO IS        DTSBD371
01292 * NOT LIABLE.  THE WAGES WILL BE REVERSED AND THE QUARTER         DTSBD371
01293 * STATUS SET TO MQTR-CURR-ORIG-ANN-NL-88.  ONLY IF THE            DTSBD371
01294 * EMPLOYER IS NOT LIABLE IN ALL 4 QUARTERS WILL THE REPORT        DTSBD371
01295 * BE WITHDRAWN.                                                   DTSBD371
01296 *****************                                                 DTSBD371
01297      IF L516-NOT-LIABLE-88                                        DTSBD371
01298         IF L516-ANN-LIABLE-88                                     DTSBD371
01299            NEXT SENTENCE                                          DTSBD371
01300         ELSE                                                      DTSBD371
01301            IF (ARPT-TOT-WAGE = ZERO                               DTSBD371
01302            AND ARPT-REMIT-AMT = ZERO)                             DTSBD371
01303               SET WRK-0-WAGE-INACT-YES-88   TO TRUE               DTSBD371
01304               GO TO P1300-EXIT                                    DTSBD371
01305            ELSE                                                   DTSBD371
01306               SET LBCM-TRN-NOT-OK-88 TO TRUE                      DTSBD371
01307               MOVE MSG3-NOT-LIABLE TO LBCM-TRN-MSG-AREA           DTSBD371
01308               GO TO P1300-EXIT                                    DTSBD371
01309            END-IF                                                 DTSBD371
01310         END-IF                                                    DTSBD371
01311      END-IF.                                                      DTSBD371
01312                                                                   DTSBD371
01313      IF MPRF-CLASS-RATED-88                                       DTSBD371
01314         IF L516-NO-RATE-88                                        DTSBD371
01315            MOVE MSG4-NO-RATE TO LBCM-TRN-MSG-AREA                 DTSBD371
01316            SET LBCM-TRN-NOT-OK-88 TO TRUE                         DTSBD371
01317            GO TO P1300-EXIT                                       DTSBD371
01318         END-IF                                                    DTSBD371
01319      END-IF.                                                      DTSBD371
01320                                                                   DTSBD371
01321      PERFORM P1900-EDIT-CHANGE THRU P1900-EXIT.                   DTSBD371
01322  P1300-EXIT.                                                      DTSBD371
01323      EXIT.                                                        DTSBD371
01324      SKIP3                                                        DTSBD371
01325  P1400-EDIT-WITHDRW.                                              DTSBD371
01326      IF MQTR-CURR-RCVD-88                                         DTSBD371
01327      OR MQTR-CURR-ESTIM-88                                        DTSBD371
01328          NEXT SENTENCE                                            DTSBD371
01329      ELSE                                                         DTSBD371
01330         SET LBCM-TRN-NOT-OK-88 TO TRUE                            DTSBD371
01331         MOVE MSG2-INCONSISTANT-RPT-TYPE TO LBCM-TRN-MSG-AREA      DTSBD371
01332         GO TO P1400-EXIT                                          DTSBD371
01333      END-IF.                                                      DTSBD371
01334                                                                   DTSBD371
01335  P1400-EXIT.                                                      DTSBD371
01336      EXIT.                                                        DTSBD371
01337                                                                   DTSBD371
01338  P1500-CLAIMANT-WAGE.                                             DTSBD371
01339      IF L516-NOT-LIABLE-88                                        DTSBD371
01340         IF L516-ANN-LIABLE-88                                     DTSBD371
01341            NEXT SENTENCE                                          DTSBD371
01342         ELSE                                                      DTSBD371
01343            SET LBCM-TRN-NOT-OK-88        TO TRUE                  DTSBD371
01344            MOVE MSG3-NOT-LIABLE          TO LBCM-TRN-MSG-AREA     DTSBD371
01345            GO TO P1500-EXIT                                       DTSBD371
01346         END-IF                                                    DTSBD371
01347      END-IF.                                                      DTSBD371
01348                                                                   DTSBD371
01349      IF MPRF-CLASS-RATED-88                                       DTSBD371
01350         IF L516-NO-RATE-88                                        DTSBD371
01351            MOVE MSG4-NO-RATE       TO LBCM-TRN-MSG-AREA           DTSBD371
01352            SET LBCM-TRN-NOT-OK-88  TO TRUE                        DTSBD371
01353            GO TO P1500-EXIT                                       DTSBD371
01354         END-IF                                                    DTSBD371
01355      END-IF.                                                      DTSBD371
01356                                                                   DTSBD371
01357      IF (NOT ARPT-1ST-MTH-NO-ENTRY-88)                            DTSBD371
01358      OR (NOT ARPT-2ND-MTH-NO-ENTRY-88)                            DTSBD371
01359      OR (NOT ARPT-3RD-MTH-NO-ENTRY-88)                            DTSBD371
01360          SET LBCM-TRN-NOT-OK-88 TO TRUE                           DTSBD371
01361          MOVE MSG13-CW-EMPL-CNT       TO LBCM-TRN-MSG-AREA        DTSBD371
01362         GO TO P1500-EXIT                                          DTSBD371
01363      END-IF.                                                      DTSBD371
01364                                                                   DTSBD371
01365      IF MQTR-CURR-RCVD-88                                         DTSBD371
01366         PERFORM P1900-EDIT-CHANGE       THRU P1900-EXIT           DTSBD371
01367      ELSE                                                         DTSBD371
01368         PERFORM P1800-EDIT-OVERLAY      THRU P1800-EXIT           DTSBD371
01369      END-IF.                                                      DTSBD371
01370                                                                   DTSBD371
01371  P1500-EXIT.                                                      DTSBD371
01372      EXIT.                                                        DTSBD371
01373                                                                   DTSBD371
01374 *P1500-EDIT-ORIGEFF.                                              DTSBD371
01375 *****IF NOT MQTR-CURR-RCVD-88                                     DTSBD371
01376 *********MOVE TRN-NOT-OK-LIT TO LBCM-TRN-RESULT-IND               DTSBD371
01377 *********MOVE MSG2-INCONSISTANT-RPT-TYPE TO LBCM-TRN-MSG-AREA     DTSBD371
01378 *********GO TO P1500-EXIT.                                        DTSBD371
01379 *P1500-EXIT.                                                      DTSBD371
01380 *****EXIT.                                                        DTSBD371
01381      SKIP3                                                        DTSBD371
01382  P1800-EDIT-OVERLAY.                                              DTSBD371
01383      IF (ARPT-TOT-WAGE < 0)                                       DTSBD371
01384             OR                                                    DTSBD371
01385         (ARPT-TAX-WAGE < 0)                                       DTSBD371
01386             OR                                                    DTSBD371
01387         (ARPT-TAX-WAGE > ARPT-TOT-WAGE)                           DTSBD371
01388             OR                                                    DTSBD371
01389         (ARPT-1ST-MTH-EMPL-CNT < 0)                               DTSBD371
01390             OR                                                    DTSBD371
01391         (ARPT-2ND-MTH-EMPL-CNT < 0)                               DTSBD371
01392             OR                                                    DTSBD371
01393         (ARPT-3RD-MTH-EMPL-CNT < 0)                               DTSBD371
01394          SET LBCM-TRN-NOT-OK-88 TO TRUE                           DTSBD371
01395          MOVE MSG5-NEGATIVE-NUMERIC TO LBCM-TRN-MSG-AREA.         DTSBD371
01396  P1800-EXIT.                                                      DTSBD371
01397      EXIT.                                                        DTSBD371
01398      SKIP3                                                        DTSBD371
01399  P1900-EDIT-CHANGE.                                               DTSBD371
01400      IF (ARPT-TOT-WAGE + MQTR-TOT-WAGE < 0)                       DTSBD371
01401                OR                                                 DTSBD371
01402         (ARPT-TAX-WAGE + MQTR-TAX-WAGE < 0)                       DTSBD371
01403                OR                                                 DTSBD371
01404         (ARPT-TAX-WAGE + MQTR-TAX-WAGE                            DTSBD371
01405            > ARPT-TOT-WAGE + MQTR-TOT-WAGE)                       DTSBD371
01406          SET LBCM-TRN-NOT-OK-88 TO TRUE                           DTSBD371
01407          MOVE MSG5-NEGATIVE-NUMERIC TO LBCM-TRN-MSG-AREA.         DTSBD371
01408  P1900-EXIT.                                                      DTSBD371
01409      EXIT.                                                        DTSBD371
01410      EJECT                                                        DTSBD371
01411  P2000-UPDATE-MQTR.                                               DTSBD371
01412 *&                                                                DTSBD371
01413 *    IF ARPT-EMP-NO = 149318                                      DTSBD371
01414 *        DISPLAY 'DTSBD371 P2000 FIRST ' ARPT-EMP-NO              DTSBD371
01415 *           '  ' ARPT-YRQ.                                        DTSBD371
01416 *    END-IF.                                                      DTSBD371
01417 *&                                                                DTSBD371
01418                                                                   DTSBD371
01419      IF WRK-CW-ADJUST-YES-88                                      DTSBD371
01420         PERFORM S1500-CW-ADJUST     THRU S1500-EXIT               DTSBD371
01421      END-IF.                                                      DTSBD371
01422                                                                   DTSBD371
01423      IF MQTR-INT-CHARGE-MANUAL-88                                 DTSBD371
01424          MOVE MSG6-ID2 TO R907-MSG-ID                             DTSBD371
01425          MOVE MQTR-YRQ TO L004-QTR-5-9                            DTSBD371
01426          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBD371
01427          MOVE L004-SLASH-QTR TO MSG6-YRQ                          DTSBD371
01428          MOVE MSG6-LONG-TEXT TO R907-MSG-TEXT                     DTSBD371
01429          PERFORM S946-R907-WRITE THRU S946-EXIT.                  DTSBD371
01430                                                                   DTSBD371
01431      IF MQTR-PEN-CHARGE-MANUAL-88                                 DTSBD371
01432          MOVE MSG7-ID2 TO R907-MSG-ID                             DTSBD371
01433          MOVE MQTR-YRQ TO L004-QTR-5-9                            DTSBD371
01434          PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBD371
01435          MOVE L004-SLASH-QTR TO MSG7-YRQ                          DTSBD371
01436          MOVE MSG7-LONG-TEXT TO R907-MSG-TEXT                     DTSBD371
01437          PERFORM S946-R907-WRITE THRU S946-EXIT.                  DTSBD371
01438                                                                   DTSBD371
01439      IF MQTR-CURR-ESTIM-88                                        DTSBD371
01440          IF ARPT-ORIG-88                                          DTSBD371
01441              MOVE MSG9-ID2 TO R907-MSG-ID                         DTSBD371
01442              MOVE MQTR-YRQ TO L004-QTR-5-9                        DTSBD371
01443              PERFORM S004-FROM-5 THRU S004-EXIT                   DTSBD371
01444              MOVE L004-SLASH-QTR TO MSG9-YRQ                      DTSBD371
01445              MOVE MSG9-LONG-TEXT TO R907-MSG-TEXT                 DTSBD371
01446              PERFORM S946-R907-WRITE THRU S946-EXIT.              DTSBD371
01447                                                                   DTSBD371
01448      MOVE +0 TO UI-SUB                                            DTSBD371
01449                 SUR-SUB                                           DTSBD371
01450                 INT-SUB                                           DTSBD371
01451                 LATE-PEN-SUB                                      DTSBD371
01452                 NSF-PEN-SUB                                       DTSBD371
01453                 MISC-PEN-SUB.                                     DTSBD371
01454                                                                   DTSBD371
01455      PERFORM P2010-SET-ACCT-SUB THRU P2010-EXIT                   DTSBD371
01456          VARYING MQTR-ACCT-IDX FROM 1 BY 1                        DTSBD371
01457          UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT.                     DTSBD371
01458                                                                   DTSBD371
01459      PERFORM P2020-REVERSE-TOLERANCE THRU P2020-EXIT              DTSBD371
01460          VARYING MQTR-ACCT-IDX FROM 1 BY 1                        DTSBD371
01461          UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT.                     DTSBD371
01462                                                                   DTSBD371
01463 *****IF ARPT-TYPE-ORIGEFF-88                                      DTSBD371
01464 *********PERFORM P2800-ACCT-PEN THRU P2800-EXIT                   DTSBD371
01465 *********PERFORM S2200-CRUNCH-ACCT-DATA THRU S2200-EXIT           DTSBD371
01466 *********GO TO P2000-EXIT.                                        DTSBD371
01467                                                                   DTSBD371
01468      PERFORM P2040-DECR-PURSUED-RPT-CNT THRU P2040-EXIT.          DTSBD371
01469                                                                   DTSBD371
01470      MOVE MQTR-RPT-DUE-DATE TO NEW-RPT-DUE-DATE.                  DTSBD371
01471                                                                   DTSBD371
01472      MOVE MQTR-TAX-DUE-DATE TO NEW-TAX-DUE-DATE.                  DTSBD371
01473                                                                   DTSBD371
01474      PERFORM P2100-DATES THRU P2100-EXIT.                         DTSBD371
01475                                                                   DTSBD371
01476      IF NEW-TAX-DUE-DATE = MQTR-TAX-DUE-DATE                      DTSBD371
01477          NEXT SENTENCE                                            DTSBD371
01478      ELSE                                                         DTSBD371
01479          PERFORM P2030-RECOMPUTE-INT THRU P2030-EXIT.             DTSBD371
01480                                                                   DTSBD371
01481      MOVE NEW-RPT-DUE-DATE TO MQTR-RPT-DUE-DATE.                  DTSBD371
01482                                                                   DTSBD371
01483      MOVE NEW-TAX-DUE-DATE TO MQTR-TAX-DUE-DATE.                  DTSBD371
01484                                                                   DTSBD371
01485      PERFORM P2200-CURR-RPT-TYPE THRU P2200-EXIT.                 DTSBD371
01486                                                                   DTSBD371
01487      PERFORM P2300-RATE THRU P2300-EXIT.                          DTSBD371
01488                                                                   DTSBD371
01489      PERFORM P2400-WAGE-DATA THRU P2400-EXIT.                     DTSBD371
01490                                                                   DTSBD371
01491      PERFORM P2500-EMPL-DATA THRU P2500-EXIT.                     DTSBD371
01492                                                                   DTSBD371
01493      PERFORM P2590-WAGE-RPT-IND THRU P2590-EXIT.                  DTSBD371
01494                                                                   DTSBD371
01495      IF MQTR-CURR-ORIG-88                                         DTSBD371
01496          MOVE -.01 TO MQTR-COLL-PROMPT-DUE-AMT                    DTSBD371
01497          PERFORM S590-ORIG-RPT THRU S590-EXIT.                    DTSBD371
01498                                                                   DTSBD371
01499      MOVE LBCM-CURR-RUN-DATE TO MQTR-CHNG-DATE.                   DTSBD371
01500                                                                   DTSBD371
01501      PERFORM P2600-ACCT-TAX THRU P2600-EXIT.                      DTSBD371
01502                                                                   DTSBD371
01503      PERFORM P2700-ACCT-INT THRU P2700-EXIT.                      DTSBD371
01504                                                                   DTSBD371
01505      PERFORM P2800-ACCT-LATE-PAY-PEN THRU P2800-EXIT.             DTSBD371
01506                                                                   DTSBD371
01507      PERFORM S2200-CRUNCH-ACCT-DATA THRU S2200-EXIT.              DTSBD371
01508                                                                   DTSBD371
01509      PERFORM P2090-INCR-PURSUED-RPT-CNT THRU P2090-EXIT.          DTSBD371
01510                                                                   DTSBD371
01511      IF ARPT-ESTIM-88                                             DTSBD371
01512        IF L516-ANN-SCHED-88                                       DTSBD371
01513          PERFORM P2950-ANNUL-ESTIMATED-LETTER THRU P2950-EXIT     DTSBD371
01514        ELSE                                                       DTSBD371
01515          PERFORM P2900-QTRLY-ESTIMATED-LETTER THRU P2900-EXIT     DTSBD371
01516        END-IF                                                     DTSBD371
01517      END-IF.                                                      DTSBD371
01518                                                                   DTSBD371
01519      IF L516-ANN-SCHED-88                                         DTSBD371
01520         SET MQTR-ANNUAL-YES-88          TO TRUE                   DTSBD371
01521      ELSE                                                         DTSBD371
01522         SET MQTR-ANNUAL-NO-88           TO TRUE                   DTSBD371
01523      END-IF.                                                      DTSBD371
01524                                                                   DTSBD371
01525      SET MQTR-R317-SENT-NO-88  TO TRUE.                           DTSBD371
01526                                                                   DTSBD371
01527      PERFORM S590-QTR-TOL THRU S590-EXIT.                         DTSBD371
01528 *&                                                                DTSBD371
01529 *     IF ARPT-EMP-NO = 149318                                     DTSBD371
01530 *        DISPLAY 'P2000-END ' ARPT-EMP-NO                         DTSBD371
01531 *     END-IF.                                                     DTSBD371
01532 *&                                                                DTSBD371
01533  P2000-EXIT.                                                      DTSBD371
01534      EXIT.                                                        DTSBD371
01535      SKIP3                                                        DTSBD371
01536  P2010-SET-ACCT-SUB.                                              DTSBD371
01537      IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX)                           DTSBD371
01538          SET UI-SUB TO MQTR-ACCT-IDX                              DTSBD371
01539      ELSE                                                         DTSBD371
01540      IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX)                          DTSBD371
01541          SET SUR-SUB TO MQTR-ACCT-IDX                             DTSBD371
01542      ELSE                                                         DTSBD371
01543      IF MQTR-ACCT-INT-88 (MQTR-ACCT-IDX)                          DTSBD371
01544          SET INT-SUB TO MQTR-ACCT-IDX                             DTSBD371
01545      ELSE                                                         DTSBD371
01546      IF MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX)                     DTSBD371
01547          SET LATE-PEN-SUB TO MQTR-ACCT-IDX                        DTSBD371
01548      ELSE                                                         DTSBD371
01549      IF MQTR-ACCT-NSF-PEN-88 (MQTR-ACCT-IDX)                      DTSBD371
01550          SET NSF-PEN-SUB TO MQTR-ACCT-IDX                         DTSBD371
01551      ELSE                                                         DTSBD371
01552      IF MQTR-ACCT-MISC-PEN-88 (MQTR-ACCT-IDX)                     DTSBD371
01553          SET MISC-PEN-SUB TO MQTR-ACCT-IDX.                       DTSBD371
01554  P2010-EXIT.                                                      DTSBD371
01555      EXIT.                                                        DTSBD371
01556      SKIP3                                                        DTSBD371
01557  P2020-REVERSE-TOLERANCE.                                         DTSBD371
01558      IF MQTR-TOLER-AMT (MQTR-ACCT-IDX) = 0                        DTSBD371
01559          GO TO P2020-EXIT.                                        DTSBD371
01560                                                                   DTSBD371
01561      MOVE MQTR-TOLER-AMT (MQTR-ACCT-IDX) TO L541-AMT.             DTSBD371
01562                                                                   DTSBD371
01563      COMPUTE L541-AMT = L541-AMT * -1.                            DTSBD371
01564                                                                   DTSBD371
01565      SET L541-ACCT-SUB TO MQTR-ACCT-IDX.                          DTSBD371
01566                                                                   DTSBD371
01567      MOVE CACT-CAT-TOLER TO L541-CAT-IND.                         DTSBD371
01568                                                                   DTSBD371
01569      PERFORM S541-MODIFY-AMT THRU S541-EXIT.                      DTSBD371
01570  P2020-EXIT.                                                      DTSBD371
01571      EXIT.                                                        DTSBD371
01572      SKIP3                                                        DTSBD371
01573  P2030-RECOMPUTE-INT.                                             DTSBD371
01574      SET L101-WAIVE-INT-NO-88 TO TRUE.                            DTSBD371
01575                                                                   DTSBD371
01576      MOVE NEW-TAX-DUE-DATE TO L101-TAX-DUE-DATE.                  DTSBD371
01577                                                                   DTSBD371
01578      MOVE MQTR-INT-AREA TO L101-INT-AREA.                         DTSBD371
01579                                                                   DTSBD371
01580      MOVE +0 TO WRK-INT-CHARGED-AMT.                              DTSBD371
01581                                                                   DTSBD371
01582      MOVE LOW-VALUES TO MDST-KEY-AREA.                            DTSBD371
01583                                                                   DTSBD371
01584      MOVE MPRF-EMP-NO TO MDST-EMP-NO.                             DTSBD371
01585                                                                   DTSBD371
01586      SET MDST-DST-88 TO TRUE.                                     DTSBD371
01587                                                                   DTSBD371
01588      MOVE MQTR-YRQ TO MDST-YRQ.                                   DTSBD371
01589                                                                   DTSBD371
01590      MOVE MDST-KEY-AREA TO MSKL-KEY-AREA.                         DTSBD371
01591                                                                   DTSBD371
01592      PERFORM S910-START-BROWSE THRU S910-EXIT.                    DTSBD371
01593                                                                   DTSBD371
01594      PERFORM P2031-SCAN-MDST THRU P2031-EXIT                      DTSBD371
01595          UNTIL L910-NO-REC-88.                                    DTSBD371
01596                                                                   DTSBD371
01597      IF MQTR-INT-CHARGE-AUTO-88                                   DTSBD371
01598          PERFORM P2032-CHANGE-INT-CHARGE THRU P2032-EXIT.         DTSBD371
01599  P2030-EXIT.                                                      DTSBD371
01600      EXIT.                                                        DTSBD371
01601      SKIP3                                                        DTSBD371
01602  P2031-SCAN-MDST.                                                 DTSBD371
01603      MOVE MSKL-REC TO MDST-REC.                                   DTSBD371
01604                                                                   DTSBD371
01605      IF MDST-YRQ = MQTR-YRQ                                       DTSBD371
01606          NEXT SENTENCE                                            DTSBD371
01607      ELSE                                                         DTSBD371
01608          SET L910-NO-REC-88 TO TRUE                               DTSBD371
01609          GO TO P2031-EXIT.                                        DTSBD371
01610                                                                   DTSBD371
01611      PERFORM P2031A-SCAN-ACCT THRU P2031A-EXIT                    DTSBD371
01612          VARYING MDST-ACCT-IDX FROM 1 BY 1                        DTSBD371
01613          UNTIL MDST-ACCT-IDX > MDST-ACCT-CNT.                     DTSBD371
01614                                                                   DTSBD371
01615      PERFORM S910-READ-NEXT THRU S910-EXIT.                       DTSBD371
01616  P2031-EXIT.                                                      DTSBD371
01617      EXIT.                                                        DTSBD371
01618      SKIP2                                                        DTSBD371
01619  P2031A-SCAN-ACCT.                                                DTSBD371
01620 **********************************************************        DTSBD371
01621 *  UI TAX ONLY IS SUBJECT TO PENALTY                              DTSBD371
01622 **********************************************************        DTSBD371
01623      IF MDST-ACCT-UI-88 (MDST-ACCT-IDX)                           DTSBD371
01624          NEXT SENTENCE                                            DTSBD371
01625      ELSE                                                         DTSBD371
01626          GO TO P2031A-EXIT.                                       DTSBD371
01627                                                                   DTSBD371
01628      MOVE MDST-AMT (MDST-ACCT-IDX) TO L101-PAID-CHNG.             DTSBD371
01629                                                                   DTSBD371
01630      MOVE MDST-RECEIVED-DATE TO L101-RECEIVED-DATE.               DTSBD371
01631                                                                   DTSBD371
01632      PERFORM S101-PER-MONTH-NO THRU S101-EXIT.                    DTSBD371
01633                                                                   DTSBD371
01634      ADD L101-INT-CHARGE-CHNG TO WRK-INT-CHARGED-AMT.             DTSBD371
01635  P2031A-EXIT.                                                     DTSBD371
01636      EXIT.                                                        DTSBD371
01637      SKIP3                                                        DTSBD371
01638  P2032-CHANGE-INT-CHARGE.                                         DTSBD371
01639      IF (INT-SUB = +0)                                            DTSBD371
01640            AND                                                    DTSBD371
01641         (WRK-INT-CHARGED-AMT = +0)                                DTSBD371
01642          GO TO P2032-EXIT.                                        DTSBD371
01643                                                                   DTSBD371
01644      IF INT-SUB = +0                                              DTSBD371
01645          PERFORM S2100-INIT-ACCT-DATA THRU S2100-EXIT             DTSBD371
01646          MOVE MQTR-ACCT-CNT TO INT-SUB                            DTSBD371
01647          SET MQTR-ACCT-INT-88 (INT-SUB) TO TRUE.                  DTSBD371
01648                                                                   DTSBD371
01649      COMPUTE L541-AMT                                             DTSBD371
01650        = WRK-INT-CHARGED-AMT - MQTR-CHARGED-AMT (INT-SUB).        DTSBD371
01651                                                                   DTSBD371
01652      IF L541-AMT = +0                                             DTSBD371
01653          GO TO P2032-EXIT.                                        DTSBD371
01654                                                                   DTSBD371
01655      MOVE INT-SUB TO L541-ACCT-SUB.                               DTSBD371
01656                                                                   DTSBD371
01657      MOVE CACT-CAT-CHARGED TO L541-CAT-IND.                       DTSBD371
01658                                                                   DTSBD371
01659      PERFORM S541-MODIFY-AMT THRU S541-EXIT.                      DTSBD371
01660                                                                   DTSBD371
01661      IF MQTR-BALANCE-AMT (INT-SUB) < +0                           DTSBD371
01662          MOVE INT-SUB TO ACCT-SUB                                 DTSBD371
01663          PERFORM S3100-DEC-PAID-AMT THRU S3100-EXIT.              DTSBD371
01664                                                                   DTSBD371
01665      IF MQTR-BALANCE-AMT (INT-SUB) < +0                           DTSBD371
01666          MOVE INT-SUB TO ACCT-SUB                                 DTSBD371
01667          PERFORM S3200-DEC-WAIVED-AMT THRU S3200-EXIT.            DTSBD371
01668                                                                   DTSBD371
01669      IF MQTR-BALANCE-AMT (INT-SUB) < +0                           DTSBD371
01670          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD371
01671  P2032-EXIT.                                                      DTSBD371
01672      EXIT.                                                        DTSBD371
01673      SKIP3                                                        DTSBD371
01674 *P2033-CHANGE-PEN-CHARGE.                                         DTSBD371
01675 *****IF (PEN-SUB = +0)                                            DTSBD371
01676 ***********AND                                                    DTSBD371
01677 ********(WRK-PEN-CHARGED-AMT = +0)                                DTSBD371
01678 *********GO TO P2033-EXIT.                                        DTSBD371
01679                                                                   DTSBD371
01680 *****IF PEN-SUB = +0                                              DTSBD371
01681 *********PERFORM S2100-INIT-ACCT-DATA THRU S2100-EXIT             DTSBD371
01682 *********MOVE MQTR-ACCT-CNT TO PEN-SUB                            DTSBD371
01683 *********SET MQTR-ACCT-PEN-88 (PEN-SUB) TO TRUE.                  DTSBD371
01684                                                                   DTSBD371
01685 *****COMPUTE L541-AMT                                             DTSBD371
01686 *******= WRK-PEN-CHARGED-AMT - MQTR-CHARGED-AMT (PEN-SUB).        DTSBD371
01687                                                                   DTSBD371
01688 *****IF L541-AMT = +0                                             DTSBD371
01689 *********GO TO P2033-EXIT.                                        DTSBD371
01690                                                                   DTSBD371
01691 *****MOVE PEN-SUB TO L541-ACCT-SUB.                               DTSBD371
01692 *****MOVE CACT-CAT-CHARGED TO L541-CAT-IND.                       DTSBD371
01693 *****PERFORM S541-MODIFY-AMT THRU S541-EXIT.                      DTSBD371
01694                                                                   DTSBD371
01695 *****IF MQTR-BALANCE-AMT (PEN-SUB) < +0                           DTSBD371
01696 *********MOVE PEN-SUB TO ACCT-SUB                                 DTSBD371
01697 *********PERFORM S3100-DEC-PAID-AMT THRU S3100-EXIT.              DTSBD371
01698                                                                   DTSBD371
01699 *****IF MQTR-BALANCE-AMT (PEN-SUB) < +0                           DTSBD371
01700 *********MOVE PEN-SUB TO ACCT-SUB                                 DTSBD371
01701 *********PERFORM S3200-DEC-WAIVED-AMT THRU S3200-EXIT.            DTSBD371
01702                                                                   DTSBD371
01703 *****IF MQTR-BALANCE-AMT (PEN-SUB) < +0                           DTSBD371
01704 *********PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD371
01705 *P2033-EXIT.                                                      DTSBD371
01706 *****EXIT.                                                        DTSBD371
01707      SKIP3                                                        DTSBD371
01708  P2040-DECR-PURSUED-RPT-CNT.                                      DTSBD371
01709      IF L516-ANN-SCHED-88                                         DTSBD371
01710         MOVE MQTR-YRQ         TO L004-QTR-5-9                     DTSBD371
01711         IF L004-QTR-5-Q = 4                                       DTSBD371
01712            IF MQTR-RPT-IS-PURSUED-88                              DTSBD371
01713               SUBTRACT 1      FROM MPRF-PURSUED-RPT-CNT           DTSBD371
01714            END-IF                                                 DTSBD371
01715         END-IF                                                    DTSBD371
01716      ELSE                                                         DTSBD371
01717         IF MQTR-RPT-IS-PURSUED-88                                 DTSBD371
01718            SUBTRACT 1      FROM MPRF-PURSUED-RPT-CNT              DTSBD371
01719         END-IF                                                    DTSBD371
01720      END-IF.                                                      DTSBD371
01721                                                                   DTSBD371
01722  P2040-EXIT.                                                      DTSBD371
01723      EXIT.                                                        DTSBD371
01724      SKIP3                                                        DTSBD371
01725  P2090-INCR-PURSUED-RPT-CNT.                                      DTSBD371
01726      IF L516-ANN-SCHED-88                                         DTSBD371
01727         MOVE MQTR-YRQ         TO L004-QTR-5-9                     DTSBD371
01728         IF L004-QTR-5-Q = 4                                       DTSBD371
01729            IF MQTR-RPT-IS-PURSUED-88                              DTSBD371
01730               ADD 1           TO MPRF-PURSUED-RPT-CNT             DTSBD371
01731            END-IF                                                 DTSBD371
01732         END-IF                                                    DTSBD371
01733      ELSE                                                         DTSBD371
01734         IF MQTR-RPT-IS-PURSUED-88                                 DTSBD371
01735            ADD 1              TO MPRF-PURSUED-RPT-CNT             DTSBD371
01736         END-IF                                                    DTSBD371
01737      END-IF.                                                      DTSBD371
01738                                                                   DTSBD371
01739  P2090-EXIT.                                                      DTSBD371
01740      EXIT.                                                        DTSBD371
01741      EJECT                                                        DTSBD371
01742  P2100-DATES.                                                     DTSBD371
01743      IF MPRF-CLASS-SELF-INS-88                                    DTSBD371
01744          PERFORM P2110-SELF-INS-DATES THRU P2110-EXIT             DTSBD371
01745      ELSE                                                         DTSBD371
01746          PERFORM P2120-RATED-DATES THRU P2120-EXIT.               DTSBD371
01747  P2100-EXIT.                                                      DTSBD371
01748      EXIT.                                                        DTSBD371
01749      SKIP3                                                        DTSBD371
01750  P2110-SELF-INS-DATES.                                            DTSBD371
01751      IF MQTR-TAX-DUE-DATE-AUTO-88                                 DTSBD371
01752          MOVE L516-DEFAULT-TAX-DUE-DATE TO NEW-TAX-DUE-DATE.      DTSBD371
01753                                                                   DTSBD371
01754      IF MQTR-RPT-DUE-DATE-AUTO-88                                 DTSBD371
01755          MOVE L516-DEFAULT-RPT-DUE-DATE TO NEW-RPT-DUE-DATE.      DTSBD371
01756  P2110-EXIT.                                                      DTSBD371
01757      EXIT.                                                        DTSBD371
01758      SKIP3                                                        DTSBD371
01759  P2120-RATED-DATES.                                               DTSBD371
01760      IF MQTR-TAX-DUE-DATE-AUTO-88                                 DTSBD371
01761          MOVE L516-DEFAULT-TAX-DUE-DATE TO NEW-TAX-DUE-DATE.      DTSBD371
01762                                                                   DTSBD371
01763      IF MQTR-RPT-DUE-DATE-AUTO-88                                 DTSBD371
01764          MOVE L516-DEFAULT-RPT-DUE-DATE TO NEW-RPT-DUE-DATE.      DTSBD371
01765  P2120-EXIT.                                                      DTSBD371
01766      EXIT.                                                        DTSBD371
01767      EJECT                                                        DTSBD371
01768  P2200-CURR-RPT-TYPE.                                             DTSBD371
01769      EVALUATE TRUE                                                DTSBD371
01770        WHEN ARPT-WITHDRW-88                                       DTSBD371
01771           PERFORM P2210-WITHDRW            THRU P2210-EXIT        DTSBD371
01772        WHEN ARPT-ORIG-88                                          DTSBD371
01773           SET MQTR-CURR-ORIG-88            TO TRUE                DTSBD371
01774        WHEN ARPT-EMP-AMEND-88                                     DTSBD371
01775           SET MQTR-CURR-AMEND-88           TO TRUE                DTSBD371
01776        WHEN ARPT-AUDIT-88                                         DTSBD371
01777           SET MQTR-CURR-AUDIT-88           TO TRUE                DTSBD371
01778        WHEN ARPT-FLD-SUP-88                                       DTSBD371
01779           SET MQTR-CURR-FIELD-88           TO TRUE                DTSBD371
01780        WHEN ARPT-ADMIN-CORR-88                                    DTSBD371
01781           SET MQTR-CURR-ADMIN-88           TO TRUE                DTSBD371
01782        WHEN ARPT-ESTIM-88                                         DTSBD371
01783           SET MQTR-CURR-ESTIM-88           TO TRUE                DTSBD371
01784        WHEN ARPT-CLMT-WAGE-88                                     DTSBD371
01785           IF NOT MQTR-CURR-RCVD-88                                DTSBD371
01786              SET MQTR-CURR-CLMT-WAGE-88    TO TRUE                DTSBD371
01787           END-IF                                                  DTSBD371
01788        WHEN OTHER                                                 DTSBD371
01789          PERFORM S999-ABEND                THRU S999-EXIT         DTSBD371
01790      END-EVALUATE.                                                DTSBD371
01791                                                                   DTSBD371
01792 *****************                                                 DTSBD371
01793 * AN AC REPORT MAY BE SUBMITTED FOR AN ANNUAL FILER WHO IS        DTSBD371
01794 * NOT LIABLE.  THE WAGES WILL BE REVERSED AND THE QUARTER         DTSBD371
01795 * STATUS SET TO MQTR-CURR-ORIG-ANN-NL-88.  ONLY IF THE            DTSBD371
01796 * EMPLOYER IS NOT LIABLE IN ALL 4 QUARTERS WILL THE REPORT        DTSBD371
01797 * BE WITHDRAWN.                                                   DTSBD371
01798 *****************                                                 DTSBD371
01799      IF L516-NOT-LIABLE-88                                        DTSBD371
01800      AND L516-ANN-LIABLE-88                                       DTSBD371
01801         SET MQTR-CURR-ORIG-ANN-NL-88   TO TRUE                    DTSBD371
01802      END-IF.                                                      DTSBD371
01803                                                                   DTSBD371
01804 **   IF ARPT-WITHDRW-88                                           DTSBD371
01805 *        PERFORM P2210-WITHDRW THRU P2210-EXIT                    DTSBD371
01806 *    ELSE                                                         DTSBD371
01807 *        IF ARPT-ORIG-88                                          DTSBD371
01808 *            SET MQTR-CURR-ORIG-88 TO TRUE                        DTSBD371
01809 *        ELSE                                                     DTSBD371
01810 *        IF ARPT-EMP-AMEND-88                                     DTSBD371
01811 *            SET MQTR-CURR-AMEND-88 TO TRUE                       DTSBD371
01812 *        ELSE                                                     DTSBD371
01813 *        IF ARPT-AUDIT-88                                         DTSBD371
01814 *            SET MQTR-CURR-AUDIT-88 TO TRUE                       DTSBD371
01815 *        ELSE                                                     DTSBD371
01816 *        IF ARPT-FLD-SUP-88                                       DTSBD371
01817 *            SET MQTR-CURR-FIELD-88 TO TRUE                       DTSBD371
01818 *        ELSE                                                     DTSBD371
01819 *        IF ARPT-ADMIN-CORR-88                                    DTSBD371
01820 *            SET MQTR-CURR-ADMIN-88 TO TRUE                       DTSBD371
01821 *        ELSE                                                     DTSBD371
01822 *        IF ARPT-ESTIM-88                                         DTSBD371
01823 *            SET MQTR-CURR-ESTIM-88 TO TRUE                       DTSBD371
01824 *        ELSE                                                     DTSBD371
01825 **           PERFORM S999-ABEND THRU S999-EXIT.                   DTSBD371
01826                                                                   DTSBD371
01827      MOVE MQTR-PURSUED-RPT-IND TO WRK-PURSUED-RPT-IND.            DTSBD371
01828                                                                   DTSBD371
01829      IF (MPRF-NOT-WRITTEN-OFF-88)                                 DTSBD371
01830            AND                                                    DTSBD371
01831         (MQTR-CURR-DELINQ-88 OR MQTR-CURR-ESTIM-88)               DTSBD371
01832            AND                                                    DTSBD371
01833         (MQTR-YRQ NOT < LBCM-FIRST-PURSUED-RPT-YRQ)               DTSBD371
01834          SET MQTR-RPT-IS-PURSUED-88 TO TRUE                       DTSBD371
01835      ELSE                                                         DTSBD371
01836          SET MQTR-RPT-NOT-PURSUED-88 TO TRUE.                     DTSBD371
01837                                                                   DTSBD371
01838      IF WRK-PURSUED-RPT-IND = 'N'                                 DTSBD371
01839          IF MQTR-RPT-IS-PURSUED-88                                DTSBD371
01840              PERFORM S590-QTR-PURSUED THRU S590-EXIT.             DTSBD371
01841  P2200-EXIT.                                                      DTSBD371
01842      EXIT.                                                        DTSBD371
01843      SKIP3                                                        DTSBD371
01844  P2210-WITHDRW.                                                   DTSBD371
01845      IF NOT L516-LIABLE-88                                        DTSBD371
01846          SET MQTR-CURR-NOT-LIABLE-88 TO TRUE                      DTSBD371
01847          GO TO P2210-EXIT.                                        DTSBD371
01848                                                                   DTSBD371
01849                                                                   DTSBD371
01850      IF MQTR-RPT-DUE-DATE-MANUAL-88                               DTSBD371
01851          IF MQTR-RPT-DUE-DATE = L516-DEFAULT-RPT-DUE-DATE         DTSBD371
01852              NEXT SENTENCE                                        DTSBD371
01853          ELSE                                                     DTSBD371
01854              IF MQTR-RPT-DUE-DATE > LBCM-CURR-RUN-DATE            DTSBD371
01855                  SET MQTR-CURR-NOT-DUE-88 TO TRUE                 DTSBD371
01856                  MOVE MQTR-RPT-DUE-DATE TO WRK-RPT-DUE-DATE       DTSBD371
01857                  PERFORM S1000-GENERATE-LTE-TCK THRU S1000-EXIT   DTSBD371
01858                  GO TO P2210-EXIT                                 DTSBD371
01859              ELSE                                                 DTSBD371
01860                  SET MQTR-CURR-DELINQ-88 TO TRUE                  DTSBD371
01861                  GO TO P2210-EXIT.                                DTSBD371
01862                                                                   DTSBD371
01863                                                                   DTSBD371
01864      MOVE MQTR-YRQ TO L004-QTR-5-9.                               DTSBD371
01865                                                                   DTSBD371
01866      PERFORM S004-FROM-5 THRU S004-EXIT.                          DTSBD371
01867                                                                   DTSBD371
01868      IF MQTR-RPT-DUE-DATE = L004-QTR-DEFAULT-DUE-DATE             DTSBD371
01869          IF MQTR-YRQ > LBCM-LAST-UC30-DEL-MAIL-YRQ                DTSBD371
01870              SET MQTR-CURR-NOT-DUE-88 TO TRUE                     DTSBD371
01871              GO TO P2210-EXIT                                     DTSBD371
01872          ELSE                                                     DTSBD371
01873              SET MQTR-CURR-DELINQ-88 TO TRUE                      DTSBD371
01874              GO TO P2210-EXIT.                                    DTSBD371
01875                                                                   DTSBD371
01876      IF MQTR-RPT-DUE-DATE > LBCM-CURR-RUN-DATE                    DTSBD371
01877          SET MQTR-CURR-NOT-DUE-88 TO TRUE                         DTSBD371
01878          MOVE MQTR-RPT-DUE-DATE TO WRK-RPT-DUE-DATE               DTSBD371
01879          PERFORM S1000-GENERATE-LTE-TCK THRU S1000-EXIT           DTSBD371
01880          GO TO P2210-EXIT                                         DTSBD371
01881      ELSE                                                         DTSBD371
01882          SET MQTR-CURR-DELINQ-88 TO TRUE                          DTSBD371
01883          GO TO P2210-EXIT.                                        DTSBD371
01884  P2210-EXIT.                                                      DTSBD371
01885      EXIT.                                                        DTSBD371
01886      EJECT                                                        DTSBD371
01887  P2300-RATE.                                                      DTSBD371
01888      IF MPRF-CLASS-SELF-INS-88                                    DTSBD371
01889          SET MQTR-NO-UI-RATE-88 TO TRUE                           DTSBD371
01890      ELSE                                                         DTSBD371
01891          MOVE L516-UI-RATE TO MQTR-UI-RATE.                       DTSBD371
01892  P2300-EXIT.                                                      DTSBD371
01893      EXIT.                                                        DTSBD371
01894      EJECT                                                        DTSBD371
01895  P2400-WAGE-DATA.                                                 DTSBD371
01896 ************                                                      DTSBD371
01897 *  IF A CLAIMANT WAGE REPORT IS ALREADY ON FILE WHEN AN           DTSBD371
01898 *  ORIGINAL REPORT IS BEING PROCESSED, TREAT THE ORIGINAL         DTSBD371
01899 *  AS AN AMENDMENT, AND ADJUST THE TOTAL AND TAXABLE WAGES        DTSBD371
01900 *  BASED ON THE AMOUNTS ALREADY REPORTED.                         DTSBD371
01901 ************                                                      DTSBD371
01902      PERFORM P2410-TOT-WAGE THRU P2410-EXIT.                      DTSBD371
01903                                                                   DTSBD371
01904      PERFORM P2420-TAX-WAGE THRU P2420-EXIT.                      DTSBD371
01905                                                                   DTSBD371
01906      PERFORM P2430-EXCESS-WAGE THRU P2430-EXIT.                   DTSBD371
01907                                                                   DTSBD371
01908      IF  (MQTR-TOT-WAGE = PRE-UPDATE-TOT-WAGE)                    DTSBD371
01909      AND (MQTR-TAX-WAGE = PRE-UPDATE-TAX-WAGE)                    DTSBD371
01910         IF ARPT-ORIG-88                                           DTSBD371
01911            MOVE LBCM-CURR-RUN-DATE TO MQTR-WAGE-CHNG-DATE         DTSBD371
01912         ELSE                                                      DTSBD371
01913            IF MQTR-WAGE-CHNG-DATE = 0                             DTSBD371
01914               MOVE LBCM-CURR-RUN-DATE TO MQTR-WAGE-CHNG-DATE      DTSBD371
01915            END-IF                                                 DTSBD371
01916         END-IF                                                    DTSBD371
01917      ELSE                                                         DTSBD371
01918         MOVE LBCM-CURR-RUN-DATE TO MQTR-WAGE-CHNG-DATE            DTSBD371
01919      END-IF.                                                      DTSBD371
01920                                                                   DTSBD371
01921      IF PRE-UPDATE-TOT-WAGE = MQTR-TOT-WAGE                       DTSBD371
01922          NEXT SENTENCE                                            DTSBD371
01923      ELSE                                                         DTSBD371
01924          MOVE MQTR-YRQ TO L549-DELTA-YRQ                          DTSBD371
01925          MOVE CACT-ACCT-WAGE TO L549-DELTA-ACCT-IND               DTSBD371
01926          MOVE CACT-CAT-TOT-WAGE TO L549-DELTA-CAT-IND             DTSBD371
01927          COMPUTE L549-DELTA-AMT                                   DTSBD371
01928            = MQTR-TOT-WAGE - PRE-UPDATE-TOT-WAGE                  DTSBD371
01929          PERFORM S549-DELTA THRU S549-EXIT                        DTSBD371
01930 *&                                                                DTSBD371
01931 *        DISPLAY 'P24 TOT WG ' ARPT-EMP-NO '  ' ARPT-YRQ          DTSBD371
01932 *           '  ' ARPT-BATCH-NO ' ' ARPT-ITEM-NO                   DTSBD371
01933 *           '  ' ARPT-RPT-TYPE                                    DTSBD371
01934 *&                                                                DTSBD371
01935      END-IF.                                                      DTSBD371
01936                                                                   DTSBD371
01937      IF PRE-UPDATE-TAX-WAGE = MQTR-TAX-WAGE                       DTSBD371
01938          NEXT SENTENCE                                            DTSBD371
01939      ELSE                                                         DTSBD371
01940          MOVE MQTR-YRQ TO L549-DELTA-YRQ                          DTSBD371
01941          MOVE CACT-ACCT-WAGE TO L549-DELTA-ACCT-IND               DTSBD371
01942          MOVE CACT-CAT-TAX-WAGE TO L549-DELTA-CAT-IND             DTSBD371
01943          COMPUTE L549-DELTA-AMT                                   DTSBD371
01944            = MQTR-TAX-WAGE - PRE-UPDATE-TAX-WAGE                  DTSBD371
01945          PERFORM S549-DELTA THRU S549-EXIT                        DTSBD371
01946 *&                                                                DTSBD371
01947 *        DISPLAY 'P24 TOT WG ' ARPT-EMP-NO '  ' ARPT-YRQ          DTSBD371
01948 *           '  ' ARPT-BATCH-NO ' ' ARPT-ITEM-NO                   DTSBD371
01949 *           '  ' ARPT-RPT-TYPE                                    DTSBD371
01950 *&                                                                DTSBD371
01951      END-IF.                                                      DTSBD371
01952                                                                   DTSBD371
01953  P2400-EXIT.                                                      DTSBD371
01954      EXIT.                                                        DTSBD371
01955      SKIP3                                                        DTSBD371
01956  P2410-TOT-WAGE.                                                  DTSBD371
01957      IF ARPT-WITHDRW-88                                           DTSBD371
01958          MOVE +0 TO MQTR-TOT-WAGE                                 DTSBD371
01959          GO TO P2410-EXIT.                                        DTSBD371
01960                                                                   DTSBD371
01961      EVALUATE TRUE                                                DTSBD371
01962        WHEN ARPT-ORIG-88                                          DTSBD371
01963          IF WRK-CW-ON-FILE-YES-88                                 DTSBD371
01964             COMPUTE MQTR-TOT-WAGE                                 DTSBD371
01965                = MQTR-TOT-WAGE + ARPT-TOT-WAGE                    DTSBD371
01966          ELSE                                                     DTSBD371
01967             MOVE ARPT-TOT-WAGE TO MQTR-TOT-WAGE                   DTSBD371
01968          END-IF                                                   DTSBD371
01969                                                                   DTSBD371
01970        WHEN ARPT-ESTIM-88                                         DTSBD371
01971           MOVE ARPT-TOT-WAGE TO MQTR-TOT-WAGE                     DTSBD371
01972                                                                   DTSBD371
01973        WHEN OTHER                                                 DTSBD371
01974          COMPUTE MQTR-TOT-WAGE                                    DTSBD371
01975            = MQTR-TOT-WAGE + ARPT-TOT-WAGE                        DTSBD371
01976      END-EVALUATE.                                                DTSBD371
01977                                                                   DTSBD371
01978  P2410-EXIT.                                                      DTSBD371
01979      EXIT.                                                        DTSBD371
01980      SKIP3                                                        DTSBD371
01981  P2420-TAX-WAGE.                                                  DTSBD371
01982      IF MPRF-CLASS-SELF-INS-88                                    DTSBD371
01983          MOVE +0 TO MQTR-TAX-WAGE                                 DTSBD371
01984          GO TO P2420-EXIT.                                        DTSBD371
01985                                                                   DTSBD371
01986      IF ARPT-WITHDRW-88                                           DTSBD371
01987          MOVE +0 TO MQTR-TAX-WAGE                                 DTSBD371
01988          GO TO P2420-EXIT.                                        DTSBD371
01989                                                                   DTSBD371
01990      EVALUATE TRUE                                                DTSBD371
01991        WHEN ARPT-ORIG-88                                          DTSBD371
01992           IF WRK-CW-ON-FILE-YES-88                                DTSBD371
01993              COMPUTE MQTR-TAX-WAGE                                DTSBD371
01994                = MQTR-TAX-WAGE + ARPT-TAX-WAGE                    DTSBD371
01995            ELSE                                                   DTSBD371
01996               MOVE ARPT-TAX-WAGE TO MQTR-TAX-WAGE                 DTSBD371
01997            END-IF                                                 DTSBD371
01998                                                                   DTSBD371
01999        WHEN ARPT-ESTIM-88                                         DTSBD371
02000           MOVE ARPT-TAX-WAGE TO MQTR-TAX-WAGE                     DTSBD371
02001                                                                   DTSBD371
02002        WHEN OTHER                                                 DTSBD371
02003          COMPUTE MQTR-TAX-WAGE                                    DTSBD371
02004            = MQTR-TAX-WAGE + ARPT-TAX-WAGE                        DTSBD371
02005      END-EVALUATE.                                                DTSBD371
02006                                                                   DTSBD371
02007 *    IF ARPT-ORIG-88 OR ARPT-ESTIM-88                             DTSBD371
02008 *        MOVE ARPT-TAX-WAGE TO MQTR-TAX-WAGE                      DTSBD371
02009 *    ELSE                                                         DTSBD371
02010 *        COMPUTE MQTR-TAX-WAGE                                    DTSBD371
02011 *          = MQTR-TAX-WAGE + ARPT-TAX-WAGE.                       DTSBD371
02012  P2420-EXIT.                                                      DTSBD371
02013      EXIT.                                                        DTSBD371
02014      SKIP3                                                        DTSBD371
02015  P2430-EXCESS-WAGE.                                               DTSBD371
02016      IF MPRF-CLASS-SELF-INS-88                                    DTSBD371
02017          MOVE +0 TO MQTR-EXCESS-WAGE                              DTSBD371
02018          GO TO P2430-EXIT.                                        DTSBD371
02019                                                                   DTSBD371
02020      COMPUTE MQTR-EXCESS-WAGE = MQTR-TOT-WAGE - MQTR-TAX-WAGE.    DTSBD371
02021  P2430-EXIT.                                                      DTSBD371
02022      EXIT.                                                        DTSBD371
02023      EJECT                                                        DTSBD371
02024  P2500-EMPL-DATA.                                                 DTSBD371
02025      MOVE MQTR-1ST-MTH-EMPL-CNT TO WRK-1ST-MTH-EMPL-CNT.          DTSBD371
02026                                                                   DTSBD371
02027      MOVE MQTR-2ND-MTH-EMPL-CNT TO WRK-2ND-MTH-EMPL-CNT.          DTSBD371
02028                                                                   DTSBD371
02029      MOVE MQTR-3RD-MTH-EMPL-CNT TO WRK-3RD-MTH-EMPL-CNT.          DTSBD371
02030                                                                   DTSBD371
02031      IF ARPT-WITHDRW-88                                           DTSBD371
02032          PERFORM P2510-TYPE-WITHDRW THRU P2510-EXIT               DTSBD371
02033      ELSE                                                         DTSBD371
02034      IF ARPT-ORIG-88                                              DTSBD371
02035          PERFORM P2520-TYPE-ORIG THRU P2520-EXIT.                 DTSBD371
02036                                                                   DTSBD371
02037      IF (MQTR-1ST-MTH-EMPL-CNT = WRK-1ST-MTH-EMPL-CNT)            DTSBD371
02038              AND                                                  DTSBD371
02039         (MQTR-2ND-MTH-EMPL-CNT = WRK-2ND-MTH-EMPL-CNT)            DTSBD371
02040              AND                                                  DTSBD371
02041         (MQTR-3RD-MTH-EMPL-CNT = WRK-3RD-MTH-EMPL-CNT)            DTSBD371
02042          NEXT SENTENCE                                            DTSBD371
02043      ELSE                                                         DTSBD371
02044          MOVE LBCM-CURR-RUN-DATE TO MQTR-EMPL-CNT-CHNG-DATE.      DTSBD371
02045  P2500-EXIT.                                                      DTSBD371
02046      EXIT.                                                        DTSBD371
02047      SKIP3                                                        DTSBD371
02048  P2510-TYPE-WITHDRW.                                              DTSBD371
02049      SET MQTR-1ST-MTH-NO-ENTRY-88 TO TRUE.                        DTSBD371
02050                                                                   DTSBD371
02051      SET MQTR-2ND-MTH-NO-ENTRY-88 TO TRUE.                        DTSBD371
02052                                                                   DTSBD371
02053      SET MQTR-3RD-MTH-NO-ENTRY-88 TO TRUE.                        DTSBD371
02054  P2510-EXIT.                                                      DTSBD371
02055      EXIT.                                                        DTSBD371
02056      SKIP3                                                        DTSBD371
02057  P2520-TYPE-ORIG.                                                 DTSBD371
02058      MOVE ARPT-1ST-MTH-EMPL-CNT TO MQTR-1ST-MTH-EMPL-CNT.         DTSBD371
02059                                                                   DTSBD371
02060      MOVE ARPT-2ND-MTH-EMPL-CNT TO MQTR-2ND-MTH-EMPL-CNT.         DTSBD371
02061                                                                   DTSBD371
02062      MOVE ARPT-3RD-MTH-EMPL-CNT TO MQTR-3RD-MTH-EMPL-CNT.         DTSBD371
02063                                                                   DTSBD371
02064 *****IF MPRF-OWN-CD = '2 '                                        DTSBD371
02065 *********GO TO P2520-EXIT.                                        DTSBD371
02066                                                                   DTSBD371
02067      IF MQTR-TOT-WAGE > +0                                        DTSBD371
02068          NEXT SENTENCE                                            DTSBD371
02069      ELSE                                                         DTSBD371
02070          GO TO P2520-EXIT.                                        DTSBD371
02071                                                                   DTSBD371
02072      IF ((MQTR-1ST-MTH-NO-ENTRY-88)                               DTSBD371
02073             AND                                                   DTSBD371
02074         (MQTR-2ND-MTH-NO-ENTRY-88)                                DTSBD371
02075             AND                                                   DTSBD371
02076         (MQTR-3RD-MTH-NO-ENTRY-88))                               DTSBD371
02077                  OR                                               DTSBD371
02078         ((MQTR-1ST-MTH-EMPL-CNT = +0)                             DTSBD371
02079              AND                                                  DTSBD371
02080          (MQTR-2ND-MTH-EMPL-CNT = +0)                             DTSBD371
02081              AND                                                  DTSBD371
02082          (MQTR-3RD-MTH-EMPL-CNT = +0))                            DTSBD371
02083          NEXT SENTENCE                                            DTSBD371
02084      ELSE                                                         DTSBD371
02085          GO TO P2520-EXIT                                         DTSBD371
02086      END-IF.                                                      DTSBD371
02087                                                                   DTSBD371
02088      IF L516-ANN-SCHED-88                                         DTSBD371
02089         MOVE MQTR-YRQ         TO L004-QTR-5-9                     DTSBD371
02090         IF L004-QTR-5-Q < 4                                       DTSBD371
02091            GO TO P2520-EXIT                                       DTSBD371
02092         END-IF                                                    DTSBD371
02093      END-IF.                                                      DTSBD371
02094                                                                   DTSBD371
02095      MOVE MPRF-EMP-NO TO R726-EMP-NO.                             DTSBD371
02096                                                                   DTSBD371
02097      MOVE MQTR-YRQ TO R726-YRQ.                                   DTSBD371
02098                                                                   DTSBD371
02099      MOVE LBCM-CURR-MAIL-DATE TO R726-MAIL-DATE.                  DTSBD371
02100                                                                   DTSBD371
02101      SET L111-LOOKUP-TAD-88 TO TRUE.                              DTSBD371
02102                                                                   DTSBD371
02103      SET L111-ID-NO-TAD-MAIL-88 TO TRUE.                          DTSBD371
02104                                                                   DTSBD371
02105      PERFORM S111-LOOKUP-ADDR THRU S111-EXIT.                     DTSBD371
02106                                                                   DTSBD371
02107      IF L111-ADDR-FOUND-88                                        DTSBD371
02108          MOVE L111-ADDR-TYPE TO L112-ADDR-TYPE                    DTSBD371
02109          SET L112-ANCHOR-LAST-88 TO TRUE                          DTSBD371
02110          MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME              DTSBD371
02111          MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA          DTSBD371
02112          PERFORM S112-FORMAT-ADDR THRU S112-EXIT                  DTSBD371
02113      ELSE                                                         DTSBD371
02114          MOVE ALL '?' TO L112-ADDRESS                             DTSBD371
02115                          L112-MAILING-ADDRESS.                    DTSBD371
02116                                                                   DTSBD371
02117      MOVE L112-MAILING-ADDRESS TO R726-FMT-ADDR.                  DTSBD371
02118                                                                   DTSBD371
02119      MOVE L112-ZIP TO R726-ZIP.                                   DTSBD371
02120                                                                   DTSBD371
02121      MOVE L112-ADVANCED-BARCODE TO R726-ADVANCED-BARCODE.         DTSBD371
02122                                                                   DTSBD371
02123      PERFORM S946-R726-WRITE THRU S946-EXIT.                      DTSBD371
02124  P2520-EXIT.                                                      DTSBD371
02125      EXIT.                                                        DTSBD371
02126      EJECT                                                        DTSBD371
02127  P2590-WAGE-RPT-IND.                                              DTSBD371
02128 ** MODIFIED FOR NEW MEANING OF WAGE-RPT-IND:                      DTSBD371
02129 ** SPECIFIES WHETHER WAGES WERE SUBMITTED ON MAG MEDIA.           DTSBD371
02130      MOVE ARPT-WAGE-RPT-IND TO    MQTR-WAGE-RPT-IND.              DTSBD371
02131                                                                   DTSBD371
02132 *    IF ARPT-WAGE-RPT-YES-88                                      DTSBD371
02133 *        SET MQTR-WAGE-RPT-YES-88 TO TRUE                         DTSBD371
02134 *    ELSE                                                         DTSBD371
02135 *    IF ARPT-WAGE-RPT-NO-88                                       DTSBD371
02136 *        MOVE MQTR-YRQ TO L004-QTR-5-9                            DTSBD371
02137 *        PERFORM S004-FROM-5 THRU S004-EXIT                       DTSBD371
02138 *        MOVE L004-SLASH-QTR TO EVL1-SLASH-QTR                    DTSBD371
02139 *        MOVE EVL1-TEXT TO EVL-TEXT                               DTSBD371
02140 *        PERFORM S4000-WRITE-MEVL THRU S4000-EXIT                 DTSBD371
02141 *        SET MQTR-WAGE-RPT-NO-88 TO TRUE.                         DTSBD371
02142  P2590-EXIT.                                                      DTSBD371
02143      EXIT.                                                        DTSBD371
02144      EJECT                                                        DTSBD371
02145  P2600-ACCT-TAX.                                                  DTSBD371
02146      MOVE MPRF-EMP-CLASS TO L109-EMP-CLASS.                       DTSBD371
02147                                                                   DTSBD371
02148      MOVE MQTR-YRQ TO L109-YRQ.                                   DTSBD371
02149      SET L109-CMND-INPUT-QTR-88  TO TRUE.                         DTSBD371
02150                                                                   DTSBD371
02151      PERFORM S109-SUR-RATE THRU S109-EXIT.                        DTSBD371
02152                                                                   DTSBD371
02153      IF MPRF-CLASS-SELF-INS-88                                    DTSBD371
02154          NEXT SENTENCE                                            DTSBD371
02155      ELSE                                                         DTSBD371
02156          COMPUTE WRK-UI-CHARGED-AMT ROUNDED                       DTSBD371
02157            = MQTR-TAX-WAGE * MQTR-UI-RATE                         DTSBD371
02158          COMPUTE WRK-SUR-CHARGED-AMT ROUNDED                      DTSBD371
02159            = MQTR-TAX-WAGE * L109-SUR-RATE                        DTSBD371
02160      END-IF.                                                      DTSBD371
02161 *&                                                                DTSBD371
02162 *    MOVE MQTR-TAX-WAGE TO AMT-DISP1.                             DTSBD371
02163 *    MOVE L109-SUR-RATE TO AMT-DISP-RATE1.                        DTSBD371
02164 *    MOVE WRK-SUR-CHARGED-AMT TO AMT-DISP2.                       DTSBD371
02165 *                                                                 DTSBD371
02166 *    DISPLAY 'BD371 P2600 ' MPRF-EMP-NO ' WAGE ' AMT-DISP1        DTSBD371
02167 *       ' RATE ' AMT-DISP-RATE1 '  CHG ' AMT-DISP2.               DTSBD371
02168 *&                                                                DTSBD371
02169                                                                   DTSBD371
02170 ***  PERFORM P2610-ADJUST-TAX-CHARGE THRU P2610-EXIT.             DTSBD371
02171                                                                   DTSBD371
02172      PERFORM P2620-UI-CHARGED THRU P2620-EXIT.                    DTSBD371
02173                                                                   DTSBD371
02174      PERFORM P2640-SUR-CHARGED THRU P2640-EXIT.                   DTSBD371
02175                                                                   DTSBD371
02176  P2600-EXIT.                                                      DTSBD371
02177      EXIT.                                                        DTSBD371
02178      SKIP3                                                        DTSBD371
02179 *P2610-ADJUST-TAX-CHARGE.                                         DTSBD371
02180 *    IF MPRF-CLASS-SELF-INS-88                                    DTSBD371
02181 *        GO TO P2610-EXIT.                                        DTSBD371
02182 *                                                                 DTSBD371
02183 *    COMPUTE TAX-RATE                                             DTSBD371
02184 *      = MQTR-UI-RATE + L109-SUR-RATE.                            DTSBD371
02185 *                                                                 DTSBD371
02186 *&                                                                DTSBD371
02187 *    MOVE TAX-RATE TO AMT-DISP-RATE2.                             DTSBD371
02188 *    DISPLAY 'BD371 P2610 TAX RATE ' AMT-DISP-RATE2.              DTSBD371
02189 */&                                                               DTSBD371
02190 *    COMPUTE WRK-TAX-CHRG-DIFF-AMT ROUNDED                        DTSBD371
02191 *      = (MQTR-TAX-WAGE * TAX-RATE).                              DTSBD371
02192 *                                                                 DTSBD371
02193 *&                                                                DTSBD371
02194 *    MOVE WRK-TAX-CHRG-DIFF-AMT TO AMT-DISP1.                     DTSBD371
02195 *    DISPLAY 'BD371 P2610 DIFF ' AMT-DISP1.                       DTSBD371
02196 */&                                                               DTSBD371
02197 *    COMPUTE WRK-TAX-CHRG-DIFF-AMT                                DTSBD371
02198 *      = WRK-TAX-CHRG-DIFF-AMT                                    DTSBD371
02199 *         - (WRK-UI-CHARGED-AMT + WRK-SUR-CHARGED-AMT).           DTSBD371
02200 *                                                                 DTSBD371
02201 *&                                                                DTSBD371
02202 *    MOVE WRK-TAX-CHRG-DIFF-AMT TO AMT-DISP1.                     DTSBD371
02203 *    DISPLAY 'BD371 P2610 DIFF ' AMT-DISP1.                       DTSBD371
02204 */&                                                               DTSBD371
02205 *    IF WRK-TAX-CHRG-DIFF-AMT = +0                                DTSBD371
02206 *        GO TO P2610-EXIT.                                        DTSBD371
02207 *                                                                 DTSBD371
02208 *    IF WRK-SUR-CHARGED-AMT > +0                                  DTSBD371
02209 *        IF (WRK-SUR-CHARGED-AMT + WRK-TAX-CHRG-DIFF-AMT) > +0    DTSBD371
02210 *            ADD WRK-TAX-CHRG-DIFF-AMT TO WRK-SUR-CHARGED-AMT     DTSBD371
02211 *&                                                                DTSBD371
02212 *    MOVE WRK-SUR-CHARGED-AMT   TO AMT-DISP1                      DTSBD371
02213 *    DISPLAY 'BD371 P2610 SUR ' AMT-DISP1                         DTSBD371
02214 */&                                                               DTSBD371
02215 *            GO TO P2610-EXIT.                                    DTSBD371
02216 *                                                                 DTSBD371
02217 *    IF WRK-UI-CHARGED-AMT > +0                                   DTSBD371
02218 *        IF (WRK-UI-CHARGED-AMT + WRK-TAX-CHRG-DIFF-AMT) > +0     DTSBD371
02219 *            ADD WRK-TAX-CHRG-DIFF-AMT TO WRK-UI-CHARGED-AMT      DTSBD371
02220 *&                                                                DTSBD371
02221 *    MOVE WRK-UI-CHARGED-AMT   TO AMT-DISP1                       DTSBD371
02222 *    DISPLAY 'BD371 P2610 UI ' AMT-DISP1                          DTSBD371
02223 */&                                                               DTSBD371
02224 *            GO TO P2610-EXIT.                                    DTSBD371
02225 *P2610-EXIT.                                                      DTSBD371
02226 *    EXIT.                                                        DTSBD371
02227      SKIP3                                                        DTSBD371
02228  P2620-UI-CHARGED.                                                DTSBD371
02229      IF MPRF-CLASS-SELF-INS-88                                    DTSBD371
02230          GO TO P2620-EXIT.                                        DTSBD371
02231                                                                   DTSBD371
02232      IF (UI-SUB = 0)                                              DTSBD371
02233             AND                                                   DTSBD371
02234         (WRK-UI-CHARGED-AMT = 0)                                  DTSBD371
02235          GO TO P2620-EXIT.                                        DTSBD371
02236                                                                   DTSBD371
02237      IF UI-SUB = 0                                                DTSBD371
02238          PERFORM S2100-INIT-ACCT-DATA THRU S2100-EXIT             DTSBD371
02239          MOVE MQTR-ACCT-CNT TO UI-SUB                             DTSBD371
02240          SET MQTR-ACCT-UI-88 (UI-SUB) TO TRUE.                    DTSBD371
02241                                                                   DTSBD371
02242      COMPUTE L541-AMT                                             DTSBD371
02243        = WRK-UI-CHARGED-AMT - MQTR-CHARGED-AMT (UI-SUB).          DTSBD371
02244                                                                   DTSBD371
02245      IF L541-AMT = 0                                              DTSBD371
02246          GO TO P2620-EXIT.                                        DTSBD371
02247                                                                   DTSBD371
02248      MOVE UI-SUB TO L541-ACCT-SUB.                                DTSBD371
02249                                                                   DTSBD371
02250      MOVE CACT-CAT-CHARGED TO L541-CAT-IND.                       DTSBD371
02251                                                                   DTSBD371
02252      PERFORM S541-MODIFY-AMT THRU S541-EXIT.                      DTSBD371
02253                                                                   DTSBD371
02254      IF MQTR-BALANCE-AMT (UI-SUB) < 0                             DTSBD371
02255 *&                                                                DTSBD371
02256 *        IF MQTR-EMP-NO = 081547                                  DTSBD371
02257 *           MOVE L541-AMT           TO AMT-DISP2                  DTSBD371
02258 *           DISPLAY 'BD371 UI ' MQTR-YRQ '  ' AMT-DISP2           DTSBD371
02259 *        END-IF                                                   DTSBD371
02260 *&                                                                DTSBD371
02261          MOVE UI-SUB TO ACCT-SUB                                  DTSBD371
02262          PERFORM S3100-DEC-PAID-AMT THRU S3100-EXIT.              DTSBD371
02263                                                                   DTSBD371
02264      IF MQTR-BALANCE-AMT (UI-SUB) < 0                             DTSBD371
02265          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD371
02266  P2620-EXIT.                                                      DTSBD371
02267      EXIT.                                                        DTSBD371
02268      SKIP3                                                        DTSBD371
02269  P2640-SUR-CHARGED.                                               DTSBD371
02270      IF MPRF-CLASS-SELF-INS-88                                    DTSBD371
02271          GO TO P2640-EXIT.                                        DTSBD371
02272                                                                   DTSBD371
02273      IF (SUR-SUB = 0)                                             DTSBD371
02274             AND                                                   DTSBD371
02275         (WRK-SUR-CHARGED-AMT = 0)                                 DTSBD371
02276          GO TO P2640-EXIT.                                        DTSBD371
02277                                                                   DTSBD371
02278      IF SUR-SUB = 0                                               DTSBD371
02279          PERFORM S2100-INIT-ACCT-DATA THRU S2100-EXIT             DTSBD371
02280          MOVE MQTR-ACCT-CNT TO SUR-SUB                            DTSBD371
02281          SET MQTR-ACCT-SUR-88 (SUR-SUB) TO TRUE.                  DTSBD371
02282                                                                   DTSBD371
02283      COMPUTE L541-AMT                                             DTSBD371
02284        = WRK-SUR-CHARGED-AMT - MQTR-CHARGED-AMT (SUR-SUB).        DTSBD371
02285                                                                   DTSBD371
02286      IF L541-AMT = 0                                              DTSBD371
02287          GO TO P2640-EXIT.                                        DTSBD371
02288                                                                   DTSBD371
02289      MOVE SUR-SUB TO L541-ACCT-SUB.                               DTSBD371
02290                                                                   DTSBD371
02291      MOVE CACT-CAT-CHARGED TO L541-CAT-IND.                       DTSBD371
02292                                                                   DTSBD371
02293      PERFORM S541-MODIFY-AMT THRU S541-EXIT.                      DTSBD371
02294                                                                   DTSBD371
02295      IF MQTR-BALANCE-AMT (SUR-SUB) < 0                            DTSBD371
02296 *&                                                                DTSBD371
02297 *        IF MQTR-EMP-NO = 081547                                  DTSBD371
02298 *           MOVE L541-AMT           TO AMT-DISP2                  DTSBD371
02299 *           DISPLAY 'BD371 SU ' MQTR-YRQ '  ' AMT-DISP2           DTSBD371
02300 *        END-IF                                                   DTSBD371
02301 *&                                                                DTSBD371
02302          MOVE SUR-SUB TO ACCT-SUB                                 DTSBD371
02303          PERFORM S3100-DEC-PAID-AMT THRU S3100-EXIT.              DTSBD371
02304                                                                   DTSBD371
02305      IF MQTR-BALANCE-AMT (SUR-SUB) < 0                            DTSBD371
02306          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD371
02307  P2640-EXIT.                                                      DTSBD371
02308      EXIT.                                                        DTSBD371
02309      SKIP3                                                        DTSBD371
02310  P2700-ACCT-INT.                                                  DTSBD371
02311      IF INT-SUB = 0                                               DTSBD371
02312          GO TO P2700-EXIT.                                        DTSBD371
02313                                                                   DTSBD371
02314      PERFORM P2710-INT-CHARGED THRU P2710-EXIT.                   DTSBD371
02315                                                                   DTSBD371
02316      IF MQTR-BALANCE-AMT (INT-SUB) < +0                           DTSBD371
02317          MOVE INT-SUB TO ACCT-SUB                                 DTSBD371
02318          PERFORM S3100-DEC-PAID-AMT THRU S3100-EXIT.              DTSBD371
02319                                                                   DTSBD371
02320      IF MQTR-BALANCE-AMT (INT-SUB) < +0                           DTSBD371
02321          MOVE INT-SUB TO ACCT-SUB                                 DTSBD371
02322          PERFORM S3200-DEC-WAIVED-AMT THRU S3200-EXIT.            DTSBD371
02323                                                                   DTSBD371
02324      IF MQTR-BALANCE-AMT (INT-SUB) < +0                           DTSBD371
02325          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD371
02326  P2700-EXIT.                                                      DTSBD371
02327      EXIT.                                                        DTSBD371
02328      SKIP3                                                        DTSBD371
02329  P2710-INT-CHARGED.                                               DTSBD371
02330      IF MPRF-CLASS-SELF-INS-88                                    DTSBD371
02331          GO TO P2710-EXIT.                                        DTSBD371
02332                                                                   DTSBD371
02333      IF ARPT-WITHDRW-88                                           DTSBD371
02334          NEXT SENTENCE                                            DTSBD371
02335      ELSE                                                         DTSBD371
02336          GO TO P2710-EXIT.                                        DTSBD371
02337                                                                   DTSBD371
02338      COMPUTE L541-AMT = MQTR-CHARGED-AMT (INT-SUB) * -1.          DTSBD371
02339                                                                   DTSBD371
02340      IF L541-AMT = +0                                             DTSBD371
02341          GO TO P2710-EXIT.                                        DTSBD371
02342                                                                   DTSBD371
02343      MOVE INT-SUB TO L541-ACCT-SUB.                               DTSBD371
02344                                                                   DTSBD371
02345      MOVE CACT-CAT-CHARGED TO L541-CAT-IND.                       DTSBD371
02346                                                                   DTSBD371
02347      PERFORM S541-MODIFY-AMT THRU S541-EXIT.                      DTSBD371
02348  P2710-EXIT.                                                      DTSBD371
02349      EXIT.                                                        DTSBD371
02350      EJECT                                                        DTSBD371
02351  P2800-ACCT-LATE-PAY-PEN.                                         DTSBD371
02352      IF ARPT-WITHDRW-88                                           DTSBD371
02353         PERFORM P2820-WITHDRAW-LATE-PEN          THRU P2820-EXIT  DTSBD371
02354      ELSE                                                         DTSBD371
02355         IF ARPT-ORIG-88                                           DTSBD371
02356            PERFORM P2810-ORIG-RPT                THRU P2810-EXIT  DTSBD371
02357         ELSE                                                      DTSBD371
02358            IF ARPT-ESTIM-88                                       DTSBD371
02359               PERFORM P2830-ORIG-ESTIM-LATE-PEN  THRU P2830-EXIT  DTSBD371
02360            END-IF                                                 DTSBD371
02361         END-IF                                                    DTSBD371
02362      END-IF.                                                      DTSBD371
02363                                                                   DTSBD371
02364      IF LATE-PEN-SUB = +0                                         DTSBD371
02365          GO TO P2800-EXIT.                                        DTSBD371
02366                                                                   DTSBD371
02367      IF MQTR-BALANCE-AMT (LATE-PEN-SUB) < +0                      DTSBD371
02368          MOVE LATE-PEN-SUB TO ACCT-SUB                            DTSBD371
02369          PERFORM S3100-DEC-PAID-AMT THRU S3100-EXIT.              DTSBD371
02370                                                                   DTSBD371
02371      IF MQTR-BALANCE-AMT (LATE-PEN-SUB) < +0                      DTSBD371
02372          MOVE LATE-PEN-SUB TO ACCT-SUB                            DTSBD371
02373          PERFORM S3200-DEC-WAIVED-AMT THRU S3200-EXIT.            DTSBD371
02374                                                                   DTSBD371
02375      IF MQTR-BALANCE-AMT (LATE-PEN-SUB) < +0                      DTSBD371
02376          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD371
02377  P2800-EXIT.                                                      DTSBD371
02378      EXIT.                                                        DTSBD371
02379                                                                   DTSBD371
02380  P2810-ORIG-RPT.                                                  DTSBD371
02381      PERFORM P2820-WITHDRAW-LATE-PEN   THRU P2820-EXIT.           DTSBD371
02382                                                                   DTSBD371
02383      IF ARPT-RESPONSIBLE-OP-ID = 'TRANSFER'                       DTSBD371
02384         NEXT SENTENCE                                             DTSBD371
02385      ELSE                                                         DTSBD371
02386         IF PRE-UPDATE-CURR-ESTIM-88                               DTSBD371
02387 ***        PERFORM P2820-WITHDRAW-LATE-PEN   THRU P2820-EXIT      DTSBD371
02388            PERFORM P2830-ORIG-ESTIM-LATE-PEN THRU P2830-EXIT      DTSBD371
02389         ELSE                                                      DTSBD371
02390            PERFORM P2830-ORIG-ESTIM-LATE-PEN THRU P2830-EXIT      DTSBD371
02391         END-IF                                                    DTSBD371
02392      END-IF.                                                      DTSBD371
02393                                                                   DTSBD371
02394  P2810-EXIT.                                                      DTSBD371
02395      EXIT.                                                        DTSBD371
02396      SKIP3                                                        DTSBD371
02397  P2820-WITHDRAW-LATE-PEN.                                         DTSBD371
02398 *****IF MPRF-CLASS-SELF-INS-88                                    DTSBD371
02399 *****    GO TO P2820-EXIT.                                        DTSBD371
02400                                                                   DTSBD371
02401      IF LATE-PEN-SUB = +0                                         DTSBD371
02402          GO TO P2820-EXIT.                                        DTSBD371
02403                                                                   DTSBD371
02404      COMPUTE L541-AMT = MQTR-CHARGED-AMT (LATE-PEN-SUB) * -1.     DTSBD371
02405                                                                   DTSBD371
02406      IF L541-AMT = +0                                             DTSBD371
02407          GO TO P2820-EXIT.                                        DTSBD371
02408                                                                   DTSBD371
02409      MOVE LATE-PEN-SUB TO L541-ACCT-SUB.                          DTSBD371
02410                                                                   DTSBD371
02411      MOVE CACT-CAT-CHARGED TO L541-CAT-IND.                       DTSBD371
02412                                                                   DTSBD371
02413      PERFORM S541-MODIFY-AMT THRU S541-EXIT.                      DTSBD371
02414  P2820-EXIT.                                                      DTSBD371
02415      EXIT.                                                        DTSBD371
02416      SKIP3                                                        DTSBD371
02417  P2830-ORIG-ESTIM-LATE-PEN.                                       DTSBD371
02418 *****IF MPRF-CLASS-SELF-INS-88                                    DTSBD371
02419 *********GO TO P2830-EXIT.                                        DTSBD371
02420                                                                   DTSBD371
02421      MOVE +0                    TO L102-LATE-PEN-CHARGED-AMT      DTSBD371
02422                                    L102-TAX-CHARGED-AMT           DTSBD371
02423                                    L102-TAX-BALANCE-AMT.          DTSBD371
02424                                                                   DTSBD371
02425      IF L516-ANN-SCHED-88                                         DTSBD371
02426         MOVE ARPT-YRQ                   TO L004-QTR-5-9           DTSBD371
02427         IF L004-QTR-5-Q = 4                                       DTSBD371
02428            PERFORM P2833-ANN-SUM        THRU P2833-EXIT           DTSBD371
02429            MOVE WRK-ANN-LP-CHG-AMT TO                             DTSBD371
02430                               L102-LATE-PEN-CHARGED-AMT           DTSBD371
02431            MOVE WRK-ANN-TAX-CHG-AMT TO                            DTSBD371
02432                               L102-TAX-CHARGED-AMT                DTSBD371
02433         ELSE                                                      DTSBD371
02434            PERFORM P2833-ANN-SUM        THRU P2833-EXIT           DTSBD371
02435            GO TO P2830-EXIT                                       DTSBD371
02436         END-IF                                                    DTSBD371
02437      ELSE                                                         DTSBD371
02438         PERFORM P2832-QTR-SUM           THRU P2832-EXIT           DTSBD371
02439      END-IF.                                                      DTSBD371
02440                                                                   DTSBD371
02441      MOVE MPRF-EMP-CLASS     TO L102-EMP-CLASS.                   DTSBD371
02442                                                                   DTSBD371
02443      MOVE ARPT-RECEIVED-DATE TO L102-TRAN-RECEIVED-DATE.          DTSBD371
02444                                                                   DTSBD371
02445      MOVE ARPT-WAIVE-LATE-PEN-IND TO L102-WAIVE-LATE-PEN-IND.     DTSBD371
02446                                                                   DTSBD371
02447      MOVE LBCM-CURR-RUN-DATE TO L102-CURR-RUN-DATE.               DTSBD371
02448                                                                   DTSBD371
02449      IF L516-ANN-SCHED-88                                         DTSBD371
02450         MOVE WRK-UC30H-DEL-END-YRQ                                DTSBD371
02451           TO L102-LAST-PEN-ASSESSED-YRQ                           DTSBD371
02452      ELSE                                                         DTSBD371
02453         MOVE LBCM-LAST-PEN-ASSESSED-YRQ                           DTSBD371
02454           TO L102-LAST-PEN-ASSESSED-YRQ                           DTSBD371
02455      END-IF.                                                      DTSBD371
02456      DISPLAY 'LAST PEN YRQ ' L102-LAST-PEN-ASSESSED-YRQ.          DTSBD371
02457                                                                   DTSBD371
02458      IF ARPT-ORIG-88                                              DTSBD371
02459          MOVE ARPT-RECEIVED-DATE TO L102-OR-RECEIVED-DATE         DTSBD371
02460      ELSE                                                         DTSBD371
02461          MOVE +0 TO L102-OR-RECEIVED-DATE.                        DTSBD371
02462                                                                   DTSBD371
02463      MOVE MQTR-YRQ TO L102-MQTR-YRQ.                              DTSBD371
02464                                                                   DTSBD371
02465      MOVE MQTR-TAX-DUE-DATE TO L102-TAX-DUE-DATE.                 DTSBD371
02466                                                                   DTSBD371
02467      MOVE MQTR-RPT-DUE-DATE TO L102-RPT-DUE-DATE.                 DTSBD371
02468                                                                   DTSBD371
02469      MOVE MQTR-PEN-AREA TO L102-PEN-AREA.                         DTSBD371
02470                                                                   DTSBD371
02471      MOVE ZERO                     TO WRK-TIMELY-PAYMENTS.        DTSBD371
02472                                                                   DTSBD371
02473      PERFORM P2831-TIMELY-PAYMENT THRU P2831-EXIT.                DTSBD371
02474      COMPUTE L102-TAX-BALANCE-AMT =                               DTSBD371
02475             (L102-TAX-CHARGED-AMT - WRK-TIMELY-PAYMENTS).         DTSBD371
02476                                                                   DTSBD371
02477      MOVE L102-TAX-BALANCE-AMT   TO AMT-DISP1.                    DTSBD371
02478      DISPLAY 'TAX BAL AFTER 2831 ' AMT-DISP1.                     DTSBD371
02479                                                                   DTSBD371
02480      IF L516-ANN-SCHED-88                                         DTSBD371
02481         MOVE WRK-ANN-REMIT-AMT     TO AMT-DISP1                   DTSBD371
02482         DISPLAY 'BD371 P2830 ' ARPT-EMP-NO '  ' ARPT-YRQ          DTSBD371
02483            '  ' AMT-DISP1                                         DTSBD371
02484         MOVE WRK-ANN-REMIT-AMT             TO WRK-REMIT-AMT       DTSBD371
02485         MOVE +0                            TO WRK-ANN-REMIT-AMT   DTSBD371
02486      ELSE                                                         DTSBD371
02487         MOVE ARPT-REMIT-AMT                TO WRK-REMIT-AMT       DTSBD371
02488      END-IF.                                                      DTSBD371
02489                                                                   DTSBD371
02490      IF ARPT-ORIG-88                                              DTSBD371
02491         IF WRK-REMIT-AMT <= +0                                    DTSBD371
02492            NEXT SENTENCE                                          DTSBD371
02493         ELSE                                                      DTSBD371
02494            IF WRK-REMIT-AMT > L102-TAX-BALANCE-AMT                DTSBD371
02495               MOVE +0 TO L102-TAX-BALANCE-AMT                     DTSBD371
02496            ELSE                                                   DTSBD371
02497               COMPUTE L102-TAX-BALANCE-AMT                        DTSBD371
02498                   = L102-TAX-BALANCE-AMT - WRK-REMIT-AMT          DTSBD371
02499            END-IF                                                 DTSBD371
02500         END-IF                                                    DTSBD371
02501      END-IF.                                                      DTSBD371
02502                                                                   DTSBD371
02503      IF ARPT-ORIG-88                                              DTSBD371
02504         IF MPRF-TOT-CREDIT-AMT <= +0                              DTSBD371
02505            NEXT SENTENCE                                          DTSBD371
02506         ELSE                                                      DTSBD371
02507            IF MPRF-TOT-CREDIT-AMT > L102-TAX-BALANCE-AMT          DTSBD371
02508               MOVE +0 TO L102-TAX-BALANCE-AMT                     DTSBD371
02509            ELSE                                                   DTSBD371
02510               COMPUTE L102-TAX-BALANCE-AMT                        DTSBD371
02511                    = L102-TAX-BALANCE-AMT - MPRF-TOT-CREDIT-AMT   DTSBD371
02512            END-IF                                                 DTSBD371
02513         END-IF                                                    DTSBD371
02514      END-IF.                                                      DTSBD371
02515                                                                   DTSBD371
02516      MOVE L102-TAX-BALANCE-AMT   TO AMT-DISP1.                    DTSBD371
02517      DISPLAY 'TAX BAL BEFORE CALL TO 102 ' AMT-DISP1.             DTSBD371
02518                                                                   DTSBD371
02519      IF ARPT-ORIG-88                                              DTSBD371
02520         PERFORM S102-ORIGINAL-RPT   THRU S102-EXIT                DTSBD371
02521      ELSE                                                         DTSBD371
02522         PERFORM S102-ESTIMATED-RPT  THRU S102-EXIT                DTSBD371
02523      END-IF.                                                      DTSBD371
02524                                                                   DTSBD371
02525      IF L102-LATE-PEN-CHARGE-CHNG = +0                            DTSBD371
02526      AND L102-LATE-PEN-WAIVE-CHNG = +0                            DTSBD371
02527          GO TO P2830-EXIT.                                        DTSBD371
02528                                                                   DTSBD371
02529      IF LATE-PEN-SUB = +0                                         DTSBD371
02530          PERFORM S2100-INIT-ACCT-DATA THRU S2100-EXIT             DTSBD371
02531          MOVE MQTR-ACCT-CNT TO LATE-PEN-SUB                       DTSBD371
02532          SET MQTR-ACCT-LATE-PEN-88 (LATE-PEN-SUB) TO TRUE.        DTSBD371
02533                                                                   DTSBD371
02534      MOVE L102-LATE-PEN-CHARGE-CHNG TO L541-AMT.                  DTSBD371
02535                                                                   DTSBD371
02536      IF L541-AMT NOT = +0                                         DTSBD371
02537          MOVE LATE-PEN-SUB TO L541-ACCT-SUB                       DTSBD371
02538          MOVE CACT-CAT-CHARGED TO L541-CAT-IND                    DTSBD371
02539          PERFORM S541-MODIFY-AMT THRU S541-EXIT.                  DTSBD371
02540                                                                   DTSBD371
02541      MOVE L102-LATE-PEN-WAIVE-CHNG TO L541-AMT.                   DTSBD371
02542                                                                   DTSBD371
02543      IF L541-AMT NOT = +0                                         DTSBD371
02544          MOVE LATE-PEN-SUB TO L541-ACCT-SUB                       DTSBD371
02545          MOVE CACT-CAT-WAIVED TO L541-CAT-IND                     DTSBD371
02546          PERFORM S541-MODIFY-AMT THRU S541-EXIT.                  DTSBD371
02547  P2830-EXIT.                                                      DTSBD371
02548      EXIT.                                                        DTSBD371
02549                                                                   DTSBD371
02550  P2831-TIMELY-PAYMENT.                                            DTSBD371
02551      DISPLAY 'P2831 START ' MPRF-EMP-NO '  ' ARPT-YRQ.            DTSBD371
02552                                                                   DTSBD371
02553      MOVE ARPT-YRQ                       TO L004-QTR-5-9.         DTSBD371
02554      MOVE 1                              TO L004-QTR-5-Q.         DTSBD371
02555      MOVE L004-QTR-5-9                   TO WRK-ANN-YRQ1.         DTSBD371
02556      MOVE 4                              TO L004-QTR-5-Q.         DTSBD371
02557      MOVE L004-QTR-5-9                   TO WRK-ANN-YRQ4.         DTSBD371
02558      DISPLAY 'P2831 QTRS ' WRK-ANN-YRQ1 '  ' WRK-ANN-YRQ4.        DTSBD371
02559                                                                   DTSBD371
02560      MOVE LOW-VALUE                      TO MDST-KEY-AREA.        DTSBD371
02561      MOVE MPRF-EMP-NO                    TO MDST-EMP-NO.          DTSBD371
02562      SET MDST-DST-88                     TO TRUE.                 DTSBD371
02563      MOVE MDST-KEY-AREA                  TO MSKL-KEY-AREA.        DTSBD371
02564                                                                   DTSBD371
02565      PERFORM S910-START-BROWSE           THRU S910-EXIT.          DTSBD371
02566      PERFORM UNTIL L910-NO-REC-88                                 DTSBD371
02567         MOVE MSKL-REC                    TO MDST-REC              DTSBD371
02568         IF L516-ANN-SCHED-88                                      DTSBD371
02569            IF (MDST-YRQ >= WRK-ANN-YRQ1 AND <= WRK-ANN-YRQ4)      DTSBD371
02570            AND (MDST-RECEIVED-DATE <= MQTR-TAX-DUE-DATE)          DTSBD371
02571               PERFORM P2831A-SUM-PMTS    THRU P2831A-EXIT         DTSBD371
02572            END-IF                                                 DTSBD371
02573         ELSE                                                      DTSBD371
02574            IF (MDST-YRQ = MQTR-YRQ                                DTSBD371
02575            AND MDST-RECEIVED-DATE <= MQTR-TAX-DUE-DATE)           DTSBD371
02576               PERFORM P2831A-SUM-PMTS    THRU P2831A-EXIT         DTSBD371
02577            END-IF                                                 DTSBD371
02578         END-IF                                                    DTSBD371
02579         PERFORM S910-READ-NEXT           THRU S910-EXIT           DTSBD371
02580      END-PERFORM.                                                 DTSBD371
02581                                                                   DTSBD371
02582      IF L516-ANN-SCHED-88                                         DTSBD371
02583         MOVE WRK-TIMELY-PAYMENTS    TO AMT-DISP1                  DTSBD371
02584         DISPLAY 'P2831 PMT ' MPRF-EMP-NO '  ' AMT-DISP1           DTSBD371
02585      END-IF.                                                      DTSBD371
02586                                                                   DTSBD371
02587  P2831-EXIT.                                                      DTSBD371
02588      EXIT.                                                        DTSBD371
02589                                                                   DTSBD371
02590  P2831A-SUM-PMTS.                                                 DTSBD371
02591 **********************************************************        DTSBD371
02592 *  PRIOR TO 2008/1, UI TAX ONLY IS SUBJECT TO PENALTY.            DTSBD371
02593 *  FOR 2008/1 AND FOLLOWING, ADMIN ASSESS IS ALSO INCLUDED.       DTSBD371
02594 **********************************************************        DTSBD371
02595      PERFORM                                                      DTSBD371
02596        VARYING MDST-ACCT-IDX FROM +1 BY +1                        DTSBD371
02597        UNTIL MDST-ACCT-IDX > MDST-ACCT-CNT                        DTSBD371
02598          IF MDST-ACCT-UI-88 (MDST-ACCT-IDX)                       DTSBD371
02599             ADD MDST-AMT (MDST-ACCT-IDX)                          DTSBD371
02600                                      TO WRK-TIMELY-PAYMENTS       DTSBD371
02601 *&                                                                DTSBD371
02602             MOVE MDST-AMT (MDST-ACCT-IDX) TO AMT-DISP1            DTSBD371
02603             DISPLAY 'PMT 1 ' MPRF-EMP-NO '  ' MDST-YRQ            DTSBD371
02604                '  ' AMT-DISP1                                     DTSBD371
02605 *&                                                                DTSBD371
02606          END-IF                                                   DTSBD371
02607          IF MDST-ACCT-SUR-88 (MDST-ACCT-IDX)                      DTSBD371
02608            IF MQTR-YRQ >= WRK-FIRST-PEN-INT-YRQ                   DTSBD371
02609            AND MPRF-CLASS-RATED-88                                DTSBD371
02610              ADD MDST-AMT (MDST-ACCT-IDX)                         DTSBD371
02611                                       TO WRK-TIMELY-PAYMENTS      DTSBD371
02612 *&                                                                DTSBD371
02613             MOVE MDST-AMT (MDST-ACCT-IDX) TO AMT-DISP1            DTSBD371
02614             DISPLAY 'PMT 2 ' MPRF-EMP-NO '  ' MDST-YRQ            DTSBD371
02615                '  ' AMT-DISP1                                     DTSBD371
02616 *&                                                                DTSBD371
02617            END-IF                                                 DTSBD371
02618          END-IF                                                   DTSBD371
02619      END-PERFORM.                                                 DTSBD371
02620                                                                   DTSBD371
02621  P2831A-EXIT.                                                     DTSBD371
02622      EXIT.                                                        DTSBD371
02623                                                                   DTSBD371
02624  P2832-QTR-SUM.                                                   DTSBD371
02625 **********************************************************        DTSBD371
02626 *  PRIOR TO 2008/1, UI TAX ONLY IS SUBJECT TO PENALTY.            DTSBD371
02627 *  FOR 2008/1 AND FOLLOWING, ADMIN ASSESS IS ALSO INCLUDED.       DTSBD371
02628 *                                                                 DTSBD371
02629 **********************************************************        DTSBD371
02630      PERFORM                                                      DTSBD371
02631        VARYING MQTR-ACCT-IDX FROM 1 BY 1                          DTSBD371
02632        UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                        DTSBD371
02633          IF MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX)                 DTSBD371
02634              ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                 DTSBD371
02635               TO L102-LATE-PEN-CHARGED-AMT                        DTSBD371
02636          END-IF                                                   DTSBD371
02637          IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX)                       DTSBD371
02638              ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                 DTSBD371
02639               TO L102-TAX-CHARGED-AMT                             DTSBD371
02640          END-IF                                                   DTSBD371
02641                                                                   DTSBD371
02642          IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX)                      DTSBD371
02643              IF MQTR-YRQ >= WRK-FIRST-PEN-INT-YRQ                 DTSBD371
02644              AND MPRF-CLASS-RATED-88                              DTSBD371
02645                 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)              DTSBD371
02646                   TO L102-TAX-CHARGED-AMT                         DTSBD371
02647              END-IF                                               DTSBD371
02648          END-IF                                                   DTSBD371
02649      END-PERFORM.                                                 DTSBD371
02650                                                                   DTSBD371
02651  P2832-EXIT.                                                      DTSBD371
02652      EXIT.                                                        DTSBD371
02653                                                                   DTSBD371
02654  P2833-ANN-SUM.                                                   DTSBD371
02655      IF L004-QTR-5-Q = 1                                          DTSBD371
02656         MOVE +0        TO WRK-ANN-LP-CHG-AMT                      DTSBD371
02657                           WRK-ANN-TAX-CHG-AMT                     DTSBD371
02658      END-IF.                                                      DTSBD371
02659                                                                   DTSBD371
02660      PERFORM                                                      DTSBD371
02661        VARYING MQTR-ACCT-IDX FROM 1 BY 1                          DTSBD371
02662        UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT                        DTSBD371
02663          EVALUATE TRUE                                            DTSBD371
02664            WHEN MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX)             DTSBD371
02665              ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                 DTSBD371
02666               TO WRK-ANN-LP-CHG-AMT                               DTSBD371
02667                                                                   DTSBD371
02668            WHEN MQTR-ACCT-UI-88 (MQTR-ACCT-IDX)                   DTSBD371
02669              ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                 DTSBD371
02670               TO WRK-ANN-TAX-CHG-AMT                              DTSBD371
02671                                                                   DTSBD371
02672            WHEN MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX)                  DTSBD371
02673              IF MQTR-YRQ >= WRK-FIRST-PEN-INT-YRQ                 DTSBD371
02674                 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)              DTSBD371
02675                   TO WRK-ANN-TAX-CHG-AMT                          DTSBD371
02676              END-IF                                               DTSBD371
02677          END-EVALUATE                                             DTSBD371
02678      END-PERFORM.                                                 DTSBD371
02679                                                                   DTSBD371
02680      MOVE WRK-ANN-TAX-CHG-AMT    TO AMT-DISP1.                    DTSBD371
02681      MOVE WRK-ANN-LP-CHG-AMT     TO AMT-DISP2.                    DTSBD371
02682      DISPLAY 'P2833 ' MPRF-EMP-NO '  ' MQTR-YRQ                   DTSBD371
02683         '  ' AMT-DISP1 '  ' AMT-DISP2.                            DTSBD371
02684  P2833-EXIT.                                                      DTSBD371
02685      EXIT.                                                        DTSBD371
02686                                                                   DTSBD371
02687  P2900-QTRLY-ESTIMATED-LETTER.                                    DTSBD371
02688      MOVE MPRF-EMP-NO TO R316-EMP-NO.                             DTSBD371
02689                                                                   DTSBD371
02690      MOVE MQTR-YRQ TO R316-YRQ.                                   DTSBD371
02691                                                                   DTSBD371
02692 *    MOVE MPRF-EMP-CLASS TO R316-EMP-CLASS.                       DTSBD371
02693                                                                   DTSBD371
02694      MOVE LBCM-CURR-MAIL-DATE TO R316-MAIL-DATE.                  DTSBD371
02695                                                                   DTSBD371
02696      MOVE +0 TO R316-UI-TAX-CHARGED-AMT                           DTSBD371
02697                 R316-SUR-TAX-CHARGED-AMT                          DTSBD371
02698                 R316-PEN-CHARGED-AMT                              DTSBD371
02699                 R316-INT-CHARGED-AMT.                             DTSBD371
02700                                                                   DTSBD371
02701      SET R316-QTR-FILING-88 TO TRUE.                              DTSBD371
02702                                                                   DTSBD371
02703      MOVE R316-MAIL-DATE TO L001-FED-8-DATE-9.                    DTSBD371
02704                                                                   DTSBD371
02705      PERFORM S001-FROM-FED-8 THRU S001-EXIT.                      DTSBD371
02706                                                                   DTSBD371
02707      ADD +14 TO L001-JUL-ABS-DAY.                                 DTSBD371
02708                                                                   DTSBD371
02709      PERFORM S001-FROM-ABS-DAY THRU S001-EXIT.                    DTSBD371
02710                                                                   DTSBD371
02711      MOVE L001-FED-8-DATE-9 TO R316-INT-COMP-DATE.                DTSBD371
02712                                                                   DTSBD371
02713      MOVE +0 TO L101-PAID-CHNG.                                   DTSBD371
02714                                                                   DTSBD371
02715      MOVE R316-INT-COMP-DATE TO L101-RECEIVED-DATE.               DTSBD371
02716                                                                   DTSBD371
02717      MOVE ARPT-WAIVE-INT-IND TO L101-WAIVE-INT-IND.               DTSBD371
02718                                                                   DTSBD371
02719      MOVE MQTR-TAX-DUE-DATE TO L101-TAX-DUE-DATE.                 DTSBD371
02720                                                                   DTSBD371
02721      MOVE MQTR-INT-AREA TO L101-INT-AREA.                         DTSBD371
02722                                                                   DTSBD371
02723      PERFORM P2910-MQTR-ACCT-LOOP THRU P2910-EXIT                 DTSBD371
02724          VARYING MQTR-ACCT-IDX FROM 1 BY 1                        DTSBD371
02725          UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT.                     DTSBD371
02726                                                                   DTSBD371
02727      PERFORM S101-PER-MONTH-NO THRU S101-EXIT.                    DTSBD371
02728                                                                   DTSBD371
02729      ADD L101-INT-CHARGE-CHNG TO R316-INT-CHARGED-AMT.            DTSBD371
02730                                                                   DTSBD371
02731      SET L111-LOOKUP-TAD-88 TO TRUE.                              DTSBD371
02732                                                                   DTSBD371
02733      SET L111-ID-NO-TAD-MAIL-88 TO TRUE.                          DTSBD371
02734                                                                   DTSBD371
02735      PERFORM S111-LOOKUP-ADDR THRU S111-EXIT.                     DTSBD371
02736                                                                   DTSBD371
02737      IF L111-ADDR-FOUND-88                                        DTSBD371
02738          MOVE L111-ADDR-TYPE TO L112-ADDR-TYPE                    DTSBD371
02739          SET L112-ANCHOR-LAST-88 TO TRUE                          DTSBD371
02740          MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME              DTSBD371
02741          MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA          DTSBD371
02742          PERFORM S112-FORMAT-ADDR THRU S112-EXIT                  DTSBD371
02743      ELSE                                                         DTSBD371
02744          MOVE ALL '?' TO L112-ADDRESS                             DTSBD371
02745                          L112-MAILING-ADDRESS.                    DTSBD371
02746                                                                   DTSBD371
02747      MOVE L112-MAILING-ADDRESS TO R316-FMT-ADDR.                  DTSBD371
02748                                                                   DTSBD371
02749      MOVE L112-ZIP TO R316-ZIP.                                   DTSBD371
02750                                                                   DTSBD371
02751      MOVE L112-ADVANCED-BARCODE TO R316-ADVANCED-BARCODE.         DTSBD371
02752                                                                   DTSBD371
02753      PERFORM S946-R316-WRITE THRU S946-EXIT.                      DTSBD371
02754  P2900-EXIT.                                                      DTSBD371
02755      EXIT.                                                        DTSBD371
02756      SKIP3                                                        DTSBD371
02757  P2910-MQTR-ACCT-LOOP.                                            DTSBD371
02758      IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX)                           DTSBD371
02759          ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                     DTSBD371
02760           TO R316-UI-TAX-CHARGED-AMT                              DTSBD371
02761          ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                     DTSBD371
02762           TO L101-PAID-CHNG                                       DTSBD371
02763      ELSE                                                         DTSBD371
02764      IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX)                          DTSBD371
02765          ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                     DTSBD371
02766           TO R316-SUR-TAX-CHARGED-AMT                             DTSBD371
02767 *        ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                     DTSBD371
02768 *         TO L101-PAID-CHNG                                       DTSBD371
02769 *RW                                                               DTSBD371
02770          IF MQTR-YRQ >= WRK-FIRST-PEN-INT-YRQ                     DTSBD371
02771             ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX)                  DTSBD371
02772               TO L101-PAID-CHNG                                   DTSBD371
02773          END-IF                                                   DTSBD371
02774 *RW                                                               DTSBD371
02775      ELSE                                                         DTSBD371
02776      IF MQTR-ACCT-INT-88 (MQTR-ACCT-IDX)                          DTSBD371
02777          ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                     DTSBD371
02778           TO R316-INT-CHARGED-AMT                                 DTSBD371
02779      ELSE                                                         DTSBD371
02780      IF (MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX))                   DTSBD371
02781             OR                                                    DTSBD371
02782         (MQTR-ACCT-NSF-PEN-88 (MQTR-ACCT-IDX))                    DTSBD371
02783             OR                                                    DTSBD371
02784         (MQTR-ACCT-MISC-PEN-88 (MQTR-ACCT-IDX))                   DTSBD371
02785          ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                     DTSBD371
02786           TO R316-PEN-CHARGED-AMT.                                DTSBD371
02787  P2910-EXIT.                                                      DTSBD371
02788      EXIT.                                                        DTSBD371
02789      EJECT                                                        DTSBD371
02790  P2950-ANNUL-ESTIMATED-LETTER.                                    DTSBD371
02791                                                                   DTSBD371
02792      MOVE MQTR-YRQ TO WRK-R316-YRQ.                               DTSBD371
02793                                                                   DTSBD371
02794      IF WRK-R316-Q = 1                                            DTSBD371
02795         MOVE +0 TO WRK-R316-UI-TAX-CHARGED-AMT                    DTSBD371
02796                    WRK-R316-SUR-TAX-CHARGED-AMT                   DTSBD371
02797                    WRK-R316-PEN-CHARGED-AMT                       DTSBD371
02798                    WRK-R316-INT-CHARGED-AMT                       DTSBD371
02799                                                                   DTSBD371
02800      MOVE LBCM-CURR-MAIL-DATE TO R316-MAIL-DATE                   DTSBD371
02801      MOVE R316-MAIL-DATE TO L001-FED-8-DATE-9                     DTSBD371
02802      PERFORM S001-FROM-FED-8 THRU S001-EXIT                       DTSBD371
02803      ADD +14 TO L001-JUL-ABS-DAY                                  DTSBD371
02804      PERFORM S001-FROM-ABS-DAY THRU S001-EXIT                     DTSBD371
02805      MOVE L001-FED-8-DATE-9 TO R316-INT-COMP-DATE                 DTSBD371
02806      MOVE MPRF-EMP-NO TO R316-EMP-NO                              DTSBD371
02807      MOVE MQTR-YRQ TO R316-YRQ                                    DTSBD371
02808      SET R316-ANN-FILING-88 TO TRUE.                              DTSBD371
02809                                                                   DTSBD371
02810      MOVE +0 TO L101-PAID-CHNG                                    DTSBD371
02811                 L101-INT-CHARGE-CHNG.                             DTSBD371
02812                                                                   DTSBD371
02813      MOVE R316-INT-COMP-DATE TO L101-RECEIVED-DATE.               DTSBD371
02814                                                                   DTSBD371
02815      MOVE ARPT-WAIVE-INT-IND TO L101-WAIVE-INT-IND.               DTSBD371
02816                                                                   DTSBD371
02817      MOVE MQTR-TAX-DUE-DATE TO L101-TAX-DUE-DATE.                 DTSBD371
02818                                                                   DTSBD371
02819      MOVE MQTR-INT-AREA TO L101-INT-AREA.                         DTSBD371
02820                                                                   DTSBD371
02821      PERFORM P2960-MQTR-ACCT-LOOP-ANNUAL THRU P2960-EXIT          DTSBD371
02822          VARYING MQTR-ACCT-IDX FROM 1 BY 1                        DTSBD371
02823          UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT.                     DTSBD371
02824                                                                   DTSBD371
02825      PERFORM S101-PER-MONTH-NO THRU S101-EXIT.                    DTSBD371
02826                                                                   DTSBD371
02827      ADD L101-INT-CHARGE-CHNG TO WRK-R316-INT-CHARGED-AMT.        DTSBD371
02828                                                                   DTSBD371
02829      IF WRK-R316-Q  < 4                                           DTSBD371
02830         GO TO P2950-EXIT.                                         DTSBD371
02831                                                                   DTSBD371
02832      MOVE WRK-R316-UI-TAX-CHARGED-AMT  TO R316-UI-TAX-CHARGED-AMT DTSBD371
02833      MOVE WRK-R316-SUR-TAX-CHARGED-AMT TO R316-SUR-TAX-CHARGED-AMTDTSBD371
02834      MOVE WRK-R316-PEN-CHARGED-AMT     TO R316-PEN-CHARGED-AMT    DTSBD371
02835      MOVE WRK-R316-INT-CHARGED-AMT     TO R316-INT-CHARGED-AMT.   DTSBD371
02836                                                                   DTSBD371
02837      SET L111-LOOKUP-TAD-88 TO TRUE.                              DTSBD371
02838                                                                   DTSBD371
02839      SET L111-ID-NO-TAD-MAIL-88 TO TRUE.                          DTSBD371
02840                                                                   DTSBD371
02841      PERFORM S111-LOOKUP-ADDR THRU S111-EXIT.                     DTSBD371
02842                                                                   DTSBD371
02843      IF L111-ADDR-FOUND-88                                        DTSBD371
02844          MOVE L111-ADDR-TYPE TO L112-ADDR-TYPE                    DTSBD371
02845          SET L112-ANCHOR-LAST-88 TO TRUE                          DTSBD371
02846          MOVE MPRF-PRIMARY-NAME TO L112-PRIMARY-NAME              DTSBD371
02847          MOVE L111-RETURN-AREA TO L112-NAME-ADDRESS-AREA          DTSBD371
02848          PERFORM S112-FORMAT-ADDR THRU S112-EXIT                  DTSBD371
02849      ELSE                                                         DTSBD371
02850          MOVE ALL '?' TO L112-ADDRESS                             DTSBD371
02851                          L112-MAILING-ADDRESS.                    DTSBD371
02852                                                                   DTSBD371
02853      MOVE L112-MAILING-ADDRESS TO R316-FMT-ADDR.                  DTSBD371
02854                                                                   DTSBD371
02855      MOVE L112-ZIP TO R316-ZIP.                                   DTSBD371
02856                                                                   DTSBD371
02857      MOVE L112-ADVANCED-BARCODE TO R316-ADVANCED-BARCODE.         DTSBD371
02858                                                                   DTSBD371
02859      PERFORM S946-R316-WRITE THRU S946-EXIT.                      DTSBD371
02860      DISPLAY ' BD371 EST RPT GEN ' MPRF-EMP-NO.                   DTSBD371
02861                                                                   DTSBD371
02862  P2950-EXIT.                                                      DTSBD371
02863      EXIT.                                                        DTSBD371
02864      SKIP3                                                        DTSBD371
02865  P2960-MQTR-ACCT-LOOP-ANNUAL.                                     DTSBD371
02866      IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX)                           DTSBD371
02867          ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                     DTSBD371
02868           TO WRK-R316-UI-TAX-CHARGED-AMT                          DTSBD371
02869          ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                     DTSBD371
02870           TO L101-PAID-CHNG                                       DTSBD371
02871      ELSE                                                         DTSBD371
02872      IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX)                          DTSBD371
02873          ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                     DTSBD371
02874           TO WRK-R316-SUR-TAX-CHARGED-AMT                         DTSBD371
02875 *        ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                     DTSBD371
02876 *         TO L101-PAID-CHNG                                       DTSBD371
02877 *RW                                                               DTSBD371
02878          IF MQTR-YRQ >= WRK-FIRST-PEN-INT-YRQ                     DTSBD371
02879             ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX)                  DTSBD371
02880               TO L101-PAID-CHNG                                   DTSBD371
02881          END-IF                                                   DTSBD371
02882 *RW                                                               DTSBD371
02883      ELSE                                                         DTSBD371
02884      IF MQTR-ACCT-INT-88 (MQTR-ACCT-IDX)                          DTSBD371
02885          ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                     DTSBD371
02886           TO WRK-R316-INT-CHARGED-AMT                             DTSBD371
02887      ELSE                                                         DTSBD371
02888      IF (MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX))                   DTSBD371
02889             OR                                                    DTSBD371
02890         (MQTR-ACCT-NSF-PEN-88 (MQTR-ACCT-IDX))                    DTSBD371
02891             OR                                                    DTSBD371
02892         (MQTR-ACCT-MISC-PEN-88 (MQTR-ACCT-IDX))                   DTSBD371
02893          ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                     DTSBD371
02894           TO WRK-R316-PEN-CHARGED-AMT.                            DTSBD371
02895  P2960-EXIT.                                                      DTSBD371
02896      EXIT.                                                        DTSBD371
02897      EJECT                                                        DTSBD371
02898  P3000-MRPT-WRITE.                                                DTSBD371
02899 *&                                                                DTSBD371
02900 *     DISPLAY 'DTSBD371 P3000 FIRST ' ARPT-EMP-NO                 DTSBD371
02901 *        '  ' ARPT-RPT-TYPE                                       DTSBD371
02902 *        '  ' ARPT-YRQ '  ' ARPT-BATCH-NO ' ' ARPT-ITEM-NO.       DTSBD371
02903 *&                                                                DTSBD371
02904      MOVE LOW-VALUES TO MRPT-REC.                                 DTSBD371
02905                                                                   DTSBD371
02906      MOVE MPRF-EMP-NO TO MRPT-EMP-NO.                             DTSBD371
02907                                                                   DTSBD371
02908      SET MRPT-RPT-88 TO TRUE.                                     DTSBD371
02909                                                                   DTSBD371
02910      MOVE ARPT-YRQ TO MRPT-YRQ.                                   DTSBD371
02911                                                                   DTSBD371
02912      MOVE ARPT-DOC-NO TO MRPT-DOC-NO.                             DTSBD371
02913                                                                   DTSBD371
02914      MOVE +0 TO MRPT-PURGE-DATE.                                  DTSBD371
02915                                                                   DTSBD371
02916      MOVE ARPT-RPT-TYPE TO MRPT-RPT-TYPE.                         DTSBD371
02917                                                                   DTSBD371
02918      MOVE ARPT-TOTAL-EMPL-CNT TO MRPT-TOTAL-EMPL-CNT.             DTSBD371
02919                                                                   DTSBD371
02920      MOVE ARPT-1ST-MTH-EMPL-CNT TO MRPT-1ST-MTH-EMPL-CNT.         DTSBD371
02921                                                                   DTSBD371
02922      MOVE ARPT-2ND-MTH-EMPL-CNT TO MRPT-2ND-MTH-EMPL-CNT.         DTSBD371
02923                                                                   DTSBD371
02924      MOVE ARPT-3RD-MTH-EMPL-CNT TO MRPT-3RD-MTH-EMPL-CNT.         DTSBD371
02925                                                                   DTSBD371
02926      MOVE MQTR-UI-RATE TO MRPT-UI-RATE.                           DTSBD371
02927                                                                   DTSBD371
02928      IF ARPT-ORIG-88 OR ARPT-ESTIM-88                             DTSBD371
02929          MOVE ARPT-TOT-WAGE TO MRPT-TOT-WAGE                      DTSBD371
02930          MOVE ARPT-EXCESS-WAGE TO MRPT-EXCESS-WAGE                DTSBD371
02931          MOVE ARPT-TAX-WAGE TO MRPT-TAX-WAGE                      DTSBD371
02932      ELSE                                                         DTSBD371
02933          COMPUTE MRPT-TOT-WAGE                                    DTSBD371
02934            = MQTR-TOT-WAGE - PRE-UPDATE-TOT-WAGE                  DTSBD371
02935          COMPUTE MRPT-EXCESS-WAGE                                 DTSBD371
02936            = MQTR-EXCESS-WAGE - PRE-UPDATE-EXCESS-WAGE            DTSBD371
02937          COMPUTE MRPT-TAX-WAGE                                    DTSBD371
02938            = MQTR-TAX-WAGE - PRE-UPDATE-TAX-WAGE.                 DTSBD371
02939                                                                   DTSBD371
02940      MOVE +0 TO MRPT-UI-CHARGED-AMT.                              DTSBD371
02941                                                                   DTSBD371
02942      MOVE +0 TO MRPT-SUR-CHARGED-AMT.                             DTSBD371
02943                                                                   DTSBD371
02944      PERFORM P3100-MQTR-ACCT-SCAN THRU P3100-EXIT                 DTSBD371
02945          VARYING MQTR-ACCT-IDX FROM 1 BY 1                        DTSBD371
02946          UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT.                     DTSBD371
02947                                                                   DTSBD371
02948      IF ARPT-ORIG-88 OR ARPT-ESTIM-88                             DTSBD371
02949          NEXT SENTENCE                                            DTSBD371
02950      ELSE                                                         DTSBD371
02951          COMPUTE MRPT-UI-CHARGED-AMT                              DTSBD371
02952            = MRPT-UI-CHARGED-AMT - PRE-UPDATE-UI-CHARGED-AMT      DTSBD371
02953          COMPUTE MRPT-SUR-CHARGED-AMT                             DTSBD371
02954            = MRPT-SUR-CHARGED-AMT - PRE-UPDATE-SUR-CHARGED-AMT.   DTSBD371
02955                                                                   DTSBD371
02956      IF MPRF-CLASS-SELF-INS-88                                    DTSBD371
02957          MOVE +0 TO MRPT-UI-CHARGED-AMT.                          DTSBD371
02958                                                                   DTSBD371
02959      MOVE ARPT-REMIT-AMT TO MRPT-REMIT-AMT.                       DTSBD371
02960                                                                   DTSBD371
02961      MOVE ARPT-WAGE-RPT-IND TO MRPT-WAGE-RPT-IND.                 DTSBD371
02962                                                                   DTSBD371
02963      MOVE ARPT-WAIVE-INT-IND TO MRPT-WAIVE-INT-IND.               DTSBD371
02964                                                                   DTSBD371
02965      MOVE ARPT-WAIVE-LATE-PEN-IND TO MRPT-WAIVE-LATE-PEN-IND.     DTSBD371
02966                                                                   DTSBD371
02967      MOVE ARPT-RECEIVED-DATE TO MRPT-RECEIVED-DATE.               DTSBD371
02968                                                                   DTSBD371
02969      MOVE ARPT-DEPOSIT-DATE TO MRPT-DEPOSIT-DATE.                 DTSBD371
02970                                                                   DTSBD371
02971      MOVE ARPT-RESPONSIBLE-ACTIVITY                               DTSBD371
02972        TO MRPT-RESPONSIBLE-ACTIVITY.                              DTSBD371
02973                                                                   DTSBD371
02974      MOVE ARPT-STATUS-CHNG-IND   TO MRPT-STATUS-CHNG-IND.         DTSBD371
02975                                                                   DTSBD371
02976      MOVE ARPT-RESPONSIBLE-OP-ID TO MRPT-RESPONSIBLE-OP-ID.       DTSBD371
02977                                                                   DTSBD371
02978      SET MRPT-NOT-CONVERTED-88 TO TRUE.                           DTSBD371
02979                                                                   DTSBD371
02980      MOVE LBCM-CURR-RUN-DATE TO MRPT-ESTB-DATE                    DTSBD371
02981                                 MRPT-CHNG-DATE.                   DTSBD371
02982                                                                   DTSBD371
02983      IF ARPT-TRACE-NO NOT NUMERIC                                 DTSBD371
02984         MOVE ZERO          TO MRPT-TRACE-NO                       DTSBD371
02985      ELSE                                                         DTSBD371
02986         MOVE ARPT-TRACE-NO TO MRPT-TRACE-NO.                      DTSBD371
02987                                                                   DTSBD371
02988      IF L516-ANN-SCHED-88                                         DTSBD371
02989         SET MRPT-ANNUAL-YES-88          TO TRUE                   DTSBD371
02990      ELSE                                                         DTSBD371
02991         SET MRPT-ANNUAL-NO-88           TO TRUE                   DTSBD371
02992      END-IF.                                                      DTSBD371
02993                                                                   DTSBD371
02994      MOVE MRPT-REC TO MSKL-REC.                                   DTSBD371
02995                                                                   DTSBD371
02996      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD371
02997  P3000-EXIT.                                                      DTSBD371
02998      EXIT.                                                        DTSBD371
02999      SKIP3                                                        DTSBD371
03000  P3100-MQTR-ACCT-SCAN.                                            DTSBD371
03001      IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX)                           DTSBD371
03002          ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                     DTSBD371
03003           TO MRPT-UI-CHARGED-AMT                                  DTSBD371
03004      ELSE                                                         DTSBD371
03005      IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX)                          DTSBD371
03006          ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX)                     DTSBD371
03007           TO MRPT-SUR-CHARGED-AMT.                                DTSBD371
03008  P3100-EXIT.                                                      DTSBD371
03009      EXIT.                                                        DTSBD371
03010      EJECT                                                        DTSBD371
03011  P4000-REMIT-PROCESS.                                             DTSBD371
03012 *&                                                                DTSBD371
03013 *    IF MPRF-EMP-NO = 081547                                      DTSBD371
03014 *       MOVE ARPT-REMIT-AMT             TO AMT-DISP2              DTSBD371
03015 *       DISPLAY 'DTSBD371 REMIT '  MRPT-EMP-NO '  ' MQTR-YRQ      DTSBD371
03016 *       '  ' AMT-DISP2                                            DTSBD371
03017 *    END-IF.                                                      DTSBD371
03018 *&                                                                DTSBD371
03019      MOVE LOW-VALUES TO APAY-REC.                                 DTSBD371
03020                                                                   DTSBD371
03021      MOVE ARPT-DOC-NO TO APAY-DOC-NO.                             DTSBD371
03022                                                                   DTSBD371
03023      SET APAY-PAY-88 TO TRUE.                                     DTSBD371
03024                                                                   DTSBD371
03025      MOVE MPRF-PRIMARY-NAME TO APAY-NAME-CHECK.                   DTSBD371
03026                                                                   DTSBD371
03027      MOVE MPRF-EMP-NO TO APAY-EMP-NO.                             DTSBD371
03028                                                                   DTSBD371
03029      MOVE ARPT-RPT-TYPE TO APAY-PAY-TYPE.                         DTSBD371
03030                                                                   DTSBD371
03031      MOVE ARPT-REMIT-AMT TO APAY-REMIT-AMT.                       DTSBD371
03032                                                                   DTSBD371
03033      MOVE ARPT-WAIVE-INT-IND TO APAY-WAIVE-INT-IND.               DTSBD371
03034                                                                   DTSBD371
03035      SET APAY-WAIVE-LATE-PEN-NO-88 TO TRUE.                       DTSBD371
03036                                                                   DTSBD371
03037      SET APAY-NSF-PEN-CHARGE-NO-88 TO TRUE.                       DTSBD371
03038                                                                   DTSBD371
03039      MOVE ARPT-RECEIVED-DATE TO APAY-RECEIVED-DATE.               DTSBD371
03040                                                                   DTSBD371
03041      MOVE ARPT-DEPOSIT-DATE TO APAY-DEPOSIT-DATE.                 DTSBD371
03042                                                                   DTSBD371
03043      MOVE ARPT-YRQ TO APAY-APPLIC-YRQ.                            DTSBD371
03044                                                                   DTSBD371
03045      IF (MPRF-CLASS-SELF-INS-88)                                  DTSBD371
03046             AND                                                   DTSBD371
03047         (ARPT-ORIG-88)                                            DTSBD371
03048          SET APAY-SUR-88 TO TRUE                                  DTSBD371
03049      ELSE                                                         DTSBD371
03050          MOVE SPACE TO APAY-APPLIC-IND.                           DTSBD371
03051                                                                   DTSBD371
03052      MOVE WRK-NULL-DOC-NO TO APAY-APPLIC-DOC-NO.                  DTSBD371
03053                                                                   DTSBD371
03054      MOVE 'N' TO APAY-DISREGARD-EDITS-IND.                        DTSBD371
03055                                                                   DTSBD371
03056      MOVE ARPT-RESPONSIBLE-ACTIVITY                               DTSBD371
03057        TO APAY-RESPONSIBLE-ACTIVITY.                              DTSBD371
03058                                                                   DTSBD371
03059      MOVE ARPT-RESPONSIBLE-OP-ID                                  DTSBD371
03060        TO APAY-RESPONSIBLE-OP-ID.                                 DTSBD371
03061                                                                   DTSBD371
03062      SET APAY-NOT-PROCESSED-88 TO TRUE.                           DTSBD371
03063                                                                   DTSBD371
03064      MOVE ZERO TO APAY-NSF-MNTE-ABSTIME.                          DTSBD371
03065                                                                   DTSBD371
03066      IF ARPT-TRACE-NO NOT NUMERIC                                 DTSBD371
03067         MOVE ZERO TO APAY-TRACE-NO                                DTSBD371
03068      ELSE                                                         DTSBD371
03069         MOVE ARPT-TRACE-NO TO APAY-TRACE-NO.                      DTSBD371
03070                                                                   DTSBD371
03071      IF ARPT-CHECK-SCAN-DT NOT NUMERIC                            DTSBD371
03072         MOVE ZERO                 TO APAY-CHECK-SCAN-DT           DTSBD371
03073      ELSE                                                         DTSBD371
03074         MOVE ARPT-CHECK-SCAN-DT   TO APAY-CHECK-SCAN-DT           DTSBD371
03075      END-IF.                                                      DTSBD371
03076                                                                   DTSBD371
03077      IF ARPT-CHECK-SEQUENCE NOT NUMERIC                           DTSBD371
03078         MOVE ZERO                 TO APAY-CHECK-SEQUENCE          DTSBD371
03079      ELSE                                                         DTSBD371
03080         MOVE ARPT-CHECK-SEQUENCE  TO APAY-CHECK-SEQUENCE          DTSBD371
03081      END-IF.                                                      DTSBD371
03082                                                                   DTSBD371
03083      CALL 'DTSBD372' USING LBCM-LINK-AREA                         DTSBD371
03084                            MPRF-REC                               DTSBD371
03085                            APAY-REC.                              DTSBD371
03086                                                                   DTSBD371
03087      IF LBCM-TRN-NOT-OK-88                                        DTSBD371
03088          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD371
03089  P4000-EXIT.                                                      DTSBD371
03090      EXIT.                                                        DTSBD371
03091      EJECT                                                        DTSBD371
03092  S1000-GENERATE-LTE-TCK.                                          DTSBD371
03093      MOVE LOW-VALUES TO MTCK-REC.                                 DTSBD371
03094                                                                   DTSBD371
03095      MOVE MPRF-EMP-NO TO MTCK-EMP-NO.                             DTSBD371
03096                                                                   DTSBD371
03097      SET MTCK-TCK-88 TO TRUE.                                     DTSBD371
03098                                                                   DTSBD371
03099      ADD +1 TO LBCM-EMP-ABSTIME.                                  DTSBD371
03100                                                                   DTSBD371
03101      MOVE LBCM-EMP-ABSTIME TO MTCK-ESTB-ABSTIME.                  DTSBD371
03102                                                                   DTSBD371
03103      MOVE +0 TO MTCK-PURGE-DATE.                                  DTSBD371
03104                                                                   DTSBD371
03105      MOVE +0 TO MTCK-TEXT-CNT.                                    DTSBD371
03106                                                                   DTSBD371
03107      SET MTCK-TYPE-CHK-LATE-88 TO TRUE.                           DTSBD371
03108                                                                   DTSBD371
03109      MOVE WRK-RPT-DUE-DATE TO MTCK-TRIGGER-DATE.                  DTSBD371
03110                                                                   DTSBD371
03111      MOVE +0 TO MTCK-ACKNOWLEDGED-DATE.                           DTSBD371
03112                                                                   DTSBD371
03113      SET MTCK-SOURCE-SYSTEM-88 TO TRUE.                           DTSBD371
03114                                                                   DTSBD371
03115      SET MTCK-DEST-SYSTEM-88 TO TRUE.                             DTSBD371
03116                                                                   DTSBD371
03117      MOVE MQTR-YRQ TO MTCK-LTE-YRQ.                               DTSBD371
03118                                                                   DTSBD371
03119      SET MTCK-NOT-CONVERTED-88 TO TRUE.                           DTSBD371
03120                                                                   DTSBD371
03121      MOVE LBCM-CURR-RUN-DATE TO MTCK-ESTB-DATE                    DTSBD371
03122                                 MTCK-CHNG-DATE.                   DTSBD371
03123                                                                   DTSBD371
03124      MOVE MTCK-REC TO MSKL-REC.                                   DTSBD371
03125                                                                   DTSBD371
03126      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD371
03127  S1000-EXIT.                                                      DTSBD371
03128      EXIT.                                                        DTSBD371
03129                                                                   DTSBD371
03130  S1200-CHK-FOR-CW.                                                DTSBD371
03131      DISPLAY 'S1200 ' ARPT-EMP-NO.                                DTSBD371
03132                                                                   DTSBD371
03133      MOVE ARPT-EMP-NO                     TO MRPT-EMP-NO.         DTSBD371
03134      SET MRPT-RPT-88                      TO TRUE.                DTSBD371
03135      MOVE ARPT-YRQ                        TO MRPT-YRQ.            DTSBD371
03136      MOVE +0                              TO MRPT-BATCH-NO        DTSBD371
03137      MOVE +0                              TO MRPT-ITEM-NO.        DTSBD371
03138      MOVE MRPT-KEY-AREA                   TO MSKL-KEY-AREA.       DTSBD371
03139      PERFORM S910-START-BROWSE            THRU S910-EXIT.         DTSBD371
03140                                                                   DTSBD371
03141      PERFORM UNTIL L910-NO-REC-88                                 DTSBD371
03142         MOVE MSKL-REC                     TO MRPT-REC             DTSBD371
03143         IF MRPT-CLMT-WAGE-88                                      DTSBD371
03144            SET WRK-CW-ON-FILE-YES-88      TO TRUE                 DTSBD371
03145            IF MRPT-ESTB-DATE = LBCM-CURR-RUN-DATE                 DTSBD371
03146               SET WRK-CW-SAME-DAY-YES-88  TO TRUE                 DTSBD371
03147            END-IF                                                 DTSBD371
03148         END-IF                                                    DTSBD371
03149         PERFORM S910-READ-NEXT            THRU S910-EXIT          DTSBD371
03150      END-PERFORM.                                                 DTSBD371
03151                                                                   DTSBD371
03152      DISPLAY 'S1200 END ' ARPT-EMP-NO.                            DTSBD371
03153  S1200-EXIT.                                                      DTSBD371
03154      EXIT.                                                        DTSBD371
03155                                                                   DTSBD371
03156  S1300-CHECK-WAGES.                                               DTSBD371
03157      DISPLAY 'S1300 CHECK WAGES ' ARPT-EMP-NO.                    DTSBD371
03158      MOVE ARPT-PSEUDO-BATCH-NO      TO L424-BATCH-NO.             DTSBD371
03159      MOVE ARPT-PSEUDO-ITEM-NO       TO L424-ITEM-NO.              DTSBD371
03160 **   MOVE ARPT-BATCH-NO             TO L424-BATCH-NO.             DTSBD371
03161 **   MOVE ARPT-ITEM-NO              TO L424-ITEM-NO.              DTSBD371
03162      MOVE ARPT-EMP-NO               TO L424-EMP-NO.               DTSBD371
03163      MOVE ARPT-YRQ                  TO L424-YRQ.                  DTSBD371
03164                                                                   DTSBD371
03165      PERFORM S424-CHECK-WAGE        THRU S424-EXIT.               DTSBD371
03166      DISPLAY 'CHECK WAGES: ' L424-WGH-WAGES-IND                   DTSBD371
03167         L424-WTC-WAGES-IND.                                       DTSBD371
03168                                                                   DTSBD371
03169  S1300-EXIT.                                                      DTSBD371
03170      EXIT.                                                        DTSBD371
03171                                                                   DTSBD371
03172  S1400-CALC-WAGE-ADJ.                                             DTSBD371
03173      DISPLAY 'S1400: ' ARPT-EMP-NO '  ' ARPT-BATCH-NO             DTSBD371
03174         '  ' ARPT-ITEM-NO '  ' ARPT-PSEUDO-BATCH-NO               DTSBD371
03175         '  ' ARPT-PSEUDO-ITEM-NO.                                 DTSBD371
03176      MOVE ARPT-PSEUDO-BATCH-NO      TO L424-BATCH-NO.             DTSBD371
03177      MOVE ARPT-PSEUDO-ITEM-NO       TO L424-ITEM-NO.              DTSBD371
03178 **   MOVE ARPT-BATCH-NO             TO L424-BATCH-NO.             DTSBD371
03179 **   MOVE ARPT-ITEM-NO              TO L424-ITEM-NO.              DTSBD371
03180      MOVE ARPT-EMP-NO               TO L424-EMP-NO.               DTSBD371
03181      MOVE ARPT-YRQ                  TO L424-YRQ.                  DTSBD371
03182                                                                   DTSBD371
03183      SET L424-CMND-PROCESS-88       TO TRUE.                      DTSBD371
03184      PERFORM S424-CALC-ADJUST       THRU S424-EXIT.               DTSBD371
03185                                                                   DTSBD371
03186      MOVE L424-TOTAL-WAGES          TO AMT-DISP1.                 DTSBD371
03187      MOVE L424-TAX-WAGES            TO AMT-DISP2.                 DTSBD371
03188      DISPLAY 'BU424: ' AMT-DISP1 '  ' AMT-DISP2                   DTSBD371
03189         '  ' L424-PROCESS-IND.                                    DTSBD371
03190  S1400-EXIT.                                                      DTSBD371
03191      EXIT.                                                        DTSBD371
03192                                                                   DTSBD371
03193  S1500-CW-ADJUST.                                                 DTSBD371
03194      IF L424-TOTAL-WAGES = ARPT-TOT-WAGE                          DTSBD371
03195      AND L424-TAX-WAGES = ARPT-TAX-WAGE                           DTSBD371
03196         DISPLAY 'S1500 NO WAGE ADJUST NEEDED '                    DTSBD371
03197            ARPT-EMP-NO '  ' ARPT-YRQ                              DTSBD371
03198         GO TO S1500-EXIT                                          DTSBD371
03199      END-IF.                                                      DTSBD371
03200                                                                   DTSBD371
03201      MOVE L424-TOTAL-WAGES          TO AMT-DISP1.                 DTSBD371
03202      MOVE ARPT-TOT-WAGE             TO AMT-DISP2.                 DTSBD371
03203      DISPLAY 'S1500 L424 TOT ' AMT-DISP1 '  ARPT ' AMT-DISP2.     DTSBD371
03204                                                                   DTSBD371
03205      MOVE L424-TOTAL-WAGES          TO WRK-TOT-WAGE-ADJ           DTSBD371
03206                                                                   DTSBD371
03207      MOVE L424-TAX-WAGES            TO AMT-DISP1.                 DTSBD371
03208      MOVE ARPT-TAX-WAGE             TO AMT-DISP2.                 DTSBD371
03209      DISPLAY 'S1500 L424 TAX ' AMT-DISP1 '  ARPT ' AMT-DISP2.     DTSBD371
03210                                                                   DTSBD371
03211      MOVE L424-TAX-WAGES            TO WRK-TAX-WAGE-ADJ           DTSBD371
03212                                                                   DTSBD371
03213      PERFORM S1510-ADD-MNTE          THRU S1510-EXIT.             DTSBD371
03214      PERFORM S1520-ADJ-WAGES         THRU S1520-EXIT.             DTSBD371
03215                                                                   DTSBD371
03216                                                                   DTSBD371
03217  S1500-EXIT.                                                      DTSBD371
03218      EXIT.                                                        DTSBD371
03219                                                                   DTSBD371
03220  S1510-ADD-MNTE.                                                  DTSBD371
03221      MOVE LOW-VALUES                 TO MNTE-KEY-AREA.            DTSBD371
03222      MOVE ARPT-EMP-NO                TO MNTE-EMP-NO.              DTSBD371
03223      SET MNTE-NTE-88                 TO TRUE.                     DTSBD371
03224      MOVE +0                         TO MNTE-PURGE-DATE.          DTSBD371
03225      SET MNTE-NOT-CONVERTED-88       TO TRUE.                     DTSBD371
03226                                                                   DTSBD371
03227      MOVE LBCM-CURR-RUN-DATE         TO MNTE-ESTB-DATE            DTSBD371
03228                                         MNTE-CHNG-DATE.           DTSBD371
03229      MOVE 'SYSTEM  '                 TO MNTE-ESTB-OP-ID           DTSBD371
03230                                         MNTE-CHNG-OP-ID.          DTSBD371
03231                                                                   DTSBD371
03232      MOVE WRK-MNTE-SUBJECT           TO MNTE-SUBJECT.             DTSBD371
03233                                                                   DTSBD371
03234      MOVE ARPT-YRQ                   TO L004-QTR-5-9.             DTSBD371
03235      PERFORM S004-FROM-5             THRU S004-EXIT.              DTSBD371
03236      MOVE L004-SLASH-QTR             TO WRK-MNTE-YRQ.             DTSBD371
03237                                                                   DTSBD371
03238      MOVE ARPT-BATCH-NO              TO WRK-MNTE-BATCH.           DTSBD371
03239      MOVE ARPT-ITEM-NO               TO WRK-MNTE-ITEM.            DTSBD371
03240      MOVE ARPT-TOT-WAGE              TO WRK-MNTE-OR-TOT-WAGE.     DTSBD371
03241      MOVE ARPT-TAX-WAGE              TO WRK-MNTE-OR-TAX-WAGE.     DTSBD371
03242      MOVE WRK-TOT-WAGE-ADJ           TO WRK-MNTE-ADJ-TOT-WAGE.    DTSBD371
03243      MOVE WRK-TAX-WAGE-ADJ           TO WRK-MNTE-ADJ-TAX-WAGE.    DTSBD371
03244                                                                   DTSBD371
03245      MOVE +4                         TO MNTE-TEXT-CNT.            DTSBD371
03246      MOVE WRK-MNTE-LINE1             TO MNTE-TEXT (1).            DTSBD371
03247      MOVE WRK-MNTE-LINE2             TO MNTE-TEXT (2).            DTSBD371
03248      MOVE WRK-MNTE-LINE3             TO MNTE-TEXT (3).            DTSBD371
03249      MOVE WRK-MNTE-LINE4             TO MNTE-TEXT (4).            DTSBD371
03250                                                                   DTSBD371
03251      ADD +1000                       TO LBCM-EMP-ABSTIME.         DTSBD371
03252      MOVE LBCM-EMP-ABSTIME           TO MNTE-KEY-ESTB-ABSTIME     DTSBD371
03253                                         MNTE-DATA-ESTB-ABSTIME    DTSBD371
03254                                         MNTE-CHNG-ABSTIME.        DTSBD371
03255                                                                   DTSBD371
03256      MOVE MNTE-REC                   TO MSKL-REC.                 DTSBD371
03257      PERFORM S910-WRITE              THRU S910-EXIT.              DTSBD371
03258                                                                   DTSBD371
03259  S1510-EXIT.                                                      DTSBD371
03260      EXIT.                                                        DTSBD371
03261                                                                   DTSBD371
03262  S1520-ADJ-WAGES.                                                 DTSBD371
03263      MOVE WRK-TOT-WAGE-ADJ           TO ARPT-TOT-WAGE.            DTSBD371
03264      MOVE WRK-TAX-WAGE-ADJ           TO ARPT-TAX-WAGE.            DTSBD371
03265                                                                   DTSBD371
03266  S1520-EXIT.                                                      DTSBD371
03267      EXIT.                                                        DTSBD371
03268                                                                   DTSBD371
03269  S2100-INIT-ACCT-DATA.                                            DTSBD371
03270      IF MQTR-ACCT-CNT NOT < MMAX-QTR-ACCT-MAX                     DTSBD371
03271          PERFORM S999-ABEND THRU S999-EXIT.                       DTSBD371
03272                                                                   DTSBD371
03273      ADD +1 TO MQTR-ACCT-CNT.                                     DTSBD371
03274                                                                   DTSBD371
03275      MOVE SPACE TO MQTR-ACCT-IND (MQTR-ACCT-CNT).                 DTSBD371
03276                                                                   DTSBD371
03277      MOVE +0 TO MQTR-CHARGED-AMT (MQTR-ACCT-CNT)                  DTSBD371
03278                 MQTR-PAID-AMT (MQTR-ACCT-CNT)                     DTSBD371
03279                 MQTR-WAIVED-AMT (MQTR-ACCT-CNT)                   DTSBD371
03280                 MQTR-WRITTEN-OFF-AMT (MQTR-ACCT-CNT)              DTSBD371
03281                 MQTR-TOLER-AMT (MQTR-ACCT-CNT)                    DTSBD371
03282                 MQTR-BALANCE-AMT (MQTR-ACCT-CNT).                 DTSBD371
03283  S2100-EXIT.                                                      DTSBD371
03284      EXIT.                                                        DTSBD371
03285      EJECT                                                        DTSBD371
03286  S2200-CRUNCH-ACCT-DATA.                                          DTSBD371
03287      MOVE 'N' TO ACCT-CRUNCH-COMPLETE-IND.                        DTSBD371
03288                                                                   DTSBD371
03289      MOVE +1 TO ACCT-SUB.                                         DTSBD371
03290                                                                   DTSBD371
03291      PERFORM S2210-CRUNCH-LOOP THRU S2210-EXIT                    DTSBD371
03292          UNTIL ACCT-CRUNCH-COMPLETE-IND = 'Y'.                    DTSBD371
03293  S2200-EXIT.                                                      DTSBD371
03294      EXIT.                                                        DTSBD371
03295      SKIP3                                                        DTSBD371
03296  S2210-CRUNCH-LOOP.                                               DTSBD371
03297      IF ACCT-SUB > MQTR-ACCT-CNT                                  DTSBD371
03298          MOVE 'Y' TO ACCT-CRUNCH-COMPLETE-IND                     DTSBD371
03299      ELSE                                                         DTSBD371
03300      IF (MQTR-CHARGED-AMT (ACCT-SUB) = 0)                         DTSBD371
03301               AND                                                 DTSBD371
03302         (MQTR-PAID-AMT (ACCT-SUB) = 0)                            DTSBD371
03303               AND                                                 DTSBD371
03304         (MQTR-WAIVED-AMT (ACCT-SUB) = 0)                          DTSBD371
03305               AND                                                 DTSBD371
03306         (MQTR-WRITTEN-OFF-AMT (ACCT-SUB) = 0)                     DTSBD371
03307               AND                                                 DTSBD371
03308         (MQTR-TOLER-AMT (ACCT-SUB) = 0)                           DTSBD371
03309               AND                                                 DTSBD371
03310         (MQTR-BALANCE-AMT (ACCT-SUB) = 0)                         DTSBD371
03311          PERFORM S2211-SHUFFLE THRU S2211-EXIT                    DTSBD371
03312              VARYING ACCT-SUB1 FROM ACCT-SUB BY 1                 DTSBD371
03313              UNTIL ACCT-SUB1 NOT < MQTR-ACCT-CNT                  DTSBD371
03314          SUBTRACT 1 FROM MQTR-ACCT-CNT                            DTSBD371
03315      ELSE                                                         DTSBD371
03316          ADD +1 TO ACCT-SUB.                                      DTSBD371
03317  S2210-EXIT.                                                      DTSBD371
03318      EXIT.                                                        DTSBD371
03319      SKIP3                                                        DTSBD371
03320  S2211-SHUFFLE.                                                   DTSBD371
03321      COMPUTE ACCT-SUB2 = ACCT-SUB1 + 1.                           DTSBD371
03322                                                                   DTSBD371
03323      MOVE MQTR-ACCT-GROUP (ACCT-SUB2)                             DTSBD371
03324        TO MQTR-ACCT-GROUP (ACCT-SUB1).                            DTSBD371
03325  S2211-EXIT.                                                      DTSBD371
03326      EXIT.                                                        DTSBD371
03327      EJECT                                                        DTSBD371
03328  S3100-DEC-PAID-AMT.                                              DTSBD371
03329      COMPUTE WRK-AMT1                                             DTSBD371
03330        = MQTR-BALANCE-AMT (ACCT-SUB) * -1.                        DTSBD371
03331                                                                   DTSBD371
03332      IF MQTR-PAID-AMT (ACCT-SUB) < WRK-AMT1                       DTSBD371
03333          MOVE MQTR-PAID-AMT (ACCT-SUB) TO L522-AMT                DTSBD371
03334      ELSE                                                         DTSBD371
03335          MOVE WRK-AMT1 TO L522-AMT.                               DTSBD371
03336                                                                   DTSBD371
03337      IF L522-AMT NOT > +0                                         DTSBD371
03338          GO TO S3100-EXIT.                                        DTSBD371
03339                                                                   DTSBD371
03340      MOVE ACCT-SUB TO L522-ACCT-SUB.                              DTSBD371
03341                                                                   DTSBD371
03342      PERFORM S522-REVERSE-PAID THRU S522-EXIT.                    DTSBD371
03343  S3100-EXIT.                                                      DTSBD371
03344      EXIT.                                                        DTSBD371
03345      EJECT                                                        DTSBD371
03346  S3200-DEC-WAIVED-AMT.                                            DTSBD371
03347      COMPUTE WRK-AMT1                                             DTSBD371
03348        = MQTR-BALANCE-AMT (ACCT-SUB) * -1.                        DTSBD371
03349                                                                   DTSBD371
03350      IF MQTR-WAIVED-AMT (ACCT-SUB) < WRK-AMT1                     DTSBD371
03351          MOVE MQTR-WAIVED-AMT (ACCT-SUB) TO L541-AMT              DTSBD371
03352      ELSE                                                         DTSBD371
03353          MOVE WRK-AMT1 TO L541-AMT.                               DTSBD371
03354                                                                   DTSBD371
03355      IF L541-AMT NOT > +0                                         DTSBD371
03356          GO TO S3200-EXIT.                                        DTSBD371
03357                                                                   DTSBD371
03358      COMPUTE L541-AMT = L541-AMT * -1.                            DTSBD371
03359                                                                   DTSBD371
03360      MOVE ACCT-SUB TO L541-ACCT-SUB.                              DTSBD371
03361                                                                   DTSBD371
03362      MOVE CACT-CAT-WAIVED TO L541-CAT-IND.                        DTSBD371
03363                                                                   DTSBD371
03364      PERFORM S541-MODIFY-AMT THRU S541-EXIT.                      DTSBD371
03365  S3200-EXIT.                                                      DTSBD371
03366      EXIT.                                                        DTSBD371
03367      EJECT                                                        DTSBD371
03368  S4000-WRITE-MEVL.                                                DTSBD371
03369      ADD +1000 TO LBCM-EMP-ABSTIME.                               DTSBD371
03370                                                                   DTSBD371
03371      MOVE LBCM-EMP-ABSTIME TO L005-ABSTIME.                       DTSBD371
03372                                                                   DTSBD371
03373      PERFORM S005-FROM-ABSTIME THRU S005-EXIT.                    DTSBD371
03374                                                                   DTSBD371
03375                                                                   DTSBD371
03376      MOVE LOW-VALUES TO MEVL-REC.                                 DTSBD371
03377                                                                   DTSBD371
03378      MOVE MPRF-EMP-NO TO MEVL-EMP-NO.                             DTSBD371
03379                                                                   DTSBD371
03380      SET MEVL-EVL-88 TO TRUE.                                     DTSBD371
03381                                                                   DTSBD371
03382      MOVE L005-DATE TO MEVL-DATE.                                 DTSBD371
03383                                                                   DTSBD371
03384      MOVE L005-TIME TO MEVL-TIME.                                 DTSBD371
03385                                                                   DTSBD371
03386                                                                   DTSBD371
03387      MOVE ZEROS TO MEVL-PURGE-DATE.                               DTSBD371
03388                                                                   DTSBD371
03389                                                                   DTSBD371
03390      MOVE EVL-TEXT TO MEVL-TEXT.                                  DTSBD371
03391                                                                   DTSBD371
03392      SET MEVL-SOURCE-SYSTEM-88 TO TRUE.                           DTSBD371
03393                                                                   DTSBD371
03394      SET MEVL-NOT-CONVERTED-88 TO TRUE.                           DTSBD371
03395                                                                   DTSBD371
03396      MOVE LBCM-CURR-RUN-DATE TO MEVL-ESTB-DATE                    DTSBD371
03397                                 MEVL-CHNG-DATE.                   DTSBD371
03398                                                                   DTSBD371
03399                                                                   DTSBD371
03400      MOVE MEVL-REC TO MSKL-REC.                                   DTSBD371
03401                                                                   DTSBD371
03402      PERFORM S910-WRITE THRU S910-EXIT.                           DTSBD371
03403  S4000-EXIT.                                                      DTSBD371
03404      EXIT.                                                        DTSBD371
03405      EJECT                                                        DTSBD371
03406  S001-FROM-FED-8.                                                 DTSBD371
03407      SET L001-FROM-FED-8 TO TRUE.                                 DTSBD371
03408      GO TO S001-DATE.                                             DTSBD371
03409                                                                   DTSBD371
03410  S001-FROM-ABS-DAY.                                               DTSBD371
03411      SET L001-FROM-ABS-DAY TO TRUE.                               DTSBD371
03412      GO TO S001-DATE.                                             DTSBD371
03413                                                                   DTSBD371
03414  S001-DATE.                                                       DTSBD371
03415      CALL 'DTSBU001' USING L001-LINK-AREA.                        DTSBD371
03416  S001-EXIT.                                                       DTSBD371
03417      EXIT.                                                        DTSBD371
03418      SKIP3                                                        DTSBD371
03419  S004-FROM-5.                                                     DTSBD371
03420      SET L004-FROM-5 TO TRUE.                                     DTSBD371
03421      GO TO S004-QTR.                                              DTSBD371
03422                                                                   DTSBD371
03423  S004-QTR.                                                        DTSBD371
03424      CALL 'DTSBU004' USING L004-LINK-AREA.                        DTSBD371
03425  S004-EXIT.                                                       DTSBD371
03426      EXIT.                                                        DTSBD371
03427      SKIP3                                                        DTSBD371
03428  S005-FROM-ABSTIME.                                               DTSBD371
03429      SET L005-FROM-ABSTIME TO TRUE.                               DTSBD371
03430      GO TO S005-ABSTIME.                                          DTSBD371
03431                                                                   DTSBD371
03432  S005-ABSTIME.                                                    DTSBD371
03433      CALL 'DTSBU005' USING L005-LINK-AREA.                        DTSBD371
03434  S005-EXIT.                                                       DTSBD371
03435      EXIT.                                                        DTSBD371
03436      SKIP3                                                        DTSBD371
03437  S101-PER-MONTH-NO.                                               DTSBD371
03438      SET L101-PER-MONTH-NO-88 TO TRUE.                            DTSBD371
03439      GO TO S101-INT-COMP.                                         DTSBD371
03440                                                                   DTSBD371
03441  S101-INT-COMP.                                                   DTSBD371
03442      CALL 'DTSBU101' USING L101-LINK-AREA.                        DTSBD371
03443  S101-EXIT.                                                       DTSBD371
03444      EXIT.                                                        DTSBD371
03445      SKIP3                                                        DTSBD371
03446  S102-ORIGINAL-RPT.                                               DTSBD371
03447      SET L102-ORIGINAL-RPT-88 TO TRUE.                            DTSBD371
03448      GO TO S102-PEN-COMP.                                         DTSBD371
03449                                                                   DTSBD371
03450  S102-ESTIMATED-RPT.                                              DTSBD371
03451      SET L102-ESTIMATED-RPT-88 TO TRUE.                           DTSBD371
03452      GO TO S102-PEN-COMP.                                         DTSBD371
03453                                                                   DTSBD371
03454  S102-PEN-COMP.                                                   DTSBD371
03455      CALL 'DTSBU102' USING L102-LINK-AREA.                        DTSBD371
03456  S102-EXIT.                                                       DTSBD371
03457      EXIT.                                                        DTSBD371
03458      SKIP3                                                        DTSBD371
03459  S109-FIRST-PEN-INT-YRQ.                                          DTSBD371
03460      SET L109-CMND-PEN-INT-QTR-88 TO TRUE.                        DTSBD371
03461      GO TO S109-SUR-RATE.                                         DTSBD371
03462                                                                   DTSBD371
03463  S109-SUR-RATE.                                                   DTSBD371
03464      CALL 'DTSBU109' USING L109-LINK-AREA.                        DTSBD371
03465  S109-EXIT.                                                       DTSBD371
03466      EXIT.                                                        DTSBD371
03467      SKIP3                                                        DTSBD371
03468  S111-LOOKUP-ADDR.                                                DTSBD371
03469      MOVE MPRF-EMP-NO TO L111-EMP-NO.                             DTSBD371
03470                                                                   DTSBD371
03471      CALL 'DTSBU111' USING L111-LINK-AREA.                        DTSBD371
03472  S111-EXIT.                                                       DTSBD371
03473      EXIT.                                                        DTSBD371
03474      SKIP3                                                        DTSBD371
03475  S112-FORMAT-ADDR.                                                DTSBD371
03476      CALL 'DTSBU112' USING L112-LINK-AREA.                        DTSBD371
03477  S112-EXIT.                                                       DTSBD371
03478      EXIT.                                                        DTSBD371
03479      SKIP3                                                        DTSBD371
03480  S415-HOUSEHOLD-DATES.                                            DTSBD371
03481      CALL 'DTSBU415' USING L415-LINK-AREA.                        DTSBD371
03482  S415-EXIT.                                                       DTSBD371
03483      EXIT.                                                        DTSBD371
03484                                                                   DTSBD371
03485  S420A-WRITE-WAGE-TRANS.                                          DTSBD371
03486      SET L420-CMND-UPDATE-88   TO TRUE.                           DTSBD371
03487                                                                   DTSBD371
03488      CALL 'DTSBU420' USING L420-LINK-AREA.                        DTSBD371
03489                                                                   DTSBD371
03490  S420A-EXIT.                                                      DTSBD371
03491      EXIT.                                                        DTSBD371
03492                                                                   DTSBD371
03493  S420B-DELETE-WTC.                                                DTSBD371
03494      SET L420-CMND-DELETE-88   TO TRUE.                           DTSBD371
03495                                                                   DTSBD371
03496      CALL 'DTSBU420' USING L420-LINK-AREA.                        DTSBD371
03497                                                                   DTSBD371
03498  S420B-EXIT.                                                      DTSBD371
03499      EXIT.                                                        DTSBD371
03500                                                                   DTSBD371
03501  S424-CHECK-WAGE.                                                 DTSBD371
03502      SET L424-CMND-CHK-WG-88        TO TRUE.                      DTSBD371
03503      GO TO S424-WAGE-ADJ.                                         DTSBD371
03504                                                                   DTSBD371
03505  S424-CALC-ADJUST.                                                DTSBD371
03506      SET L424-CMND-PROCESS-88       TO TRUE.                      DTSBD371
03507      GO TO S424-WAGE-ADJ.                                         DTSBD371
03508                                                                   DTSBD371
03509  S424-WAGE-ADJ.                                                   DTSBD371
03510      CALL 'DTSBU424' USING L424-LINK-AREA.                        DTSBD371
03511                                                                   DTSBD371
03512  S424-EXIT.                                                       DTSBD371
03513      EXIT.                                                        DTSBD371
03514                                                                   DTSBD371
03515  S511-MQTR-INIT.                                                  DTSBD371
03516      CALL 'DTSBU511' USING MQTR-REC.                              DTSBD371
03517  S511-EXIT.                                                       DTSBD371
03518      EXIT.                                                        DTSBD371
03519      SKIP3                                                        DTSBD371
03520  S516-LIABILITY-INFO.                                             DTSBD371
03521      CALL 'DTSBU516' USING L516-LINK-AREA                         DTSBD371
03522                            MPRF-REC.                              DTSBD371
03523  S516-EXIT.                                                       DTSBD371
03524      EXIT.                                                        DTSBD371
03525      SKIP3                                                        DTSBD371
03526  S520-APPLY-CREDIT.                                               DTSBD371
03527      CALL 'DTSBU520' USING L520-LINK-AREA                         DTSBD371
03528                            LBCM-LINK-AREA                         DTSBD371
03529                            MPRF-REC.                              DTSBD371
03530  S520-EXIT.                                                       DTSBD371
03531      EXIT.                                                        DTSBD371
03532      SKIP3                                                        DTSBD371
03533  S522-REVERSE-PAID.                                               DTSBD371
03534      CALL 'DTSBU522' USING L522-LINK-AREA                         DTSBD371
03535                            LBCM-LINK-AREA                         DTSBD371
03536                            MPRF-REC                               DTSBD371
03537                            MQTR-REC.                              DTSBD371
03538  S522-EXIT.                                                       DTSBD371
03539      EXIT.                                                        DTSBD371
03540      SKIP3                                                        DTSBD371
03541  S541-MODIFY-AMT.                                                 DTSBD371
03542      MOVE ARPT-DOC-NO TO L541-TRN-DOC-NO.                         DTSBD371
03543                                                                   DTSBD371
03544      CALL 'DTSBU541' USING L541-LINK-AREA                         DTSBD371
03545                            MPRF-REC                               DTSBD371
03546                            MQTR-REC.                              DTSBD371
03547  S541-EXIT.                                                       DTSBD371
03548      EXIT.                                                        DTSBD371
03549      SKIP3                                                        DTSBD371
03550  S549-DELTA.                                                      DTSBD371
03551      SET L549-DELTA-88 TO TRUE.                                   DTSBD371
03552      GO TO S549-JOURNAL.                                          DTSBD371
03553                                                                   DTSBD371
03554  S549-JOURNAL.                                                    DTSBD371
03555      MOVE ARPT-DOC-NO TO L549-TRN-DOC-NO.                         DTSBD371
03556                                                                   DTSBD371
03557      CALL 'DTSBU549' USING L549-LINK-AREA.                        DTSBD371
03558  S549-EXIT.                                                       DTSBD371
03559      EXIT.                                                        DTSBD371
03560      SKIP3                                                        DTSBD371
03561  S590-QTR-TOL.                                                    DTSBD371
03562      SET L590-QTR-TOL-88 TO TRUE.                                 DTSBD371
03563      MOVE MQTR-YRQ TO L590-YRQ.                                   DTSBD371
03564      MOVE WRK-NULL-DOC-NO TO L590-PAY-DOC-NO.                     DTSBD371
03565      MOVE ARPT-DOC-NO TO L590-TOL-DOC-NO.                         DTSBD371
03566      GO TO S590-EMP-CLEANUP.                                      DTSBD371
03567                                                                   DTSBD371
03568  S590-ORIG-RPT.                                                   DTSBD371
03569      SET L590-ORIG-RPT-88 TO TRUE.                                DTSBD371
03570      MOVE MQTR-YRQ TO L590-YRQ.                                   DTSBD371
03571      MOVE WRK-NULL-DOC-NO TO L590-PAY-DOC-NO                      DTSBD371
03572                              L590-TOL-DOC-NO.                     DTSBD371
03573      GO TO S590-EMP-CLEANUP.                                      DTSBD371
03574                                                                   DTSBD371
03575  S590-QTR-PURSUED.                                                DTSBD371
03576      SET L590-QTR-PURSUED-88 TO TRUE.                             DTSBD371
03577      MOVE MQTR-YRQ TO L590-YRQ.                                   DTSBD371
03578      MOVE WRK-NULL-DOC-NO TO L590-PAY-DOC-NO                      DTSBD371
03579                              L590-TOL-DOC-NO.                     DTSBD371
03580      GO TO S590-EMP-CLEANUP.                                      DTSBD371
03581                                                                   DTSBD371
03582  S590-EMP-CLEANUP.                                                DTSBD371
03583      CALL 'DTSBU590' USING L590-LINK-AREA                         DTSBD371
03584                            LBCM-LINK-AREA                         DTSBD371
03585                            MPRF-REC.                              DTSBD371
03586  S590-EXIT.                                                       DTSBD371
03587      EXIT.                                                        DTSBD371
03588      SKIP3                                                        DTSBD371
03589  S910-READ.                                                       DTSBD371
03590      SET L910-READ-88 TO TRUE.                                    DTSBD371
03591      GO TO S910-MSTR-IO.                                          DTSBD371
03592                                                                   DTSBD371
03593  S910-START-BROWSE.                                               DTSBD371
03594      SET L910-START-BROWSE-88 TO TRUE.                            DTSBD371
03595      GO TO S910-MSTR-IO.                                          DTSBD371
03596                                                                   DTSBD371
03597  S910-READ-NEXT.                                                  DTSBD371
03598      SET L910-READ-NEXT-88 TO TRUE.                               DTSBD371
03599      GO TO S910-MSTR-IO.                                          DTSBD371
03600                                                                   DTSBD371
03601  S910-COUNT.                                                      DTSBD371
03602      SET L910-COUNT-88 TO TRUE.                                   DTSBD371
03603      GO TO S910-MSTR-IO.                                          DTSBD371
03604                                                                   DTSBD371
03605  S910-WRITE.                                                      DTSBD371
03606      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD371
03607      SET L910-WRITE-88 TO TRUE.                                   DTSBD371
03608      GO TO S910-MSTR-IO.                                          DTSBD371
03609                                                                   DTSBD371
03610  S910-REWRITE.                                                    DTSBD371
03611      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD371
03612      SET L910-REWRITE-88 TO TRUE.                                 DTSBD371
03613      GO TO S910-MSTR-IO.                                          DTSBD371
03614                                                                   DTSBD371
03615  S910-DELETE.                                                     DTSBD371
03616      SET LBCM-EMP-UPDATE-YES-88 TO TRUE.                          DTSBD371
03617      SET L910-DELETE-88 TO TRUE.                                  DTSBD371
03618      GO TO S910-MSTR-IO.                                          DTSBD371
03619                                                                   DTSBD371
03620  S910-MSTR-IO.                                                    DTSBD371
03621      CALL 'DTSBU910' USING L910-LINK-AREA                         DTSBD371
03622                            MSKL-REC.                              DTSBD371
03623  S910-EXIT.                                                       DTSBD371
03624      EXIT.                                                        DTSBD371
03625      SKIP3                                                        DTSBD371
03626  S946-R316-WRITE.                                                 DTSBD371
03627      CALL 'DTSBU946' USING R316-REC.                              DTSBD371
03628      GO TO S946-EXIT.                                             DTSBD371
03629                                                                   DTSBD371
03630  S946-R726-WRITE.                                                 DTSBD371
03631      CALL 'DTSBU946' USING R726-REC.                              DTSBD371
03632      GO TO S946-EXIT.                                             DTSBD371
03633                                                                   DTSBD371
03634  S946-R907-WRITE.                                                 DTSBD371
03635      CALL 'DTSBU946' USING R907-REC.                              DTSBD371
03636      GO TO S946-EXIT.                                             DTSBD371
03637                                                                   DTSBD371
03638  S946-EXIT.                                                       DTSBD371
03639      EXIT.                                                        DTSBD371
03640      SKIP3                                                        DTSBD371
03641  S999-ABEND.                                                      DTSBD371
03642      CALL 'DTSBU999' USING WRK-ABEND-CD.                          DTSBD371
03643  S999-EXIT.                                                       DTSBD371
03644      EXIT.                                                        DTSBD371
