00001 *****                                                             11/11/98
00002 *                                                                 DTSIL108
00003 *    MACIL108    TAXABLE WAGE BASE LOOKUP MODULE LINKAGE.            LV003
00004 *                                                                 DTSIL108
00005 *                                                                    CL**2
00006 *                11/11/1998  REVIEWED AND MODIFIED FOR DC.  EHH      CL**2
00007 *                                                                    CL**2
00008 *****                                                             DTSIL108
00009                                                                      CL**2
00010          10  L108-EMP-CLASS              PIC  X(01).              DTSIL108
00011              88  L108-CLASS-RATED-88         VALUE 'R'.              CL**2
00012                                                                      CL**2
00013          10  L108-YRQ                    PIC S9(05)  COMP-3.      DTSIL108
00014                                                                      CL**2
00015                                                                      CL**2
00016          10  L108-RESULT-IND             PIC  X(01).                 CL**2
00017              88  L108-OK-88                  VALUE '0'.              CL**2
00018              88  L108-NOT-FOUND-88           VALUE '1'.              CL**2
00019              88  L108-FILE-CLOSED-88         VALUE '9'.              CL**2
00020                                                                      CL**2
00021                                                                      CL**2
00022          10  L108-TAXABLE-WAGE-BASE      PIC S9(11)V9(02)  COMP-3.   CL**3
00023                                                                      CL**2
00024                                                                      CL**2
00025          10  FILLER                      PIC  X(20).                 CL**3
00026                                                                      CL**2
00027                                                                      CL**2
00028          10  L108-MSG-AREA.                                       DTSIL108
00029              15  L108-MSG-ID             PIC  X(04).              DTSIL108
00030              15  L108-MSG-TEXT           PIC  X(60).              DTSIL108