00001 IDENTIFICATION DIVISION. 12/18/23 00002 PROGRAM-ID. DTSBR521. DTSBR521 00003 AUTHOR. D.SHEPPERSON LV013 00004 DATE-WRITTEN. MAY 1999. DTSBR521 00005 DATE-COMPILED. DTSBR521 00006 SKIP3 DTSBR521 00007 ***** DTSBR521 00008 * DTSBR521 00009 * FUNCTION: EMPLOYER EXPERIENCE RATING SUMMARY DTSBR521 00010 * - RATE TABLE SUMMARY AS OF YY/Q DTSBR521 00011 * DTSBR521 00012 * CALLING SEQUENCE: DTSBD750 WRITES DTSIR521 RECORDS DTSBR521 00013 * DTSBR521 READS DTSIR521 RECORDS DTSBR521 00014 * TO PRODUCE THE RATE ASSIGNMENT REPORT. DTSBR521 00015 * DTSBR521 00016 * MODIFICATION HISTORY: DTSBR521 00017 * DTSBR521 00018 * 11-25-97 INITIAL DEVELOPMENT DTSBR521 00019 * REFERENCE RFP #TCL 227 AUTHOR OF CHANGE - EHH DTSBR521 00020 * DTSBR521 00021 * 05-18-99 MODIFIED TO MEET DUTAS PROGRAMMING SPECIFICATIONS DTSBR521 00022 * REFERENCE RFP #**** AUTHOR OF CHANGE - DVS DTSBR521 00023 * DTSBR521 00024 * DTSBR521 00025 * DESCRIPTION: DTSBR521 00026 * DTSBR521 00027 * THIS MODULE GENERATES THE EMPLOYER EXPERIENCE RATING DTSBR521 00028 * SUMMARY REPORT. DTSBR521 00029 * DTSBR521 00030 * DTSBR521 00031 * RECORDS READ: DTSBR521 00032 * DTSBR521 00033 * NONE. DTSBR521 00034 * DTSBR521 00035 * REFERENCE FILE RECORDS READ: DTSBR521 00036 * DTSBR521 00037 * FUIR. DTSBR521 00038 * DTSBR521 00039 * PRINTED OUTPUTS: DTSBR521 00040 * DTSBR521 00041 * 521R1 EMPLOYER ANNUAL RATE SUMMARY REPORT. DTSBR521 00042 * DTSBR521 00043 * DTSBR521 00044 * RECORDS WRITTEN: DTSBR521 00045 * DTSBR521 00046 * NONE. DTSBR521 00047 * DTSBR521 00048 * DTSBR521 00049 * MODULES CALLED: DTSBR521 00050 * DTSBR521 00051 * DTSBU001 EMP REGISTRATION CODES EDIT/DESCRIPTION DTSBR521 00052 * DTSBU004 QUARTER CONVERSION MODULE DTSBR521 00053 * DTSBU056 UI RATE DESCRIPTION MODULE DTSBR521 00054 * DTSBU057 FORMAT RESERVE RATIO FOR DISPLAY ON PRINTED DTSBR521 00055 * OUTPUT. DTSBR521 00056 * DTSBR521 00057 ***** DTSBR521 00058 EJECT DTSBR521 00059 ENVIRONMENT DIVISION. DTSBR521 00060 DTSBR521 00061 CONFIGURATION SECTION. DTSBR521 00062 SPECIAL-NAMES. C01 IS TOP-OF-PAGE. DTSBR521 00063 DTSBR521 00064 INPUT-OUTPUT SECTION. DTSBR521 00065 DTSBR521 00066 FILE-CONTROL. DTSBR521 00067 SELECT PRT-FILE ASSIGN TO RPT521R1. DTSBR521 00068 DTSBR521 00069 DATA DIVISION. DTSBR521 00070 DTSBR521 00071 FILE SECTION. DTSBR521 00072 DTSBR521 00073 FD PRT-FILE DTSBR521 00074 RECORDING MODE IS F. DTSBR521 00075 01 PRT-RECORD PIC X(165). CL*11 00076 DTSBR521 00077 EJECT DTSBR521 00078 WORKING-STORAGE SECTION. DTSBR521 000785 77 PAN-VALET PICTURE X(24) VALUE '013DTSBR521 12/18/23'. DTSBR521 00079 77 PAN-VALET PICTURE X(24) VALUE '223DTSBR521 11/28/01'. DTSBR521 00080 DTSBR521 00081 01 WRK-AREA. DTSBR521 00082 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +521.DTSBR521 00083 05 FIRST-TIME-IND PIC X(01) VALUE 'Y'. DTSBR521 00084 05 ABEND-MSG PIC X(60). DTSBR521 00085 DTSBR521 00086 05 WS-LINE-CNT PIC S9(02) COMP-3 VALUE 60. DTSBR521 00087 05 WS-LINE-CNT2 PIC S9(02) COMP-3 VALUE +0. DTSBR521 00088 05 WS-PAGE-CNT PIC S9(05) COMP-3 VALUE +0. DTSBR521 00089 DTSBR521 00090 05 WS-SUB PIC S9(04) COMP. DTSBR521 00091 05 WS-OUTPUT-HEADING PIC X(55). DTSBR521 00092 05 WS-FUIR-MIN-RATIO PIC S9(02)V9(05). DTSBR521 00093 05 WS-FUIR-MAX-RATIO PIC S9(02)V9(05). DTSBR521 00094 05 WS-FUIR-UI-RATE PIC S9(01)V9999 DTSBR521 00095 COMP-3 VALUE 0. DTSBR521 00096 05 WS-FUIR-UI-RATE-D PIC X(07). DTSBR521 00097 05 WS-EFF-QTR-UNPACK PIC 9(05). DTSBR521 00098 05 WS-OUT-TAXABLE-WAGES1 PIC S9(11)V99. DTSBR521 00099 05 WS-OUT-TAXABLE-WAGES2 PIC S9(11)V99. DTSBR521 00100 05 WS-OUT-TAXABLE-WAGES3 PIC S9(11)V99. CL**2 00101 05 WS-UI-RATE-CATEGORY PIC X. DTSBR521 00102 05 WS-TAX-QTR-FROM PIC X(04). DTSBR521 00103 05 WS-TAX-QTR-THRU PIC X(04). DTSBR521 00104 05 WS-TAX-PD-FROM-THRU. DTSBR521 00105 10 WS-TAX-PD-FROM-DT PIC X(04). DTSBR521 00106 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00107 10 FILLER PIC X(01) VALUE '-'. DTSBR521 00108 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00109 10 WS-TAX-PD-THRU-DT PIC X(04). DTSBR521 00110 05 WS-TRUST-FND-FROM-THRU. DTSBR521 00111 10 WS-TRUST-FROM-DT PIC X(04). DTSBR521 00112 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00113 10 FILLER PIC X(01) VALUE '-'. DTSBR521 00114 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00115 10 WS-TRUST-THRU-DT PIC X(04). DTSBR521 00116 05 WS-BENEFIT-CHG-FROM-THRU. DTSBR521 00117 10 WS-BENEF-FROM-DT PIC X(04). DTSBR521 00118 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00119 10 FILLER PIC X(01) VALUE '-'. DTSBR521 00120 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00121 10 WS-BENEF-THRU-DT PIC X(04). DTSBR521 00122 05 WS-TAX-WAGE1-FROM-THRU. DTSBR521 00123 10 WS-TAX-WAGE1-FROM PIC X(04). DTSBR521 00124 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00125 10 FILLER PIC X(01) VALUE '-'. DTSBR521 00126 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00127 10 WS-TAX-WAGE1-THRU PIC X(04). DTSBR521 00128 05 WS-TAX-WAGE2-FROM-THRU. DTSBR521 00129 10 WS-TAX-WAGE2-FROM PIC X(04). DTSBR521 00130 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00131 10 FILLER PIC X(01) VALUE '-'. DTSBR521 00132 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00133 10 WS-TAX-WAGE2-THRU PIC X(04). DTSBR521 00134 05 WS-TAX-WAGE3-FROM-THRU. CL**2 00135 10 WS-TAX-WAGE3-FROM PIC X(04). CL**2 00136 10 FILLER PIC X(01) VALUE SPACE. CL**2 00137 10 FILLER PIC X(01) VALUE '-'. CL**2 00138 10 FILLER PIC X(01) VALUE SPACE. CL**2 00139 10 WS-TAX-WAGE3-THRU PIC X(04). CL**2 00140 EJECT DTSBR521 00141 01 WS-OUTPUT-LINE. DTSBR521 00142 10 WS-REG-UI-RATE PIC S9V9999 COMP-3. DTSBR521 00143 10 WS-REG-UI-RATE-D PIC X(07). DTSBR521 00144 10 WS-REG-TRUST-FUND-INT PIC S9(11)V99 COMP-3. CL**6 00145 10 WS-REG-BENEFITS-CHGD PIC S9(11)V99 COMP-3. CL**6 00146 10 WS-REG-MIN-RATIO PIC S9(02)V99. DTSBR521 00147 10 WS-REG-MAX-RATIO PIC S9(02)V99. DTSBR521 00148 10 WS-REG-EMPL-COUNT PIC S9(07) COMP-3. DTSBR521 00149 10 WS-REG-UI-TAX-PAID PIC S9(11)V99 COMP-3. CL**6 00150 10 WS-REG-CURRENT-RESERVE PIC S9(11)V99 COMP-3. CL**6 00151 10 WS-REG-TAXABLE-WAGES1 PIC S9(11)V99 COMP-3. DTSBR521 00152 10 WS-REG-TAXABLE-WAGES2 PIC S9(11)V99 COMP-3. DTSBR521 00153 10 WS-REG-TAXABLE-WAGES3 PIC S9(11)V99 COMP-3. CL**2 00154 EJECT DTSBR521 00155 01 WS-OUTPUT-CLASSIFIED. DTSBR521 00156 05 WS-CLASSF-FIELDS. DTSBR521 00157 10 WS-CLS-TRUST-FUND-INT PIC S9(11)V99 COMP-3. CL**6 00158 10 WS-CLS-BENEFITS-CHGD PIC S9(11)V99 COMP-3. CL**6 00159 10 WS-CLS-EMPL-COUNT PIC S9(07) COMP-3. DTSBR521 00160 10 WS-CLS-UI-RATE PIC 99V9. DTSBR521 00161 10 WS-CLS-UI-TAX-PAID PIC S9(11)V99 COMP-3. CL**6 00162 10 WS-CLS-CURRENT-RESERVE PIC S9(11)V99 COMP-3. CL**6 00163 10 WS-CLS-TAXABLE-WAGES1 PIC S9(11)V99 COMP-3. DTSBR521 00164 10 WS-CLS-TAXABLE-WAGES2 PIC S9(11)V99 COMP-3. DTSBR521 00165 10 WS-CLS-TAXABLE-WAGES3 PIC S9(11)V99 COMP-3. CL**2 00166 EJECT DTSBR521 00167 01 WS-EMPLR-AREA. DTSBR521 00168 05 WS-EMPLR-FIELDS. DTSBR521 00169 10 WS-EMP-UI-TAX-PAID PIC S9(11)V99 COMP-3. CL**6 00170 10 WS-EMP-TRUST-FUND-INT PIC S9(11)V99 COMP-3. CL**6 00171 10 WS-EMP-BENEFITS-CHGD PIC S9(11)V99 COMP-3. CL**6 00172 10 WS-EMP-EMPL-COUNT PIC S9(07) COMP-3. DTSBR521 00173 10 WS-EMP-UI-RATE PIC X(07). DTSBR521 00174 10 WS-EMP-CURRENT-RESERVE PIC S9(11)V99 COMP-3. CL**6 00175 10 WS-EMP-TAXABLE-WAGES1 PIC S9(11)V99 COMP-3. DTSBR521 00176 10 WS-EMP-TAXABLE-WAGES2 PIC S9(11)V99 COMP-3. DTSBR521 00177 10 WS-EMP-TAXABLE-WAGES3 PIC S9(11)V99 COMP-3. CL**2 00178 DTSBR521 00179 01 WS-GRAND-AREA. DTSBR521 00180 05 WS-GRAND-TOTAL-FIELDS. DTSBR521 00181 10 WS-GRD-TAXABLE-WAGES1 PIC S9(11)V99 COMP-3. DTSBR521 00182 10 WS-GRD-TAXABLE-WAGES2 PIC S9(11)V99 COMP-3. DTSBR521 00183 10 WS-GRD-TAXABLE-WAGES3 PIC S9(11)V99 COMP-3. CL**2 00184 10 WS-GRD-TRUST-FUND-INT PIC S9(11)V99 COMP-3. CL**6 00185 10 WS-GRD-BENEFITS-CHGD PIC S9(11)V99 COMP-3. CL**6 00186 10 WS-GRD-EMPLR-COUNT PIC S9(07) COMP-3. DTSBR521 00187 10 WS-GRD-UI-TAX-PAID PIC S9(11)V99 COMP-3. CL**6 00188 10 WS-GRD-CURRENT-RESERVE PIC S9(11)V99 COMP-3. CL**6 00189 EJECT DTSBR521 00190 01 FUIR-REC. DTSBR521 00191 ++INCLUDE DTSIFUIR DTSBR521 00192 EJECT DTSBR521 00193 01 L001-LINK-AREA. DTSBR521 00194 ++INCLUDE DTSIL001 DTSBR521 00195 EJECT DTSBR521 00196 01 L004-LINK-AREA. DTSBR521 00197 ++INCLUDE DTSIL004 DTSBR521 00198 EJECT DTSBR521 00199 01 L056-LINK-AREA. DTSBR521 00200 ++INCLUDE DTSIL056 DTSBR521 00201 EJECT DTSBR521 00202 01 L057-LINK-AREA. DTSBR521 00203 ++INCLUDE DTSIL057 DTSBR521 00204 EJECT DTSBR521 00205 01 L931-LINK-AREA. DTSBR521 00206 ++INCLUDE DTSIL931 DTSBR521 00207 EJECT DTSBR521 00208 01 FSKL-REC. DTSBR521 00209 ++INCLUDE DTSIFSKL DTSBR521 00210 EJECT DTSBR521 00211 01 PAGE-HEADING. DTSBR521 00212 05 HDR-LINE-1. DTSBR521 00213 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00214 10 FILLER PIC X(05) DTSBR521 00215 VALUE '521R1'. DTSBR521 00216 10 FILLER PIC X(34) VALUE SPACES. DTSBR521 00217 10 HDR-AGY-NAME-LINE1 PIC X(50). DTSBR521 00218 10 FILLER PIC X(28) VALUE SPACES. DTSBR521 00219 10 FILLER PIC X(05) DTSBR521 00220 VALUE 'DATE:'. DTSBR521 00221 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00222 10 HDR-SYS-DATE PIC X(08). DTSBR521 00223 05 HDR-LINE-2. DTSBR521 00224 10 FILLER PIC X(40) VALUE SPACES. DTSBR521 00225 10 HDR-AGY-NAME-LINE2 PIC X(50). DTSBR521 00226 10 FILLER PIC X(28) VALUE SPACES. DTSBR521 00227 10 FILLER PIC X(05) DTSBR521 00228 VALUE 'TIME:'. DTSBR521 00229 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00230 10 HDR-SYS-TIME PIC X(08). DTSBR521 00231 05 HDR-LINE-3. DTSBR521 00232 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00233 10 FILLER PIC X(33) DTSBR521 00234 VALUE 'ROUTE TO: REGISTRATION AND RATES'. DTSBR521 00235 10 FILLER PIC X(84) VALUE SPACES. DTSBR521 00236 10 FILLER PIC X(05) DTSBR521 00237 VALUE 'PAGE:'. DTSBR521 00238 10 FILLER PIC X(03) VALUE SPACES. DTSBR521 00239 10 HDR-PAGE-CNT PIC ZZ,ZZ9. DTSBR521 00240 05 HDR-LINE-4. DTSBR521 00241 10 FILLER PIC X(11) VALUE SPACES. DTSBR521 00242 10 FILLER PIC X(20) DTSBR521 00243 VALUE ' '. DTSBR521 00244 10 FILLER PIC X(17) VALUE SPACES. DTSBR521 00245 10 FILLER PIC X(32) DTSBR521 00246 VALUE ' RATE ASSIGNMENT SUMMARY REPORT '. DTSBR521 00247 05 HDR-LINE-5. DTSBR521 00248 10 FILLER PIC X(60) VALUE SPACES. DTSBR521 00249 10 FILLER PIC X(06) DTSBR521 00250 VALUE 'TABLE '. DTSBR521 00251 10 WS-FUIR-RATE-TABLE PIC X(05). DTSBR521 00252 05 HDR-LINE-6 PIC X(133) VALUE SPACES. DTSBR521 00253 05 HDR-LINE-7. DTSBR521 00254 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00255 10 FILLER PIC X(20) DTSBR521 00256 VALUE 'RATE EFFECTIVE QTR: '. DTSBR521 00257 10 HDR-EFF-QTR-UNPACK PIC 99/9. DTSBR521 00258 05 HDR-LINE-8 PIC X(133) VALUE SPACES. DTSBR521 00259 05 HDR-LINE-9. DTSBR521 00260 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00261 10 FILLER PIC X(43) CL**7 00262 VALUE ' MIN MAX UI EMPLYR UI TAX PAI'. CL**8 00263 10 FILLER PIC X(46) CL*11 00264 VALUE 'D TRUST FUND INT BENFTS CHRGD CUR'. CL*11 00265 10 FILLER PIC X(40) DTSBR521 00266 VALUE 'RENT RESERVE TAXABLE WAGES TA'. CL*10 00267 10 FILLER PIC X(11) DTSBR521 00268 VALUE 'XABLE WAGES'. CL**9 00269 10 FILLER PIC X(19) CL**5 00270 VALUE ' TAXABLE WAGES'. CL**5 00271 05 HDR-LINE-10. DTSBR521 00272 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00273 10 FILLER PIC X(27) DTSBR521 00274 VALUE 'RATIO RATIO RATE COUNT '. DTSBR521 00275 10 FILLER PIC X(06) VALUE SPACES. CL*12 00276 10 HDR-TAX-PD-FROM-THRU PIC X(11). DTSBR521 00277 10 FILLER PIC X(08) VALUE SPACES. CL*13 00278 10 HDR-TRUST-FND-FROM-THRU PIC X(11). DTSBR521 00279 10 FILLER PIC X(08) VALUE SPACES. CL*13 00280 10 HDR-BENEF-CHG-FROM-THRU PIC X(11). DTSBR521 00281 10 FILLER PIC X(11) VALUE SPACES. DTSBR521 00282 10 WS-CURR-RESERVE-DT PIC X(08). DTSBR521 00283 10 FILLER PIC X(09) VALUE SPACES. DTSBR521 00284 10 HDR-TAX-WAGE1-FROM-THRU PIC X(11). DTSBR521 00285 10 FILLER PIC X(08) VALUE SPACES. DTSBR521 00286 10 HDR-TAX-WAGE2-FROM-THRU PIC X(11). DTSBR521 00287 10 FILLER PIC X(08) VALUE SPACES. CL**2 00288 10 HDR-TAX-WAGE3-FROM-THRU PIC X(11). CL**2 00289 DTSBR521 00290 01 DETAIL-LINE. DTSBR521 00291 05 DTL-LINE-2. DTSBR521 00292 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00293 10 WS-FUIR-MIN-RATIO-D PIC X(05). DTSBR521 00294 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00295 10 WS-FUIR-MAX-RATIO-D PIC X(05). DTSBR521 00296 10 FILLER PIC X(02) VALUE SPACES. DTSBR521 00297 10 DTL-REG-UI-RATE-D PIC X(04). DTSBR521 00298 10 FILLER PIC X(02) VALUE SPACE. DTSBR521 00299 10 DTL-REG-EMPL-COUNT PIC ZZZ,ZZ9. DTSBR521 00300 10 DTL-REG-UI-TAX-PAID PIC -ZZ,ZZZ,ZZZ,ZZ9.99. CL**6 00301 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00302 10 DTL-REG-TRUST-FUND-INT PIC -ZZ,ZZZ,ZZZ,ZZ9.99. CL**6 00303 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00304 10 DTL-REG-BENEFITS-CHGD PIC -ZZ,ZZZ,ZZZ,ZZ9.99. CL**6 00305 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00306 10 DTL-REG-CURRENT-RESERVE PIC -ZZ,ZZZ,ZZZ,ZZ9.99. DTSBR521 00307 10 FILLER PIC X(02) VALUE SPACES. DTSBR521 00308 10 DTL-REG-TAXABLE-WAGES1 PIC -ZZ,ZZZ,ZZZ,ZZ9.99. DTSBR521 00309 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00310 10 DTL-REG-TAXABLE-WAGES2 PIC -ZZ,ZZZ,ZZZ,ZZ9.99. DTSBR521 00311 10 FILLER PIC X(01) VALUE SPACE. CL**2 00312 10 DTL-REG-TAXABLE-WAGES3 PIC -ZZ,ZZZ,ZZZ,ZZ9.99. CL**2 00313 SKIP2 DTSBR521 00314 01 CLASSIFIED-TOTALS. DTSBR521 00315 05 DTL-CLS-LINE-3. DTSBR521 00316 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00317 10 FILLER PIC X(18) DTSBR521 00318 VALUE 'CLASSIFIED TOTAL '. DTSBR521 00319 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00320 10 DTL-CLS-EMPL-COUNT PIC ZZZ,ZZ9. DTSBR521 00321 10 DTL-CLS-UI-TAX-PAID PIC -ZZ,ZZZ,ZZZ,ZZ9.99. CL**6 00322 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00323 10 DTL-CLS-TRUST-FUND-INT PIC -ZZ,ZZZ,ZZZ,ZZ9.99. CL**6 00324 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00325 10 DTL-CLS-BENEFITS-CHGD PIC -ZZ,ZZZ,ZZZ,ZZ9.99. CL**6 00326 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00327 10 DTL-CLS-CURRENT-RESERVE PIC -ZZ,ZZZ,ZZZ,ZZ9.99. DTSBR521 00328 10 FILLER PIC X(02) VALUE SPACES. DTSBR521 00329 10 DTL-CLS-TAXABLE-WAGES1 PIC -ZZ,ZZZ,ZZZ,ZZ9.99. DTSBR521 00330 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00331 10 DTL-CLS-TAXABLE-WAGES2 PIC -ZZ,ZZZ,ZZZ,ZZ9.99. DTSBR521 00332 10 FILLER PIC X(01) VALUE SPACE. CL**2 00333 10 DTL-CLS-TAXABLE-WAGES3 PIC -ZZ,ZZZ,ZZZ,ZZ9.99. CL**2 00334 DTSBR521 00335 01 NONCLASSIF-TOTALS. DTSBR521 00336 05 DTL-EMP-LINE-3. DTSBR521 00337 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00338 10 FILLER PIC X(13) DTSBR521 00339 VALUE 'NEW EMPLOYER '. DTSBR521 00340 10 DTL-EMP-UI-RATE PIC X(04). DTSBR521 00341 10 FILLER PIC X(02) VALUE SPACES. DTSBR521 00342 10 DTL-EMP-EMPL-COUNT PIC ZZZ,ZZ9. DTSBR521 00343 10 DTL-EMP-UI-TAX-PAID PIC -ZZ,ZZZ,ZZZ,ZZ9.99. CL**6 00344 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00345 10 DTL-EMP-TRUST-FUND-INT PIC -ZZ,ZZZ,ZZZ,ZZ9.99. CL**6 00346 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00347 10 DTL-EMP-BENEFITS-CHGD PIC -ZZ,ZZZ,ZZZ,ZZ9.99. CL**6 00348 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00349 10 DTL-EMP-CURRENT-RESERVE PIC -ZZ,ZZZ,ZZZ,ZZ9.99. DTSBR521 00350 10 FILLER PIC X(02) VALUE SPACES. DTSBR521 00351 10 DTL-EMP-TAXABLE-WAGES1 PIC -ZZ,ZZZ,ZZZ,ZZ9.99. DTSBR521 00352 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00353 10 DTL-EMP-TAXABLE-WAGES2 PIC -ZZ,ZZZ,ZZZ,ZZ9.99. DTSBR521 00354 10 FILLER PIC X(01) VALUE SPACE. CL**2 00355 10 DTL-EMP-TAXABLE-WAGES3 PIC -ZZ,ZZZ,ZZZ,ZZ9.99. CL**2 00356 01 CONTROL-FOOTING-FINAL. DTSBR521 00357 05 CFF-GRD-LINE-3. DTSBR521 00358 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00359 10 FILLER PIC X(14) DTSBR521 00360 VALUE 'GRAND TOTAL '. DTSBR521 00361 10 FILLER PIC X(05) VALUE SPACES. DTSBR521 00362 10 CFF-GRD-EMPLR-COUNT PIC ZZZ,ZZ9. DTSBR521 00363 10 CFF-GRD-UI-TAX-PAID PIC -ZZ,ZZZ,ZZZ,ZZ9.99. CL**6 00364 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00365 10 CFF-GRD-TRUST-FUND-INT PIC -ZZ,ZZZ,ZZZ,ZZ9.99. CL**6 00366 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00367 10 CFF-GRD-BENEFITS-CHGD PIC -ZZ,ZZZ,ZZZ,ZZ9.99. CL**6 00368 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00369 10 CFF-GRD-CURRENT-RESERVE PIC -ZZ,ZZZ,ZZZ,ZZ9.99. DTSBR521 00370 10 FILLER PIC X(02) VALUE SPACES. DTSBR521 00371 10 CFF-GRD-TAXABLE-WAGES1 PIC -ZZ,ZZZ,ZZZ,ZZ9.99. DTSBR521 00372 10 FILLER PIC X(01) VALUE SPACE. DTSBR521 00373 10 CFF-GRD-TAXABLE-WAGES2 PIC -ZZ,ZZZ,ZZZ,ZZ9.99. DTSBR521 00374 10 FILLER PIC X(01) VALUE SPACE. CL**2 00375 10 CFF-GRD-TAXABLE-WAGES3 PIC -ZZ,ZZZ,ZZZ,ZZ9.99. CL**2 00376 EJECT DTSBR521 00377 LINKAGE SECTION. DTSBR521 00378 SKIP3 DTSBR521 00379 01 LRCM-LINK-AREA. DTSBR521 00380 ++INCLUDE DTSILRCM DTSBR521 00381 EJECT DTSBR521 00382 01 R521-REC. DTSBR521 00383 ++INCLUDE DTSIR521 DTSBR521 00384 EJECT DTSBR521 00385 PROCEDURE DIVISION USING LRCM-LINK-AREA DTSBR521 00386 R521-REC. DTSBR521 00387 IF FIRST-TIME-IND = 'Y' DTSBR521 00388 PERFORM I1000-INITIATE THRU I1000-EXIT DTSBR521 00389 MOVE 'N' TO FIRST-TIME-IND. DTSBR521 00390 DTSBR521 00391 IF LRCM-EOR-88 DTSBR521 00392 PERFORM T1000-TERMINATE THRU T1000-EXIT DTSBR521 00393 ELSE DTSBR521 00394 PERFORM P1000-PROCESS THRU P1000-EXIT. DTSBR521 00395 DTSBR521 00396 GOBACK. DTSBR521 00397 EJECT DTSBR521 00398 I1000-INITIATE. DTSBR521 00399 DTSBR521 00400 OPEN OUTPUT PRT-FILE. DTSBR521 00401 MOVE LRCM-SYS-DATE TO HDR-SYS-DATE. DTSBR521 00402 MOVE LRCM-SYS-TIME TO HDR-SYS-TIME. DTSBR521 00403 MOVE LRCM-AGY-NAME-LINE1 TO HDR-AGY-NAME-LINE1. DTSBR521 00404 MOVE LRCM-AGY-NAME-LINE2 TO HDR-AGY-NAME-LINE2. DTSBR521 00405 MOVE SPACES TO PRT-RECORD. DTSBR521 00406 DTSBR521 00407 MOVE R521-EFF-QTR TO WS-EFF-QTR-UNPACK. DTSBR521 00408 MOVE WS-EFF-QTR-UNPACK (3:3) TO HDR-EFF-QTR-UNPACK. DTSBR521 00409 DTSBR521 00410 MOVE R521-COMPUTED-RATE TO WS-FUIR-UI-RATE. DTSBR521 00411 MOVE R521-UI-RATE-CATEGORY TO WS-UI-RATE-CATEGORY. DTSBR521 00412 DTSBR521 00413 PERFORM I2000-SET-FUIR-AREA THRU I2000-EXIT. DTSBR521 00414 DTSBR521 00415 PERFORM I2200-INITIALIZE-RTN THRU I2200-EXIT. DTSBR521 00416 DTSBR521 00417 PERFORM I3000-INIT-DATES THRU I3000-EXIT. DTSBR521 00418 DTSBR521 00419 PERFORM I2100-SET-RATIO THRU I2100-EXIT DTSBR521 00420 VARYING FUIR-RATE-IDX FROM 1 BY 1 UNTIL DTSBR521 00421 FUIR-RATE-IDX GREATER FUIR-RATE-CNT DTSBR521 00422 DTSBR521 00423 INITIALIZE WS-CLS-TRUST-FUND-INT DTSBR521 00424 WS-CLS-BENEFITS-CHGD DTSBR521 00425 WS-CLS-EMPL-COUNT DTSBR521 00426 WS-CLS-UI-TAX-PAID DTSBR521 00427 WS-CLS-CURRENT-RESERVE DTSBR521 00428 WS-CLS-TAXABLE-WAGES1 DTSBR521 00429 WS-CLS-TAXABLE-WAGES2 CL**2 00430 WS-CLS-TAXABLE-WAGES3. CL**2 00431 DTSBR521 00432 INITIALIZE WS-EMP-UI-TAX-PAID DTSBR521 00433 WS-EMP-TRUST-FUND-INT DTSBR521 00434 WS-EMP-BENEFITS-CHGD DTSBR521 00435 WS-EMP-EMPL-COUNT DTSBR521 00436 WS-EMP-UI-RATE DTSBR521 00437 WS-EMP-CURRENT-RESERVE DTSBR521 00438 WS-EMP-TAXABLE-WAGES1 DTSBR521 00439 WS-EMP-TAXABLE-WAGES2 CL**2 00440 WS-EMP-TAXABLE-WAGES3. CL**2 00441 DTSBR521 00442 INITIALIZE WS-GRD-TAXABLE-WAGES1 DTSBR521 00443 WS-GRD-TAXABLE-WAGES2 DTSBR521 00444 WS-GRD-TAXABLE-WAGES3 CL**2 00445 WS-GRD-TRUST-FUND-INT DTSBR521 00446 WS-GRD-BENEFITS-CHGD DTSBR521 00447 WS-GRD-EMPLR-COUNT DTSBR521 00448 WS-GRD-UI-TAX-PAID DTSBR521 00449 WS-GRD-CURRENT-RESERVE. DTSBR521 00450 I1000-EXIT. DTSBR521 00451 EXIT. DTSBR521 00452 DTSBR521 00453 I2000-SET-FUIR-AREA. DTSBR521 00454 DTSBR521 00455 MOVE LOW-VALUES TO FUIR-KEY-AREA. DTSBR521 00456 DTSBR521 00457 SET FUIR-UIR-88 TO TRUE. DTSBR521 00458 DTSBR521 00459 MOVE R521-EFF-QTR TO FUIR-EFF-YRQ. DTSBR521 00460 DTSBR521 00461 MOVE FUIR-KEY-AREA TO FSKL-KEY-AREA. DTSBR521 00462 DTSBR521 00463 PERFORM S931-READ THRU S931-EXIT. DTSBR521 00464 DTSBR521 00465 IF L931-NO-REC-88 DTSBR521 00466 MOVE 'NO FUIR RECORD OCCURRENCE FOR RATE YEAR' DTSBR521 00467 TO ABEND-MSG DTSBR521 00468 PERFORM S999-ABEND THRU S999-EXIT. DTSBR521 00469 DTSBR521 00470 MOVE FSKL-REC TO FUIR-REC. DTSBR521 00471 DTSBR521 00472 MOVE FUIR-RATE-TABLE TO WS-FUIR-RATE-TABLE. DTSBR521 00473 DTSBR521 00474 I2000-EXIT. DTSBR521 00475 EXIT. DTSBR521 00476 DTSBR521 00477 I2100-SET-RATIO. DTSBR521 00478 MOVE ZEROES TO WS-FUIR-UI-RATE . DTSBR521 00479 MOVE ZEROES TO WS-FUIR-MIN-RATIO. DTSBR521 00480 MOVE ZEROES TO WS-FUIR-MAX-RATIO. DTSBR521 00481 DTSBR521 00482 IF R521-RATE-NONCLASSIFIED-88 DTSBR521 00483 MOVE FUIR-DEFAULT-NEW-EMP-RATE TO WS-FUIR-UI-RATE DTSBR521 00484 PERFORM I2300-CNV-RATIO THRU I2300-EXIT DTSBR521 00485 MOVE WS-FUIR-UI-RATE-D TO WS-EMP-UI-RATE DTSBR521 00486 SET FUIR-RATE-IDX TO FUIR-RATE-CNT DTSBR521 00487 ELSE DTSBR521 00488 IF FUIR-UI-RATE (FUIR-RATE-IDX) = R521-COMPUTED-RATE DTSBR521 00489 MOVE FUIR-MIN-RATIO (FUIR-RATE-IDX) TO DTSBR521 00490 WS-FUIR-MIN-RATIO DTSBR521 00491 MOVE FUIR-MAX-RATIO (FUIR-RATE-IDX) TO DTSBR521 00492 WS-FUIR-MAX-RATIO DTSBR521 00493 MOVE FUIR-UI-RATE (FUIR-RATE-IDX) TO DTSBR521 00494 WS-FUIR-UI-RATE DTSBR521 00495 PERFORM I2300-CNV-RATIO THRU I2300-EXIT DTSBR521 00496 SET FUIR-RATE-IDX TO FUIR-RATE-CNT DTSBR521 00497 END-IF. DTSBR521 00498 I2100-EXIT. DTSBR521 00499 EXIT. DTSBR521 00500 DTSBR521 00501 I2200-INITIALIZE-RTN. DTSBR521 00502 INITIALIZE WS-REG-TRUST-FUND-INT DTSBR521 00503 WS-REG-BENEFITS-CHGD DTSBR521 00504 WS-REG-EMPL-COUNT DTSBR521 00505 WS-REG-UI-RATE DTSBR521 00506 WS-REG-UI-RATE-D DTSBR521 00507 WS-REG-UI-TAX-PAID DTSBR521 00508 WS-REG-CURRENT-RESERVE DTSBR521 00509 WS-REG-TAXABLE-WAGES1 DTSBR521 00510 WS-REG-TAXABLE-WAGES2 CL**2 00511 WS-REG-TAXABLE-WAGES3. CL**2 00512 I2200-EXIT. DTSBR521 00513 EXIT. DTSBR521 00514 DTSBR521 00515 I2300-CNV-RATIO. DTSBR521 00516 IF WS-FUIR-UI-RATE > 0 DTSBR521 00517 MOVE WS-FUIR-UI-RATE TO L056-RATE DTSBR521 00518 SET L056-DISP1-RIGHT-88 TO TRUE DTSBR521 00519 PERFORM S056-RATE-DISPLAY DTSBR521 00520 THRU S056-EXIT DTSBR521 00521 MOVE L056-DISP-RATE TO WS-FUIR-UI-RATE-D DTSBR521 00522 DTSBR521 00523 MOVE WS-FUIR-MIN-RATIO TO L057-RATIO DTSBR521 00524 PERFORM S057-RATIO-DISPLAY DTSBR521 00525 THRU S057-EXIT DTSBR521 00526 MOVE L057-DISP-RATIO TO WS-FUIR-MIN-RATIO-D DTSBR521 00527 DTSBR521 00528 MOVE WS-FUIR-MAX-RATIO TO L057-RATIO DTSBR521 00529 PERFORM S057-RATIO-DISPLAY DTSBR521 00530 THRU S057-EXIT DTSBR521 00531 MOVE L057-DISP-RATIO TO WS-FUIR-MAX-RATIO-D DTSBR521 00532 DTSBR521 00533 ELSE DTSBR521 00534 MOVE 'UI RATES NOT LOADED CORRECTLY' DTSBR521 00535 TO ABEND-MSG DTSBR521 00536 PERFORM S999-ABEND THRU S999-EXIT. DTSBR521 00537 I2300-EXIT. DTSBR521 00538 EXIT. DTSBR521 00539 DTSBR521 00540 I3000-INIT-DATES. DTSBR521 00541 SKIP1 DTSBR521 00542 MOVE R521-CURRENT-RESERVE-THRU-DATE TO L001-FED-8-DATE-9. DTSBR521 00543 SET L001-FROM-FED-8 TO TRUE. DTSBR521 00544 PERFORM S001-DATE THRU S001-EXIT. DTSBR521 00545 MOVE L001-SLASH-DATE TO WS-CURR-RESERVE-DT. DTSBR521 00546 SKIP1 DTSBR521 00547 IF R521-UI-TAX-PAID-FROM-YRQ GREATER ZEROS DTSBR521 00548 MOVE R521-UI-TAX-PAID-FROM-YRQ TO DTSBR521 00549 L004-QTR-5-9 DTSBR521 00550 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR521 00551 MOVE L004-SLASH-QTR TO WS-TAX-PD-FROM-DT DTSBR521 00552 ELSE DTSBR521 00553 MOVE SPACES TO WS-TAX-PD-FROM-DT DTSBR521 00554 END-IF. DTSBR521 00555 DTSBR521 00556 IF R521-UI-TAX-PAID-THRU-YRQ GREATER ZEROS DTSBR521 00557 MOVE R521-UI-TAX-PAID-THRU-YRQ TO DTSBR521 00558 L004-QTR-5-9 DTSBR521 00559 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR521 00560 MOVE L004-SLASH-QTR TO WS-TAX-PD-THRU-DT DTSBR521 00561 ELSE DTSBR521 00562 MOVE SPACES TO WS-TAX-PD-THRU-DT DTSBR521 00563 END-IF. DTSBR521 00564 DTSBR521 00565 MOVE WS-TAX-PD-FROM-THRU TO HDR-TAX-PD-FROM-THRU. DTSBR521 00566 DTSBR521 00567 IF R521-TRUST-FUND-INT-FROM-YRQ GREATER ZEROES DTSBR521 00568 MOVE R521-TRUST-FUND-INT-FROM-YRQ TO DTSBR521 00569 L004-QTR-5-9 DTSBR521 00570 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR521 00571 MOVE L004-SLASH-QTR TO WS-TRUST-FROM-DT DTSBR521 00572 ELSE DTSBR521 00573 MOVE SPACES TO WS-TRUST-FROM-DT DTSBR521 00574 END-IF. DTSBR521 00575 IF R521-TRUST-FUND-INT-THRU-YRQ GREATER ZEROS DTSBR521 00576 MOVE R521-TRUST-FUND-INT-THRU-YRQ TO DTSBR521 00577 L004-QTR-5-9 DTSBR521 00578 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR521 00579 MOVE L004-SLASH-QTR TO WS-TRUST-THRU-DT DTSBR521 00580 ELSE DTSBR521 00581 MOVE SPACES TO WS-TRUST-THRU-DT DTSBR521 00582 END-IF. DTSBR521 00583 DTSBR521 00584 MOVE WS-TRUST-FND-FROM-THRU TO HDR-TRUST-FND-FROM-THRU. DTSBR521 00585 DTSBR521 00586 IF R521-UI-BEN-CHGD-FROM-YRQ GREATER ZEROS DTSBR521 00587 MOVE R521-UI-BEN-CHGD-FROM-YRQ TO DTSBR521 00588 L004-QTR-5-9 DTSBR521 00589 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR521 00590 MOVE L004-SLASH-QTR TO WS-BENEF-FROM-DT DTSBR521 00591 ELSE DTSBR521 00592 MOVE SPACES TO WS-BENEF-FROM-DT DTSBR521 00593 END-IF. DTSBR521 00594 IF R521-UI-BEN-CHGD-THRU-YRQ GREATER ZEROS CL**4 00595 MOVE R521-UI-BEN-CHGD-THRU-YRQ TO CL**4 00596 L004-QTR-5-9 DTSBR521 00597 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR521 00598 MOVE L004-SLASH-QTR TO WS-BENEF-THRU-DT DTSBR521 00599 ELSE DTSBR521 00600 MOVE SPACES TO WS-BENEF-THRU-DT DTSBR521 00601 END-IF. DTSBR521 00602 DTSBR521 00603 MOVE WS-BENEFIT-CHG-FROM-THRU TO HDR-BENEF-CHG-FROM-THRU. DTSBR521 00604 DTSBR521 00605 PERFORM P2000-TAX-QTRS THRU P2000-EXIT VARYING DTSBR521 00606 R521-WAGES-YRQ-IDX FROM 1 BY 1 UNTIL DTSBR521 00607 R521-WAGES-YRQ-IDX > 3. CL**2 00608 I3000-EXIT. DTSBR521 00609 EXIT. DTSBR521 00610 EJECT DTSBR521 00611 P1000-PROCESS. DTSBR521 00612 DTSBR521 00613 PERFORM P3000-TAX-WAGES THRU P3000-EXIT VARYING DTSBR521 00614 R521-TAX-WAGE-IDX FROM 1 BY 1 UNTIL DTSBR521 00615 R521-TAX-WAGE-IDX > 3. CL**2 00616 DTSBR521 00617 IF R521-COMPUTED-RATE = WS-FUIR-UI-RATE DTSBR521 00618 IF R521-UI-RATE-CATEGORY = WS-UI-RATE-CATEGORY DTSBR521 00619 MOVE WS-FUIR-UI-RATE-D TO WS-REG-UI-RATE-D DTSBR521 00620 MOVE WS-REG-UI-RATE-D (4:4) TO DTL-REG-UI-RATE-D DTSBR521 00621 ELSE DTSBR521 00622 PERFORM P1200-EMPLR-CATEGORY THRU P1200-EXIT DTSBR521 00623 PERFORM P1300-RESET-TOTALS THRU P1300-EXIT DTSBR521 00624 ELSE DTSBR521 00625 DTSBR521 00626 MOVE WS-REG-EMPL-COUNT TO DTL-REG-EMPL-COUNT DTSBR521 00627 MOVE WS-REG-UI-TAX-PAID TO DTL-REG-UI-TAX-PAID DTSBR521 00628 MOVE WS-REG-TRUST-FUND-INT TO DTL-REG-TRUST-FUND-INT DTSBR521 00629 MOVE WS-REG-BENEFITS-CHGD TO DTL-REG-BENEFITS-CHGD DTSBR521 00630 MOVE WS-REG-CURRENT-RESERVE TO DTL-REG-CURRENT-RESERVE DTSBR521 00631 MOVE WS-REG-TAXABLE-WAGES1 TO DTL-REG-TAXABLE-WAGES1 DTSBR521 00632 MOVE WS-REG-TAXABLE-WAGES2 TO DTL-REG-TAXABLE-WAGES2 DTSBR521 00633 MOVE WS-REG-TAXABLE-WAGES3 TO DTL-REG-TAXABLE-WAGES3 CL**2 00634 DTSBR521 00635 PERFORM P5000-PRINT-HEADER THRU P5000-EXIT DTSBR521 00636 WRITE PRT-RECORD FROM DTL-LINE-2 AFTER 2 DTSBR521 00637 ADD +2 TO WS-LINE-CNT2 DTSBR521 00638 DTSBR521 00639 MOVE R521-COMPUTED-RATE TO WS-FUIR-UI-RATE DTSBR521 00640 MOVE R521-UI-RATE-CATEGORY TO WS-UI-RATE-CATEGORY DTSBR521 00641 PERFORM P1300-RESET-TOTALS THRU P1300-EXIT DTSBR521 00642 PERFORM I2100-SET-RATIO THRU I2100-EXIT DTSBR521 00643 VARYING FUIR-RATE-IDX FROM 1 BY 1 UNTIL DTSBR521 00644 FUIR-RATE-IDX GREATER FUIR-RATE-CNT DTSBR521 00645 MOVE WS-FUIR-UI-RATE-D TO WS-REG-UI-RATE-D DTSBR521 00646 MOVE WS-REG-UI-RATE-D (4:4) TO DTL-REG-UI-RATE-D DTSBR521 00647 END-IF. DTSBR521 00648 DTSBR521 00649 PERFORM P1100-ADD-REGULAR THRU P1100-EXIT. DTSBR521 00650 PERFORM P1050-EMPLR-CLASS THRU P1050-EXIT. DTSBR521 00651 P1000-EXIT. DTSBR521 00652 EXIT. DTSBR521 00653 EJECT DTSBR521 00654 P1050-EMPLR-CLASS. DTSBR521 00655 IF R521-RATE-CLASSIFIED-88 DTSBR521 00656 ADD R521-TRUST-FUND-INTEREST-AMT TO DTSBR521 00657 WS-CLS-TRUST-FUND-INT DTSBR521 00658 ADD R521-BENEFITS-CHARGED-AMT TO DTSBR521 00659 WS-CLS-BENEFITS-CHGD DTSBR521 00660 ADD R521-UI-TAX-PAID-AMT TO DTSBR521 00661 WS-CLS-UI-TAX-PAID DTSBR521 00662 ADD R521-CURRENT-RESERVE-AMT TO DTSBR521 00663 WS-CLS-CURRENT-RESERVE DTSBR521 00664 ADD WS-OUT-TAXABLE-WAGES1 TO DTSBR521 00665 WS-CLS-TAXABLE-WAGES1 DTSBR521 00666 ADD WS-OUT-TAXABLE-WAGES2 TO DTSBR521 00667 WS-CLS-TAXABLE-WAGES2 DTSBR521 00668 ADD WS-OUT-TAXABLE-WAGES3 TO CL**2 00669 WS-CLS-TAXABLE-WAGES3 CL**2 00670 ADD 1 TO WS-CLS-EMPL-COUNT DTSBR521 00671 END-IF. DTSBR521 00672 DTSBR521 00673 IF R521-RATE-NONCLASSIFIED-88 DTSBR521 00674 ADD R521-TRUST-FUND-INTEREST-AMT TO DTSBR521 00675 WS-EMP-TRUST-FUND-INT DTSBR521 00676 ADD R521-BENEFITS-CHARGED-AMT TO DTSBR521 00677 WS-EMP-BENEFITS-CHGD DTSBR521 00678 ADD R521-UI-TAX-PAID-AMT TO DTSBR521 00679 WS-EMP-UI-TAX-PAID DTSBR521 00680 ADD R521-CURRENT-RESERVE-AMT TO DTSBR521 00681 WS-EMP-CURRENT-RESERVE DTSBR521 00682 ADD WS-OUT-TAXABLE-WAGES1 TO DTSBR521 00683 WS-EMP-TAXABLE-WAGES1 DTSBR521 00684 ADD WS-OUT-TAXABLE-WAGES2 TO DTSBR521 00685 WS-EMP-TAXABLE-WAGES2 DTSBR521 00686 ADD WS-OUT-TAXABLE-WAGES3 TO CL**2 00687 WS-EMP-TAXABLE-WAGES3 CL**2 00688 ADD 1 TO WS-EMP-EMPL-COUNT DTSBR521 00689 END-IF. DTSBR521 00690 DTSBR521 00691 P1050-EXIT. DTSBR521 00692 EXIT. DTSBR521 00693 DTSBR521 00694 P1100-ADD-REGULAR. DTSBR521 00695 ADD R521-TRUST-FUND-INTEREST-AMT TO DTSBR521 00696 WS-REG-TRUST-FUND-INT. DTSBR521 00697 ADD R521-BENEFITS-CHARGED-AMT TO DTSBR521 00698 WS-REG-BENEFITS-CHGD. DTSBR521 00699 ADD R521-UI-TAX-PAID-AMT TO DTSBR521 00700 WS-REG-UI-TAX-PAID. DTSBR521 00701 ADD R521-CURRENT-RESERVE-AMT TO DTSBR521 00702 WS-REG-CURRENT-RESERVE. DTSBR521 00703 ADD WS-OUT-TAXABLE-WAGES1 TO DTSBR521 00704 WS-REG-TAXABLE-WAGES1. DTSBR521 00705 ADD WS-OUT-TAXABLE-WAGES2 TO DTSBR521 00706 WS-REG-TAXABLE-WAGES2. DTSBR521 00707 ADD WS-OUT-TAXABLE-WAGES3 TO CL**2 00708 WS-REG-TAXABLE-WAGES3. CL**2 00709 ADD 1 TO WS-REG-EMPL-COUNT. DTSBR521 00710 P1100-EXIT. DTSBR521 00711 EXIT. DTSBR521 00712 DTSBR521 00713 P1200-EMPLR-CATEGORY. DTSBR521 00714 MOVE R521-COMPUTED-RATE TO WS-FUIR-UI-RATE DTSBR521 00715 MOVE R521-UI-RATE-CATEGORY TO WS-UI-RATE-CATEGORY. DTSBR521 00716 P1200-EXIT. DTSBR521 00717 EXIT. DTSBR521 00718 DTSBR521 00719 P1300-RESET-TOTALS. DTSBR521 00720 INITIALIZE WS-REG-TRUST-FUND-INT DTSBR521 00721 WS-REG-BENEFITS-CHGD DTSBR521 00722 WS-REG-EMPL-COUNT DTSBR521 00723 WS-REG-UI-TAX-PAID DTSBR521 00724 WS-REG-CURRENT-RESERVE DTSBR521 00725 WS-REG-TAXABLE-WAGES1 DTSBR521 00726 WS-REG-TAXABLE-WAGES2 CL**2 00727 WS-REG-TAXABLE-WAGES3. CL**2 00728 P1300-EXIT. DTSBR521 00729 EXIT. DTSBR521 00730 DTSBR521 00731 P2000-TAX-QTRS. DTSBR521 00732 DTSBR521 00733 IF R521-WAGES-FROM-YRQ (R521-WAGES-YRQ-IDX) > 0 DTSBR521 00734 MOVE R521-WAGES-FROM-YRQ (R521-WAGES-YRQ-IDX) DTSBR521 00735 TO L004-QTR-5-9 DTSBR521 00736 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR521 00737 MOVE L004-SLASH-QTR TO WS-TAX-QTR-FROM DTSBR521 00738 ELSE DTSBR521 00739 MOVE SPACES TO WS-TAX-QTR-FROM DTSBR521 00740 END-IF. DTSBR521 00741 IF R521-WAGES-FROM-YRQ (R521-WAGES-YRQ-IDX) > 0 DTSBR521 00742 MOVE R521-WAGES-THRU-YRQ (R521-WAGES-YRQ-IDX) DTSBR521 00743 TO L004-QTR-5-9 DTSBR521 00744 PERFORM S004-FROM-5 THRU S004-EXIT DTSBR521 00745 MOVE L004-SLASH-QTR TO WS-TAX-QTR-THRU DTSBR521 00746 ELSE DTSBR521 00747 MOVE SPACES TO WS-TAX-QTR-THRU DTSBR521 00748 END-IF. DTSBR521 00749 IF R521-WAGES-FROM-YRQ (R521-WAGES-YRQ-IDX) > 0 CL**2 00750 MOVE R521-WAGES-THRU-YRQ (R521-WAGES-YRQ-IDX) CL**2 00751 TO L004-QTR-5-9 CL**2 00752 PERFORM S004-FROM-5 THRU S004-EXIT CL**2 00753 MOVE L004-SLASH-QTR TO WS-TAX-QTR-THRU CL**2 00754 ELSE CL**2 00755 MOVE SPACES TO WS-TAX-QTR-THRU CL**2 00756 END-IF. CL**2 00757 EVALUATE TRUE DTSBR521 00758 WHEN R521-WAGES-YRQ-IDX = 1 DTSBR521 00759 MOVE WS-TAX-QTR-FROM TO WS-TAX-WAGE1-FROM DTSBR521 00760 MOVE WS-TAX-QTR-THRU TO WS-TAX-WAGE1-THRU DTSBR521 00761 MOVE WS-TAX-WAGE1-FROM-THRU TO DTSBR521 00762 HDR-TAX-WAGE1-FROM-THRU DTSBR521 00763 WHEN R521-WAGES-YRQ-IDX = 2 DTSBR521 00764 MOVE WS-TAX-QTR-FROM TO WS-TAX-WAGE2-FROM DTSBR521 00765 MOVE WS-TAX-QTR-THRU TO WS-TAX-WAGE2-THRU DTSBR521 00766 MOVE WS-TAX-WAGE2-FROM-THRU TO DTSBR521 00767 HDR-TAX-WAGE2-FROM-THRU DTSBR521 00768 WHEN R521-WAGES-YRQ-IDX = 3 CL**2 00769 MOVE WS-TAX-QTR-FROM TO WS-TAX-WAGE3-FROM CL**2 00770 MOVE WS-TAX-QTR-THRU TO WS-TAX-WAGE3-THRU CL**2 00771 MOVE WS-TAX-WAGE3-FROM-THRU TO CL**2 00772 HDR-TAX-WAGE3-FROM-THRU CL**2 00773 END-EVALUATE. DTSBR521 00774 DTSBR521 00775 P2000-EXIT. DTSBR521 00776 EXIT. DTSBR521 00777 P3000-TAX-WAGES. DTSBR521 00778 EVALUATE TRUE DTSBR521 00779 WHEN R521-TAX-WAGE-IDX = 1 DTSBR521 00780 MOVE R521-TAX-WAGE (R521-TAX-WAGE-IDX) TO DTSBR521 00781 WS-OUT-TAXABLE-WAGES1 DTSBR521 00782 WHEN R521-TAX-WAGE-IDX = 2 DTSBR521 00783 MOVE R521-TAX-WAGE (R521-TAX-WAGE-IDX) TO DTSBR521 00784 WS-OUT-TAXABLE-WAGES2 DTSBR521 00785 WHEN R521-TAX-WAGE-IDX = 3 CL**2 00786 MOVE R521-TAX-WAGE (R521-TAX-WAGE-IDX) TO CL**2 00787 WS-OUT-TAXABLE-WAGES3 CL**2 00788 END-EVALUATE. DTSBR521 00789 P3000-EXIT. DTSBR521 00790 EXIT. DTSBR521 00791 DTSBR521 00792 P4000-GRAND-TOTALS. DTSBR521 00793 DTSBR521 00794 ADD WS-CLS-EMPL-COUNT WS-EMP-EMPL-COUNT DTSBR521 00795 GIVING WS-GRD-EMPLR-COUNT. DTSBR521 00796 ADD WS-CLS-TRUST-FUND-INT WS-EMP-TRUST-FUND-INT DTSBR521 00797 GIVING WS-GRD-TRUST-FUND-INT. DTSBR521 00798 ADD WS-CLS-BENEFITS-CHGD WS-EMP-BENEFITS-CHGD DTSBR521 00799 GIVING WS-GRD-BENEFITS-CHGD. DTSBR521 00800 ADD WS-CLS-UI-TAX-PAID WS-EMP-UI-TAX-PAID DTSBR521 00801 GIVING WS-GRD-UI-TAX-PAID. DTSBR521 00802 ADD WS-CLS-CURRENT-RESERVE WS-EMP-CURRENT-RESERVE DTSBR521 00803 GIVING WS-GRD-CURRENT-RESERVE. DTSBR521 00804 ADD WS-CLS-TAXABLE-WAGES1 WS-EMP-TAXABLE-WAGES1 DTSBR521 00805 GIVING WS-GRD-TAXABLE-WAGES1. DTSBR521 00806 ADD WS-CLS-TAXABLE-WAGES2 WS-EMP-TAXABLE-WAGES2 DTSBR521 00807 GIVING WS-GRD-TAXABLE-WAGES2. DTSBR521 00808 ADD WS-CLS-TAXABLE-WAGES3 WS-EMP-TAXABLE-WAGES3 CL**2 00809 GIVING WS-GRD-TAXABLE-WAGES3. CL**2 00810 DTSBR521 00811 P4000-EXIT. DTSBR521 00812 EXIT. DTSBR521 00813 DTSBR521 00814 P5000-PRINT-HEADER. DTSBR521 00815 IF WS-LINE-CNT GREATER 58 OR DTSBR521 00816 WS-LINE-CNT2 GREATER 58 DTSBR521 00817 MOVE +0 TO WS-LINE-CNT DTSBR521 00818 MOVE +0 TO WS-LINE-CNT2 DTSBR521 00819 ADD +1 TO WS-PAGE-CNT DTSBR521 00820 MOVE WS-PAGE-CNT TO HDR-PAGE-CNT DTSBR521 00821 WRITE PRT-RECORD FROM HDR-LINE-1 AFTER TOP-OF-PAGE DTSBR521 00822 WRITE PRT-RECORD FROM HDR-LINE-2 AFTER 1 DTSBR521 00823 WRITE PRT-RECORD FROM HDR-LINE-3 AFTER 1 DTSBR521 00824 WRITE PRT-RECORD FROM HDR-LINE-4 AFTER 1 DTSBR521 00825 WRITE PRT-RECORD FROM HDR-LINE-5 AFTER 1 DTSBR521 00826 WRITE PRT-RECORD FROM HDR-LINE-6 AFTER 1 DTSBR521 00827 WRITE PRT-RECORD FROM HDR-LINE-7 AFTER 1 DTSBR521 00828 WRITE PRT-RECORD FROM HDR-LINE-8 AFTER 1 DTSBR521 00829 WRITE PRT-RECORD FROM HDR-LINE-9 AFTER 1 DTSBR521 00830 WRITE PRT-RECORD FROM HDR-LINE-10 AFTER 1 DTSBR521 00831 ADD +10 TO WS-LINE-CNT2. DTSBR521 00832 P5000-EXIT. DTSBR521 00833 EXIT. DTSBR521 00834 DTSBR521 00835 T1000-TERMINATE. DTSBR521 00836 DTSBR521 00837 IF WS-LINE-CNT2 > 52 DTSBR521 00838 ADD +6 TO WS-LINE-CNT2 DTSBR521 00839 PERFORM P5000-PRINT-HEADER THRU P5000-EXIT DTSBR521 00840 END-IF. DTSBR521 00841 DTSBR521 00842 MOVE WS-REG-UI-RATE-D (4:4) TO DTL-REG-UI-RATE-D. DTSBR521 00843 MOVE WS-REG-EMPL-COUNT TO DTL-REG-EMPL-COUNT. DTSBR521 00844 MOVE WS-REG-UI-TAX-PAID TO DTL-REG-UI-TAX-PAID. DTSBR521 00845 MOVE WS-REG-TRUST-FUND-INT TO DTL-REG-TRUST-FUND-INT. DTSBR521 00846 MOVE WS-REG-BENEFITS-CHGD TO DTL-REG-BENEFITS-CHGD. DTSBR521 00847 MOVE WS-REG-CURRENT-RESERVE TO DTL-REG-CURRENT-RESERVE. DTSBR521 00848 MOVE WS-REG-TAXABLE-WAGES1 TO DTL-REG-TAXABLE-WAGES1. DTSBR521 00849 MOVE WS-REG-TAXABLE-WAGES2 TO DTL-REG-TAXABLE-WAGES2. DTSBR521 00850 MOVE WS-REG-TAXABLE-WAGES3 TO DTL-REG-TAXABLE-WAGES3. CL**2 00851 WRITE PRT-RECORD FROM DTL-LINE-2 AFTER 2. DTSBR521 00852 DTSBR521 00853 IF WS-LINE-CNT2 > 52 DTSBR521 00854 ADD +6 TO WS-LINE-CNT2 DTSBR521 00855 PERFORM P5000-PRINT-HEADER THRU P5000-EXIT DTSBR521 00856 END-IF. DTSBR521 00857 DTSBR521 00858 MOVE WS-CLS-EMPL-COUNT TO DTL-CLS-EMPL-COUNT. DTSBR521 00859 MOVE WS-CLS-UI-TAX-PAID TO DTL-CLS-UI-TAX-PAID. DTSBR521 00860 MOVE WS-CLS-TRUST-FUND-INT TO DTL-CLS-TRUST-FUND-INT. DTSBR521 00861 MOVE WS-CLS-BENEFITS-CHGD TO DTL-CLS-BENEFITS-CHGD. DTSBR521 00862 MOVE WS-CLS-CURRENT-RESERVE TO DTL-CLS-CURRENT-RESERVE. DTSBR521 00863 MOVE WS-CLS-TAXABLE-WAGES1 TO DTL-CLS-TAXABLE-WAGES1. DTSBR521 00864 MOVE WS-CLS-TAXABLE-WAGES2 TO DTL-CLS-TAXABLE-WAGES2. DTSBR521 00865 MOVE WS-CLS-TAXABLE-WAGES3 TO DTL-CLS-TAXABLE-WAGES3. CL**2 00866 WRITE PRT-RECORD FROM DTL-CLS-LINE-3 AFTER 3. DTSBR521 00867 DTSBR521 00868 IF WS-LINE-CNT2 > 52 DTSBR521 00869 ADD +6 TO WS-LINE-CNT2 DTSBR521 00870 PERFORM P5000-PRINT-HEADER THRU P5000-EXIT DTSBR521 00871 END-IF. DTSBR521 00872 DTSBR521 00873 MOVE WS-EMP-UI-RATE (4:4) TO DTL-EMP-UI-RATE. DTSBR521 00874 MOVE WS-EMP-EMPL-COUNT TO DTL-EMP-EMPL-COUNT. DTSBR521 00875 MOVE WS-EMP-UI-TAX-PAID TO DTL-EMP-UI-TAX-PAID. DTSBR521 00876 MOVE WS-EMP-TRUST-FUND-INT TO DTL-EMP-TRUST-FUND-INT. DTSBR521 00877 MOVE WS-EMP-BENEFITS-CHGD TO DTL-EMP-BENEFITS-CHGD. DTSBR521 00878 MOVE WS-EMP-CURRENT-RESERVE TO DTL-EMP-CURRENT-RESERVE. DTSBR521 00879 MOVE WS-EMP-TAXABLE-WAGES1 TO DTL-EMP-TAXABLE-WAGES1. DTSBR521 00880 MOVE WS-EMP-TAXABLE-WAGES2 TO DTL-EMP-TAXABLE-WAGES2. DTSBR521 00881 MOVE WS-EMP-TAXABLE-WAGES3 TO DTL-EMP-TAXABLE-WAGES3. CL**2 00882 WRITE PRT-RECORD FROM DTL-EMP-LINE-3 AFTER 3. DTSBR521 00883 DTSBR521 00884 IF WS-LINE-CNT2 > 52 DTSBR521 00885 ADD +6 TO WS-LINE-CNT2 DTSBR521 00886 PERFORM P5000-PRINT-HEADER THRU P5000-EXIT DTSBR521 00887 END-IF. DTSBR521 00888 DTSBR521 00889 PERFORM P4000-GRAND-TOTALS THRU P4000-EXIT. DTSBR521 00890 MOVE WS-GRD-EMPLR-COUNT TO CFF-GRD-EMPLR-COUNT. DTSBR521 00891 MOVE WS-GRD-UI-TAX-PAID TO CFF-GRD-UI-TAX-PAID. DTSBR521 00892 MOVE WS-GRD-TRUST-FUND-INT TO CFF-GRD-TRUST-FUND-INT. DTSBR521 00893 MOVE WS-GRD-BENEFITS-CHGD TO CFF-GRD-BENEFITS-CHGD. DTSBR521 00894 MOVE WS-GRD-CURRENT-RESERVE TO CFF-GRD-CURRENT-RESERVE. DTSBR521 00895 MOVE WS-GRD-TAXABLE-WAGES1 TO CFF-GRD-TAXABLE-WAGES1. DTSBR521 00896 MOVE WS-GRD-TAXABLE-WAGES2 TO CFF-GRD-TAXABLE-WAGES2. DTSBR521 00897 MOVE WS-GRD-TAXABLE-WAGES3 TO CFF-GRD-TAXABLE-WAGES3. CL**2 00898 WRITE PRT-RECORD FROM CFF-GRD-LINE-3 AFTER 3. DTSBR521 00899 DTSBR521 00900 CLOSE PRT-FILE. DTSBR521 00901 DTSBR521 00902 T1000-EXIT. DTSBR521 00903 EXIT. DTSBR521 00904 EJECT DTSBR521 00905 S001-DATE. DTSBR521 00906 DTSBR521 00907 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBR521 00908 DTSBR521 00909 S001-EXIT. DTSBR521 00910 EXIT. DTSBR521 00911 DTSBR521 00912 S004-FROM-5. DTSBR521 00913 DTSBR521 00914 SET L004-FROM-5 TO TRUE. DTSBR521 00915 DTSBR521 00916 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBR521 00917 DTSBR521 00918 S004-EXIT. DTSBR521 00919 EXIT. DTSBR521 00920 DTSBR521 00921 S056-RATE-DISPLAY. DTSBR521 00922 DTSBR521 00923 CALL 'DTSBU056' USING L056-LINK-AREA. DTSBR521 00924 DTSBR521 00925 S056-EXIT. DTSBR521 00926 EXIT. DTSBR521 00927 DTSBR521 00928 S057-RATIO-DISPLAY. DTSBR521 00929 DTSBR521 00930 CALL 'DTSBU057' USING L057-LINK-AREA. DTSBR521 00931 DTSBR521 00932 S057-EXIT. DTSBR521 00933 EXIT. DTSBR521 00934 DTSBR521 00935 S931-READ. DTSBR521 00936 SET L931-READ-88 TO TRUE. DTSBR521 00937 GO TO S931-REF-I. DTSBR521 00938 DTSBR521 00939 S931-REF-I. DTSBR521 00940 CALL 'DTSBU931' USING L931-LINK-AREA DTSBR521 00941 FSKL-REC. DTSBR521 00942 S931-EXIT. DTSBR521 00943 EXIT. DTSBR521 00944 DTSBR521 00945 S999-ABEND. DTSBR521 00946 DTSBR521 00947 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBR521 00948 DTSBR521 00949 S999-EXIT. DTSBR521 00950 EXIT. DTSBR521