00001 *****                                                             09/22/98
00002 *                                                                 DTSIL052
00003 *    DTSIL052    UI RATE EDIT MODULE LINKAGE.                        LV002
00004 *                                                                 DTSIL052
00005 *                                                                    CL**2
00006 *                09/22/1998  REVIEWED AND MODIFIED FOR DC.  EHH      CL**2
00007 *                                                                    CL**2
00008 *****                                                             DTSIL052
00009                                                                      CL**2
00010          10  L052-EFF-YRQ                PIC  S9(05)      COMP-3. DTSIL052
00011                                                                      CL**2
00012          10  L052-UI-RATE                PIC S9(01)V9(04)  COMP-3.DTSIL052
00013                                                                      CL**2
00014                                                                      CL**2
00015          10  L052-RESULT-IND             PIC  X(01).              DTSIL052
00016              88  L052-VALID                  VALUE '1'.           DTSIL052
00017              88  L052-NOT-VALID              VALUE '2'.           DTSIL052
00018              88  L052-FILE-CLOSED            VALUE '3'.           DTSIL052
00019                                                                      CL**2
00020                                                                      CL**2
00021          10  FILLER                      PIC  X(25).                 CL**2
00022                                                                      CL**2
00023                                                                      CL**2
00024          10  L052-MSG-AREA.                                       DTSIL052
00025              15  L052-MSG-ID             PIC  X(04).              DTSIL052
00026              15  L052-MSG-TEXT           PIC  X(60).              DTSIL052