00001 IDENTIFICATION DIVISION. 12/11/08 00002 PROGRAM-ID. DTSBD745. DTSBD745 00003 AUTHOR. TRW. LV003 00004 DATE-WRITTEN. AUGUST 2002. DTSBD745 00005 DATE-COMPILED. DTSBD745 00006 SKIP3 DTSBD745 00007 ***** DTSBD745 00008 * DTSBD745 00009 * FUNCTION: DETERMINE THE RATE TABLE TO USE FOR THE DTSBD745 00010 * CURRENT RATING YEAR. DTSBD745 00011 * DTSBD745 00012 * DTSBD745 00013 * MODIFICATION LOG: DTSBD745 00014 * DTSBD745 00015 * 08/23/2002 INITIAL DEVELOPMENT. DTSBD745 00016 * REFERENCE: PROGRAMMER: GD DTSBD745 00017 * DTSBD745 00018 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD745 00019 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBD745 00020 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBD745 00021 * DTSBD745 00022 * DTSBD745 00023 * DESCRIPTION: DTSBD745 00024 * DTSBD745 00025 * DETERMINE THE RATE TABLE TO USE AS FOLLOWS: DTSBD745 00026 * DTSBD745 00027 * FIND THE TOTAL WAGES PAID BY ALL CONTRIBUTORY DTSBD745 00028 * EMPLOYERS DURING THE ONE YEAR PERIOD STARTING DTSBD745 00029 * BETWEEN JULY 1, 2 YEARS PRIOR TO THE RATE YEAR DTSBD745 00030 * AND JUNE 30, 1 YEAR PRIOR TO THE RATE YEAR. DTSBD745 00031 * DTSBD745 00032 * DIVIDE THE BALANCE IN THE TRUST FUND AS OF DTSBD745 00033 * SEPTEMBER 30 OF THE YEAR PRIOR TO THE RATE YEAR DTSBD745 00034 * BY THE TOTAL WAGES. DTSBD745 00035 * DTSBD745 00036 * THIS RATIO DETERMINES THE TABLE TO USE. DTSBD745 00037 * DTSBD745 00038 * DTSBD745 00039 * IN FINDING THE TOTAL WAGES, IGNORE REPORTS ENTERED DTSBD745 00040 * LATER THAN SEPTMEBER 30 OF THE YEAR PRIOR TO THE RATE DTSBD745 00041 * YEAR. DTSBD745 00042 * DTSBD745 00043 ***** DTSBD745 00044 SKIP3 DTSBD745 00045 ENVIRONMENT DIVISION. DTSBD745 00046 SKIP2 DTSBD745 00047 DATA DIVISION. DTSBD745 00048 SKIP3 DTSBD745 00049 WORKING-STORAGE SECTION. DTSBD745 000495 77 PAN-VALET PICTURE X(24) VALUE '003DTSBD745 12/11/08'. DTSBD745 00050 SKIP3 DTSBD745 00051 01 WRK-AREA. DTSBD745 00052 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +745.DTSBD745 00053 DTSBD745 00054 05 WRK-MOD-NAME PIC X(08) VALUE 'DTSBD745'.DTSBD745 00055 DTSBD745 00056 05 ABEND-MSG PIC X(60). DTSBD745 00057 DTSBD745 00058 DTSBD745 00059 05 WRK-SYS-ABSTIME PIC S9(15) COMP-3. DTSBD745 00060 DTSBD745 00061 05 WRK-SYS-DATE PIC S9(09) COMP-3. DTSBD745 00062 DTSBD745 00063 05 WRK-SYS-TIME PIC S9(07) COMP-3. DTSBD745 00064 DTSBD745 00065 DTSBD745 00066 05 WRK-OVERWRITE-FUIR-IND PIC X(01). DTSBD745 00067 88 WRK-OVERWRITE-FUIR-YES-88 VALUE 'Y'. DTSBD745 00068 88 WRK-OVERWRITE-FUIR-NO-88 VALUE 'N'. DTSBD745 00069 DTSBD745 00070 05 WRK-RTE-YR-START-YRQ PIC S9(05) COMP-3. DTSBD745 00071 DTSBD745 00072 05 WRK-RTE-YR-END-YRQ PIC S9(05) COMP-3. DTSBD745 00073 DTSBD745 00074 05 WRK-WAGE-START-YRQ PIC S9(05) COMP-3. DTSBD745 00075 DTSBD745 00076 05 WRK-WAGE-END-YRQ PIC S9(05) COMP-3. DTSBD745 00077 DTSBD745 00078 05 WRK-RPT-CUTOFF-DATE PIC S9(09) COMP-3. DTSBD745 00079 DTSBD745 00080 05 WRK-TRUST-FUND-BAL PIC S9(11)V9(02) COMP-3. DTSBD745 00081 DTSBD745 00082 05 WRK-PCT PIC S9(03)V9(04) COMP-3. DTSBD745 00083 DTSBD745 00084 05 WRK-TABLE PIC X(04). DTSBD745 00085 88 WRK-TABLE-I VALUE 'I '. DTSBD745 00086 88 WRK-TABLE-II VALUE 'II '. DTSBD745 00087 88 WRK-TABLE-III VALUE 'III '. DTSBD745 00088 88 WRK-TABLE-IV VALUE 'IV '. DTSBD745 00089 88 WRK-TABLE-V VALUE 'V '. DTSBD745 00090 88 WRK-TABLE-VI VALUE 'VI '. DTSBD745 00091 DTSBD745 00092 05 WRK-TOT-WAGE PIC S9(11)V9(02) COMP-3 DTSBD745 00093 VALUE +0. DTSBD745 00094 DTSBD745 00095 05 WRK-DISPLAY-PCT PIC ZZ9.9999. DTSBD745 00096 DTSBD745 00097 05 WRK-DISPLAY-AMT-X PIC X(18). DTSBD745 00098 05 WRK-DISPLAY-AMT-9 REDEFINES WRK-DISPLAY-AMT-X DTSBD745 00099 PIC ZZ,ZZZ,ZZZ,ZZ9.99-. DTSBD745 00100 05 WRK-DISPLAY-AMT-9A PIC ZZ,ZZZ,ZZZ,ZZ9.99-. DTSBD745 00101 05 WRK-DISPLAY-AMT-9B PIC ZZ,ZZZ,ZZZ,ZZ9.99-. DTSBD745 00102 DTSBD745 00103 DTSBD745 00104 EJECT DTSBD745 00105 01 L910-LINK-AREA. DTSBD745 00106 ++INCLUDE DTSIL910 DTSBD745 00107 SKIP3 DTSBD745 00108 01 MSKL-REC. DTSBD745 00109 ++INCLUDE DTSIMSKL DTSBD745 00110 SKIP3 DTSBD745 00111 01 MHDR-REC. DTSBD745 00112 ++INCLUDE DTSIMHDR DTSBD745 00113 SKIP3 DTSBD745 00114 01 MPRF-REC. DTSBD745 00115 ++INCLUDE DTSIMPRF DTSBD745 00116 SKIP3 DTSBD745 00117 01 MRPT-REC. DTSBD745 00118 ++INCLUDE DTSIMRPT DTSBD745 00119 SKIP3 DTSBD745 00120 01 L931-LINK-AREA. DTSBD745 00121 ++INCLUDE DTSIL931 DTSBD745 00122 SKIP3 DTSBD745 00123 01 FSKL-REC. DTSBD745 00124 ++INCLUDE DTSIFSKL DTSBD745 00125 SKIP3 DTSBD745 00126 01 FUIR-REC. DTSBD745 00127 ++INCLUDE DTSIFUIR DTSBD745 00128 EJECT DTSBD745 00129 01 R507-REC. DTSBD745 00130 ++INCLUDE DTSIR507 DTSBD745 00131 EJECT DTSBD745 00132 01 L001-LINK-AREA. DTSBD745 00133 ++INCLUDE DTSIL001 DTSBD745 00134 SKIP3 DTSBD745 00135 01 L004-LINK-AREA. DTSBD745 00136 ++INCLUDE DTSIL004 DTSBD745 00137 SKIP3 DTSBD745 00138 01 L005-LINK-AREA. DTSBD745 00139 ++INCLUDE DTSIL005 DTSBD745 00140 SKIP3 DTSBD745 00141 01 L006-LINK-AREA. DTSBD745 00142 ++INCLUDE DTSIL006 DTSBD745 00143 SKIP3 DTSBD745 00144 01 L055-LINK-AREA. DTSBD745 00145 ++INCLUDE DTSIL055 DTSBD745 00146 DTSBD745 00147 ** UI RATES DTSBD745 00148 ++INCLUDE DTSIC058 DTSBD745 00149 EJECT DTSBD745 00150 LINKAGE SECTION. DTSBD745 00151 SKIP3 DTSBD745 00152 *********************************************************** DTSBD745 00153 * THE OVERWRITE-FUIR-IND CONTROLS THE PROGRAMS ACTION DTSBD745 00154 * WHEN STAFF HAS ALREADY ENTERED THE RATE TABLE ON THE DTSBD745 00155 * FUIR RECORD. IF THE OVERWRITE-FUIR-IND IS SET TO YES DTSBD745 00156 * THE PROGRAM WILL REPLACE THE RATE TABLE IN THE FUIR DTSBD745 00157 * WITH THE TABLE THE PROGRAM HAS SELECTED. OTHERWISE, DTSBD745 00158 * IT WILL NOT CHANGE THE ENTRY IN THE FUIR, AND WILL DTSBD745 00159 * DISPLAY AN ERROR MESSAGE. DTSBD745 00160 *********************************************************** DTSBD745 00161 01 PARM-AREA. DTSBD745 00162 05 PARM-LENGTH PIC S9(04) COMP. DTSBD745 00163 05 PARM-DATA. DTSBD745 00164 10 PARM-RTE-YR-START-YRQ-X DTSBD745 00165 PIC X(03). DTSBD745 00166 10 PARM-RTE-YR-START-YRQ DTSBD745 00167 REDEFINES PARM-RTE-YR-START-YRQ-X DTSBD745 00168 PIC 9(03). DTSBD745 00169 10 FILLER PIC X(01). DTSBD745 00170 10 PARM-OVERWRITE-FUIR-IND PIC X(01). DTSBD745 00171 EJECT DTSBD745 00172 PROCEDURE DIVISION USING PARM-AREA. DTSBD745 00173 DTSBD745 00174 PERFORM I0000-INITIATE THRU I0000-EXIT. DTSBD745 00175 DTSBD745 00176 PERFORM P0000-PROCESS THRU P0000-EXIT. DTSBD745 00177 DTSBD745 00178 PERFORM T0000-TERMINATE THRU T0000-EXIT. DTSBD745 00179 DTSBD745 00180 DTSBD745 00181 GOBACK. DTSBD745 00182 EJECT DTSBD745 00183 I0000-INITIATE. DTSBD745 00184 DTSBD745 00185 PERFORM S910-OPEN-READ THRU S910-EXIT. DTSBD745 00186 DTSBD745 00187 PERFORM S931-OPEN-UPDATE THRU S931-EXIT. DTSBD745 00188 DTSBD745 00189 DTSBD745 00190 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBD745 00191 DTSBD745 00192 MOVE +0 TO MSKL-EMP-NO. DTSBD745 00193 DTSBD745 00194 SET MSKL-HDR-88 TO TRUE. DTSBD745 00195 DTSBD745 00196 PERFORM S910-READ THRU S910-EXIT. DTSBD745 00197 DTSBD745 00198 IF L910-NO-REC-88 DTSBD745 00199 MOVE 'MHDR RECORD IS MISSING' DTSBD745 00200 TO ABEND-MSG DTSBD745 00201 PERFORM S999-ABEND THRU S999-EXIT. DTSBD745 00202 DTSBD745 00203 MOVE MSKL-REC TO MHDR-REC. DTSBD745 00204 DTSBD745 00205 DTSBD745 00206 PERFORM I1000-PROCESS-PARMS THRU I1000-EXIT. DTSBD745 00207 DTSBD745 00208 DTSBD745 00209 PERFORM I2000-SET-DATES THRU I2000-EXIT. DTSBD745 00210 DTSBD745 00211 PERFORM I3000-READ-FUIR THRU I3000-EXIT. DTSBD745 00212 DTSBD745 00213 DTSBD745 00214 PERFORM S005-FROM-SYS THRU S005-EXIT. DTSBD745 00215 DTSBD745 00216 MOVE L005-ABSTIME TO WRK-SYS-ABSTIME. DTSBD745 00217 DTSBD745 00218 MOVE L005-DATE TO WRK-SYS-DATE. DTSBD745 00219 DTSBD745 00220 MOVE L005-TIME TO WRK-SYS-TIME. DTSBD745 00221 DTSBD745 00222 DTSBD745 00223 I0000-EXIT. DTSBD745 00224 EXIT. DTSBD745 00225 EJECT DTSBD745 00226 I1000-PROCESS-PARMS. DTSBD745 00227 IF PARM-LENGTH = +5 DTSBD745 00228 NEXT SENTENCE DTSBD745 00229 ELSE DTSBD745 00230 MOVE 'PARM-LENGTH NOT EQUAL TO 5' DTSBD745 00231 TO ABEND-MSG DTSBD745 00232 PERFORM S999-ABEND THRU S999-EXIT. DTSBD745 00233 DTSBD745 00234 DTSBD745 00235 DISPLAY '***'. DTSBD745 00236 DTSBD745 00237 DISPLAY '*** ' DTSBD745 00238 WRK-MOD-NAME DTSBD745 00239 ' PARAMETERS: ' DTSBD745 00240 PARM-DATA. DTSBD745 00241 DTSBD745 00242 DISPLAY '***'. DTSBD745 00243 DTSBD745 00244 DTSBD745 00245 IF PARM-RTE-YR-START-YRQ-X = SPACES OR LOW-VALUES OR '000' DTSBD745 00246 PERFORM I1100-DEFAULT-START-YRQ THRU I1100-EXIT DTSBD745 00247 ELSE DTSBD745 00248 PERFORM I1200-EDIT-START-YRQ THRU I1200-EXIT. DTSBD745 00249 DTSBD745 00250 DTSBD745 00251 IF PARM-OVERWRITE-FUIR-IND = SPACES OR LOW-VALUES DTSBD745 00252 MOVE 'N' TO WRK-OVERWRITE-FUIR-IND DTSBD745 00253 ELSE DTSBD745 00254 IF PARM-OVERWRITE-FUIR-IND = 'N' OR 'Y' DTSBD745 00255 MOVE PARM-OVERWRITE-FUIR-IND TO WRK-OVERWRITE-FUIR-IND DTSBD745 00256 ELSE DTSBD745 00257 MOVE 'INVALID PARM-OVERWRITE-FUIR VALUE ENCOUNTERED' DTSBD745 00258 TO ABEND-MSG DTSBD745 00259 PERFORM S999-ABEND THRU S999-EXIT. DTSBD745 00260 I1000-EXIT. DTSBD745 00261 EXIT. DTSBD745 00262 SKIP3 DTSBD745 00263 I1100-DEFAULT-START-YRQ. DTSBD745 00264 MOVE MHDR-LAST-RATE-END-YRQ TO L004-QTR-5-9. DTSBD745 00265 DTSBD745 00266 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD745 00267 DTSBD745 00268 IF L004-INVALID-QTR DTSBD745 00269 MOVE 'LOGIC ERROR I1100-1' DTSBD745 00270 TO ABEND-MSG DTSBD745 00271 PERFORM S999-ABEND THRU S999-EXIT. DTSBD745 00272 DTSBD745 00273 DTSBD745 00274 ADD +1 TO L004-ABS-QTR. DTSBD745 00275 DTSBD745 00276 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBD745 00277 DTSBD745 00278 MOVE L004-QTR-5-9 TO L006-YRQ. DTSBD745 00279 DTSBD745 00280 PERFORM S006-FROM-QTR THRU S006-EXIT. DTSBD745 00281 DTSBD745 00282 IF L004-QTR-5-9 = L006-RTE-YR-START-YRQ DTSBD745 00283 MOVE L006-RTE-YR-START-YRQ TO WRK-RTE-YR-START-YRQ DTSBD745 00284 ELSE DTSBD745 00285 MOVE 'INVALID MHDR-LAST-RATE-YRQ ENCOUNTERED' DTSBD745 00286 TO ABEND-MSG DTSBD745 00287 PERFORM S999-ABEND THRU S999-EXIT. DTSBD745 00288 I1100-EXIT. DTSBD745 00289 EXIT. DTSBD745 00290 SKIP3 DTSBD745 00291 I1200-EDIT-START-YRQ. DTSBD745 00292 MOVE PARM-RTE-YR-START-YRQ-X TO L004-QTR-3. DTSBD745 00293 DTSBD745 00294 PERFORM S004-FROM-3 THRU S004-EXIT. DTSBD745 00295 DTSBD745 00296 IF L004-INVALID-QTR DTSBD745 00297 MOVE 'INVALID PARM-RTE-YR-START-YRQ-X ENCOUNTERED' DTSBD745 00298 TO ABEND-MSG DTSBD745 00299 PERFORM S999-ABEND THRU S999-EXIT. DTSBD745 00300 DTSBD745 00301 MOVE L004-QTR-5-9 TO L006-YRQ. DTSBD745 00302 DTSBD745 00303 PERFORM S006-FROM-QTR THRU S006-EXIT. DTSBD745 00304 DTSBD745 00305 IF L004-QTR-5-9 = L006-RTE-YR-START-YRQ DTSBD745 00306 MOVE L006-RTE-YR-START-YRQ TO WRK-RTE-YR-START-YRQ DTSBD745 00307 ELSE DTSBD745 00308 MOVE 'PARM-RTE-YR-START-YRQ NOT FIRST QTR IN RATE YEAR' DTSBD745 00309 TO ABEND-MSG DTSBD745 00310 PERFORM S999-ABEND THRU S999-EXIT. DTSBD745 00311 I1200-EXIT. DTSBD745 00312 EXIT. DTSBD745 00313 SKIP3 DTSBD745 00314 ************************************************************* DTSBD745 00315 * SET THE RANGE OF QUARTERS FROM WHICH WAGES WILL BE GATHERED: DTSBD745 00316 * JULY 1 THROUGH JUNE 30, WITH THE REPORT PERIOD ENDING IN DTSBD745 00317 * THE YEAR PRIOR TO THE RATING YEAR. FOR RATE YEAR 2004, DTSBD745 00318 * USES WAGES FROM 7/1/2002 THROUGH 6/30/2003. DTSBD745 00319 * USE ONLY WAGES FROM REPORTS RECEIVED THROUGH THE CUTOFF DATE DTSBD745 00320 * OF SEPTEMBER 30 OF THE YEAR PRIOR TO THE RATING YEAR. DTSBD745 00321 ************************************************************* DTSBD745 00322 I2000-SET-DATES. DTSBD745 00323 MOVE WRK-RTE-YR-START-YRQ TO L004-QTR-5-9. DTSBD745 00324 PERFORM S006-FROM-QTR THRU S006-EXIT. DTSBD745 00325 DTSBD745 00326 SUBTRACT +3 FROM L004-ABS-QTR. DTSBD745 00327 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBD745 00328 MOVE L004-QTR-5-9 TO WRK-WAGE-END-YRQ. DTSBD745 00329 DTSBD745 00330 SUBTRACT +3 FROM L004-ABS-QTR. DTSBD745 00331 PERFORM S004-FROM-ABS THRU S004-EXIT. DTSBD745 00332 MOVE L004-QTR-5-9 TO WRK-WAGE-START-YRQ. DTSBD745 00333 DTSBD745 00334 MOVE WRK-RTE-YR-START-YRQ TO L004-QTR-5-9. DTSBD745 00335 PERFORM S004-FROM-5 THRU S006-EXIT. DTSBD745 00336 MOVE L004-QTR-START-DATE TO L001-FED-8-DATE-9. DTSBD745 00337 SUBTRACT 1 FROM L001-FED-8-YR. DTSBD745 00338 MOVE 09 TO L001-FED-8-MO. DTSBD745 00339 MOVE 30 TO L001-FED-8-DA. DTSBD745 00340 MOVE L001-FED-8-DATE-9 TO WRK-RPT-CUTOFF-DATE. DTSBD745 00341 DTSBD745 00342 I2000-EXIT. DTSBD745 00343 EXIT. DTSBD745 00344 SKIP3 DTSBD745 00345 I3000-READ-FUIR. DTSBD745 00346 MOVE LOW-VALUE TO FUIR-KEY-AREA. DTSBD745 00347 DTSBD745 00348 SET FUIR-UIR-88 TO TRUE. DTSBD745 00349 DTSBD745 00350 MOVE WRK-RTE-YR-START-YRQ TO FUIR-EFF-YRQ. DTSBD745 00351 DTSBD745 00352 MOVE FUIR-KEY-AREA TO FSKL-KEY-AREA. DTSBD745 00353 DTSBD745 00354 PERFORM S931-READ THRU S931-EXIT. DTSBD745 00355 DTSBD745 00356 IF L931-OK-88 DTSBD745 00357 MOVE FSKL-REC TO FUIR-REC DTSBD745 00358 DTSBD745 00359 ELSE DTSBD745 00360 DISPLAY 'FUIR RECORD MISSING FOR ' DTSBD745 00361 WRK-RTE-YR-START-YRQ DTSBD745 00362 PERFORM S999-ABEND THRU S999-EXIT. DTSBD745 00363 DTSBD745 00364 IF FUIR-TRUST-FUND-BAL-AMT = ZERO DTSBD745 00365 DISPLAY 'TRUST FUND BALANCE = ZERO' DTSBD745 00366 PERFORM S999-ABEND THRU S999-EXIT DTSBD745 00367 ELSE DTSBD745 00368 MOVE FUIR-TRUST-FUND-BAL-AMT TO WRK-TRUST-FUND-BAL. DTSBD745 00369 DTSBD745 00370 I3000-EXIT. DTSBD745 00371 EXIT. DTSBD745 00372 SKIP3 DTSBD745 00373 P0000-PROCESS. DTSBD745 00374 MOVE LOW-VALUES TO MSKL-KEY-AREA. DTSBD745 00375 DTSBD745 00376 MOVE +0 TO MSKL-EMP-NO. DTSBD745 00377 DTSBD745 00378 SET MSKL-PRF-88 TO TRUE. DTSBD745 00379 DTSBD745 00380 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD745 00381 DTSBD745 00382 IF L910-OK-88 DTSBD745 00383 NEXT SENTENCE DTSBD745 00384 ELSE DTSBD745 00385 DISPLAY 'TAX MASTER FILE EMPTY ' DTSBD745 00386 PERFORM S999-ABEND THRU S999-EXIT. DTSBD745 00387 DTSBD745 00388 PERFORM P1000-SUM-WAGES THRU P1000-EXIT DTSBD745 00389 UNTIL L910-NO-REC-88. DTSBD745 00390 DTSBD745 00391 PERFORM P2000-DETERMINE-TABLE THRU P2000-EXIT. DTSBD745 00392 DTSBD745 00393 PERFORM P3000-UPDATE-FUIR THRU P3000-EXIT. DTSBD745 00394 DTSBD745 00395 DTSBD745 00396 P0000-EXIT. DTSBD745 00397 EXIT. DTSBD745 00398 EJECT DTSBD745 00399 P1000-SUM-WAGES. DTSBD745 00400 MOVE MSKL-REC TO MPRF-REC. DTSBD745 00401 DTSBD745 00402 IF MPRF-CLASS-RATED-88 DTSBD745 00403 NEXT SENTENCE DTSBD745 00404 ELSE DTSBD745 00405 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD745 00406 GO TO P1000-EXIT. DTSBD745 00407 DTSBD745 00408 MOVE LOW-VALUES TO MRPT-KEY-AREA. DTSBD745 00409 MOVE MPRF-EMP-NO TO MRPT-EMP-NO. DTSBD745 00410 SET MRPT-RPT-88 TO TRUE. DTSBD745 00411 MOVE WRK-WAGE-START-YRQ TO MRPT-YRQ. DTSBD745 00412 MOVE ZERO TO MRPT-BATCH-NO DTSBD745 00413 MRPT-ITEM-NO. DTSBD745 00414 DTSBD745 00415 MOVE MRPT-KEY-AREA TO MSKL-KEY-AREA. DTSBD745 00416 DTSBD745 00417 PERFORM S910-START-BROWSE THRU S910-EXIT. DTSBD745 00418 DTSBD745 00419 PERFORM DTSBD745 00420 UNTIL L910-NO-REC-88 DTSBD745 00421 MOVE MSKL-REC TO MRPT-REC DTSBD745 00422 PERFORM P1100-PROCESS-MRPT THRU P1100-EXIT DTSBD745 00423 PERFORM S910-READ-NEXT THRU S910-EXIT DTSBD745 00424 END-PERFORM. DTSBD745 00425 DTSBD745 00426 MOVE MPRF-REC TO MSKL-REC. DTSBD745 00427 PERFORM S910-READ-NEXT THRU S910-EXIT. DTSBD745 00428 DTSBD745 00429 P1000-EXIT. DTSBD745 00430 EXIT. DTSBD745 00431 DTSBD745 00432 P1100-PROCESS-MRPT. DTSBD745 00433 IF MRPT-YRQ > WRK-WAGE-END-YRQ DTSBD745 00434 SET L910-NO-REC-88 TO TRUE DTSBD745 00435 GO TO P1100-EXIT. DTSBD745 00436 DTSBD745 00437 IF MRPT-ESTIM-88 DTSBD745 00438 GO TO P1100-EXIT. DTSBD745 00439 DTSBD745 00440 IF MRPT-RECEIVED-DATE > WRK-RPT-CUTOFF-DATE DTSBD745 00441 GO TO P1100-EXIT. DTSBD745 00442 DTSBD745 00443 ADD MRPT-TOT-WAGE TO WRK-TOT-WAGE. DTSBD745 00444 DTSBD745 00445 P1100-EXIT. DTSBD745 00446 EXIT. DTSBD745 00447 EJECT DTSBD745 00448 P2000-DETERMINE-TABLE. DTSBD745 00449 COMPUTE WRK-PCT = DTSBD745 00450 (WRK-TRUST-FUND-BAL / WRK-TOT-WAGE) * 100. DTSBD745 00451 DTSBD745 00452 EVALUATE TRUE DTSBD745 00453 WHEN WRK-PCT <= .8 DTSBD745 00454 SET WRK-TABLE-VI TO TRUE DTSBD745 00455 DTSBD745 00456 WHEN WRK-PCT <= 1.5 DTSBD745 00457 SET WRK-TABLE-V TO TRUE DTSBD745 00458 DTSBD745 00459 WHEN WRK-PCT <= 2 DTSBD745 00460 SET WRK-TABLE-IV TO TRUE DTSBD745 00461 DTSBD745 00462 WHEN WRK-PCT <= 2.5 DTSBD745 00463 SET WRK-TABLE-III TO TRUE DTSBD745 00464 DTSBD745 00465 WHEN WRK-PCT <= 3 DTSBD745 00466 SET WRK-TABLE-II TO TRUE DTSBD745 00467 DTSBD745 00468 WHEN OTHER DTSBD745 00469 SET WRK-TABLE-I TO TRUE DTSBD745 00470 DTSBD745 00471 END-EVALUATE. DTSBD745 00472 DTSBD745 00473 P2000-EXIT. DTSBD745 00474 EXIT. DTSBD745 00475 DTSBD745 00476 P3000-UPDATE-FUIR. DTSBD745 00477 MOVE LOW-VALUE TO FUIR-KEY-AREA. DTSBD745 00478 DTSBD745 00479 SET FUIR-UIR-88 TO TRUE. DTSBD745 00480 DTSBD745 00481 MOVE WRK-RTE-YR-START-YRQ TO FUIR-EFF-YRQ. DTSBD745 00482 DTSBD745 00483 MOVE FUIR-KEY-AREA TO FSKL-KEY-AREA. DTSBD745 00484 DTSBD745 00485 PERFORM S931-READ THRU S931-EXIT. DTSBD745 00486 DTSBD745 00487 IF NOT L931-OK-88 DTSBD745 00488 PERFORM S999-ABEND THRU S999-EXIT. DTSBD745 00489 DTSBD745 00490 MOVE FSKL-REC TO FUIR-REC. DTSBD745 00491 DTSBD745 00492 MOVE WRK-TOT-WAGE TO WRK-DISPLAY-AMT-9A. DTSBD745 00493 MOVE WRK-PCT TO WRK-DISPLAY-PCT. DTSBD745 00494 DISPLAY 'BD745 FUIR RATE TABLE ' FUIR-RATE-TABLE DTSBD745 00495 ' OVERWRITE ' WRK-OVERWRITE-FUIR-IND DTSBD745 00496 ' PRM ' PARM-OVERWRITE-FUIR-IND DTSBD745 00497 ' WAGES ' WRK-DISPLAY-AMT-9A DTSBD745 00498 ' PCT ' WRK-DISPLAY-PCT. DTSBD745 00499 IF FUIR-RATE-TABLE NOT = SPACES DTSBD745 00500 IF WRK-OVERWRITE-FUIR-YES-88 DTSBD745 00501 MOVE WRK-TABLE TO FUIR-RATE-TABLE DTSBD745 00502 PERFORM P3100-ADD-RATES THRU P3100-EXIT DTSBD745 00503 MOVE MHDR-CURR-RUN-DATE TO FUIR-CHNG-DATE DTSBD745 00504 MOVE WRK-TOT-WAGE TO FUIR-TOT-CONTRIB-WAGES-AMT DTSBD745 00505 MOVE WRK-PCT TO FUIR-TRUST-FUND-BAL-WAGES DTSBD745 00506 MOVE FUIR-REC TO FSKL-REC DTSBD745 00507 PERFORM S931-REWRITE THRU S931-EXIT DTSBD745 00508 ELSE DTSBD745 00509 NEXT SENTENCE DTSBD745 00510 ELSE DTSBD745 00511 MOVE WRK-TABLE TO FUIR-RATE-TABLE DTSBD745 00512 PERFORM P3100-ADD-RATES THRU P3100-EXIT DTSBD745 00513 MOVE MHDR-CURR-RUN-DATE TO FUIR-CHNG-DATE DTSBD745 00514 MOVE WRK-TOT-WAGE TO FUIR-TOT-CONTRIB-WAGES-AMT DTSBD745 00515 MOVE WRK-PCT TO FUIR-TRUST-FUND-BAL-WAGES DTSBD745 00516 MOVE FUIR-REC TO FSKL-REC DTSBD745 00517 PERFORM S931-REWRITE THRU S931-EXIT. DTSBD745 00518 DTSBD745 00519 P3000-EXIT. DTSBD745 00520 EXIT. DTSBD745 00521 DTSBD745 00522 P3100-ADD-RATES. DTSBD745 00523 EVALUATE TRUE DTSBD745 00524 WHEN WRK-TABLE-I DTSBD745 00525 PERFORM P3110-TABLE-I THRU P3110-EXIT DTSBD745 00526 DTSBD745 00527 WHEN WRK-TABLE-II DTSBD745 00528 PERFORM P3120-TABLE-II THRU P3120-EXIT DTSBD745 00529 DTSBD745 00530 WHEN WRK-TABLE-III DTSBD745 00531 PERFORM P3130-TABLE-III THRU P3130-EXIT DTSBD745 00532 DTSBD745 00533 WHEN WRK-TABLE-IV DTSBD745 00534 PERFORM P3140-TABLE-IV THRU P3140-EXIT DTSBD745 00535 DTSBD745 00536 WHEN WRK-TABLE-V DTSBD745 00537 PERFORM P3150-TABLE-V THRU P3150-EXIT DTSBD745 00538 DTSBD745 00539 WHEN WRK-TABLE-VI DTSBD745 00540 PERFORM P3160-TABLE-VI THRU P3160-EXIT DTSBD745 00541 DTSBD745 00542 END-EVALUATE. DTSBD745 00543 DTSBD745 00544 P3100-EXIT. DTSBD745 00545 EXIT. DTSBD745 00546 DTSBD745 00547 P3110-TABLE-I. DTSBD745 00548 MOVE RATE-TABLE-I-CNT TO FUIR-RATE-CNT. DTSBD745 00549 DTSBD745 00550 MOVE RATE-I1 TO FUIR-UI-RATE (1). DTSBD745 00551 MOVE MIN-I1 TO FUIR-MIN-RATIO (1). DTSBD745 00552 MOVE MAX-I1 TO FUIR-MAX-RATIO (1). DTSBD745 00553 DTSBD745 00554 MOVE RATE-I2 TO FUIR-UI-RATE (2). DTSBD745 00555 MOVE MIN-I2 TO FUIR-MIN-RATIO (2). DTSBD745 00556 MOVE MAX-I2 TO FUIR-MAX-RATIO (2). DTSBD745 00557 DTSBD745 00558 MOVE RATE-I3 TO FUIR-UI-RATE (3). DTSBD745 00559 MOVE MIN-I3 TO FUIR-MIN-RATIO (3). DTSBD745 00560 MOVE MAX-I3 TO FUIR-MAX-RATIO (3). DTSBD745 00561 DTSBD745 00562 MOVE RATE-I4 TO FUIR-UI-RATE (4). DTSBD745 00563 MOVE MIN-I4 TO FUIR-MIN-RATIO (4). DTSBD745 00564 MOVE MAX-I4 TO FUIR-MAX-RATIO (4). DTSBD745 00565 DTSBD745 00566 MOVE RATE-I5 TO FUIR-UI-RATE (5). DTSBD745 00567 MOVE MIN-I5 TO FUIR-MIN-RATIO (5). DTSBD745 00568 MOVE MAX-I5 TO FUIR-MAX-RATIO (5). DTSBD745 00569 DTSBD745 00570 MOVE RATE-I6 TO FUIR-UI-RATE (6). DTSBD745 00571 MOVE MIN-I6 TO FUIR-MIN-RATIO (6). DTSBD745 00572 MOVE MAX-I6 TO FUIR-MAX-RATIO (6). DTSBD745 00573 DTSBD745 00574 MOVE RATE-I7 TO FUIR-UI-RATE (7). DTSBD745 00575 MOVE MIN-I7 TO FUIR-MIN-RATIO (7). DTSBD745 00576 MOVE MAX-I7 TO FUIR-MAX-RATIO (7). DTSBD745 00577 DTSBD745 00578 MOVE RATE-I8 TO FUIR-UI-RATE (8). DTSBD745 00579 MOVE MIN-I8 TO FUIR-MIN-RATIO (8). DTSBD745 00580 MOVE MAX-I8 TO FUIR-MAX-RATIO (8). DTSBD745 00581 DTSBD745 00582 MOVE RATE-I9 TO FUIR-UI-RATE (9). DTSBD745 00583 MOVE MIN-I9 TO FUIR-MIN-RATIO (9). DTSBD745 00584 MOVE MAX-I9 TO FUIR-MAX-RATIO (9). DTSBD745 00585 DTSBD745 00586 MOVE RATE-I10 TO FUIR-UI-RATE (10). DTSBD745 00587 MOVE MIN-I10 TO FUIR-MIN-RATIO (10). DTSBD745 00588 MOVE MAX-I10 TO FUIR-MAX-RATIO (10). DTSBD745 00589 DTSBD745 00590 MOVE RATE-I11 TO FUIR-UI-RATE (11). DTSBD745 00591 MOVE MIN-I11 TO FUIR-MIN-RATIO (11). DTSBD745 00592 MOVE MAX-I11 TO FUIR-MAX-RATIO (11). DTSBD745 00593 DTSBD745 00594 MOVE RATE-I12 TO FUIR-UI-RATE (12). DTSBD745 00595 MOVE MIN-I12 TO FUIR-MIN-RATIO (12). DTSBD745 00596 MOVE MAX-I12 TO FUIR-MAX-RATIO (12). DTSBD745 00597 DTSBD745 00598 MOVE RATE-I13 TO FUIR-UI-RATE (13). DTSBD745 00599 MOVE MIN-I13 TO FUIR-MIN-RATIO (13). DTSBD745 00600 MOVE MAX-I13 TO FUIR-MAX-RATIO (13). DTSBD745 00601 DTSBD745 00602 MOVE RATE-I14 TO FUIR-UI-RATE (14). DTSBD745 00603 MOVE MIN-I14 TO FUIR-MIN-RATIO (14). DTSBD745 00604 MOVE MAX-I14 TO FUIR-MAX-RATIO (14). DTSBD745 00605 DTSBD745 00606 MOVE RATE-I15 TO FUIR-UI-RATE (15). DTSBD745 00607 MOVE MIN-I15 TO FUIR-MIN-RATIO (15). DTSBD745 00608 MOVE MAX-I15 TO FUIR-MAX-RATIO (15). DTSBD745 00609 DTSBD745 00610 MOVE RATE-I16 TO FUIR-UI-RATE (16). DTSBD745 00611 MOVE MIN-I16 TO FUIR-MIN-RATIO (16). DTSBD745 00612 MOVE MAX-I16 TO FUIR-MAX-RATIO (16). DTSBD745 00613 DTSBD745 00614 MOVE RATE-I17 TO FUIR-UI-RATE (17). DTSBD745 00615 MOVE MIN-I17 TO FUIR-MIN-RATIO (17). DTSBD745 00616 MOVE MAX-I17 TO FUIR-MAX-RATIO (17). DTSBD745 00617 DTSBD745 00618 MOVE RATE-I18 TO FUIR-UI-RATE (18). DTSBD745 00619 MOVE MIN-I18 TO FUIR-MIN-RATIO (18). DTSBD745 00620 MOVE MAX-I18 TO FUIR-MAX-RATIO (18). DTSBD745 00621 DTSBD745 00622 MOVE RATE-I19 TO FUIR-UI-RATE (19). DTSBD745 00623 MOVE MIN-I19 TO FUIR-MIN-RATIO (19). DTSBD745 00624 MOVE MAX-I19 TO FUIR-MAX-RATIO (19). DTSBD745 00625 DTSBD745 00626 MOVE RATE-I20 TO FUIR-UI-RATE (20). DTSBD745 00627 MOVE MIN-I20 TO FUIR-MIN-RATIO (20). DTSBD745 00628 MOVE MAX-I20 TO FUIR-MAX-RATIO (20). DTSBD745 00629 DTSBD745 00630 P3110-EXIT. DTSBD745 00631 EXIT. DTSBD745 00632 DTSBD745 00633 P3120-TABLE-II. DTSBD745 00634 MOVE RATE-TABLE-II-CNT TO FUIR-RATE-CNT. DTSBD745 00635 DTSBD745 00636 MOVE RATE-II1 TO FUIR-UI-RATE (1). DTSBD745 00637 MOVE MIN-II1 TO FUIR-MIN-RATIO (1). DTSBD745 00638 MOVE MAX-II1 TO FUIR-MAX-RATIO (1). DTSBD745 00639 DTSBD745 00640 MOVE RATE-II2 TO FUIR-UI-RATE (2). DTSBD745 00641 MOVE MIN-II2 TO FUIR-MIN-RATIO (2). DTSBD745 00642 MOVE MAX-II2 TO FUIR-MAX-RATIO (2). DTSBD745 00643 DTSBD745 00644 MOVE RATE-II3 TO FUIR-UI-RATE (3). DTSBD745 00645 MOVE MIN-II3 TO FUIR-MIN-RATIO (3). DTSBD745 00646 MOVE MAX-II3 TO FUIR-MAX-RATIO (3). DTSBD745 00647 DTSBD745 00648 MOVE RATE-II4 TO FUIR-UI-RATE (4). DTSBD745 00649 MOVE MIN-II4 TO FUIR-MIN-RATIO (4). DTSBD745 00650 MOVE MAX-II4 TO FUIR-MAX-RATIO (4). DTSBD745 00651 DTSBD745 00652 MOVE RATE-II5 TO FUIR-UI-RATE (5). DTSBD745 00653 MOVE MIN-II5 TO FUIR-MIN-RATIO (5). DTSBD745 00654 MOVE MAX-II5 TO FUIR-MAX-RATIO (5). DTSBD745 00655 DTSBD745 00656 MOVE RATE-II6 TO FUIR-UI-RATE (6). DTSBD745 00657 MOVE MIN-II6 TO FUIR-MIN-RATIO (6). DTSBD745 00658 MOVE MAX-II6 TO FUIR-MAX-RATIO (6). DTSBD745 00659 DTSBD745 00660 MOVE RATE-II7 TO FUIR-UI-RATE (7). DTSBD745 00661 MOVE MIN-II7 TO FUIR-MIN-RATIO (7). DTSBD745 00662 MOVE MAX-II7 TO FUIR-MAX-RATIO (7). DTSBD745 00663 DTSBD745 00664 MOVE RATE-II8 TO FUIR-UI-RATE (8). DTSBD745 00665 MOVE MIN-II8 TO FUIR-MIN-RATIO (8). DTSBD745 00666 MOVE MAX-II8 TO FUIR-MAX-RATIO (8). DTSBD745 00667 DTSBD745 00668 MOVE RATE-II9 TO FUIR-UI-RATE (9). DTSBD745 00669 MOVE MIN-II9 TO FUIR-MIN-RATIO (9). DTSBD745 00670 MOVE MAX-II9 TO FUIR-MAX-RATIO (9). DTSBD745 00671 DTSBD745 00672 MOVE RATE-II10 TO FUIR-UI-RATE (10). DTSBD745 00673 MOVE MIN-II10 TO FUIR-MIN-RATIO (10). DTSBD745 00674 MOVE MAX-II10 TO FUIR-MAX-RATIO (10). DTSBD745 00675 DTSBD745 00676 MOVE RATE-II11 TO FUIR-UI-RATE (11). DTSBD745 00677 MOVE MIN-II11 TO FUIR-MIN-RATIO (11). DTSBD745 00678 MOVE MAX-II11 TO FUIR-MAX-RATIO (11). DTSBD745 00679 DTSBD745 00680 MOVE RATE-II12 TO FUIR-UI-RATE (12). DTSBD745 00681 MOVE MIN-II12 TO FUIR-MIN-RATIO (12). DTSBD745 00682 MOVE MAX-II12 TO FUIR-MAX-RATIO (12). DTSBD745 00683 DTSBD745 00684 MOVE RATE-II13 TO FUIR-UI-RATE (13). DTSBD745 00685 MOVE MIN-II13 TO FUIR-MIN-RATIO (13). DTSBD745 00686 MOVE MAX-II13 TO FUIR-MAX-RATIO (13). DTSBD745 00687 DTSBD745 00688 MOVE RATE-II14 TO FUIR-UI-RATE (14). DTSBD745 00689 MOVE MIN-II14 TO FUIR-MIN-RATIO (14). DTSBD745 00690 MOVE MAX-II14 TO FUIR-MAX-RATIO (14). DTSBD745 00691 DTSBD745 00692 MOVE RATE-II15 TO FUIR-UI-RATE (15). DTSBD745 00693 MOVE MIN-II15 TO FUIR-MIN-RATIO (15). DTSBD745 00694 MOVE MAX-II15 TO FUIR-MAX-RATIO (15). DTSBD745 00695 DTSBD745 00696 MOVE RATE-II16 TO FUIR-UI-RATE (16). DTSBD745 00697 MOVE MIN-II16 TO FUIR-MIN-RATIO (16). DTSBD745 00698 MOVE MAX-II16 TO FUIR-MAX-RATIO (16). DTSBD745 00699 DTSBD745 00700 MOVE RATE-II17 TO FUIR-UI-RATE (17). DTSBD745 00701 MOVE MIN-II17 TO FUIR-MIN-RATIO (17). DTSBD745 00702 MOVE MAX-II17 TO FUIR-MAX-RATIO (17). DTSBD745 00703 DTSBD745 00704 MOVE RATE-II18 TO FUIR-UI-RATE (18). DTSBD745 00705 MOVE MIN-II18 TO FUIR-MIN-RATIO (18). DTSBD745 00706 MOVE MAX-II18 TO FUIR-MAX-RATIO (18). DTSBD745 00707 DTSBD745 00708 MOVE RATE-II19 TO FUIR-UI-RATE (19). DTSBD745 00709 MOVE MIN-II19 TO FUIR-MIN-RATIO (19). DTSBD745 00710 MOVE MAX-II19 TO FUIR-MAX-RATIO (19). DTSBD745 00711 DTSBD745 00712 MOVE RATE-II20 TO FUIR-UI-RATE (20). DTSBD745 00713 MOVE MIN-II20 TO FUIR-MIN-RATIO (20). DTSBD745 00714 MOVE MAX-II20 TO FUIR-MAX-RATIO (20). DTSBD745 00715 DTSBD745 00716 P3120-EXIT. DTSBD745 00717 EXIT. DTSBD745 00718 DTSBD745 00719 P3130-TABLE-III. DTSBD745 00720 MOVE RATE-TABLE-III-CNT TO FUIR-RATE-CNT. DTSBD745 00721 DTSBD745 00722 MOVE RATE-III1 TO FUIR-UI-RATE (1). DTSBD745 00723 MOVE MIN-III1 TO FUIR-MIN-RATIO (1). DTSBD745 00724 MOVE MAX-III1 TO FUIR-MAX-RATIO (1). DTSBD745 00725 DTSBD745 00726 MOVE RATE-III2 TO FUIR-UI-RATE (2). DTSBD745 00727 MOVE MIN-III2 TO FUIR-MIN-RATIO (2). DTSBD745 00728 MOVE MAX-III2 TO FUIR-MAX-RATIO (2). DTSBD745 00729 DTSBD745 00730 MOVE RATE-III3 TO FUIR-UI-RATE (3). DTSBD745 00731 MOVE MIN-III3 TO FUIR-MIN-RATIO (3). DTSBD745 00732 MOVE MAX-III3 TO FUIR-MAX-RATIO (3). DTSBD745 00733 DTSBD745 00734 MOVE RATE-III4 TO FUIR-UI-RATE (4). DTSBD745 00735 MOVE MIN-III4 TO FUIR-MIN-RATIO (4). DTSBD745 00736 MOVE MAX-III4 TO FUIR-MAX-RATIO (4). DTSBD745 00737 DTSBD745 00738 MOVE RATE-III5 TO FUIR-UI-RATE (5). DTSBD745 00739 MOVE MIN-III5 TO FUIR-MIN-RATIO (5). DTSBD745 00740 MOVE MAX-III5 TO FUIR-MAX-RATIO (5). DTSBD745 00741 DTSBD745 00742 MOVE RATE-III6 TO FUIR-UI-RATE (6). DTSBD745 00743 MOVE MIN-III6 TO FUIR-MIN-RATIO (6). DTSBD745 00744 MOVE MAX-III6 TO FUIR-MAX-RATIO (6). DTSBD745 00745 DTSBD745 00746 MOVE RATE-III7 TO FUIR-UI-RATE (7). DTSBD745 00747 MOVE MIN-III7 TO FUIR-MIN-RATIO (7). DTSBD745 00748 MOVE MAX-III7 TO FUIR-MAX-RATIO (7). DTSBD745 00749 DTSBD745 00750 MOVE RATE-III8 TO FUIR-UI-RATE (8). DTSBD745 00751 MOVE MIN-III8 TO FUIR-MIN-RATIO (8). DTSBD745 00752 MOVE MAX-III8 TO FUIR-MAX-RATIO (8). DTSBD745 00753 DTSBD745 00754 MOVE RATE-III9 TO FUIR-UI-RATE (9). DTSBD745 00755 MOVE MIN-III9 TO FUIR-MIN-RATIO (9). DTSBD745 00756 MOVE MAX-III9 TO FUIR-MAX-RATIO (9). DTSBD745 00757 DTSBD745 00758 MOVE RATE-III10 TO FUIR-UI-RATE (10). DTSBD745 00759 MOVE MIN-III10 TO FUIR-MIN-RATIO (10). DTSBD745 00760 MOVE MAX-III10 TO FUIR-MAX-RATIO (10). DTSBD745 00761 DTSBD745 00762 MOVE RATE-III11 TO FUIR-UI-RATE (11). DTSBD745 00763 MOVE MIN-III11 TO FUIR-MIN-RATIO (11). DTSBD745 00764 MOVE MAX-III11 TO FUIR-MAX-RATIO (11). DTSBD745 00765 DTSBD745 00766 MOVE RATE-III12 TO FUIR-UI-RATE (12). DTSBD745 00767 MOVE MIN-III12 TO FUIR-MIN-RATIO (12). DTSBD745 00768 MOVE MAX-III12 TO FUIR-MAX-RATIO (12). DTSBD745 00769 DTSBD745 00770 MOVE RATE-III13 TO FUIR-UI-RATE (13). DTSBD745 00771 MOVE MIN-III13 TO FUIR-MIN-RATIO (13). DTSBD745 00772 MOVE MAX-III13 TO FUIR-MAX-RATIO (13). DTSBD745 00773 DTSBD745 00774 MOVE RATE-III14 TO FUIR-UI-RATE (14). DTSBD745 00775 MOVE MIN-III14 TO FUIR-MIN-RATIO (14). DTSBD745 00776 MOVE MAX-III14 TO FUIR-MAX-RATIO (14). DTSBD745 00777 DTSBD745 00778 MOVE RATE-III15 TO FUIR-UI-RATE (15). DTSBD745 00779 MOVE MIN-III15 TO FUIR-MIN-RATIO (15). DTSBD745 00780 MOVE MAX-III15 TO FUIR-MAX-RATIO (15). DTSBD745 00781 DTSBD745 00782 MOVE RATE-III16 TO FUIR-UI-RATE (16). DTSBD745 00783 MOVE MIN-III16 TO FUIR-MIN-RATIO (16). DTSBD745 00784 MOVE MAX-III16 TO FUIR-MAX-RATIO (16). DTSBD745 00785 DTSBD745 00786 MOVE RATE-III17 TO FUIR-UI-RATE (17). DTSBD745 00787 MOVE MIN-III17 TO FUIR-MIN-RATIO (17). DTSBD745 00788 MOVE MAX-III17 TO FUIR-MAX-RATIO (17). DTSBD745 00789 DTSBD745 00790 MOVE RATE-III18 TO FUIR-UI-RATE (18). DTSBD745 00791 MOVE MIN-III18 TO FUIR-MIN-RATIO (18). DTSBD745 00792 MOVE MAX-III18 TO FUIR-MAX-RATIO (18). DTSBD745 00793 DTSBD745 00794 MOVE RATE-III19 TO FUIR-UI-RATE (19). DTSBD745 00795 MOVE MIN-III19 TO FUIR-MIN-RATIO (19). DTSBD745 00796 MOVE MAX-III19 TO FUIR-MAX-RATIO (19). DTSBD745 00797 DTSBD745 00798 MOVE RATE-III20 TO FUIR-UI-RATE (20). DTSBD745 00799 MOVE MIN-III20 TO FUIR-MIN-RATIO (20). DTSBD745 00800 MOVE MAX-III20 TO FUIR-MAX-RATIO (20). DTSBD745 00801 DTSBD745 00802 P3130-EXIT. DTSBD745 00803 EXIT. DTSBD745 00804 DTSBD745 00805 P3140-TABLE-IV. DTSBD745 00806 MOVE RATE-TABLE-IV-CNT TO FUIR-RATE-CNT. DTSBD745 00807 DTSBD745 00808 MOVE RATE-IV1 TO FUIR-UI-RATE (1). DTSBD745 00809 MOVE MIN-IV1 TO FUIR-MIN-RATIO (1). DTSBD745 00810 MOVE MAX-IV1 TO FUIR-MAX-RATIO (1). DTSBD745 00811 DTSBD745 00812 MOVE RATE-IV2 TO FUIR-UI-RATE (2). DTSBD745 00813 MOVE MIN-IV2 TO FUIR-MIN-RATIO (2). DTSBD745 00814 MOVE MAX-IV2 TO FUIR-MAX-RATIO (2). DTSBD745 00815 DTSBD745 00816 MOVE RATE-IV3 TO FUIR-UI-RATE (3). DTSBD745 00817 MOVE MIN-IV3 TO FUIR-MIN-RATIO (3). DTSBD745 00818 MOVE MAX-IV3 TO FUIR-MAX-RATIO (3). DTSBD745 00819 DTSBD745 00820 MOVE RATE-IV4 TO FUIR-UI-RATE (4). DTSBD745 00821 MOVE MIN-IV4 TO FUIR-MIN-RATIO (4). DTSBD745 00822 MOVE MAX-IV4 TO FUIR-MAX-RATIO (4). DTSBD745 00823 DTSBD745 00824 MOVE RATE-IV5 TO FUIR-UI-RATE (5). DTSBD745 00825 MOVE MIN-IV5 TO FUIR-MIN-RATIO (5). DTSBD745 00826 MOVE MAX-IV5 TO FUIR-MAX-RATIO (5). DTSBD745 00827 DTSBD745 00828 MOVE RATE-IV6 TO FUIR-UI-RATE (6). DTSBD745 00829 MOVE MIN-IV6 TO FUIR-MIN-RATIO (6). DTSBD745 00830 MOVE MAX-IV6 TO FUIR-MAX-RATIO (6). DTSBD745 00831 DTSBD745 00832 MOVE RATE-IV7 TO FUIR-UI-RATE (7). DTSBD745 00833 MOVE MIN-IV7 TO FUIR-MIN-RATIO (7). DTSBD745 00834 MOVE MAX-IV7 TO FUIR-MAX-RATIO (7). DTSBD745 00835 DTSBD745 00836 MOVE RATE-IV8 TO FUIR-UI-RATE (8). DTSBD745 00837 MOVE MIN-IV8 TO FUIR-MIN-RATIO (8). DTSBD745 00838 MOVE MAX-IV8 TO FUIR-MAX-RATIO (8). DTSBD745 00839 DTSBD745 00840 MOVE RATE-IV9 TO FUIR-UI-RATE (9). DTSBD745 00841 MOVE MIN-IV9 TO FUIR-MIN-RATIO (9). DTSBD745 00842 MOVE MAX-IV9 TO FUIR-MAX-RATIO (9). DTSBD745 00843 DTSBD745 00844 MOVE RATE-IV10 TO FUIR-UI-RATE (10). DTSBD745 00845 MOVE MIN-IV10 TO FUIR-MIN-RATIO (10). DTSBD745 00846 MOVE MAX-IV10 TO FUIR-MAX-RATIO (10). DTSBD745 00847 DTSBD745 00848 MOVE RATE-IV11 TO FUIR-UI-RATE (11). DTSBD745 00849 MOVE MIN-IV11 TO FUIR-MIN-RATIO (11). DTSBD745 00850 MOVE MAX-IV11 TO FUIR-MAX-RATIO (11). DTSBD745 00851 DTSBD745 00852 MOVE RATE-IV12 TO FUIR-UI-RATE (12). DTSBD745 00853 MOVE MIN-IV12 TO FUIR-MIN-RATIO (12). DTSBD745 00854 MOVE MAX-IV12 TO FUIR-MAX-RATIO (12). DTSBD745 00855 DTSBD745 00856 MOVE RATE-IV13 TO FUIR-UI-RATE (13). DTSBD745 00857 MOVE MIN-IV13 TO FUIR-MIN-RATIO (13). DTSBD745 00858 MOVE MAX-IV13 TO FUIR-MAX-RATIO (13). DTSBD745 00859 DTSBD745 00860 MOVE RATE-IV14 TO FUIR-UI-RATE (14). DTSBD745 00861 MOVE MIN-IV14 TO FUIR-MIN-RATIO (14). DTSBD745 00862 MOVE MAX-IV14 TO FUIR-MAX-RATIO (14). DTSBD745 00863 DTSBD745 00864 MOVE RATE-IV15 TO FUIR-UI-RATE (15). DTSBD745 00865 MOVE MIN-IV15 TO FUIR-MIN-RATIO (15). DTSBD745 00866 MOVE MAX-IV15 TO FUIR-MAX-RATIO (15). DTSBD745 00867 DTSBD745 00868 MOVE RATE-IV16 TO FUIR-UI-RATE (16). DTSBD745 00869 MOVE MIN-IV16 TO FUIR-MIN-RATIO (16). DTSBD745 00870 MOVE MAX-IV16 TO FUIR-MAX-RATIO (16). DTSBD745 00871 DTSBD745 00872 MOVE RATE-IV17 TO FUIR-UI-RATE (17). DTSBD745 00873 MOVE MIN-IV17 TO FUIR-MIN-RATIO (17). DTSBD745 00874 MOVE MAX-IV17 TO FUIR-MAX-RATIO (17). DTSBD745 00875 DTSBD745 00876 MOVE RATE-IV18 TO FUIR-UI-RATE (18). DTSBD745 00877 MOVE MIN-IV18 TO FUIR-MIN-RATIO (18). DTSBD745 00878 MOVE MAX-IV18 TO FUIR-MAX-RATIO (18). DTSBD745 00879 DTSBD745 00880 MOVE RATE-IV19 TO FUIR-UI-RATE (19). DTSBD745 00881 MOVE MIN-IV19 TO FUIR-MIN-RATIO (19). DTSBD745 00882 MOVE MAX-IV19 TO FUIR-MAX-RATIO (19). DTSBD745 00883 DTSBD745 00884 MOVE RATE-IV20 TO FUIR-UI-RATE (20). DTSBD745 00885 MOVE MIN-IV20 TO FUIR-MIN-RATIO (20). DTSBD745 00886 MOVE MAX-IV20 TO FUIR-MAX-RATIO (20). DTSBD745 00887 DTSBD745 00888 P3140-EXIT. DTSBD745 00889 EXIT. DTSBD745 00890 DTSBD745 00891 P3150-TABLE-V. DTSBD745 00892 MOVE RATE-TABLE-V-CNT TO FUIR-RATE-CNT. DTSBD745 00893 DTSBD745 00894 MOVE RATE-V1 TO FUIR-UI-RATE (1). DTSBD745 00895 MOVE MIN-V1 TO FUIR-MIN-RATIO (1). DTSBD745 00896 MOVE MAX-V1 TO FUIR-MAX-RATIO (1). DTSBD745 00897 DTSBD745 00898 MOVE RATE-V2 TO FUIR-UI-RATE (2). DTSBD745 00899 MOVE MIN-V2 TO FUIR-MIN-RATIO (2). DTSBD745 00900 MOVE MAX-V2 TO FUIR-MAX-RATIO (2). DTSBD745 00901 DTSBD745 00902 MOVE RATE-V3 TO FUIR-UI-RATE (3). DTSBD745 00903 MOVE MIN-V3 TO FUIR-MIN-RATIO (3). DTSBD745 00904 MOVE MAX-V3 TO FUIR-MAX-RATIO (3). DTSBD745 00905 DTSBD745 00906 MOVE RATE-V4 TO FUIR-UI-RATE (4). DTSBD745 00907 MOVE MIN-V4 TO FUIR-MIN-RATIO (4). DTSBD745 00908 MOVE MAX-V4 TO FUIR-MAX-RATIO (4). DTSBD745 00909 DTSBD745 00910 MOVE RATE-V5 TO FUIR-UI-RATE (5). DTSBD745 00911 MOVE MIN-V5 TO FUIR-MIN-RATIO (5). DTSBD745 00912 MOVE MAX-V5 TO FUIR-MAX-RATIO (5). DTSBD745 00913 DTSBD745 00914 MOVE RATE-V6 TO FUIR-UI-RATE (6). DTSBD745 00915 MOVE MIN-V6 TO FUIR-MIN-RATIO (6). DTSBD745 00916 MOVE MAX-V6 TO FUIR-MAX-RATIO (6). DTSBD745 00917 DTSBD745 00918 MOVE RATE-V7 TO FUIR-UI-RATE (7). DTSBD745 00919 MOVE MIN-V7 TO FUIR-MIN-RATIO (7). DTSBD745 00920 MOVE MAX-V7 TO FUIR-MAX-RATIO (7). DTSBD745 00921 DTSBD745 00922 MOVE RATE-V8 TO FUIR-UI-RATE (8). DTSBD745 00923 MOVE MIN-V8 TO FUIR-MIN-RATIO (8). DTSBD745 00924 MOVE MAX-V8 TO FUIR-MAX-RATIO (8). DTSBD745 00925 DTSBD745 00926 MOVE RATE-V9 TO FUIR-UI-RATE (9). DTSBD745 00927 MOVE MIN-V9 TO FUIR-MIN-RATIO (9). DTSBD745 00928 MOVE MAX-V9 TO FUIR-MAX-RATIO (9). DTSBD745 00929 DTSBD745 00930 MOVE RATE-V10 TO FUIR-UI-RATE (10). DTSBD745 00931 MOVE MIN-V10 TO FUIR-MIN-RATIO (10). DTSBD745 00932 MOVE MAX-V10 TO FUIR-MAX-RATIO (10). DTSBD745 00933 DTSBD745 00934 MOVE RATE-V11 TO FUIR-UI-RATE (11). DTSBD745 00935 MOVE MIN-V11 TO FUIR-MIN-RATIO (11). DTSBD745 00936 MOVE MAX-V11 TO FUIR-MAX-RATIO (11). DTSBD745 00937 DTSBD745 00938 MOVE RATE-V12 TO FUIR-UI-RATE (12). DTSBD745 00939 MOVE MIN-V12 TO FUIR-MIN-RATIO (12). DTSBD745 00940 MOVE MAX-V12 TO FUIR-MAX-RATIO (12). DTSBD745 00941 DTSBD745 00942 MOVE RATE-V13 TO FUIR-UI-RATE (13). DTSBD745 00943 MOVE MIN-V13 TO FUIR-MIN-RATIO (13). DTSBD745 00944 MOVE MAX-V13 TO FUIR-MAX-RATIO (13). DTSBD745 00945 DTSBD745 00946 MOVE RATE-V14 TO FUIR-UI-RATE (14). DTSBD745 00947 MOVE MIN-V14 TO FUIR-MIN-RATIO (14). DTSBD745 00948 MOVE MAX-V14 TO FUIR-MAX-RATIO (14). DTSBD745 00949 DTSBD745 00950 MOVE RATE-V15 TO FUIR-UI-RATE (15). DTSBD745 00951 MOVE MIN-V15 TO FUIR-MIN-RATIO (15). DTSBD745 00952 MOVE MAX-V15 TO FUIR-MAX-RATIO (15). DTSBD745 00953 DTSBD745 00954 MOVE RATE-V16 TO FUIR-UI-RATE (16). DTSBD745 00955 MOVE MIN-V16 TO FUIR-MIN-RATIO (16). DTSBD745 00956 MOVE MAX-V16 TO FUIR-MAX-RATIO (16). DTSBD745 00957 DTSBD745 00958 MOVE RATE-V17 TO FUIR-UI-RATE (17). DTSBD745 00959 MOVE MIN-V17 TO FUIR-MIN-RATIO (17). DTSBD745 00960 MOVE MAX-V17 TO FUIR-MAX-RATIO (17). DTSBD745 00961 DTSBD745 00962 MOVE RATE-V18 TO FUIR-UI-RATE (18). DTSBD745 00963 MOVE MIN-V18 TO FUIR-MIN-RATIO (18). DTSBD745 00964 MOVE MAX-V18 TO FUIR-MAX-RATIO (18). DTSBD745 00965 DTSBD745 00966 MOVE RATE-V19 TO FUIR-UI-RATE (19). DTSBD745 00967 MOVE MIN-V19 TO FUIR-MIN-RATIO (19). DTSBD745 00968 MOVE MAX-V19 TO FUIR-MAX-RATIO (19). DTSBD745 00969 DTSBD745 00970 MOVE RATE-V20 TO FUIR-UI-RATE (20). DTSBD745 00971 MOVE MIN-V20 TO FUIR-MIN-RATIO (20). DTSBD745 00972 MOVE MAX-V20 TO FUIR-MAX-RATIO (20). DTSBD745 00973 DTSBD745 00974 P3150-EXIT. DTSBD745 00975 EXIT. DTSBD745 00976 DTSBD745 00977 P3160-TABLE-VI. DTSBD745 00978 MOVE RATE-TABLE-VI-CNT TO FUIR-RATE-CNT. DTSBD745 00979 DTSBD745 00980 MOVE RATE-VI1 TO FUIR-UI-RATE (1). DTSBD745 00981 MOVE MIN-VI1 TO FUIR-MIN-RATIO (1). DTSBD745 00982 MOVE MAX-VI1 TO FUIR-MAX-RATIO (1). DTSBD745 00983 DTSBD745 00984 MOVE RATE-VI2 TO FUIR-UI-RATE (2). DTSBD745 00985 MOVE MIN-VI2 TO FUIR-MIN-RATIO (2). DTSBD745 00986 MOVE MAX-VI2 TO FUIR-MAX-RATIO (2). DTSBD745 00987 DTSBD745 00988 MOVE RATE-VI3 TO FUIR-UI-RATE (3). DTSBD745 00989 MOVE MIN-VI3 TO FUIR-MIN-RATIO (3). DTSBD745 00990 MOVE MAX-VI3 TO FUIR-MAX-RATIO (3). DTSBD745 00991 DTSBD745 00992 MOVE RATE-VI4 TO FUIR-UI-RATE (4). DTSBD745 00993 MOVE MIN-VI4 TO FUIR-MIN-RATIO (4). DTSBD745 00994 MOVE MAX-VI4 TO FUIR-MAX-RATIO (4). DTSBD745 00995 DTSBD745 00996 MOVE RATE-VI5 TO FUIR-UI-RATE (5). DTSBD745 00997 MOVE MIN-VI5 TO FUIR-MIN-RATIO (5). DTSBD745 00998 MOVE MAX-VI5 TO FUIR-MAX-RATIO (5). DTSBD745 00999 DTSBD745 01000 MOVE RATE-VI6 TO FUIR-UI-RATE (6). DTSBD745 01001 MOVE MIN-VI6 TO FUIR-MIN-RATIO (6). DTSBD745 01002 MOVE MAX-VI6 TO FUIR-MAX-RATIO (6). DTSBD745 01003 DTSBD745 01004 MOVE RATE-VI7 TO FUIR-UI-RATE (7). DTSBD745 01005 MOVE MIN-VI7 TO FUIR-MIN-RATIO (7). DTSBD745 01006 MOVE MAX-VI7 TO FUIR-MAX-RATIO (7). DTSBD745 01007 DTSBD745 01008 MOVE RATE-VI8 TO FUIR-UI-RATE (8). DTSBD745 01009 MOVE MIN-VI8 TO FUIR-MIN-RATIO (8). DTSBD745 01010 MOVE MAX-VI8 TO FUIR-MAX-RATIO (8). DTSBD745 01011 DTSBD745 01012 MOVE RATE-VI9 TO FUIR-UI-RATE (9). DTSBD745 01013 MOVE MIN-VI9 TO FUIR-MIN-RATIO (9). DTSBD745 01014 MOVE MAX-VI9 TO FUIR-MAX-RATIO (9). DTSBD745 01015 DTSBD745 01016 MOVE RATE-VI10 TO FUIR-UI-RATE (10). DTSBD745 01017 MOVE MIN-VI10 TO FUIR-MIN-RATIO (10). DTSBD745 01018 MOVE MAX-VI10 TO FUIR-MAX-RATIO (10). DTSBD745 01019 DTSBD745 01020 MOVE RATE-VI11 TO FUIR-UI-RATE (11). DTSBD745 01021 MOVE MIN-VI11 TO FUIR-MIN-RATIO (11). DTSBD745 01022 MOVE MAX-VI11 TO FUIR-MAX-RATIO (11). DTSBD745 01023 DTSBD745 01024 MOVE RATE-VI12 TO FUIR-UI-RATE (12). DTSBD745 01025 MOVE MIN-VI12 TO FUIR-MIN-RATIO (12). DTSBD745 01026 MOVE MAX-VI12 TO FUIR-MAX-RATIO (12). DTSBD745 01027 DTSBD745 01028 MOVE RATE-VI13 TO FUIR-UI-RATE (13). DTSBD745 01029 MOVE MIN-VI13 TO FUIR-MIN-RATIO (13). DTSBD745 01030 MOVE MAX-VI13 TO FUIR-MAX-RATIO (13). DTSBD745 01031 DTSBD745 01032 MOVE RATE-VI14 TO FUIR-UI-RATE (14). DTSBD745 01033 MOVE MIN-VI14 TO FUIR-MIN-RATIO (14). DTSBD745 01034 MOVE MAX-VI14 TO FUIR-MAX-RATIO (14). DTSBD745 01035 DTSBD745 01036 MOVE RATE-VI15 TO FUIR-UI-RATE (15). DTSBD745 01037 MOVE MIN-VI15 TO FUIR-MIN-RATIO (15). DTSBD745 01038 MOVE MAX-VI15 TO FUIR-MAX-RATIO (15). DTSBD745 01039 DTSBD745 01040 MOVE RATE-VI16 TO FUIR-UI-RATE (16). DTSBD745 01041 MOVE MIN-VI16 TO FUIR-MIN-RATIO (16). DTSBD745 01042 MOVE MAX-VI16 TO FUIR-MAX-RATIO (16). DTSBD745 01043 DTSBD745 01044 MOVE RATE-VI17 TO FUIR-UI-RATE (17). DTSBD745 01045 MOVE MIN-VI17 TO FUIR-MIN-RATIO (17). DTSBD745 01046 MOVE MAX-VI17 TO FUIR-MAX-RATIO (17). DTSBD745 01047 DTSBD745 01048 MOVE RATE-VI18 TO FUIR-UI-RATE (18). DTSBD745 01049 MOVE MIN-VI18 TO FUIR-MIN-RATIO (18). DTSBD745 01050 MOVE MAX-VI18 TO FUIR-MAX-RATIO (18). DTSBD745 01051 DTSBD745 01052 MOVE RATE-VI19 TO FUIR-UI-RATE (19). DTSBD745 01053 MOVE MIN-VI19 TO FUIR-MIN-RATIO (19). DTSBD745 01054 MOVE MAX-VI19 TO FUIR-MAX-RATIO (19). DTSBD745 01055 DTSBD745 01056 MOVE RATE-VI20 TO FUIR-UI-RATE (20). DTSBD745 01057 MOVE MIN-VI20 TO FUIR-MIN-RATIO (20). DTSBD745 01058 MOVE MAX-VI20 TO FUIR-MAX-RATIO (20). DTSBD745 01059 DTSBD745 01060 P3160-EXIT. DTSBD745 01061 EXIT. DTSBD745 01062 DTSBD745 01063 T0000-TERMINATE. DTSBD745 01064 DTSBD745 01065 PERFORM S910-CLOSE THRU S910-EXIT. DTSBD745 01066 DTSBD745 01067 PERFORM S931-CLOSE THRU S931-EXIT. DTSBD745 01068 DTSBD745 01069 DTSBD745 01070 DISPLAY '***'. DTSBD745 01071 DTSBD745 01072 DISPLAY '*** ' DTSBD745 01073 WRK-MOD-NAME DTSBD745 01074 ' TERMINATION DISPLAYS'. DTSBD745 01075 DTSBD745 01076 DTSBD745 01077 MOVE WRK-WAGE-START-YRQ TO L004-QTR-5-9. DTSBD745 01078 DTSBD745 01079 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD745 01080 DTSBD745 01081 DISPLAY '*** WAGE START QUARTER: ' DTSBD745 01082 L004-SLASH-5-QTR. DTSBD745 01083 DTSBD745 01084 DTSBD745 01085 DISPLAY '***'. DTSBD745 01086 DTSBD745 01087 MOVE WRK-WAGE-END-YRQ TO L004-QTR-5-9. DTSBD745 01088 DTSBD745 01089 PERFORM S004-FROM-5 THRU S004-EXIT. DTSBD745 01090 DTSBD745 01091 DISPLAY '*** WAGE END QUARTER: ' DTSBD745 01092 L004-SLASH-5-QTR. DTSBD745 01093 DTSBD745 01094 DTSBD745 01095 DISPLAY '***'. DTSBD745 01096 DTSBD745 01097 MOVE WRK-RPT-CUTOFF-DATE TO L001-FED-8-DATE-9. DTSBD745 01098 DTSBD745 01099 PERFORM S001-FROM-FED-8 THRU S001-EXIT. DTSBD745 01100 DTSBD745 01101 DISPLAY '*** REPORT CUTOFF DATE: ' DTSBD745 01102 L001-SLASH-8-DATE. DTSBD745 01103 DTSBD745 01104 DTSBD745 01105 DISPLAY '***'. DTSBD745 01106 DTSBD745 01107 MOVE WRK-TRUST-FUND-BAL TO WRK-DISPLAY-AMT-9. DTSBD745 01108 DTSBD745 01109 DISPLAY '*** TRUST FUND BALANCE: ' DTSBD745 01110 WRK-DISPLAY-AMT-X. DTSBD745 01111 DTSBD745 01112 DTSBD745 01113 DISPLAY '***'. DTSBD745 01114 DTSBD745 01115 MOVE WRK-TOT-WAGE TO WRK-DISPLAY-AMT-9. DTSBD745 01116 DTSBD745 01117 DISPLAY '*** TOTAL CONTRIBUTORY WAGES: ' DTSBD745 01118 WRK-DISPLAY-AMT-X. DTSBD745 01119 DTSBD745 01120 DTSBD745 01121 DISPLAY '***'. DTSBD745 01122 DTSBD745 01123 MOVE WRK-PCT TO WRK-DISPLAY-PCT. DTSBD745 01124 DTSBD745 01125 DISPLAY '*** TRUST FUND INTEREST / WAGES: ' DTSBD745 01126 WRK-DISPLAY-PCT. DTSBD745 01127 DTSBD745 01128 DTSBD745 01129 DISPLAY '***'. DTSBD745 01130 DTSBD745 01131 DISPLAY '*** CURRENT RATE TABLE: ' DTSBD745 01132 WRK-TABLE. DTSBD745 01133 DTSBD745 01134 T0000-EXIT. DTSBD745 01135 EXIT. DTSBD745 01136 DTSBD745 01137 S001-FROM-FED-8. DTSBD745 01138 SET L001-FROM-FED-8 TO TRUE. DTSBD745 01139 GO TO S001-DATE. DTSBD745 01140 DTSBD745 01141 S001-FROM-ABS-DAY. DTSBD745 01142 SET L001-FROM-ABS-DAY TO TRUE. DTSBD745 01143 GO TO S001-DATE. DTSBD745 01144 DTSBD745 01145 S001-FROM-CAL-6. DTSBD745 01146 SET L001-FROM-CAL-6 TO TRUE. DTSBD745 01147 GO TO S001-DATE. DTSBD745 01148 DTSBD745 01149 S001-FROM-FED-6. DTSBD745 01150 SET L001-FROM-FED-6 TO TRUE. DTSBD745 01151 GO TO S001-DATE. DTSBD745 01152 DTSBD745 01153 S001-DATE. DTSBD745 01154 CALL 'DTSBU001' USING L001-LINK-AREA. DTSBD745 01155 S001-EXIT. DTSBD745 01156 EXIT. DTSBD745 01157 SKIP3 DTSBD745 01158 S004-FROM-5. DTSBD745 01159 SET L004-FROM-5 TO TRUE. DTSBD745 01160 GO TO S004-QTR. DTSBD745 01161 DTSBD745 01162 S004-FROM-ABS. DTSBD745 01163 SET L004-FROM-ABS TO TRUE. DTSBD745 01164 GO TO S004-QTR. DTSBD745 01165 DTSBD745 01166 S004-FROM-3. DTSBD745 01167 SET L004-FROM-3 TO TRUE. DTSBD745 01168 GO TO S004-QTR. DTSBD745 01169 DTSBD745 01170 S004-QTR. DTSBD745 01171 CALL 'DTSBU004' USING L004-LINK-AREA. DTSBD745 01172 S004-EXIT. DTSBD745 01173 EXIT. DTSBD745 01174 SKIP3 DTSBD745 01175 S005-FROM-SYS. DTSBD745 01176 SET L005-FROM-SYS TO TRUE. DTSBD745 01177 GO TO S005-ABSTIME. DTSBD745 01178 DTSBD745 01179 S005-ABSTIME. DTSBD745 01180 CALL 'DTSBU005' USING L005-LINK-AREA. DTSBD745 01181 S005-EXIT. DTSBD745 01182 EXIT. DTSBD745 01183 SKIP3 DTSBD745 01184 S006-FROM-QTR. DTSBD745 01185 SET L006-FROM-QTR TO TRUE. DTSBD745 01186 GO TO S006-UI-RATE-YEAR. DTSBD745 01187 DTSBD745 01188 S006-UI-RATE-YEAR. DTSBD745 01189 CALL 'DTSBU006' USING L006-LINK-AREA. DTSBD745 01190 S006-EXIT. DTSBD745 01191 EXIT. DTSBD745 01192 SKIP3 DTSBD745 01193 S055-FROM-QTR. DTSBD745 01194 SET L055-FROM-EFF-YRQ-88 TO TRUE. DTSBD745 01195 GO TO S055-EXP-PERIOD. DTSBD745 01196 DTSBD745 01197 S055-EXP-PERIOD. DTSBD745 01198 CALL 'DTSBU055' USING L055-LINK-AREA. DTSBD745 01199 S055-EXIT. DTSBD745 01200 EXIT. DTSBD745 01201 DTSBD745 01202 S910-OPEN-READ. DTSBD745 01203 SET L910-OPEN-READ-88 TO TRUE. DTSBD745 01204 GO TO S910-MSTR-IO. DTSBD745 01205 DTSBD745 01206 S910-READ. DTSBD745 01207 SET L910-READ-88 TO TRUE. DTSBD745 01208 GO TO S910-MSTR-IO. DTSBD745 01209 DTSBD745 01210 S910-START-BROWSE. DTSBD745 01211 SET L910-START-BROWSE-88 TO TRUE. DTSBD745 01212 GO TO S910-MSTR-IO. DTSBD745 01213 DTSBD745 01214 S910-READ-NEXT. DTSBD745 01215 SET L910-READ-NEXT-88 TO TRUE. DTSBD745 01216 GO TO S910-MSTR-IO. DTSBD745 01217 DTSBD745 01218 S910-DELETE. DTSBD745 01219 SET L910-DELETE-88 TO TRUE. DTSBD745 01220 GO TO S910-MSTR-IO. DTSBD745 01221 DTSBD745 01222 S910-REWRITE. DTSBD745 01223 SET L910-REWRITE-88 TO TRUE. DTSBD745 01224 GO TO S910-MSTR-IO. DTSBD745 01225 DTSBD745 01226 S910-WRITE. DTSBD745 01227 SET L910-WRITE-88 TO TRUE. DTSBD745 01228 GO TO S910-MSTR-IO. DTSBD745 01229 DTSBD745 01230 S910-CLOSE. DTSBD745 01231 SET L910-CLOSE-88 TO TRUE. DTSBD745 01232 GO TO S910-MSTR-IO. DTSBD745 01233 DTSBD745 01234 S910-MSTR-IO. DTSBD745 01235 CALL 'DTSBU910' USING L910-LINK-AREA DTSBD745 01236 MSKL-REC. DTSBD745 01237 S910-EXIT. DTSBD745 01238 EXIT. DTSBD745 01239 SKIP3 DTSBD745 01240 S931-OPEN-UPDATE. DTSBD745 01241 SET L931-OPEN-UPDATE-88 TO TRUE. DTSBD745 01242 GO TO S931-REF-IO. DTSBD745 01243 DTSBD745 01244 S931-OPEN-READ. DTSBD745 01245 SET L931-OPEN-READ-88 TO TRUE. DTSBD745 01246 GO TO S931-REF-IO. DTSBD745 01247 DTSBD745 01248 S931-READ. DTSBD745 01249 SET L931-READ-88 TO TRUE. DTSBD745 01250 GO TO S931-REF-IO. DTSBD745 01251 DTSBD745 01252 S931-START-BROWSE. DTSBD745 01253 SET L931-START-BROWSE-88 TO TRUE. DTSBD745 01254 GO TO S931-REF-IO. DTSBD745 01255 DTSBD745 01256 S931-READ-NEXT. DTSBD745 01257 SET L931-READ-NEXT-88 TO TRUE. DTSBD745 01258 GO TO S931-REF-IO. DTSBD745 01259 DTSBD745 01260 S931-DELETE. DTSBD745 01261 SET L931-DELETE-88 TO TRUE. DTSBD745 01262 GO TO S931-REF-IO. DTSBD745 01263 DTSBD745 01264 S931-REWRITE. DTSBD745 01265 SET L931-REWRITE-88 TO TRUE. DTSBD745 01266 GO TO S931-REF-IO. DTSBD745 01267 DTSBD745 01268 S931-WRITE. DTSBD745 01269 SET L931-WRITE-88 TO TRUE. DTSBD745 01270 GO TO S931-REF-IO. DTSBD745 01271 DTSBD745 01272 S931-CLOSE. DTSBD745 01273 SET L931-CLOSE-88 TO TRUE. DTSBD745 01274 GO TO S931-REF-IO. DTSBD745 01275 DTSBD745 01276 S931-REF-IO. DTSBD745 01277 CALL 'DTSBU931' USING L931-LINK-AREA DTSBD745 01278 FSKL-REC. DTSBD745 01279 S931-EXIT. DTSBD745 01280 EXIT. DTSBD745 01281 SKIP3 DTSBD745 01282 S946-WRITE-R507. DTSBD745 01283 CALL 'DTSBU946' USING R507-REC. DTSBD745 01284 GO TO S946-EXIT. DTSBD745 01285 DTSBD745 01286 S946-EXIT. DTSBD745 01287 EXIT. DTSBD745 01288 SKIP3 DTSBD745 01289 S999-ABEND. DTSBD745 01290 DISPLAY '***'. DTSBD745 01291 DTSBD745 01292 DISPLAY '*** ' DTSBD745 01293 WRK-MOD-NAME DTSBD745 01294 ' IS ABENDING BECAUSE ' DTSBD745 01295 ABEND-MSG. DTSBD745 01296 DTSBD745 01297 CALL 'DTSBU999' USING WRK-ABEND-CD. DTSBD745 01298 S999-EXIT. DTSBD745 01299 EXIT. DTSBD745