00001 IDENTIFICATION DIVISION. 04/26/16 00002 PROGRAM-ID. DTSBD321. DTSBD321 00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV002 00004 DATE-WRITTEN. SEPTEMBER 1994. DTSBD321 00005 DATE-COMPILED. DTSBD321 00006 SKIP3 DTSBD321 00007 ***** DTSBD321 00008 * DTSBD321 00009 * FUNCTION: LIEN PACKAGE. DTSBD321 00010 * DTSBD321 00011 * DTSBD321 00012 * MODIFICATION LOG: DTSBD321 00013 * DTSBD321 00014 * 09/29/94 INITIAL DEVELOPMENT. DTSBD321 00015 * WORK ORDER: PROGRAMMER: RHC DTSBD321 00016 * DTSBD321 00017 * 05/05/94 WRITE EVENT LOG RECORD WHEN A LIEN PACKAGE IS DTSBD321 00018 * PRINTED. DTSBD321 00019 * WORK ORDER: TPR021 PROGRAMMER: RHC DTSBD321 00020 * DTSBD321 00021 * 01/29/1999 REVIEWED AND MODIFIED FOR DC. DTSBD321 00022 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH DTSBD321 00023 * DTSBD321 00024 * 10/25/2000 MODIFIED TO INCLUDE RESPONSIBLE OPID IN R403 DTSBD321 00025 RECORD. DTSBD321 00026 * REFERENCE: DC DEVELOPMENT PROGRAMMER: ZL1 DTSBD321 00027 * DTSBD321 00028 * 08/01/2006 PENALTY AND INTEREST CALCULATIONS MODIFIED DTSBD321 00029 * TO EXCLUDE SUR-TAX: P3100. DTSBD321 00030 * REFERENCE: ADMIN ASSESS PROGRAMMER: GD DTSBD321 00031 * DTSBD321 00032 * 08/14/2006 MODIFIED P3100: ADD SUR-TAX BALANCE TO TAX DTSBD321 00033 * BALANCE FOR DISPLAY ON LIEN FORM. DTSBD321 00034 * REFERENCE: ADMIN ASSESS PROGRAMMER: GD DTSBD321 00035 * DTSBD321 00036 * 01/31/2008 MODIFIED ADMINISTRATIVE ASSESSMENT PROCESS DTSBD321 00037 * TO INCLUDE PENALTY AND INTEREST CALCULATION DTSBD321 00038 * STARTING WITH 2008/1. DTSBD321 00039 * REFERENCE: ADMIN ASSESS PROGRAMMER: RW1 DTSBD321 00040 * DTSBD321 00041 * 03/26/2008 ADDED SUR TAX FIELD TO DTSIR403 RECORD FORMAT DTSBD321 00042 * TO PRINT THE SUR TAX ON THE LIEN FORMS. DTSBD321 00043 * REFERENCE: ADMIN ASSESS PROGRAMMER: ZL1 DTSBD321 00044 * DTSBD321 00045 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD321 00046 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD321 00047 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBD321 00048 * DTSBD321 00049 * DTSBD321 00050 * DESCRIPTION: DTSBD321 00051 * DTSBD321 00052 * READ THE MLIN RECORD INDICATED BY T011-ESTB-ABSTIME. DTSBD321 00053 * IF MLIN RECORD INDICATED BY T011-ESTB-ABSTIME DOES NOT DTSBD321 00054 * EXIST, THEN THE TRANSACTION IS IN ERROR. DTSBD321 00055 * DTSBD321 00056 * IF NOT MLIN-STATUS-OPEN-88, THEN THE TRANSACTION IS DTSBD321 00057 * IN ERROR. DTSBD321 00058 * DTSBD321 00059 * SCAN THE MQTR RECORDS INDICATED BY MLIN-COVERED-YRQ. DTSBD321 00060 * IF NO AMOUNTS ARE DUE IN MLIN-COVERED-YRQ(S), DTSBD321 00061 * THEN CHANGE MLIN STATUS TO MLIN-STATUS-WITHDRAWN-88 DTSBD321 00062 * AND THE TRANSACTION IS IN ERROR. DTSBD321 00063 * DTSBD321 00064 * THE FOLLOWING SPECIFICATIONS ASSUME AMOUNTS ARE DUE DTSBD321 00065 * IN ONE OR MORE OF MLIN-COVERED-YRQ(S). DTSBD321 00066 * DTSBD321 00067 * CONSTRUCT AND WRITE A R403 RECORD. DTSBD321 00068 * DTSBD321 00069 * CONSTRUCT AND WRITE A R404 RECORD. DTSBD321 00070 * DTSBD321 00071 * WRITE AN EVENT LOG RECORD. DTSBD321 00072 * DTSBD321 00073 * UPDATE THE MLIN RECORD. DTSBD321 00074 * DTSBD321 00075 * REWRITE THE MLIN RECORD. DTSBD321 00076 * DTSBD321 00077 * THERE ARE TWO TRICKY BITS. DTSBD321 00078 * DTSBD321 00079 * THE FIRST TRICKY BIT IS R403-LETTER-TOTAL-AMT. R403-LETTERDTSBD321 00080 * TOTAL-AMT REFLECTS THE TOTAL BALANCE DUE (WITH INTEREST DTSBD321 00081 * PROJECTED THRU R403-FORM-COMP-DATE) FOR ALL QTRS COVERED DTSBD321 00082 * BY OPEN LIENS (NOT LIMITED TO THE QUARTERS COVERED BY DTSBD321 00083 * THE SUJECT LIEN). DON'T FEEL TOO SORRY FOR YOURSELF. DTSBD321 00084 * COMPARED TO VERMONT (WHERE LIEN FEES ARE ASSESSED BASED DTSBD321 00085 * ON THE NUMBER OF PAGES IN THE LIEN DOCUMENT), THIS IS DTSBD321 00086 * A PIECE OF CAKE. DTSBD321 00087 * DTSBD321 00088 * THE SECOND TRICKY BIT IS THE HANDLING OF TOLERANCE DTSBD321 00089 * DURING THE UPDATE. TOLERANCE IS NOT RESOLVED UNTIL DTSBD321 00090 * ALL TRANSACTIONS FOR THE EMPLOYER HAVE BEEN PROCESSED. DTSBD321 00091 * THUS, THIS MODULE SHOULD DO SOME "PSEUDO" TOLERANCE DTSBD321 00092 * PROCESSING. WHILE PROCESSING MQTR RECORDS, JUST ADD DTSBD321 00093 * UP THE BALANCES DUE (WITHOUT PROJECTING INTEREST). DTSBD321 00094 * IF THE RESULT IS LESS THAN OR EQUAL TO LBCM-QTR-TOL-MAX, DTSBD321 00095 * THEN JUST PRETEND THERE IS NO BALANCE DUE FOR THIS DTSBD321 00096 * QUARTER. DTSBD321 00097 * DTSBD321 00098 * DTSBD321 00099 * SEE DTSCS44 FOR AN EXAMPLE OF DETERMINING THE BALANCE DTSBD321 00100 * DUE IN A PARTICULAR QUARTER AND PROJECTING INTEREST DTSBD321 00101 * THRU A SPECIFIED "COMPUTATION" DATE. DTSBD321 00102 * DTSBD321 00103 * DTSBD321 00104 * MASTER FILE RECORDS READ: DTSBD321 00105 * DTSBD321 00106 * MLIN DTSBD321 00107 * MQTR DTSBD321 00108 * DTSBD321 00109 * DTSBD321 00110 * MASTER FILE RECORDS UPDATED: DTSBD321 00111 * DTSBD321 00112 * MLIN (REWRITE) DTSBD321 00113 * MEVL (WRITE) DTSBD321 00114 * DTSBD321 00115 * DTSBD321 00116 * REPORT RECORDS WRITTEN: DTSBD321 00117 * DTSBD321 00118 * R403 LIEN DOCUMENTS. DTSBD321 00119 * R404 LIEN PACKAGES PRINTED CONTROL REPORT. DTSBD321 00120 * R907 EXCEPTION REPORT. DTSBD321 00121 * DTSBD321 00122 * DTSBD321 00123 * MODULES CALLED: DTSBD321 00124 * DTSBD321 00125 * DTSBU001 DATE EDIT/CONVERSION. DTSBD321 00126 * DTSBU004 QUARTER EDIT/CONVERSION. DTSBD321 00127 * DTSBU005 TIME EDIT/CONVERSION. DTSBD321 00128 * DTSBU101 INTEREST CHARGE/ABATEMENT COMPUTATION. DTSBD321 00129 * DTSBU910 MASTER FILE I/O DRIVER. DTSBD321 00130 * DTSBU946 VARIABLE LENGTH RECORD SEQUENTAIL OUTPUT 1. DTSBD321 00131 * DTSBD321 00132 * DTSBD321 00133 ***** DTSBD321 00134 SKIP3 DTSBD321 00135 ENVIRONMENT DIVISION. DTSBD321 00136 EJECT DTSBD321 00137 DATA DIVISION. DTSBD321 00138 SKIP3 DTSBD321 00139 WORKING-STORAGE SECTION. DTSBD321 001395 77 PAN-VALET PICTURE X(24) VALUE '002DTSBD321 04/26/16'. DTSBD321 00140 77 PAN-VALET PICTURE X(24) VALUE '020DTSBD321 04/30/08'. DTSBD321 00141 SKIP3 DTSBD321 00142 01 WRK-AREA. DTSBD321 00143 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +321.DTSBD321 00144 DTSBD321 00145 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD321'.DTSBD321 00146 DTSBD321 00147 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBD321 00148 DTSBD321 00149 DTSBD321 00150 05 WRK-CNT PIC S9(04) COMP. DTSBD321 00151 DTSBD321 00152 05 WRK-TOT-BALANCE-AMT PIC S9(09)V9(02) COMP-3. DTSBD321 00153 DTSBD321 00154 05 WRK-TAX-BALANCE-AMT PIC S9(09)V9(02) COMP-3. DTSBD321 00155 DTSBD321 00156 05 WRK-SUR-TAX-BALANCE-AMT PIC S9(09)V9(02) COMP-3. DTSBD321 00157 DTSBD321 00158 05 WRK-INT-BALANCE-AMT PIC S9(09)V9(02) COMP-3. DTSBD321 00159 DTSBD321 00160 05 WRK-LP-NP-MP-BALANCE-AMT PIC S9(09)V9(02) COMP-3. DTSBD321 00161 DTSBD321 00162 05 WRK-FIRST-PEN-INT-YRQ PIC S9(05) COMP-3. DTSBD321 00163 DTSBD321 00164 DTSBD321 00165 05 WRK-COV-QTRS-TBL. DTSBD321 00166 10 FILLER OCCURS 400. DTSBD321 00167 15 WRK-COV-QTR PIC S9(05) COMP-3. DTSBD321 00168 88 WRK-NOT-COVERED-88 VALUE +0. DTSBD321 00169 15 WRK-COV-SUBJECT-IND PIC X(01). DTSBD321 00170 88 WRK-COV-SUBJECT-YES-88 VALUE 'X'. DTSBD321 00171 88 WRK-COV-SUBJECT-NO-88 VALUE SPACE. DTSBD321 00172 DTSBD321 00173 DTSBD321 00174 05 WRK-SMALL-ABS-QTR PIC S9(04) COMP. DTSBD321 00175 DTSBD321 00176 05 WRK-LARGE-ABS-QTR PIC S9(04) COMP. DTSBD321 00177 DTSBD321 00178 DTSBD321 00179 05 WRK-EVENT-TXT. DTSBD321 00180 10 FILLER PIC X(36) DTSBD321 00181 VALUE 'LIEN PACKAGE PRINTED. CERTIFICATE: '. DTSBD321 00182 10 WRK-MEVL-CERTIFICATE-NO PIC 99B9999. DTSBD321 00183 EJECT DTSBD321 00184 01 MSG-TABLE. DTSBD321 00185 05 MSG1-MLIN-NOT-FOUND. DTSBD321 00186 10 MSG1-ID PIC X(11) VALUE 'DTSBD321401'. DTSBD321 00187 10 MSG1-SHORT-TEXT PIC X(20) VALUE 'DELETED MLIN '. DTSBD321 00188 10 MSG1-LONG-TEXT. DTSBD321 00189 15 FILLER PIC X(30) DTSBD321 00190 VALUE 'TRANSACTION FAILED - RECORD NO'. DTSBD321 00191 15 FILLER PIC X(30) DTSBD321 00192 VALUE 'T FOUND - NO LIEN PKG PRINTED '. DTSBD321 00193 DTSBD321 00194 05 MSG2-MLIN-NOT-OPEN. DTSBD321 00195 10 MSG2-ID PIC X(11) VALUE 'DTSBD321402'. DTSBD321 00196 10 MSG2-SHORT-TEXT PIC X(20) VALUE 'NOT OPEN MLIN '. DTSBD321 00197 10 MSG2-LONG-TEXT. DTSBD321 00198 15 FILLER PIC X(30) DTSBD321 00199 VALUE 'TRANSACTION FAILED - LIEN NOT '. DTSBD321 00200 15 FILLER PIC X(30) DTSBD321 00201 VALUE 'OPEN - NO LIEN PACKAGE PRINTED'. DTSBD321 00202 DTSBD321 00203 05 MSG3-NO-DUE. DTSBD321 00204 10 MSG3-ID. DTSBD321 00205 15 MSG3-ID-1 PIC X(08) VALUE 'DTSBD321'. DTSBD321 00206 15 MSG3-ID-2 PIC X(03) VALUE '403'. DTSBD321 00207 10 MSG3-SHORT-TEXT PIC X(20) VALUE 'NOTHING DUE '. DTSBD321 00208 10 MSG3-LONG-TEXT. DTSBD321 00209 15 FILLER PIC X(30) DTSBD321 00210 VALUE 'NO AMOUNTS DUE - NO LIEN PACKA'. DTSBD321 00211 15 FILLER PIC X(30) DTSBD321 00212 VALUE 'GE PRINTED '. DTSBD321 00213 EJECT DTSBD321 00214 01 L001-LINK-AREA. DTSBD321 00215 ++INCLUDE DTSIL001 DTSBD321 00216 SKIP3 DTSBD321 00217 01 L004-LINK-AREA. DTSBD321 00218 ++INCLUDE DTSIL004 DTSBD321 00219 SKIP3 DTSBD321 00220 01 L005-LINK-AREA. DTSBD321 00221 ++INCLUDE DTSIL005 DTSBD321 00222 SKIP3 DTSBD321 00223 01 L101-LINK-AREA. DTSBD321 00224 ++INCLUDE DTSIL101 DTSBD321 00225 SKIP3 DTSBD321 00226 01 L109-LINK-AREA. DTSBD321 00227 ++INCLUDE DTSIL109 DTSBD321 00228 SKIP3 DTSBD321 00229 01 L910-LINK-AREA. DTSBD321 00230 ++INCLUDE DTSIL910 DTSBD321 00231 SKIP3 DTSBD321 00232 01 MSKL-REC. DTSBD321 00233 ++INCLUDE DTSIMSKL DTSBD321 00234 SKIP3 DTSBD321 00235 01 MLIN-REC. DTSBD321 00236 ++INCLUDE DTSIMLIN DTSBD321 00237 SKIP3 DTSBD321 00238 01 MQTR-REC. DTSBD321 00239 ++INCLUDE DTSIMQTR DTSBD321 00240 SKIP3 DTSBD321 00241 01 MEVL-REC. DTSBD321 00242 ++INCLUDE DTSIMEVL DTSBD321 00243 EJECT DTSBD321 00244 01 MMAX-LITERALS. DTSBD321 00245 ++INCLUDE DTSIMMAX DTSBD321 00246 EJECT DTSBD321 00247 01 R403-REC. DTSBD321 00248 ++INCLUDE DTSIR403 DTSBD321 00249 SKIP3 DTSBD321 00250 01 R404-REC. DTSBD321 00251 ++INCLUDE DTSIR404 DTSBD321 00252 SKIP3 DTSBD321 00253 01 R907-REC. DTSBD321 00254 ++INCLUDE DTSIR907 DTSBD321 00255 EJECT DTSBD321 00256 LINKAGE SECTION. DTSBD321 00257 SKIP3 DTSBD321 00258 01 LBCM-LINK-AREA. DTSBD321 00259 ++INCLUDE DTSILBCM DTSBD321 00260 EJECT DTSBD321 00261 01 MPRF-REC. DTSBD321 00262 ++INCLUDE DTSIMPRF DTSBD321 00263 EJECT DTSBD321 00264 01 T011-REC. DTSBD321 00265 ++INCLUDE DTSIT011 DTSBD321 00266 EJECT DTSBD321 00267 PROCEDURE DIVISION USING LBCM-LINK-AREA DTSBD321 00268 MPRF-REC DTSBD321 00269 T011-REC. DTSBD321 00270 DTSBD321 00271 DTSBD321 00272 IF FIRST-TIME-IND = 'Y' DTSBD321 00273 PERFORM I0000-FIRST-TIME THRU I0000-EXIT DTSBD321 00274 MOVE 'N' TO FIRST-TIME-IND. DTSBD321 00275 DTSBD321 00276 DTSBD321 00277 IF T011-LIN-PKG DTSBD321 00278 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBD321 00279 ELSE DTSBD321 00280 PERFORM S999-ABEND THRU S999-EXIT. DTSBD321 00281 DTSBD321 00282 DTSBD321 00283 GOBACK. DTSBD321 00284 EJECT DTSBD321 00285 I0000-FIRST-TIME. DTSBD321 00286 MOVE LBCM-TRACE-IND TO L910-TRACE-IND. DTSBD321 00287 DTSBD321 00288 MOVE WRK-MOD-NAME TO L910-MOD-NAME DTSBD321 00289 R907-MODULE-NAME. DTSBD321 00290 DTSBD321 00291 MOVE LENGTH OF R403-REC TO R403-LENGTH. DTSBD321 00292 DTSBD321 00293 MOVE LENGTH OF R404-REC TO R404-LENGTH. DTSBD321 00294 DTSBD321 00295 MOVE LENGTH OF R907-REC TO R907-LENGTH. DTSBD321 00296 *RW1 DTSBD321 00297 PERFORM S109-FIRST-PEN-INT-YRQ THRU S109-EXIT. DTSBD321 00298 MOVE L109-FIRST-PEN-INT-YRQ TO WRK-FIRST-PEN-INT-YRQ. DTSBD321 00299 *RW2 DTSBD321 00300 I0000-EXIT. DTSBD321 00301 EXIT. DTSBD321 00302 EJECT DTSBD321 00303 P0000-PROCESS. DTSBD321 00304 PERFORM S1000-READ-SUBJECT-MLIN THRU S1000-EXIT. DTSBD321 00305 DTSBD321 00306 IF L910-NO-REC-88 DTSBD321 00307 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD321 00308 MOVE MSG1-MLIN-NOT-FOUND TO LBCM-TRN-MSG-AREA DTSBD321 00309 GO TO P0000-EXIT. DTSBD321 00310 DTSBD321 00311 IF NOT MLIN-STATUS-OPEN-88 DTSBD321 00312 SET LBCM-TRN-NOT-OK-88 TO TRUE DTSBD321 00313 MOVE MSG2-MLIN-NOT-OPEN TO LBCM-TRN-MSG-AREA DTSBD321 00314 GO TO P0000-EXIT. DTSBD321 00315 DTSBD321 00316 PERFORM P1000-START-R403 THRU P1000-EXIT. DTSBD321 00317 DTSBD321 00318 PERFORM P2000-LOAD-COV-TABLE THRU P2000-EXIT. DTSBD321 00319 DTSBD321 00320 MOVE R403-FORM-COMP-DATE TO L101-RECEIVED-DATE. DTSBD321 00321 DTSBD321 00322 SET L101-WAIVE-INT-NO-88 TO TRUE. DTSBD321 00323 DTSBD321 00324 MOVE LOW-VALUE TO MQTR-KEY-AREA. DTSBD321 00325 DTSBD321 00326 MOVE MPRF-EMP-NO TO MQTR-EMP-NO. DTSBD321 00327 DTSBD321 00328 SET MQTR-QTR-88 TO TRUE. DTSBD321 00329 DTSBD321 00330 PERFORM P3000-PROCESS-MQTR THRU P3000-EXIT DTSBD321 00331 VARYING WRK-CNT FROM WRK-SMALL-ABS-QTR BY 1 DTSBD321 00332 UNTIL WRK-CNT > WRK-LARGE-ABS-QTR. DTSBD321 00333 DTSBD321 00334 DTSBD321 00335 PERFORM P4000-WRITE-MLIN-AND-REPORT THRU P4000-EXIT. DTSBD321 00336 P0000-EXIT. DTSBD321 00337 EXIT. DTSBD321 00338 EJECT DTSBD321 00339 P1000-START-R403. DTSBD321 00340 MOVE T011-RESP-OP-ID TO R403-OP-ID. DTSBD321 00341 DTSBD321 00342 MOVE MPRF-EMP-NO TO R403-EMP-NO. DTSBD321 00343 DTSBD321 00344 DTSBD321 00345 INITIALIZE R403-COMMON-DATA-AREA. DTSBD321 00346 DTSBD321 00347 MOVE MLIN-CERTIFICATE-NO TO R403-CERTIFICATE-NO. DTSBD321 00348 DTSBD321 00349 MOVE MLIN-CERTIFICATE-DATE TO R403-CERTIFICATE-DATE. DTSBD321 00350 DTSBD321 00351 MOVE MPRF-EMP-STATUS TO R403-EMP-STATUS. DTSBD321 00352 DTSBD321 00353 MOVE MLIN-STMT-DATE TO R403-STMT-DATE. DTSBD321 00354 DTSBD321 00355 MOVE MPRF-PRIMARY-NAME TO R403-PRIMARY-NAME. DTSBD321 00356 DTSBD321 00357 MOVE MLIN-ADDRESS TO R403-FMT-ADDR. DTSBD321 00358 DTSBD321 00359 DTSBD321 00360 INITIALIZE R403-LIEN-FORM-DATA-AREA. DTSBD321 00361 DTSBD321 00362 MOVE MLIN-COMP-DATE TO R403-FORM-COMP-DATE. DTSBD321 00363 DTSBD321 00364 DTSBD321 00365 INITIALIZE R403-LIEN-LETTERS-DATA-AREA. DTSBD321 00366 DTSBD321 00367 MOVE MLIN-LICENSE-IND TO R403-LETTER-LICENSE-IND. DTSBD321 00368 P1000-EXIT. DTSBD321 00369 EXIT. DTSBD321 00370 EJECT DTSBD321 00371 P2000-LOAD-COV-TABLE. DTSBD321 00372 INITIALIZE WRK-COV-QTRS-TBL. DTSBD321 00373 DTSBD321 00374 MOVE +400 TO WRK-SMALL-ABS-QTR. DTSBD321 00375 DTSBD321 00376 MOVE +1 TO WRK-LARGE-ABS-QTR. DTSBD321 00377 DTSBD321 00378 DTSBD321 00379 MOVE LOW-VALUE TO MSKL-KEY-AREA. DTSBD321 00380 DTSBD321 00381 MOVE MPRF-EMP-NO TO MSKL-EMP-NO. DTSBD321 00382 DTSBD321 00383 SET MSKL-LIN-88 TO TRUE. DTSBD321 00384 DTSBD321 00385 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD321 00386 DTSBD321 00387 PERFORM DTSBD321 00388 UNTIL L910-NO-REC-88 DTSBD321 00389 MOVE MSKL-REC TO MLIN-REC DTSBD321 00390 IF MLIN-STATUS-ACTIVE-88 DTSBD321 00391 PERFORM P2100-COVERED-SCAN THRU P2100-EXIT DTSBD321 00392 VARYING MLIN-COV-IDX FROM 1 BY 1 DTSBD321 00393 UNTIL MLIN-COV-IDX > MLIN-COV-CNT DTSBD321 00394 END-IF DTSBD321 00395 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD321 00396 END-PERFORM. DTSBD321 00397 DTSBD321 00398 DTSBD321 00399 PERFORM S1000-READ-SUBJECT-MLIN THRU S1000-EXIT. DTSBD321 00400 DTSBD321 00401 IF L910-NO-REC-88 DTSBD321 00402 PERFORM S999-ABEND THRU S999-EXIT. DTSBD321 00403 P2000-EXIT. DTSBD321 00404 EXIT. DTSBD321 00405 SKIP3 DTSBD321 00406 P2100-COVERED-SCAN. DTSBD321 00407 MOVE MLIN-COVERED-YRQ (MLIN-COV-IDX) TO L004-QTR-5-9. DTSBD321 00408 DTSBD321 00409 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD321 00410 DTSBD321 00411 IF L004-INVALID-QTR DTSBD321 00412 GO TO P2100-EXIT. DTSBD321 00413 DTSBD321 00414 DTSBD321 00415 MOVE L004-QTR-5-9 TO WRK-COV-QTR (L004-ABS-QTR). DTSBD321 00416 DTSBD321 00417 IF MLIN-ESTB-ABSTIME = T011-ESTB-ABSTIME DTSBD321 00418 SET WRK-COV-SUBJECT-YES-88 (L004-ABS-QTR) TO TRUE. DTSBD321 00419 DTSBD321 00420 DTSBD321 00421 IF L004-ABS-QTR < WRK-SMALL-ABS-QTR DTSBD321 00422 MOVE L004-ABS-QTR TO WRK-SMALL-ABS-QTR. DTSBD321 00423 DTSBD321 00424 IF L004-ABS-QTR > WRK-LARGE-ABS-QTR DTSBD321 00425 MOVE L004-ABS-QTR TO WRK-LARGE-ABS-QTR. DTSBD321 00426 P2100-EXIT. DTSBD321 00427 EXIT. DTSBD321 00428 EJECT DTSBD321 00429 P3000-PROCESS-MQTR. DTSBD321 00430 IF WRK-NOT-COVERED-88 (WRK-CNT) DTSBD321 00431 GO TO P3000-EXIT. DTSBD321 00432 DTSBD321 00433 DTSBD321 00434 MOVE WRK-COV-QTR (WRK-CNT) TO MQTR-YRQ. DTSBD321 00435 DTSBD321 00436 MOVE MQTR-KEY-AREA TO MSKL-KEY-AREA. DTSBD321 00437 DTSBD321 00438 PERFORM S910-READ THRU S910-EXIT. DTSBD321 00439 DTSBD321 00440 IF L910-OK-88 DTSBD321 00441 MOVE MSKL-REC TO MQTR-REC DTSBD321 00442 ELSE DTSBD321 00443 GO TO P3000-EXIT. DTSBD321 00444 DTSBD321 00445 DTSBD321 00446 MOVE +0 TO WRK-TOT-BALANCE-AMT DTSBD321 00447 WRK-TAX-BALANCE-AMT DTSBD321 00448 WRK-SUR-TAX-BALANCE-AMT DTSBD321 00449 WRK-INT-BALANCE-AMT DTSBD321 00450 WRK-LP-NP-MP-BALANCE-AMT DTSBD321 00451 L101-PAID-CHNG. DTSBD321 00452 DTSBD321 00453 DTSBD321 00454 PERFORM P3100-PROCESS-ACCT-AREA THRU P3100-EXIT DTSBD321 00455 VARYING MQTR-ACCT-IDX FROM 1 BY 1 DTSBD321 00456 UNTIL MQTR-ACCT-IDX > MQTR-ACCT-CNT. DTSBD321 00457 DTSBD321 00458 IF WRK-TOT-BALANCE-AMT NOT > LBCM-QTR-TOL-MAX DTSBD321 00459 GO TO P3000-EXIT. DTSBD321 00460 DTSBD321 00461 DTSBD321 00462 MOVE MQTR-TAX-DUE-DATE TO L101-TAX-DUE-DATE. DTSBD321 00463 DTSBD321 00464 MOVE MQTR-INT-AREA TO L101-INT-AREA. DTSBD321 00465 DTSBD321 00466 PERFORM S101-PER-MONTH-NO THRU S101-EXIT. DTSBD321 00467 DTSBD321 00468 ADD L101-INT-CHARGE-CHNG TO WRK-TOT-BALANCE-AMT DTSBD321 00469 WRK-INT-BALANCE-AMT. DTSBD321 00470 DTSBD321 00471 SUBTRACT L101-INT-WAIVE-CHNG FROM WRK-TOT-BALANCE-AMT DTSBD321 00472 WRK-INT-BALANCE-AMT. DTSBD321 00473 DTSBD321 00474 DTSBD321 00475 ADD WRK-TOT-BALANCE-AMT TO R403-LETTER-TOTAL-AMT. DTSBD321 00476 DTSBD321 00477 IF WRK-COV-SUBJECT-YES-88 (WRK-CNT) DTSBD321 00478 AND R403-FORM-QTR-CNT < MMAX-LIN-COV-MAX DTSBD321 00479 ADD +1 TO R403-FORM-QTR-CNT DTSBD321 00480 MOVE MQTR-YRQ TO R403-FORM-QTR (R403-FORM-QTR-CNT) DTSBD321 00481 MOVE WRK-TAX-BALANCE-AMT DTSBD321 00482 TO R403-FORM-TAX-BALANCE-AMT (R403-FORM-QTR-CNT) DTSBD321 00483 MOVE WRK-SUR-TAX-BALANCE-AMT DTSBD321 00484 TO R403-FORM-SUR-TAX-BALANCE-AMT (R403-FORM-QTR-CNT) DTSBD321 00485 MOVE WRK-INT-BALANCE-AMT DTSBD321 00486 TO R403-FORM-INT-BALANCE-AMT (R403-FORM-QTR-CNT) DTSBD321 00487 MOVE WRK-LP-NP-MP-BALANCE-AMT DTSBD321 00488 TO R403-FORM-LP-NP-MP-BALANCE-AMT (R403-FORM-QTR-CNT) DTSBD321 00489 IF MQTR-CURR-ESTIM-88 DTSBD321 00490 SET R403-FORM-ESTIMATED-YES-88 (R403-FORM-QTR-CNT) DTSBD321 00491 TO TRUE DTSBD321 00492 END-IF. DTSBD321 00493 P3000-EXIT. DTSBD321 00494 EXIT. DTSBD321 00495 EJECT DTSBD321 00496 P3100-PROCESS-ACCT-AREA. DTSBD321 00497 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) TO WRK-TOT-BALANCE-AMT. DTSBD321 00498 DTSBD321 00499 ******************************************************** DTSBD321 00500 * INCLUDE ONLY UI TAX BALANCE FOR INTEREST CALCULATION & DTSBD321 00501 * ADMINISTRATIVE ASSESSMENT INCLUDED IN INTEREST CALCULA- DTSBD321 00502 * TION STARTING WITH 2008/1. DTSBD321 00503 ******************************************************** DTSBD321 00504 EVALUATE TRUE DTSBD321 00505 WHEN MQTR-ACCT-UI-88 (MQTR-ACCT-IDX) DTSBD321 00506 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBD321 00507 TO WRK-TAX-BALANCE-AMT DTSBD321 00508 L101-PAID-CHNG DTSBD321 00509 DTSBD321 00510 WHEN MQTR-ACCT-SUR-88 (MQTR-ACCT-IDX) DTSBD321 00511 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBD321 00512 TO WRK-SUR-TAX-BALANCE-AMT DTSBD321 00513 *RW1 DTSBD321 00514 IF MQTR-YRQ >= WRK-FIRST-PEN-INT-YRQ DTSBD321 00515 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBD321 00516 TO L101-PAID-CHNG DTSBD321 00517 DISPLAY 'BD321 P3100 SUR BAL ' DTSBD321 00518 MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBD321 00519 END-IF DTSBD321 00520 *RW2 DTSBD321 00521 WHEN MQTR-ACCT-INT-88 (MQTR-ACCT-IDX) DTSBD321 00522 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBD321 00523 TO WRK-INT-BALANCE-AMT DTSBD321 00524 DTSBD321 00525 WHEN (MQTR-ACCT-LATE-PEN-88 (MQTR-ACCT-IDX)) DTSBD321 00526 OR (MQTR-ACCT-NSF-PEN-88 (MQTR-ACCT-IDX)) DTSBD321 00527 OR (MQTR-ACCT-MISC-PEN-88 (MQTR-ACCT-IDX)) DTSBD321 00528 ADD MQTR-BALANCE-AMT (MQTR-ACCT-IDX) DTSBD321 00529 TO WRK-LP-NP-MP-BALANCE-AMT DTSBD321 00530 DTSBD321 00531 WHEN OTHER DTSBD321 00532 PERFORM S999-ABEND THRU S999-EXIT DTSBD321 00533 END-EVALUATE. DTSBD321 00534 P3100-EXIT. DTSBD321 00535 EXIT. DTSBD321 00536 EJECT DTSBD321 00537 P4000-WRITE-MLIN-AND-REPORT. DTSBD321 00538 MOVE +0 TO MLIN-STMT-DUE-AMT. DTSBD321 00539 DTSBD321 00540 PERFORM VARYING R403-FORM-QTR-IDX FROM 1 BY 1 DTSBD321 00541 UNTIL R403-FORM-QTR-IDX > R403-FORM-QTR-CNT DTSBD321 00542 ADD R403-FORM-TAX-BALANCE-AMT (R403-FORM-QTR-IDX) DTSBD321 00543 TO MLIN-STMT-DUE-AMT DTSBD321 00544 ADD R403-FORM-SUR-TAX-BALANCE-AMT (R403-FORM-QTR-IDX) DTSBD321 00545 TO MLIN-STMT-DUE-AMT DTSBD321 00546 ADD R403-FORM-INT-BALANCE-AMT (R403-FORM-QTR-IDX) DTSBD321 00547 TO MLIN-STMT-DUE-AMT DTSBD321 00548 ADD R403-FORM-LP-NP-MP-BALANCE-AMT (R403-FORM-QTR-IDX) DTSBD321 00549 TO MLIN-STMT-DUE-AMT DTSBD321 00550 END-PERFORM. DTSBD321 00551 DTSBD321 00552 IF MLIN-STMT-DUE-AMT > +0 DTSBD321 00553 PERFORM S946-WRITE-R403 THRU S946-EXIT DTSBD321 00554 MOVE MLIN-CERTIFICATE-NO TO WRK-MEVL-CERTIFICATE-NO DTSBD321 00555 PERFORM P4100-WRITE-MEVL THRU P4100-EXIT DTSBD321 00556 PERFORM P4200-CONSTRUCT-R404 THRU P4200-EXIT DTSBD321 00557 PERFORM S946-WRITE-R404 THRU S946-EXIT DTSBD321 00558 ELSE DTSBD321 00559 MOVE MSG3-ID-2 TO R907-MSG-ID DTSBD321 00560 MOVE MPRF-EMP-NO TO R907-EMP-NO DTSBD321 00561 MOVE MSG3-LONG-TEXT TO R907-MSG-TEXT DTSBD321 00562 PERFORM S946-WRITE-R907 THRU S946-EXIT DTSBD321 00563 SET MLIN-STATUS-WITHDRAWN-88 TO TRUE DTSBD321 00564 MOVE LBCM-CURR-RUN-DATE TO MLIN-STATUS-DATE DTSBD321 00565 MOVE 'SYSTEM' TO MLIN-STATUS-OP-ID. DTSBD321 00566 DTSBD321 00567 DTSBD321 00568 MOVE LBCM-CURR-RUN-DATE TO MLIN-CHNG-DATE. DTSBD321 00569 DTSBD321 00570 MOVE MLIN-REC TO MSKL-REC. DTSBD321 00571 DTSBD321 00572 PERFORM S910-REWRITE THRU S910-EXIT. DTSBD321 00573 P4000-EXIT. DTSBD321 00574 EXIT. DTSBD321 00575 EJECT DTSBD321 00576 P4100-WRITE-MEVL. DTSBD321 00577 MOVE LOW-VALUE TO MEVL-REC. DTSBD321 00578 DTSBD321 00579 MOVE MPRF-EMP-NO TO MEVL-EMP-NO. DTSBD321 00580 DTSBD321 00581 SET MEVL-EVL-88 TO TRUE. DTSBD321 00582 DTSBD321 00583 ADD +1000 TO LBCM-EMP-ABSTIME. DTSBD321 00584 DTSBD321 00585 MOVE LBCM-EMP-ABSTIME TO L005-ABSTIME. DTSBD321 00586 DTSBD321 00587 PERFORM S005-FROM-ABSTIME THRU S005-EXIT. DTSBD321 00588 DTSBD321 00589 MOVE L005-DATE TO MEVL-DATE. DTSBD321 00590 DTSBD321 00591 MOVE L005-TIME TO MEVL-TIME. DTSBD321 00592 DTSBD321 00593 MOVE +0 TO MEVL-PURGE-DATE. DTSBD321 00594 DTSBD321 00595 MOVE WRK-EVENT-TXT TO MEVL-TEXT. DTSBD321 00596 DTSBD321 00597 SET MEVL-SOURCE-SYSTEM-88 TO TRUE. DTSBD321 00598 DTSBD321 00599 SET MEVL-NOT-CONVERTED-88 TO TRUE. DTSBD321 00600 DTSBD321 00601 MOVE LBCM-CURR-RUN-DATE TO MEVL-ESTB-DATE DTSBD321 00602 MEVL-CHNG-DATE. DTSBD321 00603 DTSBD321 00604 MOVE MEVL-REC TO MSKL-REC. DTSBD321 00605 DTSBD321 00606 PERFORM S910-WRITE THRU S910-EXIT. DTSBD321 00607 P4100-EXIT. DTSBD321 00608 EXIT. DTSBD321 00609 EJECT DTSBD321 00610 P4200-CONSTRUCT-R404. DTSBD321 00611 MOVE MPRF-EMP-NO TO R404-EMP-NO. DTSBD321 00612 DTSBD321 00613 MOVE LOW-VALUES TO R404-DATA-AREA. DTSBD321 00614 DTSBD321 00615 MOVE MLIN-CERTIFICATE-NO TO R404-CERTIFICATE-NO. DTSBD321 00616 DTSBD321 00617 MOVE MPRF-PRIMARY-NAME TO R404-PRIMARY-NAME. DTSBD321 00618 DTSBD321 00619 MOVE R403-FORM-QTR-CNT TO R404-COV-CNT. DTSBD321 00620 DTSBD321 00621 PERFORM DTSBD321 00622 VARYING R403-FORM-QTR-IDX FROM 1 BY 1 DTSBD321 00623 UNTIL R403-FORM-QTR-IDX > R403-FORM-QTR-CNT DTSBD321 00624 SET R404-COVERED-IDX TO R403-FORM-QTR-IDX DTSBD321 00625 MOVE R403-FORM-QTR (R403-FORM-QTR-IDX) DTSBD321 00626 TO R404-COVERED-YRQ (R404-COVERED-IDX) DTSBD321 00627 END-PERFORM. DTSBD321 00628 DTSBD321 00629 MOVE MLIN-LICENSE-IND TO R404-LICENSE-IND. DTSBD321 00630 DTSBD321 00631 MOVE MLIN-STMT-DUE-AMT TO R404-STMT-DUE-AMT. DTSBD321 00632 DTSBD321 00633 MOVE MLIN-ADDRESS TO R404-FMT-ADDR. DTSBD321 00634 P4200-EXIT. DTSBD321 00635 EXIT. DTSBD321 00636 EJECT DTSBD321 00637 S1000-READ-SUBJECT-MLIN. DTSBD321 00638 MOVE LOW-VALUE TO MLIN-KEY-AREA. DTSBD321 00639 DTSBD321 00640 MOVE MPRF-EMP-NO TO MLIN-EMP-NO. DTSBD321 00641 DTSBD321 00642 SET MLIN-LIN-88 TO TRUE. DTSBD321 00643 DTSBD321 00644 MOVE T011-ESTB-ABSTIME TO MLIN-ESTB-ABSTIME. DTSBD321 00645 DTSBD321 00646 MOVE MLIN-KEY-AREA TO MSKL-KEY-AREA. DTSBD321 00647 DTSBD321 00648 PERFORM S910-READ THRU S910-EXIT. DTSBD321 00649 DTSBD321 00650 IF L910-OK-88 DTSBD321 00651 MOVE MSKL-REC TO MLIN-REC. DTSBD321 00652 S1000-EXIT. DTSBD321 00653 EXIT. DTSBD321 00654 EJECT DTSBD321 00655 S004-FROM-5. DTSBD321 00656 SET L004-FROM-5 TO TRUE. DTSBD321 00657 GO TO S004-YRQ. DTSBD321 00658 DTSBD321 00659 S004-YRQ. DTSBD321 00660 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBD321 00661 S004-EXIT. DTSBD321 00662 EXIT. DTSBD321 00663 SKIP3 DTSBD321 00664 S005-FROM-ABSTIME. DTSBD321 00665 SET L005-FROM-ABSTIME TO TRUE. DTSBD321 00666 GO TO S005-TIME. DTSBD321 00667 DTSBD321 00668 S005-TIME. DTSBD321 00669 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBD321 00670 S005-EXIT. DTSBD321 00671 EXIT. DTSBD321 00672 SKIP3 DTSBD321 00673 S101-PER-MONTH-NO. DTSBD321 00674 SET L101-PER-MONTH-NO-88 TO TRUE. DTSBD321 00675 GO TO S101-INTEREST. DTSBD321 00676 DTSBD321 00677 S101-INTEREST. DTSBD321 00678 CALL 'DTSBU101' USING L101-LINK-AREA. DTSBD321 00679 S101-EXIT. DTSBD321 00680 EXIT. DTSBD321 00681 SKIP3 DTSBD321 00682 S109-FIRST-PEN-INT-YRQ. DTSBD321 00683 SET L109-CMND-PEN-INT-QTR-88 TO TRUE. DTSBD321 00684 GO TO S109-SUR-RATE. DTSBD321 00685 DTSBD321 00686 S109-SUR-RATE. DTSBD321 00687 CALL 'DTSBU109' USING L109-LINK-AREA. DTSBD321 00688 S109-EXIT. DTSBD321 00689 EXIT. DTSBD321 00690 SKIP3 DTSBD321 00691 S910-READ. DTSBD321 00692 SET L910-READ-88 TO TRUE. DTSBD321 00693 GO TO S910-MSTR-IO. DTSBD321 00694 DTSBD321 00695 S910-START-BROWSE. DTSBD321 00696 SET L910-START-BROWSE-88 TO TRUE. DTSBD321 00697 GO TO S910-MSTR-IO. DTSBD321 00698 DTSBD321 00699 S910-READ-NEXT. DTSBD321 00700 SET L910-READ-NEXT-88 TO TRUE. DTSBD321 00701 GO TO S910-MSTR-IO. DTSBD321 00702 DTSBD321 00703 *S910-COUNT. DTSBD321 00704 *****SET L910-COUNT-88 TO TRUE. DTSBD321 00705 *****GO TO S910-MSTR-IO. DTSBD321 00706 DTSBD321 00707 S910-WRITE. DTSBD321 00708 SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBD321 00709 SET L910-WRITE-88 TO TRUE. DTSBD321 00710 GO TO S910-MSTR-IO. DTSBD321 00711 DTSBD321 00712 S910-REWRITE. DTSBD321 00713 SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBD321 00714 SET L910-REWRITE-88 TO TRUE. DTSBD321 00715 GO TO S910-MSTR-IO. DTSBD321 00716 DTSBD321 00717 *S910-DELETE. DTSBD321 00718 *****SET LBCM-EMP-UPDATE-YES-88 TO TRUE. DTSBD321 00719 *****SET L910-DELETE-88 TO TRUE. DTSBD321 00720 *****GO TO S910-MSTR-IO. DTSBD321 00721 DTSBD321 00722 S910-MSTR-IO. DTSBD321 00723 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD321 00724 MSKL-REC. DTSBD321 00725 S910-EXIT. DTSBD321 00726 EXIT. DTSBD321 00727 SKIP3 DTSBD321 00728 S946-WRITE-R403. DTSBD321 00729 CALL 'DTSBU946' USING R403-REC. DTSBD321 00730 GO TO S946-EXIT. DTSBD321 00731 DTSBD321 00732 S946-WRITE-R404. DTSBD321 00733 CALL 'DTSBU946' USING R404-REC. DTSBD321 00734 GO TO S946-EXIT. DTSBD321 00735 DTSBD321 00736 S946-WRITE-R907. DTSBD321 00737 CALL 'DTSBU946' USING R907-REC. CL**2 00738 GO TO S946-EXIT. DTSBD321 00739 DTSBD321 00740 S946-EXIT. DTSBD321 00741 EXIT. DTSBD321 00742 SKIP3 DTSBD321 00743 S999-ABEND. DTSBD321 00744 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD321 00745 S999-EXIT. DTSBD321 00746 EXIT. DTSBD321