giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
ca3572c5dfa2d2f7aa129881cbdfdb422c1fc30f
DUTAS/Batch/DTSBD373.cob
Neeraj Kumar ca3572c5df DUTAS re-platformed to Raincode - Initial Source Code
2025-07-21 11:20:11 -04:00

2684 lines
212 KiB
COBOL
Raw Blame History

00001 IDENTIFICATION DIVISION. 05/20/13
00002 PROGRAM-ID. DTSBD373. DTSBD373
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV033
00004 DATE-WRITTEN. JANUARY 1991. DTSBD373
00005 DATE-COMPILED. DTSBD373
00006 SKIP3 DTSBD373
00007 ***** DTSBD373
00008 * DTSBD373
00009 * FUNCTION: ADJUSTMENT TRANSACTION PROCESSING. DTSBD373
00010 * DTSBD373
00011 * DTSBD373
00012 * MODIFICATION LOG: DTSBD373
00013 * DTSBD373
00014 * 01/25/92 INITIAL DEVELOPMENT. DTSBD373
00015 * WORK ORDER: PROGRAMMER: TCL DTSBD373
00016 * DTSBD373
00017 * 05/25/95 PROJECT PENALTY AND INTEREST BEFORE WRITE OFF. DTSBD373
00018 * WORK ORDER: CR083 PROGRAMMER: RHC DTSBD373
00019 * DTSBD373
00020 * 06/13/95 CHANGE TO CREDIT TOLERANCE LOGIC REMOVES IT FROM DTSBD373
00021 * THIS PROGRAM. DTSBD373
00022 * WORK ORDER: CR094 PROGRAMMER: RHC DTSBD373
00023 * DTSBD373
00024 * 01/05/1999 REVIEWED AND MODIFIED FOR DC. DTSBD373
00025 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD373
00026 * DTSBD373
00027 * 02/27/1999 MODIFIED FOR DC SELF INSURED EMPLOYER TAX DUE DTSBD373
00028 * DATE REQUIREMENT. DTSBD373
00029 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD373
00030 * DTSBD373
00031 * 03/27/1999 MODIFIED TO WRITE A MEVL RECORD OCCURRENCE DTSBD373
00032 * WHEN SETTING MQTR-WAGE-RPT-NO-88 TO TRUE. DTSBD373
00033 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD373
00034 * DTSBD373
00035 * 05/15/1999 PICKUP RELATED EDITS AND PICKUP MQTR DTSBD373
00036 * INITIALIZATION LOGIC ADDED. DTSBD373
00037 * REFERENCE: PICKUP DIR PROGRAMMER: EHH DTSBD373
00038 * DTSBD373
00039 * 08/14/2002 MODIFIED TO REJECT TRANSACTION IF QUARTER DTSBD373
00040 * ADDED BUT RATE IS ESTIMATED. DTSBD373
00041 * REFERENCE: HOUSEHOLD PROGRAMMER: GD DTSBD373
00042 * DTSBD373
00043 * 11/24/2003 UPDATED CALL TO DTSBU520 - INITIALIZE NEW DTSBD373
00044 * LINKAGE DATA ELEMENTS DTSBD373
00045 * REFERENCE: HOUSEHOLD PROGRAMMER: GD DTSBD373
00046 * DTSBD373
00047 * 05/10/2004 MODIFIED P1200-WAIVE-EDIT TO ALLOW WAIVER OF DTSBD373
00048 * UI TAX IF AADJ-CMP-ESTB-ABSTIME > ZERO. DTSBD373
00049 * MODIFIED S9100 TO UPDATE AADJ-CMP-ESTB-ABSTIME. DTSBD373
00050 * REFERENCE: COMPROMISE PROGRAMMER: GD DTSBD373
00051 * DTSBD373
00052 * 10/07/2005 REMOVED CODE IN P4300 THAT WROTE MEVL RECORDS DTSBD373
00053 * BASED ON MQTR-WAGE-RPT-IND. THE MEANING OF THIS DTSBD373
00054 * INDICATOR HAS CHANGED, AND IT NOW SPECIFIES DTSBD373
00055 * WHETHER THE WAGES WERE SUBMITTED ON MAG MEDIA. DTSBD373
00056 * REFERENCE: PROGRAMMER: GD DTSBD373
00057 * DTSBD373
00058 * 02/21/2006 MODIFIED INTEREST CALCULATION - ONLY UI TAX DTSBD373
00059 * BALANCE IS USED. P1122, P1123, P4110, S4110. DTSBD373
00060 * REFERENCE: ADMIN ASSESSMENT PROGRAMMER: GD DTSBD373
00061 * DTSBD373
00062 * 02/21/2006 ADJUSTMENT OF ADMIN ASSESSMENT ALLOWED ONLY DTSBD373
00063 * FOR SELF-INSURED. P1110, P1120. DTSBD373
00064 * REFERENCE: ADMIN ASSESSMENT PROGRAMMER: GD DTSBD373
00065 * DTSBD373
00066 * 01/31/2008 MODIFIED ADMINISTRATIVE ASSESSMENT PROCESS DTSBD373
00067 * TO INCLUDE PENALTY AND INTEREST CALCULATION DTSBD373
00068 * STARTING WITH 2008/1. DTSBD373
00069 * REFERENCE: ADMIN ASSESS PROGRAMMER: RW1 DTSBD373
00070 * DTSBD373
00071 * 08/14/2012 ADDED P4400-FILING-SCHEDULE FOR ADJUSTMENTS DTSBD373
00072 * OF FILING SCHEDULE AND DUE DATES. DTSBD373
00073 * REFERENCE: PROGRAMMER: GD DTSBD373
00074 * DTSBD373
00075 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD373
00076 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD373
00077 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBD373
00078 * DTSBD373
00079 * DTSBD373
00080 * DESCRIPTION: DTSBD373
00081 * DTSBD373
00082 * PROCESS ACCOUNTING ADJUSTMENT TRANSACTIONS. DTSBD373
00083 * DTSBD373
00084 * DTSBD373
00085 * MASTER FILE RECORDS READ: DTSBD373
00086 * DTSBD373
00087 * MQTR DTSBD373
00088 * DTSBD373
00089 * DTSBD373
00090 * MASTER FILE RECORDS UPDATED: DTSBD373
00091 * DTSBD373
00092 * MQTR (WRITE, REWRITE) DTSBD373
00093 * DTSBD373
00094 * DTSBD373
00095 * REPORT RECORDS WRITTEN: DTSBD373
00096 * DTSBD373
00097 * R907 ERROR. DTSBD373
00098 * DTSBD373
00099 * DTSBD373
00100 * MODULES CALLED: DTSBD373
00101 * DTSBD373
00102 * DTSBU101 PROJECT PENALTY AND INTEREST. DTSBD373
00103 * DTSBU511 INITIALIZE A MQTR RECORD. DTSBD373
00104 * DTSBU516 DETERMINE LIABILITY, DUE DATE, AND RATE FOR DTSBD373
00105 * A GIVEN QUARTER. DTSBD373
00106 * DTSBU520 PAYMENT APPLICATION. DTSBD373
00107 * DTSBU522 RETURN A PAID AMOUNT TO UNAPPLIED CREDIT. DTSBD373
00108 * DTSBU541 MODIFY A SPECIFIED CHARGED, WAIVED, TOLERATED DTSBD373
00109 * OR WRITTEN OFF AMOUNT. DTSBD373
00110 * DTSBU590 EMPLOYER CLEANUP. DTSBD373
00111 * DTSBU910 MASTER FILE I/O. DTSBD373
00112 * DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1. DTSBD373
00113 * DTSBD373
00114 * DTSBD373
00115 ***** DTSBD373
00116 SKIP3 DTSBD373
00117 ENVIRONMENT DIVISION. DTSBD373
00118 EJECT DTSBD373
00119 DATA DIVISION. DTSBD373
00120 SKIP3 DTSBD373
00121 WORKING-STORAGE SECTION. DTSBD373
001215 77 PAN-VALET PICTURE X(24) VALUE '033DTSBD373 05/20/13'. DTSBD373
00122 77 PAN-VALET PICTURE X(24) VALUE '004DTSBD373 01/11/13'. DTSBD373
00123 SKIP3 DTSBD373
00124 01 WRK-AREA. DTSBD373
00125 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +373.DTSBD373
00126 DTSBD373
00127 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD373'.DTSBD373
00128 DTSBD373
00129 05 ALL-NINES-DATE PIC S9(09) COMP-3 DTSBD373
00130 VALUE +999999999.DTSBD373
00131 DTSBD373
00132 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBD373
00133 DTSBD373
00134 DTSBD373
00135 05 WRK-NULL-DOC-NO. DTSBD373
00136 10 WRK-NULL-BATCH-NO PIC S9(05) COMP-3. DTSBD373
00137 10 WRK-NULL-ITEM-NO PIC S9(03) COMP-3. DTSBD373
00138 DTSBD373
00139 DTSBD373
00140 05 WRK-CREDIT-AMT PIC S9(09)V9(02) COMP-3. DTSBD373
00141 DTSBD373
00142 05 WRK-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSBD373
00143 DTSBD373
00144 05 WRK-WAIVED-AMT PIC S9(09)V9(02) COMP-3. DTSBD373
00145 DTSBD373
00146 05 WRK-TOLER-AMT PIC S9(09)V9(02) COMP-3. DTSBD373
00147 DTSBD373
00148 05 WRK-BALANCE-AMT PIC S9(09)V9(02) COMP-3. DTSBD373
00149 DTSBD373
00150 05 WRK-DELINQUENT-YRQ PIC S9(05) COMP-3. DTSBD373
00151 DTSBD373
00152 05 WRK-RPT-DUE-DATE PIC S9(09) COMP-3. DTSBD373
00153 DTSBD373
00154 05 WRK-CURR-ANN-YRQ PIC 9(05) VALUE ZERO. DTSBD373
00155 05 FILLER REDEFINES WRK-CURR-ANN-YRQ. DTSBD373
00156 10 WRK-CURR-ANN-YR PIC 9(04). DTSBD373
00157 10 FILLER PIC X(01). DTSBD373
00158 DTSBD373
00159 05 WRK-ANNUAL-SCHED-IND PIC X(01). DTSBD373
00160 88 WRK-ANNUAL-SCHED-YES-88 VALUE 'Y'. DTSBD373
00161 88 WRK-ANNUAL-SCHED-NO-88 VALUE 'N'. DTSBD373
00162 DTSBD373
00163 05 WRK-MQTR-EXISTS-IND PIC X(01). DTSBD373
00164 DTSBD373
00165 05 WRK-MDST-EXISTS-IND PIC X(01). DTSBD373
00166 DTSBD373
00167 05 WRK-PURSUED-RPT-IND PIC X(01). DTSBD373
00168 DTSBD373
00169 05 WRK-TRIGGER-DATE PIC S9(09) COMP-3. DTSBD373
00170 DTSBD373
00171 05 WRK-ACCT-IND PIC X(02). DTSBD373
00172 DTSBD373
00173 05 WRK-ACCT-SUB PIC S9(04) COMP. DTSBD373
00174 DTSBD373
00175 05 NEW-TAX-DUE-DATE PIC S9(09) COMP-3. DTSBD373
00176 DTSBD373
00177 05 NEW-RPT-DUE-DATE PIC S9(09) COMP-3. DTSBD373
00178 DTSBD373
00179 05 ACCT-CRUNCH-COMPLETE-IND PIC X(01). DTSBD373
00180 DTSBD373
00181 05 ACCT-SUB PIC S9(04) COMP. DTSBD373
00182 DTSBD373
00183 05 ACCT-SUB1 PIC S9(04) COMP. DTSBD373
00184 DTSBD373
00185 05 ACCT-SUB2 PIC S9(04) COMP. DTSBD373
00186 DTSBD373
00187 *****05 WRK-LATE-PEN-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSBD373
00188 DTSBD373
00189 05 WRK-INT-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSBD373
00190 DTSBD373
00191 05 EVL-TEXT PIC X(50). DTSBD373
00192 DTSBD373
00193 05 WRK-FIRST-PEN-INT-YRQ PIC S9(05) COMP-3. DTSBD373
00194 DTSBD373
00195 05 WRK-FIRST-ANN-QTR PIC 9(05) DTSBD373
00196 VALUE 20021. DTSBD373
00197 DTSBD373
00198 01 MSG-TABLE. DTSBD373
00199 05 MSG1-INVALID-TRN-CD. DTSBD373
00200 10 MSG1-ID PIC X(11) VALUE 'DTSBD373331'. DTSBD373
00201 10 MSG1-SHORT-TEXT PIC X(20) VALUE 'INVALID ADJ TY'. DTSBD373
00202 10 MSG1-LONG-TEXT. DTSBD373
00203 15 FILLER PIC X(30) DTSBD373
00204 VALUE 'TRANSACTION FAILED - ADJUSTMEN'. DTSBD373
00205 15 FILLER PIC X(30) DTSBD373
00206 VALUE 'T TYPE NOT VALID '. DTSBD373
00207 DTSBD373
00208 05 MSG2-DUPLICATE-TRAN. DTSBD373
00209 10 MSG2-ID PIC X(11) VALUE 'DTSBD373307'. DTSBD373
00210 10 MSG2-SHORT-TEXT PIC X(20) VALUE 'DUPLICATE TRAN'. DTSBD373
00211 10 MSG2-LONG-TEXT. DTSBD373
00212 15 FILLER PIC X(30) DTSBD373
00213 VALUE 'TRANSACTION FAILED - DUPLICATE'. DTSBD373
00214 15 FILLER PIC X(30) DTSBD373
00215 VALUE 'TRANSACTION '. DTSBD373
00216 DTSBD373
00217 05 MSG3-CHARGED-AMT. DTSBD373
00218 10 MSG3-ID PIC X(11) VALUE 'DTSBD373333'. DTSBD373
00219 10 MSG3-SHORT-TEXT PIC X(20) VALUE 'CHRG AMT INVLD'. DTSBD373
00220 10 MSG3-LONG-TEXT. DTSBD373
00221 15 FILLER PIC X(30) DTSBD373
00222 VALUE 'TRANSACTION FAILED - YIELDS IN'. DTSBD373
00223 15 FILLER PIC X(30) DTSBD373
00224 VALUE 'VALID CHARGED AMOUNT '. DTSBD373
00225 DTSBD373
00226 05 MSG4-INCONSISTENT-CHARGE. DTSBD373
00227 10 MSG4-ID PIC X(11) VALUE 'DTSBD373334'. DTSBD373
00228 10 MSG4-SHORT-TEXT PIC X(20) VALUE 'INVALID CHARGE'. DTSBD373
00229 10 MSG4-LONG-TEXT. DTSBD373
00230 15 FILLER PIC X(30) DTSBD373
00231 VALUE 'TRANSACTION FAILED - CHARGE IS'. DTSBD373
00232 15 FILLER PIC X(30) DTSBD373
00233 VALUE 'NOT VALID '. DTSBD373
00234 DTSBD373
00235 05 MSG5-TOLER-AMT. DTSBD373
00236 10 MSG5-ID PIC X(11) VALUE 'DTSBD373335'. DTSBD373
00237 10 MSG5-SHORT-TEXT PIC X(20) VALUE 'TOLR AMT INVLD'. DTSBD373
00238 10 MSG5-LONG-TEXT. DTSBD373
00239 15 FILLER PIC X(30) DTSBD373
00240 VALUE 'TRANSACTION FAILED - YIELDS IN'. DTSBD373
00241 15 FILLER PIC X(30) DTSBD373
00242 VALUE 'VALID TOLERANCE AMOUNT '. DTSBD373
00243 DTSBD373
00244 05 MSG6-INVALID-YRQ. DTSBD373
00245 10 MSG6-ID PIC X(11) VALUE 'DTSBD373336'. DTSBD373
00246 10 MSG6-SHORT-TEXT PIC X(20) VALUE 'INVALID YRQ '. DTSBD373
00247 10 MSG6-LONG-TEXT. DTSBD373
00248 15 FILLER PIC X(30) DTSBD373
00249 VALUE 'TRANSACTION FAILED - YRQ IS NO'. DTSBD373
00250 15 FILLER PIC X(30) DTSBD373
00251 VALUE 'T VALID '. DTSBD373
00252 DTSBD373
00253 05 MSG7-INVALID-PAYMENT. DTSBD373
00254 10 MSG7-ID PIC X(11) VALUE 'DTSBD373337'. DTSBD373
00255 10 MSG7-SHORT-TEXT PIC X(20) VALUE 'INVALID DOC NO'. DTSBD373
00256 10 MSG7-LONG-TEXT. DTSBD373
00257 15 FILLER PIC X(30) DTSBD373
00258 VALUE 'TRANSACTION FAILED - PAYMENT D'. DTSBD373
00259 15 FILLER PIC X(30) DTSBD373
00260 VALUE 'OC NO NOT VALID '. DTSBD373
00261 DTSBD373
00262 05 MSG8-INVALID-APPLIC-IND. DTSBD373
00263 10 MSG8-ID PIC X(11) VALUE 'DTSBD373338'. DTSBD373
00264 10 MSG8-SHORT-TEXT PIC X(20) VALUE 'INVALID APPLIC'. DTSBD373
00265 10 MSG8-LONG-TEXT. DTSBD373
00266 15 FILLER PIC X(30) DTSBD373
00267 VALUE 'TRANSACTION FAILED - INVALID A'. DTSBD373
00268 15 FILLER PIC X(30) DTSBD373
00269 VALUE 'PPLIC INDICATOR '. DTSBD373
00270 DTSBD373
00271 05 MSG9-DOES-NOT-EXIST. DTSBD373
00272 10 MSG9-ID PIC X(11) VALUE 'DTSBD373339'. DTSBD373
00273 10 MSG9-SHORT-TEXT PIC X(20) VALUE 'DOES NOT EXIST'. DTSBD373
00274 10 MSG9-LONG-TEXT. DTSBD373
00275 15 FILLER PIC X(30) DTSBD373
00276 VALUE 'TRANSACTION FAILED - NOTHING F'. DTSBD373
00277 15 FILLER PIC X(30) DTSBD373
00278 VALUE 'OUND TO MODIFY '. DTSBD373
00279 DTSBD373
00280 05 MSG10-INVALID-INT-SPAN-IND. DTSBD373
00281 10 MSG10-ID PIC X(11) VALUE 'DTSBD373341'. DTSBD373
00282 10 MSG10-SHORT-TEXT PIC X(20) VALUE 'INVAID INT SPA'. DTSBD373
00283 10 MSG10-LONG-TEXT. DTSBD373
00284 15 FILLER PIC X(30) DTSBD373
00285 VALUE 'TRANSACTION FAILED - INVALID I'. DTSBD373
00286 15 FILLER PIC X(30) DTSBD373
00287 VALUE 'NTEREST SPAN '. DTSBD373
00288 DTSBD373
00289 05 MSG11-WAIVED-AMT. DTSBD373
00290 10 MSG11-ID PIC X(11) VALUE 'DTSBD373342'. DTSBD373
00291 10 MSG11-SHORT-TEXT PIC X(20) VALUE 'WAIV AMT INVLD'. DTSBD373
00292 10 MSG11-LONG-TEXT. DTSBD373
00293 15 FILLER PIC X(30) DTSBD373
00294 VALUE 'TRANSACTION FAILED - YIELDS IN'. DTSBD373
00295 15 FILLER PIC X(30) DTSBD373
00296 VALUE 'VALID WAIVED AMOUNT '. DTSBD373
00297 DTSBD373
00298 05 MSG12-ALREADY-WRITTEN-OFF. DTSBD373
00299 10 MSG12-ID PIC X(11) VALUE 'DTSBD373343'. DTSBD373
00300 10 MSG12-SHORT-TEXT PIC X(20) VALUE 'ALREADY WR OFF'. DTSBD373
00301 10 MSG12-LONG-TEXT. DTSBD373
00302 15 FILLER PIC X(30) DTSBD373
00303 VALUE 'TRANSACTION FAILED - EMPLOYER '. DTSBD373
00304 15 FILLER PIC X(30) DTSBD373
00305 VALUE 'IS ALREADY WRITTEN OFF '. DTSBD373
00306 DTSBD373
00307 05 MSG13-NO-COLLECTIONS. DTSBD373
00308 10 MSG13-ID PIC X(11) VALUE 'DTSBD373344'. DTSBD373
00309 10 MSG13-SHORT-TEXT PIC X(20) VALUE 'NO DEBIT '. DTSBD373
00310 10 MSG13-LONG-TEXT. DTSBD373
00311 15 FILLER PIC X(30) DTSBD373
00312 VALUE 'TRANSACTION FAILED - NO DEBIT;'. DTSBD373
00313 15 FILLER PIC X(30) DTSBD373
00314 VALUE ' PURSUED RPT; OR CREDIT '. DTSBD373
00315 DTSBD373
00316 05 MSG14-NOT-WRITTEN-OFF. DTSBD373
00317 10 MSG14-ID PIC X(11) VALUE 'DTSBD373345'. DTSBD373
00318 10 MSG14-SHORT-TEXT PIC X(20) VALUE 'NOT WR OFF'. DTSBD373
00319 10 MSG14-LONG-TEXT. DTSBD373
00320 15 FILLER PIC X(30) DTSBD373
00321 VALUE 'TRANSACTION FAILED - EMPLOYER '. DTSBD373
00322 15 FILLER PIC X(30) DTSBD373
00323 VALUE 'NOT WRITTEN OFF '. DTSBD373
00324 DTSBD373
00325 05 MSG15-NOT-SELF-INSURED. DTSBD373
00326 10 MSG15-ID PIC X(11) VALUE 'DTSBD373346'. DTSBD373
00327 10 MSG15-SHORT-TEXT PIC X(20) VALUE 'NOT SELF INS'. DTSBD373
00328 10 MSG15-LONG-TEXT. DTSBD373
00329 15 FILLER PIC X(30) DTSBD373
00330 VALUE 'TRANSACTION FAILED - NOT A SEL'. DTSBD373
00331 15 FILLER PIC X(30) DTSBD373
00332 VALUE 'F INSURED EMPLOYER '. DTSBD373
00333 DTSBD373
00334 05 MSG16-ALREADY-MANUAL. DTSBD373
00335 10 MSG16-ID PIC X(11) VALUE 'DTSBD373347'. DTSBD373
00336 10 MSG16-SHORT-TEXT PIC X(20) VALUE 'ALREADY MANUAL'. DTSBD373
00337 10 MSG16-LONG-TEXT. DTSBD373
00338 15 FILLER PIC X(30) DTSBD373
00339 VALUE 'TRANSACTION FAILED - ALREADY M'. DTSBD373
00340 15 FILLER PIC X(30) DTSBD373
00341 VALUE 'ANUAL '. DTSBD373
00342 DTSBD373
00343 05 MSG17-NOT-MANUAL. DTSBD373
00344 10 MSG17-ID PIC X(11) VALUE 'DTSBD373348'. DTSBD373
00345 10 MSG17-SHORT-TEXT PIC X(20) VALUE 'NOT MANUAL '. DTSBD373
00346 10 MSG17-LONG-TEXT. DTSBD373
00347 15 FILLER PIC X(30) DTSBD373
00348 VALUE 'TRANSACTION FAILED - NOT MANUA'. DTSBD373
00349 15 FILLER PIC X(30) DTSBD373
00350 VALUE 'L '. DTSBD373
00351 DTSBD373
00352 05 MSG18-NOT-TAXABLE. DTSBD373
00353 10 MSG18-ID PIC X(11) VALUE 'DTSBD373349'. DTSBD373
00354 10 MSG18-SHORT-TEXT PIC X(20) VALUE 'NOT TAXABLE '. DTSBD373
00355 10 MSG18-LONG-TEXT. DTSBD373
00356 15 FILLER PIC X(30) DTSBD373
00357 VALUE 'TRANSACTION FAILED - NOT A TAX'. DTSBD373
00358 15 FILLER PIC X(30) DTSBD373
00359 VALUE 'ABLE EMPLOYER '. DTSBD373
00360 DTSBD373
00361 05 MSG19-ACTIVE. DTSBD373
00362 10 MSG19-ID PIC X(11) VALUE 'DTSBD373350'. DTSBD373
00363 10 MSG19-SHORT-TEXT PIC X(20) VALUE 'ACTIVE '. DTSBD373
00364 10 MSG19-LONG-TEXT. DTSBD373
00365 15 FILLER PIC X(30) DTSBD373
00366 VALUE 'TRANSACTION FAILED - EMPLOYER '. DTSBD373
00367 15 FILLER PIC X(30) DTSBD373
00368 VALUE 'IS ACTIVE '. DTSBD373
00369 DTSBD373
00370 05 MSG20-EXTEND-TAX-DUE-DATE. DTSBD373
00371 10 MSG20-ID PIC X(11) VALUE 'DTSBD373351'. DTSBD373
00372 10 MSG20-SHORT-TEXT PIC X(20) VALUE 'EXTEND TAX DUE'. DTSBD373
00373 10 MSG20-LONG-TEXT. DTSBD373
00374 15 FILLER PIC X(30) DTSBD373
00375 VALUE 'TRANSACTION FAILED - TAX DUE M'. DTSBD373
00376 15 FILLER PIC X(30) DTSBD373
00377 VALUE 'AY NOT BE EXTENDED '. DTSBD373
00378 DTSBD373
00379 05 MSG21-INVALID-APPLIC-YRQ. DTSBD373
00380 10 MSG21-ID PIC X(11) VALUE 'DTSBD373352'. DTSBD373
00381 10 MSG21-SHORT-TEXT PIC X(20) DTSBD373
00382 VALUE 'APPLIC YRQ < PICKUP'. DTSBD373
00383 10 MSG21-LONG-TEXT. DTSBD373
00384 15 FILLER PIC X(30) DTSBD373
00385 VALUE 'TRANSACTION FAILED - APPLICABL'. DTSBD373
00386 15 FILLER PIC X(30) DTSBD373
00387 VALUE 'E YRQ < PICKUP YRQ (1992/4) '. DTSBD373
00388 DTSBD373
00389 05 MSG22-ESTIMATED-RATE. DTSBD373
00390 10 MSG22-ID PIC X(11) VALUE 'DTSBD373353'. DTSBD373
00391 10 MSG22-SHORT-TEXT PIC X(20) DTSBD373
00392 VALUE 'ESTIMATED RATE '. DTSBD373
00393 10 MSG22-LONG-TEXT. DTSBD373
00394 15 FILLER PIC X(30) DTSBD373
00395 VALUE 'TRANSACTION FAILED - APPLICABL'. DTSBD373
00396 15 FILLER PIC X(30) DTSBD373
00397 VALUE 'E YRQ HAS ESTIMATED RATE '. DTSBD373
00398 EJECT DTSBD373
00399 01 EVL-TABLE. DTSBD373
00400 05 EVL1-TEXT. DTSBD373
00401 10 FILLER PIC X(45) DTSBD373
00402 VALUE 'REPORT RCVD WITHOUT USEABLE WAGE DATA. YRQ: '. DTSBD373
00403 10 EVL1-SLASH-QTR PIC X(04). DTSBD373
00404 EJECT DTSBD373
00405 01 R907-REC. DTSBD373
00406 ++INCLUDE DTSIR907 DTSBD373
00407 EJECT DTSBD373
00408 01 L910-LINK-AREA. DTSBD373
00409 ++INCLUDE DTSIL910 DTSBD373
00410 SKIP3 DTSBD373
00411 01 MSKL-REC. DTSBD373
00412 ++INCLUDE DTSIMSKL DTSBD373
00413 SKIP3 DTSBD373
00414 01 MQTR-REC. DTSBD373
00415 ++INCLUDE DTSIMQTR DTSBD373
00416 SKIP3 DTSBD373
00417 01 MADJ-REC. DTSBD373
00418 ++INCLUDE DTSIMADJ DTSBD373
00419 SKIP3 DTSBD373
00420 01 MDST-REC. DTSBD373
00421 ++INCLUDE DTSIMDST DTSBD373
00422 SKIP3 DTSBD373
00423 01 MTCK-REC. DTSBD373
00424 ++INCLUDE DTSIMTCK DTSBD373
00425 SKIP3 DTSBD373
00426 01 MEVL-REC. DTSBD373
00427 ++INCLUDE DTSIMEVL DTSBD373
00428 EJECT DTSBD373
00429 01 L001-LINK-AREA. DTSBD373
00430 ++INCLUDE DTSIL001 DTSBD373
00431 SKIP3 DTSBD373
00432 01 L004-LINK-AREA. DTSBD373
00433 ++INCLUDE DTSIL004 DTSBD373
00434 SKIP3 DTSBD373
00435 01 L005-LINK-AREA. DTSBD373
00436 ++INCLUDE DTSIL005 DTSBD373
00437 SKIP3 DTSBD373
00438 01 L101-LINK-AREA. DTSBD373
00439 ++INCLUDE DTSIL101 DTSBD373
00440 SKIP3 DTSBD373
00441 01 L109-LINK-AREA. DTSBD373
00442 ++INCLUDE DTSIL109 DTSBD373
00443 SKIP3 DTSBD373
00444 01 L415-LINK-AREA. DTSBD373
00445 ++INCLUDE DTSIL415 DTSBD373
00446 SKIP3 DTSBD373
00447 01 L516-LINK-AREA. DTSBD373
00448 ++INCLUDE DTSIL516 DTSBD373
00449 SKIP3 DTSBD373
00450 01 L520-LINK-AREA. DTSBD373
00451 ++INCLUDE DTSIL520 DTSBD373
00452 SKIP3 DTSBD373
00453 01 L522-LINK-AREA. DTSBD373
00454 ++INCLUDE DTSIL522 DTSBD373
00455 SKIP3 DTSBD373
00456 01 L530-LINK-AREA. DTSBD373
00457 ++INCLUDE DTSIL530 DTSBD373
00458 SKIP3 DTSBD373
00459 01 L541-LINK-AREA. DTSBD373
00460 ++INCLUDE DTSIL541 DTSBD373
00461 SKIP3 DTSBD373
00462 01 L542-LINK-AREA. DTSBD373
00463 ++INCLUDE DTSIL542 DTSBD373
00464 SKIP3 DTSBD373
00465 01 L590-LINK-AREA. DTSBD373
00466 ++INCLUDE DTSIL590 DTSBD373
00467 EJECT DTSBD373
00468 01 CACT-LITERALS. DTSBD373
00469 ++INCLUDE DTSICACT DTSBD373
00470 SKIP3 DTSBD373
00471 01 MMAX-LITERALS. DTSBD373
00472 ++INCLUDE DTSIMMAX DTSBD373
00473 EJECT DTSBD373
00474 LINKAGE SECTION. DTSBD373
00475 SKIP3 DTSBD373
00476 01 LBCM-LINK-AREA. DTSBD373
00477 ++INCLUDE DTSILBCM DTSBD373
00478 EJECT DTSBD373
00479 01 MPRF-REC. DTSBD373
00480 ++INCLUDE DTSIMPRF DTSBD373
00481 EJECT DTSBD373
00482 01 AADJ-REC. DTSBD373
00483 ++INCLUDE DTSIAADJ DTSBD373
00484 EJECT DTSBD373
00485 PROCEDURE DIVISION USING LBCM-LINK-AREA DTSBD373
00486 MPRF-REC DTSBD373
00487 AADJ-REC. DTSBD373
00488 DTSBD373
00489 DTSBD373
00490 IF FIRST-TIME-IND = 'Y' DTSBD373
00491 PERFORM I0000-FIRST-TIME THRU I0000-EXIT DTSBD373
00492 MOVE 'N' TO FIRST-TIME-IND. DTSBD373
00493 DTSBD373
00494 DTSBD373
00495 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBD373
00496 DTSBD373
00497 DTSBD373
00498 GOBACK. DTSBD373
00499 EJECT DTSBD373
00500 I0000-FIRST-TIME. DTSBD373
00501 MOVE LBCM-TRACE-IND TO L910-TRACE-IND DTSBD373
00502 L516-TRACE-IND. DTSBD373
00503 DTSBD373
00504 MOVE WRK-MOD-NAME TO L910-MOD-NAME DTSBD373
00505 R907-MODULE-NAME. DTSBD373
00506 DTSBD373
00507 MOVE LENGTH OF R907-REC TO R907-LENGTH. DTSBD373
00508 DTSBD373
00509 MOVE +0 TO WRK-NULL-BATCH-NO DTSBD373
00510 WRK-NULL-ITEM-NO DTSBD373
00511 WRK-CURR-ANN-YRQ. DTSBD373
00512 DTSBD373
00513 SET L415-MODE-MOST-RECENT-88 TO TRUE. DTSBD373
00514 PERFORM S415-ANNUAL-DATES THRU S415-EXIT. DTSBD373
00515 DTSBD373
00516 PERFORM S109-FIRST-PEN-INT-YRQ THRU S109-EXIT. DTSBD373
00517 MOVE L109-FIRST-PEN-INT-YRQ TO WRK-FIRST-PEN-INT-YRQ. DTSBD373
00518 DTSBD373
00519 I0000-EXIT. DTSBD373
00520 EXIT. DTSBD373
00521 EJECT DTSBD373
00522 P0000-PROCESS. DTSBD373
00523 MOVE MPRF-EMP-NO TO R907-EMP-NO. DTSBD373
00524 DTSBD373
00525 DTSBD373
00526 PERFORM P1000-EDIT THRU P1000-EXIT. DTSBD373
00527 DTSBD373
00528 IF LBCM-TRN-NOT-OK-88 DTSBD373
00529 GO TO P0000-EXIT. DTSBD373
00530 DTSBD373
00531 DTSBD373
00532 PERFORM P3000-UPDATE THRU P3000-EXIT. DTSBD373
00533 DTSBD373
00534 DTSBD373
00535 SET L520-NO-PREF-88 TO TRUE. DTSBD373
00536 DTSBD373
00537 MOVE WRK-NULL-DOC-NO TO L520-PREF-PAY-DOC-NO. DTSBD373
00538 DTSBD373
00539 MOVE +0 TO L520-PREF-APPLIC-YRQ. DTSBD373
00540 DTSBD373
00541 MOVE SPACES TO L520-PREF-APPLIC-IND. DTSBD373
00542 DTSBD373
00543 SET L520-ANNUAL-RPT-NULL-88 TO TRUE. DTSBD373
00544 DTSBD373
00545 MOVE ZERO TO L520-WITHDRAW-ANN-YRQ. DTSBD373
00546 DTSBD373
00547 SET L520-LAST-ANN-QTR-NULL-88 TO TRUE. DTSBD373
00548 DTSBD373
00549 *** MOVE WRK-FIRST-PEN-INT-YRQ TO L520-FIRST-PEN-INT-YRQ. DTSBD373
00550 DTSBD373
00551 PERFORM S520-APPLY-CREDIT THRU S520-EXIT. DTSBD373
00552 *** DISPLAY 'S520- EMP NO ' MPRF-EMP-NO 'DOC NO ' AADJ-DOC-NO. DTSBD373
00553 P0000-EXIT. DTSBD373
00554 EXIT. DTSBD373
00555 EJECT DTSBD373
00556 P1000-EDIT. DTSBD373
00557 MOVE LOW-VALUES TO MADJ-KEY-AREA. DTSBD373
00558 * DTSBD373
00559 * DISPLAY 'P1000- EMP NO ' MPRF-EMP-NO 'DOC NO ' AADJ-DOC-NO. DTSBD373
00560 * DTSBD373
00561 MOVE MPRF-EMP-NO TO MADJ-EMP-NO. DTSBD373
00562 DTSBD373
00563 SET MADJ-ADJ-88 TO TRUE. DTSBD373
00564 DTSBD373
00565 MOVE AADJ-DOC-NO TO MADJ-DOC-NO. DTSBD373
00566 DTSBD373
00567 MOVE MADJ-KEY-AREA TO MSKL-KEY-AREA. DTSBD373
00568 DTSBD373
00569 PERFORM S910-READ THRU S910-EXIT. DTSBD373
00570 DTSBD373
00571 IF L910-OK-88 DTSBD373
00572 MOVE MSG2-DUPLICATE-TRAN TO LBCM-TRN-MSG-AREA DTSBD373
00573 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00574 GO TO P1000-EXIT. DTSBD373
00575 DTSBD373
00576 MOVE LBCM-LAST-UC30-DEL-MAIL-YRQ TO WRK-DELINQUENT-YRQ. DTSBD373
00577 SET WRK-ANNUAL-SCHED-NO-88 TO TRUE. DTSBD373
00578 DTSBD373
00579 IF AADJ-APPLIC-YRQ NOT = ZERO DTSBD373
00580 MOVE AADJ-APPLIC-YRQ TO L516-YRQ DTSBD373
00581 PERFORM S516-LIABILITY-INFO THRU S516-EXIT DTSBD373
00582 MOVE L516-DEFAULT-RPT-DUE-DATE TO WRK-RPT-DUE-DATE DTSBD373
00583 IF L516-ANN-SCHED-88 DTSBD373
00584 SET WRK-ANNUAL-SCHED-YES-88 TO TRUE DTSBD373
00585 MOVE L415-UC30H-FIRST-DEL-END-YRQ DTSBD373
00586 TO WRK-DELINQUENT-YRQ. DTSBD373
00587 DTSBD373
00588 IF (AADJ-APPLIC-YRQ > +0) DTSBD373
00589 AND DTSBD373
00590 (AADJ-APPLIC-YRQ < LBCM-PICKUP-YRQ) DTSBD373
00591 MOVE MSG21-INVALID-APPLIC-YRQ TO LBCM-TRN-MSG-AREA DTSBD373
00592 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00593 GO TO P1000-EXIT. DTSBD373
00594 DTSBD373
00595 DTSBD373
00596 EVALUATE TRUE DTSBD373
00597 WHEN AADJ-CHARGE-88 DTSBD373
00598 PERFORM P1100-CHARGE-EDIT THRU P1100-EXIT DTSBD373
00599 DTSBD373
00600 WHEN AADJ-WAIVE-88 DTSBD373
00601 PERFORM P1200-WAIVE-EDIT THRU P1200-EXIT DTSBD373
00602 DTSBD373
00603 WHEN AADJ-TOLER-88 DTSBD373
00604 PERFORM P1300-TOLER-EDIT THRU P1300-EXIT DTSBD373
00605 DTSBD373
00606 WHEN AADJ-AUTO-88 DTSBD373
00607 PERFORM P1400-AUTO-EDIT THRU P1400-EXIT DTSBD373
00608 DTSBD373
00609 WHEN AADJ-MANUAL-88 DTSBD373
00610 PERFORM P1500-MANUAL-EDIT THRU P1500-EXIT DTSBD373
00611 DTSBD373
00612 WHEN AADJ-DUE-DATE-88 DTSBD373
00613 PERFORM P1600-DUE-DATE-EDIT THRU P1600-EXIT DTSBD373
00614 DTSBD373
00615 WHEN AADJ-WAIVE-DATE-88 DTSBD373
00616 PERFORM P1700-WAIVE-DATE-EDIT THRU P1700-EXIT DTSBD373
00617 DTSBD373
00618 WHEN AADJ-INT-DATE-88 DTSBD373
00619 PERFORM P1800-INT-DATE-EDIT THRU P1800-EXIT DTSBD373
00620 DTSBD373
00621 WHEN AADJ-WRITE-OFF-88 DTSBD373
00622 PERFORM P2100-WRITE-OFF-EDIT THRU P2100-EXIT DTSBD373
00623 DTSBD373
00624 WHEN AADJ-WRITE-OFF-REV-88 DTSBD373
00625 PERFORM P2200-WRITE-OFF-REV-EDIT THRU P2200-EXIT DTSBD373
00626 DTSBD373
00627 WHEN AADJ-WAGE-RPT-88 DTSBD373
00628 PERFORM P2300-WAGE-RPT-EDIT THRU P2300-EXIT DTSBD373
00629 DTSBD373
00630 WHEN AADJ-FILING-SCHED-88 DTSBD373
00631 PERFORM P2400-FILE-SCHED-EDIT THRU P2400-EXIT DTSBD373
00632 DTSBD373
00633 WHEN OTHER DTSBD373
00634 MOVE MSG1-INVALID-TRN-CD TO LBCM-TRN-MSG-AREA DTSBD373
00635 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00636 END-EVALUATE. DTSBD373
00637 DTSBD373
00638 P1000-EXIT. DTSBD373
00639 EXIT. DTSBD373
00640 EJECT DTSBD373
00641 P1100-CHARGE-EDIT. DTSBD373
00642 PERFORM S1100-READ-AADJ-APPLIC-YRQ THRU S1100-EXIT. DTSBD373
00643 DTSBD373
00644 IF WRK-MQTR-EXISTS-IND = 'N' DTSBD373
00645 PERFORM P1110-NO-MQTR-REC THRU P1110-EXIT DTSBD373
00646 ELSE DTSBD373
00647 PERFORM P1120-MQTR-REC THRU P1120-EXIT. DTSBD373
00648 P1100-EXIT. DTSBD373
00649 EXIT. DTSBD373
00650 SKIP3 DTSBD373
00651 P1110-NO-MQTR-REC. DTSBD373
00652 IF AADJ-AMT > +0 DTSBD373
00653 NEXT SENTENCE DTSBD373
00654 ELSE DTSBD373
00655 MOVE MSG3-CHARGED-AMT TO LBCM-TRN-MSG-AREA DTSBD373
00656 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00657 GO TO P1110-EXIT. DTSBD373
00658 DTSBD373
00659 IF AADJ-APPLIC-YRQ = LBCM-PICKUP-YRQ DTSBD373
00660 IF AADJ-UI-88 OR AADJ-SUR-88 OR AADJ-INT-88 DTSBD373
00661 OR AADJ-LATE-PEN-88 OR AADJ-MISC-PEN-88 DTSBD373
00662 OR AADJ-NSF-PEN-88 DTSBD373
00663 GO TO P1110-EXIT DTSBD373
00664 ELSE DTSBD373
00665 MOVE MSG4-INCONSISTENT-CHARGE TO LBCM-TRN-MSG-AREA DTSBD373
00666 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00667 GO TO P1110-EXIT. DTSBD373
00668 DTSBD373
00669 IF AADJ-UI-88 OR AADJ-NSF-PEN-88 OR AADJ-MISC-PEN-88 DTSBD373
00670 OR AADJ-LATE-PEN-88 OR AADJ-SUR-88 DTSBD373
00671 NEXT SENTENCE DTSBD373
00672 ELSE DTSBD373
00673 MOVE MSG4-INCONSISTENT-CHARGE TO LBCM-TRN-MSG-AREA DTSBD373
00674 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00675 GO TO P1110-EXIT. DTSBD373
00676 DTSBD373
00677 IF AADJ-UI-88 DTSBD373
00678 OR AADJ-SUR-88 DTSBD373
00679 IF MPRF-CLASS-SELF-INS-88 DTSBD373
00680 NEXT SENTENCE DTSBD373
00681 ELSE DTSBD373
00682 MOVE MSG15-NOT-SELF-INSURED TO LBCM-TRN-MSG-AREA DTSBD373
00683 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00684 GO TO P1110-EXIT. DTSBD373
00685 DTSBD373
00686 MOVE AADJ-APPLIC-YRQ TO L516-YRQ. DTSBD373
00687 PERFORM S516-LIABILITY-INFO THRU S516-EXIT. DTSBD373
00688 IF L516-ESTIMATED-RATE-88 DTSBD373
00689 MOVE MSG22-ESTIMATED-RATE TO LBCM-TRN-MSG-AREA DTSBD373
00690 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00691 GO TO P1110-EXIT. DTSBD373
00692 DTSBD373
00693 P1110-EXIT. DTSBD373
00694 EXIT. DTSBD373
00695 SKIP3 DTSBD373
00696 P1120-MQTR-REC. DTSBD373
00697 IF ((AADJ-APPLIC-YRQ = LBCM-PICKUP-YRQ) DTSBD373
00698 AND DTSBD373
00699 (AADJ-UI-88 OR AADJ-SUR-88 OR AADJ-INT-88 DTSBD373
00700 OR AADJ-LATE-PEN-88 OR AADJ-NSF-PEN-88 DTSBD373
00701 OR AADJ-MISC-PEN-88)) DTSBD373
00702 OR DTSBD373
00703 (AADJ-UI-88 OR AADJ-INT-88 OR AADJ-LATE-PEN-88 DTSBD373
00704 OR AADJ-NSF-PEN-88 OR AADJ-MISC-PEN-88 OR AADJ-SUR-88) DTSBD373
00705 NEXT SENTENCE DTSBD373
00706 ELSE DTSBD373
00707 MOVE MSG4-INCONSISTENT-CHARGE TO LBCM-TRN-MSG-AREA DTSBD373
00708 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00709 GO TO P1120-EXIT. DTSBD373
00710 DTSBD373
00711 MOVE AADJ-AMT TO WRK-CHARGED-AMT. DTSBD373
00712 DTSBD373
00713 PERFORM P1121-MQTR-ACCT-SCAN THRU P1121-EXIT DTSBD373
00714 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBD373
00715 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT. DTSBD373
00716 DTSBD373
00717 IF WRK-CHARGED-AMT < +0 DTSBD373
00718 MOVE MSG3-CHARGED-AMT TO LBCM-TRN-MSG-AREA DTSBD373
00719 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00720 GO TO P1120-EXIT. DTSBD373
00721 DTSBD373
00722 IF MPRF-CLASS-SELF-INS-88 DTSBD373
00723 PERFORM P1122-SELF-INS-EDIT THRU P1122-EXIT DTSBD373
00724 ELSE DTSBD373
00725 PERFORM P1123-TAXED-EDIT THRU P1123-EXIT. DTSBD373
00726 P1120-EXIT. DTSBD373
00727 EXIT. DTSBD373
00728 SKIP3 DTSBD373
00729 P1121-MQTR-ACCT-SCAN. DTSBD373
00730 IF MQTR-ACCT-IND (MQTR-ACCT-IDX) = AADJ-APPLIC-IND DTSBD373
00731 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD373
00732 TO WRK-CHARGED-AMT. DTSBD373
00733 P1121-EXIT. DTSBD373
00734 EXIT. DTSBD373
00735 SKIP3 DTSBD373
00736 P1122-SELF-INS-EDIT. DTSBD373
00737 IF WRK-CHARGED-AMT = +0 DTSBD373
00738 GO TO P1122-EXIT. DTSBD373
00739 DTSBD373
00740 IF AADJ-APPLIC-YRQ = LBCM-PICKUP-YRQ DTSBD373
00741 GO TO P1122-EXIT. DTSBD373
00742 DTSBD373
00743 MOVE +0 TO WRK-CHARGED-AMT. DTSBD373
00744 DTSBD373
00745 **************************************************** DTSBD373
00746 * ONLY UI TAX INCLUDED IN INTEREST CALCULATION DTSBD373
00747 **************************************************** DTSBD373
00748 PERFORM DTSBD373
00749 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBD373
00750 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBD373
00751 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBD373
00752 MOVE MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD373
00753 TO WRK-CHARGED-AMT DTSBD373
00754 END-IF DTSBD373
00755 END-PERFORM. DTSBD373
00756 DTSBD373
00757 IF WRK-CHARGED-AMT = +0 DTSBD373
00758 IF AADJ-INT-88 DTSBD373
00759 MOVE MSG3-CHARGED-AMT TO LBCM-TRN-MSG-AREA DTSBD373
00760 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00761 GO TO P1122-EXIT. DTSBD373
00762 P1122-EXIT. DTSBD373
00763 EXIT. DTSBD373
00764 SKIP3 DTSBD373
00765 P1123-TAXED-EDIT. DTSBD373
00766 IF AADJ-APPLIC-YRQ = LBCM-PICKUP-YRQ DTSBD373
00767 GO TO P1123-EXIT. DTSBD373
00768 DTSBD373
00769 IF AADJ-UI-88 DTSBD373
00770 MOVE MSG15-NOT-SELF-INSURED TO LBCM-TRN-MSG-AREA DTSBD373
00771 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00772 GO TO P1123-EXIT. DTSBD373
00773 DTSBD373
00774 IF WRK-CHARGED-AMT = +0 DTSBD373
00775 GO TO P1123-EXIT. DTSBD373
00776 DTSBD373
00777 MOVE +0 TO WRK-CHARGED-AMT. DTSBD373
00778 DTSBD373
00779 **************************************************** DTSBD373
00780 * ONLY UI TAX INCLUDED IN INTEREST CALCULATION DTSBD373
00781 **************************************************** DTSBD373
00782 PERFORM DTSBD373
00783 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBD373
00784 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBD373
00785 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBD373
00786 MOVE MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD373
00787 TO WRK-CHARGED-AMT DTSBD373
00788 END-IF DTSBD373
00789 END-PERFORM. DTSBD373
00790 DTSBD373
00791 IF WRK-CHARGED-AMT = +0 DTSBD373
00792 IF AADJ-INT-88 DTSBD373
00793 MOVE MSG3-CHARGED-AMT TO LBCM-TRN-MSG-AREA DTSBD373
00794 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00795 GO TO P1123-EXIT. DTSBD373
00796 P1123-EXIT. DTSBD373
00797 EXIT. DTSBD373
00798 EJECT DTSBD373
00799 P1200-WAIVE-EDIT. DTSBD373
00800 IF AADJ-INT-88 OR AADJ-LATE-PEN-88 OR AADJ-NSF-PEN-88 DTSBD373
00801 OR AADJ-MISC-PEN-88 OR AADJ-UI-88 DTSBD373
00802 NEXT SENTENCE DTSBD373
00803 ELSE DTSBD373
00804 MOVE MSG11-WAIVED-AMT TO LBCM-TRN-MSG-AREA DTSBD373
00805 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00806 GO TO P1200-EXIT. DTSBD373
00807 DTSBD373
00808 DTSBD373
00809 PERFORM S1100-READ-AADJ-APPLIC-YRQ THRU S1100-EXIT. DTSBD373
00810 DTSBD373
00811 IF WRK-MQTR-EXISTS-IND = 'N' DTSBD373
00812 MOVE MSG6-INVALID-YRQ TO LBCM-TRN-MSG-AREA DTSBD373
00813 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00814 GO TO P1200-EXIT. DTSBD373
00815 DTSBD373
00816 DTSBD373
00817 MOVE +0 TO WRK-ACCT-SUB. DTSBD373
00818 DTSBD373
00819 PERFORM P1210-MQTR-ACCT-SCAN THRU P1210-EXIT DTSBD373
00820 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBD373
00821 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT. DTSBD373
00822 DTSBD373
00823 IF WRK-ACCT-SUB = +0 DTSBD373
00824 MOVE MSG9-DOES-NOT-EXIST TO LBCM-TRN-MSG-AREA DTSBD373
00825 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00826 GO TO P1200-EXIT. DTSBD373
00827 DTSBD373
00828 DTSBD373
00829 COMPUTE WRK-WAIVED-AMT DTSBD373
00830 = MQTR-WAIVED-AMT (WRK-ACCT-SUB) + AADJ-AMT. DTSBD373
00831 DTSBD373
00832 IF (WRK-WAIVED-AMT < +0) DTSBD373
00833 OR DTSBD373
00834 (WRK-WAIVED-AMT > MQTR-CHARGED-AMT (WRK-ACCT-SUB)) DTSBD373
00835 MOVE MSG11-WAIVED-AMT TO LBCM-TRN-MSG-AREA DTSBD373
00836 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00837 GO TO P1200-EXIT. DTSBD373
00838 P1200-EXIT. DTSBD373
00839 EXIT. DTSBD373
00840 SKIP3 DTSBD373
00841 P1210-MQTR-ACCT-SCAN. DTSBD373
00842 IF MQTR-ACCT-IND (MQTR-ACCT-IDX) = AADJ-APPLIC-IND DTSBD373
00843 SET WRK-ACCT-SUB TO MQTR-ACCT-IDX. DTSBD373
00844 P1210-EXIT. DTSBD373
00845 EXIT. DTSBD373
00846 EJECT DTSBD373
00847 P1300-TOLER-EDIT. DTSBD373
00848 IF AADJ-CREDIT-88 DTSBD373
00849 PERFORM P1310-CREDIT-TOLER THRU P1310-EXIT DTSBD373
00850 ELSE DTSBD373
00851 PERFORM P1320-MQTR-TOLER THRU P1320-EXIT. DTSBD373
00852 P1300-EXIT. DTSBD373
00853 EXIT. DTSBD373
00854 SKIP3 DTSBD373
00855 P1310-CREDIT-TOLER. DTSBD373
00856 PERFORM S1300-READ-AADJ-APPLIC-MDST THRU S1300-EXIT. DTSBD373
00857 DTSBD373
00858 IF WRK-MDST-EXISTS-IND = 'N' DTSBD373
00859 MOVE MSG7-INVALID-PAYMENT TO LBCM-TRN-MSG-AREA DTSBD373
00860 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00861 GO TO P1310-EXIT. DTSBD373
00862 DTSBD373
00863 DTSBD373
00864 MOVE +0 TO WRK-CREDIT-AMT DTSBD373
00865 WRK-TOLER-AMT. DTSBD373
00866 DTSBD373
00867 PERFORM DTSBD373
00868 VARYING MDST-ACCT-IDX FROM 1 BY 1 DTSBD373
00869 UNTIL MDST-ACCT-IDX > MDST-ACCT-CNT DTSBD373
00870 IF MDST-ACCT-CR-AVAIL-88 (MDST-ACCT-IDX) DTSBD373
00871 ADD MDST-AMT (MDST-ACCT-IDX) TO WRK-CREDIT-AMT DTSBD373
00872 END-IF DTSBD373
00873 IF MDST-ACCT-CR-TOL-88 (MDST-ACCT-IDX) DTSBD373
00874 ADD MDST-AMT (MDST-ACCT-IDX) TO WRK-TOLER-AMT DTSBD373
00875 END-IF DTSBD373
00876 END-PERFORM. DTSBD373
00877 DTSBD373
00878 ADD AADJ-AMT TO WRK-TOLER-AMT. DTSBD373
00879 DTSBD373
00880 IF WRK-TOLER-AMT < +0 DTSBD373
00881 MOVE MSG5-TOLER-AMT TO LBCM-TRN-MSG-AREA DTSBD373
00882 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00883 GO TO P1310-EXIT. DTSBD373
00884 DTSBD373
00885 IF AADJ-AMT > WRK-CREDIT-AMT DTSBD373
00886 MOVE MSG5-TOLER-AMT TO LBCM-TRN-MSG-AREA DTSBD373
00887 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00888 GO TO P1310-EXIT. DTSBD373
00889 P1310-EXIT. DTSBD373
00890 EXIT. DTSBD373
00891 SKIP3 DTSBD373
00892 P1320-MQTR-TOLER. DTSBD373
00893 PERFORM S1100-READ-AADJ-APPLIC-YRQ THRU S1100-EXIT. DTSBD373
00894 DTSBD373
00895 IF WRK-MQTR-EXISTS-IND = 'N' DTSBD373
00896 MOVE MSG6-INVALID-YRQ TO LBCM-TRN-MSG-AREA DTSBD373
00897 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00898 GO TO P1320-EXIT. DTSBD373
00899 DTSBD373
00900 DTSBD373
00901 MOVE +0 TO WRK-ACCT-SUB. DTSBD373
00902 DTSBD373
00903 PERFORM DTSBD373
00904 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBD373
00905 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBD373
00906 IF MQTR-ACCT-IND (MQTR-ACCT-IDX) = AADJ-APPLIC-IND DTSBD373
00907 SET WRK-ACCT-SUB TO MQTR-ACCT-IDX DTSBD373
00908 END-IF DTSBD373
00909 END-PERFORM. DTSBD373
00910 DTSBD373
00911 IF WRK-ACCT-SUB = +0 DTSBD373
00912 MOVE MSG9-DOES-NOT-EXIST TO LBCM-TRN-MSG-AREA DTSBD373
00913 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00914 GO TO P1320-EXIT. DTSBD373
00915 DTSBD373
00916 DTSBD373
00917 COMPUTE WRK-TOLER-AMT DTSBD373
00918 = MQTR-TOLER-AMT (WRK-ACCT-SUB) + AADJ-AMT. DTSBD373
00919 DTSBD373
00920 IF (WRK-TOLER-AMT < +0) DTSBD373
00921 OR DTSBD373
00922 (WRK-TOLER-AMT > MQTR-CHARGED-AMT (WRK-ACCT-SUB)) DTSBD373
00923 MOVE MSG5-TOLER-AMT TO LBCM-TRN-MSG-AREA DTSBD373
00924 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00925 GO TO P1320-EXIT. DTSBD373
00926 P1320-EXIT. DTSBD373
00927 EXIT. DTSBD373
00928 EJECT DTSBD373
00929 P1400-AUTO-EDIT. DTSBD373
00930 PERFORM S1100-READ-AADJ-APPLIC-YRQ THRU S1100-EXIT. DTSBD373
00931 DTSBD373
00932 DTSBD373
00933 IF WRK-MQTR-EXISTS-IND = 'N' DTSBD373
00934 MOVE MSG17-NOT-MANUAL TO LBCM-TRN-MSG-AREA DTSBD373
00935 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00936 GO TO P1400-EXIT. DTSBD373
00937 DTSBD373
00938 DTSBD373
00939 IF AADJ-APPLIC-YRQ = LBCM-PICKUP-YRQ DTSBD373
00940 MOVE MSG6-INVALID-YRQ TO LBCM-TRN-MSG-AREA DTSBD373
00941 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00942 GO TO P1400-EXIT. DTSBD373
00943 DTSBD373
00944 DTSBD373
00945 IF AADJ-LATE-PEN-88 DTSBD373
00946 IF MQTR-PEN-CHARGE-MANUAL-88 DTSBD373
00947 NEXT SENTENCE DTSBD373
00948 ELSE DTSBD373
00949 MOVE MSG17-NOT-MANUAL TO LBCM-TRN-MSG-AREA DTSBD373
00950 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00951 GO TO P1400-EXIT DTSBD373
00952 ELSE DTSBD373
00953 IF AADJ-INT-88 DTSBD373
00954 IF MQTR-INT-CHARGE-MANUAL-88 DTSBD373
00955 NEXT SENTENCE DTSBD373
00956 ELSE DTSBD373
00957 MOVE MSG17-NOT-MANUAL TO LBCM-TRN-MSG-AREA DTSBD373
00958 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00959 GO TO P1400-EXIT DTSBD373
00960 ELSE DTSBD373
00961 IF AADJ-LP-INT-88 DTSBD373
00962 IF MQTR-PEN-CHARGE-MANUAL-88 DTSBD373
00963 AND DTSBD373
00964 MQTR-INT-CHARGE-MANUAL-88 DTSBD373
00965 NEXT SENTENCE DTSBD373
00966 ELSE DTSBD373
00967 MOVE MSG17-NOT-MANUAL TO LBCM-TRN-MSG-AREA DTSBD373
00968 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00969 GO TO P1400-EXIT DTSBD373
00970 ELSE DTSBD373
00971 MOVE MSG17-NOT-MANUAL TO LBCM-TRN-MSG-AREA DTSBD373
00972 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00973 GO TO P1400-EXIT. DTSBD373
00974 P1400-EXIT. DTSBD373
00975 EXIT. DTSBD373
00976 EJECT DTSBD373
00977 P1500-MANUAL-EDIT. DTSBD373
00978 PERFORM S1100-READ-AADJ-APPLIC-YRQ THRU S1100-EXIT. DTSBD373
00979 DTSBD373
00980 IF WRK-MQTR-EXISTS-IND = 'N' DTSBD373
00981 PERFORM P1510-NO-MQTR-REC THRU P1510-EXIT DTSBD373
00982 ELSE DTSBD373
00983 PERFORM P1520-MQTR-REC THRU P1520-EXIT. DTSBD373
00984 P1500-EXIT. DTSBD373
00985 EXIT. DTSBD373
00986 SKIP3 DTSBD373
00987 P1510-NO-MQTR-REC. DTSBD373
00988 IF AADJ-INT-88 OR AADJ-LATE-PEN-88 OR AADJ-LP-INT-88 DTSBD373
00989 NEXT SENTENCE DTSBD373
00990 ELSE DTSBD373
00991 MOVE MSG16-ALREADY-MANUAL TO LBCM-TRN-MSG-AREA DTSBD373
00992 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
00993 GO TO P1510-EXIT. DTSBD373
00994 P1510-EXIT. DTSBD373
00995 EXIT. DTSBD373
00996 SKIP3 DTSBD373
00997 P1520-MQTR-REC. DTSBD373
00998 IF AADJ-LATE-PEN-88 DTSBD373
00999 IF MQTR-PEN-CHARGE-AUTO-88 DTSBD373
01000 NEXT SENTENCE DTSBD373
01001 ELSE DTSBD373
01002 MOVE MSG16-ALREADY-MANUAL TO LBCM-TRN-MSG-AREA DTSBD373
01003 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01004 GO TO P1520-EXIT DTSBD373
01005 ELSE DTSBD373
01006 IF AADJ-INT-88 DTSBD373
01007 IF MQTR-INT-CHARGE-AUTO-88 DTSBD373
01008 NEXT SENTENCE DTSBD373
01009 ELSE DTSBD373
01010 MOVE MSG16-ALREADY-MANUAL TO LBCM-TRN-MSG-AREA DTSBD373
01011 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01012 GO TO P1520-EXIT DTSBD373
01013 ELSE DTSBD373
01014 IF AADJ-LP-INT-88 DTSBD373
01015 IF MQTR-PEN-CHARGE-AUTO-88 AND MQTR-INT-CHARGE-AUTO-88 DTSBD373
01016 NEXT SENTENCE DTSBD373
01017 ELSE DTSBD373
01018 MOVE MSG16-ALREADY-MANUAL TO LBCM-TRN-MSG-AREA DTSBD373
01019 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01020 GO TO P1520-EXIT DTSBD373
01021 ELSE DTSBD373
01022 MOVE MSG16-ALREADY-MANUAL TO LBCM-TRN-MSG-AREA DTSBD373
01023 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01024 GO TO P1520-EXIT. DTSBD373
01025 P1520-EXIT. DTSBD373
01026 EXIT. DTSBD373
01027 EJECT DTSBD373
01028 P1600-DUE-DATE-EDIT. DTSBD373
01029 PERFORM S1100-READ-AADJ-APPLIC-YRQ THRU S1100-EXIT. DTSBD373
01030 DTSBD373
01031 IF AADJ-APPLIC-YRQ = LBCM-PICKUP-YRQ DTSBD373
01032 MOVE MSG6-INVALID-YRQ TO LBCM-TRN-MSG-AREA DTSBD373
01033 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01034 GO TO P1600-EXIT. DTSBD373
01035 DTSBD373
01036 IF WRK-MQTR-EXISTS-IND = 'N' DTSBD373
01037 PERFORM P1610-NO-MQTR-REC THRU P1610-EXIT DTSBD373
01038 ELSE DTSBD373
01039 NEXT SENTENCE. DTSBD373
01040 DTSBD373
01041 IF AADJ-DATE-2 = +0 OR ALL-NINES-DATE DTSBD373
01042 NEXT SENTENCE DTSBD373
01043 ELSE DTSBD373
01044 PERFORM P1620-TAX-DUE-DATE-EDIT THRU P1620-EXIT. DTSBD373
01045 P1600-EXIT. DTSBD373
01046 EXIT. DTSBD373
01047 SKIP3 DTSBD373
01048 P1610-NO-MQTR-REC. DTSBD373
01049 IF (AADJ-DATE-1 = +0 OR ALL-NINES-DATE) DTSBD373
01050 AND DTSBD373
01051 (AADJ-DATE-2 = +0 OR ALL-NINES-DATE) DTSBD373
01052 MOVE MSG6-INVALID-YRQ TO LBCM-TRN-MSG-AREA DTSBD373
01053 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01054 GO TO P1610-EXIT. DTSBD373
01055 P1610-EXIT. DTSBD373
01056 EXIT. DTSBD373
01057 SKIP3 DTSBD373
01058 P1620-TAX-DUE-DATE-EDIT. DTSBD373
01059 MOVE AADJ-APPLIC-YRQ TO L516-YRQ. DTSBD373
01060 DTSBD373
01061 PERFORM S516-LIABILITY-INFO THRU S516-EXIT. DTSBD373
01062 DTSBD373
01063 IF AADJ-DATE-2 > L516-DEFAULT-TAX-DUE-DATE DTSBD373
01064 MOVE MSG20-EXTEND-TAX-DUE-DATE TO LBCM-TRN-MSG-AREA DTSBD373
01065 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01066 GO TO P1620-EXIT. DTSBD373
01067 P1620-EXIT. DTSBD373
01068 EXIT. DTSBD373
01069 EJECT DTSBD373
01070 P1700-WAIVE-DATE-EDIT. DTSBD373
01071 PERFORM S1100-READ-AADJ-APPLIC-YRQ THRU S1100-EXIT. DTSBD373
01072 DTSBD373
01073 IF AADJ-APPLIC-YRQ = LBCM-PICKUP-YRQ DTSBD373
01074 MOVE MSG6-INVALID-YRQ TO LBCM-TRN-MSG-AREA DTSBD373
01075 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01076 GO TO P1700-EXIT. DTSBD373
01077 DTSBD373
01078 IF WRK-MQTR-EXISTS-IND = 'N' DTSBD373
01079 PERFORM P1710-NO-MQTR-REC THRU P1710-EXIT DTSBD373
01080 ELSE DTSBD373
01081 PERFORM P1720-MQTR-REC THRU P1720-EXIT. DTSBD373
01082 P1700-EXIT. DTSBD373
01083 EXIT. DTSBD373
01084 SKIP3 DTSBD373
01085 P1710-NO-MQTR-REC. DTSBD373
01086 IF AADJ-INT-88 OR AADJ-LATE-PEN-88 OR AADJ-LP-INT-88 DTSBD373
01087 NEXT SENTENCE DTSBD373
01088 ELSE DTSBD373
01089 MOVE MSG8-INVALID-APPLIC-IND TO LBCM-TRN-MSG-AREA DTSBD373
01090 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01091 GO TO P1710-EXIT. DTSBD373
01092 DTSBD373
01093 IF AADJ-DATE-1 = ALL-NINES-DATE DTSBD373
01094 MOVE MSG6-INVALID-YRQ TO LBCM-TRN-MSG-AREA DTSBD373
01095 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01096 GO TO P1710-EXIT. DTSBD373
01097 P1710-EXIT. DTSBD373
01098 EXIT. DTSBD373
01099 SKIP3 DTSBD373
01100 P1720-MQTR-REC. DTSBD373
01101 IF AADJ-INT-88 OR AADJ-LATE-PEN-88 OR AADJ-LP-INT-88 DTSBD373
01102 NEXT SENTENCE DTSBD373
01103 ELSE DTSBD373
01104 MOVE MSG8-INVALID-APPLIC-IND TO LBCM-TRN-MSG-AREA DTSBD373
01105 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01106 GO TO P1720-EXIT. DTSBD373
01107 P1720-EXIT. DTSBD373
01108 EXIT. DTSBD373
01109 EJECT DTSBD373
01110 P1800-INT-DATE-EDIT. DTSBD373
01111 IF AADJ-APPLIC-YRQ = LBCM-PICKUP-YRQ DTSBD373
01112 MOVE MSG6-INVALID-YRQ TO LBCM-TRN-MSG-AREA DTSBD373
01113 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01114 GO TO P1800-EXIT. DTSBD373
01115 DTSBD373
01116 IF AADJ-INT-88 DTSBD373
01117 NEXT SENTENCE DTSBD373
01118 ELSE DTSBD373
01119 MOVE MSG8-INVALID-APPLIC-IND TO LBCM-TRN-MSG-AREA DTSBD373
01120 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01121 GO TO P1800-EXIT. DTSBD373
01122 DTSBD373
01123 IF AADJ-INT-SPAN-IND = '1' OR '2' DTSBD373
01124 NEXT SENTENCE DTSBD373
01125 ELSE DTSBD373
01126 MOVE MSG10-INVALID-INT-SPAN-IND TO LBCM-TRN-MSG-AREA DTSBD373
01127 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01128 GO TO P1800-EXIT. DTSBD373
01129 DTSBD373
01130 PERFORM S1100-READ-AADJ-APPLIC-YRQ THRU S1100-EXIT. DTSBD373
01131 DTSBD373
01132 IF WRK-MQTR-EXISTS-IND = 'N' DTSBD373
01133 PERFORM P1810-NO-MQTR-REC THRU P1810-EXIT DTSBD373
01134 ELSE DTSBD373
01135 NEXT SENTENCE. DTSBD373
01136 P1800-EXIT. DTSBD373
01137 EXIT. DTSBD373
01138 SKIP3 DTSBD373
01139 P1810-NO-MQTR-REC. DTSBD373
01140 IF AADJ-DATE-1 = ALL-NINES-DATE DTSBD373
01141 MOVE MSG6-INVALID-YRQ TO LBCM-TRN-MSG-AREA DTSBD373
01142 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01143 GO TO P1810-EXIT. DTSBD373
01144 P1810-EXIT. DTSBD373
01145 EXIT. DTSBD373
01146 EJECT DTSBD373
01147 P2100-WRITE-OFF-EDIT. DTSBD373
01148 IF MPRF-NOT-WRITTEN-OFF-88 DTSBD373
01149 NEXT SENTENCE DTSBD373
01150 ELSE DTSBD373
01151 MOVE MSG12-ALREADY-WRITTEN-OFF TO LBCM-TRN-MSG-AREA DTSBD373
01152 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01153 GO TO P2100-EXIT. DTSBD373
01154 DTSBD373
01155 IF (MPRF-TOT-BALANCE-AMT > +0) DTSBD373
01156 OR DTSBD373
01157 (MPRF-PURSUED-RPT-CNT > +0) DTSBD373
01158 OR DTSBD373
01159 (MPRF-TOT-CREDIT-AMT > +0) DTSBD373
01160 NEXT SENTENCE DTSBD373
01161 ELSE DTSBD373
01162 MOVE MSG13-NO-COLLECTIONS TO LBCM-TRN-MSG-AREA DTSBD373
01163 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01164 GO TO P2100-EXIT. DTSBD373
01165 DTSBD373
01166 IF MPRF-STATUS-ACT-88 DTSBD373
01167 MOVE MSG19-ACTIVE TO LBCM-TRN-MSG-AREA DTSBD373
01168 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01169 GO TO P2100-EXIT. DTSBD373
01170 P2100-EXIT. DTSBD373
01171 EXIT. DTSBD373
01172 EJECT DTSBD373
01173 P2200-WRITE-OFF-REV-EDIT. DTSBD373
01174 IF MPRF-NOT-WRITTEN-OFF-88 DTSBD373
01175 MOVE MSG14-NOT-WRITTEN-OFF TO LBCM-TRN-MSG-AREA DTSBD373
01176 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01177 GO TO P2200-EXIT. DTSBD373
01178 P2200-EXIT. DTSBD373
01179 EXIT. DTSBD373
01180 EJECT DTSBD373
01181 P2300-WAGE-RPT-EDIT. DTSBD373
01182 PERFORM S1100-READ-AADJ-APPLIC-YRQ THRU S1100-EXIT. DTSBD373
01183 DTSBD373
01184 IF AADJ-APPLIC-YRQ = LBCM-PICKUP-YRQ DTSBD373
01185 MOVE MSG6-INVALID-YRQ TO LBCM-TRN-MSG-AREA DTSBD373
01186 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01187 GO TO P2300-EXIT. DTSBD373
01188 P2300-EXIT. DTSBD373
01189 EXIT. DTSBD373
01190 DTSBD373
01191 P2400-FILE-SCHED-EDIT. DTSBD373
01192 PERFORM S1100-READ-AADJ-APPLIC-YRQ THRU S1100-EXIT. DTSBD373
01193 DTSBD373
01194 IF AADJ-APPLIC-YRQ < WRK-FIRST-ANN-QTR DTSBD373
01195 MOVE MSG6-INVALID-YRQ TO LBCM-TRN-MSG-AREA DTSBD373
01196 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD373
01197 GO TO P2400-EXIT DTSBD373
01198 END-IF. DTSBD373
01199 DTSBD373
01200 IF WRK-MQTR-EXISTS-IND = 'N' DTSBD373
01201 PERFORM P1610-NO-MQTR-REC THRU P1610-EXIT DTSBD373
01202 ELSE DTSBD373
01203 NEXT SENTENCE. DTSBD373
01204 DTSBD373
01205 IF AADJ-DATE-2 = +0 OR ALL-NINES-DATE DTSBD373
01206 NEXT SENTENCE DTSBD373
01207 ELSE DTSBD373
01208 PERFORM P1620-TAX-DUE-DATE-EDIT THRU P1620-EXIT. DTSBD373
01209 P2400-EXIT. DTSBD373
01210 EXIT. DTSBD373
01211 DTSBD373
01212 P3000-UPDATE. DTSBD373
01213 DISPLAY 'P3000- EMP NO ' MPRF-EMP-NO 'DOC NO ' AADJ-DOC-NO. DTSBD373
01214 IF AADJ-CHARGE-88 DTSBD373
01215 PERFORM P3100-CHARGE-UPDATE THRU P3100-EXIT DTSBD373
01216 ELSE DTSBD373
01217 IF AADJ-WAIVE-88 DTSBD373
01218 PERFORM P3200-WAIVE-UPDATE THRU P3200-EXIT DTSBD373
01219 ELSE DTSBD373
01220 IF AADJ-TOLER-88 DTSBD373
01221 PERFORM P3300-TOLER-UPDATE THRU P3300-EXIT DTSBD373
01222 ELSE DTSBD373
01223 IF AADJ-AUTO-88 DTSBD373
01224 PERFORM P3400-AUTO-UPDATE THRU P3400-EXIT DTSBD373
01225 ELSE DTSBD373
01226 IF AADJ-MANUAL-88 DTSBD373
01227 PERFORM P3500-MANUAL-UPDATE THRU P3500-EXIT DTSBD373
01228 ELSE DTSBD373
01229 IF AADJ-DUE-DATE-88 DTSBD373
01230 PERFORM P3600-DUE-DATE-UPDATE THRU P3600-EXIT DTSBD373
01231 ELSE DTSBD373
01232 IF AADJ-WAIVE-DATE-88 DTSBD373
01233 PERFORM P3700-WAIVE-DATE-UPDATE THRU P3700-EXIT DTSBD373
01234 ELSE DTSBD373
01235 IF AADJ-INT-DATE-88 DTSBD373
01236 PERFORM P3800-INT-DATE-UPDATE THRU P3800-EXIT DTSBD373
01237 ELSE DTSBD373
01238 IF AADJ-WRITE-OFF-88 DTSBD373
01239 PERFORM P4100-WRITE-OFF-UPDATE THRU P4100-EXIT DTSBD373
01240 ELSE DTSBD373
01241 IF AADJ-WRITE-OFF-REV-88 DTSBD373
01242 PERFORM P4200-WRITE-OFF-REV-UPDATE THRU P4200-EXIT DTSBD373
01243 ELSE DTSBD373
01244 IF AADJ-WAGE-RPT-88 DTSBD373
01245 PERFORM P4300-WAGE-RPT-UPDATE THRU P4300-EXIT DTSBD373
01246 ELSE DTSBD373
01247 PERFORM S999-ABEND THRU S999-EXIT. DTSBD373
01248 DTSBD373
01249 PERFORM S9100-ESTB-MADJ THRU S9100-EXIT. DTSBD373
01250 P3000-EXIT. DTSBD373
01251 EXIT. DTSBD373
01252 EJECT DTSBD373
01253 P3100-CHARGE-UPDATE. DTSBD373
01254 IF WRK-MQTR-EXISTS-IND = 'N' DTSBD373
01255 PERFORM S9200-INIT-MQTR THRU S9200-EXIT. DTSBD373
01256 DTSBD373
01257 DTSBD373
01258 MOVE AADJ-APPLIC-IND TO WRK-ACCT-IND. DTSBD373
01259 DTSBD373
01260 PERFORM S3100-LOC-OR-ESTB-ACCT-DATA THRU S3100-EXIT. DTSBD373
01261 DTSBD373
01262 DTSBD373
01263 IF (MPRF-CLASS-SELF-INS-88) DTSBD373
01264 IF (MQTR-ACCT-UI-88 (WRK-ACCT-SUB) DTSBD373
01265 OR (MQTR-ACCT-SUR-88 (WRK-ACCT-SUB) DTSBD373
01266 AND MQTR-YRQ >= WRK-FIRST-PEN-INT-YRQ)) DTSBD373
01267 AND DTSBD373
01268 (MQTR-CHARGED-AMT (WRK-ACCT-SUB) = +0) DTSBD373
01269 AND DTSBD373
01270 (AADJ-AMT > +0) DTSBD373
01271 AND DTSBD373
01272 (MQTR-TAX-DUE-DATE-MANUAL-88) DTSBD373
01273 PERFORM P3110-SELF-INS-TAX-DUE-DATE THRU P3110-EXIT. DTSBD373
01274 DTSBD373
01275 DTSBD373
01276 MOVE AADJ-AMT TO L541-AMT. DTSBD373
01277 DTSBD373
01278 MOVE WRK-ACCT-SUB TO L541-ACCT-SUB. DTSBD373
01279 DTSBD373
01280 MOVE CACT-CAT-CHARGED TO L541-CAT-IND. DTSBD373
01281 DTSBD373
01282 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD373
01283 DTSBD373
01284 PERFORM S3200-REMOVE-MQTR-TOLERANCE THRU S3200-EXIT. DTSBD373
01285 DTSBD373
01286 PERFORM S3300-DECR-PAID-WAIVED THRU S3300-EXIT. DTSBD373
01287 DTSBD373
01288 PERFORM S3900-CRUNCH-ACCT-DATA THRU S3900-EXIT. DTSBD373
01289 DTSBD373
01290 PERFORM S1200-WRITE-OR-REWRITE-MQTR THRU S1200-EXIT. DTSBD373
01291 P3100-EXIT. DTSBD373
01292 EXIT. DTSBD373
01293 SKIP3 DTSBD373
01294 P3110-SELF-INS-TAX-DUE-DATE. DTSBD373
01295 MOVE MQTR-YRQ TO L516-YRQ. DTSBD373
01296 DTSBD373
01297 PERFORM S516-LIABILITY-INFO THRU S516-EXIT. DTSBD373
01298 DTSBD373
01299 IF L516-DEFAULT-TAX-DUE-DATE = MQTR-TAX-DUE-DATE DTSBD373
01300 GO TO P3110-EXIT. DTSBD373
01301 DTSBD373
01302 MOVE L516-DEFAULT-TAX-DUE-DATE TO MQTR-TAX-DUE-DATE. DTSBD373
01303 DTSBD373
01304 IF MQTR-INT-CHARGE-MANUAL-88 DTSBD373
01305 GO TO P3110-EXIT. DTSBD373
01306 DTSBD373
01307 PERFORM S4000-RECOMPUTE-INT THRU S4000-EXIT. DTSBD373
01308 DTSBD373
01309 PERFORM P3621-CHANGE-INT-CHARGE THRU P3621-EXIT. DTSBD373
01310 DTSBD373
01311 MOVE AADJ-APPLIC-IND TO WRK-ACCT-IND. DTSBD373
01312 DTSBD373
01313 PERFORM S3100-LOC-OR-ESTB-ACCT-DATA THRU S3100-EXIT. DTSBD373
01314 P3110-EXIT. DTSBD373
01315 EXIT. DTSBD373
01316 EJECT DTSBD373
01317 P3200-WAIVE-UPDATE. DTSBD373
01318 MOVE AADJ-APPLIC-IND TO WRK-ACCT-IND. DTSBD373
01319 DTSBD373
01320 PERFORM S3100-LOC-OR-ESTB-ACCT-DATA THRU S3100-EXIT. DTSBD373
01321 DTSBD373
01322 MOVE AADJ-AMT TO L541-AMT. DTSBD373
01323 DTSBD373
01324 MOVE WRK-ACCT-SUB TO L541-ACCT-SUB. DTSBD373
01325 DTSBD373
01326 MOVE CACT-CAT-WAIVED TO L541-CAT-IND. DTSBD373
01327 DTSBD373
01328 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD373
01329 DTSBD373
01330 PERFORM S3200-REMOVE-MQTR-TOLERANCE THRU S3200-EXIT. DTSBD373
01331 DTSBD373
01332 PERFORM S3300-DECR-PAID-WAIVED THRU S3300-EXIT. DTSBD373
01333 DTSBD373
01334 PERFORM S3900-CRUNCH-ACCT-DATA THRU S3900-EXIT. DTSBD373
01335 DTSBD373
01336 PERFORM S1200-WRITE-OR-REWRITE-MQTR THRU S1200-EXIT. DTSBD373
01337 P3200-EXIT. DTSBD373
01338 EXIT. DTSBD373
01339 EJECT DTSBD373
01340 P3300-TOLER-UPDATE. DTSBD373
01341 IF AADJ-CREDIT-88 DTSBD373
01342 PERFORM P3310-CREDIT-TOLER THRU P3310-EXIT DTSBD373
01343 ELSE DTSBD373
01344 PERFORM P3320-MQTR-TOLER THRU P3320-EXIT. DTSBD373
01345 P3300-EXIT. DTSBD373
01346 EXIT. DTSBD373
01347 SKIP3 DTSBD373
01348 P3310-CREDIT-TOLER. DTSBD373
01349 MOVE AADJ-AMT TO L542-AMT. DTSBD373
01350 DTSBD373
01351 MOVE CACT-CR-TOLER TO L542-ACCT-IND. DTSBD373
01352 DTSBD373
01353 PERFORM S542-MDST-MAINTENANCE THRU S542-EXIT. DTSBD373
01354 DTSBD373
01355 COMPUTE L542-AMT = AADJ-AMT * -1. DTSBD373
01356 DTSBD373
01357 MOVE CACT-CR-AVAIL TO L542-ACCT-IND. DTSBD373
01358 DTSBD373
01359 PERFORM S542-MDST-MAINTENANCE THRU S542-EXIT. DTSBD373
01360 DTSBD373
01361 PERFORM S1400-WRITE-OR-REWRITE-MDST THRU S1400-EXIT. DTSBD373
01362 P3310-EXIT. DTSBD373
01363 EXIT. DTSBD373
01364 SKIP3 DTSBD373
01365 P3320-MQTR-TOLER. DTSBD373
01366 MOVE AADJ-APPLIC-IND TO WRK-ACCT-IND. DTSBD373
01367 DTSBD373
01368 PERFORM S3100-LOC-OR-ESTB-ACCT-DATA THRU S3100-EXIT. DTSBD373
01369 DTSBD373
01370 MOVE AADJ-AMT TO L541-AMT. DTSBD373
01371 DTSBD373
01372 MOVE WRK-ACCT-SUB TO L541-ACCT-SUB. DTSBD373
01373 DTSBD373
01374 MOVE CACT-CAT-TOLER TO L541-CAT-IND. DTSBD373
01375 DTSBD373
01376 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD373
01377 DTSBD373
01378 PERFORM S3300-DECR-PAID-WAIVED THRU S3300-EXIT. DTSBD373
01379 DTSBD373
01380 PERFORM S3900-CRUNCH-ACCT-DATA THRU S3900-EXIT. DTSBD373
01381 DTSBD373
01382 PERFORM S1200-WRITE-OR-REWRITE-MQTR THRU S1200-EXIT. DTSBD373
01383 P3320-EXIT. DTSBD373
01384 EXIT. DTSBD373
01385 EJECT DTSBD373
01386 P3400-AUTO-UPDATE. DTSBD373
01387 IF AADJ-INT-88 DTSBD373
01388 SET MQTR-INT-CHARGE-AUTO-88 TO TRUE DTSBD373
01389 ELSE DTSBD373
01390 IF AADJ-LATE-PEN-88 DTSBD373
01391 SET MQTR-PEN-CHARGE-AUTO-88 TO TRUE DTSBD373
01392 ELSE DTSBD373
01393 SET MQTR-INT-CHARGE-AUTO-88 TO TRUE DTSBD373
01394 SET MQTR-PEN-CHARGE-AUTO-88 TO TRUE. DTSBD373
01395 DTSBD373
01396 IF AADJ-INT-88 OR AADJ-LP-INT-88 DTSBD373
01397 PERFORM S4000-RECOMPUTE-INT THRU S4000-EXIT DTSBD373
01398 PERFORM P3410-ADJUST-INT-CHARGED THRU P3410-EXIT. DTSBD373
01399 DTSBD373
01400 *****IF AADJ-LP-INT-88 DTSBD373
01401 *********PERFORM P3420-LP-AND-INT THRU P3420-EXIT DTSBD373
01402 *****ELSE DTSBD373
01403 *********PERFORM P3410-LP-OR-INT THRU P3410-EXIT. DTSBD373
01404 DTSBD373
01405 PERFORM S3900-CRUNCH-ACCT-DATA THRU S3900-EXIT. DTSBD373
01406 DTSBD373
01407 PERFORM S1200-WRITE-OR-REWRITE-MQTR THRU S1200-EXIT. DTSBD373
01408 P3400-EXIT. DTSBD373
01409 EXIT. DTSBD373
01410 SKIP3 DTSBD373
01411 P3410-ADJUST-INT-CHARGED. DTSBD373
01412 MOVE CACT-ACCT-INT TO WRK-ACCT-IND. DTSBD373
01413 DTSBD373
01414 PERFORM S3100-LOC-OR-ESTB-ACCT-DATA THRU S3100-EXIT. DTSBD373
01415 DTSBD373
01416 COMPUTE L541-AMT DTSBD373
01417 = WRK-INT-CHARGED-AMT DTSBD373
01418 - MQTR-CHARGED-AMT (WRK-ACCT-SUB). DTSBD373
01419 DTSBD373
01420 IF L541-AMT = +0 DTSBD373
01421 NEXT SENTENCE DTSBD373
01422 ELSE DTSBD373
01423 MOVE WRK-ACCT-SUB TO L541-ACCT-SUB DTSBD373
01424 MOVE CACT-CAT-CHARGED TO L541-CAT-IND DTSBD373
01425 PERFORM S541-MODIFY-AMT THRU S541-EXIT DTSBD373
01426 PERFORM S3200-REMOVE-MQTR-TOLERANCE THRU S3200-EXIT DTSBD373
01427 PERFORM S3300-DECR-PAID-WAIVED THRU S3300-EXIT. DTSBD373
01428 P3410-EXIT. DTSBD373
01429 EXIT. DTSBD373
01430 SKIP3 DTSBD373
01431 *P3410-LP-OR-INT. DTSBD373
01432 *****MOVE AADJ-APPLIC-IND TO WRK-ACCT-IND. DTSBD373
01433 DTSBD373
01434 *****PERFORM S3100-LOC-OR-ESTB-ACCT-DATA THRU S3100-EXIT. DTSBD373
01435 DTSBD373
01436 *****IF AADJ-INT-88 DTSBD373
01437 *********COMPUTE L541-AMT DTSBD373
01438 ***********= WRK-INT-CHARGED-AMT DTSBD373
01439 **************- MQTR-CHARGED-AMT (WRK-ACCT-SUB) DTSBD373
01440 *****ELSE DTSBD373
01441 *********COMPUTE L541-AMT DTSBD373
01442 ***********= WRK-LATE-PEN-CHARGED-AMT DTSBD373
01443 **************- MQTR-CHARGED-AMT (WRK-ACCT-SUB). DTSBD373
01444 DTSBD373
01445 *****IF L541-AMT = +0 DTSBD373
01446 *********NEXT SENTENCE DTSBD373
01447 *****ELSE DTSBD373
01448 *********MOVE WRK-ACCT-SUB TO L541-ACCT-SUB DTSBD373
01449 *********MOVE CACT-CAT-CHARGED TO L541-CAT-IND DTSBD373
01450 *********PERFORM S541-MODIFY-AMT THRU S541-EXIT DTSBD373
01451 *********PERFORM S3200-REMOVE-MQTR-TOLERANCE THRU S3200-EXIT DTSBD373
01452 *********PERFORM S3300-DECR-PAID-WAIVED THRU S3300-EXIT. DTSBD373
01453 *P3410-EXIT. DTSBD373
01454 *****EXIT. DTSBD373
01455 SKIP3 DTSBD373
01456 *P3420-LP-AND-INT. DTSBD373
01457 *****MOVE CACT-ACCT-LATE-PEN TO WRK-ACCT-IND. DTSBD373
01458 DTSBD373
01459 *****PERFORM S3100-LOC-OR-ESTB-ACCT-DATA THRU S3100-EXIT. DTSBD373
01460 DTSBD373
01461 *****COMPUTE L541-AMT DTSBD373
01462 *******= WRK-LATE-PEN-CHARGED-AMT DTSBD373
01463 **********- MQTR-CHARGED-AMT (WRK-ACCT-SUB). DTSBD373
01464 DTSBD373
01465 *****IF L541-AMT = +0 DTSBD373
01466 *********NEXT SENTENCE DTSBD373
01467 *****ELSE DTSBD373
01468 *********MOVE WRK-ACCT-SUB TO L541-ACCT-SUB DTSBD373
01469 *********MOVE CACT-CAT-CHARGED TO L541-CAT-IND DTSBD373
01470 *********PERFORM S541-MODIFY-AMT THRU S541-EXIT DTSBD373
01471 *********PERFORM S3200-REMOVE-MQTR-TOLERANCE THRU S3200-EXIT DTSBD373
01472 *********PERFORM S3300-DECR-PAID-WAIVED THRU S3300-EXIT. DTSBD373
01473 DTSBD373
01474 DTSBD373
01475 *****MOVE CACT-ACCT-INT TO WRK-ACCT-IND. DTSBD373
01476 DTSBD373
01477 *****PERFORM S3100-LOC-OR-ESTB-ACCT-DATA THRU S3100-EXIT. DTSBD373
01478 DTSBD373
01479 *****COMPUTE L541-AMT DTSBD373
01480 *******= WRK-INT-CHARGED-AMT DTSBD373
01481 **********- MQTR-CHARGED-AMT (WRK-ACCT-SUB). DTSBD373
01482 DTSBD373
01483 *****IF L541-AMT = +0 DTSBD373
01484 *********NEXT SENTENCE DTSBD373
01485 *****ELSE DTSBD373
01486 *********MOVE WRK-ACCT-SUB TO L541-ACCT-SUB DTSBD373
01487 *********MOVE CACT-CAT-CHARGED TO L541-CAT-IND DTSBD373
01488 *********PERFORM S541-MODIFY-AMT THRU S541-EXIT DTSBD373
01489 *********PERFORM S3200-REMOVE-MQTR-TOLERANCE THRU S3200-EXIT DTSBD373
01490 *********PERFORM S3300-DECR-PAID-WAIVED THRU S3300-EXIT. DTSBD373
01491 *P3420-EXIT. DTSBD373
01492 *****EXIT. DTSBD373
01493 EJECT DTSBD373
01494 P3500-MANUAL-UPDATE. DTSBD373
01495 IF WRK-MQTR-EXISTS-IND = 'N' DTSBD373
01496 PERFORM S9200-INIT-MQTR THRU S9200-EXIT. DTSBD373
01497 DTSBD373
01498 IF AADJ-INT-88 DTSBD373
01499 SET MQTR-INT-CHARGE-MANUAL-88 TO TRUE DTSBD373
01500 ELSE DTSBD373
01501 IF AADJ-LATE-PEN-88 DTSBD373
01502 SET MQTR-PEN-CHARGE-MANUAL-88 TO TRUE DTSBD373
01503 ELSE DTSBD373
01504 SET MQTR-PEN-CHARGE-MANUAL-88 TO TRUE DTSBD373
01505 SET MQTR-INT-CHARGE-MANUAL-88 TO TRUE. DTSBD373
01506 DTSBD373
01507 PERFORM S1200-WRITE-OR-REWRITE-MQTR THRU S1200-EXIT. DTSBD373
01508 P3500-EXIT. DTSBD373
01509 EXIT. DTSBD373
01510 EJECT DTSBD373
01511 P3600-DUE-DATE-UPDATE. DTSBD373
01512 IF WRK-MQTR-EXISTS-IND = 'N' DTSBD373
01513 PERFORM S9200-INIT-MQTR THRU S9200-EXIT. DTSBD373
01514 DTSBD373
01515 DTSBD373
01516 MOVE MQTR-YRQ TO L516-YRQ. DTSBD373
01517 DTSBD373
01518 PERFORM S516-LIABILITY-INFO THRU S516-EXIT. DTSBD373
01519 DTSBD373
01520 IF AADJ-DATE-1 = +0 DTSBD373
01521 NEXT SENTENCE DTSBD373
01522 ELSE DTSBD373
01523 PERFORM P3610-CHANGE-RPT-DUE THRU P3610-EXIT. DTSBD373
01524 DTSBD373
01525 IF AADJ-DATE-2 = +0 DTSBD373
01526 NEXT SENTENCE DTSBD373
01527 ELSE DTSBD373
01528 PERFORM P3620-CHANGE-TAX-DUE THRU P3620-EXIT. DTSBD373
01529 DTSBD373
01530 PERFORM S3900-CRUNCH-ACCT-DATA THRU S3900-EXIT. DTSBD373
01531 DTSBD373
01532 PERFORM S1200-WRITE-OR-REWRITE-MQTR THRU S1200-EXIT. DTSBD373
01533 P3600-EXIT. DTSBD373
01534 EXIT. DTSBD373
01535 SKIP3 DTSBD373
01536 P3610-CHANGE-RPT-DUE. DTSBD373
01537 IF AADJ-DATE-1 = ALL-NINES-DATE DTSBD373
01538 MOVE L516-DEFAULT-RPT-DUE-DATE TO MQTR-RPT-DUE-DATE DTSBD373
01539 SET MQTR-RPT-DUE-DATE-AUTO-88 TO TRUE DTSBD373
01540 ELSE DTSBD373
01541 MOVE AADJ-DATE-1 TO MQTR-RPT-DUE-DATE DTSBD373
01542 SET MQTR-RPT-DUE-DATE-MANUAL-88 TO TRUE. DTSBD373
01543 DTSBD373
01544 PERFORM S2100-SET-CURR-RPT-TYPE THRU S2100-EXIT. DTSBD373
01545 P3610-EXIT. DTSBD373
01546 EXIT. DTSBD373
01547 SKIP3 DTSBD373
01548 P3620-CHANGE-TAX-DUE. DTSBD373
01549 IF AADJ-DATE-2 = ALL-NINES-DATE DTSBD373
01550 MOVE L516-DEFAULT-TAX-DUE-DATE TO MQTR-TAX-DUE-DATE DTSBD373
01551 SET MQTR-TAX-DUE-DATE-AUTO-88 TO TRUE DTSBD373
01552 ELSE DTSBD373
01553 MOVE AADJ-DATE-2 TO MQTR-TAX-DUE-DATE DTSBD373
01554 SET MQTR-TAX-DUE-DATE-MANUAL-88 TO TRUE. DTSBD373
01555 DTSBD373
01556 PERFORM S4000-RECOMPUTE-INT THRU S4000-EXIT. DTSBD373
01557 DTSBD373
01558 IF MQTR-INT-CHARGE-AUTO-88 DTSBD373
01559 PERFORM P3621-CHANGE-INT-CHARGE THRU P3621-EXIT. DTSBD373
01560 DTSBD373
01561 *****IF MQTR-PEN-CHARGE-AUTO-88 DTSBD373
01562 *********PERFORM P3622-CHANGE-PEN-CHARGE THRU P3622-EXIT. DTSBD373
01563 P3620-EXIT. DTSBD373
01564 EXIT. DTSBD373
01565 SKIP3 DTSBD373
01566 P3621-CHANGE-INT-CHARGE. DTSBD373
01567 MOVE CACT-APPLIC-INT TO WRK-ACCT-IND. DTSBD373
01568 DTSBD373
01569 PERFORM S3100-LOC-OR-ESTB-ACCT-DATA THRU S3100-EXIT. DTSBD373
01570 DTSBD373
01571 COMPUTE L541-AMT DTSBD373
01572 = WRK-INT-CHARGED-AMT DTSBD373
01573 - MQTR-CHARGED-AMT (WRK-ACCT-SUB). DTSBD373
01574 DTSBD373
01575 IF L541-AMT = +0 DTSBD373
01576 NEXT SENTENCE DTSBD373
01577 ELSE DTSBD373
01578 MOVE WRK-ACCT-SUB TO L541-ACCT-SUB DTSBD373
01579 MOVE CACT-CAT-CHARGED TO L541-CAT-IND DTSBD373
01580 PERFORM S541-MODIFY-AMT THRU S541-EXIT DTSBD373
01581 PERFORM S3200-REMOVE-MQTR-TOLERANCE THRU S3200-EXIT DTSBD373
01582 PERFORM S3300-DECR-PAID-WAIVED THRU S3300-EXIT. DTSBD373
01583 P3621-EXIT. DTSBD373
01584 EXIT. DTSBD373
01585 SKIP3 DTSBD373
01586 *P3622-CHANGE-PEN-CHARGE. DTSBD373
01587 *****MOVE CACT-APPLIC-PEN TO WRK-ACCT-IND. DTSBD373
01588 DTSBD373
01589 *****PERFORM S3100-LOC-OR-ESTB-ACCT-DATA THRU S3100-EXIT. DTSBD373
01590 DTSBD373
01591 *****COMPUTE L541-AMT DTSBD373
01592 *******= WRK-LATE-PEN-CHARGED-AMT DTSBD373
01593 ***********- MQTR-CHARGED-AMT (WRK-ACCT-SUB). DTSBD373
01594 DTSBD373
01595 *****IF L541-AMT = +0 DTSBD373
01596 *********NEXT SENTENCE DTSBD373
01597 *****ELSE DTSBD373
01598 *********MOVE WRK-ACCT-SUB TO L541-ACCT-SUB DTSBD373
01599 *********MOVE CACT-CAT-CHARGED TO L541-CAT-IND DTSBD373
01600 *********PERFORM S541-MODIFY-AMT THRU S541-EXIT DTSBD373
01601 *********PERFORM S3200-REMOVE-MQTR-TOLERANCE THRU S3200-EXIT DTSBD373
01602 *********PERFORM S3300-DECR-PAID-WAIVED THRU S3300-EXIT. DTSBD373
01603 *P3622-EXIT. DTSBD373
01604 *****EXIT. DTSBD373
01605 EJECT DTSBD373
01606 P3700-WAIVE-DATE-UPDATE. DTSBD373
01607 IF WRK-MQTR-EXISTS-IND = 'N' DTSBD373
01608 PERFORM S9200-INIT-MQTR THRU S9200-EXIT. DTSBD373
01609 DTSBD373
01610 IF AADJ-INT-88 DTSBD373
01611 PERFORM P3710-WAIVE-INT-SPAN THRU P3710-EXIT DTSBD373
01612 ELSE DTSBD373
01613 IF AADJ-LATE-PEN-88 DTSBD373
01614 PERFORM P3720-WAIVE-PEN-SPAN THRU P3720-EXIT DTSBD373
01615 ELSE DTSBD373
01616 PERFORM P3710-WAIVE-INT-SPAN THRU P3710-EXIT DTSBD373
01617 PERFORM P3720-WAIVE-PEN-SPAN THRU P3720-EXIT. DTSBD373
01618 DTSBD373
01619 PERFORM S1200-WRITE-OR-REWRITE-MQTR THRU S1200-EXIT. DTSBD373
01620 P3700-EXIT. DTSBD373
01621 EXIT. DTSBD373
01622 SKIP3 DTSBD373
01623 P3710-WAIVE-INT-SPAN. DTSBD373
01624 IF AADJ-DATE-1 = ALL-NINES-DATE DTSBD373
01625 MOVE +0 TO MQTR-WAIVE-INT-START-DATE DTSBD373
01626 MQTR-WAIVE-INT-END-DATE DTSBD373
01627 ELSE DTSBD373
01628 MOVE AADJ-DATE-1 TO MQTR-WAIVE-INT-START-DATE DTSBD373
01629 MOVE AADJ-DATE-2 TO MQTR-WAIVE-INT-END-DATE. DTSBD373
01630 P3710-EXIT. DTSBD373
01631 EXIT. DTSBD373
01632 SKIP3 DTSBD373
01633 P3720-WAIVE-PEN-SPAN. DTSBD373
01634 IF AADJ-DATE-2 = ALL-NINES-DATE DTSBD373
01635 MOVE +0 TO MQTR-WAIVE-PEN-START-DATE DTSBD373
01636 MQTR-WAIVE-PEN-END-DATE DTSBD373
01637 ELSE DTSBD373
01638 MOVE AADJ-DATE-1 TO MQTR-WAIVE-PEN-START-DATE DTSBD373
01639 MOVE AADJ-DATE-2 TO MQTR-WAIVE-PEN-END-DATE. DTSBD373
01640 P3720-EXIT. DTSBD373
01641 EXIT. DTSBD373
01642 EJECT DTSBD373
01643 P3800-INT-DATE-UPDATE. DTSBD373
01644 IF WRK-MQTR-EXISTS-IND = 'N' DTSBD373
01645 PERFORM S9200-INIT-MQTR THRU S9200-EXIT. DTSBD373
01646 DTSBD373
01647 IF AADJ-INT-SPAN-IND = '1' DTSBD373
01648 PERFORM P3810-INT-SPAN-ONE THRU P3810-EXIT DTSBD373
01649 ELSE DTSBD373
01650 PERFORM P3820-INT-SPAN-TWO THRU P3820-EXIT. DTSBD373
01651 DTSBD373
01652 IF MQTR-INT-CHARGE-MANUAL-88 DTSBD373
01653 GO TO P3800-EXIT. DTSBD373
01654 DTSBD373
01655 PERFORM S4000-RECOMPUTE-INT THRU S4000-EXIT. DTSBD373
01656 DTSBD373
01657 MOVE CACT-ACCT-INT TO WRK-ACCT-IND. DTSBD373
01658 DTSBD373
01659 PERFORM S3100-LOC-OR-ESTB-ACCT-DATA THRU S3100-EXIT. DTSBD373
01660 DTSBD373
01661 COMPUTE L541-AMT DTSBD373
01662 = WRK-INT-CHARGED-AMT DTSBD373
01663 - MQTR-CHARGED-AMT (WRK-ACCT-SUB). DTSBD373
01664 DTSBD373
01665 IF L541-AMT = +0 DTSBD373
01666 NEXT SENTENCE DTSBD373
01667 ELSE DTSBD373
01668 MOVE WRK-ACCT-SUB TO L541-ACCT-SUB DTSBD373
01669 MOVE CACT-CAT-CHARGED TO L541-CAT-IND DTSBD373
01670 PERFORM S541-MODIFY-AMT THRU S541-EXIT DTSBD373
01671 PERFORM S3200-REMOVE-MQTR-TOLERANCE THRU S3200-EXIT DTSBD373
01672 PERFORM S3300-DECR-PAID-WAIVED THRU S3300-EXIT. DTSBD373
01673 DTSBD373
01674 PERFORM S3900-CRUNCH-ACCT-DATA THRU S3900-EXIT. DTSBD373
01675 DTSBD373
01676 PERFORM S1200-WRITE-OR-REWRITE-MQTR THRU S1200-EXIT. DTSBD373
01677 P3800-EXIT. DTSBD373
01678 EXIT. DTSBD373
01679 SKIP3 DTSBD373
01680 P3810-INT-SPAN-ONE. DTSBD373
01681 IF AADJ-DATE-1 = ALL-NINES-DATE DTSBD373
01682 MOVE +0 TO MQTR-INT-START-DATE (1) DTSBD373
01683 MQTR-INT-END-DATE (1) DTSBD373
01684 MQTR-INT-RATE (1) DTSBD373
01685 IF MQTR-INT-CNT = +1 DTSBD373
01686 MOVE +0 TO MQTR-INT-CNT DTSBD373
01687 ELSE DTSBD373
01688 NEXT SENTENCE DTSBD373
01689 ELSE DTSBD373
01690 MOVE AADJ-DATE-1 TO MQTR-INT-START-DATE (1) DTSBD373
01691 MOVE AADJ-DATE-2 TO MQTR-INT-END-DATE (1) DTSBD373
01692 MOVE AADJ-INT-RATE TO MQTR-INT-RATE (1) DTSBD373
01693 IF MQTR-INT-CNT = +0 DTSBD373
01694 MOVE +1 TO MQTR-INT-CNT DTSBD373
01695 ELSE DTSBD373
01696 NEXT SENTENCE. DTSBD373
01697 P3810-EXIT. DTSBD373
01698 EXIT. DTSBD373
01699 SKIP3 DTSBD373
01700 P3820-INT-SPAN-TWO. DTSBD373
01701 IF AADJ-DATE-1 = ALL-NINES-DATE DTSBD373
01702 MOVE +0 TO MQTR-INT-START-DATE (2) DTSBD373
01703 MQTR-INT-END-DATE (2) DTSBD373
01704 MQTR-INT-RATE (2) DTSBD373
01705 IF MQTR-INT-CNT = +1 OR +2 DTSBD373
01706 IF MQTR-INT-START-DATE (+1) = +0 DTSBD373
01707 MOVE +0 TO MQTR-INT-CNT DTSBD373
01708 ELSE DTSBD373
01709 MOVE +1 TO MQTR-INT-CNT DTSBD373
01710 ELSE DTSBD373
01711 NEXT SENTENCE DTSBD373
01712 ELSE DTSBD373
01713 MOVE AADJ-DATE-1 TO MQTR-INT-START-DATE (2) DTSBD373
01714 MOVE AADJ-DATE-2 TO MQTR-INT-END-DATE (2) DTSBD373
01715 MOVE AADJ-INT-RATE TO MQTR-INT-RATE (2) DTSBD373
01716 IF MQTR-INT-CNT = +0 DTSBD373
01717 MOVE +0 TO MQTR-INT-START-DATE (+1) DTSBD373
01718 MQTR-INT-END-DATE (+1) DTSBD373
01719 MQTR-INT-RATE (+1) DTSBD373
01720 MOVE +2 TO MQTR-INT-CNT DTSBD373
01721 ELSE DTSBD373
01722 MOVE +2 TO MQTR-INT-CNT. DTSBD373
01723 P3820-EXIT. DTSBD373
01724 EXIT. DTSBD373
01725 EJECT DTSBD373
01726 P4100-WRITE-OFF-UPDATE. DTSBD373
01727 MOVE LOW-VALUE TO MSKL-KEY-AREA. DTSBD373
01728 DTSBD373
01729 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBD373
01730 DTSBD373
01731 SET MSKL-QTR-88 TO TRUE. DTSBD373
01732 DTSBD373
01733 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD373
01734 DTSBD373
01735 PERFORM UNTIL L910-NO-REC-88 DTSBD373
01736 MOVE MSKL-REC TO MQTR-REC DTSBD373
01737 PERFORM P4110-PROCESS-MQTR THRU P4110-EXIT DTSBD373
01738 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD373
01739 END-PERFORM. DTSBD373
01740 DTSBD373
01741 PERFORM S530-WRITE-OFF THRU S530-EXIT. DTSBD373
01742 P4100-EXIT. DTSBD373
01743 EXIT. DTSBD373
01744 SKIP3 DTSBD373
01745 P4110-PROCESS-MQTR. DTSBD373
01746 IF MQTR-INT-CHARGE-MANUAL-88 DTSBD373
01747 *****AND MQTR-PEN-CHARGE-MANUAL-88 DTSBD373
01748 GO TO P4110-EXIT. DTSBD373
01749 DTSBD373
01750 DTSBD373
01751 MOVE +0 TO WRK-BALANCE-AMT DTSBD373
01752 L101-PAID-CHNG. DTSBD373
01753 ****************L101-PEN-CHARGED-AMT. DTSBD373
01754 DTSBD373
01755 **************************************************** DTSBD373
01756 * FOR QTRS >= THE QTR RETURNED FROM DTSBU109, DTSBD373
01757 * INCLUDE ADMIN ASSESS IN THE PENALTY AND INTEREST DTSBD373
01758 * CALCULATION, ALONG WITH UI TAX. DTSBD373
01759 * FOR EARLIER QUARTERS, INCLUDE ONLY UI TAX. DTSBD373
01760 **************************************************** DTSBD373
01761 PERFORM DTSBD373
01762 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBD373
01763 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBD373
01764 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBD373
01765 TO WRK-BALANCE-AMT DTSBD373
01766 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBD373
01767 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBD373
01768 TO L101-PAID-CHNG DTSBD373
01769 *************ELSE DTSBD373
01770 *****************IF MQTR-ACCT-PEN-88 (MQTR-ACCT-IDX) DTSBD373
01771 *********************ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBD373
01772 ***********************TO L101-PEN-CHARGED-AMT DTSBD373
01773 *****************END-IF DTSBD373
01774 END-IF DTSBD373
01775 *RW1 DTSBD373
01776 IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) DTSBD373
01777 IF MQTR-YRQ >= WRK-FIRST-PEN-INT-YRQ DTSBD373
01778 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBD373
01779 TO L101-PAID-CHNG DTSBD373
01780 DISPLAY 'BD373 P4110 SUR BAL ' DTSBD373
01781 MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBD373
01782 END-IF DTSBD373
01783 END-IF DTSBD373
01784 *RW2 DTSBD373
01785 END-PERFORM. DTSBD373
01786 DTSBD373
01787 IF WRK-BALANCE-AMT > +0 DTSBD373
01788 NEXT SENTENCE DTSBD373
01789 ELSE DTSBD373
01790 GO TO P4110-EXIT. DTSBD373
01791 DTSBD373
01792 MOVE AADJ-DATE-1 TO L101-RECEIVED-DATE. DTSBD373
01793 DTSBD373
01794 SET L101-WAIVE-INT-NO-88 TO TRUE. DTSBD373
01795 DTSBD373
01796 *****SET L101-WAIVE-PEN-NO-88 TO TRUE. DTSBD373
01797 DTSBD373
01798 MOVE MQTR-TAX-DUE-DATE TO L101-TAX-DUE-DATE. DTSBD373
01799 DTSBD373
01800 MOVE MQTR-INT-AREA TO L101-INT-AREA. DTSBD373
01801 DTSBD373
01802 PERFORM S101-PER-MONTH-NO THRU S101-EXIT. DTSBD373
01803 DTSBD373
01804 IF MQTR-INT-CHARGE-AUTO-88 DTSBD373
01805 PERFORM P4111-CHANGE-INT THRU P4111-EXIT. DTSBD373
01806 DTSBD373
01807 IF MQTR-PEN-CHARGE-AUTO-88 DTSBD373
01808 *********PERFORM P4112-CHANGE-PEN THRU P4112-EXIT DTSBD373
01809 SET MQTR-PEN-CHARGE-MANUAL-88 TO TRUE. DTSBD373
01810 DTSBD373
01811 PERFORM S3900-CRUNCH-ACCT-DATA THRU S3900-EXIT. DTSBD373
01812 DTSBD373
01813 PERFORM S1200-WRITE-OR-REWRITE-MQTR THRU S1200-EXIT. DTSBD373
01814 P4110-EXIT. DTSBD373
01815 EXIT. DTSBD373
01816 SKIP3 DTSBD373
01817 P4111-CHANGE-INT. DTSBD373
01818 SET MQTR-INT-CHARGE-MANUAL-88 TO TRUE. DTSBD373
01819 DTSBD373
01820 MOVE +0 TO WRK-ACCT-SUB. DTSBD373
01821 DTSBD373
01822 IF L101-INT-CHARGE-CHNG NOT = +0 DTSBD373
01823 MOVE CACT-ACCT-INT TO WRK-ACCT-IND DTSBD373
01824 PERFORM S3100-LOC-OR-ESTB-ACCT-DATA THRU S3100-EXIT DTSBD373
01825 MOVE L101-INT-CHARGE-CHNG TO L541-AMT DTSBD373
01826 MOVE WRK-ACCT-SUB TO L541-ACCT-SUB DTSBD373
01827 MOVE CACT-CAT-CHARGED TO L541-CAT-IND DTSBD373
01828 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD373
01829 DTSBD373
01830 IF L101-INT-WAIVE-CHNG NOT = +0 DTSBD373
01831 MOVE CACT-ACCT-INT TO WRK-ACCT-IND DTSBD373
01832 PERFORM S3100-LOC-OR-ESTB-ACCT-DATA THRU S3100-EXIT DTSBD373
01833 MOVE L101-INT-WAIVE-CHNG TO L541-AMT DTSBD373
01834 MOVE WRK-ACCT-SUB TO L541-ACCT-SUB DTSBD373
01835 MOVE CACT-CAT-WAIVED TO L541-CAT-IND DTSBD373
01836 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD373
01837 DTSBD373
01838 IF WRK-ACCT-SUB > +0 DTSBD373
01839 IF MQTR-BALANCE-AMT (WRK-ACCT-SUB) < +0 DTSBD373
01840 PERFORM S3200-REMOVE-MQTR-TOLERANCE THRU S3200-EXIT DTSBD373
01841 PERFORM S3300-DECR-PAID-WAIVED THRU S3300-EXIT. DTSBD373
01842 P4111-EXIT. DTSBD373
01843 EXIT. DTSBD373
01844 SKIP3 DTSBD373
01845 *P4112-CHANGE-PEN. DTSBD373
01846 DTSBD373
01847 *****SET MQTR-PEN-CHARGE-MANUAL-88 TO TRUE. DTSBD373
01848 DTSBD373
01849 *****MOVE +0 TO WRK-ACCT-SUB. DTSBD373
01850 DTSBD373
01851 *****IF L101-PEN-CHARGE-CHNG NOT = +0 DTSBD373
01852 *********MOVE CACT-ACCT-PEN TO WRK-ACCT-IND DTSBD373
01853 *********PERFORM S3100-LOC-OR-ESTB-ACCT-DATA THRU S3100-EXIT DTSBD373
01854 *********MOVE L101-PEN-CHARGE-CHNG TO L541-AMT DTSBD373
01855 *********MOVE WRK-ACCT-SUB TO L541-ACCT-SUB DTSBD373
01856 *********MOVE CACT-CAT-CHARGED TO L541-CAT-IND DTSBD373
01857 *********PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD373
01858 DTSBD373
01859 *****IF L101-PEN-WAIVE-CHNG NOT = +0 DTSBD373
01860 *********MOVE CACT-ACCT-PEN TO WRK-ACCT-IND DTSBD373
01861 *********PERFORM S3100-LOC-OR-ESTB-ACCT-DATA THRU S3100-EXIT DTSBD373
01862 *********MOVE L101-PEN-WAIVE-CHNG TO L541-AMT DTSBD373
01863 *********MOVE WRK-ACCT-SUB TO L541-ACCT-SUB DTSBD373
01864 *********MOVE CACT-CAT-WAIVED TO L541-CAT-IND DTSBD373
01865 *********PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD373
01866 DTSBD373
01867 *****IF WRK-ACCT-SUB > +0 DTSBD373
01868 *********IF MQTR-BALANCE-AMT (WRK-ACCT-SUB) < +0 DTSBD373
01869 *************PERFORM S3200-REMOVE-MQTR-TOLERANCE THRU S3200-EXIT DTSBD373
01870 *************PERFORM S3300-DECR-PAID-WAIVED THRU S3300-EXIT. DTSBD373
01871 *P4112-EXIT. DTSBD373
01872 *****EXIT. DTSBD373
01873 EJECT DTSBD373
01874 P4200-WRITE-OFF-REV-UPDATE. DTSBD373
01875 PERFORM S530-WRITE-OFF-REV THRU S530-EXIT. DTSBD373
01876 P4200-EXIT. DTSBD373
01877 EXIT. DTSBD373
01878 EJECT DTSBD373
01879 P4300-WAGE-RPT-UPDATE. DTSBD373
01880 IF WRK-MQTR-EXISTS-IND = 'N' DTSBD373
01881 PERFORM S9200-INIT-MQTR THRU S9200-EXIT. DTSBD373
01882 DTSBD373
01883 * IF MQTR-WAGE-RPT-NO-88 DTSBD373
01884 * SET MQTR-WAGE-RPT-YES-88 TO TRUE DTSBD373
01885 * ELSE DTSBD373
01886 * MOVE MQTR-YRQ TO L004-QTR-5-9 DTSBD373
01887 * PERFORM S004-FROM-5 THRU S004-EXIT DTSBD373
01888 * MOVE L004-SLASH-QTR TO EVL1-SLASH-QTR DTSBD373
01889 * MOVE EVL1-TEXT TO EVL-TEXT DTSBD373
01890 * PERFORM S5000-WRITE-MEVL THRU S5000-EXIT DTSBD373
01891 * SET MQTR-WAGE-RPT-NO-88 TO TRUE. DTSBD373
01892 DTSBD373
01893 PERFORM S1200-WRITE-OR-REWRITE-MQTR THRU S1200-EXIT. DTSBD373
01894 P4300-EXIT. DTSBD373
01895 EXIT. DTSBD373
01896 EJECT DTSBD373
01897 S1100-READ-AADJ-APPLIC-YRQ. DTSBD373
01898 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBD373
01899 DTSBD373
01900 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBD373
01901 DTSBD373
01902 SET MQTR-QTR-88 TO TRUE. DTSBD373
01903 DTSBD373
01904 MOVE AADJ-APPLIC-YRQ TO MQTR-YRQ. DTSBD373
01905 DTSBD373
01906 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBD373
01907 DTSBD373
01908 PERFORM S910-READ THRU S910-EXIT. DTSBD373
01909 DTSBD373
01910 MOVE MSKL-REC TO MQTR-REC. DTSBD373
01911 DTSBD373
01912 IF L910-OK-88 DTSBD373
01913 MOVE 'Y' TO WRK-MQTR-EXISTS-IND DTSBD373
01914 ELSE DTSBD373
01915 MOVE 'N' TO WRK-MQTR-EXISTS-IND. DTSBD373
01916 S1100-EXIT. DTSBD373
01917 EXIT. DTSBD373
01918 EJECT DTSBD373
01919 S1200-WRITE-OR-REWRITE-MQTR. DTSBD373
01920 MOVE +0 TO WRK-BALANCE-AMT. DTSBD373
01921 DTSBD373
01922 PERFORM S1210-ACCT-SCAN THRU S1210-EXIT DTSBD373
01923 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBD373
01924 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT. DTSBD373
01925 DTSBD373
01926 IF (WRK-BALANCE-AMT = +0) DTSBD373
01927 OR DTSBD373
01928 (WRK-BALANCE-AMT > LBCM-QTR-TOL-MAX) DTSBD373
01929 NEXT SENTENCE DTSBD373
01930 ELSE DTSBD373
01931 MOVE MQTR-YRQ TO L590-YRQ DTSBD373
01932 PERFORM S590-QTR-TOL THRU S590-EXIT. DTSBD373
01933 DTSBD373
01934 DTSBD373
01935 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBD373
01936 DTSBD373
01937 PERFORM S910-READ THRU S910-EXIT. DTSBD373
01938 DTSBD373
01939 MOVE LBCM-CURR-RUN-DATE TO MQTR-CHNG-DATE. DTSBD373
01940 DTSBD373
01941 MOVE MQTR-REC TO MSKL-REC. DTSBD373
01942 DTSBD373
01943 IF L910-OK-88 DTSBD373
01944 PERFORM S910-REWRITE THRU S910-EXIT DTSBD373
01945 ELSE DTSBD373
01946 PERFORM S910-WRITE THRU S910-EXIT. DTSBD373
01947 S1200-EXIT. DTSBD373
01948 EXIT. DTSBD373
01949 SKIP3 DTSBD373
01950 S1210-ACCT-SCAN. DTSBD373
01951 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBD373
01952 TO WRK-BALANCE-AMT. DTSBD373
01953 S1210-EXIT. DTSBD373
01954 EXIT. DTSBD373
01955 EJECT DTSBD373
01956 S1300-READ-AADJ-APPLIC-MDST. DTSBD373
01957 MOVE LOW-VALUES TO MDST-KEY-AREA. DTSBD373
01958 DTSBD373
01959 MOVE MPRF-EMP-NO TO MDST-EMP-NO. DTSBD373
01960 DTSBD373
01961 SET MDST-DST-88 TO TRUE. DTSBD373
01962 DTSBD373
01963 SET MDST-CREDIT-REC-88 TO TRUE. DTSBD373
01964 DTSBD373
01965 MOVE AADJ-APPLIC-DOC-NO TO MDST-DOC-NO. DTSBD373
01966 DTSBD373
01967 MOVE MDST-KEY-AREA TO MSKL-KEY-AREA. DTSBD373
01968 DTSBD373
01969 PERFORM S910-READ THRU S910-EXIT. DTSBD373
01970 DTSBD373
01971 MOVE MSKL-REC TO MDST-REC. DTSBD373
01972 DTSBD373
01973 IF L910-OK-88 DTSBD373
01974 MOVE 'Y' TO WRK-MDST-EXISTS-IND DTSBD373
01975 ELSE DTSBD373
01976 MOVE 'N' TO WRK-MDST-EXISTS-IND. DTSBD373
01977 S1300-EXIT. DTSBD373
01978 EXIT. DTSBD373
01979 EJECT DTSBD373
01980 S1400-WRITE-OR-REWRITE-MDST. DTSBD373
01981 *****PERFORM S1410-ACCT-SCAN THRU S1410-EXIT DTSBD373
01982 ******** VARYING MDST-ACCT-IDX FROM 1 BY 1 DTSBD373
01983 *********UNTIL MDST-ACCT-IDX > MDST-ACCT-CNT. DTSBD373
01984 DTSBD373
01985 MOVE MDST-KEY-AREA TO MSKL-KEY-AREA. DTSBD373
01986 DTSBD373
01987 PERFORM S910-READ THRU S910-EXIT. DTSBD373
01988 DTSBD373
01989 MOVE LBCM-CURR-RUN-DATE TO MDST-CHNG-DATE. DTSBD373
01990 DTSBD373
01991 MOVE MDST-REC TO MSKL-REC. DTSBD373
01992 DTSBD373
01993 IF L910-OK-88 DTSBD373
01994 IF MDST-ACCT-CNT = +0 DTSBD373
01995 PERFORM S910-DELETE THRU S910-EXIT DTSBD373
01996 ELSE DTSBD373
01997 PERFORM S910-REWRITE THRU S910-EXIT DTSBD373
01998 ELSE DTSBD373
01999 IF MDST-ACCT-CNT = +0 DTSBD373
02000 NEXT SENTENCE DTSBD373
02001 ELSE DTSBD373
02002 PERFORM S910-WRITE THRU S910-EXIT. DTSBD373
02003 S1400-EXIT. DTSBD373
02004 EXIT. DTSBD373
02005 SKIP3 DTSBD373
02006 *S1410-ACCT-SCAN. DTSBD373
02007 *****IF MDST-ACCT-CR-AVAIL-88 (MDST-ACCT-IDX) DTSBD373
02008 *********IF (MDST-AMT (MDST-ACCT-IDX) = +0) DTSBD373
02009 ****************OR DTSBD373
02010 ************(MDST-AMT (MDST-ACCT-IDX) > LBCM-CR-TOL-MAX) DTSBD373
02011 *************NEXT SENTENCE DTSBD373
02012 *********ELSE DTSBD373
02013 *************MOVE MDST-DOC-NO TO L590-PAY-DOC-NO DTSBD373
02014 *************PERFORM S590-CR-TOL THRU S590-EXIT. DTSBD373
02015 *S1410-EXIT. DTSBD373
02016 *****EXIT. DTSBD373
02017 EJECT DTSBD373
02018 S2100-SET-CURR-RPT-TYPE. DTSBD373
02019 *& DTSBD373
02020 DISPLAY 'BD373 S2100 ' MPRF-EMP-NO DTSBD373
02021 ' RPT TYPE ' MQTR-CURR-RPT-TYPE DTSBD373
02022 ' RPT DUE ' MQTR-RPT-DUE-DATE DTSBD373
02023 ' WRK DUE ' WRK-RPT-DUE-DATE DTSBD373
02024 DISPLAY ' DEL DATE ' WRK-DELINQUENT-YRQ DTSBD373
02025 ' RUN DATE ' LBCM-CURR-RUN-DATE. DTSBD373
02026 *& DTSBD373
02027 IF MQTR-CURR-NOT-DUE-88 OR MQTR-CURR-DELINQ-88 DTSBD373
02028 NEXT SENTENCE DTSBD373
02029 ELSE DTSBD373
02030 GO TO S2100-EXIT. DTSBD373
02031 DTSBD373
02032 DTSBD373
02033 IF MQTR-YRQ = LBCM-PICKUP-YRQ DTSBD373
02034 SET MQTR-CURR-PICKUP-88 TO TRUE DTSBD373
02035 GO TO S2100-EXIT. DTSBD373
02036 DTSBD373
02037 DTSBD373
02038 PERFORM S2110-DECR-PURSUED-RPT-CNT THRU S2110-EXIT. DTSBD373
02039 DTSBD373
02040 IF MQTR-RPT-DUE-DATE = WRK-RPT-DUE-DATE DTSBD373
02041 IF MQTR-YRQ > WRK-DELINQUENT-YRQ DTSBD373
02042 SET MQTR-CURR-NOT-DUE-88 TO TRUE DTSBD373
02043 ELSE DTSBD373
02044 SET MQTR-CURR-DELINQ-88 TO TRUE DTSBD373
02045 ELSE DTSBD373
02046 IF MQTR-RPT-DUE-DATE > LBCM-CURR-RUN-DATE DTSBD373
02047 SET MQTR-CURR-NOT-DUE-88 TO TRUE DTSBD373
02048 MOVE MQTR-RPT-DUE-DATE TO WRK-TRIGGER-DATE DTSBD373
02049 PERFORM S2120-GENERATE-LTE-TCK THRU S2120-EXIT DTSBD373
02050 ELSE DTSBD373
02051 SET MQTR-CURR-DELINQ-88 TO TRUE. DTSBD373
02052 DTSBD373
02053 MOVE MQTR-PURSUED-RPT-IND TO WRK-PURSUED-RPT-IND. DTSBD373
02054 DTSBD373
02055 PERFORM S2130-SET-PURSUED-RPT-IND THRU S2130-EXIT. DTSBD373
02056 DTSBD373
02057 PERFORM S2140-INCR-PURSUED-RPT-CNT THRU S2140-EXIT. DTSBD373
02058 S2100-EXIT. DTSBD373
02059 EXIT. DTSBD373
02060 SKIP3 DTSBD373
02061 S2110-DECR-PURSUED-RPT-CNT. DTSBD373
02062 IF MQTR-RPT-IS-PURSUED-88 DTSBD373
02063 IF WRK-ANNUAL-SCHED-YES-88 DTSBD373
02064 MOVE MQTR-YRQ TO L004-QTR-5-9 DTSBD373
02065 IF L004-QTR-5-YR = WRK-CURR-ANN-YR DTSBD373
02066 NEXT SENTENCE DTSBD373
02067 ELSE DTSBD373
02068 SUBTRACT 1 FROM MPRF-PURSUED-RPT-CNT DTSBD373
02069 END-IF DTSBD373
02070 ELSE DTSBD373
02071 SUBTRACT 1 FROM MPRF-PURSUED-RPT-CNT DTSBD373
02072 END-IF DTSBD373
02073 END-IF. DTSBD373
02074 DTSBD373
02075 S2110-EXIT. DTSBD373
02076 EXIT. DTSBD373
02077 SKIP3 DTSBD373
02078 S2120-GENERATE-LTE-TCK. DTSBD373
02079 MOVE LOW-VALUES TO MTCK-REC. DTSBD373
02080 DTSBD373
02081 MOVE MPRF-EMP-NO TO MTCK-EMP-NO. DTSBD373
02082 DTSBD373
02083 SET MTCK-TCK-88 TO TRUE. DTSBD373
02084 DTSBD373
02085 ADD +1 TO LBCM-EMP-ABSTIME. DTSBD373
02086 DTSBD373
02087 MOVE LBCM-EMP-ABSTIME TO MTCK-ESTB-ABSTIME. DTSBD373
02088 DTSBD373
02089 MOVE +0 TO MTCK-PURGE-DATE DTSBD373
02090 MTCK-TEXT-CNT. DTSBD373
02091 DTSBD373
02092 SET MTCK-TYPE-CHK-LATE-88 TO TRUE. DTSBD373
02093 DTSBD373
02094 MOVE WRK-TRIGGER-DATE TO MTCK-TRIGGER-DATE. DTSBD373
02095 DTSBD373
02096 MOVE +0 TO MTCK-ACKNOWLEDGED-DATE. DTSBD373
02097 DTSBD373
02098 SET MTCK-SOURCE-SYSTEM-88 TO TRUE. DTSBD373
02099 DTSBD373
02100 SET MTCK-DEST-SYSTEM-88 TO TRUE. DTSBD373
02101 DTSBD373
02102 MOVE MQTR-YRQ TO MTCK-LTE-YRQ. DTSBD373
02103 DTSBD373
02104 SET MTCK-NOT-CONVERTED-88 TO TRUE. DTSBD373
02105 DTSBD373
02106 MOVE LBCM-CURR-RUN-DATE TO MTCK-ESTB-DATE DTSBD373
02107 MTCK-CHNG-DATE. DTSBD373
02108 DTSBD373
02109 MOVE MTCK-REC TO MSKL-REC. DTSBD373
02110 DTSBD373
02111 PERFORM S910-WRITE THRU S910-EXIT. DTSBD373
02112 S2120-EXIT. DTSBD373
02113 EXIT. DTSBD373
02114 SKIP3 DTSBD373
02115 S2130-SET-PURSUED-RPT-IND. DTSBD373
02116 IF (MPRF-NOT-WRITTEN-OFF-88) DTSBD373
02117 AND DTSBD373
02118 (MQTR-CURR-DELINQ-88 OR MQTR-CURR-ESTIM-88) DTSBD373
02119 AND DTSBD373
02120 (MQTR-YRQ NOT < LBCM-FIRST-PURSUED-RPT-YRQ) DTSBD373
02121 SET MQTR-RPT-IS-PURSUED-88 TO TRUE DTSBD373
02122 ELSE DTSBD373
02123 SET MQTR-RPT-NOT-PURSUED-88 TO TRUE. DTSBD373
02124 DTSBD373
02125 IF WRK-PURSUED-RPT-IND = 'N' DTSBD373
02126 IF MQTR-RPT-IS-PURSUED-88 DTSBD373
02127 PERFORM S590-QTR-PURSUED THRU S590-EXIT. DTSBD373
02128 S2130-EXIT. DTSBD373
02129 EXIT. DTSBD373
02130 SKIP3 DTSBD373
02131 S2140-INCR-PURSUED-RPT-CNT. DTSBD373
02132 IF MQTR-RPT-IS-PURSUED-88 DTSBD373
02133 IF WRK-ANNUAL-SCHED-YES-88 DTSBD373
02134 MOVE MQTR-YRQ TO L004-QTR-5-9 DTSBD373
02135 IF L004-QTR-5-YR = WRK-CURR-ANN-YR DTSBD373
02136 NEXT SENTENCE DTSBD373
02137 ELSE DTSBD373
02138 MOVE MQTR-YRQ TO WRK-CURR-ANN-YRQ DTSBD373
02139 ADD 1 TO MPRF-PURSUED-RPT-CNT DTSBD373
02140 END-IF DTSBD373
02141 ELSE DTSBD373
02142 ADD 1 TO MPRF-PURSUED-RPT-CNT DTSBD373
02143 END-IF DTSBD373
02144 END-IF. DTSBD373
02145 DTSBD373
02146 S2140-EXIT. DTSBD373
02147 EXIT. DTSBD373
02148 EJECT DTSBD373
02149 S3100-LOC-OR-ESTB-ACCT-DATA. DTSBD373
02150 MOVE +0 TO WRK-ACCT-SUB. DTSBD373
02151 DTSBD373
02152 PERFORM DTSBD373
02153 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBD373
02154 UNTIL (MQTR-ACCT-IDX > MQTR-ACCT-CNT) DTSBD373
02155 OR DTSBD373
02156 (WRK-ACCT-SUB NOT = +0) DTSBD373
02157 IF WRK-ACCT-IND = MQTR-ACCT-IND (MQTR-ACCT-IDX) DTSBD373
02158 SET WRK-ACCT-SUB TO MQTR-ACCT-IDX DTSBD373
02159 END-IF DTSBD373
02160 END-PERFORM. DTSBD373
02161 DTSBD373
02162 IF WRK-ACCT-SUB NOT = +0 DTSBD373
02163 GO TO S3100-EXIT. DTSBD373
02164 DTSBD373
02165 IF MQTR-ACCT-CNT NOT < MMAX-QTR-ACCT-MAX DTSBD373
02166 PERFORM S999-ABEND THRU S999-EXIT. DTSBD373
02167 DTSBD373
02168 ADD +1 TO MQTR-ACCT-CNT. DTSBD373
02169 DTSBD373
02170 MOVE WRK-ACCT-IND TO MQTR-ACCT-IND (MQTR-ACCT-CNT). DTSBD373
02171 DTSBD373
02172 MOVE +0 TO MQTR-CHARGED-AMT (MQTR-ACCT-CNT) DTSBD373
02173 MQTR-PAID-AMT (MQTR-ACCT-CNT) DTSBD373
02174 MQTR-WAIVED-AMT (MQTR-ACCT-CNT) DTSBD373
02175 MQTR-WRITTEN-OFF-AMT (MQTR-ACCT-CNT) DTSBD373
02176 MQTR-TOLER-AMT (MQTR-ACCT-CNT) DTSBD373
02177 MQTR-BALANCE-AMT (MQTR-ACCT-CNT). DTSBD373
02178 DTSBD373
02179 MOVE MQTR-ACCT-CNT TO WRK-ACCT-SUB. DTSBD373
02180 S3100-EXIT. DTSBD373
02181 EXIT. DTSBD373
02182 EJECT DTSBD373
02183 S3200-REMOVE-MQTR-TOLERANCE. DTSBD373
02184 COMPUTE L541-AMT = MQTR-TOLER-AMT (WRK-ACCT-SUB) * -1. DTSBD373
02185 DTSBD373
02186 MOVE WRK-ACCT-SUB TO L541-ACCT-SUB. DTSBD373
02187 DTSBD373
02188 MOVE CACT-CAT-TOLER TO L541-CAT-IND. DTSBD373
02189 DTSBD373
02190 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD373
02191 S3200-EXIT. DTSBD373
02192 EXIT. DTSBD373
02193 EJECT DTSBD373
02194 S3300-DECR-PAID-WAIVED. DTSBD373
02195 MOVE +0 TO L522-AMT. DTSBD373
02196 DTSBD373
02197 IF MQTR-BALANCE-AMT (WRK-ACCT-SUB) < +0 DTSBD373
02198 COMPUTE L522-AMT = MQTR-PAID-AMT (WRK-ACCT-SUB) * -1 DTSBD373
02199 IF L522-AMT < MQTR-BALANCE-AMT (WRK-ACCT-SUB) DTSBD373
02200 MOVE MQTR-BALANCE-AMT (WRK-ACCT-SUB) TO L522-AMT. DTSBD373
02201 DTSBD373
02202 IF L522-AMT NOT = +0 DTSBD373
02203 MOVE WRK-ACCT-SUB TO L522-ACCT-SUB DTSBD373
02204 COMPUTE L522-AMT = L522-AMT * -1 DTSBD373
02205 PERFORM S522-REVERSE-PAID THRU S522-EXIT. DTSBD373
02206 DTSBD373
02207 DTSBD373
02208 MOVE +0 TO L541-AMT. DTSBD373
02209 DTSBD373
02210 IF MQTR-BALANCE-AMT (WRK-ACCT-SUB) < +0 DTSBD373
02211 COMPUTE L541-AMT = MQTR-WAIVED-AMT (WRK-ACCT-SUB) * -1 DTSBD373
02212 IF L541-AMT < MQTR-BALANCE-AMT (WRK-ACCT-SUB) DTSBD373
02213 MOVE MQTR-BALANCE-AMT (WRK-ACCT-SUB) DTSBD373
02214 TO L541-AMT. DTSBD373
02215 DTSBD373
02216 IF L541-AMT NOT = +0 DTSBD373
02217 MOVE WRK-ACCT-SUB TO L541-ACCT-SUB DTSBD373
02218 MOVE CACT-CAT-WAIVED TO L541-CAT-IND DTSBD373
02219 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBD373
02220 DTSBD373
02221 IF MQTR-BALANCE-AMT (WRK-ACCT-SUB) < +0 DTSBD373
02222 PERFORM S999-ABEND THRU S999-EXIT. DTSBD373
02223 S3300-EXIT. DTSBD373
02224 EXIT. DTSBD373
02225 EJECT DTSBD373
02226 S3900-CRUNCH-ACCT-DATA. DTSBD373
02227 MOVE 'N' TO ACCT-CRUNCH-COMPLETE-IND. DTSBD373
02228 DTSBD373
02229 MOVE +1 TO ACCT-SUB. DTSBD373
02230 DTSBD373
02231 PERFORM S3910-CRUNCH-LOOP THRU S3910-EXIT DTSBD373
02232 UNTIL ACCT-CRUNCH-COMPLETE-IND = 'Y'. DTSBD373
02233 S3900-EXIT. DTSBD373
02234 EXIT. DTSBD373
02235 SKIP3 DTSBD373
02236 S3910-CRUNCH-LOOP. DTSBD373
02237 IF ACCT-SUB > MQTR-ACCT-CNT DTSBD373
02238 MOVE 'Y' TO ACCT-CRUNCH-COMPLETE-IND DTSBD373
02239 ELSE DTSBD373
02240 IF (MQTR-CHARGED-AMT (ACCT-SUB) = 0) DTSBD373
02241 AND DTSBD373
02242 (MQTR-PAID-AMT (ACCT-SUB) = 0) DTSBD373
02243 AND DTSBD373
02244 (MQTR-WAIVED-AMT (ACCT-SUB) = 0) DTSBD373
02245 AND DTSBD373
02246 (MQTR-WRITTEN-OFF-AMT (ACCT-SUB) = 0) DTSBD373
02247 AND DTSBD373
02248 (MQTR-TOLER-AMT (ACCT-SUB) = 0) DTSBD373
02249 AND DTSBD373
02250 (MQTR-BALANCE-AMT (ACCT-SUB) = 0) DTSBD373
02251 PERFORM S3911-SHUFFLE THRU S3911-EXIT DTSBD373
02252 VARYING ACCT-SUB1 FROM ACCT-SUB BY 1 DTSBD373
02253 UNTIL ACCT-SUB1 NOT < MQTR-ACCT-CNT DTSBD373
02254 SUBTRACT 1 FROM MQTR-ACCT-CNT DTSBD373
02255 ELSE DTSBD373
02256 ADD +1 TO ACCT-SUB. DTSBD373
02257 S3910-EXIT. DTSBD373
02258 EXIT. DTSBD373
02259 SKIP3 DTSBD373
02260 S3911-SHUFFLE. DTSBD373
02261 COMPUTE ACCT-SUB2 = ACCT-SUB1 + 1. DTSBD373
02262 DTSBD373
02263 MOVE MQTR-ACCT-GROUP (ACCT-SUB2) DTSBD373
02264 TO MQTR-ACCT-GROUP (ACCT-SUB1). DTSBD373
02265 S3911-EXIT. DTSBD373
02266 EXIT. DTSBD373
02267 EJECT DTSBD373
02268 S4000-RECOMPUTE-INT. DTSBD373
02269 SET L101-WAIVE-INT-NO-88 TO TRUE. DTSBD373
02270 DTSBD373
02271 *****SET L101-WAIVE-PEN-NO-88 TO TRUE. DTSBD373
02272 DTSBD373
02273 MOVE MQTR-TAX-DUE-DATE TO L101-TAX-DUE-DATE. DTSBD373
02274 DTSBD373
02275 *****MOVE +0 TO L101-PEN-CHARGED-AMT. DTSBD373
02276 DTSBD373
02277 MOVE MQTR-INT-AREA TO L101-INT-AREA. DTSBD373
02278 DTSBD373
02279 *****MOVE +0 TO L101-SUBJ10-AMT DTSBD373
02280 ****************L101-SUBJ15-AMT. DTSBD373
02281 DTSBD373
02282 *****MOVE +0 TO WRK-LATE-PEN-CHARGED-AMT DTSBD373
02283 DTSBD373
02284 MOVE +0 TO WRK-INT-CHARGED-AMT. DTSBD373
02285 DTSBD373
02286 DTSBD373
02287 MOVE LOW-VALUES TO MDST-KEY-AREA. DTSBD373
02288 DTSBD373
02289 MOVE MPRF-EMP-NO TO MDST-EMP-NO. DTSBD373
02290 DTSBD373
02291 SET MDST-DST-88 TO TRUE. DTSBD373
02292 DTSBD373
02293 MOVE MQTR-YRQ TO MDST-YRQ. DTSBD373
02294 DTSBD373
02295 MOVE MDST-KEY-AREA TO MSKL-KEY-AREA. DTSBD373
02296 DTSBD373
02297 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD373
02298 DTSBD373
02299 PERFORM S4100-SCAN-MDST THRU S4100-EXIT DTSBD373
02300 UNTIL L910-NO-REC-88. DTSBD373
02301 DTSBD373
02302 *****MOVE L101-SUBJ10-AMT TO MQTR-TAX-PAID-SUBJ10-AMT. DTSBD373
02303 DTSBD373
02304 *****MOVE L101-SUBJ15-AMT TO MQTR-TAX-PAID-SUBJ15-AMT. DTSBD373
02305 S4000-EXIT. DTSBD373
02306 EXIT. DTSBD373
02307 SKIP3 DTSBD373
02308 S4100-SCAN-MDST. DTSBD373
02309 MOVE MSKL-REC TO MDST-REC. DTSBD373
02310 DTSBD373
02311 IF MDST-YRQ = MQTR-YRQ DTSBD373
02312 NEXT SENTENCE DTSBD373
02313 ELSE DTSBD373
02314 SET L910-NO-REC-88 TO TRUE DTSBD373
02315 GO TO S4100-EXIT. DTSBD373
02316 DTSBD373
02317 PERFORM S4110-SCAN-ACCT THRU S4110-EXIT DTSBD373
02318 VARYING MDST-ACCT-IDX FROM 1 BY 1 DTSBD373
02319 UNTIL MDST-ACCT-IDX > MDST-ACCT-CNT. DTSBD373
02320 DTSBD373
02321 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBD373
02322 S4100-EXIT. DTSBD373
02323 EXIT. DTSBD373
02324 SKIP3 DTSBD373
02325 S4110-SCAN-ACCT. DTSBD373
02326 **************************************************** DTSBD373
02327 * PRIOR TO 2008/1, UI TAX ONLY IS SUBJECT TO PENALTY. DTSBD373
02328 * FOR 2008/1 AND FOLLOWING, ADMIN ASSESS IS ALSO INCLUDED. DTSBD373
02329 **************************************************** DTSBD373
02330 IF (MDST-ACCT-UI-88 (MDST-ACCT-IDX) DTSBD373
02331 OR (MQTR-ACCT-SUR-88 (WRK-ACCT-SUB) DTSBD373
02332 AND MQTR-YRQ >= WRK-FIRST-PEN-INT-YRQ)) DTSBD373
02333 NEXT SENTENCE DTSBD373
02334 ELSE DTSBD373
02335 GO TO S4110-EXIT. DTSBD373
02336 DTSBD373
02337 MOVE MDST-AMT (MDST-ACCT-IDX) TO L101-PAID-CHNG. DTSBD373
02338 DTSBD373
02339 MOVE MDST-RECEIVED-DATE TO L101-RECEIVED-DATE. DTSBD373
02340 DTSBD373
02341 PERFORM S101-PER-MONTH-NO THRU S101-EXIT. DTSBD373
02342 DTSBD373
02343 ADD L101-INT-CHARGE-CHNG TO WRK-INT-CHARGED-AMT. DTSBD373
02344 DTSBD373
02345 *****ADD L101-PEN-CHARGE-CHNG TO WRK-LATE-PEN-CHARGED-AMT DTSBD373
02346 *********************************L101-PEN-CHARGED-AMT. DTSBD373
02347 DTSBD373
02348 *****ADD L101-SUBJ10-CHNG TO L101-SUBJ10-AMT. DTSBD373
02349 DTSBD373
02350 *****ADD L101-SUBJ15-CHNG TO L101-SUBJ15-AMT. DTSBD373
02351 S4110-EXIT. DTSBD373
02352 EXIT. DTSBD373
02353 EJECT DTSBD373
02354 S5000-WRITE-MEVL. DTSBD373
02355 ADD +1000 TO LBCM-EMP-ABSTIME. DTSBD373
02356 DTSBD373
02357 MOVE LBCM-EMP-ABSTIME TO L005-ABSTIME. DTSBD373
02358 DTSBD373
02359 PERFORM S005-FROM-ABSTIME THRU S005-EXIT. DTSBD373
02360 DTSBD373
02361 DTSBD373
02362 MOVE LOW-VALUES TO MEVL-REC. DTSBD373
02363 DTSBD373
02364 MOVE MPRF-EMP-NO TO MEVL-EMP-NO. DTSBD373
02365 DTSBD373
02366 SET MEVL-EVL-88 TO TRUE. DTSBD373
02367 DTSBD373
02368 MOVE L005-DATE TO MEVL-DATE. DTSBD373
02369 DTSBD373
02370 MOVE L005-TIME TO MEVL-TIME. DTSBD373
02371 DTSBD373
02372 DTSBD373
02373 MOVE ZEROS TO MEVL-PURGE-DATE. DTSBD373
02374 DTSBD373
02375 DTSBD373
02376 MOVE EVL-TEXT TO MEVL-TEXT. DTSBD373
02377 DTSBD373
02378 SET MEVL-SOURCE-SYSTEM-88 TO TRUE. DTSBD373
02379 DTSBD373
02380 SET MEVL-NOT-CONVERTED-88 TO TRUE. DTSBD373
02381 DTSBD373
02382 MOVE LBCM-CURR-RUN-DATE TO MEVL-ESTB-DATE DTSBD373
02383 MEVL-CHNG-DATE. DTSBD373
02384 DTSBD373
02385 DTSBD373
02386 MOVE MEVL-REC TO MSKL-REC. DTSBD373
02387 DTSBD373
02388 PERFORM S910-WRITE THRU S910-EXIT. DTSBD373
02389 S5000-EXIT. DTSBD373
02390 EXIT. DTSBD373
02391 EJECT DTSBD373
02392 S9100-ESTB-MADJ. DTSBD373
02393 MOVE LOW-VALUES TO MADJ-REC. DTSBD373
02394 DTSBD373
02395 MOVE MPRF-EMP-NO TO MADJ-EMP-NO. DTSBD373
02396 DTSBD373
02397 SET MADJ-ADJ-88 TO TRUE. DTSBD373
02398 DTSBD373
02399 MOVE AADJ-DOC-NO TO MADJ-DOC-NO. DTSBD373
02400 DTSBD373
02401 MOVE +0 TO MADJ-PURGE-DATE. DTSBD373
02402 DTSBD373
02403 MOVE AADJ-ADJ-TYPE TO MADJ-ADJ-TYPE. DTSBD373
02404 DTSBD373
02405 MOVE AADJ-AMT TO MADJ-AMT. DTSBD373
02406 DTSBD373
02407 MOVE AADJ-RECEIVED-DATE TO MADJ-RECEIVED-DATE. DTSBD373
02408 DTSBD373
02409 MOVE AADJ-DEPOSIT-DATE TO MADJ-DEPOSIT-DATE. DTSBD373
02410 DTSBD373
02411 MOVE AADJ-APPLIC-YRQ TO MADJ-APPLIC-YRQ. DTSBD373
02412 DTSBD373
02413 MOVE AADJ-APPLIC-IND TO MADJ-APPLIC-IND. DTSBD373
02414 DTSBD373
02415 MOVE AADJ-APPLIC-DOC-NO TO MADJ-APPLIC-DOC-NO. DTSBD373
02416 DTSBD373
02417 MOVE AADJ-DATE-1 TO MADJ-DATE-1. DTSBD373
02418 DTSBD373
02419 MOVE AADJ-DATE-2 TO MADJ-DATE-2. DTSBD373
02420 DTSBD373
02421 MOVE AADJ-INT-SPAN-IND TO MADJ-INT-SPAN-IND. DTSBD373
02422 DTSBD373
02423 MOVE AADJ-INT-RATE TO MADJ-INT-RATE. DTSBD373
02424 DTSBD373
02425 MOVE AADJ-RESPONSIBLE-ACTIVITY TO MADJ-RESPONSIBLE-ACTIVITY. DTSBD373
02426 DTSBD373
02427 MOVE AADJ-RESPONSIBLE-OP-ID TO MADJ-RESPONSIBLE-OP-ID. DTSBD373
02428 DTSBD373
02429 MOVE AADJ-CMP-ESTB-ABSTIME TO MADJ-CMP-ESTB-ABSTIME. DTSBD373
02430 DTSBD373
02431 SET MADJ-NOT-CONVERTED-88 TO TRUE. DTSBD373
02432 DTSBD373
02433 MOVE LBCM-CURR-RUN-DATE TO MADJ-ESTB-DATE DTSBD373
02434 MADJ-CHNG-DATE. DTSBD373
02435 DTSBD373
02436 MOVE MADJ-REC TO MSKL-REC. DTSBD373
02437 DTSBD373
02438 PERFORM S910-WRITE THRU S910-EXIT. DTSBD373
02439 S9100-EXIT. DTSBD373
02440 EXIT. DTSBD373
02441 EJECT DTSBD373
02442 S9200-INIT-MQTR. DTSBD373
02443 PERFORM S511-MQTR-INIT THRU S511-EXIT. DTSBD373
02444 DTSBD373
02445 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBD373
02446 DTSBD373
02447 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBD373
02448 DTSBD373
02449 SET MQTR-QTR-88 TO TRUE. DTSBD373
02450 DTSBD373
02451 MOVE AADJ-APPLIC-YRQ TO MQTR-YRQ. DTSBD373
02452 DTSBD373
02453 SET MQTR-NOT-CONVERTED-88 TO TRUE. DTSBD373
02454 DTSBD373
02455 MOVE LBCM-CURR-RUN-DATE TO MQTR-ESTB-DATE DTSBD373
02456 MQTR-CHNG-DATE. DTSBD373
02457 DTSBD373
02458 MOVE MQTR-YRQ TO L516-YRQ. DTSBD373
02459 DTSBD373
02460 PERFORM S516-LIABILITY-INFO THRU S516-EXIT. DTSBD373
02461 DTSBD373
02462 IF L516-LIABLE-88 DTSBD373
02463 SET MQTR-CURR-NOT-DUE-88 TO TRUE DTSBD373
02464 ELSE DTSBD373
02465 SET MQTR-CURR-NOT-LIABLE-88 TO TRUE. DTSBD373
02466 DTSBD373
02467 IF MQTR-YRQ > WRK-DELINQUENT-YRQ DTSBD373
02468 SET MQTR-MISS-NOT-YET-RUN-88 TO TRUE DTSBD373
02469 ELSE DTSBD373
02470 SET MQTR-MISS-NOT-LIABLE-88 TO TRUE. DTSBD373
02471 DTSBD373
02472 MOVE L516-UI-RATE TO MQTR-UI-RATE. DTSBD373
02473 DTSBD373
02474 MOVE L516-DEFAULT-TAX-DUE-DATE TO MQTR-TAX-DUE-DATE. DTSBD373
02475 DTSBD373
02476 MOVE L516-DEFAULT-RPT-DUE-DATE TO MQTR-RPT-DUE-DATE. DTSBD373
02477 DTSBD373
02478 PERFORM S2100-SET-CURR-RPT-TYPE THRU S2100-EXIT. DTSBD373
02479 DTSBD373
02480 DTSBD373
02481 IF MQTR-YRQ = LBCM-PICKUP-YRQ DTSBD373
02482 SET MQTR-CURR-PICKUP-88 TO TRUE DTSBD373
02483 SET MQTR-MISS-NOT-LIABLE-88 TO TRUE DTSBD373
02484 SET MQTR-NO-UI-RATE-88 TO TRUE DTSBD373
02485 SET MQTR-INT-CHARGE-MANUAL-88 TO TRUE DTSBD373
02486 SET MQTR-PEN-CHARGE-MANUAL-88 TO TRUE. DTSBD373
02487 S9200-EXIT. DTSBD373
02488 EXIT. DTSBD373
02489 EJECT DTSBD373
02490 S001-FROM-FED-8. DTSBD373
02491 SET L001-FROM-FED-8 TO TRUE. DTSBD373
02492 GO TO S001-DATE. DTSBD373
02493 DTSBD373
02494 S001-FROM-ABS-DAY. DTSBD373
02495 SET L001-FROM-ABS-DAY TO TRUE. DTSBD373
02496 GO TO S001-DATE. DTSBD373
02497 DTSBD373
02498 S001-DATE. DTSBD373
02499 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBD373
02500 S001-EXIT. DTSBD373
02501 EXIT. DTSBD373
02502 SKIP3 DTSBD373
02503 S004-FROM-5. DTSBD373
02504 SET L004-FROM-5 TO TRUE. DTSBD373
02505 GO TO S004-QTR. DTSBD373
02506 DTSBD373
02507 S004-QTR. DTSBD373
02508 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBD373
02509 S004-EXIT. DTSBD373
02510 EXIT. DTSBD373
02511 SKIP3 DTSBD373
02512 S005-FROM-ABSTIME. DTSBD373
02513 SET L005-FROM-ABSTIME TO TRUE. DTSBD373
02514 GO TO S005-ABSTIME. DTSBD373
02515 DTSBD373
02516 S005-ABSTIME. DTSBD373
02517 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBD373
02518 S005-EXIT. DTSBD373
02519 EXIT. DTSBD373
02520 SKIP3 DTSBD373
02521 S101-PER-MONTH-NO. DTSBD373
02522 SET L101-PER-MONTH-NO-88 TO TRUE. DTSBD373
02523 GO TO S101-CALC-INT. DTSBD373
02524 DTSBD373
02525 S101-CALC-INT. DTSBD373
02526 CALL 'DTSBU101' USING L101-LINK-AREA. DTSBD373
02527 S101-EXIT. DTSBD373
02528 EXIT. DTSBD373
02529 SKIP3 DTSBD373
02530 S109-FIRST-PEN-INT-YRQ. DTSBD373
02531 SET L109-CMND-PEN-INT-QTR-88 TO TRUE. DTSBD373
02532 GO TO S109-SUR-RATE. DTSBD373
02533 DTSBD373
02534 S109-LOOKUP-SUR-RATE. DTSBD373
02535 MOVE MPRF-EMP-CLASS TO L109-EMP-CLASS. DTSBD373
02536 MOVE MQTR-YRQ TO L109-YRQ. DTSBD373
02537 GO TO S109-SUR-RATE. DTSBD373
02538 DTSBD373
02539 S109-SUR-RATE. DTSBD373
02540 CALL 'DTSBU109' USING L109-LINK-AREA. DTSBD373
02541 S109-EXIT. DTSBD373
02542 EXIT. DTSBD373
02543 SKIP3 DTSBD373
02544 S415-ANNUAL-DATES. DTSBD373
02545 CALL 'DTSBU415' USING L415-LINK-AREA. DTSBD373
02546 S415-EXIT. DTSBD373
02547 EXIT. DTSBD373
02548 DTSBD373
02549 S511-MQTR-INIT. DTSBD373
02550 CALL 'DTSBU511' USING MQTR-REC. DTSBD373
02551 S511-EXIT. DTSBD373
02552 EXIT. DTSBD373
02553 SKIP3 DTSBD373
02554 S516-LIABILITY-INFO. DTSBD373
02555 CALL 'DTSBU516' USING L516-LINK-AREA DTSBD373
02556 MPRF-REC. DTSBD373
02557 S516-EXIT. DTSBD373
02558 EXIT. DTSBD373
02559 SKIP3 DTSBD373
02560 S520-APPLY-CREDIT. DTSBD373
02561 CALL 'DTSBU520' USING L520-LINK-AREA DTSBD373
02562 LBCM-LINK-AREA DTSBD373
02563 MPRF-REC. DTSBD373
02564 S520-EXIT. DTSBD373
02565 EXIT. DTSBD373
02566 SKIP3 DTSBD373
02567 S522-REVERSE-PAID. DTSBD373
02568 CALL 'DTSBU522' USING L522-LINK-AREA DTSBD373
02569 LBCM-LINK-AREA DTSBD373
02570 MPRF-REC DTSBD373
02571 MQTR-REC. DTSBD373
02572 S522-EXIT. DTSBD373
02573 EXIT. DTSBD373
02574 SKIP3 DTSBD373
02575 S530-WRITE-OFF. DTSBD373
02576 SET L530-WRITE-OFF-88 TO TRUE. DTSBD373
02577 MOVE LBCM-CURR-RUN-DATE TO L530-WRITE-OFF-DATE. DTSBD373
02578 GO TO S530-WRITE-OFF-WRITE-OFF-REV. DTSBD373
02579 DTSBD373
02580 S530-WRITE-OFF-REV. DTSBD373
02581 SET L530-REVERSE-WRITE-OFF-88 TO TRUE. DTSBD373
02582 MOVE LBCM-CURR-RUN-DATE TO L530-WRITE-OFF-DATE. DTSBD373
02583 GO TO S530-WRITE-OFF-WRITE-OFF-REV. DTSBD373
02584 DTSBD373
02585 S530-WRITE-OFF-WRITE-OFF-REV. DTSBD373
02586 CALL 'DTSBU530' USING L530-LINK-AREA DTSBD373
02587 LBCM-LINK-AREA DTSBD373
02588 MPRF-REC. DTSBD373
02589 S530-EXIT. DTSBD373
02590 EXIT. DTSBD373
02591 SKIP3 DTSBD373
02592 S541-MODIFY-AMT. DTSBD373
02593 MOVE AADJ-DOC-NO TO L541-TRN-DOC-NO. DTSBD373
02594 DTSBD373
02595 CALL 'DTSBU541' USING L541-LINK-AREA DTSBD373
02596 MPRF-REC DTSBD373
02597 MQTR-REC. DTSBD373
02598 S541-EXIT. DTSBD373
02599 EXIT. DTSBD373
02600 SKIP3 DTSBD373
02601 S542-MDST-MAINTENANCE. DTSBD373
02602 MOVE 'DTSBD373' TO L542-CALLED-BY. DTSBD373
02603 MOVE AADJ-DOC-NO TO L542-TRN-DOC-NO. DTSBD373
02604 DTSBD373
02605 CALL 'DTSBU542' USING L542-LINK-AREA DTSBD373
02606 MPRF-REC DTSBD373
02607 MDST-REC. DTSBD373
02608 S542-EXIT. DTSBD373
02609 EXIT. DTSBD373
02610 SKIP3 DTSBD373
02611 S590-QTR-TOL. DTSBD373
02612 SET L590-QTR-TOL-88 TO TRUE. DTSBD373
02613 MOVE AADJ-DOC-NO TO L590-TOL-DOC-NO. DTSBD373
02614 MOVE WRK-NULL-DOC-NO TO L590-PAY-DOC-NO. DTSBD373
02615 GO TO S590-EMP-CLEANUP. DTSBD373
02616 DTSBD373
02617 *S590-CR-TOL. DTSBD373
02618 *****SET L590-CR-TOL-88 TO TRUE. DTSBD373
02619 *****MOVE AADJ-DOC-NO TO L590-TOL-DOC-NO. DTSBD373
02620 *****MOVE +0 TO L590-YRQ. DTSBD373
02621 *****GO TO S590-EMP-CLEANUP. DTSBD373
02622 DTSBD373
02623 S590-QTR-PURSUED. DTSBD373
02624 SET L590-QTR-PURSUED-88 TO TRUE. DTSBD373
02625 MOVE MQTR-YRQ TO L590-YRQ. DTSBD373
02626 MOVE WRK-NULL-DOC-NO TO L590-PAY-DOC-NO DTSBD373
02627 L590-TOL-DOC-NO. DTSBD373
02628 GO TO S590-EMP-CLEANUP. DTSBD373
02629 DTSBD373
02630 S590-EMP-CLEANUP. DTSBD373
02631 CALL 'DTSBU590' USING L590-LINK-AREA DTSBD373
02632 LBCM-LINK-AREA DTSBD373
02633 MPRF-REC. DTSBD373
02634 S590-EXIT. DTSBD373
02635 EXIT. DTSBD373
02636 SKIP3 DTSBD373
02637 S910-READ. DTSBD373
02638 SET L910-READ-88 TO TRUE. DTSBD373
02639 GO TO S910-MSTR-IO. DTSBD373
02640 DTSBD373
02641 S910-START-BROWSE. DTSBD373
02642 SET L910-START-BROWSE-88 TO TRUE. DTSBD373
02643 GO TO S910-MSTR-IO. DTSBD373
02644 DTSBD373
02645 S910-READ-NEXT. DTSBD373
02646 SET L910-READ-NEXT-88 TO TRUE. DTSBD373
02647 GO TO S910-MSTR-IO. DTSBD373
02648 DTSBD373
02649 *S910-COUNT. DTSBD373
02650 *****SET L910-COUNT-88 TO TRUE. DTSBD373
02651 *****GO TO S910-MSTR-IO. DTSBD373
02652 DTSBD373
02653 S910-WRITE. DTSBD373
02654 SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBD373
02655 SET L910-WRITE-88 TO TRUE. DTSBD373
02656 GO TO S910-MSTR-IO. DTSBD373
02657 DTSBD373
02658 S910-REWRITE. DTSBD373
02659 SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBD373
02660 SET L910-REWRITE-88 TO TRUE. DTSBD373
02661 GO TO S910-MSTR-IO. DTSBD373
02662 DTSBD373
02663 S910-DELETE. DTSBD373
02664 SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBD373
02665 SET L910-DELETE-88 TO TRUE. DTSBD373
02666 GO TO S910-MSTR-IO. DTSBD373
02667 DTSBD373
02668 S910-MSTR-IO. DTSBD373
02669 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD373
02670 MSKL-REC. DTSBD373
02671 S910-EXIT. DTSBD373
02672 EXIT. DTSBD373
02673 SKIP3 DTSBD373
02674 S946-R907-WRITE. DTSBD373
02675 CALL 'DTSBU946' USING R907-REC. DTSBD373
02676 S946-EXIT. DTSBD373
02677 EXIT. DTSBD373
02678 SKIP3 DTSBD373
02679 S999-ABEND. DTSBD373
02680 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD373
02681 S999-EXIT. DTSBD373
02682 EXIT. DTSBD373
Reference in New Issue View Git Blame Copy Permalink