00001 IDENTIFICATION DIVISION. 01/29/01 00002 PROGRAM-ID. DTSBE440. DTSBE440 00003 AUTHOR. TRW. LV003 00004 DATE-WRITTEN. OCTOBER 2000. DTSBE440 00005 DATE-COMPILED. DTSBE440 00006 SKIP3 DTSBE440 00007 ***** DTSBE440 00008 * DTSBE440 00009 * DTSBE440 00010 * FUNCTION: MANAGEMENT REPORT OF DETERMINATIONS, AUDITS, DTSBE440 00011 * DELIQUENT COLLECTIONS AND PENALTY AND INTEREST. DTSBE440 00012 * DTSBE440 00013 * MODIFICATION LOG: DTSBE440 00014 * DTSBE440 00015 * 10/16/2000 MODIFED FROM DTSBE713 (ETA 581 EXTRACT). DTSBE440 00016 * WORK ORDER: DIR00082 PROGRAMMER: GD DTSBE440 00017 * DTSBE440 00018 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBE440 00019 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBE440 00020 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBE440 00021 * DTSBE440 00022 * DTSBE440 00023 * DESCRIPTION: DTSBE440 00024 * DTSBE440 00025 * DTSBE440 00026 * INITIATION: DTSBE440 00027 * DTSBE440 00028 * SET LECM-MST-OPEN-READ-88 TO TRUE. DTSBE440 00029 * DTSBE440 00030 * EDIT AND DEFAULT PARAMETERS. DTSBE440 00031 * DTSBE440 00032 * DTSBE440 00033 * PROCESSING: DTSBE440 00034 * DTSBE440 00035 * SEE PRINTED OUTPUTS DESCRIPTION AND LAYOUTS (440R1). DTSBE440 00036 * DTSBE440 00037 * DTSBE440 00038 * TERMINATION: DTSBE440 00039 * DTSBE440 00040 * DTSBE440 00041 * DTSBE440 00042 * DTSBE440 00043 * RECORDS READ: DTSBE440 00044 * DTSBE440 00045 * MASTER: DTSBE440 00046 * DTSBE440 00047 * MJRN DTSBE440 00048 * DTSBE440 00049 * DTSBE440 00050 * ALTERNATE INDEX: DTSBE440 00051 * DTSBE440 00052 * NONE. DTSBE440 00053 * DTSBE440 00054 * DTSBE440 00055 * REFERENCE: DTSBE440 00056 * DTSBE440 00057 * DTSBE440 00058 * DTSBE440 00059 * RECORDS UPDATED: DTSBE440 00060 * DTSBE440 00061 * NONE DTSBE440 00062 * DTSBE440 00063 * DTSBE440 00064 * REPORT RECORDS WRITTEN: DTSBE440 00065 * DTSBE440 00066 * R440 MONTHLY TAX ACTIVITY OVERVIEW. DTSBE440 00067 * DTSBE440 00068 * DTSBE440 00069 * BATCH TRANSACTION COLLECTION RECORDS WRITTEN: DTSBE440 00070 * DTSBE440 00071 * NONE. DTSBE440 00072 * DTSBE440 00073 * DTSBE440 00074 * MODULES CALLED: DTSBE440 00075 * DTSBE440 00076 * DTSBU001 DATE EDIT/CONVERSION. DTSBE440 00077 * DTSBU004 QUARTER EDIT/CONVERSION. DTSBE440 00078 * DTSBU005 ABSOLUTE TIME CONVERSION/EDIT. DTSBE440 00079 * DTSBU910 MASTER FILE I/O. DTSBE440 00080 * DTSBU946 VARIABLE LENGTH RECORDS SEQUENTIAL OUTPUT 1. DTSBE440 00081 * DTSBE440 00082 * DTSBE440 00083 ***** DTSBE440 00084 SKIP3 DTSBE440 00085 ENVIRONMENT DIVISION. DTSBE440 00086 EJECT DTSBE440 00087 DATA DIVISION. DTSBE440 00088 SKIP3 DTSBE440 00089 WORKING-STORAGE SECTION. DTSBE440 000895 77 PAN-VALET PICTURE X(24) VALUE '003DTSBE440 01/29/01'. DTSBE440 00090 SKIP3 DTSBE440 00091 01 WRK-AREA. DTSBE440 00092 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +440.DTSBE440 00093 DTSBE440 00094 05 ABEND-MSG PIC X(60). DTSBE440 00095 DTSBE440 00096 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBE440'.DTSBE440 00097 DTSBE440 00098 05 WRK-PERIOD-START-DATE PIC S9(09) COMP-3. DTSBE440 00099 DTSBE440 00100 05 WRK-PERIOD-START-ABSTIME PIC S9(15) COMP-3. DTSBE440 00101 DTSBE440 00102 05 WRK-CURR-YR-START-DATE PIC S9(09) COMP-3. DTSBE440 00103 DTSBE440 00104 05 WRK-CURR-YR-START-ABSTIME PIC S9(15) COMP-3. DTSBE440 00105 DTSBE440 00106 05 WRK-PRIOR-YR-START-DATE PIC S9(09) COMP-3. DTSBE440 00107 DTSBE440 00108 05 WRK-PRIOR-YR-START-ABSTIME PIC S9(15) COMP-3. DTSBE440 00109 DTSBE440 00110 05 WRK-PERIOD-END-DATE PIC S9(09) COMP-3. DTSBE440 00111 DTSBE440 00112 05 WRK-ENTRY-JUL-ABS-DAY PIC S9(08) COMP. DTSBE440 00113 DTSBE440 00114 05 WRK-TIME-LAPSE-DAYS PIC S9(08) COMP. DTSBE440 00115 DTSBE440 00116 05 WRK-JRN-MAX PIC S9(04) COMP VALUE +400.DTSBE440 00117 DTSBE440 00118 05 WRK-JRN-SUB PIC S9(04) COMP. DTSBE440 00119 DTSBE440 00120 05 WRK-JRN-AREA OCCURS 400 TIMES DTSBE440 00121 INDEXED BY WRK-JRN-IDX. DTSBE440 00122 10 WRK-JRN-PMT-CHANGE-IND PIC X(01). DTSBE440 00123 88 WRK-JRN-PMT-CHANGE-YES VALUE 'Y'. DTSBE440 00124 88 WRK-JRN-PMT-CHANGE-NO VALUE 'N'. DTSBE440 00125 10 WRK-JRN-PMT-AMT PIC S9(09)V99. DTSBE440 00126 10 WRK-JRN-INT-CHANGE-IND PIC X(01). DTSBE440 00127 88 WRK-JRN-INT-CHANGE-YES VALUE 'Y'. DTSBE440 00128 88 WRK-JRN-INT-CHANGE-NO VALUE 'N'. DTSBE440 00129 DTSBE440 00130 05 WRK-MJRN-YRQ PIC S9(05) COMP-3. DTSBE440 00131 SKIP3 DTSBE440 00132 05 WRK-INT-CHG PIC S9(09)V99 COMP-3. DTSBE440 00133 05 DISPLAY-AMT-X PIC X(15). DTSBE440 00134 05 DISPLAY-AMT REDEFINES DISPLAY-AMT-X DTSBE440 00135 PIC ZZZ,ZZZ,ZZ9.99-. DTSBE440 00136 EJECT DTSBE440 00137 01 L001-LINK-AREA. DTSBE440 00138 ++INCLUDE DTSIL001 DTSBE440 00139 EJECT DTSBE440 00140 01 L004-LINK-AREA. DTSBE440 00141 ++INCLUDE DTSIL004 DTSBE440 00142 EJECT DTSBE440 00143 01 L005-LINK-AREA. DTSBE440 00144 ++INCLUDE DTSIL005 DTSBE440 00145 EJECT DTSBE440 00146 01 L910-LINK-AREA. DTSBE440 00147 ++INCLUDE DTSIL910 DTSBE440 00148 SKIP3 DTSBE440 00149 01 MSKL-REC. DTSBE440 00150 ++INCLUDE DTSIMSKL DTSBE440 00151 SKIP3 DTSBE440 00152 01 MHDR-REC. DTSBE440 00153 ++INCLUDE DTSIMHDR DTSBE440 00154 SKIP3 DTSBE440 00155 01 MERD-REC. DTSBE440 00156 ++INCLUDE DTSIMERD DTSBE440 00157 SKIP3 DTSBE440 00158 01 MQTR-REC. DTSBE440 00159 ++INCLUDE DTSIMQTR DTSBE440 00160 SKIP3 DTSBE440 00161 01 MJRN-REC. DTSBE440 00162 ++INCLUDE DTSIMJRN DTSBE440 00163 SKIP3 DTSBE440 00164 01 MFAS-REC. DTSBE440 00165 ++INCLUDE DTSIMFAS DTSBE440 00166 SKIP3 DTSBE440 00167 01 R440-REC. DTSBE440 00168 ++INCLUDE DTSIR440 DTSBE440 00169 EJECT DTSBE440 00170 01 MMAX-LITERALS. DTSBE440 00171 ++INCLUDE DTSIMMAX DTSBE440 00172 EJECT DTSBE440 00173 LINKAGE SECTION. DTSBE440 00174 SKIP3 DTSBE440 00175 01 LECM-LINK-AREA. DTSBE440 00176 ++INCLUDE DTSILECM DTSBE440 00177 SKIP3 DTSBE440 00178 10 FILLER REDEFINES LECM-EXTRACT-PARMS. DTSBE440 00179 15 LECM-PARM-PERIOD-START-DATE PIC 9(06). DTSBE440 00180 15 FILLER PIC X(01). DTSBE440 00181 15 LECM-PARM-PERIOD-END-DATE PIC 9(06). DTSBE440 00182 15 FILLER PIC X(55). DTSBE440 00183 EJECT DTSBE440 00184 01 MPRF-LINK-REC. DTSBE440 00185 ++INCLUDE DTSIMPRF DTSBE440 00186 EJECT DTSBE440 00187 PROCEDURE DIVISION USING LECM-LINK-AREA DTSBE440 00188 MPRF-LINK-REC. DTSBE440 00189 SKIP2 DTSBE440 00190 IF LECM-PROCESS-88 DTSBE440 00191 PERFORM P0000-PROCESS THRU P0000-EXIT DTSBE440 00192 ELSE DTSBE440 00193 IF LECM-INITIALIZE-88 DTSBE440 00194 PERFORM I0000-INITIALIZE THRU I0000-EXIT DTSBE440 00195 ELSE DTSBE440 00196 IF LECM-TERMINATE-88 DTSBE440 00197 PERFORM T0000-TERMINATE THRU T0000-EXIT DTSBE440 00198 ELSE DTSBE440 00199 MOVE 'INVALID LECM-CALL-TYPE-IND ENCOUNTERED' DTSBE440 00200 TO ABEND-MSG DTSBE440 00201 PERFORM S999-ABEND THRU S999-EXIT. DTSBE440 00202 SKIP2 DTSBE440 00203 GOBACK. DTSBE440 00204 EJECT DTSBE440 00205 I0000-INITIALIZE. DTSBE440 00206 MOVE LECM-TRACE-IND TO L910-TRACE-IND. DTSBE440 00207 DTSBE440 00208 MOVE WRK-MOD-NAME TO L910-MOD-NAME. DTSBE440 00209 DTSBE440 00210 MOVE LENGTH OF R440-REC TO R440-LENGTH. DTSBE440 00211 MOVE '440' TO R440-REC-TYPE. DTSBE440 00212 DTSBE440 00213 PERFORM I0100-INIT-R440 THRU I0100-EXIT. DTSBE440 00214 DTSBE440 00215 PERFORM I1000-READ-MHDR THRU I1000-EXIT. DTSBE440 00216 DTSBE440 00217 PERFORM I2000-EDIT-AND-DEFAULT-PARMS THRU I2000-EXIT. DTSBE440 00218 DTSBE440 00219 SET LECM-MST-OPEN-READ-88 TO TRUE. DTSBE440 00220 DTSBE440 00221 I0000-EXIT. DTSBE440 00222 EXIT. DTSBE440 00223 DTSBE440 00224 I0100-INIT-R440. DTSBE440 00225 MOVE +0 TO R440-NEW-DTRM-CNT-MTH DTSBE440 00226 R440-NEW-DTRM-CNT-YR DTSBE440 00227 R440-NEW-DTRM-CNT-PYR DTSBE440 00228 R440-NEW-DTRM-T90-CNT-MTH DTSBE440 00229 R440-NEW-DTRM-T90-CNT-YR DTSBE440 00230 R440-NEW-DTRM-T90-CNT-PYR DTSBE440 00231 R440-NEW-DTRM-T180-CNT-MTH DTSBE440 00232 R440-NEW-DTRM-T180-CNT-YR DTSBE440 00233 R440-NEW-DTRM-T180-CNT-PYR DTSBE440 00234 R440-INACTIVATION-CNT-MTH DTSBE440 00235 R440-INACTIVATION-CNT-YR DTSBE440 00236 R440-INACTIVATION-CNT-PYR DTSBE440 00237 R440-LIABLE-EMP-CNT DTSBE440 00238 R440-AUDIT-CNT-MTH DTSBE440 00239 R440-AUDIT-CNT-YR DTSBE440 00240 R440-AUDIT-CNT-PYR DTSBE440 00241 R440-PAST-DUE-COLLECT-MTH DTSBE440 00242 R440-PAST-DUE-COLLECT-YR DTSBE440 00243 R440-PAST-DUE-COLLECT-PYR DTSBE440 00244 R440-PENALTY-COLLECT-MTH DTSBE440 00245 R440-PENALTY-COLLECT-YR DTSBE440 00246 R440-PENALTY-COLLECT-PYR DTSBE440 00247 R440-INTEREST-COLLECT-MTH DTSBE440 00248 R440-INTEREST-COLLECT-YR DTSBE440 00249 R440-INTEREST-COLLECT-PYR. DTSBE440 00250 DTSBE440 00251 I0100-EXIT. DTSBE440 00252 EXIT. DTSBE440 00253 DTSBE440 00254 EJECT DTSBE440 00255 I1000-READ-MHDR. DTSBE440 00256 MOVE LOW-VALUES TO MHDR-KEY-AREA. DTSBE440 00257 MOVE +0 TO MHDR-EMP-NO. DTSBE440 00258 SET MHDR-HDR-88 TO TRUE. DTSBE440 00259 MOVE MHDR-KEY-AREA TO MSKL-KEY-AREA. DTSBE440 00260 PERFORM S910-READ THRU S910-EXIT. DTSBE440 00261 IF L910-NO-REC-88 DTSBE440 00262 MOVE 'MHDR RECORD NOT FOUND' DTSBE440 00263 TO ABEND-MSG DTSBE440 00264 PERFORM S999-ABEND THRU S999-EXIT DTSBE440 00265 ELSE DTSBE440 00266 MOVE MSKL-REC TO MHDR-REC. DTSBE440 00267 DTSBE440 00268 I1000-EXIT. DTSBE440 00269 EXIT. DTSBE440 00270 DTSBE440 00271 I2000-EDIT-AND-DEFAULT-PARMS. DTSBE440 00272 PERFORM I2100-PERIOD-START-DATE THRU I2100-EXIT. DTSBE440 00273 DTSBE440 00274 PERFORM I2200-PERIOD-END-DATE THRU I2200-EXIT. DTSBE440 00275 DTSBE440 00276 PERFORM I2300-YEAR-START-DATES THRU I2300-EXIT. DTSBE440 00277 DTSBE440 00278 MOVE WRK-PERIOD-START-DATE TO R440-PERIOD-START-DATE. DTSBE440 00279 DTSBE440 00280 MOVE WRK-PERIOD-END-DATE TO R440-PERIOD-END-DATE. DTSBE440 00281 DTSBE440 00282 MOVE WRK-CURR-YR-START-DATE TO R440-CURR-FISCAL-YEAR. DTSBE440 00283 DTSBE440 00284 MOVE WRK-PRIOR-YR-START-DATE TO R440-PRIOR-FISCAL-YEAR. DTSBE440 00285 DTSBE440 00286 DISPLAY 'DTSBE440 START DATE ' WRK-PERIOD-START-DATE. DTSBE440 00287 DISPLAY 'DTSBE440 END DATE ' WRK-PERIOD-END-DATE. DTSBE440 00288 DISPLAY 'DTSBE440 CURR YEAR ' WRK-CURR-YR-START-DATE. DTSBE440 00289 DISPLAY 'DTSBE440 PRIOR YEAR ' WRK-PRIOR-YR-START-DATE. DTSBE440 00290 DTSBE440 00291 I2000-EXIT. DTSBE440 00292 EXIT. DTSBE440 00293 SKIP3 DTSBE440 00294 I2100-PERIOD-START-DATE. DTSBE440 00295 IF LECM-PARM-PERIOD-START-DATE = SPACES DTSBE440 00296 PERFORM I2110-DEFAULT-START-DATE THRU I2110-EXIT DTSBE440 00297 ELSE DTSBE440 00298 PERFORM I2120-EDIT-START-DATE THRU I2120-EXIT. DTSBE440 00299 DTSBE440 00300 IF WRK-PERIOD-START-DATE > LECM-LAST-MJRN-PURGE-DATE DTSBE440 00301 NEXT SENTENCE DTSBE440 00302 ELSE DTSBE440 00303 MOVE DTSBE440 00304 'START-DATE NOT GREATER THAN LAST-MJRN-PURGE-DATE' DTSBE440 00305 TO ABEND-MSG DTSBE440 00306 PERFORM S999-ABEND THRU S999-EXIT. DTSBE440 00307 DTSBE440 00308 I2100-EXIT. DTSBE440 00309 EXIT. DTSBE440 00310 DTSBE440 00311 I2110-DEFAULT-START-DATE. DTSBE440 00312 MOVE MHDR-CMPL-MONTH-BEGIN-DATE TO WRK-PERIOD-START-DATE DTSBE440 00313 L005-DATE DTSBE440 00314 MOVE ZERO TO L005-TIME DTSBE440 00315 PERFORM S005-FROM-DATE-TIME THRU S005-EXIT DTSBE440 00316 MOVE L005-ABSTIME TO WRK-PERIOD-START-ABSTIME. DTSBE440 00317 DTSBE440 00318 I2110-EXIT. DTSBE440 00319 EXIT. DTSBE440 00320 DTSBE440 00321 I2120-EDIT-START-DATE. DTSBE440 00322 MOVE LECM-PARM-PERIOD-START-DATE TO L001-CAL-6-DATE-X. DTSBE440 00323 PERFORM S001-FROM-CAL-6 THRU S001-EXIT. DTSBE440 00324 IF L001-INVALID-DATE DTSBE440 00325 MOVE 'LECM-PARM-PERIOD-START-DATE NOT VALID' DTSBE440 00326 TO ABEND-MSG DTSBE440 00327 PERFORM S999-ABEND THRU S999-EXIT DTSBE440 00328 ELSE DTSBE440 00329 MOVE L001-FED-8-DATE-9 TO WRK-PERIOD-START-DATE DTSBE440 00330 L005-DATE DTSBE440 00331 MOVE ZERO TO L005-TIME DTSBE440 00332 PERFORM S005-FROM-DATE-TIME THRU S005-EXIT DTSBE440 00333 MOVE L005-ABSTIME TO WRK-PERIOD-START-ABSTIME DTSBE440 00334 END-IF. DTSBE440 00335 DTSBE440 00336 I2120-EXIT. DTSBE440 00337 EXIT. DTSBE440 00338 DTSBE440 00339 I2200-PERIOD-END-DATE. DTSBE440 00340 IF LECM-PARM-PERIOD-END-DATE = SPACES DTSBE440 00341 PERFORM I2210-DEFAULT-END-DATE THRU I2210-EXIT DTSBE440 00342 ELSE DTSBE440 00343 PERFORM I2220-EDIT-END-DATE THRU I2220-EXIT. DTSBE440 00344 DTSBE440 00345 I2200-EXIT. DTSBE440 00346 EXIT. DTSBE440 00347 DTSBE440 00348 I2210-DEFAULT-END-DATE. DTSBE440 00349 MOVE MHDR-CMPL-MONTH-END-DATE TO WRK-PERIOD-END-DATE. DTSBE440 00350 DTSBE440 00351 I2210-EXIT. DTSBE440 00352 EXIT. DTSBE440 00353 DTSBE440 00354 I2220-EDIT-END-DATE. DTSBE440 00355 MOVE LECM-PARM-PERIOD-END-DATE TO L001-CAL-6-DATE-X. DTSBE440 00356 PERFORM S001-FROM-CAL-6 THRU S001-EXIT. DTSBE440 00357 IF L001-INVALID-DATE DTSBE440 00358 MOVE 'LECM-PARM-END-DATE NOT VALID' DTSBE440 00359 TO ABEND-MSG DTSBE440 00360 PERFORM S999-ABEND THRU S999-EXIT DTSBE440 00361 ELSE DTSBE440 00362 MOVE L001-FED-8-DATE-9 TO WRK-PERIOD-END-DATE DTSBE440 00363 END-IF. DTSBE440 00364 DTSBE440 00365 I2220-EXIT. DTSBE440 00366 EXIT. DTSBE440 00367 DTSBE440 00368 I2300-YEAR-START-DATES. DTSBE440 00369 MOVE WRK-PERIOD-START-DATE TO L001-FED-8-DATE-9. DTSBE440 00370 IF L001-FED-8-MO > 9 DTSBE440 00371 MOVE 10 TO L001-FED-8-MO DTSBE440 00372 MOVE 01 TO L001-FED-8-DA DTSBE440 00373 ELSE DTSBE440 00374 SUBTRACT 1 FROM L001-FED-8-YR DTSBE440 00375 MOVE 10 TO L001-FED-8-MO DTSBE440 00376 MOVE 01 TO L001-FED-8-DA DTSBE440 00377 END-IF. DTSBE440 00378 DTSBE440 00379 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBE440 00380 IF L001-INVALID-DATE DTSBE440 00381 MOVE 'YEAR START DATE NOT VALID' DTSBE440 00382 TO ABEND-MSG DTSBE440 00383 PERFORM S999-ABEND THRU S999-EXIT DTSBE440 00384 ELSE DTSBE440 00385 MOVE L001-FED-8-DATE-9 TO L005-DATE DTSBE440 00386 WRK-CURR-YR-START-DATE DTSBE440 00387 MOVE ZERO TO L005-TIME DTSBE440 00388 PERFORM S005-FROM-DATE-TIME THRU S005-EXIT DTSBE440 00389 MOVE L005-ABSTIME TO WRK-CURR-YR-START-ABSTIME DTSBE440 00390 END-IF. DTSBE440 00391 DTSBE440 00392 SUBTRACT 1 FROM L001-FED-8-YR. DTSBE440 00393 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBE440 00394 IF L001-INVALID-DATE DTSBE440 00395 MOVE 'PRIOR YEAR START DATE NOT VALID' DTSBE440 00396 TO ABEND-MSG DTSBE440 00397 PERFORM S999-ABEND THRU S999-EXIT DTSBE440 00398 ELSE DTSBE440 00399 MOVE L001-FED-8-DATE-9 TO L005-DATE DTSBE440 00400 WRK-PRIOR-YR-START-DATE DTSBE440 00401 MOVE ZERO TO L005-TIME DTSBE440 00402 PERFORM S005-FROM-DATE-TIME THRU S005-EXIT DTSBE440 00403 MOVE L005-ABSTIME TO WRK-PRIOR-YR-START-ABSTIMEDTSBE440 00404 END-IF. DTSBE440 00405 DTSBE440 00406 I2300-EXIT. DTSBE440 00407 EXIT. DTSBE440 00408 DTSBE440 00409 EJECT DTSBE440 00410 P0000-PROCESS. DTSBE440 00411 IF MPRF-CLASS-SUB-88 DTSBE440 00412 ADD +1 TO R440-LIABLE-EMP-CNT DTSBE440 00413 ELSE DTSBE440 00414 GO TO P0000-EXIT. DTSBE440 00415 DTSBE440 00416 PERFORM P1000-DETERMINATIONS THRU P1000-EXIT. DTSBE440 00417 DTSBE440 00418 PERFORM P2000-AUDIT-ACTIVITY THRU P2000-EXIT. DTSBE440 00419 DTSBE440 00420 PERFORM P3000-UI-TAX-COLLECTIONS THRU P3000-EXIT. DTSBE440 00421 DTSBE440 00422 P0000-EXIT. DTSBE440 00423 EXIT. DTSBE440 00424 EJECT DTSBE440 00425 P1000-DETERMINATIONS. DTSBE440 00426 MOVE LOW-VALUES TO MERD-KEY-AREA. DTSBE440 00427 MOVE MPRF-EMP-NO TO MERD-EMP-NO. DTSBE440 00428 SET MERD-ERD-88 TO TRUE. DTSBE440 00429 MOVE WRK-PRIOR-YR-START-ABSTIME TO MERD-ESTB-ABSTIME. DTSBE440 00430 MOVE MERD-KEY-AREA TO MSKL-KEY-AREA. DTSBE440 00431 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE440 00432 PERFORM P1100-SCAN-MERD THRU P1100-EXIT DTSBE440 00433 UNTIL L910-NO-REC-88. DTSBE440 00434 P1000-EXIT. DTSBE440 00435 EXIT. DTSBE440 00436 SKIP3 DTSBE440 00437 P1100-SCAN-MERD. DTSBE440 00438 MOVE MSKL-REC TO MERD-REC. DTSBE440 00439 DTSBE440 00440 IF (MERD-ESTB-DATE < WRK-PRIOR-YR-START-DATE) DTSBE440 00441 OR DTSBE440 00442 (MERD-ESTB-DATE > WRK-PERIOD-END-DATE) DTSBE440 00443 NEXT SENTENCE DTSBE440 00444 ELSE DTSBE440 00445 IF MERD-DETER-INACT-88 DTSBE440 00446 PERFORM P1110-INACTIVE THRU P1110-EXIT DTSBE440 00447 ELSE DTSBE440 00448 IF MERD-DETER-NEW-88 DTSBE440 00449 PERFORM P1120-NEW-DETERMINATION THRU P1120-EXIT DTSBE440 00450 END-IF DTSBE440 00451 END-IF DTSBE440 00452 END-IF. DTSBE440 00453 DTSBE440 00454 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE440 00455 DTSBE440 00456 P1100-EXIT. DTSBE440 00457 EXIT. DTSBE440 00458 DTSBE440 00459 P1110-INACTIVE. DTSBE440 00460 IF MERD-ESTB-DATE >= WRK-PERIOD-START-DATE DTSBE440 00461 ADD +1 TO R440-INACTIVATION-CNT-MTH DTSBE440 00462 END-IF. DTSBE440 00463 DTSBE440 00464 IF MERD-ESTB-DATE >= WRK-CURR-YR-START-DATE DTSBE440 00465 ADD +1 TO R440-INACTIVATION-CNT-YR DTSBE440 00466 END-IF. DTSBE440 00467 DTSBE440 00468 IF MERD-ESTB-DATE >= WRK-PRIOR-YR-START-DATE DTSBE440 00469 AND MERD-ESTB-DATE < WRK-CURR-YR-START-DATE DTSBE440 00470 ADD +1 TO R440-INACTIVATION-CNT-PYR DTSBE440 00471 END-IF. DTSBE440 00472 DTSBE440 00473 P1110-EXIT. DTSBE440 00474 EXIT. DTSBE440 00475 DTSBE440 00476 P1120-NEW-DETERMINATION. DTSBE440 00477 MOVE MERD-ESTB-DATE TO L001-FED-8-DATE-9. DTSBE440 00478 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBE440 00479 MOVE L001-JUL-ABS-DAY TO WRK-ENTRY-JUL-ABS-DAY. DTSBE440 00480 DTSBE440 00481 MOVE MERD-EFFECTIVE-DATE TO L004-DATE. DTSBE440 00482 PERFORM S004-FROM-DATE THRU S004-EXIT. DTSBE440 00483 MOVE L004-QTR-END-DATE TO L001-FED-8-DATE-9. DTSBE440 00484 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBE440 00485 DTSBE440 00486 COMPUTE WRK-TIME-LAPSE-DAYS DTSBE440 00487 = WRK-ENTRY-JUL-ABS-DAY - L001-JUL-ABS-DAY. DTSBE440 00488 DTSBE440 00489 IF MERD-ESTB-DATE >= WRK-PERIOD-START-DATE DTSBE440 00490 PERFORM P1121-CURRENT-PERIOD THRU P1121-EXIT DTSBE440 00491 END-IF. DTSBE440 00492 DTSBE440 00493 IF MERD-ESTB-DATE >= WRK-CURR-YR-START-DATE DTSBE440 00494 PERFORM P1122-CURRENT-YEAR THRU P1122-EXIT DTSBE440 00495 END-IF. DTSBE440 00496 DTSBE440 00497 IF MERD-ESTB-DATE >= WRK-PRIOR-YR-START-DATE DTSBE440 00498 AND MERD-ESTB-DATE < WRK-CURR-YR-START-DATE DTSBE440 00499 PERFORM P1123-PRIOR-YEAR THRU P1123-EXIT DTSBE440 00500 END-IF. DTSBE440 00501 DTSBE440 00502 P1120-EXIT. DTSBE440 00503 EXIT. DTSBE440 00504 DTSBE440 00505 P1121-CURRENT-PERIOD. DTSBE440 00506 ADD +1 TO R440-NEW-DTRM-CNT-MTH. DTSBE440 00507 IF WRK-TIME-LAPSE-DAYS < +91 DTSBE440 00508 ADD +1 TO R440-NEW-DTRM-T90-CNT-MTH DTSBE440 00509 END-IF. DTSBE440 00510 IF WRK-TIME-LAPSE-DAYS < +181 DTSBE440 00511 ADD +1 TO R440-NEW-DTRM-T180-CNT-MTH DTSBE440 00512 END-IF. DTSBE440 00513 DTSBE440 00514 P1121-EXIT. DTSBE440 00515 EXIT. DTSBE440 00516 DTSBE440 00517 P1122-CURRENT-YEAR. DTSBE440 00518 ADD +1 TO R440-NEW-DTRM-CNT-YR. DTSBE440 00519 IF WRK-TIME-LAPSE-DAYS < +91 DTSBE440 00520 ADD +1 TO R440-NEW-DTRM-T90-CNT-YR DTSBE440 00521 END-IF. DTSBE440 00522 IF WRK-TIME-LAPSE-DAYS < +181 DTSBE440 00523 ADD +1 TO R440-NEW-DTRM-T180-CNT-YR DTSBE440 00524 END-IF. DTSBE440 00525 DTSBE440 00526 P1122-EXIT. DTSBE440 00527 EXIT. DTSBE440 00528 DTSBE440 00529 P1123-PRIOR-YEAR. DTSBE440 00530 ADD +1 TO R440-NEW-DTRM-CNT-PYR. DTSBE440 00531 DTSBE440 00532 IF WRK-TIME-LAPSE-DAYS < +91 DTSBE440 00533 ADD +1 TO R440-NEW-DTRM-T90-CNT-PYR DTSBE440 00534 END-IF. DTSBE440 00535 DTSBE440 00536 IF WRK-TIME-LAPSE-DAYS < +181 DTSBE440 00537 ADD +1 TO R440-NEW-DTRM-T180-CNT-PYR DTSBE440 00538 END-IF. DTSBE440 00539 DTSBE440 00540 P1123-EXIT. DTSBE440 00541 EXIT. DTSBE440 00542 DTSBE440 00543 P2000-AUDIT-ACTIVITY. DTSBE440 00544 IF MPRF-NO-MFAS-88 DTSBE440 00545 GO TO P2000-EXIT. DTSBE440 00546 DTSBE440 00547 MOVE LOW-VALUES TO MFAS-KEY-AREA. DTSBE440 00548 MOVE MPRF-EMP-NO TO MFAS-EMP-NO. DTSBE440 00549 SET MFAS-FAS-88 TO TRUE. DTSBE440 00550 MOVE MFAS-KEY-AREA TO MSKL-KEY-AREA. DTSBE440 00551 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE440 00552 PERFORM P2100-SCAN-MFAS THRU P2100-EXIT DTSBE440 00553 UNTIL L910-NO-REC-88. DTSBE440 00554 DTSBE440 00555 P2000-EXIT. DTSBE440 00556 EXIT. DTSBE440 00557 SKIP3 DTSBE440 00558 P2100-SCAN-MFAS. DTSBE440 00559 MOVE MSKL-REC TO MFAS-REC. DTSBE440 00560 DTSBE440 00561 IF MFAS-PROCESSED-DATE >= WRK-PERIOD-START-DATE DTSBE440 00562 ADD +1 TO R440-AUDIT-CNT-MTH DTSBE440 00563 END-IF. DTSBE440 00564 DTSBE440 00565 IF MFAS-PROCESSED-DATE >= WRK-CURR-YR-START-DATE DTSBE440 00566 ADD +1 TO R440-AUDIT-CNT-YR DTSBE440 00567 END-IF. DTSBE440 00568 DTSBE440 00569 IF MFAS-PROCESSED-DATE >= WRK-PRIOR-YR-START-DATE DTSBE440 00570 AND MFAS-PROCESSED-DATE < WRK-CURR-YR-START-DATE DTSBE440 00571 ADD +1 TO R440-AUDIT-CNT-PYR DTSBE440 00572 END-IF. DTSBE440 00573 DTSBE440 00574 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBE440 00575 DTSBE440 00576 P2100-EXIT. DTSBE440 00577 EXIT. DTSBE440 00578 EJECT DTSBE440 00579 P3000-UI-TAX-COLLECTIONS. DTSBE440 00580 MOVE LOW-VALUES TO MJRN-KEY-AREA. DTSBE440 00581 MOVE MPRF-EMP-NO TO MJRN-EMP-NO. DTSBE440 00582 SET MJRN-JRN-88 TO TRUE. DTSBE440 00583 MOVE WRK-PRIOR-YR-START-ABSTIME TO MJRN-ESTB-ABSTIME. DTSBE440 00584 MOVE MJRN-KEY-AREA TO MSKL-KEY-AREA. DTSBE440 00585 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBE440 00586 DTSBE440 00587 PERFORM DTSBE440 00588 UNTIL L910-NO-REC-88 DTSBE440 00589 MOVE MSKL-REC TO MJRN-REC DTSBE440 00590 PERFORM P3100-PROCESS-MJRN THRU P3100-EXIT DTSBE440 00591 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBE440 00592 END-PERFORM. DTSBE440 00593 DTSBE440 00594 P3000-EXIT. DTSBE440 00595 EXIT. DTSBE440 00596 SKIP3 DTSBE440 00597 ***************************************************************** DTSBE440 00598 * THIS PROCESS DETERMINES THE AMOUNT IN PAST DUE CONTRIBUTIONS DTSBE440 00599 * COLLECTED BY LOOKING AT ALL PAYMENTS THAT RESULT IN A CHANGE DTSBE440 00600 * IN INTEREST CHARGED. IF A PAYMENT PRODUCES A CHANGE IN DTSBE440 00601 * INTEREST, IS MUST HAVE BEEN DIRECTED TO A PAST-DUE RECEIVABLE. DTSBE440 00602 * THE CHANGE MAY BE EITHER POSITIVE OR NEGATIVE. DTSBE440 00603 * DTSBE440 00604 * THE PROCESS SCANS THE ACCOUNTING JOURNAL RECORDS (MJRN) AND DTSBE440 00605 * TABLES SOME INFORMATION ABOUT EACH JOURNAL RECORD, WITH EACH DTSBE440 00606 * OCCURRENCE OF THE TABLE RECORDING DATA ABOUT A SINGLE QUARTER. DTSBE440 00607 * IF THERE IS A PAYMENT, IT SAVES THE PAYMENT AMOUNT IN THE DTSBE440 00608 * TABLE OCCURRENCE FOR THAT QUARTER. IF THERE AN INTEREST DTSBE440 00609 * CHARGE ASSOCIATED WITH THE SAME JOURNAL ENTRY, IT MARKS DTSBE440 00610 * THE PAYMENT AS BEING ASSOCIATED WITH A CHANGE IN INTEREST DTSBE440 00611 * CHARGED. DTSBE440 00612 * DTSBE440 00613 * AFTER TABLING ALL DATA FOR THE JOURNAL RECORD, THE DTSBE440 00614 * PROCESS SCANS THE TABLE. FOR ANY QUARTER IN WHICH THERE DTSBE440 00615 * IS A CHANGE TO BOTH TAX PAID AND INTEREST CHARGED, THE DTSBE440 00616 * PROCESS ADDS THE PAYMENT TO THE TOTAL OF PAST DUE DTSBE440 00617 * CONTRIBUTIONS COLLECTED. DTSBE440 00618 ***************************************************************** DTSBE440 00619 P3100-PROCESS-MJRN. DTSBE440 00620 IF MJRN-TRAN-CNVR-88 DTSBE440 00621 GO TO P3100-EXIT. DTSBE440 00622 DTSBE440 00623 IF (MJRN-ESTB-DATE < WRK-PRIOR-YR-START-DATE) DTSBE440 00624 OR DTSBE440 00625 (MJRN-ESTB-DATE > WRK-PERIOD-END-DATE) DTSBE440 00626 GO TO P3100-EXIT. DTSBE440 00627 DTSBE440 00628 PERFORM P3110-INIT-JRN-TAB THRU P3110-EXIT. DTSBE440 00629 PERFORM P3120-ACCT-GROUP THRU P3120-EXIT DTSBE440 00630 VARYING MJRN-OCC-IDX FROM 1 BY 1 DTSBE440 00631 UNTIL MJRN-OCC-IDX > MJRN-OCC-CNT. DTSBE440 00632 DTSBE440 00633 PERFORM P3130-UPDATE-PMT-TOTALS THRU P3130-EXIT DTSBE440 00634 VARYING WRK-JRN-IDX FROM 1 BY 1 DTSBE440 00635 UNTIL WRK-JRN-IDX > WRK-JRN-MAX. DTSBE440 00636 DTSBE440 00637 P3100-EXIT. DTSBE440 00638 EXIT. DTSBE440 00639 SKIP3 DTSBE440 00640 P3110-INIT-JRN-TAB. DTSBE440 00641 PERFORM DTSBE440 00642 VARYING WRK-JRN-SUB FROM +1 BY +1 DTSBE440 00643 UNTIL WRK-JRN-SUB > WRK-JRN-MAX DTSBE440 00644 SET WRK-JRN-PMT-CHANGE-NO (WRK-JRN-SUB) TO TRUE DTSBE440 00645 SET WRK-JRN-INT-CHANGE-NO (WRK-JRN-SUB) TO TRUE DTSBE440 00646 MOVE ZERO TO WRK-JRN-PMT-AMT (WRK-JRN-SUB) DTSBE440 00647 END-PERFORM. DTSBE440 00648 DTSBE440 00649 P3110-EXIT. DTSBE440 00650 EXIT. DTSBE440 00651 P3120-ACCT-GROUP. DTSBE440 00652 MOVE MJRN-YRQ (MJRN-OCC-IDX) TO WRK-MJRN-YRQ. DTSBE440 00653 MOVE WRK-MJRN-YRQ TO L004-QTR-5-9. DTSBE440 00654 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBE440 00655 DTSBE440 00656 IF MJRN-ROW-UI-88 (MJRN-OCC-IDX) DTSBE440 00657 PERFORM P3121-UPDATE-UI THRU P3121-EXIT DTSBE440 00658 ELSE DTSBE440 00659 IF MJRN-ROW-INT-88 (MJRN-OCC-IDX) DTSBE440 00660 PERFORM P3122-UPDATE-INT THRU P3122-EXIT DTSBE440 00661 ELSE DTSBE440 00662 IF MJRN-ROW-LATE-PEN-88 (MJRN-OCC-IDX) DTSBE440 00663 PERFORM P3123-UPDATE-PEN THRU P3123-EXIT DTSBE440 00664 ELSE DTSBE440 00665 GO TO P3120-EXIT. DTSBE440 00666 DTSBE440 00667 P3120-EXIT. DTSBE440 00668 EXIT. DTSBE440 00669 DTSBE440 00670 P3121-UPDATE-UI. DTSBE440 00671 IF MJRN-COL-PAID-88 (MJRN-OCC-IDX) DTSBE440 00672 OR MJRN-COL-TOLERATED-88 (MJRN-OCC-IDX) DTSBE440 00673 SET WRK-JRN-PMT-CHANGE-YES (L004-ABS-QTR) TO TRUE DTSBE440 00674 ADD MJRN-AMT (MJRN-OCC-IDX) DTSBE440 00675 TO WRK-JRN-PMT-AMT (L004-ABS-QTR). DTSBE440 00676 P3121-EXIT. DTSBE440 00677 EXIT. DTSBE440 00678 DTSBE440 00679 P3122-UPDATE-INT. DTSBE440 00680 IF MJRN-COL-CHARGED-88 (MJRN-OCC-IDX) DTSBE440 00681 SET WRK-JRN-INT-CHANGE-YES (L004-ABS-QTR) TO TRUE DTSBE440 00682 END-IF. DTSBE440 00683 DTSBE440 00684 IF MJRN-COL-PAID-88 (MJRN-OCC-IDX) DTSBE440 00685 OR MJRN-COL-TOLERATED-88 (MJRN-OCC-IDX) DTSBE440 00686 IF MJRN-ESTB-DATE >= WRK-CURR-YR-START-DATE DTSBE440 00687 ADD MJRN-AMT (MJRN-OCC-IDX) DTSBE440 00688 TO R440-INTEREST-COLLECT-YR DTSBE440 00689 END-IF DTSBE440 00690 IF MJRN-ESTB-DATE >= WRK-PERIOD-START-DATE DTSBE440 00691 ADD MJRN-AMT (MJRN-OCC-IDX) DTSBE440 00692 TO R440-INTEREST-COLLECT-MTH DTSBE440 00693 END-IF DTSBE440 00694 IF MJRN-ESTB-DATE >= WRK-PRIOR-YR-START-DATE DTSBE440 00695 AND MJRN-ESTB-DATE < WRK-CURR-YR-START-DATE DTSBE440 00696 ADD MJRN-AMT (MJRN-OCC-IDX) DTSBE440 00697 TO R440-INTEREST-COLLECT-PYR DTSBE440 00698 END-IF DTSBE440 00699 END-IF. DTSBE440 00700 DTSBE440 00701 P3122-EXIT. DTSBE440 00702 EXIT. DTSBE440 00703 DTSBE440 00704 P3123-UPDATE-PEN. DTSBE440 00705 IF MJRN-COL-PAID-88 (MJRN-OCC-IDX) DTSBE440 00706 OR MJRN-COL-TOLERATED-88 (MJRN-OCC-IDX) DTSBE440 00707 IF MJRN-ESTB-DATE >= WRK-CURR-YR-START-DATE DTSBE440 00708 ADD MJRN-AMT (MJRN-OCC-IDX) DTSBE440 00709 TO R440-PENALTY-COLLECT-YR DTSBE440 00710 END-IF DTSBE440 00711 IF MJRN-ESTB-DATE >= WRK-PERIOD-START-DATE DTSBE440 00712 ADD MJRN-AMT (MJRN-OCC-IDX) DTSBE440 00713 TO R440-PENALTY-COLLECT-MTH DTSBE440 00714 END-IF DTSBE440 00715 IF MJRN-ESTB-DATE >= WRK-PRIOR-YR-START-DATE DTSBE440 00716 AND MJRN-ESTB-DATE < WRK-CURR-YR-START-DATE DTSBE440 00717 ADD MJRN-AMT (MJRN-OCC-IDX) DTSBE440 00718 TO R440-PENALTY-COLLECT-PYR DTSBE440 00719 END-IF DTSBE440 00720 END-IF. DTSBE440 00721 DTSBE440 00722 P3123-EXIT. DTSBE440 00723 EXIT. DTSBE440 00724 DTSBE440 00725 P3130-UPDATE-PMT-TOTALS. DTSBE440 00726 IF WRK-JRN-PMT-CHANGE-YES (WRK-JRN-IDX) DTSBE440 00727 AND WRK-JRN-INT-CHANGE-YES (WRK-JRN-IDX) DTSBE440 00728 IF MJRN-ESTB-DATE >= WRK-CURR-YR-START-DATE DTSBE440 00729 ADD WRK-JRN-PMT-AMT (WRK-JRN-IDX) DTSBE440 00730 TO R440-PAST-DUE-COLLECT-YR DTSBE440 00731 END-IF DTSBE440 00732 IF MJRN-ESTB-DATE >= WRK-PERIOD-START-DATE DTSBE440 00733 ADD WRK-JRN-PMT-AMT (WRK-JRN-IDX) DTSBE440 00734 TO R440-PAST-DUE-COLLECT-MTH DTSBE440 00735 END-IF DTSBE440 00736 IF MJRN-ESTB-DATE >= WRK-PRIOR-YR-START-DATE DTSBE440 00737 AND MJRN-ESTB-DATE < WRK-CURR-YR-START-DATE DTSBE440 00738 ADD WRK-JRN-PMT-AMT (WRK-JRN-IDX) DTSBE440 00739 TO R440-PAST-DUE-COLLECT-PYR DTSBE440 00740 END-IF DTSBE440 00741 END-IF. DTSBE440 00742 DTSBE440 00743 P3130-EXIT. DTSBE440 00744 EXIT. DTSBE440 00745 DTSBE440 00746 DTSBE440 00747 EJECT DTSBE440 00748 T0000-TERMINATE. DTSBE440 00749 IF R440-NEW-DTRM-T90-CNT-MTH > ZERO DTSBE440 00750 AND R440-NEW-DTRM-CNT-MTH > ZERO DTSBE440 00751 COMPUTE R440-NEW-DTRM-TMLY-PCT-MTH = DTSBE440 00752 (R440-NEW-DTRM-T90-CNT-MTH / DTSBE440 00753 R440-NEW-DTRM-CNT-MTH) * 100 DTSBE440 00754 ELSE DTSBE440 00755 MOVE ZERO TO R440-NEW-DTRM-TMLY-PCT-MTH. DTSBE440 00756 DTSBE440 00757 IF R440-NEW-DTRM-T90-CNT-YR > ZERO DTSBE440 00758 AND R440-NEW-DTRM-CNT-YR > ZERO DTSBE440 00759 COMPUTE R440-NEW-DTRM-TMLY-PCT-YR = DTSBE440 00760 (R440-NEW-DTRM-T90-CNT-YR / DTSBE440 00761 R440-NEW-DTRM-CNT-YR) * 100 DTSBE440 00762 ELSE DTSBE440 00763 MOVE ZERO TO R440-NEW-DTRM-TMLY-PCT-YR. DTSBE440 00764 DTSBE440 00765 IF R440-NEW-DTRM-T90-CNT-PYR > ZERO DTSBE440 00766 AND R440-NEW-DTRM-CNT-PYR > ZERO DTSBE440 00767 COMPUTE R440-NEW-DTRM-TMLY-PCT-PYR = DTSBE440 00768 (R440-NEW-DTRM-T90-CNT-PYR / DTSBE440 00769 R440-NEW-DTRM-CNT-PYR) * 100 DTSBE440 00770 ELSE DTSBE440 00771 MOVE ZERO TO R440-NEW-DTRM-TMLY-PCT-PYR. DTSBE440 00772 DTSBE440 00773 DISPLAY 'NEW DETERM ' R440-NEW-DTRM-CNT-MTH DTSBE440 00774 ' ' R440-NEW-DTRM-CNT-YR DTSBE440 00775 ' ' R440-NEW-DTRM-CNT-PYR. DTSBE440 00776 DISPLAY 'NEW DETERM T90 ' R440-NEW-DTRM-T90-CNT-MTH DTSBE440 00777 ' ' R440-NEW-DTRM-T90-CNT-YR DTSBE440 00778 ' ' R440-NEW-DTRM-T90-CNT-PYR. DTSBE440 00779 DISPLAY 'PCT TIMELY ' R440-NEW-DTRM-TMLY-PCT-MTH DTSBE440 00780 ' ' R440-NEW-DTRM-TMLY-PCT-YR DTSBE440 00781 ' ' R440-NEW-DTRM-TMLY-PCT-PYR. DTSBE440 00782 DISPLAY 'NEW DETERM T180 ' R440-NEW-DTRM-T180-CNT-MTH DTSBE440 00783 ' ' R440-NEW-DTRM-T180-CNT-YR DTSBE440 00784 ' ' R440-NEW-DTRM-T180-CNT-PYR. DTSBE440 00785 DISPLAY 'INACTIVATIONS ' R440-INACTIVATION-CNT-MTH DTSBE440 00786 ' ' R440-INACTIVATION-CNT-YR DTSBE440 00787 ' ' R440-INACTIVATION-CNT-PYR. DTSBE440 00788 DISPLAY 'AUDIT ' R440-AUDIT-CNT-MTH DTSBE440 00789 ' ' R440-AUDIT-CNT-YR. DTSBE440 00790 DISPLAY 'PAST DUE PAYMT ' R440-PAST-DUE-COLLECT-MTH DTSBE440 00791 ' ' R440-PAST-DUE-COLLECT-YR DTSBE440 00792 ' ' R440-PAST-DUE-COLLECT-PYR. DTSBE440 00793 DISPLAY 'PENALTY ' R440-PENALTY-COLLECT-MTH DTSBE440 00794 ' ' R440-PENALTY-COLLECT-YR DTSBE440 00795 ' ' R440-PENALTY-COLLECT-PYR. DTSBE440 00796 DISPLAY 'INTEREST ' R440-INTEREST-COLLECT-MTH DTSBE440 00797 ' ' R440-INTEREST-COLLECT-YR DTSBE440 00798 ' ' R440-INTEREST-COLLECT-PYR. DTSBE440 00799 DTSBE440 00800 PERFORM S946-WRITE-R440 THRU S946-EXIT. DTSBE440 00801 DTSBE440 00802 T0000-EXIT. DTSBE440 00803 EXIT. DTSBE440 00804 EJECT DTSBE440 00805 S001-FROM-FED-8. DTSBE440 00806 SET L001-FROM-FED-8 TO TRUE. DTSBE440 00807 GO TO S001-DATE. DTSBE440 00808 DTSBE440 00809 **** S001-FROM-ABS-DAY. DTSBE440 00810 **** SET L001-FROM-ABS-DAY TO TRUE. DTSBE440 00811 **** GO TO S001-DATE. DTSBE440 00812 DTSBE440 00813 S001-FROM-CAL-6. DTSBE440 00814 SET L001-FROM-CAL-6 TO TRUE. DTSBE440 00815 GO TO S001-DATE. DTSBE440 00816 DTSBE440 00817 S001-DATE. DTSBE440 00818 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBE440 00819 S001-EXIT. DTSBE440 00820 EXIT. DTSBE440 00821 SKIP3 DTSBE440 00822 S004-FROM-5. DTSBE440 00823 SET L004-FROM-5 TO TRUE. DTSBE440 00824 GO TO S004-QTR. DTSBE440 00825 DTSBE440 00826 **** S004-FROM-ABS. DTSBE440 00827 **** SET L004-FROM-ABS TO TRUE. DTSBE440 00828 **** GO TO S004-QTR. DTSBE440 00829 DTSBE440 00830 **** S004-FROM-3. DTSBE440 00831 **** SET L004-FROM-3 TO TRUE. DTSBE440 00832 **** GO TO S004-QTR. DTSBE440 00833 DTSBE440 00834 S004-FROM-DATE. DTSBE440 00835 SET L004-FROM-DATE TO TRUE. DTSBE440 00836 GO TO S004-QTR. DTSBE440 00837 DTSBE440 00838 S004-QTR. DTSBE440 00839 DTSBE440 00840 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBE440 00841 DTSBE440 00842 S004-EXIT. DTSBE440 00843 EXIT. DTSBE440 00844 SKIP3 DTSBE440 00845 **** S005-FROM-ABSTIME. DTSBE440 00846 **** SET L005-FROM-ABSTIME TO TRUE. DTSBE440 00847 **** GO TO S005-ABSTIME. DTSBE440 00848 DTSBE440 00849 S005-FROM-DATE-TIME. DTSBE440 00850 SET L005-FROM-DATE-TIME TO TRUE. DTSBE440 00851 GO TO S005-ABSTIME. DTSBE440 00852 DTSBE440 00853 S005-ABSTIME. DTSBE440 00854 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBE440 00855 S005-EXIT. DTSBE440 00856 EXIT. DTSBE440 00857 SKIP3 DTSBE440 00858 S910-READ. DTSBE440 00859 SET L910-READ-88 TO TRUE. DTSBE440 00860 GO TO S910-MSTR-IO. DTSBE440 00861 DTSBE440 00862 S910-START-BROWSE. DTSBE440 00863 SET L910-START-BROWSE-88 TO TRUE. DTSBE440 00864 GO TO S910-MSTR-IO. DTSBE440 00865 DTSBE440 00866 S910-READ-NEXT. DTSBE440 00867 SET L910-READ-NEXT-88 TO TRUE. DTSBE440 00868 GO TO S910-MSTR-IO. DTSBE440 00869 DTSBE440 00870 *S910-COUNT. DTSBE440 00871 *****SET L910-COUNT-88 TO TRUE. DTSBE440 00872 *****GO TO S910-MSTR-IO. DTSBE440 00873 DTSBE440 00874 DTSBE440 00875 S910-MSTR-IO. DTSBE440 00876 CALL 'DTSBU910' USING L910-LINK-AREA DTSBE440 00877 MSKL-REC. DTSBE440 00878 S910-EXIT. DTSBE440 00879 EXIT. DTSBE440 00880 SKIP3 DTSBE440 00881 S946-WRITE-R440. DTSBE440 00882 CALL 'DTSBU946' USING R440-REC. DTSBE440 00883 GO TO S946-EXIT. DTSBE440 00884 DTSBE440 00885 S946-EXIT. DTSBE440 00886 EXIT. DTSBE440 00887 SKIP3 DTSBE440 00888 S999-ABEND. DTSBE440 00889 DISPLAY '*** DTSBE715 ABENDING. ' DTSBE440 00890 ABEND-MSG. DTSBE440 00891 DTSBE440 00892 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBE440 00893 S999-EXIT. DTSBE440 00894 EXIT. DTSBE440