952 lines
75 KiB
COBOL
952 lines
75 KiB
COBOL
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
|