1301 lines
103 KiB
COBOL
1301 lines
103 KiB
COBOL
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
|