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