DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
893
Batch/DTSBR521.cob
Normal file
893
Batch/DTSBR521.cob
Normal file
@ -0,0 +1,893 @@
|
||||
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
|
||||
Reference in New Issue
Block a user