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
