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