00001 IDENTIFICATION DIVISION. 11/03/08 00002 PROGRAM-ID. DTSBU521. DTSBU521 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV011 00004 DATE-WRITTEN. JANUARY 1991. DTSBU521 00005 DATE-COMPILED. DTSBU521 00006 SKIP3 DTSBU521 00007 ***** DTSBU521 00008 * DTSBU521 00009 * FUNCTION: APPLY/REVERSE A PAYMENT DISTRIBUTION. DTSBU521 00010 * DTSBU521 00011 * DTSBU521 00012 * MODIFICATION LOG: DTSBU521 00013 * DTSBU521 00014 * 01/26/92 INITIAL DEVELOPMENT. DTSBU521 00015 * WORK ORDER: PROGRAMMER: TCL DTSBU521 00016 * DTSBU521 00017 * 12/10/1998 REVIEWED AND MODIFIED FOR DC. DTSBU521 00018 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBU521 00019 * DTSBU521 00020 * 02/20/2006 INTEREST CALCULATION MODIFIED - ONLY UI TAX DTSBU521 00021 * BALANCE INCLUDED. P2200, P3000. DTSBU521 00022 * REFERENCE: ADMIN ASSESSMENT PROGRAMMER: GD DTSBU521 00023 * DTSBU521 00024 * 02/12/2008 INTEREST CALCULATION MODIFIED TO INCLUDE SUR DTSBU521 00025 * TAX. P2200, P3000. DTSBU521 00026 * REFERENCE: ADMIN ASSESSMENT PROGRAMMER: ZL1 DTSBU521 00027 * DTSBU521 00028 * 10/31/2008 INTEREST CALCULATION MODIFIED TO EXCLUDE DTSBU521 00029 * ADMIN ASSESSMENT FROM INTEREST CALCULATION DTSBU521 00030 * IF THE EMPLOYER IS SELF-INSURED. DTSBU521 00031 * P2200, P3000. DTSBU521 00032 * REFERENCE: DIR119 PROGRAMMER: GD DTSBU521 00033 * DTSBU521 00034 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU521 00035 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU521 00036 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBU521 00037 * DTSBU521 00038 * DTSBU521 00039 * DESCRIPTION: DTSBU521 00040 * DTSBU521 00041 * MODIFY THE PAID AMOUNT DEFINED BY L521-APPLIC-ACCT-IND, DTSBU521 00042 * L521-APPLIC-YRQ, AND L521-APPLIC-DOC-NO BY DTSBU521 00043 * L521-APPLIC-AMT. DTSBU521 00044 * DTSBU521 00045 * L521-OPTION ALLOWS THE CALLING MODULE TO SIMPLY ASK DTSBU521 00046 * WHETHER OR NOT THE REQUEST WOULD BE VALID, BUT NOT DTSBU521 00047 * ACTUALLY MODIFY THE MQTR RECORDS. DTSBU521 00048 * DTSBU521 00049 * IF THE REQUEST CANNOT BE SATISFIED (BALANCE DUE DEFINED DTSBU521 00050 * BY L521-APPLIC-* DOES NOT EXIST, OR WOULD CAUSE PAID AMOUNTDTSBU521 00051 * TO BECOME NEGATIVE), THEN RETURN L521-NOT-VALID-88. DTSBU521 00052 * DTSBU521 00053 * THE INTEREST CHARGED AMOUNT MAY BE CHANGED AS A RESULT OF DTSBU521 00054 * CHANGES TO TAX PAID. DTSBU521 00055 * DTSBU521 00056 * DTSBU521 00057 * MASTER FILE RECORDS READ: DTSBU521 00058 * DTSBU521 00059 * MQTR DTSBU521 00060 * MPAY DTSBU521 00061 * DTSBU521 00062 * DTSBU521 00063 * MASTER FILE RECORDS UPDATED: DTSBU521 00064 * DTSBU521 00065 * MQTR (REWRITE) DTSBU521 00066 * DTSBU521 00067 * DTSBU521 00068 * REPORT RECORDS WRITTEN: DTSBU521 00069 * DTSBU521 00070 * R907 ERROR. DTSBU521 00071 * DTSBU521 00072 * DTSBU521 00073 * MODULES CALLED: DTSBU521 00074 * DTSBU521 00075 * DTSBU522 RETURN A PAID AMOUNT TO UNAPPLIED CREDIT. DTSBU521 00076 * DTSBU529 PAY-DSTRB CONSOLIDATION. DTSBU521 00077 * DTSBU541 MODIFY A SPECIFIED CHARGED, WAIVED, TOLERATED, DTSBU521 00078 * OR WRITE-OFF AMOUNT. DTSBU521 00079 * DTSBU549 JOURNALING/BATCH DETAIL LISTING. DTSBU521 00080 * DTSBU590 EMPLOYER CLEANUP. DTSBU521 00081 * DTSBU910 MASTER FILE I/O. DTSBU521 00082 * DTSBU946 VARIABLE LENGTH RECORD SEQUENTIAL OUTPUT 1. DTSBU521 00083 * DTSBU521 00084 * DTSBU521 00085 ***** DTSBU521 00086 SKIP3 DTSBU521 00087 ENVIRONMENT DIVISION. DTSBU521 00088 EJECT DTSBU521 00089 DATA DIVISION. DTSBU521 00090 SKIP3 DTSBU521 00091 WORKING-STORAGE SECTION. DTSBU521 000915 77 PAN-VALET PICTURE X(24) VALUE '011DTSBU521 11/03/08'. DTSBU521 00092 SKIP3 DTSBU521 00093 01 WRK-AREA. DTSBU521 00094 05 WRK-AMT-DISP1 PIC --------9.99. DTSBU521 00095 05 WRK-AMT-DISP2 PIC --------9.99. DTSBU521 00096 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +521.DTSBU521 00097 DTSBU521 00098 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBU521'.DTSBU521 00099 DTSBU521 00100 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBU521 00101 DTSBU521 00102 DTSBU521 00103 05 WRK-NULL-DOC-NO. DTSBU521 00104 10 WRK-NULL-BATCH-NO PIC S9(05) COMP-3. DTSBU521 00105 10 WRK-NULL-ITEM-NO PIC S9(03) COMP-3. DTSBU521 00106 DTSBU521 00107 DTSBU521 00108 05 WRK-MPRF-CREDIT-AMT PIC S9(09)V9(02) COMP-3. DTSBU521 00109 DTSBU521 00110 05 WRK-MPRF-BALANCE-AMT PIC S9(09)V9(02) COMP-3. DTSBU521 00111 DTSBU521 00112 05 WRK-MQTR-BALANCE-AMT PIC S9(09)V9(02) COMP-3. DTSBU521 00113 DTSBU521 00114 05 WRK-MQTR-PAID-AMT PIC S9(09)V9(02) COMP-3. DTSBU521 00115 DTSBU521 00116 DTSBU521 00117 05 HOLD-MQTR-SUB PIC S9(04) COMP. DTSBU521 00118 DTSBU521 00119 05 HOLD-INT-SUB PIC S9(04) COMP. DTSBU521 00120 DTSBU521 00121 *****05 HOLD-PEN-SUB PIC S9(04) COMP. DTSBU521 00122 DTSBU521 00123 05 HOLD-TAX-SUB PIC S9(04) COMP. DTSBU521 00124 DTSBU521 00125 05 HOLD-ACCT-SUB PIC S9(04) COMP. DTSBU521 00126 DTSBU521 00127 DTSBU521 00128 05 ACCT-CRUNCH-COMPLETE-IND PIC X(01). DTSBU521 00129 DTSBU521 00130 05 ACCT-SUB PIC S9(04) COMP. DTSBU521 00131 DTSBU521 00132 05 ACCT-SUB1 PIC S9(04) COMP. DTSBU521 00133 DTSBU521 00134 05 ACCT-SUB2 PIC S9(04) COMP. DTSBU521 00135 DTSBU521 00136 DTSBU521 00137 05 WRK-INT-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSBU521 00138 DTSBU521 00139 *****05 WRK-PEN-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSBU521 00140 DTSBU521 00141 05 WRK-TAX-CHARGED-AMT PIC S9(09)V9(02) COMP-3. DTSBU521 00142 DTSBU521 00143 05 WRK-MQTR-TOT-BALANCE-AMT PIC S9(09)V9(02) COMP-3. DTSBU521 00144 DTSBU521 00145 05 WRK-TAX-PAID-AMT PIC S9(09)V9(02) COMP-3. DTSBU521 00146 EJECT DTSBU521 00147 01 HOLD-AREA. DTSBU521 00148 05 HOLD-EMP-NO PIC S9(07) COMP-3. DTSBU521 00149 DTSBU521 00150 05 HOLD-YRQ-AREA. DTSBU521 00151 10 HOLD-YRQ-INDS OCCURS 400 TIMES. DTSBU521 00152 15 HOLD-YRQ-MSG1-IND PIC X(01). DTSBU521 00153 88 HOLD-YRQ-MSG1-SENT-88 VALUE 'Y'. DTSBU521 00154 88 HOLD-YRQ-MSG1-NOT-SENT-88 VALUE ' '. DTSBU521 00155 15 HOLD-YRQ-MSG2-IND PIC X(01). DTSBU521 00156 88 HOLD-YRQ-MSG2-SENT-88 VALUE 'Y'. DTSBU521 00157 88 HOLD-YRQ-MSG2-NOT-SENT-88 VALUE ' '. DTSBU521 00158 15 HOLD-YRQ-MSG3-IND PIC X(01). DTSBU521 00159 88 HOLD-YRQ-MSG3-SENT-88 VALUE 'Y'. DTSBU521 00160 88 HOLD-YRQ-MSG3-NOT-SENT-88 VALUE ' '. DTSBU521 00161 15 HOLD-YRQ-MSG4-IND PIC X(01). DTSBU521 00162 88 HOLD-YRQ-MSG4-SENT-88 VALUE 'Y'. DTSBU521 00163 88 HOLD-YRQ-MSG4-NOT-SENT-88 VALUE ' '. DTSBU521 00164 15 HOLD-YRQ-MSG5-IND PIC X(01). DTSBU521 00165 88 HOLD-YRQ-MSG5-SENT-88 VALUE 'Y'. DTSBU521 00166 88 HOLD-YRQ-MSG5-NOT-SENT-88 VALUE ' '. DTSBU521 00167 15 HOLD-YRQ-MSG6-IND PIC X(01). DTSBU521 00168 88 HOLD-YRQ-MSG6-SENT-88 VALUE 'Y'. DTSBU521 00169 88 HOLD-YRQ-MSG6-NOT-SENT-88 VALUE ' '. DTSBU521 00170 EJECT DTSBU521 00171 01 MSG-TABLE. DTSBU521 00172 05 MSG1-MANUAL-INT. DTSBU521 00173 10 MSG1-ID. DTSBU521 00174 15 MSG1-ID1 PIC X(08) VALUE 'DTSBU521'. DTSBU521 00175 15 MSG1-ID2 PIC X(03) VALUE '356'. DTSBU521 00176 10 MSG1-SHORT-TEXT PIC X(20) VALUE 'MAN INT QTR PD'. DTSBU521 00177 10 MSG1-LONG-TEXT. DTSBU521 00178 15 FILLER PIC X(30) DTSBU521 00179 VALUE 'TAX PAID MODIFIED IN A MANUAL '. DTSBU521 00180 15 FILLER PIC X(25) DTSBU521 00181 VALUE 'INTEREST QUARTER. YRQ = '. DTSBU521 00182 15 MSG1-SLASHED-YRQ PIC X(04). DTSBU521 00183 DTSBU521 00184 *****05 MSG2-MANUAL-PEN. DTSBU521 00185 *********10 MSG2-ID. DTSBU521 00186 *************15 MSG2-ID1 PIC X(08) VALUE 'DTSBU521'. DTSBU521 00187 *************15 MSG2-ID2 PIC X(03) VALUE '357'. DTSBU521 00188 *********10 MSG2-SHORT-TEXT PIC X(20) VALUE 'MAN PEN QTR PD'. DTSBU521 00189 *********10 MSG2-LONG-TEXT. DTSBU521 00190 *************15 FILLER PIC X(30) DTSBU521 00191 *******************VALUE 'TAX PAID MODIFIED IN A MANUAL '. DTSBU521 00192 *************15 FILLER PIC X(25) DTSBU521 00193 *******************VALUE 'PENALTY QUARTER. YRQ = '. DTSBU521 00194 *************15 MSG2-SLASHED-YRQ PIC X(04). DTSBU521 00195 DTSBU521 00196 05 MSG3-AUTO-INT-WAIVE-INCR. DTSBU521 00197 10 MSG3-ID. DTSBU521 00198 15 MSG3-ID1 PIC X(08) VALUE 'DTSBU521'. DTSBU521 00199 15 MSG3-ID2 PIC X(11) VALUE '358'. DTSBU521 00200 10 MSG3-SHORT-TEXT PIC X(20) VALUE 'AUTO INT WAIVE'. DTSBU521 00201 10 MSG3-LONG-TEXT. DTSBU521 00202 15 FILLER PIC X(30) DTSBU521 00203 VALUE 'INTEREST WAIVED INCREASED AUTO'. DTSBU521 00204 15 FILLER PIC X(25) DTSBU521 00205 VALUE 'MATICALLY. YRQ = '. DTSBU521 00206 15 MSG3-SLASHED-YRQ PIC X(04). DTSBU521 00207 DTSBU521 00208 *****05 MSG4-AUTO-PEN-WAIVE-INCR. DTSBU521 00209 *********10 MSG4-ID. DTSBU521 00210 *************15 MSG4-ID1 PIC X(08) VALUE 'DTSBU521'. DTSBU521 00211 *************15 MSG4-ID2 PIC X(11) VALUE '359'. DTSBU521 00212 *********10 MSG4-SHORT-TEXT PIC X(20) VALUE 'AUTO PEN WAIVE'. DTSBU521 00213 *********10 MSG4-LONG-TEXT. DTSBU521 00214 *************15 FILLER PIC X(30) DTSBU521 00215 *******************VALUE 'PENALTY WAIVED INCREASED AUTOM'. DTSBU521 00216 *************15 FILLER PIC X(25) DTSBU521 00217 *******************VALUE 'ATICALLY. YRQ = '. DTSBU521 00218 *************15 MSG4-SLASHED-YRQ PIC X(04). DTSBU521 00219 DTSBU521 00220 05 MSG5-AUTO-INT-WAIVE-DECR. DTSBU521 00221 10 MSG5-ID. DTSBU521 00222 15 MSG5-ID1 PIC X(08) VALUE 'DTSBU521'. DTSBU521 00223 15 MSG5-ID2 PIC X(11) VALUE '360'. DTSBU521 00224 10 MSG5-SHORT-TEXT PIC X(20) VALUE 'AUTO INT WAIVE'. DTSBU521 00225 10 MSG5-LONG-TEXT. DTSBU521 00226 15 FILLER PIC X(30) DTSBU521 00227 VALUE 'INTEREST WAIVED DECREASED AUTO'. DTSBU521 00228 15 FILLER PIC X(25) DTSBU521 00229 VALUE 'MATICALLY. YRQ = '. DTSBU521 00230 15 MSG5-SLASHED-YRQ PIC X(04). DTSBU521 00231 DTSBU521 00232 *****05 MSG6-AUTO-PEN-WAIVE-DECR. DTSBU521 00233 *********10 MSG6-ID. DTSBU521 00234 *************15 MSG6-ID1 PIC X(08) VALUE 'DTSBU521'. DTSBU521 00235 *************15 MSG6-ID2 PIC X(11) VALUE '361'. DTSBU521 00236 *********10 MSG6-SHORT-TEXT PIC X(20) VALUE 'AUTO PEN WAIVE'. DTSBU521 00237 *********10 MSG6-LONG-TEXT. DTSBU521 00238 *************15 FILLER PIC X(30) DTSBU521 00239 *******************VALUE 'PENALTY WAIVED DECREASED AUTOM'. DTSBU521 00240 *************15 FILLER PIC X(25) DTSBU521 00241 *******************VALUE 'ATICALLY. YRQ = '. DTSBU521 00242 *************15 MSG6-SLASHED-YRQ PIC X(04). DTSBU521 00243 EJECT DTSBU521 00244 01 R907-REC. DTSBU521 00245 ++INCLUDE DTSIR907 DTSBU521 00246 EJECT DTSBU521 00247 01 L910-LINK-AREA. DTSBU521 00248 ++INCLUDE DTSIL910 DTSBU521 00249 SKIP3 DTSBU521 00250 01 MSKL-REC. DTSBU521 00251 ++INCLUDE DTSIMSKL DTSBU521 00252 SKIP3 DTSBU521 00253 01 MQTR-REC. DTSBU521 00254 ++INCLUDE DTSIMQTR DTSBU521 00255 EJECT DTSBU521 00256 01 L004-LINK-AREA. DTSBU521 00257 ++INCLUDE DTSIL004 DTSBU521 00258 SKIP3 DTSBU521 00259 01 L101-LINK-AREA. DTSBU521 00260 ++INCLUDE DTSIL101 DTSBU521 00261 SKIP3 DTSBU521 00262 01 L109-LINK-AREA. DTSBU521 00263 ++INCLUDE DTSIL109 DTSBU521 00264 SKIP3 DTSBU521 00265 01 L522-LINK-AREA. DTSBU521 00266 ++INCLUDE DTSIL522 DTSBU521 00267 SKIP3 DTSBU521 00268 01 L541-LINK-AREA. DTSBU521 00269 ++INCLUDE DTSIL541 DTSBU521 00270 SKIP3 DTSBU521 00271 01 L549-LINK-AREA. DTSBU521 00272 ++INCLUDE DTSIL549 DTSBU521 00273 SKIP3 DTSBU521 00274 01 L590-LINK-AREA. DTSBU521 00275 ++INCLUDE DTSIL590 DTSBU521 00276 EJECT DTSBU521 00277 01 CACT-LITERALS. DTSBU521 00278 ++INCLUDE DTSICACT DTSBU521 00279 SKIP3 DTSBU521 00280 01 MMAX-LITERALS. DTSBU521 00281 ++INCLUDE DTSIMMAX DTSBU521 00282 EJECT DTSBU521 00283 LINKAGE SECTION. DTSBU521 00284 SKIP3 DTSBU521 00285 01 L521-LINK-AREA. DTSBU521 00286 ++INCLUDE DTSIL521 DTSBU521 00287 EJECT DTSBU521 00288 01 LBCM-LINK-AREA. DTSBU521 00289 ++INCLUDE DTSILBCM DTSBU521 00290 EJECT DTSBU521 00291 01 MPRF-REC. DTSBU521 00292 ++INCLUDE DTSIMPRF DTSBU521 00293 EJECT DTSBU521 00294 PROCEDURE DIVISION USING L521-LINK-AREA DTSBU521 00295 LBCM-LINK-AREA DTSBU521 00296 MPRF-REC. DTSBU521 00297 DTSBU521 00298 *& DTSBU521 00299 * IF MPRF-EMP-NO = 145516 DTSBU521 00300 * MOVE MPRF-TOT-BALANCE-AMT TO WRK-AMT-DISP1 DTSBU521 00301 * MOVE MPRF-TOT-CREDIT-AMT TO WRK-AMT-DISP2 DTSBU521 00302 * DISPLAY 'BU521 PROC ' MPRF-EMP-NO DTSBU521 00303 * ' BAL ' WRK-AMT-DISP1 DTSBU521 00304 * ' CR ' WRK-AMT-DISP2 DTSBU521 00305 * END-IF. DTSBU521 00306 *& DTSBU521 00307 DTSBU521 00308 DTSBU521 00309 IF FIRST-TIME-IND = 'Y' DTSBU521 00310 PERFORM I0000-FIRST-TIME THRU I0000-EXIT DTSBU521 00311 MOVE 'N' TO FIRST-TIME-IND. DTSBU521 00312 DTSBU521 00313 DTSBU521 00314 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBU521 00315 DTSBU521 00316 DTSBU521 00317 GOBACK. DTSBU521 00318 EJECT DTSBU521 00319 I0000-FIRST-TIME. DTSBU521 00320 MOVE LBCM-TRACE-IND TO L910-TRACE-IND. DTSBU521 00321 DTSBU521 00322 MOVE WRK-MOD-NAME TO L910-MOD-NAME DTSBU521 00323 R907-MODULE-NAME. DTSBU521 00324 DTSBU521 00325 MOVE +0 TO WRK-NULL-BATCH-NO DTSBU521 00326 WRK-NULL-ITEM-NO. DTSBU521 00327 DTSBU521 00328 MOVE LENGTH OF R907-REC TO R907-LENGTH. DTSBU521 00329 DTSBU521 00330 PERFORM S109-FIRST-PEN-INT-YRQ THRU S109-EXIT. DTSBU521 00331 DTSBU521 00332 PERFORM P1000-EMP-NO-BREAK THRU P1000-EXIT. DTSBU521 00333 DTSBU521 00334 I0000-EXIT. DTSBU521 00335 EXIT. DTSBU521 00336 EJECT DTSBU521 00337 P0000-PROCESS. DTSBU521 00338 *& DTSBU521 00339 * IF MPRF-EMP-NO = 145516 DTSBU521 00340 * MOVE L521-APPLIC-AMT TO WRK-AMT-DISP1 DTSBU521 00341 * DISPLAY ' BU521 P0000 ' MPRF-EMP-NO DTSBU521 00342 * ' YRQ ' L521-APPLIC-YRQ DTSBU521 00343 * ' AMT ' WRK-AMT-DISP1 DTSBU521 00344 * ' IND ' L521-APPLIC-ACCT-IND DTSBU521 00345 * END-IF. DTSBU521 00346 *& DTSBU521 00347 IF MPRF-EMP-NO = HOLD-EMP-NO DTSBU521 00348 NEXT SENTENCE DTSBU521 00349 ELSE DTSBU521 00350 PERFORM P1000-EMP-NO-BREAK THRU P1000-EXIT. DTSBU521 00351 DTSBU521 00352 MOVE MPRF-EMP-NO TO R907-EMP-NO. DTSBU521 00353 DTSBU521 00354 MOVE LBCM-TRN-DOC-NO TO L549-TRN-DOC-NO. DTSBU521 00355 DTSBU521 00356 SET L521-VALID-88 TO TRUE. DTSBU521 00357 DTSBU521 00358 IF L521-CHECK-VALIDITY-88 OR L521-UPDATE-88 DTSBU521 00359 NEXT SENTENCE DTSBU521 00360 ELSE DTSBU521 00361 PERFORM S999-ABEND THRU S999-EXIT. DTSBU521 00362 DTSBU521 00363 IF L521-APPLIC-ACCT-IND = CACT-ACCT-CREDIT DTSBU521 00364 OR CACT-CR-AVAIL DTSBU521 00365 OR CACT-CR-WRITE-OFF DTSBU521 00366 OR CACT-CR-TOLER DTSBU521 00367 PERFORM S999-ABEND THRU S999-EXIT. DTSBU521 00368 DTSBU521 00369 PERFORM P2100-EDIT THRU P2100-EXIT. DTSBU521 00370 DTSBU521 00371 IF L521-UPDATE-88 DTSBU521 00372 AND DTSBU521 00373 L521-VALID-88 DTSBU521 00374 PERFORM P2200-UPDATE THRU P2200-EXIT. DTSBU521 00375 P0000-EXIT. DTSBU521 00376 EXIT. DTSBU521 00377 SKIP3 DTSBU521 00378 P1000-EMP-NO-BREAK. DTSBU521 00379 MOVE MPRF-EMP-NO TO HOLD-EMP-NO. DTSBU521 00380 DTSBU521 00381 MOVE SPACES TO HOLD-YRQ-AREA. DTSBU521 00382 P1000-EXIT. DTSBU521 00383 EXIT. DTSBU521 00384 EJECT DTSBU521 00385 P2100-EDIT. DTSBU521 00386 PERFORM S1110-READ-MQTR THRU S1110-EXIT. DTSBU521 00387 DTSBU521 00388 IF L910-NO-REC-88 DTSBU521 00389 DISPLAY ' BU521 P2100 NO MQTR ' DTSBU521 00390 SET L521-NOT-VALID-88 TO TRUE DTSBU521 00391 GO TO P2100-EXIT. DTSBU521 00392 DTSBU521 00393 DTSBU521 00394 MOVE +0 TO HOLD-MQTR-SUB. DTSBU521 00395 DTSBU521 00396 PERFORM DTSBU521 00397 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBU521 00398 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBU521 00399 IF MQTR-ACCT-IND (MQTR-ACCT-IDX) = L521-APPLIC-ACCT-IND DTSBU521 00400 SET HOLD-MQTR-SUB TO MQTR-ACCT-IDX DTSBU521 00401 END-IF DTSBU521 00402 END-PERFORM. DTSBU521 00403 DTSBU521 00404 IF HOLD-MQTR-SUB = +0 DTSBU521 00405 DISPLAY ' BU521 P2100 APPLIC ACCT NOT FOUND ' DTSBU521 00406 SET L521-NOT-VALID-88 TO TRUE DTSBU521 00407 GO TO P2100-EXIT. DTSBU521 00408 DTSBU521 00409 DTSBU521 00410 COMPUTE WRK-MPRF-BALANCE-AMT DTSBU521 00411 = MPRF-TOT-BALANCE-AMT - L521-APPLIC-AMT. DTSBU521 00412 DTSBU521 00413 COMPUTE WRK-MQTR-BALANCE-AMT DTSBU521 00414 = MQTR-BALANCE-AMT (HOLD-MQTR-SUB) - L521-APPLIC-AMT. DTSBU521 00415 DTSBU521 00416 COMPUTE WRK-MQTR-PAID-AMT DTSBU521 00417 = MQTR-PAID-AMT (HOLD-MQTR-SUB) + L521-APPLIC-AMT. DTSBU521 00418 DTSBU521 00419 IF (WRK-MPRF-BALANCE-AMT < +0) DTSBU521 00420 OR DTSBU521 00421 (WRK-MQTR-BALANCE-AMT < +0) DTSBU521 00422 OR DTSBU521 00423 (WRK-MQTR-PAID-AMT < +0) DTSBU521 00424 DISPLAY ' BU521 P2100 BAL < 0' DTSBU521 00425 SET L521-NOT-VALID-88 TO TRUE DTSBU521 00426 GO TO P2100-EXIT. DTSBU521 00427 DTSBU521 00428 IF L521-APPLIC-ACCT-IND = CACT-ACCT-UI DTSBU521 00429 OR CACT-ACCT-SUR DTSBU521 00430 PERFORM P2120-EDIT-TAX THRU P2120-EXIT. DTSBU521 00431 P2100-EXIT. DTSBU521 00432 EXIT. DTSBU521 00433 SKIP3 DTSBU521 00434 P2120-EDIT-TAX. DTSBU521 00435 IF (MQTR-TAX-DUE-DATE = +0) DTSBU521 00436 OR DTSBU521 00437 (L521-RECEIVED-DATE = +0) DTSBU521 00438 DISPLAY ' BU521 P2120 DUE OR RCVD = 0' DTSBU521 00439 SET L521-NOT-VALID-88 TO TRUE DTSBU521 00440 GO TO P2120-EXIT. DTSBU521 00441 P2120-EXIT. DTSBU521 00442 EXIT. DTSBU521 00443 EJECT DTSBU521 00444 P2200-UPDATE. DTSBU521 00445 ** DISPLAY ' BU521 P2200-UPD1 ' MPRF-EMP-NO DTSBU521 00446 COMPUTE MPRF-TOT-BALANCE-AMT DTSBU521 00447 = MPRF-TOT-BALANCE-AMT - L521-APPLIC-AMT. DTSBU521 00448 DTSBU521 00449 COMPUTE MQTR-BALANCE-AMT (HOLD-MQTR-SUB) DTSBU521 00450 = MQTR-BALANCE-AMT (HOLD-MQTR-SUB) - L521-APPLIC-AMT. DTSBU521 00451 DTSBU521 00452 COMPUTE MQTR-PAID-AMT (HOLD-MQTR-SUB) DTSBU521 00453 = MQTR-PAID-AMT (HOLD-MQTR-SUB) + L521-APPLIC-AMT. DTSBU521 00454 DTSBU521 00455 MOVE LBCM-CURR-RUN-DATE TO MQTR-CHNG-DATE. DTSBU521 00456 DTSBU521 00457 DTSBU521 00458 MOVE MQTR-YRQ TO L549-DELTA-YRQ. DTSBU521 00459 DTSBU521 00460 MOVE MQTR-ACCT-IND (HOLD-MQTR-SUB) TO L549-DELTA-ACCT-IND. DTSBU521 00461 DTSBU521 00462 MOVE CACT-CAT-PAID TO L549-DELTA-CAT-IND. DTSBU521 00463 DTSBU521 00464 MOVE L521-APPLIC-AMT TO L549-DELTA-AMT. DTSBU521 00465 DTSBU521 00466 PERFORM S549-MJRN-TABLE THRU S549-EXIT. DTSBU521 00467 DTSBU521 00468 **************************************************** DTSBU521 00469 * PAYMENTS APPLIED TO ADMINISTRATIVE ASSESSMENT ARE DTSBU521 00470 * INCLUDED IN THE INTEREST CALCULATION ONLY FOR DTSBU521 00471 * RATED EMPLOYERS. DTSBU521 00472 **************************************************** DTSBU521 00473 IF L521-APPLIC-ACCT-IND = CACT-ACCT-UI DTSBU521 00474 PERFORM P2210-MANUAL-INT-CHECK THRU P2210-EXIT DTSBU521 00475 PERFORM P2220-INT-UPDATE THRU P2220-EXIT DTSBU521 00476 ELSE DTSBU521 00477 IF L521-APPLIC-ACCT-IND = CACT-ACCT-SUR DTSBU521 00478 AND MQTR-YRQ >= L109-FIRST-PEN-INT-YRQ DTSBU521 00479 AND MPRF-CLASS-RATED-88 DTSBU521 00480 PERFORM P2210-MANUAL-INT-CHECK THRU P2210-EXIT DTSBU521 00481 PERFORM P2220-INT-UPDATE THRU P2220-EXIT DTSBU521 00482 END-IF DTSBU521 00483 END-IF. DTSBU521 00484 DTSBU521 00485 PERFORM S2200-CRUNCH-ACCT-DATA THRU S2200-EXIT. DTSBU521 00486 DTSBU521 00487 PERFORM S1120-REWRITE-MQTR THRU S1120-EXIT. DTSBU521 00488 P2200-EXIT. DTSBU521 00489 EXIT. DTSBU521 00490 SKIP3 DTSBU521 00491 P2210-MANUAL-INT-CHECK. DTSBU521 00492 IF MQTR-INT-CHARGE-MANUAL-88 DTSBU521 00493 MOVE MQTR-YRQ TO L004-QTR-5-9 DTSBU521 00494 PERFORM S004-FROM-5 THRU S004-EXIT DTSBU521 00495 IF HOLD-YRQ-MSG1-NOT-SENT-88 (L004-ABS-QTR) DTSBU521 00496 SET HOLD-YRQ-MSG1-SENT-88 (L004-ABS-QTR) TO TRUE DTSBU521 00497 MOVE L004-SLASH-QTR TO MSG1-SLASHED-YRQ DTSBU521 00498 MOVE MSG1-ID2 TO R907-MSG-ID DTSBU521 00499 MOVE MSG1-LONG-TEXT TO R907-MSG-TEXT DTSBU521 00500 PERFORM S946-R907-WRITE THRU S946-EXIT. DTSBU521 00501 DTSBU521 00502 *****IF MQTR-PEN-CHARGE-MANUAL-88 DTSBU521 00503 *********MOVE MQTR-YRQ TO L004-QTR-5-9 DTSBU521 00504 *********PERFORM S004-FROM-5 THRU S004-EXIT DTSBU521 00505 *********IF HOLD-YRQ-MSG2-NOT-SENT-88 (L004-ABS-QTR) DTSBU521 00506 *************SET HOLD-YRQ-MSG2-SENT-88 (L004-ABS-QTR) TO TRUE DTSBU521 00507 *************MOVE L004-SLASH-QTR TO MSG2-SLASHED-YRQ DTSBU521 00508 *************MOVE MSG2-ID2 TO R907-MSG-ID DTSBU521 00509 *************MOVE MSG2-LONG-TEXT TO R907-MSG-TEXT DTSBU521 00510 *************PERFORM S946-R907-WRITE THRU S946-EXIT. DTSBU521 00511 P2210-EXIT. DTSBU521 00512 EXIT. DTSBU521 00513 SKIP3 DTSBU521 00514 P2220-INT-UPDATE. DTSBU521 00515 MOVE HOLD-MQTR-SUB TO HOLD-TAX-SUB. DTSBU521 00516 DTSBU521 00517 MOVE L521-APPLIC-AMT TO L101-PAID-CHNG. DTSBU521 00518 DTSBU521 00519 MOVE L521-RECEIVED-DATE TO L101-RECEIVED-DATE. DTSBU521 00520 DTSBU521 00521 MOVE L521-WAIVE-INT-IND TO L101-WAIVE-INT-IND. DTSBU521 00522 DTSBU521 00523 *****MOVE L521-WAIVE-PEN-IND TO L101-WAIVE-PEN-IND. DTSBU521 00524 DTSBU521 00525 MOVE MQTR-TAX-DUE-DATE TO L101-TAX-DUE-DATE. DTSBU521 00526 DTSBU521 00527 *****MOVE +0 TO L101-PEN-CHARGED-AMT. DTSBU521 00528 DTSBU521 00529 *****PERFORM DTSBU521 00530 *******VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBU521 00531 *******UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBU521 00532 *********IF MQTR-ACCT-PEN-88 (MQTR-ACCT-IDX) DTSBU521 00533 *************ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBU521 00534 **************TO L101-PEN-CHARGED-AMT DTSBU521 00535 *********END-IF DTSBU521 00536 *****END-PERFORM. DTSBU521 00537 DTSBU521 00538 MOVE MQTR-INT-AREA TO L101-INT-AREA. DTSBU521 00539 DTSBU521 00540 PERFORM S101-PER-MONTH-NO THRU S101-EXIT. DTSBU521 00541 DTSBU521 00542 MOVE +0 TO HOLD-INT-SUB. DTSBU521 00543 ****************HOLD-PEN-SUB. DTSBU521 00544 DTSBU521 00545 PERFORM DTSBU521 00546 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBU521 00547 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBU521 00548 IF MQTR-ACCT-INT-88 (MQTR-ACCT-IDX) DTSBU521 00549 SET HOLD-INT-SUB TO MQTR-ACCT-IDX DTSBU521 00550 END-IF DTSBU521 00551 *********IF MQTR-ACCT-PEN-88 (MQTR-ACCT-IDX) DTSBU521 00552 *************SET HOLD-PEN-SUB TO MQTR-ACCT-IDX DTSBU521 00553 *********END-IF DTSBU521 00554 END-PERFORM. DTSBU521 00555 DTSBU521 00556 IF HOLD-INT-SUB = +0 DTSBU521 00557 PERFORM P2222-ESTB-ACCT-INT THRU P2222-EXIT. DTSBU521 00558 DTSBU521 00559 PERFORM P3000-INTEREST THRU P3000-EXIT. DTSBU521 00560 DTSBU521 00561 *****IF HOLD-PEN-SUB = +0 DTSBU521 00562 *********PERFORM P2223-ESTB-ACCT-PEN THRU P2223-EXIT. DTSBU521 00563 DTSBU521 00564 *****PERFORM P4000-PENALTY THRU P4000-EXIT. DTSBU521 00565 P2220-EXIT. DTSBU521 00566 EXIT. DTSBU521 00567 SKIP3 DTSBU521 00568 P2222-ESTB-ACCT-INT. DTSBU521 00569 IF MQTR-ACCT-CNT NOT < MMAX-QTR-ACCT-MAX DTSBU521 00570 PERFORM S999-ABEND THRU S999-EXIT. DTSBU521 00571 DTSBU521 00572 ADD +1 TO MQTR-ACCT-CNT. DTSBU521 00573 DTSBU521 00574 MOVE MQTR-ACCT-CNT TO HOLD-INT-SUB. DTSBU521 00575 DTSBU521 00576 MOVE CACT-ACCT-INT TO MQTR-ACCT-IND (MQTR-ACCT-CNT). DTSBU521 00577 DTSBU521 00578 MOVE +0 TO MQTR-CHARGED-AMT (MQTR-ACCT-CNT) DTSBU521 00579 MQTR-PAID-AMT (MQTR-ACCT-CNT) DTSBU521 00580 MQTR-WAIVED-AMT (MQTR-ACCT-CNT) DTSBU521 00581 MQTR-WRITTEN-OFF-AMT (MQTR-ACCT-CNT) DTSBU521 00582 MQTR-TOLER-AMT (MQTR-ACCT-CNT) DTSBU521 00583 MQTR-BALANCE-AMT (MQTR-ACCT-CNT). DTSBU521 00584 P2222-EXIT. DTSBU521 00585 EXIT. DTSBU521 00586 SKIP3 DTSBU521 00587 *P2223-ESTB-ACCT-PEN. DTSBU521 00588 *****IF MQTR-ACCT-CNT NOT < MMAX-QTR-ACCT-MAX DTSBU521 00589 *********PERFORM S999-ABEND THRU S999-EXIT. DTSBU521 00590 DTSBU521 00591 *****ADD +1 TO MQTR-ACCT-CNT. DTSBU521 00592 *****MOVE MQTR-ACCT-CNT TO HOLD-PEN-SUB. DTSBU521 00593 *****MOVE CACT-ACCT-PEN TO MQTR-ACCT-IND (MQTR-ACCT-CNT). DTSBU521 00594 *****MOVE +0 TO MQTR-CHARGED-AMT (MQTR-ACCT-CNT) DTSBU521 00595 ****************MQTR-PAID-AMT (MQTR-ACCT-CNT) DTSBU521 00596 ****************MQTR-WAIVED-AMT (MQTR-ACCT-CNT) DTSBU521 00597 ****************MQTR-WRITTEN-OFF-AMT (MQTR-ACCT-CNT) DTSBU521 00598 ****************MQTR-TOLER-AMT (MQTR-ACCT-CNT) DTSBU521 00599 ****************MQTR-BALANCE-AMT (MQTR-ACCT-CNT). DTSBU521 00600 *P2223-EXIT. DTSBU521 00601 *****EXIT. DTSBU521 00602 EJECT DTSBU521 00603 P3000-INTEREST. DTSBU521 00604 ***** DTSBU521 00605 * THIS CODE ASSUMES THAT IF L101-INT-CHARGE-CHNG NOT > +0, DTSBU521 00606 * THEN L101-INT-WAIVE-CHNG IS EQUAL TO ZERO. DTSBU521 00607 * DTSBU521 00608 * THIS CODE ASSUMES THAT IF L101-INT-CHARGE-CHNG > +0, THEN DTSBU521 00609 * L101-INT-WAIVE-CHNG WILL BE >= 0 AND <= L101-INT-CHARGE-CHNG.DTSBU521 00610 ***** DTSBU521 00611 DTSBU521 00612 IF MQTR-INT-CHARGE-MANUAL-88 DTSBU521 00613 GO TO P3000-EXIT. DTSBU521 00614 DTSBU521 00615 MOVE +0 TO WRK-TAX-CHARGED-AMT DTSBU521 00616 WRK-TAX-PAID-AMT. DTSBU521 00617 DTSBU521 00618 ********************************************************** DTSBU521 00619 * UI TAX AND SUR TAX IS SUBJECT TO PENALTY DTSBU521 00620 ********************************************************** DTSBU521 00621 PERFORM DTSBU521 00622 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBU521 00623 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBU521 00624 IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBU521 00625 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBU521 00626 TO WRK-TAX-CHARGED-AMT DTSBU521 00627 ADD MQTR-PAID-AMT (MQTR-ACCT-IDX) DTSBU521 00628 TO WRK-TAX-PAID-AMT DTSBU521 00629 END-IF DTSBU521 00630 DTSBU521 00631 IF MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) DTSBU521 00632 AND MQTR-YRQ >= L109-FIRST-PEN-INT-YRQ DTSBU521 00633 AND MPRF-CLASS-RATED-88 DTSBU521 00634 ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBU521 00635 TO WRK-TAX-CHARGED-AMT DTSBU521 00636 ADD MQTR-PAID-AMT (MQTR-ACCT-IDX) DTSBU521 00637 TO WRK-TAX-PAID-AMT DTSBU521 00638 END-IF DTSBU521 00639 END-PERFORM. DTSBU521 00640 DTSBU521 00641 IF L101-INT-CHARGE-CHNG = +0 DTSBU521 00642 PERFORM P3100-NULL-INT-CHARGED THRU P3100-EXIT DTSBU521 00643 ELSE DTSBU521 00644 IF L101-INT-CHARGE-CHNG < +0 DTSBU521 00645 PERFORM P3300-DECR-INT-CHARGED THRU P3300-EXIT DTSBU521 00646 ELSE DTSBU521 00647 PERFORM P3200-INCR-INT-CHARGED THRU P3200-EXIT. DTSBU521 00648 P3000-EXIT. DTSBU521 00649 EXIT. DTSBU521 00650 SKIP3 DTSBU521 00651 P3100-NULL-INT-CHARGED. DTSBU521 00652 IF WRK-TAX-PAID-AMT > +0 DTSBU521 00653 GO TO P3100-EXIT. DTSBU521 00654 DTSBU521 00655 IF MQTR-CHARGED-AMT (HOLD-INT-SUB) = +0 DTSBU521 00656 GO TO P3100-EXIT. DTSBU521 00657 DTSBU521 00658 COMPUTE L541-AMT = MQTR-CHARGED-AMT (HOLD-INT-SUB) * -1. DTSBU521 00659 DTSBU521 00660 MOVE HOLD-INT-SUB TO L541-ACCT-SUB. DTSBU521 00661 DTSBU521 00662 MOVE CACT-CAT-CHARGED TO L541-CAT-IND. DTSBU521 00663 DTSBU521 00664 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBU521 00665 DTSBU521 00666 MOVE HOLD-INT-SUB TO HOLD-ACCT-SUB. DTSBU521 00667 DTSBU521 00668 PERFORM P5000-NEGATIVE-BALANCE THRU P5000-EXIT. DTSBU521 00669 P3100-EXIT. DTSBU521 00670 EXIT. DTSBU521 00671 SKIP3 DTSBU521 00672 P3200-INCR-INT-CHARGED. DTSBU521 00673 MOVE L101-INT-CHARGE-CHNG TO L541-AMT. DTSBU521 00674 DTSBU521 00675 MOVE HOLD-INT-SUB TO L541-ACCT-SUB. DTSBU521 00676 DTSBU521 00677 MOVE CACT-CAT-CHARGED TO L541-CAT-IND. DTSBU521 00678 DTSBU521 00679 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBU521 00680 DTSBU521 00681 DTSBU521 00682 IF L101-INT-WAIVE-CHNG > +0 DTSBU521 00683 MOVE L101-INT-WAIVE-CHNG TO L541-AMT DTSBU521 00684 MOVE HOLD-INT-SUB TO L541-ACCT-SUB DTSBU521 00685 MOVE CACT-CAT-WAIVED TO L541-CAT-IND DTSBU521 00686 PERFORM S541-MODIFY-AMT THRU S541-EXIT DTSBU521 00687 IF L101-WAIVE-INT-NO-88 DTSBU521 00688 MOVE MQTR-YRQ TO L004-QTR-5-9 DTSBU521 00689 PERFORM S004-FROM-5 THRU S004-EXIT DTSBU521 00690 IF HOLD-YRQ-MSG3-NOT-SENT-88 (L004-ABS-QTR) DTSBU521 00691 SET HOLD-YRQ-MSG3-SENT-88 (L004-ABS-QTR) TO TRUE DTSBU521 00692 MOVE L004-SLASH-QTR TO MSG3-SLASHED-YRQ DTSBU521 00693 MOVE MSG3-ID2 TO R907-MSG-ID DTSBU521 00694 MOVE MSG3-LONG-TEXT TO R907-MSG-TEXT DTSBU521 00695 PERFORM S946-R907-WRITE THRU S946-EXIT. DTSBU521 00696 DTSBU521 00697 IF WRK-TAX-PAID-AMT NOT > +0 DTSBU521 00698 COMPUTE L541-AMT = MQTR-CHARGED-AMT (HOLD-INT-SUB) DTSBU521 00699 * -1 DTSBU521 00700 MOVE HOLD-INT-SUB TO L541-ACCT-SUB DTSBU521 00701 MOVE CACT-CAT-CHARGED TO L541-CAT-IND DTSBU521 00702 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBU521 00703 DTSBU521 00704 MOVE HOLD-INT-SUB TO HOLD-ACCT-SUB. DTSBU521 00705 DTSBU521 00706 PERFORM P5000-NEGATIVE-BALANCE THRU P5000-EXIT. DTSBU521 00707 P3200-EXIT. DTSBU521 00708 EXIT. DTSBU521 00709 SKIP3 DTSBU521 00710 P3300-DECR-INT-CHARGED. DTSBU521 00711 COMPUTE WRK-INT-CHARGED-AMT DTSBU521 00712 = MQTR-CHARGED-AMT (HOLD-INT-SUB) DTSBU521 00713 + L101-INT-CHARGE-CHNG. DTSBU521 00714 DTSBU521 00715 IF WRK-TAX-PAID-AMT NOT > +0 DTSBU521 00716 COMPUTE L541-AMT DTSBU521 00717 = MQTR-CHARGED-AMT (HOLD-INT-SUB) * -1 DTSBU521 00718 ELSE DTSBU521 00719 IF WRK-INT-CHARGED-AMT < +0 DTSBU521 00720 COMPUTE L541-AMT DTSBU521 00721 = MQTR-CHARGED-AMT (HOLD-INT-SUB) * -1 DTSBU521 00722 ELSE DTSBU521 00723 MOVE L101-INT-CHARGE-CHNG TO L541-AMT. DTSBU521 00724 DTSBU521 00725 MOVE HOLD-INT-SUB TO L541-ACCT-SUB. DTSBU521 00726 DTSBU521 00727 MOVE CACT-CAT-CHARGED TO L541-CAT-IND. DTSBU521 00728 DTSBU521 00729 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBU521 00730 DTSBU521 00731 MOVE HOLD-INT-SUB TO HOLD-ACCT-SUB. DTSBU521 00732 DTSBU521 00733 PERFORM P5000-NEGATIVE-BALANCE THRU P5000-EXIT. DTSBU521 00734 P3300-EXIT. DTSBU521 00735 EXIT. DTSBU521 00736 EJECT DTSBU521 00737 *P4000-PENALTY. DTSBU521 00738 ***** DTSBU521 00739 * THIS CODE ASSUMES THAT IF L101-PEN-CHARGE-CHNG NOT > +0, DTSBU521 00740 * THEN L101-PEN-WAIVE-CHNG IS EQUAL TO ZERO. DTSBU521 00741 * DTSBU521 00742 * THIS CODE ASSUMES THAT IF L101-PEN-CHARGE-CHNG > +0, THEN DTSBU521 00743 * L101-PEN-WAIVE-CHNG WITH BE >= +0 AND <= DTSBU521 00744 * L101-PEN-CHARGE-CHNG. DTSBU521 00745 ***** DTSBU521 00746 DTSBU521 00747 *****ADD L101-SUBJ10-CHNG TO MQTR-TAX-PAID-SUBJ10-AMT. DTSBU521 00748 *****ADD L101-SUBJ15-CHNG TO MQTR-TAX-PAID-SUBJ15-AMT. DTSBU521 00749 DTSBU521 00750 *****MOVE +0 TO WRK-TAX-CHARGED-AMT DTSBU521 00751 ****************WRK-TAX-PAID-AMT. DTSBU521 00752 DTSBU521 00753 *****PERFORM DTSBU521 00754 *******VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBU521 00755 *******UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBU521 00756 *********IF MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBU521 00757 *************ADD MQTR-CHARGED-AMT (MQTR-ACCT-IDX) DTSBU521 00758 **************TO WRK-TAX-CHARGED-AMT DTSBU521 00759 *************ADD MQTR-PAID-AMT (MQTR-ACCT-IDX) DTSBU521 00760 **************TO WRK-TAX-PAID-AMT DTSBU521 00761 *********END-IF DTSBU521 00762 *****END-PERFORM. DTSBU521 00763 DTSBU521 00764 *****IF WRK-TAX-PAID-AMT = +0 DTSBU521 00765 *********MOVE +0 TO MQTR-TAX-PAID-SUBJ10-AMT DTSBU521 00766 ********************MQTR-TAX-PAID-SUBJ15-AMT. DTSBU521 00767 DTSBU521 00768 *****IF MQTR-PEN-CHARGE-MANUAL-88 DTSBU521 00769 *********GO TO P4000-EXIT. DTSBU521 00770 DTSBU521 00771 *****IF L101-PEN-CHARGE-CHNG = +0 DTSBU521 00772 *********PERFORM P4100-NULL-PEN-CHARGED THRU P4100-EXIT DTSBU521 00773 *****ELSE DTSBU521 00774 *****IF L101-PEN-CHARGE-CHNG < +0 DTSBU521 00775 *********PERFORM P4300-DECR-PEN-CHARGED THRU P4300-EXIT DTSBU521 00776 *****ELSE DTSBU521 00777 *********PERFORM P4200-INCR-PEN-CHARGED THRU P4200-EXIT. DTSBU521 00778 *P4000-EXIT. DTSBU521 00779 *****EXIT. DTSBU521 00780 SKIP3 DTSBU521 00781 *P4100-NULL-PEN-CHARGED. DTSBU521 00782 *****IF WRK-TAX-PAID-AMT > +0 DTSBU521 00783 *********GO TO P4100-EXIT. DTSBU521 00784 DTSBU521 00785 *****IF MQTR-CHARGED-AMT (HOLD-PEN-SUB) = +0 DTSBU521 00786 *********GO TO P4100-EXIT. DTSBU521 00787 DTSBU521 00788 *****COMPUTE L541-AMT = MQTR-CHARGED-AMT (HOLD-PEN-SUB) * -1. DTSBU521 00789 DTSBU521 00790 *****MOVE HOLD-PEN-SUB TO L541-ACCT-SUB. DTSBU521 00791 *****MOVE CACT-CAT-CHARGED TO L541-CAT-IND. DTSBU521 00792 *****PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBU521 00793 DTSBU521 00794 *****MOVE HOLD-PEN-SUB TO HOLD-ACCT-SUB. DTSBU521 00795 *****PERFORM P5000-NEGATIVE-BALANCE THRU P5000-EXIT. DTSBU521 00796 *P4100-EXIT. DTSBU521 00797 *****EXIT. DTSBU521 00798 SKIP3 DTSBU521 00799 *P4200-INCR-PEN-CHARGED. DTSBU521 00800 *****MOVE L101-PEN-CHARGE-CHNG TO L541-AMT. DTSBU521 00801 *****MOVE HOLD-PEN-SUB TO L541-ACCT-SUB. DTSBU521 00802 *****MOVE CACT-CAT-CHARGED TO L541-CAT-IND. DTSBU521 00803 *****PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBU521 00804 DTSBU521 00805 *****IF L101-PEN-WAIVE-CHNG > +0 DTSBU521 00806 *********MOVE L101-PEN-WAIVE-CHNG TO L541-AMT DTSBU521 00807 *********MOVE HOLD-PEN-SUB TO L541-ACCT-SUB DTSBU521 00808 *********MOVE CACT-CAT-WAIVED TO L541-CAT-IND DTSBU521 00809 *********PERFORM S541-MODIFY-AMT THRU S541-EXIT DTSBU521 00810 *********IF L101-WAIVE-PEN-NO-88 DTSBU521 00811 *************MOVE MQTR-YRQ TO L004-QTR-5-9 DTSBU521 00812 *************PERFORM S004-FROM-5 THRU S004-EXIT DTSBU521 00813 *************IF HOLD-YRQ-MSG4-NOT-SENT-88 (L004-ABS-QTR) DTSBU521 00814 *****************SET HOLD-YRQ-MSG4-SENT-88 (L004-ABS-QTR) TO TRUE DTSBU521 00815 *****************MOVE L004-SLASH-QTR TO MSG4-SLASHED-YRQ DTSBU521 00816 *****************MOVE MSG4-ID2 TO R907-MSG-ID DTSBU521 00817 *****************MOVE MSG4-LONG-TEXT TO R907-MSG-TEXT DTSBU521 00818 *****************PERFORM S946-R907-WRITE THRU S946-EXIT. DTSBU521 00819 DTSBU521 00820 *****IF WRK-TAX-PAID-AMT NOT > +0 DTSBU521 00821 *********COMPUTE L541-AMT DTSBU521 00822 ***********= MQTR-CHARGED-AMT (HOLD-PEN-SUB) * -1 DTSBU521 00823 *********MOVE HOLD-PEN-SUB TO L541-ACCT-SUB DTSBU521 00824 *********MOVE CACT-CAT-CHARGED TO L541-CAT-IND DTSBU521 00825 *********PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBU521 00826 DTSBU521 00827 *****MOVE HOLD-PEN-SUB TO HOLD-ACCT-SUB. DTSBU521 00828 *****PERFORM P5000-NEGATIVE-BALANCE THRU P5000-EXIT. DTSBU521 00829 *P4200-EXIT. DTSBU521 00830 *****EXIT. DTSBU521 00831 SKIP3 DTSBU521 00832 *P4300-DECR-PEN-CHARGED. DTSBU521 00833 *****COMPUTE WRK-PEN-CHARGED-AMT DTSBU521 00834 *******= MQTR-CHARGED-AMT (HOLD-PEN-SUB) + L101-PEN-CHARGE-CHNG. DTSBU521 00835 DTSBU521 00836 *****IF WRK-TAX-PAID-AMT NOT > +0 DTSBU521 00837 *********COMPUTE L541-AMT DTSBU521 00838 ***********= MQTR-CHARGED-AMT (HOLD-PEN-SUB) * -1 DTSBU521 00839 *****ELSE DTSBU521 00840 *****IF WRK-PEN-CHARGED-AMT < +0 DTSBU521 00841 *********COMPUTE L541-AMT DTSBU521 00842 ***********= MQTR-CHARGED-AMT (HOLD-PEN-SUB) * -1 DTSBU521 00843 *****ELSE DTSBU521 00844 *********MOVE L101-PEN-CHARGE-CHNG TO L541-AMT. DTSBU521 00845 DTSBU521 00846 *****MOVE HOLD-PEN-SUB TO L541-ACCT-SUB. DTSBU521 00847 *****MOVE CACT-CAT-CHARGED TO L541-CAT-IND. DTSBU521 00848 *****PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBU521 00849 DTSBU521 00850 *****MOVE HOLD-PEN-SUB TO HOLD-ACCT-SUB. DTSBU521 00851 *****PERFORM P5000-NEGATIVE-BALANCE THRU P5000-EXIT. DTSBU521 00852 *P4300-EXIT. DTSBU521 00853 *****EXIT. DTSBU521 00854 EJECT DTSBU521 00855 P5000-NEGATIVE-BALANCE. DTSBU521 00856 IF MQTR-BALANCE-AMT (HOLD-ACCT-SUB) NOT < +0 DTSBU521 00857 GO TO P5000-EXIT. DTSBU521 00858 DTSBU521 00859 IF MQTR-PAID-AMT (HOLD-ACCT-SUB) > +0 DTSBU521 00860 PERFORM P5100-DECR-PAID THRU P5100-EXIT. DTSBU521 00861 DTSBU521 00862 IF MQTR-BALANCE-AMT (HOLD-ACCT-SUB) NOT < +0 DTSBU521 00863 GO TO P5000-EXIT. DTSBU521 00864 DTSBU521 00865 IF MQTR-TOLER-AMT (HOLD-ACCT-SUB) > +0 DTSBU521 00866 PERFORM P5300-DECR-TOLER THRU P5300-EXIT. DTSBU521 00867 DTSBU521 00868 IF MQTR-BALANCE-AMT (HOLD-ACCT-SUB) NOT < +0 DTSBU521 00869 GO TO P5000-EXIT. DTSBU521 00870 DTSBU521 00871 IF MQTR-WAIVED-AMT (HOLD-ACCT-SUB) > +0 DTSBU521 00872 PERFORM P5200-DECR-WAIVED THRU P5200-EXIT. DTSBU521 00873 DTSBU521 00874 IF MQTR-BALANCE-AMT (HOLD-ACCT-SUB) < +0 DTSBU521 00875 PERFORM S999-ABEND THRU S999-EXIT. DTSBU521 00876 P5000-EXIT. DTSBU521 00877 EXIT. DTSBU521 00878 SKIP3 DTSBU521 00879 P5100-DECR-PAID. DTSBU521 00880 COMPUTE L522-AMT DTSBU521 00881 = MQTR-PAID-AMT (HOLD-ACCT-SUB) * -1. DTSBU521 00882 DTSBU521 00883 IF L522-AMT < MQTR-BALANCE-AMT (HOLD-ACCT-SUB) DTSBU521 00884 MOVE MQTR-BALANCE-AMT (HOLD-ACCT-SUB) TO L522-AMT. DTSBU521 00885 DTSBU521 00886 COMPUTE L522-AMT = L522-AMT * -1. DTSBU521 00887 DTSBU521 00888 MOVE HOLD-ACCT-SUB TO L522-ACCT-SUB. DTSBU521 00889 DTSBU521 00890 PERFORM S522-REVERSE-PAID THRU S522-EXIT. DTSBU521 00891 P5100-EXIT. DTSBU521 00892 EXIT. DTSBU521 00893 SKIP3 DTSBU521 00894 P5200-DECR-WAIVED. DTSBU521 00895 COMPUTE L541-AMT DTSBU521 00896 = MQTR-WAIVED-AMT (HOLD-ACCT-SUB) * -1. DTSBU521 00897 DTSBU521 00898 IF L541-AMT < MQTR-BALANCE-AMT (HOLD-ACCT-SUB) DTSBU521 00899 MOVE MQTR-BALANCE-AMT (HOLD-ACCT-SUB) TO L541-AMT. DTSBU521 00900 DTSBU521 00901 MOVE HOLD-ACCT-SUB TO L541-ACCT-SUB. DTSBU521 00902 DTSBU521 00903 MOVE CACT-CAT-WAIVED TO L541-CAT-IND. DTSBU521 00904 DTSBU521 00905 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBU521 00906 DTSBU521 00907 DTSBU521 00908 MOVE MQTR-YRQ TO L004-QTR-5-9. DTSBU521 00909 DTSBU521 00910 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBU521 00911 DTSBU521 00912 IF HOLD-ACCT-SUB = HOLD-INT-SUB DTSBU521 00913 IF HOLD-YRQ-MSG5-SENT-88 (L004-ABS-QTR) DTSBU521 00914 NEXT SENTENCE DTSBU521 00915 ELSE DTSBU521 00916 SET HOLD-YRQ-MSG5-SENT-88 (L004-ABS-QTR) TO TRUE DTSBU521 00917 MOVE L004-SLASH-QTR TO MSG5-SLASHED-YRQ DTSBU521 00918 MOVE MSG5-ID2 TO R907-MSG-ID DTSBU521 00919 MOVE MSG5-LONG-TEXT TO R907-MSG-TEXT DTSBU521 00920 PERFORM S946-R907-WRITE THRU S946-EXIT. DTSBU521 00921 *****ELSE DTSBU521 00922 *********IF HOLD-YRQ-MSG6-SENT-88 (L004-ABS-QTR) DTSBU521 00923 *************NEXT SENTENCE DTSBU521 00924 *********ELSE DTSBU521 00925 *************SET HOLD-YRQ-MSG6-SENT-88 (L004-ABS-QTR) TO TRUE DTSBU521 00926 *************MOVE L004-SLASH-QTR TO MSG6-SLASHED-YRQ DTSBU521 00927 *************MOVE MSG6-ID2 TO R907-MSG-ID DTSBU521 00928 *************MOVE MSG6-LONG-TEXT TO R907-MSG-TEXT DTSBU521 00929 *************PERFORM S946-R907-WRITE THRU S946-EXIT. DTSBU521 00930 P5200-EXIT. DTSBU521 00931 EXIT. DTSBU521 00932 SKIP3 DTSBU521 00933 P5300-DECR-TOLER. DTSBU521 00934 COMPUTE L541-AMT DTSBU521 00935 = MQTR-TOLER-AMT (HOLD-ACCT-SUB) * -1. DTSBU521 00936 DTSBU521 00937 IF L541-AMT < MQTR-BALANCE-AMT (HOLD-ACCT-SUB) DTSBU521 00938 MOVE MQTR-BALANCE-AMT (HOLD-ACCT-SUB) TO L541-AMT. DTSBU521 00939 DTSBU521 00940 MOVE HOLD-ACCT-SUB TO L541-ACCT-SUB. DTSBU521 00941 DTSBU521 00942 MOVE CACT-CAT-TOLER TO L541-CAT-IND. DTSBU521 00943 DTSBU521 00944 PERFORM S541-MODIFY-AMT THRU S541-EXIT. DTSBU521 00945 P5300-EXIT. DTSBU521 00946 EXIT. DTSBU521 00947 EJECT DTSBU521 00948 S1110-READ-MQTR. DTSBU521 00949 MOVE LOW-VALUES TO MQTR-KEY-AREA. DTSBU521 00950 DTSBU521 00951 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBU521 00952 DTSBU521 00953 SET MQTR-QTR-88 TO TRUE. DTSBU521 00954 DTSBU521 00955 MOVE L521-APPLIC-YRQ TO MQTR-YRQ. DTSBU521 00956 DTSBU521 00957 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBU521 00958 DTSBU521 00959 PERFORM S910-READ THRU S910-EXIT. DTSBU521 00960 DTSBU521 00961 MOVE MSKL-REC TO MQTR-REC. DTSBU521 00962 S1110-EXIT. DTSBU521 00963 EXIT. DTSBU521 00964 SKIP3 DTSBU521 00965 S1120-REWRITE-MQTR. DTSBU521 00966 MOVE +0 TO WRK-MQTR-TOT-BALANCE-AMT. DTSBU521 00967 DTSBU521 00968 PERFORM DTSBU521 00969 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBU521 00970 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT DTSBU521 00971 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBU521 00972 TO WRK-MQTR-TOT-BALANCE-AMT DTSBU521 00973 END-PERFORM. DTSBU521 00974 DTSBU521 00975 IF (WRK-MQTR-TOT-BALANCE-AMT = +0) DTSBU521 00976 OR DTSBU521 00977 (WRK-MQTR-TOT-BALANCE-AMT > LBCM-QTR-TOL-MAX) DTSBU521 00978 NEXT SENTENCE DTSBU521 00979 ELSE DTSBU521 00980 PERFORM S590-QTR-TOL THRU S590-EXIT. DTSBU521 00981 DTSBU521 00982 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBU521 00983 DTSBU521 00984 PERFORM S910-READ THRU S910-EXIT. DTSBU521 00985 DTSBU521 00986 IF L910-NO-REC-88 DTSBU521 00987 PERFORM S999-ABEND THRU S999-EXIT. DTSBU521 00988 DTSBU521 00989 MOVE MQTR-REC TO MSKL-REC. DTSBU521 00990 DTSBU521 00991 PERFORM S910-REWRITE THRU S910-EXIT. DTSBU521 00992 S1120-EXIT. DTSBU521 00993 EXIT. DTSBU521 00994 SKIP3 DTSBU521 00995 S2200-CRUNCH-ACCT-DATA. DTSBU521 00996 MOVE 'N' TO ACCT-CRUNCH-COMPLETE-IND. DTSBU521 00997 DTSBU521 00998 MOVE +1 TO ACCT-SUB. DTSBU521 00999 DTSBU521 01000 PERFORM S2210-CRUNCH-LOOP THRU S2210-EXIT DTSBU521 01001 UNTIL ACCT-CRUNCH-COMPLETE-IND = 'Y'. DTSBU521 01002 S2200-EXIT. DTSBU521 01003 EXIT. DTSBU521 01004 SKIP3 DTSBU521 01005 S2210-CRUNCH-LOOP. DTSBU521 01006 IF ACCT-SUB > MQTR-ACCT-CNT DTSBU521 01007 MOVE 'Y' TO ACCT-CRUNCH-COMPLETE-IND DTSBU521 01008 ELSE DTSBU521 01009 IF (MQTR-CHARGED-AMT (ACCT-SUB) = 0) DTSBU521 01010 AND DTSBU521 01011 (MQTR-PAID-AMT (ACCT-SUB) = 0) DTSBU521 01012 AND DTSBU521 01013 (MQTR-WAIVED-AMT (ACCT-SUB) = 0) DTSBU521 01014 AND DTSBU521 01015 (MQTR-WRITTEN-OFF-AMT (ACCT-SUB) = 0) DTSBU521 01016 AND DTSBU521 01017 (MQTR-TOLER-AMT (ACCT-SUB) = 0) DTSBU521 01018 AND DTSBU521 01019 (MQTR-BALANCE-AMT (ACCT-SUB) = 0) DTSBU521 01020 PERFORM S2211-SHUFFLE THRU S2211-EXIT DTSBU521 01021 VARYING ACCT-SUB1 FROM ACCT-SUB BY 1 DTSBU521 01022 UNTIL ACCT-SUB1 NOT < MQTR-ACCT-CNT DTSBU521 01023 SUBTRACT 1 FROM MQTR-ACCT-CNT DTSBU521 01024 ELSE DTSBU521 01025 ADD +1 TO ACCT-SUB. DTSBU521 01026 S2210-EXIT. DTSBU521 01027 EXIT. DTSBU521 01028 SKIP3 DTSBU521 01029 S2211-SHUFFLE. DTSBU521 01030 COMPUTE ACCT-SUB2 = ACCT-SUB1 + 1. DTSBU521 01031 DTSBU521 01032 MOVE MQTR-ACCT-GROUP (ACCT-SUB2) DTSBU521 01033 TO MQTR-ACCT-GROUP (ACCT-SUB1). DTSBU521 01034 S2211-EXIT. DTSBU521 01035 EXIT. DTSBU521 01036 EJECT DTSBU521 01037 S004-FROM-5. DTSBU521 01038 SET L004-FROM-5 TO TRUE. DTSBU521 01039 GO TO S004-QTR. DTSBU521 01040 DTSBU521 01041 S004-QTR. DTSBU521 01042 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBU521 01043 DTSBU521 01044 IF (L004-ABS-QTR < +1) DTSBU521 01045 OR DTSBU521 01046 (L004-ABS-QTR > +400) DTSBU521 01047 MOVE +1 TO L004-ABS-QTR. DTSBU521 01048 S004-EXIT. DTSBU521 01049 EXIT. DTSBU521 01050 SKIP3 DTSBU521 01051 S101-PER-MONTH-NO. DTSBU521 01052 SET L101-PER-MONTH-NO-88 TO TRUE. DTSBU521 01053 GO TO S101-INT-CALC. DTSBU521 01054 DTSBU521 01055 S101-INT-CALC. DTSBU521 01056 CALL 'DTSBU101' USING L101-LINK-AREA. DTSBU521 01057 S101-EXIT. DTSBU521 01058 EXIT. DTSBU521 01059 S109-FIRST-PEN-INT-YRQ. DTSBU521 01060 SET L109-CMND-PEN-INT-QTR-88 TO TRUE. DTSBU521 01061 CALL 'DTSBU109' USING L109-LINK-AREA. DTSBU521 01062 S109-EXIT. DTSBU521 01063 EXIT. DTSBU521 01064 DTSBU521 01065 S522-REVERSE-PAID. DTSBU521 01066 CALL 'DTSBU522' USING L522-LINK-AREA DTSBU521 01067 LBCM-LINK-AREA DTSBU521 01068 MPRF-REC DTSBU521 01069 MQTR-REC. DTSBU521 01070 S522-EXIT. DTSBU521 01071 EXIT. DTSBU521 01072 SKIP3 DTSBU521 01073 S541-MODIFY-AMT. DTSBU521 01074 MOVE LBCM-TRN-DOC-NO TO L541-TRN-DOC-NO. DTSBU521 01075 DTSBU521 01076 CALL 'DTSBU541' USING L541-LINK-AREA DTSBU521 01077 MPRF-REC DTSBU521 01078 MQTR-REC. DTSBU521 01079 S541-EXIT. DTSBU521 01080 EXIT. DTSBU521 01081 SKIP3 DTSBU521 01082 S549-MJRN-TABLE. DTSBU521 01083 SET L549-DELTA-88 TO TRUE. DTSBU521 01084 DTSBU521 01085 CALL 'DTSBU549' USING L549-LINK-AREA. DTSBU521 01086 S549-EXIT. DTSBU521 01087 EXIT. DTSBU521 01088 SKIP3 DTSBU521 01089 S590-QTR-TOL. DTSBU521 01090 SET L590-QTR-TOL-88 TO TRUE. DTSBU521 01091 MOVE MQTR-YRQ TO L590-YRQ. DTSBU521 01092 MOVE WRK-NULL-DOC-NO TO L590-PAY-DOC-NO. DTSBU521 01093 GO TO S590-EMP-CLEANUP. DTSBU521 01094 DTSBU521 01095 S590-EMP-CLEANUP. DTSBU521 01096 MOVE LBCM-TRN-DOC-NO TO L590-TOL-DOC-NO. DTSBU521 01097 DTSBU521 01098 CALL 'DTSBU590' USING L590-LINK-AREA DTSBU521 01099 LBCM-LINK-AREA DTSBU521 01100 MPRF-REC. DTSBU521 01101 S590-EXIT. DTSBU521 01102 EXIT. DTSBU521 01103 SKIP3 DTSBU521 01104 S910-READ. DTSBU521 01105 SET L910-READ-88 TO TRUE. DTSBU521 01106 GO TO S910-MSTR-IO. DTSBU521 01107 DTSBU521 01108 *S910-START-BROWSE. DTSBU521 01109 *****SET L910-START-BROWSE-88 TO TRUE. DTSBU521 01110 *****GO TO S910-MSTR-IO. DTSBU521 01111 DTSBU521 01112 *S910-READ-NEXT. DTSBU521 01113 *****SET L910-READ-NEXT-88 TO TRUE. DTSBU521 01114 *****GO TO S910-MSTR-IO. DTSBU521 01115 DTSBU521 01116 *S910-COUNT. DTSBU521 01117 *****SET L910-COUNT-88 TO TRUE. DTSBU521 01118 *****GO TO S910-MSTR-IO. DTSBU521 01119 DTSBU521 01120 *S910-WRITE. DTSBU521 01121 *****SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBU521 01122 *****SET L910-WRITE-88 TO TRUE. DTSBU521 01123 *****GO TO S910-MSTR-IO. DTSBU521 01124 DTSBU521 01125 S910-REWRITE. DTSBU521 01126 SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBU521 01127 SET L910-REWRITE-88 TO TRUE. DTSBU521 01128 GO TO S910-MSTR-IO. DTSBU521 01129 DTSBU521 01130 *S910-DELETE. DTSBU521 01131 *****SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBU521 01132 *****SET L910-DELETE-88 TO TRUE. DTSBU521 01133 *****GO TO S910-MSTR-IO. DTSBU521 01134 DTSBU521 01135 S910-MSTR-IO. DTSBU521 01136 CALL 'DTSBU910' USING L910-LINK-AREA DTSBU521 01137 MSKL-REC. DTSBU521 01138 S910-EXIT. DTSBU521 01139 EXIT. DTSBU521 01140 SKIP3 DTSBU521 01141 S946-R907-WRITE. DTSBU521 01142 CALL 'DTSBU946' USING R907-REC. DTSBU521 01143 S946-EXIT. DTSBU521 01144 EXIT. DTSBU521 01145 SKIP3 DTSBU521 01146 S999-ABEND. DTSBU521 01147 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBU521 01148 S999-EXIT. DTSBU521 01149 EXIT. DTSBU521