00001 *****                                                             10/23/98
00002 *    MODIFIED BY D.SHEPPERSON           10/23/1998                DTSIR120
00003 *                                                                    LV004
00004 *    DTSIR120    POTENTIALLY FICTITIOUS EMPLOYER LIST                CL**3
00005 *                                                                 DTSIR120
00006 *****                                                             DTSIR120
00007      SKIP1                                                        DTSIR120
00008          10  R120-LENGTH         PIC S9(04)  COMP.                   CL**2
00009      SKIP1                                                        DTSIR120
00010          10  R120-SORT-AREA.                                      DTSIR120
00011              15  R120-REC-TYPE           PIC  X(03).                 CL**2
00012              15  R120-EMP-NO             PIC S9(07)      COMP-3.  DTSIR120
00013      SKIP1                                                        DTSIR120
00014          10  R120-DATA-AREA.                                      DTSIR120
00015              15  R120-BEGIN-LIAB-DATE    PIC S9(09)      COMP-3.  DTSIR120
00016              15  R120-END-LIAB-DATE      PIC S9(09)      COMP-3.  DTSIR120
00017              15  R120-MAX-EMPLOYEES      PIC S9(03)      COMP-3.  DTSIR120
00018              15  R120-PRIMARY-NAME       PIC  X(40).                 CL**2
00019              15  R120-OLDEST-LIAB-DATE   PIC S9(09)      COMP-3.  DTSIR120
00020              15  R120-BENEFIT-CHARGES    PIC S9(09)V99   COMP-3.  DTSIR120
00021              15  R120-PAID-AMT           PIC S9(09)V99   COMP-3.  DTSIR120