00001 IDENTIFICATION DIVISION. 07/18/11 00002 PROGRAM-ID. DTSBR517. DTSBR517 00003 AUTHOR. MT DEPT OF LABOR/UI PROGRAMMING SECTION LV027 00004 DATE-WRITTEN. DECEMBER 1994. DTSBR517 00005 DATE-COMPILED. DTSBR517 00006 DTSBR517 00007 ***** DTSBR517 00008 * DTSBR517 00009 * FUNCTION: EXPERIENCE RATING REPORT (ETA 204) DTSBR517 00010 * DTSBR517 00011 * DTSBR517 00012 * MODIFICATION HISTORY: DTSBR517 00013 * DTSBR517 00014 * 12-19-94 INITIAL DEVELOPMENT DTSBR517 00015 * REFERENCE RFP #RAP AUTHOR OF CHANGE - SFW DTSBR517 00016 * DTSBR517 00017 * 12-24-97 MODIFIED TO REFLECT THE 07/30/97 ETA 204 FEDERAL DTSBR517 00018 * SPECIFICATION (ET HANDBOOK 401, 2ND EDITION, DTSBR517 00019 * CHANGE 13, DATED 07/30/97). DTSBR517 00020 * REFERENCE RFP: TCL 225 AUTHOR OF CHANGE - EHH DTSBR517 00021 * DTSBR517 00022 * 06-29-11 MODIFIED TO REFLECT THE ETA 204 FEDERAL DTSBR517 00023 * SPECIFICATION (ET HANDBOOK 401, 2ND EDITION, DTSBR517 00024 * CHANGE 13, DATED 04/2011). DTSBR517 00025 * REFERENCE RFP: AUTHOR OF CHANGE - ZL1 DTSBR517 00026 * DTSBR517 00027 * MM-DD-YY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR517 00028 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBR517 00029 * REFERENCE RFP #**** AUTHOR OF CHANGE - XXX DTSBR517 00030 * DTSBR517 00031 * DTSBR517 00032 * DESCRIPTION: DTSBR517 00033 * DTSBR517 00034 * THIS MODULE PRODUCES THE FEDERALLY MANDATED ETA 204 DTSBR517 00035 * REPORT. DTSBR517 00036 * DTSBR517 00037 * DTSBR517 00038 * RECORDS READ: DTSBR517 00039 * DTSBR517 00040 * NONE. DTSBR517 00041 * DTSBR517 00042 * DTSBR517 00043 * PRINTED OUTPUTS: DTSBR517 00044 * DTSBR517 00045 * 517R1 ETA 204 REPORT DTSBR517 00046 * DTSBR517 00047 * DTSBR517 00048 * RECORDS WRITTEN: DTSBR517 00049 * DTSBR517 00050 * NONE. DTSBR517 00051 * DTSBR517 00052 * DTSBR517 00053 * CALLED BY: DTSBR517 00054 * DTSBR517 00055 * DTSBD800, WHICH PASSES THE DTSIR517 RECORDS DTSBR517 00056 * CREATED BY DTSBD790 DTSBR517 00057 * DTSBR517 00058 * MODULES CALLED: DTSBR517 00059 * DTSBR517 00060 * DTSBU001 DATE EDIT/CONVERSION MODULE DTSBR517 00061 * DTSBR517 00062 * DTSBR517 00063 ***** DTSBR517 00064 EJECT DTSBR517 00065 ENVIRONMENT DIVISION. DTSBR517 00066 DTSBR517 00067 CONFIGURATION SECTION. DTSBR517 00068 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR517 00069 DTSBR517 00070 INPUT-OUTPUT SECTION. DTSBR517 00071 DTSBR517 00072 FILE-CONTROL. DTSBR517 00073 SELECT PRT-FILE ASSIGN TO RPT517R1. DTSBR517 00074 SELECT SECTION-C-TEXT-FILE ASSIGN TO RPT517R2. DTSBR517 00075 DTSBR517 00076 DATA DIVISION. DTSBR517 00077 DTSBR517 00078 FILE SECTION. DTSBR517 00079 DTSBR517 00080 FD PRT-FILE DTSBR517 00081 RECORDING MODE IS F. DTSBR517 00082 01 REPORT-LISTING1. DTSBR517 00083 05 FILLER PIC X. DTSBR517 00084 05 TEXT-REC PIC X(132). DTSBR517 00085 DTSBR517 00086 FD SECTION-C-TEXT-FILE DTSBR517 00087 LABEL RECORDS ARE STANDARD DTSBR517 00088 RECORDING MODE IS F DTSBR517 00089 BLOCK CONTAINS 0 RECORDS. DTSBR517 00090 DTSBR517 00091 01 TEXT-LINE PIC X(80). DTSBR517 00092 DTSBR517 00093 EJECT DTSBR517 00094 WORKING-STORAGE SECTION. DTSBR517 000945 77 PAN-VALET PICTURE X(24) VALUE '027DTSBR517 07/18/11'. DTSBR517 00095 DTSBR517 00096 01 WRK-AREA. DTSBR517 00097 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +517.DTSBR517 00098 DTSBR517 00099 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR517 00100 DTSBR517 00101 05 WRK-TEXT-OUT-REC-CNT PIC S9(07) COMP-3. DTSBR517 00102 DTSBR517 00103 05 WS-LINE1-COUNT PIC S9(07) COMP-3. DTSBR517 00104 05 WS-LINE1-TOT-WAGES PIC S9(13) COMP-3. DTSBR517 00105 05 WS-LINE1-TAX-WAGES PIC S9(13) COMP-3. DTSBR517 00106 05 WS-LINE3-COUNT PIC S9(07) COMP-3. DTSBR517 00107 05 WS-LINE3-TOT-WAGES PIC S9(13) COMP-3. DTSBR517 00108 05 WS-LINE3-TAX-WAGES PIC S9(13) COMP-3. DTSBR517 00109 05 WS-LINE4-COUNT PIC S9(07) COMP-3. DTSBR517 00110 05 WS-LINE4-TOT-WAGES PIC S9(13) COMP-3. DTSBR517 00111 05 WS-LINE4-TAX-WAGES PIC S9(13) COMP-3. DTSBR517 00112 05 WS-LINE5-CHARGES PIC S9(11) COMP-3. DTSBR517 00113 05 WS-LINE6-CHARGES PIC S9(11) COMP-3. DTSBR517 00114 05 WS-LINE6A2-CHARGES PIC S9(11) COMP-3. DTSBR517 00115 05 WS-LINE7-CHARGES PIC S9(11) COMP-3. DTSBR517 00116 DTSBR517 00117 05 WS-DISPLAY-MIN-RATIO PIC S9(05)V9(04) COMP-3. DTSBR517 00118 DTSBR517 00119 05 WS-DISPLAY-MAX-RATIO PIC S9(05)V9(04) COMP-3. DTSBR517 00120 DTSBR517 00121 * 05 WS-DISPLAY-AVG-TAX-RATE PIC S9(01)V9(04) COMP-3. DTSBR517 00122 05 WS-DISPLAY-AVG-TAX-RATE PIC S9(01)V9(04). DTSBR517 00123 05 WS-DISPLAY-AVG-TAX-RATE-N REDEFINES DTSBR517 00124 WS-DISPLAY-AVG-TAX-RATE. DTSBR517 00125 10 WS-DISPLAY-AVG-TAX-RATE3 PIC 9(01)V99. DTSBR517 00126 10 WS-DISPLAY-AVG-TAX-RATE2 PIC V99. DTSBR517 00127 DTSBR517 00128 05 WS-DISPLAY-EMPLR-CNT PIC S9(07) COMP-3. DTSBR517 00129 DTSBR517 00130 05 WS-DISPLAY-TOT-WAGE-THOU PIC S9(11) COMP-3. DTSBR517 00131 DTSBR517 00132 05 WS-DISPLAY-TAX-WAGE-THOU PIC S9(11) COMP-3. DTSBR517 00133 DTSBR517 00134 05 WS-DISPLAY-BEN-CHARGED-THOU PIC S9(07) COMP-3. DTSBR517 00135 DTSBR517 00136 05 WS-DISPLAY-EST-UI-PAID-THOU PIC S9(07) COMP-3. DTSBR517 00137 DTSBR517 00138 05 WS-TOTALS. DTSBR517 00139 10 WS-TOTALS-EMPLR-CNT PIC S9(07) COMP-3. DTSBR517 00140 DTSBR517 00141 10 WS-TOTALS-TOT-WAGE-THOU PIC S9(11) COMP-3. DTSBR517 00142 DTSBR517 00143 10 WS-TOTALS-TAX-WAGE-THOU PIC S9(11) COMP-3. DTSBR517 00144 DTSBR517 00145 10 WS-TOTALS-BEN-CHARGED-THOU DTSBR517 00146 PIC S9(09) COMP-3. DTSBR517 00147 DTSBR517 00148 10 WS-TOTALS-EST-UI-PAID-THOU DTSBR517 00149 PIC S9(09) COMP-3. DTSBR517 00150 EJECT DTSBR517 00151 01 L001-LINK-AREA. DTSBR517 00152 ++INCLUDE DTSIL001 DTSBR517 00153 EJECT DTSBR517 00154 DTSBR517 00155 01 ETA204-COMMON-HEADING. DTSBR517 00156 05 HDR1-LINE-1. DTSBR517 00157 10 FILLER PIC X(24) VALUE SPACES. DTSBR517 00158 10 FILLER PIC X(24) DTSBR517 00159 VALUE 'EXPERIENCE RATING REPORT'. DTSBR517 00160 05 HDR1-LINE-2. DTSBR517 00161 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00162 10 FILLER PIC X(05) DTSBR517 00163 VALUE '517R1'. DTSBR517 00164 10 FILLER PIC X(47) VALUE SPACES. DTSBR517 00165 10 FILLER PIC X(27) DTSBR517 00166 VALUE 'STATE: DISTRICT OF COLUMBIA'. DTSBR517 00167 05 HDR1-LINE-3. DTSBR517 00168 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00169 10 FILLER PIC X(10) DTSBR517 00170 VALUE 'RUN DATE: '. DTSBR517 00171 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00172 10 WS-RUN-DATE PIC X(10). DTSBR517 00173 10 FILLER PIC X(20) VALUE SPACES. DTSBR517 00174 10 FILLER PIC X(18) DTSBR517 00175 VALUE 'COMPUTATION DATE: '. DTSBR517 00176 10 WS-COMP-DATE PIC X(10). DTSBR517 00177 05 HDR1-LINE-4. DTSBR517 00178 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00179 10 FILLER PIC X(18) DTSBR517 00180 VALUE 'RATE YEAR ENDING: '. DTSBR517 00181 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00182 10 WS-RATE-YR-END-DATE PIC X(10). DTSBR517 00183 10 FILLER PIC X(15) VALUE SPACES. DTSBR517 00184 10 FILLER PIC X(28) DTSBR517 00185 VALUE 'RATING SYSTEM: RESERVE RATIO'. DTSBR517 00186 05 HDR1-LINE-5 PIC X(133) VALUE SPACES. DTSBR517 00187 DTSBR517 00188 01 ETA204-SECTION-A. DTSBR517 00189 05 DTL1-LINE-6 PIC X(133) VALUE SPACES. DTSBR517 00190 05 DTL1-LINE-7. DTSBR517 00191 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00192 10 FILLER PIC X(32) DTSBR517 00193 VALUE 'SECTION A. ALL SUBJECT ACCOUNTS:'. DTSBR517 00194 05 DTL1-LINE-8. DTSBR517 00195 10 FILLER PIC X(11) VALUE SPACES. DTSBR517 00196 10 FILLER PIC X(40) DTSBR517 00197 VALUE 'NUMBER AND AMOUNTS OF TOTAL AND TAXABLE '. DTSBR517 00198 10 FILLER PIC X(07) DTSBR517 00199 VALUE 'PAYROLL'. DTSBR517 00200 05 DTL1-LINE-9 PIC X(133) VALUE SPACES. DTSBR517 00201 05 DTL1-LINE-10. DTSBR517 00202 10 FILLER PIC X(31) VALUE SPACES. DTSBR517 00203 10 FILLER PIC X(29) DTSBR517 00204 VALUE 'NUMBER AS OF AMOUNT OF TOTAL'. DTSBR517 00205 10 FILLER PIC X(02) VALUE SPACES. DTSBR517 00206 10 FILLER PIC X(17) DTSBR517 00207 VALUE 'AMOUNT OF TAXABLE'. DTSBR517 00208 05 DTL1-LINE-11. DTSBR517 00209 10 FILLER PIC X(45) VALUE SPACES. DTSBR517 00210 10 FILLER PIC X(31) DTSBR517 00211 VALUE 'PAYROLL FOR 12 PAYROLL FOR 12'. DTSBR517 00212 05 DTL1-LINE-12. DTSBR517 00213 10 FILLER PIC X(45) VALUE SPACES. DTSBR517 00214 10 FILLER PIC X(31) DTSBR517 00215 VALUE ' MONTHS ENDING MONTHS ENDING'. DTSBR517 00216 05 DTL1-LINE-13. DTSBR517 00217 10 FILLER PIC X(32) VALUE SPACES. DTSBR517 00218 10 WS-NBR-AS-OF-DATE PIC X(10). DTSBR517 00219 10 FILLER PIC X(06) VALUE SPACES. DTSBR517 00220 10 WS-PAYROLL-YR-END-DATE2 PIC X(10). DTSBR517 00221 10 FILLER PIC X(07) VALUE SPACES. DTSBR517 00222 10 WS-PAYROLL-YR-END-DATE3 PIC X(10). DTSBR517 00223 05 DTL1-LINE-14. DTSBR517 00224 10 FILLER PIC X(35) VALUE SPACES. DTSBR517 00225 10 FILLER PIC X(03) DTSBR517 00226 VALUE '(1)'. DTSBR517 00227 10 FILLER PIC X(13) VALUE SPACES. DTSBR517 00228 10 FILLER PIC X(03) DTSBR517 00229 VALUE '(2)'. DTSBR517 00230 10 FILLER PIC X(14) VALUE SPACES. DTSBR517 00231 10 FILLER PIC X(03) DTSBR517 00232 VALUE '(3)'. DTSBR517 00233 05 DTL1-LINE-15 PIC X(133) VALUE SPACES. DTSBR517 00234 05 DTL1-LINE-16. DTSBR517 00235 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00236 10 FILLER PIC X(22) DTSBR517 00237 VALUE 'TOTAL SUBJECT ACCOUNTS'. DTSBR517 00238 05 DTL1-LINE-17. DTSBR517 00239 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00240 10 FILLER PIC X(32) DTSBR517 00241 VALUE '1. TAXABLE......................'. DTSBR517 00242 10 DTL1-LINE1-COUNT PIC ZZZZ,ZZ9. DTSBR517 00243 10 FILLER PIC X(03) VALUE SPACES. DTSBR517 00244 10 DTL1-LINE1-TOT-WAGES PIC $$$$,$$$,$$$,$$9. DTSBR517 00245 10 FILLER PIC X(02) VALUE SPACES. DTSBR517 00246 10 DTL1-LINE1-TAX-WAGES PIC $$$$,$$$,$$$,$$9. DTSBR517 00247 05 DTL1-LINE-18. DTSBR517 00248 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00249 10 FILLER PIC X(32) DTSBR517 00250 VALUE ' A. ELIGIBLE..................'. DTSBR517 00251 10 DTL1-LINE1A-COUNT PIC ZZZZ,ZZ9. DTSBR517 00252 10 FILLER PIC X(03) VALUE SPACES. DTSBR517 00253 10 DTL1-LINE1A-TOT-WAGES PIC ZZZZ,ZZZ,ZZZ,ZZ9. DTSBR517 00254 10 FILLER PIC X(02) VALUE SPACES. DTSBR517 00255 10 DTL1-LINE1A-TAX-WAGES PIC ZZZZ,ZZZ,ZZZ,ZZ9. DTSBR517 00256 05 DTL1-LINE-19. DTSBR517 00257 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00258 10 FILLER PIC X(32) DTSBR517 00259 VALUE ' B. INELIGIBLE................'. DTSBR517 00260 10 DTL1-LINE1B-COUNT PIC ZZZZ,ZZ9. DTSBR517 00261 10 FILLER PIC X(03) VALUE SPACES. DTSBR517 00262 10 DTL1-LINE1B-TOT-WAGES PIC ZZZZ,ZZZ,ZZZ,ZZ9. DTSBR517 00263 10 FILLER PIC X(02) VALUE SPACES. DTSBR517 00264 10 DTL1-LINE1B-TAX-WAGES PIC ZZZZ,ZZZ,ZZZ,ZZ9. DTSBR517 00265 05 DTL1-LINE-20 PIC X(133) VALUE SPACES. DTSBR517 00266 05 DTL1-LINE-21. DTSBR517 00267 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00268 10 FILLER PIC X(32) DTSBR517 00269 VALUE '2. REIMBURSABLE ACCOUNTS........'. DTSBR517 00270 10 DTL1-LINE2-COUNT PIC ZZZZ,ZZ9. DTSBR517 00271 10 FILLER PIC X(03) VALUE SPACES. DTSBR517 00272 10 DTL1-LINE2-TOT-WAGES PIC $$$$,$$$,$$$,$$9. DTSBR517 00273 05 DTL1-LINE-22 PIC X(133) VALUE SPACES. DTSBR517 00274 05 DTL1-LINE-23. DTSBR517 00275 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00276 10 FILLER PIC X(23) DTSBR517 00277 VALUE 'SUBJECT ACCOUNTS WITH :'. DTSBR517 00278 05 DTL1-LINE-24. DTSBR517 00279 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00280 10 FILLER PIC X(32) DTSBR517 00281 VALUE '3. POSITIVE (OR ZERO) BALANCE...'. DTSBR517 00282 10 DTL1-LINE3-COUNT PIC ZZZZ,ZZ9. DTSBR517 00283 10 FILLER PIC X(03) VALUE SPACES. DTSBR517 00284 10 DTL1-LINE3-TOT-WAGES PIC $$$$,$$$,$$$,$$9. DTSBR517 00285 10 FILLER PIC X(02) VALUE SPACES. DTSBR517 00286 10 DTL1-LINE3-TAX-WAGES PIC $$$$,$$$,$$$,$$9. DTSBR517 00287 05 DTL1-LINE-25. DTSBR517 00288 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00289 10 FILLER PIC X(32) DTSBR517 00290 VALUE ' A. ELIGIBLE..................'. DTSBR517 00291 10 DTL1-LINE3A-COUNT PIC ZZZZ,ZZ9. DTSBR517 00292 10 FILLER PIC X(03) VALUE SPACES. DTSBR517 00293 10 DTL1-LINE3A-TOT-WAGES PIC ZZZZ,ZZZ,ZZZ,ZZ9. DTSBR517 00294 10 FILLER PIC X(02) VALUE SPACES. DTSBR517 00295 10 DTL1-LINE3A-TAX-WAGES PIC ZZZZ,ZZZ,ZZZ,ZZ9. DTSBR517 00296 05 DTL1-LINE-26. DTSBR517 00297 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00298 10 FILLER PIC X(32) DTSBR517 00299 VALUE ' B. INELIGIBLE................'. DTSBR517 00300 10 DTL1-LINE3B-COUNT PIC ZZZZ,ZZ9. DTSBR517 00301 10 FILLER PIC X(03) VALUE SPACES. DTSBR517 00302 10 DTL1-LINE3B-TOT-WAGES PIC ZZZZ,ZZZ,ZZZ,ZZ9. DTSBR517 00303 10 FILLER PIC X(02) VALUE SPACES. DTSBR517 00304 10 DTL1-LINE3B-TAX-WAGES PIC ZZZZ,ZZZ,ZZZ,ZZ9. DTSBR517 00305 05 DTL1-LINE-27 PIC X(133) VALUE SPACES. DTSBR517 00306 05 DTL1-LINE-28. DTSBR517 00307 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00308 10 FILLER PIC X(32) DTSBR517 00309 VALUE '4. NEGATIVE BALANCE.............'. DTSBR517 00310 10 DTL1-LINE4-COUNT PIC ZZZZ,ZZ9. DTSBR517 00311 10 FILLER PIC X(03) VALUE SPACES. DTSBR517 00312 10 DTL1-LINE4-TOT-WAGES PIC $$$$,$$$,$$$,$$9. DTSBR517 00313 10 FILLER PIC X(02) VALUE SPACES. DTSBR517 00314 10 DTL1-LINE4-TAX-WAGES PIC $$$$,$$$,$$$,$$9. DTSBR517 00315 05 DTL1-LINE-29. DTSBR517 00316 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00317 10 FILLER PIC X(32) DTSBR517 00318 VALUE ' A. ELIGIBLE..................'. DTSBR517 00319 10 DTL1-LINE4A-COUNT PIC ZZZZ,ZZ9. DTSBR517 00320 10 FILLER PIC X(03) VALUE SPACES. DTSBR517 00321 10 DTL1-LINE4A-TOT-WAGES PIC ZZZZ,ZZZ,ZZZ,ZZ9. DTSBR517 00322 10 FILLER PIC X(02) VALUE SPACES. DTSBR517 00323 10 DTL1-LINE4A-TAX-WAGES PIC ZZZZ,ZZZ,ZZZ,ZZ9. DTSBR517 00324 05 DTL1-LINE-30. DTSBR517 00325 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00326 10 FILLER PIC X(32) DTSBR517 00327 VALUE ' B. INELIGIBLE................'. DTSBR517 00328 10 DTL1-LINE4B-COUNT PIC ZZZZ,ZZ9. DTSBR517 00329 10 FILLER PIC X(03) VALUE SPACES. DTSBR517 00330 10 DTL1-LINE4B-TOT-WAGES PIC ZZZZ,ZZZ,ZZZ,ZZ9. DTSBR517 00331 10 FILLER PIC X(02) VALUE SPACES. DTSBR517 00332 10 DTL1-LINE4B-TAX-WAGES PIC ZZZZ,ZZZ,ZZZ,ZZ9. DTSBR517 00333 DTSBR517 00334 01 ETA204-SECTION-B. DTSBR517 00335 05 DTL1-LINE-31 PIC X(133) VALUE SPACES. DTSBR517 00336 05 DTL1-LINE-32 PIC X(133) VALUE SPACES. DTSBR517 00337 05 DTL1-LINE-33 PIC X(133) VALUE SPACES. DTSBR517 00338 05 DTL1-LINE-34. DTSBR517 00339 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00340 10 FILLER PIC X(40) DTSBR517 00341 VALUE 'SECTION B. SUMMARY OF BENEFITS PAID, CHA'. DTSBR517 00342 10 FILLLER PIC X(20) DTSBR517 00343 VALUE 'RGED AND NOT CHARGED'. DTSBR517 00344 05 DTL1-LINE-35 PIC X(133) VALUE SPACES. DTSBR517 00345 05 DTL1-LINE-36. DTSBR517 00346 10 FILLER PIC X(59) VALUE SPACES. DTSBR517 00347 10 FILLER PIC X(06) DTSBR517 00348 VALUE 'AMOUNT'. DTSBR517 00349 05 DTL1-LINE-37. DTSBR517 00350 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00351 10 FILLER PIC X(40) DTSBR517 00352 VALUE '5. TOTAL BENEFITS PAID FOR 12 MONTHS END'. DTSBR517 00353 10 FILLER PIC X(04) DTSBR517 00354 VALUE 'ING '. DTSBR517 00355 10 WS-BEN-YR-END-DATE PIC X(10). DTSBR517 00356 10 DTL1-LINE5-CHARGES PIC $$$$$,$$$,$$9. DTSBR517 00357 05 DTL1-LINE-38 PIC X(133) VALUE SPACES. DTSBR517 00358 05 DTL1-LINE-39. DTSBR517 00359 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00360 10 FILLER PIC X(40) DTSBR517 00361 VALUE '6. TOTAL FOR TAXABLE EMPLOYER ACCOUNTS..'. DTSBR517 00362 10 FILLER PIC X(14) DTSBR517 00363 VALUE ALL '.'. DTSBR517 00364 10 DTL1-LINE6-CHARGES PIC ZZZZZ,ZZZ,ZZ9. DTSBR517 00365 05 DTL1-LINE-40. DTSBR517 00366 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00367 10 FILLER PIC X(40) DTSBR517 00368 VALUE ' A. CHARGED...........................'. DTSBR517 00369 10 FILLER PIC X(14) DTSBR517 00370 VALUE ALL '.'. DTSBR517 00371 10 DTL1-LINE6A-CHARGES PIC ZZZZZ,ZZZ,ZZ9. DTSBR517 00372 05 DTL1-LINE-41. DTSBR517 00373 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00374 10 FILLER PIC X(40) DTSBR517 00375 VALUE ' (1) ACTIVE........................'. DTSBR517 00376 10 FILLER PIC X(14) DTSBR517 00377 VALUE ALL '.'. DTSBR517 00378 10 DTL1-LINE6A1-CHARGES PIC ZZZZZ,ZZZ,ZZ9. DTSBR517 00379 05 DTL1-LINE-42. DTSBR517 00380 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00381 10 FILLER PIC X(40) DTSBR517 00382 VALUE ' (2) INACTIVE......................'. DTSBR517 00383 10 FILLER PIC X(14) DTSBR517 00384 VALUE ALL '.'. DTSBR517 00385 10 DTL1-LINE6A2-CHARGES PIC ZZZZZ,ZZZ,ZZ9. DTSBR517 00386 05 DTL1-LINE-43. DTSBR517 00387 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00388 10 FILLER PIC X(40) DTSBR517 00389 VALUE ' B. NONCHARGED........................'. DTSBR517 00390 10 FILLER PIC X(14) DTSBR517 00391 VALUE ALL '.'. DTSBR517 00392 10 DTL1-LINE6B-CHARGES PIC ZZZZZ,ZZZ,ZZ9. DTSBR517 00393 05 DTL1-LINE-44 PIC X(133) VALUE SPACES. DTSBR517 00394 05 DTL1-LINE-45. DTSBR517 00395 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00396 10 FILLER PIC X(40) DTSBR517 00397 VALUE '7. REIMBURSABLE EMPLOYER ACCOUNTS.......'. DTSBR517 00398 10 FILLER PIC X(14) DTSBR517 00399 VALUE ALL '.'. DTSBR517 00400 10 DTL1-LINE7-CHARGES PIC ZZZZZ,ZZZ,ZZ9. DTSBR517 00401 05 DTL1-LINE-46. DTSBR517 00402 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00403 10 FILLER PIC X(40) DTSBR517 00404 VALUE ' A. CHARGED...........................'. DTSBR517 00405 10 FILLER PIC X(14) DTSBR517 00406 VALUE ALL '.'. DTSBR517 00407 10 DTL1-LINE7A-CHARGES PIC ZZZZZ,ZZZ,ZZ9. DTSBR517 00408 05 DTL1-LINE-47. DTSBR517 00409 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00410 10 FILLER PIC X(40) DTSBR517 00411 VALUE ' B. NONCHARGED........................'. DTSBR517 00412 10 FILLER PIC X(14) DTSBR517 00413 VALUE ALL '.'. DTSBR517 00414 10 DTL1-LINE7B-CHARGES PIC ZZZZZ,ZZZ,ZZ9. DTSBR517 00415 DTSBR517 00416 05 DTL1-LINE-48 PIC X(133) VALUE SPACES. DTSBR517 00417 05 DTL1-LINE-49. DTSBR517 00418 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00419 10 FILLER PIC X(40) DTSBR517 00420 VALUE 'ESTIMATED CALANDER YEAR (CY) AVERAGE TAX'. DTSBR517 00421 10 FILLER PIC X(11) DTSBR517 00422 VALUE 'RATES '. DTSBR517 00423 05 DTL1-LINE-50 PIC X(133) VALUE SPACES. DTSBR517 00424 05 DTL1-LINE-51. DTSBR517 00425 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00426 10 FILLER PIC X(40) DTSBR517 00427 VALUE '8. AVERAGE RATE ON TAXABLE WAGES.......'. DTSBR517 00428 10 FILLER PIC X(14) DTSBR517 00429 VALUE '..............'. DTSBR517 00430 10 FILLER PIC X(10) VALUE SPACES. DTSBR517 00431 10 DTL1-LINE51-RTE-TAX-WGE PIC 9.9. DTSBR517 00432 05 DTL1-LINE-52 PIC X(133) VALUE SPACES. DTSBR517 00433 05 DTL1-LINE-53. DTSBR517 00434 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00435 10 FILLER PIC X(40) DTSBR517 00436 VALUE '9. AVERAGE RATE ON TOTAL WAGES.........'. DTSBR517 00437 10 FILLER PIC X(14) DTSBR517 00438 VALUE '..............'. DTSBR517 00439 10 FILLER PIC X(10) VALUE SPACES. DTSBR517 00440 10 DTL1-LINE53-RTE-TOT-WGE PIC 9.9. DTSBR517 00441 01 ETA204-COMMENTS-AND-SIGNATURE. DTSBR517 00442 05 DTL1-LINE-54 PIC X(133) VALUE SPACES. DTSBR517 00443 05 DTL1-LINE-55 PIC X(133) VALUE SPACES. DTSBR517 00444 05 DTL1-LINE-56. DTSBR517 00445 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00446 10 FILLER PIC X(12) DTSBR517 00447 VALUE '10. COMMENTS'. DTSBR517 00448 05 DTL1-LINE-57 PIC X(133) VALUE SPACES. DTSBR517 00449 05 DTL1-LINE-58 PIC X(133) VALUE SPACES. DTSBR517 00450 05 DTL1-LINE-59 PIC X(133) VALUE SPACES. DTSBR517 00451 05 DTL1-LINE-60 PIC X(133) VALUE SPACES. DTSBR517 00452 05 DTL1-LINE-61. DTSBR517 00453 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00454 10 FILLER PIC X(09) DTSBR517 00455 VALUE 'SIGNATURE'. DTSBR517 00456 10 FILLER PIC X(26) DTSBR517 00457 VALUE ALL '_'. DTSBR517 00458 10 FILLER PIC X(05) DTSBR517 00459 VALUE 'TITLE'. DTSBR517 00460 10 FILLER PIC X(25) DTSBR517 00461 VALUE ALL '_'. DTSBR517 00462 10 FILLER PIC X(04) DTSBR517 00463 VALUE 'DATE'. DTSBR517 00464 10 FILLER PIC X(10) DTSBR517 00465 VALUE ALL '_'. DTSBR517 00466 DTSBR517 00467 01 ETA204-COMMON-FOOTING. DTSBR517 00468 05 FOOT-LINE-1 PIC X(133) VALUE SPACES. DTSBR517 00469 05 FOOT-LINE-2. DTSBR517 00470 10 FILLER PIC X(70) VALUE SPACES. DTSBR517 00471 10 FILLER PIC X(07) DTSBR517 00472 VALUE 'ETA 204'. DTSBR517 00473 05 FOOT-LINE-3. DTSBR517 00474 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00475 10 FILLER PIC X(04) VALUE 'PAGE'. DTSBR517 00476 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00477 10 WS-PAGE-CNT PIC 9(01). DTSBR517 00478 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00479 10 FILLER PIC X(02) VALUE 'OF'. DTSBR517 00480 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00481 10 WS-PAGE-MAX PIC 9(01). DTSBR517 00482 10 FILLER PIC X(57) VALUE SPACES. DTSBR517 00483 10 FILLER PIC X(09) DTSBR517 00484 VALUE 'REV 04-11'. DTSBR517 00485 DTSBR517 00486 05 FOOT-LINE-4. DTSBR517 00487 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00488 10 FILLER PIC X(04) VALUE 'PAGE'. DTSBR517 00489 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00490 10 WS-PAGE-CNT-PC PIC 9(01). DTSBR517 00491 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00492 10 FILLER PIC X(02) VALUE 'OF'. DTSBR517 00493 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00494 10 WS-PAGE-MAX-PC PIC 9(01). DTSBR517 00495 10 FILLER PIC X(56) VALUE SPACES. DTSBR517 00496 10 FILLER PIC X(09) DTSBR517 00497 VALUE 'REV 04-11'. DTSBR517 00498 10 WS-FORM-FEED PIC X(01) VALUE X'0C'. DTSBR517 00499 DTSBR517 00500 01 WS-DISPLAY-AMT01 PIC ZZ,ZZZ,ZZZ,ZZ9-. DTSBR517 00501 DTSBR517 00502 01 ETA204-SECTION-C-HEADING. DTSBR517 00503 05 HDR2-LINE-6. DTSBR517 00504 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00505 10 FILLER PIC X(17) DTSBR517 00506 VALUE 'TAXABLE WAGE BASE'. DTSBR517 00507 10 FILLER PIC X(31) VALUE SPACE. DTSBR517 00508 10 FILLER PIC X(17) DTSBR517 00509 VALUE 'TAXABLE WAGE BASE'. DTSBR517 00510 05 HDR2-LINE-7. DTSBR517 00511 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00512 10 FILLER PIC X(20) DTSBR517 00513 VALUE ' DURING RATE YEAR: '. DTSBR517 00514 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00515 10 HDR2-RATE-YEAR-TX-WG-BASE PIC $$$$,$$9. DTSBR517 00516 10 FILLER PIC X(17) VALUE SPACE. DTSBR517 00517 10 WS-RY-1-START-DATE PIC X(10). DTSBR517 00518 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00519 10 FILLER PIC X(01) DTSBR517 00520 VALUE '-'. DTSBR517 00521 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00522 10 WS-RY-1-END-DATE PIC X(10). DTSBR517 00523 10 FILLER PIC X(02) DTSBR517 00524 VALUE ': '. DTSBR517 00525 10 HDR2-RY-MINUS-ONE-TX-WG-BASE PIC $$$$,$$9. DTSBR517 00526 05 HDR2-LINE-8. DTSBR517 00527 10 FILLER PIC X(47) VALUE SPACES. DTSBR517 00528 10 WS-RY-2-START-DATE PIC X(10). DTSBR517 00529 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00530 10 FILLER PIC X(01) DTSBR517 00531 VALUE '-'. DTSBR517 00532 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00533 10 WS-RY-2-END-DATE PIC X(10). DTSBR517 00534 10 FILLER PIC X(02) DTSBR517 00535 VALUE ': '. DTSBR517 00536 10 HDR2-RY-MINUS-TWO-TX-WG-BASE PIC $$$$,$$9. DTSBR517 00537 05 HDR2-LINE-9 PIC X(133) VALUE SPACES. DTSBR517 00538 05 HDR2-LINE-10. DTSBR517 00539 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00540 10 FILLER PIC X(40) DTSBR517 00541 VALUE 'SECTION C. ALL TAXABLE SUBJECT ACCOUNTS.'. DTSBR517 00542 10 FILLER PIC X(36) DTSBR517 00543 VALUE ' SELECTED DATA BY EXPERIENCE FACTOR'. DTSBR517 00544 05 HDR2-LINE-11 PIC X(133) VALUE SPACES. DTSBR517 00545 05 HDR2-LINE-12. DTSBR517 00546 10 FILLER PIC X(04) VALUE SPACES. DTSBR517 00547 10 FILLER PIC X(10) DTSBR517 00548 VALUE 'EXPERIENCE'. DTSBR517 00549 05 HDR2-LINE-13. DTSBR517 00550 10 FILLER PIC X(06) VALUE SPACES. DTSBR517 00551 10 FILLER PIC X(06) DTSBR517 00552 VALUE 'FACTOR'. DTSBR517 00553 05 HDR2-LINE-14. DTSBR517 00554 10 FILLER PIC X(11) VALUE SPACES. DTSBR517 00555 10 FILLER PIC X(05) DTSBR517 00556 VALUE 'EQUAL'. DTSBR517 00557 10 FILLER PIC X(05) VALUE SPACES. DTSBR517 00558 10 FILLER PIC X(03) DTSBR517 00559 VALUE 'AVG'. DTSBR517 00560 10 FILLER PIC X(04) VALUE SPACES. DTSBR517 00561 10 FILLER PIC X(06) DTSBR517 00562 VALUE 'NUMBER'. DTSBR517 00563 10 FILLER PIC X(07) VALUE SPACES. DTSBR517 00564 10 FILLER PIC X(05) DTSBR517 00565 VALUE 'TOTAL'. DTSBR517 00566 10 FILLER PIC X(07) VALUE SPACES. DTSBR517 00567 10 FILLER PIC X(07) DTSBR517 00568 VALUE 'TAXABLE'. DTSBR517 00569 10 FILLER PIC X(02) VALUE SPACES. DTSBR517 00570 10 FILLER PIC X(08) DTSBR517 00571 VALUE 'BENEFITS'. DTSBR517 00572 10 FILLER PIC X(01) VALUE SPACES. DTSBR517 00573 10 FILLER PIC X(09) DTSBR517 00574 VALUE 'ESTIMATED'. DTSBR517 00575 05 HDR2-LINE-15. DTSBR517 00576 10 FILLER PIC X(11) VALUE SPACES. DTSBR517 00577 10 FILLER PIC X(05) DTSBR517 00578 VALUE 'TO OR'. DTSBR517 00579 10 FILLER PIC X(05) VALUE SPACES. DTSBR517 00580 10 FILLER PIC X(03) DTSBR517 00581 VALUE 'TAX'. DTSBR517 00582 10 FILLER PIC X(06) VALUE SPACES. DTSBR517 00583 10 FILLER PIC X(02) DTSBR517 00584 VALUE 'OF'. DTSBR517 00585 10 FILLER PIC X(08) VALUE SPACES. DTSBR517 00586 10 FILLER PIC X(07) DTSBR517 00587 VALUE 'PAYROLL'. DTSBR517 00588 10 FILLER PIC X(06) VALUE SPACES. DTSBR517 00589 10 FILLER PIC X(07) DTSBR517 00590 VALUE 'PAYROLL'. DTSBR517 00591 10 FILLER PIC X(03) VALUE SPACES. DTSBR517 00592 10 FILLER PIC X(07) DTSBR517 00593 VALUE 'CHARGED'. DTSBR517 00594 10 FILLER PIC X(02) VALUE SPACES. DTSBR517 00595 10 FILLER PIC X(07) DTSBR517 00596 VALUE 'CONTRIB'. DTSBR517 00597 05 HDR2-LINE-16. DTSBR517 00598 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00599 10 FILLER PIC X(07) DTSBR517 00600 VALUE 'GREATER'. DTSBR517 00601 10 FILLER PIC X(04) VALUE SPACES. DTSBR517 00602 10 FILLER PIC X(04) DTSBR517 00603 VALUE 'LESS'. DTSBR517 00604 10 FILLER PIC X(04) VALUE SPACES. DTSBR517 00605 10 FILLER PIC X(04) DTSBR517 00606 VALUE 'RATE'. DTSBR517 00607 10 FILLER PIC X(05) VALUE SPACES. DTSBR517 00608 10 FILLER PIC X(05) DTSBR517 00609 VALUE 'ACCTS'. DTSBR517 00610 10 FILLER PIC X(07) VALUE SPACES. DTSBR517 00611 10 FILLER PIC X(05) DTSBR517 00612 VALUE '(000)'. DTSBR517 00613 10 FILLER PIC X(08) VALUE SPACES. DTSBR517 00614 10 FILLER PIC X(05) DTSBR517 00615 VALUE '(000)'. DTSBR517 00616 10 FILLER PIC X(05) VALUE SPACES. DTSBR517 00617 10 FILLER PIC X(05) DTSBR517 00618 VALUE '(000)'. DTSBR517 00619 10 FILLER PIC X(04) VALUE SPACES. DTSBR517 00620 10 FILLER PIC X(05) DTSBR517 00621 VALUE '(000)'. DTSBR517 00622 05 HDR2-LINE-17. DTSBR517 00623 10 FILLER PIC X(03) VALUE SPACES. DTSBR517 00624 10 FILLER PIC X(04) DTSBR517 00625 VALUE 'THAN'. DTSBR517 00626 10 FILLER PIC X(05) VALUE SPACES. DTSBR517 00627 10 FILLER PIC X(04) DTSBR517 00628 VALUE 'THAN'. DTSBR517 00629 10 FILLER PIC X(05) VALUE SPACES. DTSBR517 00630 10 FILLER PIC X(03) DTSBR517 00631 VALUE '(1)'. DTSBR517 00632 10 FILLER PIC X(06) VALUE SPACES. DTSBR517 00633 10 FILLER PIC X(03) DTSBR517 00634 VALUE '(2)'. DTSBR517 00635 10 FILLER PIC X(09) VALUE SPACES. DTSBR517 00636 10 FILLER PIC X(03) DTSBR517 00637 VALUE '(3)'. DTSBR517 00638 10 FILLER PIC X(10) VALUE SPACES. DTSBR517 00639 10 FILLER PIC X(03) DTSBR517 00640 VALUE '(4)'. DTSBR517 00641 10 FILLER PIC X(07) VALUE SPACES. DTSBR517 00642 10 FILLER PIC X(03) DTSBR517 00643 VALUE '(5)'. DTSBR517 00644 10 FILLER PIC X(06) VALUE SPACES. DTSBR517 00645 10 FILLER PIC X(03) DTSBR517 00646 VALUE '(6)'. DTSBR517 00647 DTSBR517 00648 01 ETA204-MESSAGE-LINE. DTSBR517 00649 05 MSG-LINE-1. DTSBR517 00650 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00651 10 WS-MESSAGE-LINE PIC X(79). DTSBR517 00652 DTSBR517 00653 01 ETA204-RATIO-LINE. DTSBR517 00654 05 RATIO-LINE-1. DTSBR517 00655 10 FILLER PIC X(02) VALUE SPACES. DTSBR517 00656 10 DTL2-MIN-RATIO PIC ZZ9.9-. DTSBR517 00657 10 FILLER PIC X(03) VALUE SPACES. DTSBR517 00658 10 DTL2-MAX-RATIO PIC ZZ9.9-. DTSBR517 00659 10 FILLER PIC X(03) VALUE SPACES. DTSBR517 00660 10 DTL2-AVG-TAX-RATE PIC 9.99. DTSBR517 00661 10 FILLER PIC X(02) VALUE SPACES. DTSBR517 00662 10 DTL2-EMPLR-CNT PIC ZZZZ,ZZ9. DTSBR517 00663 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00664 10 DTL2-TOT-WAGE-THOU PIC ZZZZ,ZZZ,ZZ9-. DTSBR517 00665 10 DTL2-TAX-WAGE-THOU PIC ZZZZ,ZZZ,ZZ9-. DTSBR517 00666 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00667 10 DTL2-BEN-CHARGED-THOU PIC ZZZZ,ZZ9-. DTSBR517 00668 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00669 10 DTL2-EST-UI-PAID-THOU PIC ZZZZ,ZZ9-. DTSBR517 00670 DTSBR517 00671 01 ETA204-TITLE-LINE. DTSBR517 00672 05 TITLE-LINE-1. DTSBR517 00673 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00674 10 WS-LINE-TITLE PIC X(15). DTSBR517 00675 10 FILLER PIC X(04) VALUE SPACES. DTSBR517 00676 10 TITLE-AVG-TAX-RATE PIC 9.99. DTSBR517 00677 10 FILLER PIC X(02) VALUE SPACES. DTSBR517 00678 10 TITLE-EMPLR-CNT PIC ZZZZ,ZZ9. DTSBR517 00679 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00680 10 TITLE-TOT-WAGE-THOU PIC ZZZZ,ZZZ,ZZ9-. DTSBR517 00681 10 TITLE-TAX-WAGE-THOU PIC ZZZZ,ZZZ,ZZ9-. DTSBR517 00682 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00683 10 TITLE-BEN-CHARGED-THOU PIC ZZZZ,ZZ9-. DTSBR517 00684 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00685 10 TITLE-EST-UI-PAID-THOU PIC ZZZZ,ZZ9-. DTSBR517 00686 DTSBR517 00687 ** THE LAST BYTE OF THE RECORD '0C' FOR END OF PAGE ON PC. DTSBR517 00688 05 TITLE-LINE-2. DTSBR517 00689 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00690 10 WS-LINE-TITLE2 PIC X(15). DTSBR517 00691 10 FILLER PIC X(04) VALUE SPACES. DTSBR517 00692 10 TITLE-AVG-TAX-RATE2 PIC 9.99. DTSBR517 00693 10 FILLER PIC X(02) VALUE SPACES. DTSBR517 00694 10 TITLE-EMPLR-CNT2 PIC ZZZZ,ZZ9. DTSBR517 00695 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00696 10 TITLE-TOT-WAGE-THOU2 PIC ZZZZ,ZZZ,ZZ9-. DTSBR517 00697 10 TITLE-TAX-WAGE-THOU2 PIC ZZZZ,ZZZ,ZZ9-. DTSBR517 00698 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00699 10 TITLE-BEN-CHARGED-THOU2 PIC ZZZZ,ZZ9-. DTSBR517 00700 10 FILLER PIC X(01) VALUE SPACE. DTSBR517 00701 10 TITLE-EST-UI-PAID-THOU2 PIC ZZZZ,ZZ9. DTSBR517 00702 10 WS-FORM-FEED2 PIC X(01) VALUE X'0C'. DTSBR517 00703 EJECT DTSBR517 00704 DTSBR517 00705 LINKAGE SECTION. DTSBR517 00706 DTSBR517 00707 01 LRCM-LINK-AREA. DTSBR517 00708 ++INCLUDE DTSILRCM DTSBR517 00709 EJECT DTSBR517 00710 01 R517-REC. DTSBR517 00711 ++INCLUDE DTSIR517 DTSBR517 00712 EJECT DTSBR517 00713 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR517 00714 R517-REC. DTSBR517 00715 DTSBR517 00716 IF FIRST-TIME-IND = 'Y' DTSBR517 00717 PERFORM I1000-INITIATE DTSBR517 00718 THRU I1000-EXIT DTSBR517 00719 MOVE 'N' TO FIRST-TIME-IND. DTSBR517 00720 DTSBR517 00721 IF LRCM-EOR-88 DTSBR517 00722 PERFORM T1000-TERMINATE DTSBR517 00723 THRU T1000-EXIT DTSBR517 00724 ELSE DTSBR517 00725 PERFORM P1000-PROCESS DTSBR517 00726 THRU P1000-EXIT. DTSBR517 00727 DTSBR517 00728 GOBACK. DTSBR517 00729 EJECT DTSBR517 00730 I1000-INITIATE. DTSBR517 00731 DTSBR517 00732 OPEN OUTPUT PRT-FILE DTSBR517 00733 SECTION-C-TEXT-FILE. DTSBR517 00734 DTSBR517 00735 MOVE SPACES TO REPORT-LISTING1 DTSBR517 00736 TEXT-LINE. DTSBR517 00737 DTSBR517 00738 MOVE +0 TO WRK-TEXT-OUT-REC-CNT. DTSBR517 00739 DTSBR517 00740 I1000-EXIT. DTSBR517 00741 EXIT. DTSBR517 00742 DTSBR517 00743 P1000-PROCESS. DTSBR517 00744 DTSBR517 00745 PERFORM P2000-DATES DTSBR517 00746 THRU P2000-EXIT. DTSBR517 00747 DTSBR517 00748 MOVE +0 TO WS-PAGE-CNT WS-PAGE-CNT-PC. DTSBR517 00749 DTSBR517 00750 MOVE +3 TO WS-PAGE-MAX WS-PAGE-MAX-PC. DTSBR517 00751 DTSBR517 00752 PERFORM P6000-COMMON-HEADING THRU P6000-EXIT. DTSBR517 00753 DTSBR517 00754 PERFORM P3000-SECTION-A DTSBR517 00755 THRU P3000-EXIT. DTSBR517 00756 DTSBR517 00757 PERFORM P4000-SECTION-B DTSBR517 00758 THRU P4000-EXIT. DTSBR517 00759 DTSBR517 00760 PERFORM P7400-COMM-SIGN THRU P7400-EXIT. DTSBR517 00761 DTSBR517 00762 ADD +1 TO WS-PAGE-CNT WS-PAGE-CNT-PC. DTSBR517 00763 DTSBR517 00764 PERFORM P8000-COMMON-FOOTING THRU P8000-EXIT. DTSBR517 00765 DTSBR517 00766 PERFORM P5000-SECTION-C DTSBR517 00767 THRU P5000-EXIT. DTSBR517 00768 DTSBR517 00769 P1000-EXIT. DTSBR517 00770 EXIT. DTSBR517 00771 EJECT DTSBR517 00772 P2000-DATES. DTSBR517 00773 DTSBR517 00774 MOVE R517-RUN-DATE TO L001-FED-8-DATE-9. DTSBR517 00775 SET L001-FROM-FED-8 TO TRUE. DTSBR517 00776 PERFORM S001-DATE DTSBR517 00777 THRU S001-EXIT. DTSBR517 00778 MOVE L001-SLASH-8-DATE TO WS-RUN-DATE. DTSBR517 00779 DTSBR517 00780 MOVE R517-COMPUTATION-DATE TO L001-FED-8-DATE-9. DTSBR517 00781 SET L001-FROM-FED-8 TO TRUE. DTSBR517 00782 PERFORM S001-DATE DTSBR517 00783 THRU S001-EXIT. DTSBR517 00784 MOVE L001-SLASH-8-DATE TO WS-COMP-DATE. DTSBR517 00785 DTSBR517 00786 MOVE R517-RATE-YEAR-END-DATE TO L001-FED-8-DATE-9. DTSBR517 00787 SET L001-FROM-FED-8 TO TRUE. DTSBR517 00788 PERFORM S001-DATE DTSBR517 00789 THRU S001-EXIT. DTSBR517 00790 MOVE L001-SLASH-8-DATE TO WS-RATE-YR-END-DATE. DTSBR517 00791 DTSBR517 00792 MOVE R517-NUMBER-AS-OF-DATE TO L001-FED-8-DATE-9. DTSBR517 00793 SET L001-FROM-FED-8 TO TRUE. DTSBR517 00794 PERFORM S001-DATE DTSBR517 00795 THRU S001-EXIT. DTSBR517 00796 MOVE L001-SLASH-8-DATE TO WS-NBR-AS-OF-DATE. DTSBR517 00797 DTSBR517 00798 MOVE R517-PAYROLL-YEAR-END-DATE TO L001-FED-8-DATE-9. DTSBR517 00799 SET L001-FROM-FED-8 TO TRUE. DTSBR517 00800 PERFORM S001-DATE DTSBR517 00801 THRU S001-EXIT. DTSBR517 00802 MOVE L001-SLASH-8-DATE TO WS-PAYROLL-YR-END-DATE2 DTSBR517 00803 WS-PAYROLL-YR-END-DATE3. DTSBR517 00804 DTSBR517 00805 MOVE R517-BEN-CHRG-YEAR-END-DATE TO L001-FED-8-DATE-9. DTSBR517 00806 SET L001-FROM-FED-8 TO TRUE. DTSBR517 00807 PERFORM S001-DATE DTSBR517 00808 THRU S001-EXIT. DTSBR517 00809 MOVE L001-SLASH-8-DATE TO WS-BEN-YR-END-DATE. DTSBR517 00810 DTSBR517 00811 MOVE R517-RY-MINUS-ONE-START-DATE TO L001-FED-8-DATE-9. DTSBR517 00812 SET L001-FROM-FED-8 TO TRUE. DTSBR517 00813 PERFORM S001-DATE DTSBR517 00814 THRU S001-EXIT. DTSBR517 00815 MOVE L001-SLASH-8-DATE TO WS-RY-1-START-DATE. DTSBR517 00816 DTSBR517 00817 MOVE R517-RY-MINUS-ONE-END-DATE TO L001-FED-8-DATE-9. DTSBR517 00818 SET L001-FROM-FED-8 TO TRUE. DTSBR517 00819 PERFORM S001-DATE DTSBR517 00820 THRU S001-EXIT. DTSBR517 00821 MOVE L001-SLASH-8-DATE TO WS-RY-1-END-DATE. DTSBR517 00822 DTSBR517 00823 MOVE R517-RY-MINUS-TWO-START-DATE TO L001-FED-8-DATE-9. DTSBR517 00824 SET L001-FROM-FED-8 TO TRUE. DTSBR517 00825 PERFORM S001-DATE DTSBR517 00826 THRU S001-EXIT. DTSBR517 00827 MOVE L001-SLASH-8-DATE TO WS-RY-2-START-DATE. DTSBR517 00828 DTSBR517 00829 MOVE R517-RY-MINUS-TWO-END-DATE TO L001-FED-8-DATE-9. DTSBR517 00830 SET L001-FROM-FED-8 TO TRUE. DTSBR517 00831 PERFORM S001-DATE DTSBR517 00832 THRU S001-EXIT. DTSBR517 00833 MOVE L001-SLASH-8-DATE TO WS-RY-2-END-DATE. DTSBR517 00834 DTSBR517 00835 P2000-EXIT. DTSBR517 00836 EXIT. DTSBR517 00837 EJECT DTSBR517 00838 P3000-SECTION-A. DTSBR517 00839 DTSBR517 00840 ADD R517-LINE1A-COUNT DTSBR517 00841 R517-LINE1B-COUNT DTSBR517 00842 GIVING WS-LINE1-COUNT. DTSBR517 00843 DTSBR517 00844 ADD R517-LINE1A-TOT-WAGES DTSBR517 00845 R517-LINE1B-TOT-WAGES DTSBR517 00846 GIVING WS-LINE1-TOT-WAGES. DTSBR517 00847 DTSBR517 00848 ADD R517-LINE1A-TAX-WAGES DTSBR517 00849 R517-LINE1B-TAX-WAGES DTSBR517 00850 GIVING WS-LINE1-TAX-WAGES. DTSBR517 00851 DTSBR517 00852 ADD R517-LINE3A-COUNT DTSBR517 00853 R517-LINE3B-COUNT DTSBR517 00854 GIVING WS-LINE3-COUNT. DTSBR517 00855 DTSBR517 00856 ADD R517-LINE3A-TOT-WAGES DTSBR517 00857 R517-LINE3B-TOT-WAGES DTSBR517 00858 GIVING WS-LINE3-TOT-WAGES. DTSBR517 00859 DTSBR517 00860 ADD R517-LINE3A-TAX-WAGES DTSBR517 00861 R517-LINE3B-TAX-WAGES DTSBR517 00862 GIVING WS-LINE3-TAX-WAGES. DTSBR517 00863 DTSBR517 00864 ADD R517-LINE4A-COUNT DTSBR517 00865 R517-LINE4B-COUNT DTSBR517 00866 GIVING WS-LINE4-COUNT. DTSBR517 00867 DTSBR517 00868 ADD R517-LINE4A-TOT-WAGES DTSBR517 00869 R517-LINE4B-TOT-WAGES DTSBR517 00870 GIVING WS-LINE4-TOT-WAGES. DTSBR517 00871 DTSBR517 00872 ADD R517-LINE4A-TAX-WAGES DTSBR517 00873 R517-LINE4B-TAX-WAGES DTSBR517 00874 GIVING WS-LINE4-TAX-WAGES. DTSBR517 00875 DTSBR517 00876 PERFORM P7000-SECTION-A THRU P7000-EXIT. DTSBR517 00877 DTSBR517 00878 P3000-EXIT. DTSBR517 00879 EXIT. DTSBR517 00880 EJECT DTSBR517 00881 P4000-SECTION-B. DTSBR517 00882 DTSBR517 00883 DISPLAY 'RATE YR-END: ', WS-RATE-YR-END-DATE. DTSBR517 00884 DTSBR517 00885 MOVE R517-LINE6A-CHARGES TO WS-DISPLAY-AMT01 DTSBR517 00886 DISPLAY 'LINE 6A HAS: ', WS-DISPLAY-AMT01. DTSBR517 00887 DTSBR517 00888 MOVE R517-LINE6A1-CHARGES TO WS-DISPLAY-AMT01 DTSBR517 00889 DISPLAY 'LINE 6A1 HAS:', WS-DISPLAY-AMT01. DTSBR517 00890 DTSBR517 00891 MOVE R517-LINE6B-CHARGES TO WS-DISPLAY-AMT01 DTSBR517 00892 DISPLAY 'LINE 6B HAS: ', WS-DISPLAY-AMT01. DTSBR517 00893 DTSBR517 00894 MOVE R517-LINE7A-CHARGES TO WS-DISPLAY-AMT01 DTSBR517 00895 DISPLAY 'LINE 7A HAS: ', WS-DISPLAY-AMT01. DTSBR517 00896 DTSBR517 00897 MOVE R517-LINE7B-CHARGES TO WS-DISPLAY-AMT01 DTSBR517 00898 DISPLAY 'LINE 7B HAS: ', WS-DISPLAY-AMT01. DTSBR517 00899 DTSBR517 00900 SUBTRACT R517-LINE6A1-CHARGES DTSBR517 00901 FROM R517-LINE6A-CHARGES DTSBR517 00902 GIVING WS-LINE6A2-CHARGES. DTSBR517 00903 DTSBR517 00904 ADD R517-LINE6A-CHARGES DTSBR517 00905 R517-LINE6B-CHARGES DTSBR517 00906 GIVING WS-LINE6-CHARGES. DTSBR517 00907 DTSBR517 00908 ADD R517-LINE7A-CHARGES DTSBR517 00909 R517-LINE7B-CHARGES DTSBR517 00910 GIVING WS-LINE7-CHARGES. DTSBR517 00911 DTSBR517 00912 ADD WS-LINE6-CHARGES DTSBR517 00913 WS-LINE7-CHARGES DTSBR517 00914 GIVING WS-LINE5-CHARGES. DTSBR517 00915 DTSBR517 00916 MOVE WS-LINE6-CHARGES TO WS-DISPLAY-AMT01 DTSBR517 00917 DISPLAY 'LINE 6 HAS: ', WS-DISPLAY-AMT01. DTSBR517 00918 DTSBR517 00919 MOVE WS-LINE7-CHARGES TO WS-DISPLAY-AMT01 DTSBR517 00920 DISPLAY 'LINE 7 HAS: ', WS-DISPLAY-AMT01. DTSBR517 00921 DTSBR517 00922 PERFORM P7200-SECTION-B THRU P7200-EXIT. DTSBR517 00923 DTSBR517 00924 P4000-EXIT. DTSBR517 00925 EXIT. DTSBR517 00926 EJECT DTSBR517 00927 P5000-SECTION-C. DTSBR517 00928 DTSBR517 00929 PERFORM P6000-COMMON-HEADING THRU P6000-EXIT. DTSBR517 00930 PERFORM P6200-COMMON-HEADING THRU P6200-EXIT. DTSBR517 00931 DTSBR517 00932 PERFORM P9000-SECTION-C-HEADING THRU P9000-EXIT. DTSBR517 00933 PERFORM P9100-SECTION-C-HEADING THRU P9100-EXIT. DTSBR517 00934 DTSBR517 00935 MOVE SPACES TO WS-MESSAGE-LINE. DTSBR517 00936 DTSBR517 00937 PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT. DTSBR517 00938 PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT. DTSBR517 00939 DTSBR517 00940 MOVE 'ELIGIBLE - REGULARLY RATED BY FACTOR' DTSBR517 00941 TO WS-MESSAGE-LINE. DTSBR517 00942 DTSBR517 00943 PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT. DTSBR517 00944 PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT. DTSBR517 00945 DTSBR517 00946 MOVE SPACES TO WS-MESSAGE-LINE. DTSBR517 00947 DTSBR517 00948 PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT. DTSBR517 00949 PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT. DTSBR517 00950 DTSBR517 00951 MOVE +0 DTSBR517 00952 TO WS-TOTALS-EMPLR-CNT DTSBR517 00953 WS-TOTALS-TOT-WAGE-THOU DTSBR517 00954 WS-TOTALS-TAX-WAGE-THOU DTSBR517 00955 WS-TOTALS-BEN-CHARGED-THOU DTSBR517 00956 WS-TOTALS-EST-UI-PAID-THOU. DTSBR517 00957 DTSBR517 00958 PERFORM P5100-RATIO-LINE DTSBR517 00959 THRU P5100-EXIT DTSBR517 00960 VARYING R517-ELG-REG-IDX FROM 1 BY 1 DTSBR517 00961 UNTIL R517-ELG-REG-IDX > R517-ELG-REG-OCC-CNT DTSBR517 00962 OR R517-ELG-REG-IDX > 37. DTSBR517 00963 DTSBR517 00964 IF R517-ELG-REG-IDX > R517-ELG-REG-OCC-CNT DTSBR517 00965 GO TO P5000-EXIT. DTSBR517 00966 DTSBR517 00967 ADD +1 TO WS-PAGE-CNT WS-PAGE-CNT-PC. DTSBR517 00968 DTSBR517 00969 PERFORM P8000-COMMON-FOOTING THRU P8000-EXIT. DTSBR517 00970 PERFORM P8100-COMMON-FOOTING THRU P8100-EXIT. DTSBR517 00971 DTSBR517 00972 PERFORM P6000-COMMON-HEADING THRU P6000-EXIT. DTSBR517 00973 PERFORM P6200-COMMON-HEADING THRU P6200-EXIT. DTSBR517 00974 DTSBR517 00975 PERFORM P9000-SECTION-C-HEADING THRU P9000-EXIT. DTSBR517 00976 PERFORM P9100-SECTION-C-HEADING THRU P9100-EXIT. DTSBR517 00977 DTSBR517 00978 MOVE SPACES TO WS-MESSAGE-LINE. DTSBR517 00979 DTSBR517 00980 PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT. DTSBR517 00981 PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT. DTSBR517 00982 DTSBR517 00983 PERFORM P5100-RATIO-LINE DTSBR517 00984 THRU P5100-EXIT DTSBR517 00985 VARYING R517-ELG-REG-IDX FROM 38 BY 1 DTSBR517 00986 UNTIL R517-ELG-REG-IDX > R517-ELG-REG-OCC-CNT. DTSBR517 00987 DTSBR517 00988 MOVE SPACES TO WS-MESSAGE-LINE. DTSBR517 00989 DTSBR517 00990 PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT. DTSBR517 00991 PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT. DTSBR517 00992 DTSBR517 00993 MOVE ' SUBTOTAL' TO WS-LINE-TITLE. DTSBR517 00994 DTSBR517 00995 MOVE WS-TOTALS-EMPLR-CNT DTSBR517 00996 TO WS-DISPLAY-EMPLR-CNT. DTSBR517 00997 DTSBR517 00998 MOVE WS-TOTALS-TOT-WAGE-THOU DTSBR517 00999 TO WS-DISPLAY-TOT-WAGE-THOU. DTSBR517 01000 DTSBR517 01001 MOVE WS-TOTALS-TAX-WAGE-THOU DTSBR517 01002 TO WS-DISPLAY-TAX-WAGE-THOU. DTSBR517 01003 DTSBR517 01004 MOVE WS-TOTALS-BEN-CHARGED-THOU DTSBR517 01005 TO WS-DISPLAY-BEN-CHARGED-THOU. DTSBR517 01006 DTSBR517 01007 MOVE WS-TOTALS-EST-UI-PAID-THOU DTSBR517 01008 TO WS-DISPLAY-EST-UI-PAID-THOU. DTSBR517 01009 DTSBR517 01010 COMPUTE WS-DISPLAY-AVG-TAX-RATE ROUNDED DTSBR517 01011 = (WS-DISPLAY-EST-UI-PAID-THOU DTSBR517 01012 / WS-DISPLAY-TAX-WAGE-THOU) DTSBR517 01013 * 100. DTSBR517 01014 DTSBR517 01015 ADD 0.0050 TO WS-DISPLAY-AVG-TAX-RATE. DTSBR517 01016 DTSBR517 01017 MOVE WS-DISPLAY-AVG-TAX-RATE3 TO TITLE-AVG-TAX-RATE. DTSBR517 01018 PERFORM P9400-TITLE-LINE THRU P9400-EXIT. DTSBR517 01019 PERFORM P9500-TITLE-LINE THRU P9500-EXIT. DTSBR517 01020 DTSBR517 01021 ADD +1 TO WS-PAGE-CNT WS-PAGE-CNT-PC. DTSBR517 01022 DTSBR517 01023 PERFORM P8000-COMMON-FOOTING THRU P8000-EXIT. DTSBR517 01024 PERFORM P8100-COMMON-FOOTING THRU P8100-EXIT. DTSBR517 01025 DTSBR517 01026 *TITLE-PAGE BEGIN DTSBR517 01027 DTSBR517 01028 DTSBR517 01029 PERFORM P6000-COMMON-HEADING THRU P6000-EXIT. DTSBR517 01030 PERFORM P6200-COMMON-HEADING THRU P6200-EXIT. DTSBR517 01031 DTSBR517 01032 PERFORM P9000-SECTION-C-HEADING THRU P9000-EXIT. DTSBR517 01033 PERFORM P9100-SECTION-C-HEADING THRU P9100-EXIT. DTSBR517 01034 DTSBR517 01035 MOVE SPACES TO WS-MESSAGE-LINE. DTSBR517 01036 DTSBR517 01037 PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT. DTSBR517 01038 PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT. DTSBR517 01039 DTSBR517 01040 MOVE ' ELIGIBLE -' TO WS-MESSAGE-LINE. DTSBR517 01041 DTSBR517 01042 PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT. DTSBR517 01043 PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT. DTSBR517 01044 DTSBR517 01045 MOVE 'SPECIALLY TAXED' TO WS-MESSAGE-LINE. DTSBR517 01046 DTSBR517 01047 PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT. DTSBR517 01048 PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT. DTSBR517 01049 DTSBR517 01050 MOVE ' SUBTOTAL' TO WS-LINE-TITLE. DTSBR517 01051 DTSBR517 01052 MOVE R517-ELG-SPECIAL-EMPLR-CNT DTSBR517 01053 TO WS-DISPLAY-EMPLR-CNT. DTSBR517 01054 DTSBR517 01055 COMPUTE WS-DISPLAY-TOT-WAGE-THOU ROUNDED DTSBR517 01056 = R517-ELG-SPECIAL-TOT-WAGE / 1000. DTSBR517 01057 DTSBR517 01058 COMPUTE WS-DISPLAY-TAX-WAGE-THOU ROUNDED DTSBR517 01059 = R517-ELG-SPECIAL-TAX-WAGE / 1000. DTSBR517 01060 DTSBR517 01061 COMPUTE WS-DISPLAY-BEN-CHARGED-THOU ROUNDED DTSBR517 01062 = R517-ELG-SPECIAL-BEN-CHARGED / 1000. DTSBR517 01063 DTSBR517 01064 COMPUTE WS-DISPLAY-EST-UI-PAID-THOU ROUNDED DTSBR517 01065 = R517-ELG-SPECIAL-EST-UI-PAID / 1000. DTSBR517 01066 DTSBR517 01067 IF WS-DISPLAY-TAX-WAGE-THOU NOT NUMERIC DTSBR517 01068 OR WS-DISPLAY-TAX-WAGE-THOU = ZERO DTSBR517 01069 DISPLAY 'WS-DISPLAY-TAX-WAGE-THOU = ' DTSBR517 01070 WS-DISPLAY-TAX-WAGE-THOU DTSBR517 01071 MOVE ZERO TO WS-DISPLAY-AVG-TAX-RATE DTSBR517 01072 ELSE DTSBR517 01073 COMPUTE WS-DISPLAY-AVG-TAX-RATE ROUNDED DTSBR517 01074 = (WS-DISPLAY-EST-UI-PAID-THOU DTSBR517 01075 / WS-DISPLAY-TAX-WAGE-THOU) * 100 DTSBR517 01076 ADD 0.0050 TO WS-DISPLAY-AVG-TAX-RATE. DTSBR517 01077 DTSBR517 01078 MOVE WS-DISPLAY-AVG-TAX-RATE3 TO TITLE-AVG-TAX-RATE. DTSBR517 01079 PERFORM P9400-TITLE-LINE THRU P9400-EXIT. DTSBR517 01080 PERFORM P9500-TITLE-LINE THRU P9500-EXIT. DTSBR517 01081 DTSBR517 01082 ADD WS-DISPLAY-EMPLR-CNT DTSBR517 01083 TO WS-TOTALS-EMPLR-CNT. DTSBR517 01084 DTSBR517 01085 ADD WS-DISPLAY-TOT-WAGE-THOU DTSBR517 01086 TO WS-TOTALS-TOT-WAGE-THOU. DTSBR517 01087 DTSBR517 01088 ADD WS-DISPLAY-TAX-WAGE-THOU DTSBR517 01089 TO WS-TOTALS-TAX-WAGE-THOU. DTSBR517 01090 DTSBR517 01091 ADD WS-DISPLAY-BEN-CHARGED-THOU DTSBR517 01092 TO WS-TOTALS-BEN-CHARGED-THOU. DTSBR517 01093 DTSBR517 01094 ADD WS-DISPLAY-EST-UI-PAID-THOU DTSBR517 01095 TO WS-TOTALS-EST-UI-PAID-THOU. DTSBR517 01096 DTSBR517 01097 DTSBR517 01098 MOVE SPACES TO WS-MESSAGE-LINE. DTSBR517 01099 DTSBR517 01100 PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT. DTSBR517 01101 PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT. DTSBR517 01102 DTSBR517 01103 PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT. DTSBR517 01104 PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT. DTSBR517 01105 DTSBR517 01106 MOVE ' TOTAL ELIGIBLE' TO WS-LINE-TITLE. DTSBR517 01107 DTSBR517 01108 MOVE WS-TOTALS-EMPLR-CNT DTSBR517 01109 TO WS-DISPLAY-EMPLR-CNT. DTSBR517 01110 DTSBR517 01111 MOVE WS-TOTALS-TOT-WAGE-THOU DTSBR517 01112 TO WS-DISPLAY-TOT-WAGE-THOU. DTSBR517 01113 DTSBR517 01114 MOVE WS-TOTALS-TAX-WAGE-THOU DTSBR517 01115 TO WS-DISPLAY-TAX-WAGE-THOU. DTSBR517 01116 DTSBR517 01117 MOVE WS-TOTALS-BEN-CHARGED-THOU DTSBR517 01118 TO WS-DISPLAY-BEN-CHARGED-THOU. DTSBR517 01119 DTSBR517 01120 MOVE WS-TOTALS-EST-UI-PAID-THOU DTSBR517 01121 TO WS-DISPLAY-EST-UI-PAID-THOU. DTSBR517 01122 DTSBR517 01123 IF WS-DISPLAY-TAX-WAGE-THOU NOT NUMERIC DTSBR517 01124 OR WS-DISPLAY-TAX-WAGE-THOU = ZERO DTSBR517 01125 DISPLAY 'WS-DISPLAY-TAX-WAGE-THOU = ' DTSBR517 01126 WS-DISPLAY-TAX-WAGE-THOU DTSBR517 01127 MOVE ZERO TO WS-DISPLAY-AVG-TAX-RATE DTSBR517 01128 ELSE DTSBR517 01129 COMPUTE WS-DISPLAY-AVG-TAX-RATE ROUNDED DTSBR517 01130 = (WS-DISPLAY-EST-UI-PAID-THOU DTSBR517 01131 / WS-DISPLAY-TAX-WAGE-THOU) * 100 DTSBR517 01132 ADD 0.0050 TO WS-DISPLAY-AVG-TAX-RATE. DTSBR517 01133 DTSBR517 01134 MOVE WS-DISPLAY-AVG-TAX-RATE3 TO TITLE-AVG-TAX-RATE. DTSBR517 01135 PERFORM P9400-TITLE-LINE THRU P9400-EXIT. DTSBR517 01136 PERFORM P9500-TITLE-LINE THRU P9500-EXIT. DTSBR517 01137 DTSBR517 01138 MOVE SPACES TO WS-MESSAGE-LINE. DTSBR517 01139 DTSBR517 01140 PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT. DTSBR517 01141 PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT. DTSBR517 01142 DTSBR517 01143 PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT. DTSBR517 01144 PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT. DTSBR517 01145 DTSBR517 01146 MOVE ' TOT INELIGIBLE' TO WS-LINE-TITLE. DTSBR517 01147 DTSBR517 01148 MOVE R517-INELG-EMPLR-CNT DTSBR517 01149 TO WS-DISPLAY-EMPLR-CNT. DTSBR517 01150 DTSBR517 01151 COMPUTE WS-DISPLAY-TOT-WAGE-THOU ROUNDED DTSBR517 01152 = R517-INELG-TOT-WAGE / 1000. DTSBR517 01153 DTSBR517 01154 COMPUTE WS-DISPLAY-TAX-WAGE-THOU ROUNDED DTSBR517 01155 = R517-INELG-TAX-WAGE / 1000. DTSBR517 01156 DTSBR517 01157 COMPUTE WS-DISPLAY-BEN-CHARGED-THOU ROUNDED DTSBR517 01158 = R517-INELG-BEN-CHARGED / 1000. DTSBR517 01159 DTSBR517 01160 COMPUTE WS-DISPLAY-EST-UI-PAID-THOU ROUNDED DTSBR517 01161 = R517-INELG-EST-UI-PAID / 1000. DTSBR517 01162 DTSBR517 01163 IF WS-DISPLAY-TAX-WAGE-THOU NOT NUMERIC DTSBR517 01164 OR WS-DISPLAY-TAX-WAGE-THOU = ZERO DTSBR517 01165 DISPLAY 'WS-DISPLAY-TAX-WAGE-THOU = ' DTSBR517 01166 WS-DISPLAY-TAX-WAGE-THOU DTSBR517 01167 MOVE ZERO TO WS-DISPLAY-AVG-TAX-RATE DTSBR517 01168 ELSE DTSBR517 01169 COMPUTE WS-DISPLAY-AVG-TAX-RATE ROUNDED DTSBR517 01170 = (WS-DISPLAY-EST-UI-PAID-THOU DTSBR517 01171 / WS-DISPLAY-TAX-WAGE-THOU) * 100 DTSBR517 01172 ADD 0.0050 TO WS-DISPLAY-AVG-TAX-RATE. DTSBR517 01173 DTSBR517 01174 MOVE WS-DISPLAY-AVG-TAX-RATE3 TO TITLE-AVG-TAX-RATE. DTSBR517 01175 PERFORM P9400-TITLE-LINE THRU P9400-EXIT. DTSBR517 01176 PERFORM P9500-TITLE-LINE THRU P9500-EXIT. DTSBR517 01177 DTSBR517 01178 ADD WS-DISPLAY-EMPLR-CNT DTSBR517 01179 TO WS-TOTALS-EMPLR-CNT. DTSBR517 01180 DTSBR517 01181 ADD WS-DISPLAY-TOT-WAGE-THOU DTSBR517 01182 TO WS-TOTALS-TOT-WAGE-THOU. DTSBR517 01183 DTSBR517 01184 ADD WS-DISPLAY-TAX-WAGE-THOU DTSBR517 01185 TO WS-TOTALS-TAX-WAGE-THOU. DTSBR517 01186 DTSBR517 01187 ADD WS-DISPLAY-BEN-CHARGED-THOU DTSBR517 01188 TO WS-TOTALS-BEN-CHARGED-THOU. DTSBR517 01189 DTSBR517 01190 ADD WS-DISPLAY-EST-UI-PAID-THOU DTSBR517 01191 TO WS-TOTALS-EST-UI-PAID-THOU. DTSBR517 01192 DTSBR517 01193 DTSBR517 01194 MOVE SPACES TO WS-MESSAGE-LINE. DTSBR517 01195 PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT. DTSBR517 01196 PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT. DTSBR517 01197 DTSBR517 01198 PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT. DTSBR517 01199 PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT. DTSBR517 01200 DTSBR517 01201 MOVE ' TOTAL ALL' TO WS-MESSAGE-LINE. DTSBR517 01202 DTSBR517 01203 PERFORM P9200-MESSAGE-LINE THRU P9200-EXIT. DTSBR517 01204 PERFORM P9300-MESSAGE-LINE THRU P9300-EXIT. DTSBR517 01205 DTSBR517 01206 MOVE ' SUBJECT ACCTS' TO WS-LINE-TITLE. DTSBR517 01207 MOVE ' SUBJECT ACCTS' TO WS-LINE-TITLE2. DTSBR517 01208 DTSBR517 01209 MOVE WS-TOTALS-EMPLR-CNT DTSBR517 01210 TO WS-DISPLAY-EMPLR-CNT. DTSBR517 01211 MOVE WS-TOTALS-EMPLR-CNT DTSBR517 01212 TO TITLE-EMPLR-CNT2. DTSBR517 01213 DTSBR517 01214 MOVE WS-TOTALS-TOT-WAGE-THOU DTSBR517 01215 TO WS-DISPLAY-TOT-WAGE-THOU. DTSBR517 01216 MOVE WS-TOTALS-TOT-WAGE-THOU DTSBR517 01217 TO TITLE-TOT-WAGE-THOU2. DTSBR517 01218 DTSBR517 01219 MOVE WS-TOTALS-TAX-WAGE-THOU DTSBR517 01220 TO WS-DISPLAY-TAX-WAGE-THOU. DTSBR517 01221 MOVE WS-TOTALS-TAX-WAGE-THOU DTSBR517 01222 TO TITLE-TAX-WAGE-THOU2. DTSBR517 01223 DTSBR517 01224 MOVE WS-TOTALS-BEN-CHARGED-THOU DTSBR517 01225 TO WS-DISPLAY-BEN-CHARGED-THOU. DTSBR517 01226 MOVE WS-TOTALS-BEN-CHARGED-THOU DTSBR517 01227 TO TITLE-BEN-CHARGED-THOU2. DTSBR517 01228 DTSBR517 01229 MOVE WS-TOTALS-EST-UI-PAID-THOU DTSBR517 01230 TO WS-DISPLAY-EST-UI-PAID-THOU. DTSBR517 01231 MOVE WS-TOTALS-EST-UI-PAID-THOU DTSBR517 01232 TO TITLE-EST-UI-PAID-THOU2. DTSBR517 01233 DTSBR517 01234 IF WS-DISPLAY-TAX-WAGE-THOU NOT NUMERIC DTSBR517 01235 OR WS-DISPLAY-TAX-WAGE-THOU = ZERO DTSBR517 01236 DISPLAY 'WS-DISPLAY-TAX-WAGE-THOU = ' DTSBR517 01237 WS-DISPLAY-TAX-WAGE-THOU DTSBR517 01238 MOVE ZERO TO WS-DISPLAY-AVG-TAX-RATE DTSBR517 01239 ELSE DTSBR517 01240 COMPUTE WS-DISPLAY-AVG-TAX-RATE ROUNDED DTSBR517 01241 = (WS-DISPLAY-EST-UI-PAID-THOU DTSBR517 01242 / WS-DISPLAY-TAX-WAGE-THOU) * 100 DTSBR517 01243 ADD 0.0050 TO WS-DISPLAY-AVG-TAX-RATE. DTSBR517 01244 DTSBR517 01245 MOVE WS-DISPLAY-AVG-TAX-RATE3 TO TITLE-AVG-TAX-RATE. DTSBR517 01246 MOVE WS-DISPLAY-AVG-TAX-RATE3 TO TITLE-AVG-TAX-RATE2. DTSBR517 01247 PERFORM P9400-TITLE-LINE THRU P9400-EXIT. DTSBR517 01248 * PERFORM P9500-TITLE-LINE THRU P9500-EXIT. DTSBR517 01249 PERFORM P9520-TITLE-LINE THRU P9520-EXIT. DTSBR517 01250 DTSBR517 01251 DTSBR517 01252 ADD +1 TO WS-PAGE-CNT. DTSBR517 01253 DTSBR517 01254 * GENERATE ETA204-COMMON-FOOTING. DTSBR517 01255 P5000-EXIT. DTSBR517 01256 EXIT. DTSBR517 01257 DTSBR517 01258 P5100-RATIO-LINE. DTSBR517 01259 MOVE R517-ELG-REG-MIN-RATIO (R517-ELG-REG-IDX) DTSBR517 01260 TO WS-DISPLAY-MIN-RATIO. DTSBR517 01261 DTSBR517 01262 MOVE R517-ELG-REG-MAX-RATIO (R517-ELG-REG-IDX) DTSBR517 01263 TO WS-DISPLAY-MAX-RATIO. DTSBR517 01264 DTSBR517 01265 MOVE R517-ELG-REG-EMPLR-CNT (R517-ELG-REG-IDX) DTSBR517 01266 TO WS-DISPLAY-EMPLR-CNT. DTSBR517 01267 DTSBR517 01268 COMPUTE WS-DISPLAY-TOT-WAGE-THOU ROUNDED DTSBR517 01269 = R517-ELG-REG-TOT-WAGE (R517-ELG-REG-IDX) / 1000. DTSBR517 01270 DTSBR517 01271 COMPUTE WS-DISPLAY-TAX-WAGE-THOU ROUNDED DTSBR517 01272 = R517-ELG-REG-TAX-WAGE (R517-ELG-REG-IDX) / 1000. DTSBR517 01273 DTSBR517 01274 COMPUTE WS-DISPLAY-BEN-CHARGED-THOU ROUNDED DTSBR517 01275 = R517-ELG-REG-BEN-CHARGED (R517-ELG-REG-IDX) / 1000. DTSBR517 01276 DTSBR517 01277 COMPUTE WS-DISPLAY-EST-UI-PAID-THOU ROUNDED DTSBR517 01278 = R517-ELG-REG-EST-UI-PAID (R517-ELG-REG-IDX) / 1000. DTSBR517 01279 DTSBR517 01280 IF WS-DISPLAY-TAX-WAGE-THOU NOT NUMERIC DTSBR517 01281 OR WS-DISPLAY-TAX-WAGE-THOU = ZERO DTSBR517 01282 DISPLAY 'WS-DISPLAY-TAX-WAGE-THOU = ' DTSBR517 01283 WS-DISPLAY-TAX-WAGE-THOU DTSBR517 01284 MOVE ZERO TO WS-DISPLAY-AVG-TAX-RATE DTSBR517 01285 ELSE DTSBR517 01286 COMPUTE WS-DISPLAY-AVG-TAX-RATE ROUNDED DTSBR517 01287 = (WS-DISPLAY-EST-UI-PAID-THOU DTSBR517 01288 / WS-DISPLAY-TAX-WAGE-THOU) * 100 DTSBR517 01289 ADD 0.0050 TO WS-DISPLAY-AVG-TAX-RATE. DTSBR517 01290 DTSBR517 01291 MOVE WS-DISPLAY-AVG-TAX-RATE3 TO DTL2-AVG-TAX-RATE. DTSBR517 01292 PERFORM P9600-RATIO-LINE THRU P9600-EXIT. DTSBR517 01293 PERFORM P9700-RATIO-LINE THRU P9700-EXIT. DTSBR517 01294 DTSBR517 01295 DTSBR517 01296 ADD WS-DISPLAY-EMPLR-CNT DTSBR517 01297 TO WS-TOTALS-EMPLR-CNT. DTSBR517 01298 DTSBR517 01299 ADD WS-DISPLAY-TOT-WAGE-THOU DTSBR517 01300 TO WS-TOTALS-TOT-WAGE-THOU. DTSBR517 01301 DTSBR517 01302 ADD WS-DISPLAY-TAX-WAGE-THOU DTSBR517 01303 TO WS-TOTALS-TAX-WAGE-THOU. DTSBR517 01304 DTSBR517 01305 ADD WS-DISPLAY-BEN-CHARGED-THOU DTSBR517 01306 TO WS-TOTALS-BEN-CHARGED-THOU. DTSBR517 01307 DTSBR517 01308 ADD WS-DISPLAY-EST-UI-PAID-THOU DTSBR517 01309 TO WS-TOTALS-EST-UI-PAID-THOU. DTSBR517 01310 P5100-EXIT. DTSBR517 01311 EXIT. DTSBR517 01312 EJECT DTSBR517 01313 DTSBR517 01314 P6000-COMMON-HEADING. DTSBR517 01315 DTSBR517 01316 WRITE REPORT-LISTING1 FROM HDR1-LINE-1 DTSBR517 01317 AFTER TOP-OF-PAGE DTSBR517 01318 WRITE REPORT-LISTING1 FROM HDR1-LINE-2 AFTER 1 DTSBR517 01319 WRITE REPORT-LISTING1 FROM HDR1-LINE-3 AFTER 1 DTSBR517 01320 WRITE REPORT-LISTING1 FROM HDR1-LINE-4 AFTER 1 DTSBR517 01321 WRITE REPORT-LISTING1 FROM HDR1-LINE-5 AFTER 1. DTSBR517 01322 DTSBR517 01323 P6000-EXIT. DTSBR517 01324 EXIT. DTSBR517 01325 DTSBR517 01326 P6200-COMMON-HEADING. DTSBR517 01327 DTSBR517 01328 MOVE HDR1-LINE-1 TO REPORT-LISTING1. DTSBR517 01329 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01330 WRITE TEXT-LINE. DTSBR517 01331 DTSBR517 01332 MOVE HDR1-LINE-2 TO REPORT-LISTING1. DTSBR517 01333 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01334 WRITE TEXT-LINE. DTSBR517 01335 DTSBR517 01336 MOVE HDR1-LINE-3 TO REPORT-LISTING1. DTSBR517 01337 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01338 WRITE TEXT-LINE. DTSBR517 01339 DTSBR517 01340 MOVE HDR1-LINE-4 TO REPORT-LISTING1. DTSBR517 01341 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01342 WRITE TEXT-LINE. DTSBR517 01343 DTSBR517 01344 MOVE HDR1-LINE-5 TO REPORT-LISTING1. DTSBR517 01345 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01346 WRITE TEXT-LINE. DTSBR517 01347 ADD +5 TO WRK-TEXT-OUT-REC-CNT. DTSBR517 01348 DTSBR517 01349 P6200-EXIT. DTSBR517 01350 EXIT. DTSBR517 01351 DTSBR517 01352 P7000-SECTION-A. DTSBR517 01353 DTSBR517 01354 MOVE WS-LINE1-COUNT TO DTL1-LINE1-COUNT. DTSBR517 01355 MOVE WS-LINE1-TOT-WAGES TO DTL1-LINE1-TOT-WAGES. DTSBR517 01356 MOVE WS-LINE1-TAX-WAGES TO DTL1-LINE1-TAX-WAGES. DTSBR517 01357 MOVE R517-LINE1A-COUNT TO DTL1-LINE1A-COUNT. DTSBR517 01358 MOVE R517-LINE1A-TOT-WAGES TO DTL1-LINE1A-TOT-WAGES. DTSBR517 01359 MOVE R517-LINE1A-TAX-WAGES TO DTL1-LINE1A-TAX-WAGES. DTSBR517 01360 MOVE R517-LINE1B-COUNT TO DTL1-LINE1B-COUNT. DTSBR517 01361 MOVE R517-LINE1B-TOT-WAGES TO DTL1-LINE1B-TOT-WAGES. DTSBR517 01362 MOVE R517-LINE1B-TAX-WAGES TO DTL1-LINE1B-TAX-WAGES. DTSBR517 01363 DTSBR517 01364 MOVE R517-LINE2-COUNT TO DTL1-LINE2-COUNT. DTSBR517 01365 MOVE R517-LINE2-TOT-WAGES TO DTL1-LINE2-TOT-WAGES. DTSBR517 01366 DTSBR517 01367 MOVE WS-LINE3-COUNT TO DTL1-LINE3-COUNT. DTSBR517 01368 MOVE WS-LINE3-TOT-WAGES TO DTL1-LINE3-TOT-WAGES. DTSBR517 01369 MOVE WS-LINE3-TAX-WAGES TO DTL1-LINE3-TAX-WAGES. DTSBR517 01370 MOVE R517-LINE3A-COUNT TO DTL1-LINE3A-COUNT. DTSBR517 01371 MOVE R517-LINE3A-TOT-WAGES TO DTL1-LINE3A-TOT-WAGES. DTSBR517 01372 MOVE R517-LINE3A-TAX-WAGES TO DTL1-LINE3A-TAX-WAGES. DTSBR517 01373 MOVE R517-LINE3B-COUNT TO DTL1-LINE3B-COUNT. DTSBR517 01374 MOVE R517-LINE3B-TOT-WAGES TO DTL1-LINE3B-TOT-WAGES. DTSBR517 01375 MOVE R517-LINE3B-TAX-WAGES TO DTL1-LINE3B-TAX-WAGES. DTSBR517 01376 DTSBR517 01377 MOVE WS-LINE4-COUNT TO DTL1-LINE4-COUNT. DTSBR517 01378 MOVE WS-LINE4-TOT-WAGES TO DTL1-LINE4-TOT-WAGES. DTSBR517 01379 MOVE WS-LINE4-TAX-WAGES TO DTL1-LINE4-TAX-WAGES. DTSBR517 01380 MOVE R517-LINE4A-COUNT TO DTL1-LINE4A-COUNT. DTSBR517 01381 MOVE R517-LINE4A-TOT-WAGES TO DTL1-LINE4A-TOT-WAGES. DTSBR517 01382 MOVE R517-LINE4A-TAX-WAGES TO DTL1-LINE4A-TAX-WAGES. DTSBR517 01383 MOVE R517-LINE4B-COUNT TO DTL1-LINE4B-COUNT. DTSBR517 01384 MOVE R517-LINE4B-TOT-WAGES TO DTL1-LINE4B-TOT-WAGES. DTSBR517 01385 MOVE R517-LINE4B-TAX-WAGES TO DTL1-LINE4B-TAX-WAGES. DTSBR517 01386 DTSBR517 01387 WRITE REPORT-LISTING1 FROM DTL1-LINE-6 AFTER 1 DTSBR517 01388 WRITE REPORT-LISTING1 FROM DTL1-LINE-7 AFTER 1 DTSBR517 01389 WRITE REPORT-LISTING1 FROM DTL1-LINE-8 AFTER 1 DTSBR517 01390 WRITE REPORT-LISTING1 FROM DTL1-LINE-9 AFTER 1 DTSBR517 01391 WRITE REPORT-LISTING1 FROM DTL1-LINE-10 AFTER 1 DTSBR517 01392 WRITE REPORT-LISTING1 FROM DTL1-LINE-11 AFTER 1 DTSBR517 01393 WRITE REPORT-LISTING1 FROM DTL1-LINE-12 AFTER 1 DTSBR517 01394 WRITE REPORT-LISTING1 FROM DTL1-LINE-13 AFTER 1 DTSBR517 01395 WRITE REPORT-LISTING1 FROM DTL1-LINE-14 AFTER 1 DTSBR517 01396 WRITE REPORT-LISTING1 FROM DTL1-LINE-15 AFTER 1 DTSBR517 01397 WRITE REPORT-LISTING1 FROM DTL1-LINE-16 AFTER 1 DTSBR517 01398 WRITE REPORT-LISTING1 FROM DTL1-LINE-17 AFTER 1 DTSBR517 01399 WRITE REPORT-LISTING1 FROM DTL1-LINE-18 AFTER 1 DTSBR517 01400 WRITE REPORT-LISTING1 FROM DTL1-LINE-19 AFTER 1 DTSBR517 01401 WRITE REPORT-LISTING1 FROM DTL1-LINE-20 AFTER 1 DTSBR517 01402 WRITE REPORT-LISTING1 FROM DTL1-LINE-21 AFTER 1 DTSBR517 01403 WRITE REPORT-LISTING1 FROM DTL1-LINE-22 AFTER 1 DTSBR517 01404 WRITE REPORT-LISTING1 FROM DTL1-LINE-23 AFTER 1 DTSBR517 01405 WRITE REPORT-LISTING1 FROM DTL1-LINE-24 AFTER 1 DTSBR517 01406 WRITE REPORT-LISTING1 FROM DTL1-LINE-25 AFTER 1 DTSBR517 01407 WRITE REPORT-LISTING1 FROM DTL1-LINE-26 AFTER 1 DTSBR517 01408 WRITE REPORT-LISTING1 FROM DTL1-LINE-27 AFTER 1 DTSBR517 01409 WRITE REPORT-LISTING1 FROM DTL1-LINE-28 AFTER 1 DTSBR517 01410 WRITE REPORT-LISTING1 FROM DTL1-LINE-29 AFTER 1 DTSBR517 01411 WRITE REPORT-LISTING1 FROM DTL1-LINE-30 AFTER 1. DTSBR517 01412 DTSBR517 01413 P7000-EXIT. DTSBR517 01414 EXIT. DTSBR517 01415 DTSBR517 01416 P7200-SECTION-B. DTSBR517 01417 DTSBR517 01418 MOVE WS-LINE5-CHARGES TO DTL1-LINE5-CHARGES. DTSBR517 01419 MOVE WS-LINE6-CHARGES TO DTL1-LINE6-CHARGES. DTSBR517 01420 MOVE R517-LINE6A-CHARGES TO DTL1-LINE6A-CHARGES. DTSBR517 01421 MOVE R517-LINE6A1-CHARGES TO DTL1-LINE6A1-CHARGES. DTSBR517 01422 MOVE WS-LINE6A2-CHARGES TO DTL1-LINE6A2-CHARGES. DTSBR517 01423 MOVE R517-LINE6B-CHARGES TO DTL1-LINE6B-CHARGES. DTSBR517 01424 MOVE WS-LINE7-CHARGES TO DTL1-LINE7-CHARGES. DTSBR517 01425 MOVE R517-LINE7A-CHARGES TO DTL1-LINE7A-CHARGES. DTSBR517 01426 MOVE R517-LINE7B-CHARGES TO DTL1-LINE7B-CHARGES. DTSBR517 01427 MOVE R517-YR-2-AVG-TAX-RATE TO DTL1-LINE51-RTE-TAX-WGE. DTSBR517 01428 MOVE R517-YR-2-AVG-TOT-RATE TO DTL1-LINE53-RTE-TOT-WGE. DTSBR517 01429 DTSBR517 01430 WRITE REPORT-LISTING1 FROM DTL1-LINE-31 AFTER 1 DTSBR517 01431 WRITE REPORT-LISTING1 FROM DTL1-LINE-32 AFTER 1 DTSBR517 01432 WRITE REPORT-LISTING1 FROM DTL1-LINE-33 AFTER 1 DTSBR517 01433 WRITE REPORT-LISTING1 FROM DTL1-LINE-34 AFTER 1 DTSBR517 01434 WRITE REPORT-LISTING1 FROM DTL1-LINE-35 AFTER 1 DTSBR517 01435 WRITE REPORT-LISTING1 FROM DTL1-LINE-36 AFTER 1 DTSBR517 01436 WRITE REPORT-LISTING1 FROM DTL1-LINE-37 AFTER 1 DTSBR517 01437 WRITE REPORT-LISTING1 FROM DTL1-LINE-38 AFTER 1 DTSBR517 01438 WRITE REPORT-LISTING1 FROM DTL1-LINE-39 AFTER 1 DTSBR517 01439 WRITE REPORT-LISTING1 FROM DTL1-LINE-40 AFTER 1 DTSBR517 01440 WRITE REPORT-LISTING1 FROM DTL1-LINE-41 AFTER 1 DTSBR517 01441 WRITE REPORT-LISTING1 FROM DTL1-LINE-42 AFTER 1 DTSBR517 01442 WRITE REPORT-LISTING1 FROM DTL1-LINE-43 AFTER 1 DTSBR517 01443 WRITE REPORT-LISTING1 FROM DTL1-LINE-44 AFTER 1 DTSBR517 01444 WRITE REPORT-LISTING1 FROM DTL1-LINE-45 AFTER 1 DTSBR517 01445 WRITE REPORT-LISTING1 FROM DTL1-LINE-46 AFTER 1 DTSBR517 01446 WRITE REPORT-LISTING1 FROM DTL1-LINE-47 AFTER 1. DTSBR517 01447 DTSBR517 01448 P7200-EXIT. DTSBR517 01449 EXIT. DTSBR517 01450 DTSBR517 01451 P7400-COMM-SIGN. DTSBR517 01452 DTSBR517 01453 WRITE REPORT-LISTING1 FROM DTL1-LINE-48 AFTER 1 DTSBR517 01454 WRITE REPORT-LISTING1 FROM DTL1-LINE-49 AFTER 1 DTSBR517 01455 WRITE REPORT-LISTING1 FROM DTL1-LINE-50 AFTER 1 DTSBR517 01456 WRITE REPORT-LISTING1 FROM DTL1-LINE-51 AFTER 1 DTSBR517 01457 WRITE REPORT-LISTING1 FROM DTL1-LINE-52 AFTER 1 DTSBR517 01458 WRITE REPORT-LISTING1 FROM DTL1-LINE-53 AFTER 1 DTSBR517 01459 WRITE REPORT-LISTING1 FROM DTL1-LINE-54 AFTER 1 DTSBR517 01460 WRITE REPORT-LISTING1 FROM DTL1-LINE-55 AFTER 1 DTSBR517 01461 WRITE REPORT-LISTING1 FROM DTL1-LINE-56 AFTER 1 DTSBR517 01462 WRITE REPORT-LISTING1 FROM DTL1-LINE-57 AFTER 1. DTSBR517 01463 WRITE REPORT-LISTING1 FROM DTL1-LINE-58 AFTER 1. DTSBR517 01464 WRITE REPORT-LISTING1 FROM DTL1-LINE-59 AFTER 1. DTSBR517 01465 WRITE REPORT-LISTING1 FROM DTL1-LINE-60 AFTER 1. DTSBR517 01466 WRITE REPORT-LISTING1 FROM DTL1-LINE-61 AFTER 1. DTSBR517 01467 DTSBR517 01468 P7400-EXIT. DTSBR517 01469 EXIT. DTSBR517 01470 DTSBR517 01471 DTSBR517 01472 P8000-COMMON-FOOTING. DTSBR517 01473 DTSBR517 01474 WRITE REPORT-LISTING1 FROM FOOT-LINE-1 AFTER 1 DTSBR517 01475 WRITE REPORT-LISTING1 FROM FOOT-LINE-2 AFTER 1 DTSBR517 01476 WRITE REPORT-LISTING1 FROM FOOT-LINE-3 AFTER 1. DTSBR517 01477 DTSBR517 01478 P8000-EXIT. DTSBR517 01479 EXIT. DTSBR517 01480 DTSBR517 01481 P8100-COMMON-FOOTING. DTSBR517 01482 DTSBR517 01483 MOVE FOOT-LINE-1 TO REPORT-LISTING1. DTSBR517 01484 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01485 WRITE TEXT-LINE. DTSBR517 01486 DTSBR517 01487 MOVE FOOT-LINE-2 TO REPORT-LISTING1. DTSBR517 01488 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01489 WRITE TEXT-LINE. DTSBR517 01490 DTSBR517 01491 MOVE FOOT-LINE-4 TO REPORT-LISTING1. DTSBR517 01492 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01493 WRITE TEXT-LINE. DTSBR517 01494 ADD +3 TO WRK-TEXT-OUT-REC-CNT . DTSBR517 01495 DTSBR517 01496 P8100-EXIT. DTSBR517 01497 EXIT. DTSBR517 01498 DTSBR517 01499 P9000-SECTION-C-HEADING. DTSBR517 01500 DTSBR517 01501 MOVE R517-RATE-YEAR-TX-WG-BASE TO HDR2-RATE-YEAR-TX-WG-BASE. DTSBR517 01502 MOVE R517-RY-MINUS-ONE-TX-WG-BASE TO DTSBR517 01503 HDR2-RY-MINUS-ONE-TX-WG-BASE. DTSBR517 01504 MOVE R517-RY-MINUS-TWO-TX-WG-BASE TO DTSBR517 01505 HDR2-RY-MINUS-TWO-TX-WG-BASE. DTSBR517 01506 WRITE REPORT-LISTING1 FROM HDR2-LINE-6 AFTER 1 DTSBR517 01507 WRITE REPORT-LISTING1 FROM HDR2-LINE-7 AFTER 1 DTSBR517 01508 WRITE REPORT-LISTING1 FROM HDR2-LINE-8 AFTER 1 DTSBR517 01509 WRITE REPORT-LISTING1 FROM HDR2-LINE-9 AFTER 1 DTSBR517 01510 WRITE REPORT-LISTING1 FROM HDR2-LINE-10 AFTER 1 DTSBR517 01511 WRITE REPORT-LISTING1 FROM HDR2-LINE-11 AFTER 1 DTSBR517 01512 WRITE REPORT-LISTING1 FROM HDR2-LINE-12 AFTER 1 DTSBR517 01513 WRITE REPORT-LISTING1 FROM HDR2-LINE-13 AFTER 1 DTSBR517 01514 WRITE REPORT-LISTING1 FROM HDR2-LINE-14 AFTER 1 DTSBR517 01515 WRITE REPORT-LISTING1 FROM HDR2-LINE-15 AFTER 1 DTSBR517 01516 WRITE REPORT-LISTING1 FROM HDR2-LINE-16 AFTER 1 DTSBR517 01517 WRITE REPORT-LISTING1 FROM HDR2-LINE-17 AFTER 1. DTSBR517 01518 DTSBR517 01519 P9000-EXIT. DTSBR517 01520 EXIT. DTSBR517 01521 DTSBR517 01522 P9100-SECTION-C-HEADING. DTSBR517 01523 DTSBR517 01524 MOVE HDR2-LINE-6 TO REPORT-LISTING1. DTSBR517 01525 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01526 WRITE TEXT-LINE. DTSBR517 01527 DTSBR517 01528 MOVE HDR2-LINE-7 TO REPORT-LISTING1. DTSBR517 01529 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01530 WRITE TEXT-LINE. DTSBR517 01531 DTSBR517 01532 MOVE HDR2-LINE-8 TO REPORT-LISTING1. DTSBR517 01533 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01534 WRITE TEXT-LINE. DTSBR517 01535 DTSBR517 01536 MOVE HDR2-LINE-9 TO REPORT-LISTING1. DTSBR517 01537 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01538 WRITE TEXT-LINE. DTSBR517 01539 DTSBR517 01540 MOVE HDR2-LINE-10 TO REPORT-LISTING1. DTSBR517 01541 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01542 WRITE TEXT-LINE. DTSBR517 01543 DTSBR517 01544 MOVE HDR2-LINE-11 TO REPORT-LISTING1. DTSBR517 01545 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01546 WRITE TEXT-LINE. DTSBR517 01547 DTSBR517 01548 MOVE HDR2-LINE-12 TO REPORT-LISTING1. DTSBR517 01549 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01550 WRITE TEXT-LINE. DTSBR517 01551 DTSBR517 01552 MOVE HDR2-LINE-13 TO REPORT-LISTING1. DTSBR517 01553 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01554 WRITE TEXT-LINE. DTSBR517 01555 DTSBR517 01556 MOVE HDR2-LINE-14 TO REPORT-LISTING1. DTSBR517 01557 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01558 WRITE TEXT-LINE. DTSBR517 01559 DTSBR517 01560 MOVE HDR2-LINE-15 TO REPORT-LISTING1. DTSBR517 01561 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01562 WRITE TEXT-LINE. DTSBR517 01563 DTSBR517 01564 MOVE HDR2-LINE-16 TO REPORT-LISTING1. DTSBR517 01565 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01566 WRITE TEXT-LINE. DTSBR517 01567 DTSBR517 01568 MOVE HDR2-LINE-17 TO REPORT-LISTING1. DTSBR517 01569 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01570 WRITE TEXT-LINE. DTSBR517 01571 ADD +12 TO WRK-TEXT-OUT-REC-CNT. DTSBR517 01572 DTSBR517 01573 P9100-EXIT. DTSBR517 01574 EXIT. DTSBR517 01575 DTSBR517 01576 P9200-MESSAGE-LINE. DTSBR517 01577 DTSBR517 01578 WRITE REPORT-LISTING1 FROM MSG-LINE-1 AFTER 1. DTSBR517 01579 DTSBR517 01580 P9200-EXIT. DTSBR517 01581 EXIT. DTSBR517 01582 DTSBR517 01583 P9300-MESSAGE-LINE. DTSBR517 01584 DTSBR517 01585 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01586 WRITE TEXT-LINE. DTSBR517 01587 ADD +1 TO WRK-TEXT-OUT-REC-CNT. DTSBR517 01588 DTSBR517 01589 P9300-EXIT. DTSBR517 01590 EXIT. DTSBR517 01591 DTSBR517 01592 P9400-TITLE-LINE. DTSBR517 01593 DTSBR517 01594 * MOVE WS-DISPLAY-AVG-TAX-RATE TO TITLE-AVG-TAX-RATE. DTSBR517 01595 MOVE WS-DISPLAY-EMPLR-CNT TO TITLE-EMPLR-CNT. DTSBR517 01596 MOVE WS-DISPLAY-TOT-WAGE-THOU TO TITLE-TOT-WAGE-THOU. DTSBR517 01597 MOVE WS-DISPLAY-TAX-WAGE-THOU TO TITLE-TAX-WAGE-THOU. DTSBR517 01598 MOVE WS-DISPLAY-BEN-CHARGED-THOU TO TITLE-BEN-CHARGED-THOU. DTSBR517 01599 MOVE WS-DISPLAY-EST-UI-PAID-THOU TO TITLE-EST-UI-PAID-THOU. DTSBR517 01600 DTSBR517 01601 WRITE REPORT-LISTING1 FROM TITLE-LINE-1 AFTER 1. DTSBR517 01602 DTSBR517 01603 P9400-EXIT. DTSBR517 01604 EXIT. DTSBR517 01605 DTSBR517 01606 P9500-TITLE-LINE. DTSBR517 01607 DTSBR517 01608 MOVE TITLE-LINE-1 TO REPORT-LISTING1. DTSBR517 01609 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01610 WRITE TEXT-LINE. DTSBR517 01611 ADD +1 TO WRK-TEXT-OUT-REC-CNT. DTSBR517 01612 DTSBR517 01613 P9500-EXIT. DTSBR517 01614 EXIT. DTSBR517 01615 DTSBR517 01616 P9520-TITLE-LINE. DTSBR517 01617 DTSBR517 01618 MOVE TITLE-LINE-2 TO REPORT-LISTING1. DTSBR517 01619 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01620 WRITE TEXT-LINE. DTSBR517 01621 ADD +1 TO WRK-TEXT-OUT-REC-CNT. DTSBR517 01622 DTSBR517 01623 P9520-EXIT. DTSBR517 01624 EXIT. DTSBR517 01625 DTSBR517 01626 P9600-RATIO-LINE. DTSBR517 01627 DTSBR517 01628 MOVE WS-DISPLAY-MIN-RATIO TO DTL2-MIN-RATIO. DTSBR517 01629 MOVE WS-DISPLAY-MAX-RATIO TO DTL2-MAX-RATIO. DTSBR517 01630 * MOVE WS-DISPLAY-AVG-TAX-RATE TO DTL2-AVG-TAX-RATE. DTSBR517 01631 MOVE WS-DISPLAY-EMPLR-CNT TO DTL2-EMPLR-CNT. DTSBR517 01632 MOVE WS-DISPLAY-TOT-WAGE-THOU TO DTL2-TOT-WAGE-THOU. DTSBR517 01633 MOVE WS-DISPLAY-TAX-WAGE-THOU TO DTL2-TAX-WAGE-THOU. DTSBR517 01634 MOVE WS-DISPLAY-BEN-CHARGED-THOU TO DTL2-BEN-CHARGED-THOU. DTSBR517 01635 MOVE WS-DISPLAY-EST-UI-PAID-THOU TO DTL2-EST-UI-PAID-THOU. DTSBR517 01636 DTSBR517 01637 WRITE REPORT-LISTING1 FROM RATIO-LINE-1 AFTER 1. DTSBR517 01638 DTSBR517 01639 P9600-EXIT. DTSBR517 01640 EXIT. DTSBR517 01641 DTSBR517 01642 P9700-RATIO-LINE. DTSBR517 01643 DTSBR517 01644 MOVE RATIO-LINE-1 TO REPORT-LISTING1. DTSBR517 01645 MOVE TEXT-REC TO TEXT-LINE. DTSBR517 01646 WRITE TEXT-LINE. DTSBR517 01647 ADD +1 TO WRK-TEXT-OUT-REC-CNT. DTSBR517 01648 DTSBR517 01649 P9700-EXIT. DTSBR517 01650 EXIT. DTSBR517 01651 DTSBR517 01652 T1000-TERMINATE. DTSBR517 01653 DTSBR517 01654 DISPLAY DTSBR517 01655 '*** NUMBER OF SECTION-C RECORDS OUTPUT: ' DTSBR517 01656 WRK-TEXT-OUT-REC-CNT. DTSBR517 01657 DTSBR517 01658 CLOSE PRT-FILE SECTION-C-TEXT-FILE. DTSBR517 01659 DTSBR517 01660 T1000-EXIT. DTSBR517 01661 EXIT. DTSBR517 01662 EJECT DTSBR517 01663 S001-DATE. DTSBR517 01664 DTSBR517 01665 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR517 01666 DTSBR517 01667 S001-EXIT. DTSBR517 01668 EXIT. DTSBR517 01669 DTSBR517 01670 *S999-ABEND. DTSBR517 01671 * DTSBR517 01672 * CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR517 01673 * DTSBR517 01674 *S999-EXIT. DTSBR517 01675 * EXIT. DTSBR517