/* LEONARD */ if year = 1988 and FSCSKEY = 'MI0001' then newkey = 'MI0405'; if year = 1989 and FSCSKEY = 'MI0001' then newkey = 'MI0405'; if year = 1990 and FSCSKEY = 'MI0001' then newkey = 'MI0405'; if year = 1991 and FSCSKEY = 'MI0001' then newkey = 'MI0405'; if year = 1992 and FSCSKEY = 'MI0001' then newkey = 'MI0405'; if year = 1993 and FSCSKEY = 'MI0001' then newkey = 'MI0405'; /* ADRIAN */ if year = 1988 and FSCSKEY = 'MI0002' then newkey = 'MI0406'; if year = 1989 and FSCSKEY = 'MI0002' then newkey = 'MI0406'; if year = 1990 and FSCSKEY = 'MI0002' then newkey = 'MI0406'; if year = 1991 and FSCSKEY = 'MI0002' then newkey = 'MI0406'; if year = 1992 and FSCSKEY = 'MI0002' then newkey = 'MI0406'; if year = 1993 and FSCSKEY = 'MI0002' then newkey = 'MI0406'; /* ALANSON */ if year = 1988 and FSCSKEY = 'MI0003' then newkey = 'MI0407'; if year = 1989 and FSCSKEY = 'MI0003' then newkey = 'MI0407'; if year = 1990 and FSCSKEY = 'MI0003' then newkey = 'MI0407'; if year = 1991 and FSCSKEY = 'MI0003' then newkey = 'MI0407'; if year = 1992 and FSCSKEY = 'MI0003' then newkey = 'MI0407'; if year = 1993 and FSCSKEY = 'MI0003' then newkey = 'MI0407'; /* ALBION */ if year = 1988 and FSCSKEY = 'MI0004' then newkey = 'MI0408'; if year = 1989 and FSCSKEY = 'MI0004' then newkey = 'MI0408'; if year = 1990 and FSCSKEY = 'MI0004' then newkey = 'MI0408'; if year = 1991 and FSCSKEY = 'MI0004' then newkey = 'MI0408'; if year = 1992 and FSCSKEY = 'MI0004' then newkey = 'MI0408'; if year = 1993 and FSCSKEY = 'MI0004' then newkey = 'MI0408'; /* HARRISVILLE */ if year = 1988 and FSCSKEY = 'MI0005' then newkey = 'MI0409'; if year = 1989 and FSCSKEY = 'MI0005' then newkey = 'MI0409'; if year = 1990 and FSCSKEY = 'MI0005' then newkey = 'MI0409'; if year = 1991 and FSCSKEY = 'MI0005' then newkey = 'MI0409'; if year = 1992 and FSCSKEY = 'MI0005' then newkey = 'MI0409'; if year = 1993 and FSCSKEY = 'MI0005' then newkey = 'MI0409'; /* ALLEGAN */ if year = 1988 and FSCSKEY = 'MI0006' then newkey = 'MI0410'; if year = 1989 and FSCSKEY = 'MI0006' then newkey = 'MI0410'; if year = 1990 and FSCSKEY = 'MI0006' then newkey = 'MI0410'; if year = 1991 and FSCSKEY = 'MI0006' then newkey = 'MI0410'; if year = 1992 and FSCSKEY = 'MI0006' then newkey = 'MI0410'; if year = 1993 and FSCSKEY = 'MI0006' then newkey = 'MI0410'; /* ALLENDALE */ if year = 1988 and FSCSKEY = 'MI0007' then newkey = 'MI0411'; if year = 1989 and FSCSKEY = 'MI0007' then newkey = 'MI0411'; if year = 1990 and FSCSKEY = 'MI0007' then newkey = 'MI0411'; if year = 1991 and FSCSKEY = 'MI0007' then newkey = 'MI0411'; if year = 1992 and FSCSKEY = 'MI0007' then newkey = 'MI0411'; if year = 1993 and FSCSKEY = 'MI0007' then newkey = 'MI0411'; /* ALMA */ if year = 1988 and FSCSKEY = 'MI0008' then newkey = 'MI0412'; if year = 1989 and FSCSKEY = 'MI0008' then newkey = 'MI0412'; if year = 1990 and FSCSKEY = 'MI0008' then newkey = 'MI0412'; if year = 1991 and FSCSKEY = 'MI0008' then newkey = 'MI0412'; if year = 1992 and FSCSKEY = 'MI0008' then newkey = 'MI0412'; if year = 1993 and FSCSKEY = 'MI0008' then newkey = 'MI0412'; /* ALPENA */ if year = 1988 and FSCSKEY = 'MI0009' then newkey = 'MI0414'; if year = 1989 and FSCSKEY = 'MI0009' then newkey = 'MI0414'; if year = 1990 and FSCSKEY = 'MI0009' then newkey = 'MI0414'; if year = 1991 and FSCSKEY = 'MI0009' then newkey = 'MI0414'; if year = 1992 and FSCSKEY = 'MI0009' then newkey = 'MI0414'; if year = 1993 and FSCSKEY = 'MI0009' then newkey = 'MI0414'; /* AMASA */ if year = 1988 and FSCSKEY = 'MI0011' then newkey = 'MI9011'; if year = 1989 and FSCSKEY = 'MI0011' then newkey = 'MI9011'; if year = 1990 and FSCSKEY = 'MI0011' then newkey = 'MI9011'; if year = 1991 and FSCSKEY = 'MI0011' then newkey = 'MI9011'; if year = 1992 and FSCSKEY = 'MI0011' then newkey = 'MI9011'; if year = 1993 and FSCSKEY = 'MI0011' then newkey = 'MI9011'; if year = 1994 and FSCSKEY = 'MI0011' then newkey = 'MI9011'; if year = 1995 and FSCSKEY = 'MI0011' then newkey = 'MI9011'; if year = 1996 and FSCSKEY = 'MI0011' then newkey = 'MI9011'; if year = 1997 and FSCSKEY = 'MI0011' then newkey = 'MI9011'; /* IDLEWILD */ if year = 1988 and FSCSKEY = 'MI0164' then newkey = 'MI9008'; if year = 1989 and FSCSKEY = 'MI0164' then newkey = 'MI9008'; if year = 1990 and FSCSKEY = 'MI0164' then newkey = 'MI9008'; if year = 1991 and FSCSKEY = 'MI0164' then newkey = 'MI9008'; if year = 1992 and FSCSKEY = 'MI0164' then newkey = 'MI9008'; if year = 1993 and FSCSKEY = 'MI0164' then newkey = 'MI9008'; if year = 1994 and FSCSKEY = 'MI0164' then newkey = 'MI9008'; if year = 1995 and FSCSKEY = 'MI0164' then newkey = 'MI9008'; if year = 1996 and FSCSKEY = 'MI0164' then newkey = 'MI9008'; if year = 1997 and FSCSKEY = 'MI0164' then newkey = 'MI9008'; /* LANSING */ /* Lansing PL (MI0189) 1988-1996 */ /* CAPITAL AREA DL (MI0424) 1998-2001 */ /* MASON COUNTY */ /* Scottville (MI0219) 1988-1993 */ /* Ludington...Mason County DL */ /* PONTIAC */ /* OAKLAND CT REFERENCE (MI0252) 1988-1989 */ /* OAKLAND CT RESEARCH L (MI0404) 1994-1997 */ /* SEBEWAING */ if year = 1988 and FSCSKEY = 'MI0306' then newkey = 'MI9007'; if year = 1989 and FSCSKEY = 'MI0306' then newkey = 'MI9007'; if year = 1990 and FSCSKEY = 'MI0306' then newkey = 'MI9007'; if year = 1991 and FSCSKEY = 'MI0306' then newkey = 'MI9007'; if year = 1992 and FSCSKEY = 'MI0306' then newkey = 'MI9007'; if year = 1993 and FSCSKEY = 'MI0306' then newkey = 'MI9007'; if year = 1994 and FSCSKEY = 'MI0306' then newkey = 'MI9007'; if year = 1995 and FSCSKEY = 'MI0306' then newkey = 'MI9007'; if year = 1996 and FSCSKEY = 'MI0306' then newkey = 'MI9007'; if year = 1997 and FSCSKEY = 'MI0306' then newkey = 'MI9007'; /* LANSING (L of MICHIGAN) */ if year = 1988 and FSCSKEY = 'MI0380' then newkey = 'MI9975';