896 lines
71 KiB
COBOL
896 lines
71 KiB
COBOL
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
|