00001 *****                                                             04/22/99
00002 *                                                                 DTSIR516
00003 *   DTSIR516   EMPLOYER RATE ASSIGNMENT ERROR REPORT RECORD.         LV002
00004 *              (IF THERE ARE NONE OF THESE REPORT RECORDS,        DTSIR516
00005 *               NEED TO GENERATE THE REPORT ANYWAY WITH THE       DTSIR516
00006 *               MESSAGE "NO ERRORS FOUND")                        DTSIR516
00007 *                                                                 DTSIR516
00008 *                                                                    CL**2
00009 *              04/22/1999  REVIEWED AND MODIFIED FOR DC.  EHH        CL**2
00010 *                                                                    CL**2
00011 *****                                                             DTSIR516
00012                                                                      CL**2
00013          10  R516-LENGTH         PIC S9(04)  COMP.                   CL**2
00014                                                                      CL**2
00015                                                                      CL**2
00016          10  R516-SORT-AREA.                                      DTSIR516
00017              15  R516-REC-TYPE           PIC  X(03).                 CL**2
00018                                                                      CL**2
00019              15  R516-MSG-IDENTIFIER     PIC  X(04).              DTSIR516
00020                                                                      CL**2
00021              15  R516-EMP-NO             PIC S9(07)  COMP-3.      DTSIR516
00022                                                                      CL**2
00023                                                                      CL**2
00024          10  R516-DATA-AREA.                                      DTSIR516
00025              15  R516-EFF-QTR            PIC S9(05)       COMP-3. DTSIR516
00026                                                                      CL**2
00027              15  R516-PRIMARY-NAME       PIC  X(40).                 CL**2
00028                                                                      CL**2
00029              15  R516-MSG-TEXT.                                   DTSIR516
00030                  20  R516-MSG-TEXT-1     PIC  X(50).              DTSIR516
00031                  20  R516-MSG-TEXT-2     PIC  X(50).              DTSIR516