DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
895
Batch/DTSBE440.cob
Normal file
895
Batch/DTSBE440.cob
Normal file
@ -0,0 +1,895 @@
|
||||
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
|
||||
Reference in New Issue
Block a user