00001 *****                                                             11/09/98
00002 *                                                                 DTSIL053
00003 *    DTSIL053    UI RATE LOOKUP MODULE LINKAGE.                      LV004
00004 *                                                                 DTSIL053
00005 *                                                                    CL**2
00006 *                11/09/1998  REVIEWED AND MODIFIED FOR DC.  EHH      CL**2
00007 *                                                                    CL**2
00008 *****                                                             DTSIL053
00009                                                                      CL**2
00010          10  L053-EFF-YRQ                PIC  S9(05)      COMP-3. DTSIL053
00011                                                                      CL**2
00012          10  L053-UI-RATE-CATEGORY       PIC  X(01).                 CL**4
00013              88  L053-NONCLASSIFIED-88           VALUE 'N'.          CL**3
00014              88  L053-CLASSIFIED-88              VALUE 'C'.          CL**3
00015                                                                      CL**3
00016          10  L053-LOOKUP-CODE            PIC  X(01).                 CL**3
00017              88  L053-STANDARD-LOOKUP-88         VALUE 'S'.          CL**3
00018              88  L053-PENALTY-LOOKUP-88          VALUE 'P'.          CL**2
00019                                                                      CL**2
00020          10  L053-RATIO                  PIC S9(02)V9(05) COMP-3.    CL**2
00021                                                                      CL**2
00022          10  L053-RESULT-IND             PIC  X(01).              DTSIL053
00023              88  L053-RATE-FOUND             VALUE '1'.           DTSIL053
00024              88  L053-RATE-NOT-FOUND         VALUE '2'.           DTSIL053
00025              88  L053-FILE-CLOSED            VALUE '3'.           DTSIL053
00026                                                                      CL**2
00027          10  L053-UI-RATE                PIC S9(01)V9(04)  COMP-3.DTSIL053
00028                                                                      CL**2
00029          10  L053-MSG-AREA.                                       DTSIL053
00030              15  L053-MSG-ID             PIC  X(04).              DTSIL053
00031              15  L053-MSG-TEXT           PIC  X(60).              DTSIL053
00032                                                                      CL**2
00033          10  FILLER                      PIC  X(47).                 CL**2