00001 IDENTIFICATION DIVISION. 01/29/01 00002 PROGRAM-ID. DTSBR440. DTSBR440 00003 AUTHOR. TRW/TDI OF LABOR/UI PROGRAMMING SECTION LV003 00004 DATE-WRITTEN. OCTOBER 2000. DTSBR440 00005 DATE-COMPILED. DTSBR440 00006 DTSBR440 00007 ***** DTSBR440 00008 * DTSBR440 00009 * FUNCTION: MONTHLY TAX ACTIVITY OVERVIEW FOR DETERMINATION, DTSBR440 00010 * AUDIT, DELINQUENT, PENALTY AND INTEREST. DTSBR440 00011 * DTSBR440 00012 * DTSBR440 00013 * MODIFICATION HISTORY: DTSBR440 00014 * DTSBR440 00015 * 10-20-00 CLONED FROM DTSBR520 THEN MODIFIED TO ALSO HANDLE DTSBR440 00016 * THE ABOVE FUNCTION TO GENERATE THE 440R1 REPORTS. DTSBR440 00017 * REFERENCE RFP #**** AUTHOR OF CHANGE - RLW DTSBR440 00018 * DTSBR440 00019 * MM-DD-YY MODIFY TO MEET DUTAS PROGRAMMING MODIFICATIONS. DTSBR440 00020 * REFERENCE RFP #**** AUTHOR OF CHANGE - RLW DTSBR440 00021 * DTSBR440 00022 * DTSBR440 00023 * DESCRIPTION: DTSBR440 00024 * DTSBR440 00025 * THIS MODULE REPORTS ANY EMPLOYERS WHO, FOR A MONTHLY DTSBR440 00026 * TAX ACTIVITY OVERVIEW FOR: DTSBR440 00027 * 1. LIABILITY DETERMINATION. DTSBR440 00028 * 2. AUDIT ACTIVITIES. DTSBR440 00029 * 3. COLLECTION OF PAST DUE, PENALTY, AND INTEREST. DTSBR440 00030 * DTSBR440 00031 * DTSBR440 00032 * RECORDS READ: DTSBR440 00033 * DTSBR440 00034 * NONE. DTSBR440 00035 * DTSBR440 00036 * DTSBR440 00037 * PRINTED OUTPUTS: DTSBR440 00038 * DTSBR440 00039 * 440R1 MONTHLY TAX ACTIVITY OVERVIEW DTSBR440 00040 * DTSBR440 00041 * DTSBR440 00042 * RECORDS WRITTEN: DTSBR440 00043 * DTSBR440 00044 * NONE. DTSBR440 00045 * DTSBR440 00046 * DTSBR440 00047 * MODULES CALLED: DTSBR440 00048 * DTSBR440 00049 * DTSBR440 00050 ***** DTSBR440 00051 EJECT DTSBR440 00052 ENVIRONMENT DIVISION. DTSBR440 00053 DTSBR440 00054 CONFIGURATION SECTION. DTSBR440 00055 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR440 00056 DTSBR440 00057 INPUT-OUTPUT SECTION. DTSBR440 00058 DTSBR440 00059 FILE-CONTROL. DTSBR440 00060 SELECT PRT-FILE ASSIGN TO RPT440R1. DTSBR440 00061 DTSBR440 00062 DATA DIVISION. DTSBR440 00063 DTSBR440 00064 FILE SECTION. DTSBR440 00065 DTSBR440 00066 FD PRT-FILE DTSBR440 00067 RECORDING MODE IS F. DTSBR440 00068 01 REPORT-LISTING PIC X(133). DTSBR440 00069 DTSBR440 00070 WORKING-STORAGE SECTION. DTSBR440 000705 77 PAN-VALET PICTURE X(24) VALUE '003DTSBR440 01/29/01'. DTSBR440 00071 DTSBR440 00072 01 WRK-AREA. DTSBR440 00073 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +440.DTSBR440 00074 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR440 00075 DTSBR440 00076 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR440 00077 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR440 00078 05 WS-PAGE-CNT PIC S9(03) COMP-3 VALUE +0. DTSBR440 00079 05 WS-DETAIL-CNT PIC S9(07) COMP-3 VALUE +0. DTSBR440 00080 DTSBR440 00081 01 L001-LINK-AREA. DTSBR440 00082 ++INCLUDE DTSIL001 DTSBR440 00083 EJECT DTSBR440 00084 DTSBR440 00085 01 PAGE-HEADING. DTSBR440 00086 05 HDR-LINE-1. DTSBR440 00087 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00088 10 FILLER PIC X(05) DTSBR440 00089 VALUE '440R1'. DTSBR440 00090 10 FILLER PIC X(35) VALUE SPACES. DTSBR440 00091 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR440 00092 10 FILLER PIC X(28) VALUE SPACES. DTSBR440 00093 10 FILLER PIC X(05) DTSBR440 00094 VALUE 'DATE:'. DTSBR440 00095 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00096 10 HDR-SYS-DATE PIC X(08). DTSBR440 00097 DTSBR440 00098 05 HDR-LINE-2. DTSBR440 00099 10 FILLER PIC X(41) VALUE SPACES. DTSBR440 00100 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR440 00101 10 FILLER PIC X(28) VALUE SPACES. DTSBR440 00102 10 FILLER PIC X(05) DTSBR440 00103 VALUE 'TIME:'. DTSBR440 00104 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00105 10 HDR-SYS-TIME PIC X(08). DTSBR440 00106 DTSBR440 00107 05 HDR-LINE-3. DTSBR440 00108 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00109 10 FILLER PIC X(35) DTSBR440 00110 VALUE 'ROUTE TO: ASSOCIATE UI DIRECTOR '. DTSBR440 00111 10 FILLER PIC X(83) VALUE SPACES. DTSBR440 00112 10 FILLER PIC X(05) DTSBR440 00113 VALUE 'PAGE:'. DTSBR440 00114 10 FILLER PIC X(03) VALUE SPACES. DTSBR440 00115 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR440 00116 DTSBR440 00117 05 HDR-LINE-4. DTSBR440 00118 10 FILLER PIC X(45) VALUE SPACES. DTSBR440 00119 10 FILLER PIC X(40) DTSBR440 00120 VALUE ' MONTHLY TAX ACTIVITY OVERVIEW '. DTSBR440 00121 DTSBR440 00122 05 HDR-LINE-5. DTSBR440 00123 10 FILLER PIC X(27) VALUE SPACES. DTSBR440 00124 10 FILLER PIC X(40) DTSBR440 00125 VALUE ' DETERMINATION, AUDITS, DELINQUENT CO'. DTSBR440 00126 10 FILLER PIC X(40) DTSBR440 00127 VALUE 'LLECTIONS, PENALTY, AND INTEREST '. DTSBR440 00128 DTSBR440 00129 05 HDR-LINE-6 PIC X(133) VALUE SPACES. DTSBR440 00130 DTSBR440 00131 05 HDR-LINE-7. DTSBR440 00132 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00133 10 FILLER PIC X(29) DTSBR440 00134 VALUE 'REPORTING PERIOD START DATE: '. DTSBR440 00135 10 HDR-START-DATE PIC X(10) VALUE SPACES. DTSBR440 00136 10 FILLER PIC X(35) VALUE SPACE. DTSBR440 00137 10 FILLER PIC X(12) DTSBR440 00138 VALUE 'FISCAL YEAR:'. DTSBR440 00139 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00140 10 HDR-CURR-FISCAL-YR PIC X(10) VALUE SPACES. DTSBR440 00141 10 FILLER PIC X(06) VALUE SPACE. DTSBR440 00142 10 FILLER PIC X(18) DTSBR440 00143 VALUE 'PRIOR FISCAL YEAR:'. DTSBR440 00144 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00145 10 HDR-PRIOR-FISCAL-YR PIC X(10) VALUE SPACES. DTSBR440 00146 DTSBR440 00147 05 HDR-LINE-8. DTSBR440 00148 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00149 10 FILLER PIC X(29) DTSBR440 00150 VALUE 'REPORTING PERIOD END DATE: '. DTSBR440 00151 10 HDR-END-DATE PIC X(10) VALUE SPACES. DTSBR440 00152 DTSBR440 00153 05 HDR-LINE-9 PIC X(133) VALUE SPACES. DTSBR440 00154 05 HDR-LINE-10. DTSBR440 00155 10 FILLER PIC X(59) VALUE SPACE. DTSBR440 00156 10 FILLER PIC X(07) DTSBR440 00157 VALUE 'CURRENT'. DTSBR440 00158 10 FILLER PIC X(11) VALUE SPACE. DTSBR440 00159 10 FILLER PIC X(19) DTSBR440 00160 VALUE 'CURRENT FISCAL YEAR'. DTSBR440 00161 10 FILLER PIC X(14) VALUE SPACE. DTSBR440 00162 10 FILLER PIC X(17) DTSBR440 00163 VALUE 'PRIOR FISCAL YEAR'. DTSBR440 00164 DTSBR440 00165 05 HDR-LINE-11. DTSBR440 00166 10 FILLER PIC X(54) VALUE SPACE. DTSBR440 00167 10 FILLER PIC X(16) DTSBR440 00168 VALUE 'REPORTING PERIOD'. DTSBR440 00169 10 FILLER PIC X(13) VALUE SPACE. DTSBR440 00170 10 FILLER PIC X(09) DTSBR440 00171 VALUE 'TO DATE'. DTSBR440 00172 10 FILLER PIC X(15) VALUE SPACE. DTSBR440 00173 DTSBR440 00174 05 HDR-LINE-12 PIC X(133) VALUE SPACES. DTSBR440 00175 DTSBR440 00176 01 DETAIL-LINE. DTSBR440 00177 DTSBR440 00178 05 DTL-LINE-1. DTSBR440 00179 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00180 10 FILLER PIC X(29) DTSBR440 00181 VALUE '1. LIABILITY DETERMINATIONS '. DTSBR440 00182 DTSBR440 00183 05 DTL-LINE-2 PIC X(133) VALUE SPACES. DTSBR440 00184 DTSBR440 00185 05 DTL-LINE-3. DTSBR440 00186 10 FILLER PIC X(09) VALUE SPACES. DTSBR440 00187 10 FILLER PIC X(40) DTSBR440 00188 VALUE 'NEW LIABILITY DETERMINATIONS ENTERED: '. DTSBR440 00189 10 FILLER PIC X(09) DTSBR440 00190 VALUE ' '. DTSBR440 00191 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00192 10 DTL-NEW-DET-CNT-MTH PIC ZZZ,ZZ9. DTSBR440 00193 10 FILLER PIC X(19) VALUE SPACES. DTSBR440 00194 10 DTL-NEW-DET-CNT-YR PIC ZZZ,ZZ9. DTSBR440 00195 10 FILLER PIC X(24) VALUE SPACES. DTSBR440 00196 10 DTL-NEW-DET-CNT-PYR PIC ZZZ,ZZ9. DTSBR440 00197 DTSBR440 00198 05 DTL-LINE-4. DTSBR440 00199 10 FILLER PIC X(09) VALUE SPACES. DTSBR440 00200 10 FILLER PIC X(40) DTSBR440 00201 VALUE 'NEW DETERMINATIONS ENTERED WITHIN 90 DAY'. DTSBR440 00202 10 FILLER PIC X(09) DTSBR440 00203 VALUE 'S: '. DTSBR440 00204 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00205 10 DTL-NEW-DET-90-CNT-MTH PIC ZZZ,ZZ9. DTSBR440 00206 10 FILLER PIC X(19) VALUE SPACES. DTSBR440 00207 10 DTL-NEW-DET-90-CNT-YR PIC ZZZ,ZZ9. DTSBR440 00208 10 FILLER PIC X(24) VALUE SPACES. DTSBR440 00209 10 DTL-NEW-DET-90-CNT-PYR PIC ZZZ,ZZ9. DTSBR440 00210 DTSBR440 00211 05 DTL-LINE-5. DTSBR440 00212 10 FILLER PIC X(09) VALUE SPACES. DTSBR440 00213 10 FILLER PIC X(40) DTSBR440 00214 VALUE 'NEW DETERMINATIONS ENTERED WITHIN 180 DA'. DTSBR440 00215 10 FILLER PIC X(09) DTSBR440 00216 VALUE 'YS: '. DTSBR440 00217 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00218 10 DTL-NEW-DET-180-CNT-MTH PIC ZZZ,ZZ9. DTSBR440 00219 10 FILLER PIC X(19) VALUE SPACES. DTSBR440 00220 10 DTL-NEW-DET-180-CNT-YR PIC ZZZ,ZZ9. DTSBR440 00221 10 FILLER PIC X(24) VALUE SPACES. DTSBR440 00222 10 DTL-NEW-DET-180-CNT-PYR PIC ZZZ,ZZ9. DTSBR440 00223 DTSBR440 00224 05 DTL-LINE-6. DTSBR440 00225 10 FILLER PIC X(09) VALUE SPACES. DTSBR440 00226 10 FILLER PIC X(40) DTSBR440 00227 VALUE 'PERCENTAGE OF DETERMINATIONS ENTERED TIM'. DTSBR440 00228 10 FILLER PIC X(09) DTSBR440 00229 VALUE 'ELY: '. DTSBR440 00230 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00231 10 DTL-NEW-DET-TMLY-PCT-MTH PIC ZZZ,ZZ9. DTSBR440 00232 10 FILLER PIC X(19) VALUE SPACES. DTSBR440 00233 10 DTL-NEW-DET-TMLY-PCT-YR PIC ZZZ,ZZ9. DTSBR440 00234 10 FILLER PIC X(24) VALUE SPACES. DTSBR440 00235 10 DTL-NEW-DET-TMLY-PCT-PYR PIC ZZZ,ZZ9. DTSBR440 00236 DTSBR440 00237 05 DTL-LINE-7. DTSBR440 00238 10 FILLER PIC X(09) VALUE SPACES. DTSBR440 00239 10 FILLER PIC X(40) DTSBR440 00240 VALUE 'INACTIVATIONS ENTERED: '. DTSBR440 00241 10 FILLER PIC X(09) DTSBR440 00242 VALUE ' '. DTSBR440 00243 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00244 10 DTL-INACT-CNT-MTH PIC ZZZ,ZZ9. DTSBR440 00245 10 FILLER PIC X(19) VALUE SPACES. DTSBR440 00246 10 DTL-INACT-CNT-YR PIC ZZZ,ZZ9. DTSBR440 00247 10 FILLER PIC X(24) VALUE SPACES. DTSBR440 00248 10 DTL-INACT-CNT-PYR PIC ZZZ,ZZ9. DTSBR440 00249 DTSBR440 00250 05 DTL-LINE-8. DTSBR440 00251 10 FILLER PIC X(09) VALUE SPACES. DTSBR440 00252 10 FILLER PIC X(40) DTSBR440 00253 VALUE 'TOTAL LIABLE EMPLOYERS: '. DTSBR440 00254 10 FILLER PIC X(09) DTSBR440 00255 VALUE ' '. DTSBR440 00256 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00257 10 DTL-LIABLE-EMP-CNT PIC ZZZ,ZZ9. DTSBR440 00258 10 FILLER PIC X(19) VALUE SPACES. DTSBR440 00259 DTSBR440 00260 * 05 DTL-LINE-9 PIC X(133) VALUE SPACES. DTSBR440 00261 * 05 DTL-LINE-10 PIC X(133) VALUE SPACES. DTSBR440 00262 * DTSBR440 00263 * 05 DTL-LINE-11. DTSBR440 00264 * 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00265 * 10 FILLER PIC X(29) DTSBR440 00266 * VALUE '2. AUDITS '. DTSBR440 00267 * DTSBR440 00268 * 05 DTL-LINE-12 PIC X(133) VALUE SPACES. DTSBR440 00269 * DTSBR440 00270 * 05 DTL-LINE-13. DTSBR440 00271 * 10 FILLER PIC X(09) VALUE SPACES. DTSBR440 00272 * 10 FILLER PIC X(40) DTSBR440 00273 * VALUE 'AUDITS COMPLETED: '. DTSBR440 00274 * 10 FILLER PIC X(08) DTSBR440 00275 * VALUE ' '. DTSBR440 00276 * 10 FILLER PIC X(02) VALUE SPACE. DTSBR440 00277 * 10 DTL-AUDIT-CNT-MTH PIC ZZZ,ZZ9. DTSBR440 00278 * 10 FILLER PIC X(19) VALUE SPACES. DTSBR440 00279 * 10 DTL-AUDIT-CNT-YR PIC ZZZ,ZZ9. DTSBR440 00280 * 10 FILLER PIC X(24) VALUE SPACES. DTSBR440 00281 * 10 DTL-AUDIT-CNT-PYR PIC ZZZ,ZZ9. DTSBR440 00282 DTSBR440 00283 05 DTL-LINE-14 PIC X(133) VALUE SPACES. DTSBR440 00284 05 DTL-LINE-15 PIC X(133) VALUE SPACES. DTSBR440 00285 DTSBR440 00286 05 DTL-LINE-16. DTSBR440 00287 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00288 10 FILLER PIC X(29) DTSBR440 00289 VALUE '2. COLLECTIONS '. DTSBR440 00290 DTSBR440 00291 05 DTL-LINE-17 PIC X(133) VALUE SPACES. DTSBR440 00292 DTSBR440 00293 05 DTL-LINE-18. DTSBR440 00294 10 FILLER PIC X(09) VALUE SPACES. DTSBR440 00295 10 FILLER PIC X(40) DTSBR440 00296 VALUE 'PAST DUE CONTRIBUTIONS COLLECTED: '. DTSBR440 00297 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00298 10 DTL-PAST-DUE-COLL-MTH PIC $,$$$,$$$,$$9.99. DTSBR440 00299 10 FILLER PIC X(10) VALUE SPACES. DTSBR440 00300 10 DTL-PAST-DUE-COLL-YR PIC $,$$$,$$$,$$9.99. DTSBR440 00301 10 FILLER PIC X(15) VALUE SPACES. DTSBR440 00302 10 DTL-PAST-DUE-COLL-PYR PIC $,$$$,$$$,$$9.99. DTSBR440 00303 DTSBR440 00304 05 DTL-LINE-19. DTSBR440 00305 10 FILLER PIC X(09) VALUE SPACES. DTSBR440 00306 10 FILLER PIC X(40) DTSBR440 00307 VALUE 'PENALTY COLLECTED: '. DTSBR440 00308 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00309 10 DTL-PENALTY-COLL-MTH PIC $,$$$,$$$,$$9.99. DTSBR440 00310 10 FILLER PIC X(10) VALUE SPACES. DTSBR440 00311 10 DTL-PENALTY-COLL-YR PIC $,$$$,$$$,$$9.99. DTSBR440 00312 10 FILLER PIC X(15) VALUE SPACES. DTSBR440 00313 10 DTL-PENALTY-COLL-PYR PIC $,$$$,$$$,$$9.99. DTSBR440 00314 DTSBR440 00315 05 DTL-LINE-20. DTSBR440 00316 10 FILLER PIC X(09) VALUE SPACES. DTSBR440 00317 10 FILLER PIC X(40) DTSBR440 00318 VALUE 'INTEREST COLLECTED: '. DTSBR440 00319 10 FILLER PIC X(01) VALUE SPACE. DTSBR440 00320 10 DTL-INTEREST-COLL-MTH PIC $,$$$,$$$,$$9.99. DTSBR440 00321 10 FILLER PIC X(10) VALUE SPACES. DTSBR440 00322 10 DTL-INTEREST-COLL-YR PIC $,$$$,$$$,$$9.99. DTSBR440 00323 10 FILLER PIC X(15) VALUE SPACES. DTSBR440 00324 10 DTL-INTEREST-COLL-PYR PIC $,$$$,$$$,$$9.99. DTSBR440 00325 DTSBR440 00326 01 CONTROL-FOOTING-FINAL. DTSBR440 00327 05 CTF-LINE-4. DTSBR440 00328 10 FILLER PIC X(26) VALUE SPACES. DTSBR440 00329 10 FILLER PIC X(17) DTSBR440 00330 VALUE '*** END OF REPORT'. DTSBR440 00331 EJECT DTSBR440 00332 LINKAGE SECTION. DTSBR440 00333 DTSBR440 00334 01 LRCM-LINK-AREA. DTSBR440 00335 ++INCLUDE DTSILRCM DTSBR440 00336 EJECT DTSBR440 00337 01 R440-REC. DTSBR440 00338 ++INCLUDE DTSIR440 DTSBR440 00339 EJECT DTSBR440 00340 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR440 00341 R440-REC. DTSBR440 00342 IF FIRST-TIME-IND = 'Y' DTSBR440 00343 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR440 00344 MOVE 'N' TO FIRST-TIME-IND. DTSBR440 00345 DTSBR440 00346 IF LRCM-EOR-88 DTSBR440 00347 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR440 00348 ELSE DTSBR440 00349 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR440 00350 DTSBR440 00351 GOBACK. DTSBR440 00352 DTSBR440 00353 I1000-INITIATE. DTSBR440 00354 DTSBR440 00355 OPEN OUTPUT PRT-FILE. DTSBR440 00356 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR440 00357 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR440 00358 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR440 00359 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR440 00360 MOVE SPACES TO REPORT-LISTING. DTSBR440 00361 DTSBR440 00362 I1000-EXIT. DTSBR440 00363 EXIT. DTSBR440 00364 DTSBR440 00365 P1000-PROCESS. DTSBR440 00366 DTSBR440 00367 MOVE R440-PERIOD-START-DATE TO L001-FED-8-DATE-9. DTSBR440 00368 SET L001-FROM-FED-8 TO TRUE. DTSBR440 00369 PERFORM S001-DATE THRU S001-EXIT. DTSBR440 00370 MOVE L001-SLASH-8-DATE TO HDR-START-DATE. DTSBR440 00371 DTSBR440 00372 MOVE R440-PERIOD-END-DATE TO L001-FED-8-DATE-9. DTSBR440 00373 SET L001-FROM-FED-8 TO TRUE. DTSBR440 00374 PERFORM S001-DATE THRU S001-EXIT. DTSBR440 00375 MOVE L001-SLASH-8-DATE TO HDR-END-DATE. DTSBR440 00376 DTSBR440 00377 MOVE R440-CURR-FISCAL-YEAR TO L001-FED-8-DATE-9. DTSBR440 00378 SET L001-FROM-FED-8 TO TRUE. DTSBR440 00379 PERFORM S001-DATE THRU S001-EXIT. DTSBR440 00380 MOVE L001-SLASH-8-DATE TO HDR-CURR-FISCAL-YR. DTSBR440 00381 DTSBR440 00382 MOVE R440-PRIOR-FISCAL-YEAR TO L001-FED-8-DATE-9. DTSBR440 00383 SET L001-FROM-FED-8 TO TRUE. DTSBR440 00384 PERFORM S001-DATE THRU S001-EXIT. DTSBR440 00385 MOVE L001-SLASH-8-DATE TO HDR-PRIOR-FISCAL-YR. DTSBR440 00386 DTSBR440 00387 MOVE R440-NEW-DTRM-CNT-MTH TO DTL-NEW-DET-CNT-MTH. DTSBR440 00388 MOVE R440-NEW-DTRM-CNT-YR TO DTL-NEW-DET-CNT-YR. DTSBR440 00389 MOVE R440-NEW-DTRM-CNT-PYR TO DTL-NEW-DET-CNT-PYR. DTSBR440 00390 DTSBR440 00391 MOVE R440-NEW-DTRM-T90-CNT-MTH TO DTL-NEW-DET-90-CNT-MTH. DTSBR440 00392 MOVE R440-NEW-DTRM-T90-CNT-YR TO DTL-NEW-DET-90-CNT-YR. DTSBR440 00393 MOVE R440-NEW-DTRM-T90-CNT-PYR TO DTL-NEW-DET-90-CNT-PYR. DTSBR440 00394 DTSBR440 00395 MOVE R440-NEW-DTRM-T180-CNT-MTH TO DTL-NEW-DET-180-CNT-MTH. DTSBR440 00396 MOVE R440-NEW-DTRM-T180-CNT-YR TO DTL-NEW-DET-180-CNT-YR. DTSBR440 00397 MOVE R440-NEW-DTRM-T180-CNT-PYR TO DTL-NEW-DET-180-CNT-PYR. DTSBR440 00398 DTSBR440 00399 MOVE R440-NEW-DTRM-TMLY-PCT-MTH TO DTL-NEW-DET-TMLY-PCT-MTH.DTSBR440 00400 MOVE R440-NEW-DTRM-TMLY-PCT-YR TO DTL-NEW-DET-TMLY-PCT-YR.DTSBR440 00401 MOVE R440-NEW-DTRM-TMLY-PCT-PYR TO DTL-NEW-DET-TMLY-PCT-PYR.DTSBR440 00402 DTSBR440 00403 MOVE R440-INACTIVATION-CNT-MTH TO DTL-INACT-CNT-MTH. DTSBR440 00404 MOVE R440-INACTIVATION-CNT-YR TO DTL-INACT-CNT-YR. DTSBR440 00405 MOVE R440-INACTIVATION-CNT-PYR TO DTL-INACT-CNT-PYR. DTSBR440 00406 DTSBR440 00407 MOVE R440-LIABLE-EMP-CNT TO DTL-LIABLE-EMP-CNT. DTSBR440 00408 DTSBR440 00409 * MOVE R440-AUDIT-CNT-MTH TO DTL-AUDIT-CNT-MTH. DTSBR440 00410 * MOVE R440-AUDIT-CNT-YR TO DTL-AUDIT-CNT-YR. DTSBR440 00411 * MOVE R440-AUDIT-CNT-PYR TO DTL-AUDIT-CNT-PYR. DTSBR440 00412 DTSBR440 00413 MOVE R440-PAST-DUE-COLLECT-MTH TO DTL-PAST-DUE-COLL-MTH. DTSBR440 00414 MOVE R440-PAST-DUE-COLLECT-YR TO DTL-PAST-DUE-COLL-YR. DTSBR440 00415 MOVE R440-PAST-DUE-COLLECT-PYR TO DTL-PAST-DUE-COLL-PYR. DTSBR440 00416 DTSBR440 00417 MOVE R440-PENALTY-COLLECT-MTH TO DTL-PENALTY-COLL-MTH. DTSBR440 00418 MOVE R440-PENALTY-COLLECT-YR TO DTL-PENALTY-COLL-YR. DTSBR440 00419 MOVE R440-PENALTY-COLLECT-PYR TO DTL-PENALTY-COLL-PYR. DTSBR440 00420 DTSBR440 00421 MOVE R440-INTEREST-COLLECT-MTH TO DTL-INTEREST-COLL-MTH. DTSBR440 00422 MOVE R440-INTEREST-COLLECT-YR TO DTL-INTEREST-COLL-YR. DTSBR440 00423 MOVE R440-INTEREST-COLLECT-PYR TO DTL-INTEREST-COLL-PYR. DTSBR440 00424 DTSBR440 00425 PERFORM P2000-PRINT-HEADER THRU P2000-EXIT. DTSBR440 00426 WRITE REPORT-LISTING FROM DTL-LINE-1 AFTER 1. DTSBR440 00427 WRITE REPORT-LISTING FROM DTL-LINE-2 AFTER 1. DTSBR440 00428 WRITE REPORT-LISTING FROM DTL-LINE-3 AFTER 1. DTSBR440 00429 WRITE REPORT-LISTING FROM DTL-LINE-4 AFTER 1. DTSBR440 00430 WRITE REPORT-LISTING FROM DTL-LINE-5 AFTER 1. DTSBR440 00431 WRITE REPORT-LISTING FROM DTL-LINE-6 AFTER 1. DTSBR440 00432 WRITE REPORT-LISTING FROM DTL-LINE-7 AFTER 1. DTSBR440 00433 WRITE REPORT-LISTING FROM DTL-LINE-8 AFTER 1. DTSBR440 00434 * WRITE REPORT-LISTING FROM DTL-LINE-9 AFTER 1. DTSBR440 00435 * WRITE REPORT-LISTING FROM DTL-LINE-10 AFTER 1. DTSBR440 00436 * WRITE REPORT-LISTING FROM DTL-LINE-11 AFTER 1. DTSBR440 00437 * WRITE REPORT-LISTING FROM DTL-LINE-12 AFTER 1. DTSBR440 00438 * WRITE REPORT-LISTING FROM DTL-LINE-13 AFTER 1. DTSBR440 00439 WRITE REPORT-LISTING FROM DTL-LINE-14 AFTER 1. DTSBR440 00440 WRITE REPORT-LISTING FROM DTL-LINE-15 AFTER 1. DTSBR440 00441 WRITE REPORT-LISTING FROM DTL-LINE-16 AFTER 1. DTSBR440 00442 WRITE REPORT-LISTING FROM DTL-LINE-17 AFTER 1. DTSBR440 00443 WRITE REPORT-LISTING FROM DTL-LINE-18 AFTER 1. DTSBR440 00444 WRITE REPORT-LISTING FROM DTL-LINE-19 AFTER 1. DTSBR440 00445 WRITE REPORT-LISTING FROM DTL-LINE-20 AFTER 1. DTSBR440 00446 MOVE +60 TO WS-LINE-CNT2. DTSBR440 00447 ADD +1 TO WS-DETAIL-CNT. DTSBR440 00448 DTSBR440 00449 P1000-EXIT. DTSBR440 00450 EXIT. DTSBR440 00451 DTSBR440 00452 P2000-PRINT-HEADER. DTSBR440 00453 DTSBR440 00454 IF WS-LINE-CNT GREATER 58 OR DTSBR440 00455 WS-LINE-CNT2 GREATER 58 DTSBR440 00456 MOVE +0 TO WS-LINE-CNT DTSBR440 00457 MOVE +0 TO WS-LINE-CNT2 DTSBR440 00458 ADD +1 TO WS-PAGE-CNT DTSBR440 00459 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR440 00460 WRITE REPORT-LISTING FROM HDR-LINE-1 DTSBR440 00461 AFTER TOP-OF-PAGE DTSBR440 00462 WRITE REPORT-LISTING FROM HDR-LINE-2 AFTER 1 DTSBR440 00463 WRITE REPORT-LISTING FROM HDR-LINE-3 AFTER 1 DTSBR440 00464 WRITE REPORT-LISTING FROM HDR-LINE-4 AFTER 1 DTSBR440 00465 WRITE REPORT-LISTING FROM HDR-LINE-5 AFTER 1 DTSBR440 00466 WRITE REPORT-LISTING FROM HDR-LINE-6 AFTER 1 DTSBR440 00467 WRITE REPORT-LISTING FROM HDR-LINE-7 AFTER 1 DTSBR440 00468 WRITE REPORT-LISTING FROM HDR-LINE-8 AFTER 1 DTSBR440 00469 WRITE REPORT-LISTING FROM HDR-LINE-9 AFTER 1 DTSBR440 00470 WRITE REPORT-LISTING FROM HDR-LINE-10 AFTER 1 DTSBR440 00471 WRITE REPORT-LISTING FROM HDR-LINE-11 AFTER 1 DTSBR440 00472 WRITE REPORT-LISTING FROM HDR-LINE-12 AFTER 1 DTSBR440 00473 ADD +12 TO WS-LINE-CNT2. DTSBR440 00474 DTSBR440 00475 P2000-EXIT. DTSBR440 00476 EXIT. DTSBR440 00477 DTSBR440 00478 T1000-TERMINATE. DTSBR440 00479 DTSBR440 00480 DTSBR440 00481 * MOVE WS-DETAIL-CNT TO CTF-DETAIL-CNT. DTSBR440 00482 WRITE REPORT-LISTING FROM CTF-LINE-4 AFTER 4. DTSBR440 00483 DTSBR440 00484 CLOSE PRT-FILE. DTSBR440 00485 DTSBR440 00486 T1000-EXIT. DTSBR440 00487 EXIT. DTSBR440 00488 EJECT DTSBR440 00489 DTSBR440 00490 S001-DATE. DTSBR440 00491 DTSBR440 00492 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR440 00493 DTSBR440 00494 S001-EXIT. DTSBR440 00495 EXIT. DTSBR440 00496 DTSBR440 00497 *S999-ABEND. DTSBR440 00498 * SKIP1 DTSBR440 00499 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR440 00500 * SKIP2 DTSBR440 00501 *S999-EXIT. DTSBR440 00502 * EXIT. DTSBR440 00503 DTSBR440