00001 *****                                                             01/25/99
00002 *                                                                 DTSIR504
00003 *   DTSIR504     PENALTY RATE LETTER REPORT RECORD.                  LV007
00004 *                                                                 DTSIR504
00005 *                                                                    CL**2
00006 *                01/25/1999  CREATED FOR DC.  EHH                    CL**7
00007 *                                                                    CL**2
00008 *****                                                             DTSIR504
00009                                                                      CL**2
00010          10  R504-LENGTH         PIC S9(04)  COMP.                   CL**7
00011                                                                      CL**2
00012          10  R504-SORT-AREA.                                         CL**7
00013              15  R504-REC-TYPE           PIC  X(03)  VALUE '504'.    CL**7
00014                                                                      CL**2
00015              15  R504-SORT-VAR-AREA      PIC  X(14).                 CL**7
00016              15  R504-DLY-SORT-AREA                                  CL**7
00017                     REDEFINES R504-SORT-VAR-AREA.                    CL**7
00018                  20  R504-DLY-EMP-NO     PIC S9(07)  COMP-3.         CL**7
00019                  20  R504-DLY-EFF-YRQ    PIC S9(05)  COMP-3.         CL**7
00020              15  R504-YRLY-SORT-AREA                                 CL**7
00021                     REDEFINES R504-SORT-VAR-AREA.                    CL**7
00022                  20  R504-YRLY-ZIP       PIC  X(10).                 CL**7
00023                  20  R504-YRLY-EMP-NO    PIC S9(07)  COMP-3.         CL**7
00024                                                                      CL**2
00025          10  R504-DATA-AREA.                                         CL**7
00026              15  R504-EMP-NO             PIC S9(07)       COMP-3.    CL**7
00027              15  R504-EFF-YRQ            PIC S9(05)       COMP-3.    CL**7
00028              15  R504-RATE-YEAR          PIC  X(04).                 CL**7
00029              15  R504-NOTICE-DATE        PIC S9(09)       COMP-3.    CL**7
00030              15  R504-PENALTY-DEADLINE-DATE                          CL**7
00031                                          PIC S9(09)       COMP-3.    CL**2
00032              15  R504-FMT-ADDR.                                      CL**7
00033                  20  R504-FMT-LINE OCCURS 5 TIMES                    CL**7
00034                                    INDEXED BY R504-FMT-IDX           CL**7
00035                                          PIC  X(40).              DTSIR504
00036              15  R504-ZIP                PIC  X(10).                 CL**7
00037              15  R504-ADVANCED-BARCODE   PIC  X(14).                 CL**7
00038              15  R504-CALC-RATE          PIC S9(01)V9(04) COMP-3.    CL**7
00039              15  R504-PEN-RATE           PIC S9(01)V9(04) COMP-3.    CL**7
00040 *****                                                                CL**6
00041 *    R504-PEN-RATE IS THE PENALTY RATE ASSIGNED TO THE EMPLOYER.     CL**7
00042 *    R504-CALC-RATE IS THE EMPLOYER'S COMPUTED RATE - THE            CL**7
00043 *    RATE TO BE ASSIGNED TO THE EMPLOYER IF THE EMPLOYER CLEARS      CL**7
00044 *    HIS DELINQUENCIES ON OR PRIOR TO R504-PENALTY-DEADLINE          CL**7
00045 *    -DATE.                                                          CL**7
00046 *****                                                                CL**6