00001 *****                                                             06/05/00
00002 * *              MODIFIED BY D.SHEPPERSON          10/26/1998     DTSIR125
00003 * *                                                                  LV001
00004 * *  DTSIR125    EMPLOYER LIST IN NAME ORDER                      DTSIR125
00005 * *                                                               DTSIR125
00006 *****                                                             DTSIR125
00007      SKIP1                                                        DTSIR125
00008          10  R125-LENGTH         PIC S9(04)  COMP.                DTSIR125
00009      SKIP1                                                        DTSIR125
00010          10  R125-SORT-AREA.                                      DTSIR125
00011              15  R125-REC-TYPE           PIC  X(03).              DTSIR125
00012              15  R125-PRIMARY-NAME       PIC  X(40).              DTSIR125
00013      SKIP1                                                        DTSIR125
00014          10  R125-DATA-AREA.                                      DTSIR125
00015              15  R125-EMP-NO             PIC S9(07)  COMP-3.      DTSIR125
00016              15  R125-EMPLOYER-CLASS     PIC X(01).               DTSIR125
00017                  88 R125-CLASS-RATED-88      VALUE 'R'.           DTSIR125
00018                  88 R125-CLASS-SELF-INS-88   VALUE 'S'.           DTSIR125
00019                  88 R125-CLASS-UNKNOWN-88    VALUE 'U'.           DTSIR125
00020              15  R125-LIAB-DATE          PIC S9(09)  COMP-3.      DTSIR125
00021              15  R125-INACT-DATE         PIC S9(09)  COMP-3.      DTSIR125
00022              15  R125-FIELD-REP-CD       PIC X(02).               DTSIR125