00001 *****                                                             10/28/98
00002 *                                                                 DTSIR116
00003 *    DTSIR116    EMPLOYER REGISTRATION NEW/REACTIVATED/              LV011
00004 *                INACTIVATED EMPLOYER LIST REPORT RECORD.         DTSIR116
00005 *                                                                    CL*11
00006 *                                                                    CL*11
00007 *                10/28/1998  REVIEWED AND MODIFIED FOR DC.  EHH      CL*11
00008 *                                                                    CL*11
00009 *****                                                             DTSIR116
00010                                                                      CL**9
00011          10  R116-LENGTH         PIC S9(04)  COMP.                   CL**5
00012                                                                      CL**9
00013          10  R116-SORT-AREA.                                      DTSIR116
00014              15  R116-REC-TYPE           PIC  X(03)  VALUE '116'.    CL*11
00015              15  R116-CATEGORY           PIC  X(01).              DTSIR116
00016                  88  R116-NEW-88                 VALUE '1'.       DTSIR116
00017                  88  R116-REACT-88               VALUE '2'.       DTSIR116
00018                  88  R116-INACT-88               VALUE '3'.       DTSIR116
00019              15  R116-SORT-VAR-AREA      PIC  X(15).              DTSIR116
00020              15  R116-NEW-SORT-AREA                               DTSIR116
00021                     REDEFINES R116-SORT-VAR-AREA.                 DTSIR116
00022                  20  R116-NEW-EMP-NO     PIC S9(07)      COMP-3.  DTSIR116
00023                  20  R116-NEW-LIAB-DATE  PIC S9(09)      COMP-3.  DTSIR116
00024              15  R116-REACT-SORT-AREA                             DTSIR116
00025                     REDEFINES R116-SORT-VAR-AREA.                 DTSIR116
00026                  20  R116-REACT-EMP-NO   PIC S9(07)      COMP-3.  DTSIR116
00027                  20  R116-REACT-LIAB-DATE                         DTSIR116
00028                                          PIC S9(09)      COMP-3.  DTSIR116
00029              15  R116-INACT-SORT-AREA                             DTSIR116
00030                     REDEFINES R116-SORT-VAR-AREA.                 DTSIR116
00031                  20  R116-INACT-EMP-NO   PIC S9(07)      COMP-3.     CL*10
00032                  20  R116-INACT-LIAB-DATE                         DTSIR116
00033                                          PIC S9(09)      COMP-3.  DTSIR116
00034                                                                      CL**9
00035          10  R116-DATA-AREA.                                      DTSIR116
00036              15  R116-PRIMARY-NAME       PIC  X(40).                 CL**3
00037              15  R116-INACT-DATE         PIC S9(09)      COMP-3.  DTSIR116
00038              15  R116-EMP-CLASS          PIC  X(01).              DTSIR116
00039                  88  R116-CLASS-RATED-88             VALUE 'R'.      CL**3
00040                  88  R116-CLASS-SELF-INS-88          VALUE 'S'.      CL**7
00041                  88  R116-CLASS-UNK-88               VALUE 'U'.      CL**8
00042              15  R116-NUM-DELQ-RPTS      PIC S9(03)      COMP-3.  DTSIR116