1677 lines
133 KiB
COBOL
1677 lines
133 KiB
COBOL
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
|