00001 *****                                                             04/22/99
00002 *                                                                 DTSIR521
00003 *   DTSIR521  RATE ASSIGNMENT SUMMARY REPORT RECORD.                 LV006
00004 *                                                                 DTSIR521
00005 *                                                                    CL**5
00006 *             NOTE:  OBTAIN THE "MIN RATIO" AND "MAX RATIO"          CL**5
00007 *                    ASSOCIATED WITH R521-COMPUTED-RATE FROM         CL**5
00008 *                    THE FUIR RECORD OCCURRENCE WITH FUIR-EFF        CL**5
00009 *                    -YRQ EQUAL TO R521-EFF-QTR.                     CL**5
00010 *                                                                    CL**5
00011 *                                                                    CL**2
00012 *             04/22/1999  CREATED FOR DC.  EHH                       CL**2
00013 *                                                                    CL**2
00014 *****                                                             DTSIR521
00015                                                                      CL**2
00016          10  R521-LENGTH         PIC S9(04)  COMP.                   CL**2
00017                                                                      CL**2
00018                                                                      CL**2
00019          10  R521-SORT-AREA.                                      DTSIR521
00020              15  R521-REC-TYPE           PIC  X(03).                 CL**2
00021                                                                      CL**2
00022              15  R521-UI-RATE-CATEGORY   PIC  X(01).                 CL**2
00023                  88  R521-RATE-CLASSIFIED-88    VALUE 'C'.           CL**6
00024                  88  R521-RATE-NONCLASSIFIED-88 VALUE 'N'.           CL**6
00025                                                                      CL**2
00026              15  R521-COMPUTED-RATE      PIC S9(01)V9(04) COMP-3.    CL**4
00027                                                                      CL**2
00028                                                                      CL**2
00029          10  R521-DATA-AREA.                                      DTSIR521
00030              15  R521-EFF-QTR            PIC S9(05)       COMP-3. DTSIR521
00031                                                                      CL**2
00032              15  R521-UI-TAX-PAID-FROM-YRQ                           CL**3
00033                                          PIC S9(05)       COMP-3.    CL**3
00034                                                                      CL**3
00035              15  R521-UI-TAX-PAID-THRU-YRQ                           CL**3
00036                                          PIC S9(05)       COMP-3.    CL**3
00037                                                                      CL**4
00038              15  R521-TRUST-FUND-INT-FROM-YRQ                        CL**4
00039                                          PIC S9(05)       COMP-3.    CL**4
00040                                                                      CL**4
00041              15  R521-TRUST-FUND-INT-THRU-YRQ                        CL**4
00042                                          PIC S9(05)       COMP-3.    CL**4
00043                                                                      CL**4
00044              15  R521-UI-BEN-CHGD-FROM-YRQ                           CL**4
00045                                          PIC S9(05)       COMP-3.    CL**4
00046                                                                      CL**4
00047              15  R521-UI-BEN-CHGD-THRU-YRQ                           CL**4
00048                                          PIC S9(05)       COMP-3.    CL**4
00049                                                                      CL**4
00050              15  R521-CURRENT-RESERVE-THRU-DATE                      CL**4
00051                                          PIC S9(09)       COMP-3.    CL**4
00052                                                                      CL**3
00053              15  R521-WAGES-YRQ-AREA                                 CL**4
00054                  OCCURS 3 TIMES                                      CL**4
00055                  INDEXED BY R521-WAGES-YRQ-IDX.                      CL**4
00056                  20  R521-WAGES-FROM-YRQ PIC S9(05)       COMP-3.    CL**4
00057                  20  R521-WAGES-THRU-YRQ PIC S9(05)       COMP-3.    CL**4
00058                                                                      CL**4
00059              15  R521-UI-TAX-PAID-AMT    PIC S9(09)V9(02) COMP-3.    CL**2
00060                                                                      CL**2
00061              15  R521-TRUST-FUND-INTEREST-AMT                        CL**2
00062                                          PIC S9(09)V9(02) COMP-3.    CL**2
00063                                                                      CL**2
00064              15  R521-BENEFITS-CHARGED-AMT                           CL**2
00065                                          PIC S9(09)V9(02) COMP-3.    CL**2
00066                                                                      CL**3
00067              15  R521-CURRENT-RESERVE-AMT                            CL**3
00068                                          PIC S9(09)V9(02) COMP-3.    CL**3
00069                                                                      CL**3
00070              15  R521-TAX-WAGE                                       CL**4
00071                  OCCURS 3 TIMES                                      CL**3
00072                  INDEXED BY R521-TAX-WAGE-IDX                        CL**4
00073                                          PIC S9(11)V9(02) COMP-3.    CL**4