OPTION NOCENTER NOFMTERR OBS=5000000 LS=160 PAGESIZE=89; /* 02CarUS2011.SAS VIN ANALYSIS FOR 1981-2011 DOMESTIC PASSENGER CARS */ /* UPDATED: 02/01/2013 */ DATA USCAR2(DROP=V V13 V45 V1_2); SET USCAR1; IF 1 LE MAK2 LE 24; IF MAK2=20 THEN GOTO CHEVY; IF MAK2=12 THEN GOTO FORD; IF MAK2=22 THEN GOTO PONTIAC; IF MAK2=21 AND MY LE 2004 THEN GOTO OLDS; IF MAK2=18 THEN GOTO BUICK; IF (MAK2=7 OR MAK2=9) AND V1='J' AND V3='4' THEN GOTO COLT4WD; IF MAK2=7 THEN GOTO DODGE; IF MAK2=14 THEN GOTO MERCURY; IF MAK2=9 THEN GOTO PLYMOUTH; IF MAK2=6 THEN GOTO CHRYS; IF MAK2=19 THEN GOTO CADILLAC; IF MAK2=13 THEN GOTO LINCOLN; IF MAK2=10 THEN GOTO EAGLE; IF MAK2=1 THEN GOTO AMC; IF MAK2=24 THEN GOTO SATURN; MM2=99999; CG=99999; RETURN; AMC: V6=TRANSLATE(V6,'2568','ZSGB'); IF 1981 LE MY LE 1983 AND V3='M' AND V6='4' THEN DO; MM2=1008; CG=1008; RETURN; END; IF 1981 LE MY LE 1983 AND V6='0' THEN DO; MM2=1007; CG=1009; RETURN; END; IF 1981 LE MY LE 1988 AND V6='3' THEN DO; MM2=1009; CG=1011; RETURN; END; IF 1981 LE MY LE 1983 AND V6='5' THEN DO; MM2=1010; CG=1012; RETURN; END; MM2=99999; CG=99999; RETURN; CHRYS: V5=TRANSLATE(V5,'ZSGB','2568'); V4=TRANSLATE(V4,'SGB','568'); V6=TRANSLATE(V6,'2568','ZSGB'); IF MY LE 2009 THEN V7=TRANSLATE(V7,'2568','ZSGB'); ELSE V7=TRANSLATE(V7,'ZSGB','2568'); IF MY=1981 AND (V5='F' OR V5='M') AND V7='2' THEN DO; MM2=6007; CG=6013; RETURN; END; IF MY=1981 AND (V5='F' OR V5='M') AND (V7='6' OR V7='9') THEN DO; MM2=6007; CG=6014; RETURN; END; IF 1981 LE MY LE 1983 AND (V5='J' OR V5='S') AND (V6='5' OR V6='6') AND V7='2' THEN DO; MM2=6009; CG=6014; RETURN; END; IF 1981 LE MY LE 1983 AND V2='A' AND V5='Y' THEN DO; MM2=6010; CG=6014; RETURN; END; IF 1984 LE MY LE 1988 AND V5='F' AND V1='1' AND V6='6' AND V7='6' THEN DO; MM2=6010; CG=6014; RETURN; END; IF MY=1989 AND V5='M' AND V1='1' AND V6='6' AND V7='6' THEN DO; MM2=6010; CG=6014; RETURN; END; IF MY=1981 AND (V5='R' OR V5='T') AND V7='7' THEN DO; MM2=6010; CG=6017; RETURN; END; IF 1982 LE MY LE 1983 AND V5='F' AND V6='6' AND V7='6' THEN DO; MM2=6010; CG=6017; RETURN; END; IF 1982 LE MY LE 1988 AND V1 IN ('1','3') AND V5='C' AND V7 IN ('1','5','6','9') AND V6 IN ('4','5') THEN DO; MM2=6016; CG=6018; RETURN; END; IF 1987 LE MY LE 1993 AND V1 IN ('1','3') AND V5='J' AND V6 IN ('4','5') AND V7 IN ('1','5','6','9') THEN DO; MM2=6016; CG=6018; RETURN; END; IF 1992 LE MY LE 1994 AND V1 IN ('1','3') AND V5='U' AND V6 IN ('4','5') AND V7 IN ('1','5','6','9') THEN DO; MM2=6016; CG=6018; RETURN; END; IF MY=1995 AND V1='1' AND V5='U' AND V7='5' AND V6 IN ('4','5') THEN DO; MM2=6016; CG=6018; RETURN; END; IF MY=1983 AND V5='T' AND V6 IN ('4','5') AND V7='6' THEN DO; MM2=6014; CG=6019; RETURN; END; IF 1984 LE MY LE 1988 AND V5='T' AND V6 IN ('4','5') AND V7='6' THEN DO; MM2=6014; CG=6019; RETURN; END; IF 1985 LE MY LE 1989 AND V5='H' AND V1='1' AND V7='8' THEN DO; MM2=6016; CG=6019; RETURN; END; IF 1984 LE MY LE 1986 AND V5='A' AND V1='1' AND V6 IN ('4','5') AND V7='4' THEN DO; MM2=6015; CG=6020; RETURN; END; IF MY=1988 AND V1='1' AND V5='U' AND V6 IN ('4','6') AND V7='6' THEN DO; MM2=6014; CG=6021; RETURN; END; IF 1989 LE MY LE 1993 AND V1='1' AND V5='C' AND V6 IN ('4','6') AND /* NOTE: HAD TO CHANGE MM2 FROM 6018 TO 6014 DUE TO NEW CHRSYLER 200 */ V7='6' THEN DO; MM2=6014; CG=6021; RETURN; END; IF 1990 LE MY LE 1994 AND V1 IN ('1','3') AND V5='A' AND V7='6' THEN DO; MM2=6016; CG=6022; RETURN; END; IF 1990 LE MY LE 1991 AND V5='Y' AND V1='1' AND V7='6' THEN DO; MM2=6020; CG=6023; RETURN; END; IF 1992 LE MY LE 1993 AND V1='1' AND V5='V' AND V7='6' THEN DO; MM2=6020; CG=6023; RETURN; END; IF 1993 LE MY LE 1994 AND V5='L' THEN DO; MM2=6041; CG=6025; RETURN; END; /* ----------------------------------------------------------------------- */ /* SPECIAL CODE FOR 1995 CHRYSLER LH CARS AND THEIR MESSED-UP VINS. PLEASE */ /* DON'T CHANGE THIS CODE (NEXT 4 LINES) OR ADD ANY OTHER CODE FOR 1995. */ /* ----------------------------------------------------------------------- */ IF MY=1995 AND V5 IN ('C','D','L') THEN DO; MMP=6030; CGP=6025; CG=6025; IF V5='L' THEN MM2=6041; ELSE IF V5='C' THEN MM2=6042; ELSE MM2=6030; RETURN; END; IF 1996 LE MY LE 1997 AND V5='D' AND V6='5' THEN DO; MM2=6041; CG=6025; RETURN; END; IF 1998 LE MY LE 1999 AND V5='D' AND V6='4' THEN DO; MM2=6041; CG=6025; RETURN; END; IF 2000 LE MY LE 2001 AND V5='D' AND V6 IN ('3','4') THEN DO; MM2=6041; CG=6025; RETURN; END; IF 2002 LE MY LE 2004 AND V5='D' AND V6 IN ('3','4','5') THEN DO; MM2=6041; CG=6025; RETURN; END; /* CONCORDE ends 2004 */ IF MY=1994 AND V5='D' THEN DO; MM2=6042; CG=6025; RETURN; END; IF MY=1996 AND ((V5='C' AND V6 IN ('4','5')) OR (V5='K' AND V6='5')) THEN DO; MM2=6042; CG=6025; RETURN; END; IF MY=1997 AND V5 IN ('C','K') AND V6='5' THEN DO; MM2=6042; CG=6025; RETURN; END; IF 1999 LE MY LE 2001 AND V5='C' AND V6='5' THEN DO; MM2=6042; CG=6025; RETURN; END; IF 1999 LE MY LE 2001 AND V5='E' AND V6 IN ('6','B') THEN DO; MM2=6051; CG=6025; RETURN; END; IF 2002 LE MY LE 2004 AND V5='E' AND V6 IN ('6','7') THEN DO; MM2=6051; CG=6025; RETURN; END; /* 300M ends 2004 */ IF MY=2001 AND V5='L' AND V6 IN ('4','5','6') AND V7='6' THEN DO; MM2=6043; CG=6026; RETURN; END; IF 2002 LE MY LE 2006 AND V5='L' AND V6 IN ('4','5','6','7') AND V7='6' THEN DO; MM2=6043; CG=6026; RETURN; END; /* SEBRING SEDAN ends 2006 */ IF 2005 LE MY LE 2006 AND V5='L' AND V6='3' AND V7='6' THEN DO; MM2=6043; CG=6026; RETURN; END; /* SEBRING SEDAN ends 2006 */ IF MY=1995 AND V5='J' AND V1='1' THEN DO; MM2=6044; CG=6026; RETURN; END; IF 1996 LE MY LE 1999 AND V5='J' AND V1='1' AND V6='5' THEN DO; MM2=6044; CG=6026; RETURN; END; IF MY=2000 AND V5='J' AND V6 IN ('4','5') THEN DO; MM2=6044; CG=6026; RETURN; END; IF MY=2001 AND V5='J' AND V6 IN ('4','5','6') THEN DO; MM2=6044; CG=6026; RETURN; END; IF 2001 LE MY LE 2002 AND V5='W' AND V6='6' THEN DO; MM2=6053; CG=6029; RETURN; END; /* PROWLER ends 2002 */ IF 2005 LE MY LE 2009 AND V5='A' AND V1='2' AND V7='3' THEN DO; MM2=6051; CG=6031; RETURN; END; IF MY GE 2010 AND V5='A' AND V1='2' AND V7='C' THEN DO; MM2=6051; CG=6031; RETURN; END; /* 300 Note: Chrysler 300 LWB 126.0 wb version is 2-stage veh and not VIN-identifiable */ IF 2005 LE MY LE 2009 AND V5='K' AND V1='2' AND V7='3' THEN DO; MM2=6051; CG=6031; RETURN; END; IF MY GE 2010 AND V5='K' AND V1='2' AND V7='C' THEN DO; MM2=6051; CG=6031; RETURN; END; /* 300 AWD */ IF MY GE 2011 AND V5='C' AND V7 IN ('E','F') THEN DO; MM2=6018; CG=6032; RETURN; END; /* 200 */ IF MY=2007 AND V5='C' AND V7='6' THEN DO; MM2=6043; CG=6032; RETURN; END; IF 2008 LE MY LE 2009 AND V5='C' AND V7 IN ('5','6') THEN DO; MM2=6043; CG=6032; RETURN; END; IF MY=2010 AND V5='C' AND V7 IN ('E','F') THEN DO; MM2=6043; CG=6032; RETURN; END; /* SEBRING CV OR SEDAN ends 2010 (renamed '200') */ IF 2008 LE MY LE 2009 AND V5='D' AND V7='6' THEN DO; MM2=6043; CG=6032; RETURN; END; IF MY=2010 AND V5='D' AND V7='F' THEN DO; MM2=6043; CG=6032; RETURN; END; /* SEBRING AWD SEDAN ends 2010 */ IF 2005 LE MY LE 2009 AND V5='Y' AND V1='3' AND V7='5' THEN DO; MM2=6052; CG=6034; RETURN; END; /* PT CRUISER Convertible ends 2009 */ IF MY=2004 AND V5='N' AND V6 IN ('5','6') THEN DO; MM2=6055; CG=42023; RETURN; END; IF 2005 LE MY LE 2008 AND V5='N' AND V6 IN ('5','6','7','C','E') THEN DO; MM2=6055; CG=42023; RETURN; END; /* CROSSFIRE ends 2008 */ IF 1987 LE MY LE 1989 AND V1='J' AND V5='C' AND V7='4' THEN DO; MM2=6035; CG=52006; RETURN; END; IF MY=1995 AND V5='U' AND V1='4' THEN DO; MM2=6043; CG=52018; RETURN; END; IF 1996 LE MY LE 2000 AND V5 IN ('L','U') AND V6 IN ('4','5') AND V7 IN ('1','2','4') THEN DO; MM2=6043; CG=52018; RETURN; END; IF MY=2001 AND V5='L' AND V6 IN ('4','5','6') AND V7='2' THEN DO; MM2=6043; CG=52018; RETURN; END; IF 2002 LE MY LE 2005 AND V5='L' AND V6 IN ('4','5','6','7') AND V7='2' THEN DO; MM2=6043; CG=52018; RETURN; END; /* SEBRING COUPE ends 2005 */ IF MY GE 2001 AND V5='G' AND V6 IN ('4','5') AND V7='2' AND V1='4' THEN DO; MM2=6043; CG=52018; RETURN; END; IF 1996 LE MY LE 2000 AND V5='L' AND V6 IN ('4','5') AND V7='5' THEN DO; MM2=6043; CG=52020; RETURN; END; IF MY=2001 AND V5='L' AND V6 IN ('4','5','6') AND V7='5' THEN DO; MM2=6043; CG=52020; RETURN; END; IF 2002 LE MY LE 2006 AND V5='L' AND V6 IN ('4','5','6','7') AND V7='5' THEN DO; MM2=6043; CG=52020; RETURN; END; /* SEBRING CV ends 2006 */ MM2=99999; CG=99999; RETURN; DODGE: V5=TRANSLATE(V5,'ZSGB','2568'); V4=TRANSLATE(V4,'SGB','568'); V6=TRANSLATE(V6,'2568','ZSGB'); IF MY LE 2009 THEN V7=TRANSLATE(V7,'2568','ZSGB'); ELSE V7=TRANSLATE(V7,'ZSGB','2568'); IF MY=1981 AND (V5='G' OR V5='M') AND V7='2' THEN DO; MM2=7007; CG=6013; RETURN; END; IF MY=1981 AND (V5='G' OR V5='M') AND (V7='6' OR V7='9') THEN DO; MM2=7007; CG=6014; RETURN; END; IF 1982 LE MY LE 1983 AND V1 IN ('1','2') AND V5='G' AND V7='6' THEN DO; MM2=7007; CG=6014; RETURN; END; IF 1984 LE MY LE 1988 AND V1='1' AND V5='G' AND V7='6' THEN DO; MM2=7007; CG=6014; RETURN; END; IF MY=1989 AND V5='M' AND V1='1' AND V7='6' THEN DO; MM2=7007; CG=6014; RETURN; END; IF (1981 LE MY LE 1983 AND V5='X' AND V6='6' AND V7='2') OR (MY=1981 AND V5='J' AND V6='6' AND V7='2') THEN DO; MM2=7009; CG=6014; RETURN; END; IF MY=1981 AND (V5='L' OR V5='Z') AND V7='8' AND V1='1' THEN DO; MM2=7008; CG=6015; RETURN; END; IF 1982 LE MY LE 1988 AND V5='Z' AND V7='8' AND V1='1' THEN DO; MM2=7008; CG=6015; RETURN; END; IF 1989 LE MY LE 1990 AND V5='L' AND V7='8' AND V1='1' THEN DO; MM2=7008; CG=6015; RETURN; END; IF MY=1981 AND (V5='L' OR V5='Z') AND V7='4' AND V1='1' THEN DO; MM2=7008; CG=6016; RETURN; END; IF 1982 LE MY LE 1988 AND V5='Z' AND V7='4' AND V1='1' THEN DO; MM2=7008; CG=6016; RETURN; END; IF MY=1981 AND V1 NE 'J' AND V5='R' AND V6='4' AND V7='7' THEN DO; MM2=7010; CG=6017; RETURN; END; IF MY=1981 AND V5='K' AND V1 IN ('1','3') AND V7 IN ('1','6','9') THEN DO; MM2=7011; CG=6018; RETURN; END; IF 1982 LE MY LE 1988 AND V1 IN ('1','3') AND V5='D' AND V7 IN ('1','6','9') THEN DO; MM2=7011; CG=6018; RETURN; END; IF MY=1989 AND V1 IN ('1','3') AND V5='K' AND V7 IN ('1','6','9') THEN DO; MM2=7011; CG=6018; RETURN; END; IF 1982 LE MY LE 1983 AND V1='1' AND V5='V' AND V6 IN ('4','5') AND V7 IN ('1','5','6') THEN DO; MM2=7012; CG=6018; RETURN; END; IF 1984 LE MY LE 1986 AND V5='V' AND V1='1' AND V6='5' AND (V7='1' OR V7='5') THEN DO; MM2=7014; CG=6018; RETURN; END; IF 1983 LE MY LE 1988 AND V5='E' AND V1='1' AND V7='6' THEN DO; MM2=7014; CG=6019; RETURN; END; IF 1985 LE MY LE 1988 AND V5='X' AND V1='1' AND V7='8' THEN DO; MM2=7016; CG=6019; RETURN; END; IF MY=1989 AND V5='H' AND V1='1' AND V7='8' THEN DO; MM2=7016; CG=6019; RETURN; END; IF 1984 LE MY LE 1988 AND V1='1' AND V5='A' AND V7='4' THEN DO; MM2=7015; CG=6020; RETURN; END; IF 1989 LE MY LE 1991 AND V1='1' AND V5='G' AND V7='4' THEN DO; MM2=7015; CG=6020; RETURN; END; IF 1992 LE MY LE 1993 AND V1='1' AND V5='W' AND V7='4' THEN DO; MM2=7015; CG=6020; RETURN; END; IF 1987 LE MY LE 1988 AND V5='S' AND V1 IN ('1','3') AND V7 IN ('4','5','8') THEN DO; MM2=7017; CG=6020; RETURN; END; IF 1989 LE MY LE 1994 AND V5='P' AND V1 IN ('1','3') AND V7 IN ('4','5','8') THEN DO; MM2=7017; CG=6020; RETURN; END; IF MY=1988 AND V5='U' AND V1='1' AND V6 IN ('4','5') AND V7='6' THEN DO; MM2=7018; CG=6021; RETURN; END; IF 1989 LE MY LE 1993 AND V5='C' AND V1='1' AND V6 IN ('4','5') AND V7='6' THEN DO; MM2=7018; CG=6021; RETURN; END; IF 1989 LE MY LE 1995 AND V1 IN ('1','3') AND V5='A' AND V7='6' THEN DO; MM2=7019; CG=6022; RETURN; END; IF 1992 LE MY LE 1995 AND V5='R' THEN DO; MM2=7013; CG=6024; RETURN; END; IF 1996 LE MY LE 2002 AND V5='R' AND V6='6' THEN DO; MM2=7013; CG=6024; RETURN; END; IF 1993 LE MY LE 1995 AND V5 IN('D','H') AND V6 IN ('4','5') AND V7='6' THEN DO; MM2=7041; CG=6025; RETURN; END; IF 1996 LE MY LE 1999 AND V5='D' AND V6 IN ('4','5') AND V7='6' THEN DO; MM2=7041; CG=6025; RETURN; END; IF 2000 LE MY LE 2002 AND V5='D' AND V6 IN ('4','5','7') THEN DO; MM2=7041; CG=6025; RETURN; END; IF 2003 LE MY LE 2004 AND V5='D' AND V6 IN ('4','5') THEN DO; MM2=7041; CG=6025; RETURN; END; /* INTREPID ends 2004 */ IF MY=1995 AND V5='J' AND V1='1' AND V7='6' THEN DO; MM2=7043; CG=6026; RETURN; END; IF 1996 LE MY LE 2000 AND V5='J' AND V1='1' AND V6 IN ('4','5') THEN DO; MM2=7043; CG=6026; RETURN; END; IF MY=2001 AND V5='J' AND V1='1' AND V6 IN ('4','5','7') THEN DO; MM2=7043; CG=6026; RETURN; END; IF 2002 LE MY LE 2005 AND V5='L' AND V6 IN ('3','4','5','7') AND V7='6' THEN DO; MM2=7043; CG=6026; RETURN; END; IF MY=2006 AND V5='L' AND V6 IN ('4','7') AND V7='6' THEN DO; MM2=7043; CG=6026; RETURN; END; /* STRATUS SEDAN ends 2006 */ IF MY=1995 AND V5='S' AND V1 IN ('1','3') AND V7 IN ('2','7') THEN DO; MM2=7020; CG=6027; RETURN; END; IF 1996 LE MY LE 1998 AND V5='S' AND V1 IN ('1','3') AND V6 IN ('2','4','6') AND V7 IN ('2','7') THEN DO; MM2=7020; CG=6027; RETURN; END; IF MY=1999 AND V5='S' AND V6 IN('2','4') THEN DO; MM2=7020; CG=6027; RETURN; END; IF 2000 LE MY LE 2001 AND V5='S' AND V6='4' THEN DO; MM2=7020; CG=6028; RETURN; END; IF 2002 LE MY LE 2004 AND V5='S' AND V6 IN ('1','2','4','5','6','7') THEN DO; MM2=7020; CG=6028; RETURN; END; IF MY=2005 AND V5='S' AND V6 IN ('2','4','5','6','7') THEN DO; MM2=7020; CG=6028; RETURN; END; /* NEON ends 2005 */ IF MY=2003 AND V5='R' AND V6='6' THEN DO; MM2=7013; CG=6030; RETURN; END; IF (2004 LE MY LE 2006 OR 2008 LE MY LE 2010) AND V5='Z' AND V6='6' THEN DO; MM2=7013; CG=6030; RETURN; END; /* VIPER ends 2010 */ IF 2006 LE MY LE 2009 AND V5 IN ('A','K') AND V1='2' AND V7='3' THEN DO; MM2=7024; CG=6031; RETURN; END; IF MY=2010 AND V5 IN ('A','K') AND V1='2' AND V7='C' THEN DO; MM2=7024; CG=6031; RETURN; END; /* CHARGER ends 2010 */ IF MY GE 2011 AND V5 IN ('L','M') AND V1='2' AND V7='C' THEN DO; MM2=7024; CG=6031; RETURN; END; /* CHARGER refreshed 2011 */ IF 2008 LE MY LE 2009 AND V5 IN ('C','D') AND V7='6' THEN DO; MM2=7026; CG=6032; RETURN; END; IF MY=2010 AND V5 IN ('C','D') AND V7='F' THEN DO; MM2=7026; CG=6032; RETURN; END; IF MY GE 2011 AND V5='D' AND V7='F' THEN DO; MM2=7026; CG=6032; RETURN; END; /* AVENGER SEDAN */ IF MY GE 2007 AND V5='B' THEN DO; MM2=7025; CG=6033; RETURN; END; /* CALIBER */ IF 2007 LE MY LE 2010 AND V5='E' THEN DO; MM2=7025; CG=6033; RETURN; END; /* CALIBER AWD ends 2010 */ IF MY GE 2008 AND V5='J' THEN DO; MM2=7028; CG=6035; RETURN; END; /* CHALLENGER */ IF 1990 LE MY LE 1992 AND V5='B' AND V1='2' AND V7='6' THEN DO; MM2=7040; CG=46009; RETURN; END; IF 1981 LE MY LE 1983 AND V5='D' AND V1='J' AND V6='4' AND V7='3' THEN DO; MM2=7033; CG=52003; RETURN; END; IF 1981 LE MY LE 1982 AND V1='J' AND V5='E' AND V7 IN ('4','8') THEN DO; MM2=7034; CG=52004; RETURN; END; IF 1983 LE MY LE 1985 AND V1='J' AND (V5='A' OR V5='E') AND V7='4' THEN DO; MM2=7034; CG=52004; RETURN; END; IF 1983 LE MY LE 1985 AND V1='J' AND V5 IN ('A','E') AND V6 IN ('2','3','4') AND V7 IN ('6','8') THEN DO; MM2=7034; CG=52005; RETURN; END; IF 1986 LE MY LE 1988 AND V1='J' AND V5='A' AND V6 IN ('2','3','4') AND V7 IN ('4','6','8') THEN DO; MM2=7034; CG=52005; RETURN; END; IF 1989 LE MY LE 1990 AND V1='J' AND V5='U' AND V6 IN ('2','3','4') AND V7='8' THEN DO; MM2=7034; CG=52005; RETURN; END; IF 1984 LE MY LE 1986 AND V1='J' AND V5='C' AND V6 IN ('4','5') AND V7='4' THEN DO; MM2=7035; CG=52006; RETURN; END; IF 1984 LE MY LE 1991 AND V1='J' AND V5='G' AND V6 IN ('3','4') AND V7='9' THEN DO; MM2=7044; CG=52008; RETURN; END; IF 1989 LE MY LE 1992 AND V1='J' AND V5='U' AND V7='4' THEN DO; MM2=7034; CG=52011; RETURN; END; IF 1991 LE MY LE 1992 AND (V5='D' OR V5='E') AND V1='J' AND V7='4' THEN DO; MM2=7039; CG=52013; RETURN; END; IF 1993 LE MY LE 1995 AND (V5='M' OR V5='N') AND V1='J' AND V7='4' THEN DO; MM2=7039; CG=52013; RETURN; END; IF MY=1996 AND ((V5='M' AND V6 IN ('4','8')) OR (V5='N' AND V6='7')) AND V1='J' THEN DO; MM2=7039; CG=52013; RETURN; END; IF 1993 LE MY LE 1994 AND V1='J' AND V5='A' AND V7='1' THEN DO; MM2=7034; CG=52016; RETURN; END; IF 1993 LE MY LE 1994 AND V1='J' AND V5='A' AND V7='6' THEN DO; MM2=7034; CG=52017; RETURN; END; IF MY=1995 AND V1='4' AND V5='U' AND V7='2' THEN DO; MM2=7042; CG=52018; RETURN; END; IF 1996 LE MY LE 2000 AND V5='U' AND V6 IN ('4','5') AND V7='2' THEN DO; MM2=7042; CG=52018; RETURN; END; IF 2001 LE MY LE 2005 AND V5='G' AND V6 IN ('4','5') AND V7='2' THEN DO; MM2=7043; CG=52018; RETURN; END; /* STRATUS COUPE ends 2005 */ MM2=99999; CG=99999; RETURN; PLYMOUTH: V5=TRANSLATE(V5,'ZSGB','2568'); V4=TRANSLATE(V4,'SGB','568'); V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'2568','ZSGB'); IF 1982 LE MY LE 1988 AND V1='1' AND V5='B' AND V6='2' AND V7='6' THEN DO; MM2=9004; CG=6014; RETURN; END; IF 1982 LE MY LE 1983 AND V1='2' AND V5='B' AND V6='2' AND V7='6' THEN DO; MM2=9004; CG=6014; RETURN; END; IF MY=1989 AND V5='M' AND V1='1' AND V6='2' AND V7='6' THEN DO; MM2=9004; CG=6014; RETURN; END; IF MY=1981 AND (V5='L' OR V5='M') AND V7='8' THEN DO; MM2=9008; CG=6015; RETURN; END; IF 1982 LE MY LE 1988 AND V5='M' AND V7='8' AND V1='1' THEN DO; MM2=9008; CG=6015; RETURN; END; IF 1989 LE MY LE 1990 AND V5='L' AND V7='8' AND V1='1' THEN DO; MM2=9008; CG=6015; RETURN; END; IF MY=1981 AND (V5='L' OR V5='M') AND V7='4' THEN DO; MM2=9008; CG=6016; RETURN; END; IF 1982 LE MY LE 1988 AND V5='M' AND V7='4' AND V1='1' THEN DO; MM2=9008; CG=6016; RETURN; END; IF MY=1981 AND (V5='J' OR V5='R') AND V6='2' AND V7='7' THEN DO; MM2=9004; CG=6017; RETURN; END; IF MY=1981 AND V5='K' AND V1 IN ('1','3') AND V7 IN ('1','6','9') THEN DO; MM2=9011; CG=6018; RETURN; END; IF 1982 LE MY LE 1988 AND V5='P' AND V1 IN ('1','3') AND V7 IN ('1','6','9') THEN DO; MM2=9011; CG=6018; RETURN; END; IF MY=1989 AND V5='K' AND V1 IN ('1','3') AND V7 IN ('1','6','9') THEN DO; MM2=9011; CG=6018; RETURN; END; IF 1985 LE MY LE 1988 AND V5='J' AND V1='1' AND V6 IN ('3','4') AND V7='6' THEN DO; MM2=9007; CG=6019; RETURN; END; IF 1987 LE MY LE 1988 AND V5='S' AND V1 IN ('1','3') AND V7 IN ('4','8') THEN DO; MM2=9017; CG=6020; RETURN; END; IF 1989 LE MY LE 1994 AND V5='P' AND V1 IN ('1','3') AND V7 IN ('4','8') THEN DO; MM2=9017; CG=6020; RETURN; END; IF 1989 LE MY LE 1995 AND V1 IN ('1','3') AND V5='A' AND V7='6' THEN DO; MM2=9019; CG=6022; RETURN; END; IF 1996 LE MY LE 2000 AND V1='1' AND V5='J' AND V6='4' THEN DO; MM2=9038; CG=6026; RETURN; END; IF MY=1995 AND V1 IN ('1','3') AND V5='S' AND V7 IN ('2','7') THEN DO; MM2=9020; CG=6027; RETURN; END; IF 1996 LE MY LE 1998 AND V1 IN ('1','3') AND V5='S' AND V6 IN ('2','4','6') AND V7 IN ('2','7') THEN DO; MM2=9020; CG=6027; RETURN; END; IF MY=1999 AND V5='S' AND V6 IN('2','4') THEN DO; MM2=9020; CG=6027; RETURN; END; IF 2000 LE MY LE 2001 AND V5='S' AND V6='4' THEN DO; MM2=9020; CG=6028; RETURN; END; IF MY IN (1997,1999,2000) AND V5='W' AND V6='6' THEN DO; MM2=9039; CG=6029; RETURN; END; IF 1981 LE MY LE 1983 AND V5='D' AND V1='J' AND V7='3' THEN DO; MM2=9033; CG=52003; RETURN; END; IF 1981 LE MY LE 1982 AND V1='J' AND V5='E' AND V7 IN ('4','8') THEN DO; MM2=9034; CG=52004; RETURN; END; IF 1983 LE MY LE 1985 AND V1='J' AND (V5='A' OR V5='E') AND V7='4' THEN DO; MM2=9034; CG=52004; RETURN; END; IF 1983 LE MY LE 1985 AND V1='J' AND V5 IN ('A','E') AND V6 IN ('2','3','4') AND V7 IN ('6','8') THEN DO; MM2=9034; CG=52005; RETURN; END; IF 1986 LE MY LE 1988 AND V1='J' AND V5='A' AND V6 IN ('2','3','4') AND V7 IN ('4','6','8') THEN DO; MM2=9034; CG=52005; RETURN; END; IF 1989 LE MY LE 1990 AND V1='J' AND V5='U' AND V6 IN ('2','3','4') AND V7='8' THEN DO; MM2=9034; CG=52005; RETURN; END; IF 1984 LE MY LE 1986 AND V1='J' AND V5='C' AND V6 IN ('4','5') AND V7='4' THEN DO; MM2=9035; CG=52006; RETURN; END; IF 1984 LE MY LE 1991 AND V1='J' AND V5='G' AND V6 IN ('3','4') AND V7='9' THEN DO; MM2=9044; CG=52008; RETURN; END; IF 1989 LE MY LE 1992 AND V1='J' AND V5='U' AND V7='4' THEN DO; MM2=9034; CG=52011; RETURN; END; IF 1990 LE MY LE 1992 AND V1 IN ('1','4') AND (V5='S' OR V5='T') AND V6 IN ('3','4') AND V7='4' THEN DO; MM2=9037; CG=52012; RETURN; END; IF 1993 LE MY LE 1994 AND V1 IN ('1','4') AND (V5='F' OR V5='G') AND V6 IN ('3','4') AND V7='4' THEN DO; MM2=9037; CG=52012; RETURN; END; IF MY=1992 AND V1='J' AND (V5='V' OR V5='W') AND V7='0' THEN DO; MM2=9044; CG=52014; RETURN; END; IF 1993 LE MY LE 1994 AND V1='J' AND (V5='B' OR V5='C') AND V7='0' THEN DO; MM2=9044; CG=52014; RETURN; END; IF 1993 LE MY LE 1994 AND V1='J' AND V5='A' AND V7='1' THEN DO; MM2=9034; CG=52016; RETURN; END; IF 1993 LE MY LE 1994 AND V1='J' AND V5='A' AND V7 IN ('6','7','8') THEN DO; MM2=9034; CG=52017; RETURN; END; MM2=99999; CG=99999; RETURN; EAGLE: V5=TRANSLATE(V5,'ZSGB','2568'); V4=TRANSLATE(V4,'SGB','568'); V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'2568','ZSGB'); V13=V1||V2||V3; IF 1993 LE MY LE 1995 AND V5='D' THEN DO; MM2=10041; CG=6025; RETURN; END; IF 1996 LE MY LE 1997 AND V5='D' AND V6 IN ('5','6') THEN DO; MM2=10041; CG=6025; RETURN; END; IF 1988 LE MY LE 1989 AND V6='5' AND V7='5' AND V13 IN ('2XM','1AC','2CC') THEN DO; MM2=10040; CG=46009; RETURN; END; IF 1988 LE MY LE 1992 AND V5='B' AND V1='2' THEN DO; MM2=10040; CG=46009; RETURN; END; IF 1989 LE MY LE 1991 AND V5='U' AND V7 IN ('4','6') THEN DO; MM2=10034; CG=52010; RETURN; END; IF MY=1992 AND V5='U' AND V7='6' THEN DO; MM2=10034; CG=52010; RETURN; END; IF MY=1992 AND V5='U' AND V7='4' THEN DO; MM2=10034; CG=52011; RETURN; END; IF 1990 LE MY LE 1992 AND V1 IN ('1','4') AND (V5='S' OR V5='T') AND V7='4' THEN DO; MM2=10037; CG=52012; RETURN; END; IF 1993 LE MY LE 1994 AND V1 IN ('1','4') AND (V5='F' OR V5='G') AND V7='4' THEN DO; MM2=10037; CG=52012; RETURN; END; IF MY=1992 AND V1 IN ('4','J') AND V5 IN ('V','W') AND V7='0' THEN DO; MM2=10044; CG=52014; RETURN; END; IF 1993 LE MY LE 1996 AND V1='J' AND V5 IN ('B','C') AND V7='0' THEN DO; MM2=10044; CG=52014; RETURN; END; IF 1993 LE MY LE 1996 AND V1='J' AND V5='A' AND V7='1' THEN DO; MM2=10034; CG=52016; RETURN; END; IF 1993 LE MY LE 1996 AND V1='J' AND V5='A' AND V7='6' THEN DO; MM2=10034; CG=52017; RETURN; END; IF 1995 LE MY LE 1998 AND V1 IN ('1','4') AND V5 IN('K','L') THEN DO; MM2=10037; CG=52019; RETURN; END; MM2=99999; CG=99999; RETURN; COLT4WD: IF 1986 LE MY LE 1988 AND V2='B' AND V4='E' AND V5='A' AND V6 IN ('2','3','4') THEN DO; MM2=7034; CG=52005; RETURN; END; IF 1986 LE MY LE 1988 AND V2='P' AND V4='E' AND V5='A' AND V6 IN ('2','3','4') THEN DO; MM2=9034; CG=52005; RETURN; END; IF 1989 LE MY LE 1990 AND V2='B' AND V4='E' AND (V5='V' OR V5='W') AND V6 IN ('2','3','4') THEN DO; MM2=7034; CG=52005; RETURN; END; IF 1989 LE MY LE 1990 AND V2='P' AND V4='E' AND (V5='V' OR V5='W') AND V6 IN ('2','3','4') THEN DO; MM2=9034; CG=52005; RETURN; END; IF 1984 LE MY LE 1991 AND V2='B' AND V4='F' AND V5='H' THEN DO; MM2=7044; CG=52008; RETURN; END; IF 1984 LE MY LE 1991 AND V2='P' AND V4='F' AND V5='H' THEN DO; MM2=9044; CG=52008; RETURN; END; MM2=99999; CG=99999; RETURN; FORD: V6=TRANSLATE(V6,'2568','ZSGB'); IF V4='8' THEN V4='B'; IF (V2='F' AND V5='P') OR V5='T' OR (MY GE 2010 AND V2='Z' AND V5='P') THEN GOTO GOODFORD; MM2=99999; CG=99999; RETURN; GOODFORD: IF MY LE 2009 THEN DO; V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); END; ELSE V7=TRANSLATE(V7,'ZSGB','2568'); IF MY GE 2010 THEN V57=V5||V6||V7; /* V7 CHANGES FROM NUMERIC TO ALPHA IN 2010 TO AVOID DUPLICATING VINs */ IF MY=1981 AND 20 LE V LE 23 THEN DO; MM2=12012; CG=12026; RETURN; END; IF MY=1982 AND 20 LE V LE 22 THEN DO; MM2=12012; CG=12026; RETURN; END; IF MY=1983 AND 35 LE V LE 37 THEN DO; MM2=12012; CG=12026; RETURN; END; IF MY=1981 AND 26 LE V LE 27 AND V1='1' THEN DO; MM2=12011; CG=12026; RETURN; END; IF MY=1982 AND 26 LE V LE 28 AND V1='1' THEN DO; MM2=12011; CG=12026; RETURN; END; IF 1983 LE MY LE 1986 AND 39 LE V LE 40 AND V1='1' THEN DO; MM2=12006; CG=12026; RETURN; END; IF 1981 LE MY LE 1982 AND 10 LE V LE 16 AND V1='1' THEN DO; MM2=12003; CG=12027; RETURN; END; IF 1983 LE MY LE 1986 AND 26 LE V LE 28 AND V1='1' THEN DO; MM2=12003; CG=12027; RETURN; END; IF 1987 LE MY LE 1993 AND V IN (40,41,42,44,45) AND V1='1' THEN DO; MM2=12003; CG=12027; RETURN; END; IF 1981 LE MY LE 1982 AND V IN (31,32,33,34,35,37,38,39) THEN DO; MM2=12016; CG=12028; RETURN; END; IF 1983 LE MY LE 1986 AND 42 LE V LE 44 THEN DO; MM2=12016; CG=12028; RETURN; END; IF MY=1987 AND 70 LE V LE 79 THEN DO; MM2=12016; CG=12028; RETURN; END; IF MY=1988 AND 72 LE V LE 79 THEN DO; MM2=12016; CG=12028; RETURN; END; IF 1989 LE MY LE 1991 AND V IN (72,73,74,76,77,78,79) THEN DO; MM2=12016; CG=12028; RETURN; END; IF MY=1992 AND 72 LE V LE 75 THEN DO; MM2=12016; CG=12028; RETURN; END; IF 1993 LE MY LE 2001 AND 71 LE V LE 74 AND V1='2' THEN DO; MM2=12016; CG=12028; RETURN; END; IF 2002 LE MY LE 2008 AND V IN (71,73,74) AND V1='2' THEN DO; MM2=12016; CG=12028; RETURN; END; IF MY=2009 AND V IN (71,74) AND V1='2' THEN DO; MM2=12016; CG=12028; RETURN; END; IF 2002 LE MY LE 2009 AND V=72 AND V1='2' THEN DO; MM2=12016; CG=12028; CGP=12046; RETURN; END; /* NOTE: POLK DOES NOT DISTINGUISH S AND LWB CROWN VICTORIA */ IF MY GE 2010 AND V57 IN ('P7B','P7E') AND V1='2' THEN DO; MM2=12016; CG=12028; RETURN; END; /* CROWN VICTORIA */ IF MY GE 2010 AND V57='P7C' AND V1='2' THEN DO; MM2=12016; CG=12028; CGP=12046; RETURN; END; /* CROWN VICTORIA regular wheelbase, fleet */ /* NOTE: POLK DOES NOT DISTINGUISH S AND LWB CROWN VICTORIA */ IF 1981 LE MY LE 1982 AND V1='1' AND V=42 THEN DO; MM2=12004; CG=12029; RETURN; END; IF MY=1981 AND V IN (5,8) THEN DO; MM2=12013; CG=12031; RETURN; END; IF MY=1982 AND V IN (5,6,8) THEN DO; MM2=12013; CG=12031; RETURN; END; IF 1983 LE MY LE 1984 AND V IN (4,5,6,7,9,10,11,13,14,15) THEN DO; MM2=12013; CG=12031; RETURN; END; IF MY=1985 AND V IN (4,5,7,9,10,11,13,14,15,31,32,33,34,35,36,37) THEN DO; MM2=12013; CG=12031; RETURN; END; IF MY=1986 AND V IN (31,32,33,34,35,36,37) THEN DO; MM2=12013; CG=12031; RETURN; END; IF 1987 LE MY LE 1988 AND V IN (20,21,23,25,28) THEN DO; MM2=12013; CG=12031; RETURN; END; IF 1988 LE MY LE 1990 AND V IN (90,91,93,95,98) THEN DO; MM2=12013; CG=12031; RETURN; END; IF 1982 LE MY LE 1986 AND V=1 THEN DO; MM2=12014; CG=12031; RETURN; END; IF MY=1987 AND V IN (17,18) THEN DO; MM2=12014; CG=12031; RETURN; END; IF MY=1988 AND V IN (17,18,88,89) THEN DO; MM2=12014; CG=12031; RETURN; END; IF 1983 LE MY LE 1986 AND V=46 AND V1='1' THEN DO; MM2=12004; CG=12033; RETURN; END; IF 1987 LE MY LE 1988 AND V IN (60,61,62,64) AND V1='1' THEN DO; MM2=12004; CG=12033; RETURN; END; IF 1984 LE MY LE 1986 AND 18 LE V LE 23 THEN DO; MM2=12015; CG=12034; RETURN; END; IF 1987 LE MY LE 1988 AND 30 LE V LE 39 THEN DO; MM2=12015; CG=12034; RETURN; END; IF 1989 LE MY LE 1990 AND V IN (30,31,33,34,35,36,37,38,39) THEN DO; MM2=12015; CG=12034; RETURN; END; IF MY=1991 AND V IN (30,31,33,35,36,37,38,39) THEN DO; MM2=12015; CG=12034; RETURN; END; IF MY=1992 AND V IN (31,33,36,37,38) THEN DO; MM2=12015; CG=12034; RETURN; END; IF 1993 LE MY LE 1994 AND V IN (31,36,37) THEN DO; MM2=12015; CG=12034; RETURN; END; IF MY=1986 AND V IN (29,30) AND V1='1' THEN DO; MM2=12017; CG=12035; RETURN; END; IF 1987 LE MY LE 1988 AND V IN (50,51,52,53,55,56,57,58) AND V1='1' THEN DO; MM2=12017; CG=12035; RETURN; END; IF 1989 LE MY LE 1992 AND V IN (50,52,53,54,55,57,58) AND V1='1' THEN DO; MM2=12017; CG=12035; RETURN; END; IF MY=1993 AND V IN (50,52,53,54,57,58) AND V1='1' THEN DO; MM2=12017; CG=12035; RETURN; END; IF 1994 LE MY LE 1995 AND V IN (52,53,54,57,58) AND V1='1' THEN DO; MM2=12017; CG=12035; RETURN; END; IF 1989 LE MY LE 1992 AND V IN (60,62,64) AND V1='1' THEN DO; MM2=12004; CG=12037; RETURN; END; IF 1993 LE MY LE 1995 AND V IN (62,64) AND V1='1' THEN DO; MM2=12004; CG=12037; RETURN; END; IF 1996 LE MY LE 1997 AND V=62 AND V1='1' THEN DO; MM2=12004; CG=12037; RETURN; END; IF MY=1994 AND V IN (40,42,44,45,46,47) AND V1='1' THEN DO; MM2=12003; CG=12038; RETURN; END; IF MY=1995 AND V IN (40,42,44,45) AND V1='1' THEN DO; MM2=12003; CG=12038; RETURN; END; IF 1996 LE MY LE 2001 AND V IN (40,42,44,45,46,47) AND V1='1' THEN DO; MM2=12003; CG=12038; RETURN; END; IF MY=2002 AND V IN (40,42,44,45,46,47,48,49) AND V1='1' THEN DO; MM2=12003; CG=12038; RETURN; END; IF 2003 LE MY LE 2004 AND V IN (40,42,44,45,48,49) AND V1='1' THEN DO; MM2=12003; CG=12038; RETURN; END; IF 1995 LE MY LE 1997 AND 65 LE V LE 67 AND V1 IN ('1','3') THEN DO; MM2=12035; CG=12039; RETURN; END; IF MY=1998 AND 65 LE V LE 68 AND V1 IN ('1','3') THEN DO; MM2=12035; CG=12039; RETURN; END; IF MY=1999 AND V IN (65,66,68) THEN DO; MM2=12035; CG=12039; RETURN; END; IF MY=2000 AND V IN (66,68) THEN DO; MM2=12035; CG=12039; RETURN; END; IF 1996 LE MY LE 1997 AND V1 IN ('1','3') AND V IN (51,52,53,54,57,58) THEN DO; MM2=12017; CG=12040; RETURN; END; IF MY=1998 AND V1 IN ('1','3') AND V IN (52,53,54,57,58) THEN DO; MM2=12017; CG=12040; RETURN; END; IF MY=1999 AND V IN (52,53,54,58) THEN DO; MM2=12017; CG=12040; RETURN; END; IF 2000 LE MY LE 2001 AND V IN (52,53,54,55,56,58,59) THEN DO; MM2=12017; CG=12040; RETURN; END; IF 2002 LE MY LE 2004 AND V IN (52,53,55,56,58,59) THEN DO; MM2=12017; CG=12040; RETURN; END; IF MY=2005 AND V IN (53,56,58,59) THEN DO; MM2=12017; CG=12040; RETURN; END; IF MY IN (2006,2007) AND V IN (53,56) THEN DO; MM2=12017; CG=12040; RETURN; END; /* TAURUS ends 2007 */ IF 2000 LE MY LE 2001 AND V IN (30,31,33,34,36,38) THEN DO; MM2=12037; CG=12042; RETURN; END; IF 2002 LE MY LE 2003 AND V IN (31,33,34,36,37,38,39) THEN DO; MM2=12037; CG=12042; RETURN; END; IF 2004 LE MY LE 2005 AND V IN (30,31,33,34,35,36,37,38,39) THEN DO; MM2=12037; CG=12042; RETURN; END; IF 2006 LE MY LE 2007 AND V IN (31,34,36,37,38) THEN DO; MM2=12037; CG=12042; RETURN; END; IF MY=2008 AND V IN (32,33,34,35) THEN DO; MM2=12037; CG=12042; RETURN; END; IF MY=2009 AND V IN (32,33,34,35,36,37) THEN DO; MM2=12037; CG=12042; RETURN; END; IF MY GE 2010 AND V57 IN ('P3C','P3D','P3E','P3F','P3G','P3H') THEN DO; MM2=12037; CG=12042; RETURN; END; /* FOCUS */ IF MY=2002 AND V IN (60,64) AND V1='1' THEN DO; MM2=12004; CG=12044; RETURN; END; IF MY=2003 AND V IN (60,62) AND V1='1' THEN DO; MM2=12004; CG=12044; RETURN; END; IF MY=2004 AND V IN (60,63) AND V1='1' THEN DO; MM2=12004; CG=12044; RETURN; END; IF MY=2005 AND V IN (60,63,69) AND V1='1' THEN DO; MM2=12004; CG=12044; RETURN; END; /* THUNDERBIRD ends 2005 */ IF 2002 LE MY LE 2010 AND V=70 AND V1='2' THEN DO; MM2=12016; CG=12045; CGP=12046; RETURN; END; /* NOTE: POLK DOES NOT DISTINGUISH S AND LWB CROWN VICTORIA */ IF MY GE 2010 AND V57='P7A' AND V1='2' THEN DO; MM2=12016; CG=12045; CGP=12046; RETURN; END; /* LWB CROWN VICTORIA */ /* NOTE: POLK DOES NOT DISTINGUISH S AND LWB CROWN VICTORIA */ IF 2005 LE MY LE 2006 AND V5='P' AND V=90 THEN DO; MM2=12038; CG=12047; RETURN; END; /* GT */ IF 2005 LE MY LE 2009 AND V5='T' AND V IN (80,82,84,85) THEN DO; MM2=12003; CG=12048; RETURN; END; IF 2005 LE MY LE 2009 AND V5='T' AND V IN (88,89) THEN DO; MM2=12003; CG=12048; RETURN; END; IF MY GE 2010 AND V57 IN ('P8A','P8C','P8E','P8F') THEN DO; MM2=12003; CG=12048; RETURN; END; /* MUSTANG */ IF MY GE 2010 AND V57 IN ('P8J','P8K') THEN DO; MM2=12003; CG=12048; RETURN; END; /* MUSTANG GT 500 */ IF 2005 LE MY LE 2007 AND V5='P' AND V IN (23,24,25,26,27,28) THEN DO; MM2=12021; CG=12049; RETURN; END; /* 500 ends 2007 */ IF MY=2008 AND V5='P' AND V IN (24,25,27,28) THEN DO; MM2=12017; CG=12049; RETURN; END; IF MY=2009 AND V5='P' AND V IN (23,24,25,26,27,28) THEN DO; MM2=12017; CG=12049; RETURN; END; IF MY GE 2010 AND V57 IN ('P2D','P2E','P2F','P2H','P2J','P2K') THEN DO; MM2=12017; CG=12049; RETURN; END; /* TAURUS (same vehicle as the one named 500 in 2005-2007) */ IF MY = 2006 AND V5='P' AND V IN (6,7,8) THEN DO; MM2=12023; CG=12050; RETURN; END; IF 2007 LE MY LE 2009 AND V5='P' AND V IN (1,2,6,7,8) THEN DO; MM2=12023; CG=12050; RETURN; END; IF MY GE 2010 AND V57 IN ('P0C','P0D','P0G','P0H','P0J','P0K','P0L') THEN DO; MM2=12023; CG=12050; RETURN; END; /* FUSION */ IF MY GE 2011 AND V57 IN ('P4A','P4B','P4C','P4E','P4F') THEN DO; MM2=12032; CG=12051; RETURN; END; /* FIESTA */ IF 1989 LE MY LE 1992 AND 20 LE V LE 22 AND V1='1' AND V2='Z' AND V3='V' THEN DO; MM2=12018; CG=41015; RETURN; END; IF MY=1991 AND V1 IN ('1','3') AND V IN (10,11,12,14,15) THEN DO; MM2=12013; CG=41017; RETURN; END; IF 1992 LE MY LE 1993 AND V1 IN ('1','3') AND 10 LE V LE 16 THEN DO; MM2=12013; CG=41017; RETURN; END; IF 1994 LE MY LE 1996 AND V1 IN ('1','3') AND 10 LE V LE 15 THEN DO; MM2=12013; CG=41017; RETURN; END; IF MY=1997 AND V1 IN ('1','3') AND V IN (10,13,15) THEN DO; MM2=12013; CG=41017; RETURN; END; IF 1998 LE MY LE 1999 AND V1 IN ('1','3') AND V IN (10,11,13,15) THEN DO; MM2=12013; CG=41017; RETURN; END; IF 2000 LE MY LE 2002 AND V1 IN ('1','3') AND V IN (11,13) THEN DO; MM2=12013; CG=41017; RETURN; END; IF MY=2003 AND V1 IN ('1','3') AND V=11 THEN DO; MM2=12013; CG=41017; RETURN; END; IF 1993 LE MY LE 1997 AND V IN (20,22) AND V1='1' AND V2='Z' AND V3='V' THEN DO; MM2=12018; CG=41021; RETURN; END; IF MY=1988 AND V IN (6,7,10,12,13) AND V1='K' AND V2='N' AND V3='J' THEN DO; MM2=12033; CG=63001; RETURN; END; IF MY=1989 AND V IN (6,7) AND V1='K' AND V2='N' AND V3='J' THEN DO; MM2=12033; CG=63001; RETURN; END; IF 1990 LE MY LE 1993 AND 5 LE V LE 7 AND V1='K' AND V2='N' AND V3='J' AND V5='T' THEN DO; MM2=12033; CG=63001; RETURN; END; IF 1994 LE MY LE 1995 AND V IN (5,7) AND V1='K' AND V2='N' AND V3='J' AND V5='T' THEN DO; MM2=12036; CG=63003; RETURN; END; IF 1996 LE MY LE 1997 AND V=5 AND V1='K' AND V2='N' AND V3='J' AND V5='T' THEN DO; MM2=12036; CG=63003; RETURN; END; IF 1994 LE MY LE 1997 AND V=6 AND V1='K' AND V2='N' AND V3='J' AND V5='T' THEN DO; MM2=12036; CG=63004; RETURN; END; MM2=99999; CG=99999; RETURN; LINCOLN: V6=TRANSLATE(V6,'2568','ZSGB'); IF (1981 LE MY LE 1986 AND V5='P') OR (1987 LE MY LE 2010 AND V5='M') OR (MY GE 2010 AND V5='L') THEN GOTO GOODLINC; MM2=99999; CG=99999; RETURN; GOODLINC: IF MY LE 2009 THEN DO; V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); END; ELSE V7=TRANSLATE(V7,'ZSGB','2568'); IF MY GE 2010 THEN V57=V5||V6||V7; /* V7 CHANGES FROM NUMERIC TO ALPHA IN 2010 TO AVOID DUPLICATING VINs */ IF MY=1981 AND V2='M' AND V3='R' AND (V=89 OR V=95) THEN DO; MM2=13002; CG=12028; RETURN; END; IF MY=1982 AND V2='M' AND V3='R' AND V=95 THEN DO; MM2=13002; CG=12028; RETURN; END; IF MY=1983 AND V2='M' AND V3='R' AND V=98 THEN DO; MM2=13002; CG=12028; RETURN; END; IF MY=1981 AND V2='L' AND V3='N' AND 93 LE V LE 94 THEN DO; MM2=13001; CG=12030; RETURN; END; IF MY=1982 AND V2='L' AND V3='N' AND V=94 THEN DO; MM2=13001; CG=12030; RETURN; END; IF 1983 LE MY LE 1986 AND V2='L' AND V3='N' AND V=96 THEN DO; MM2=13001; CG=12030; RETURN; END; IF 1987 LE MY LE 2004 AND V2='L' AND V3='N' AND 81 LE V LE 83 THEN DO; MM2=13001; CG=12030; RETURN; END; IF MY=1989 AND V2='L' AND V3='N' AND 81 LE V LE 84 THEN DO; MM2=13001; CG=12030; RETURN; END; IF MY=2005 AND V2='L' AND V3='N' AND V IN (81,82) THEN DO; MM2=13001; CG=12030; RETURN; END; IF MY IN (2006,2007) AND V2='L' AND V3='N' AND 81 LE V LE 83 THEN DO; MM2=13001; CG=12030; RETURN; END; IF 2008 LE MY LE 2009 AND V2='L' AND V3='N' AND V=82 THEN DO; MM2=13001; CG=12030; RETURN; END; IF MY GE 2010 AND V2='L' AND V3='N' AND V57='L8C' THEN DO; MM2=13001; CG=12030; RETURN; END; /* TOWN CAR */ IF 1981 LE MY LE 1982 AND V2='M' AND V3='R' AND V=96 THEN DO; MM2=13002; CG=12030; RETURN; END; IF MY=1983 AND V2='M' AND V3='R' AND V=99 THEN DO; MM2=13002; CG=12030; RETURN; END; IF MY=1982 AND V2='M' AND V3='R' AND V=98 THEN DO; MM2=13005; CG=12032; RETURN; END; IF 1983 LE MY LE 1985 AND V2='M' AND V3='R' AND V=97 THEN DO; MM2=13005; CG=12032; RETURN; END; IF MY=1986 AND V2='L' AND V3='N' AND V=97 THEN DO; MM2=13005; CG=12032; RETURN; END; IF MY=1987 AND V2='L' AND V3='N' AND 97 LE V LE 98 THEN DO; MM2=13005; CG=12032; RETURN; END; IF 1984 LE MY LE 1985 AND V2='M' AND V3='R' AND V=98 THEN DO; MM2=13002; CG=12032; RETURN; END; IF MY=1986 AND V2='L' AND V3='N' AND V=98 THEN DO; MM2=13002; CG=12032; RETURN; END; IF MY=1987 AND V2='L' AND V3='N' AND 91 LE V LE 93 THEN DO; MM2=13002; CG=12032; RETURN; END; IF 1988 LE MY LE 1992 AND V2='L' AND V3='N' AND 92 LE V LE 93 THEN DO; MM2=13002; CG=12032; RETURN; END; IF 1988 LE MY LE 1994 AND V2='L' AND V3='N' AND 97 LE V LE 98 THEN DO; MM2=13005; CG=12036; RETURN; END; IF 1995 LE MY LE 2002 AND V2='L' AND V3='N' AND V=97 THEN DO; MM2=13005; CG=12036; RETURN; END; IF 1993 LE MY LE 1996 AND V=91 THEN DO; MM2=13002; CG=12037; RETURN; END; IF 1997 LE MY LE 1998 AND V IN (91,92) THEN DO; MM2=13002; CG=12037; RETURN; END; IF 2000 LE MY LE 2005 AND V IN (86,87) THEN DO; MM2=13012; CG=12041; RETURN; END; IF MY=2006 AND V=87 THEN DO; MM2=13012; CG=12041; RETURN; END; /* LS ends 2006 */ IF 2001 LE MY LE 2009 AND V2='L' AND V3='N' AND 84 LE V LE 85 THEN DO; MM2=13001; CG=12043; RETURN; END; IF MY GE 2010 AND V2='L' AND V3='N' AND V57 IN ('L8E','L8F') THEN DO; MM2=13001; CG=12043; RETURN; END; /* LWB TOWN CAR */ IF MY=2009 AND V IN (93,94) THEN DO; MM2=13015; CG=12049; RETURN; END; IF MY GE 2010 AND V57 IN ('L9D','L9E','L9F') THEN DO; MM2=13015; CG=12049; RETURN; END; /* MKS */ IF MY = 2006 AND V=26 AND V1='3' THEN DO; MM2=13013; CG=12050; RETURN; END; /* ZEPHYR */ IF 2007 LE MY LE 2009 AND V IN (26,28) AND V1='3' THEN DO; MM2=13013; CG=12050; RETURN; END; IF MY=2010 AND V57 IN ('L2G','L2J') AND V1='3' THEN DO; MM2=13013; CG=12050; RETURN; END; IF MY GE 2011 AND V57 IN ('L2G','L2J','L2L') AND V1='3' THEN DO; MM2=13013; CG=12050; RETURN; END; /* MKZ(ZEPHYR) */ MM2=99999; CG=99999; RETURN; MERCURY: V6=TRANSLATE(V6,'2568','ZSGB'); IF (1981 LE MY LE 1986 AND V5='P') OR (MY GE 1987 AND V5='M') OR V1='6' OR V1='L' OR (MY GE 1999 AND V1='1' AND V2='Z' AND V3='W' AND V5='T') THEN GOTO GOODMERC; MM2=99999; CG=99999; RETURN; GOODMERC: IF V4='8' THEN V4='B'; IF MY LE 2009 THEN DO; V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); END; ELSE V7=TRANSLATE(V7,'ZSGB','2568'); IF MY GE 2010 THEN V57=V5||V6||V7; /* V7 CHANGES FROM NUMERIC TO ALPHA IN 2010 TO AVOID DUPLICATING VINs */ IF MY=1981 AND 70 LE V LE 73 THEN DO; MM2=14012; CG=12026; RETURN; END; IF MY=1982 AND 71 LE V LE 72 THEN DO; MM2=14012; CG=12026; RETURN; END; IF MY=1983 AND 86 LE V LE 87 THEN DO; MM2=14012; CG=12026; RETURN; END; IF MY=1981 AND 76 LE V LE 77 THEN DO; MM2=14004; CG=12026; RETURN; END; IF MY=1982 AND 76 LE V LE 78 THEN DO; MM2=14004; CG=12026; RETURN; END; IF 1983 LE MY LE 1986 AND 89 LE V LE 90 AND V1='1' THEN DO; MM2=14006; CG=12026; RETURN; END; IF 1981 LE MY LE 1982 AND 67 LE V LE 68 AND V1='1' THEN DO; MM2=14003; CG=12027; RETURN; END; IF 1983 LE MY LE 1986 AND V=79 AND V1='1' THEN DO; MM2=14003; CG=12027; RETURN; END; IF 1981 LE MY LE 1982 AND V IN (80,81,82,83,84,85,87,88) THEN DO; MM2=14016; CG=12028; RETURN; END; IF 1983 LE MY LE 1986 AND 93 LE V LE 95 THEN DO; MM2=14016; CG=12028; RETURN; END; IF MY=1987 AND V IN (71,72,74,75,78,79) THEN DO; MM2=14016; CG=12028; RETURN; END; IF 1988 LE MY LE 1991 AND V IN (74,75,78,79) THEN DO; MM2=14016; CG=12028; RETURN; END; IF 1992 LE MY LE 2002 AND 74 LE V LE 75 THEN DO; MM2=14016; CG=12028; RETURN; END; IF 2003 LE MY LE 2004 AND 74 LE V LE 75 AND V8='W' THEN DO; MM2=14016; CG=12028; RETURN; END; IF 2005 LE MY LE 2008 AND 74 LE V LE 75 THEN DO; MM2=14016; CG=12028; RETURN; END; IF MY=2009 AND V=75 THEN DO; MM2=14016; CG=12028; RETURN; END; IF MY IN (2010,2011) AND V57='M7F' THEN DO; MM2=14016; CG=12028; RETURN; END; /* GRAND MARQUIS ends 2011 */ IF MY=2003 AND V=75 AND V8='V' THEN DO; MM2=14039; CG=12028; RETURN; END; IF MY=2004 AND V IN (75,79) AND V8='V' THEN DO; MM2=14039; CG=12028; RETURN; END; /* MARAUDER ends 2004 */ IF 1981 LE MY LE 1982 AND V=90 AND V1='1' THEN DO; MM2=14005; CG=12029; RETURN; END; IF MY=1981 AND V IN (63,65) THEN DO; MM2=14013; CG=12031; RETURN; END; IF MY=1982 AND V IN (63,64,65) THEN DO; MM2=14013; CG=12031; RETURN; END; IF MY=1983 AND V IN (54,55,57,58,60,61,63,65,66,68) THEN DO; MM2=14013; CG=12031; RETURN; END; IF MY=1984 AND V IN (54,55,57,60,61,65,66,68) THEN DO; MM2=14013; CG=12031; RETURN; END; IF 1985 LE MY LE 1986 AND V IN (51,52,53,54,55,58,59,60,61,63,64,65,66) THEN DO; MM2=14013; CG=12031; RETURN; END; IF MY=1987 AND V IN (20,21,23,25,28) THEN DO; MM2=14013; CG=12031; RETURN; END; IF MY=1982 AND V=61 THEN DO; MM2=14014; CG=12031; RETURN; END; IF 1983 LE MY LE 1984 AND V=51 THEN DO; MM2=14014; CG=12031; RETURN; END; IF 1983 LE MY LE 1986 AND V=92 AND V1='1' THEN DO; MM2=14004; CG=12033; RETURN; END; IF 1987 LE MY LE 1988 AND V IN (60,62) AND V1='1' THEN DO; MM2=14004; CG=12033; RETURN; END; IF MY=1993 AND V=62 AND V1='1' THEN DO; MM2=14004; CG=12037; RETURN; END; IF MY=1994 AND V IN (60,62) AND V1='1' THEN DO; MM2=14004; CG=12037; RETURN; END; IF 1995 LE MY LE 1997 AND V=62 AND V1='1' THEN DO; MM2=14004; CG=12037; RETURN; END; IF 1984 LE MY LE 1986 AND 71 LE V LE 76 AND V1 IN ('1','2') THEN DO; MM2=14015; CG=12034; RETURN; END; IF 1987 LE MY LE 1988 AND V IN (30,31,32,33,35,36,37,38) AND V1 IN ('1','2') THEN DO; MM2=14015; CG=12034; RETURN; END; IF 1989 LE MY LE 1991 AND V IN (30,31,33,35,36,37,38) AND V1 IN ('1','2') THEN DO; MM2=14015; CG=12034; RETURN; END; IF MY=1992 AND V IN (31,33,36,37,38) AND V1 IN ('1','2') THEN DO; MM2=14015; CG=12034; RETURN; END; IF 1993 LE MY LE 1994 AND V IN (31,36,37) AND V1 IN ('1','2') THEN DO; MM2=14015; CG=12034; RETURN; END; IF MY=1986 AND 87 LE V LE 88 AND V1='1' THEN DO; MM2=14017; CG=12035; RETURN; END; IF 1987 LE MY LE 1995 AND V IN (50,53,55,58) AND V1='1' THEN DO; MM2=14017; CG=12035; RETURN; END; IF 1989 LE MY LE 1992 AND V IN (60,62) AND V1='1' THEN DO; MM2=14004; CG=12037; RETURN; END; IF 1995 LE MY LE 2000 AND V IN (65,66) AND V1 IN ('1','3') THEN DO; MM2=14037; CG=12039; RETURN; END; IF 1996 LE MY LE 1997 AND V1 IN ('1','3') AND V IN (50,51,53,55,58) THEN DO; MM2=14017; CG=12040; RETURN; END; IF MY=1998 AND V1 IN ('1','3') AND V IN (50,53,55,58) THEN DO; MM2=14017; CG=12040; RETURN; END; IF MY=1999 AND V IN (50,53,58) THEN DO; MM2=14017; CG=12040; RETURN; END; IF 2000 LE MY LE 2004 AND V IN (50,53,55,58,59) THEN DO; MM2=14017; CG=12040; RETURN; END; IF MY=2005 AND V IN (50,55,59) THEN DO; MM2=14017; CG=12040; RETURN; END; /* SABLE ends 2005 */ IF 2005 LE MY LE 2007 AND V IN (40,41,42,43) THEN DO; MM2=14020; CG=12049; RETURN; END; /* MONTEGO ends 2007 */ IF MY IN (2008,2009) AND V IN (40,41,42,43) THEN DO; MM2=14017; CG=12049; RETURN; END; /* SABLE (MONTEGO renamed) ends 2009 */ IF MY=2006 AND V IN (7,8) THEN DO; MM2=14021; CG=12050; RETURN; END; IF 2007 LE MY LE 2009 AND V IN (1,2,7,8) THEN DO; MM2=14021; CG=12050; RETURN; END; IF MY=2010 AND V57 IN ('M0C','M0H','M0J','M0L') THEN DO; MM2=14021; CG=12050; RETURN; END; /* MILAN */ IF 1991 LE MY LE 1994 AND V1='6' AND V IN (1,3) AND V5='T' THEN DO; MM2=14031; CG=16001; RETURN; END; IF 1988 LE MY LE 1989 AND V IN (10,11,12,13,15,16) AND V1 IN ('3','L') THEN DO; MM2=14036; CG=41011; RETURN; END; IF 1991 LE MY LE 1995 AND V IN (10,14,15) AND V1 IN ('3','L') THEN DO; MM2=14036; CG=41017; RETURN; END; IF MY=1996 AND V IN (10,14,15) AND V1 IN ('1','3','L') THEN DO; MM2=14036; CG=41017; RETURN; END; IF 1997 LE MY LE 1999 AND V IN (10,13,15) AND V1 IN ('1','3','L') THEN DO; MM2=14036; CG=41017; RETURN; END; IF 1999 LE MY LE 2002 AND V5='T' AND V IN (60,61,62) THEN DO; MM2=14038; CG=41027; RETURN; END; MM2=99999; CG=99999; RETURN; BUICK: V4=TRANSLATE(V4,'ZSGB','2568'); V5=TRANSLATE(V5,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); IF MY LE 2009 THEN DO; V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); END; ELSE V7=TRANSLATE(V7,'ZSGB','2568'); V45=V4||V5; IF 1981 LE MY LE 1984 AND V4 NE 'A' THEN DO; MM2=99999; CG=99999; RETURN; END; IF 1981 LE MY LE 1984 AND (V5='N' OR V5='P') AND V1='1' AND V IN (37,69) THEN DO; MM2=18002; CG=18039; RETURN; END; IF MY=1985 AND V45 IN ('BN','BP') AND V1='1' AND V IN (37,69) THEN DO; MM2=18002; CG=18039; RETURN; END; IF 1992 LE MY LE 1996 AND V45 IN ('BN','BT') AND V6='5' AND V1='1' THEN DO; MM2=18004; CG=18039; RETURN; END; IF 1981 LE MY LE 1983 AND V5='R' AND V1='1' AND V=35 THEN DO; MM2=18002; CG=18040; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('BR','BV') AND V1='1' AND V=35 THEN DO; MM2=18002; CG=18040; RETURN; END; IF 1987 LE MY LE 1991 AND V45 IN ('BR','BV') AND V1='1' AND V6='8' THEN DO; MM2=18002; CG=18040; RETURN; END; IF 1981 LE MY LE 1984 AND V5='V' AND V=35 THEN DO; MM2=18003; CG=18040; RETURN; END; IF 1992 LE MY LE 1996 AND V45 IN ('BB','BR','BV') AND V6='8' AND V1='1' THEN DO; MM2=18004; CG=18040; RETURN; END; IF 1981 LE MY LE 1983 AND (V5='V' OR V5='W' OR V5='X') AND V IN (37,69) THEN DO; MM2=18003; CG=18041; RETURN; END; IF MY=1984 AND (V5='U' OR V5='R') AND V IN (37,69) THEN DO; MM2=18003; CG=18041; RETURN; END; IF MY=1981 AND V5 IN ('E','H','L') AND V1='1' AND V IN (35,69) THEN DO; MM2=18001; CG=18044; RETURN; END; IF 1982 LE MY LE 1984 AND V5 IN ('J','K','M') AND V1='1' AND V IN (35,69) THEN DO; MM2=18001; CG=18044; RETURN; END; IF MY=1981 AND V5 IN ('J','K','M') AND V1='1' AND V=47 THEN DO; MM2=18010; CG=18045; RETURN; END; IF 1982 LE MY LE 1984 AND V5 IN ('J','K','M') AND V1='1' AND V=47 THEN DO; MM2=18010; CG=18045; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('GJ','GK','GM') AND V1='1' AND V=47 THEN DO; MM2=18010; CG=18045; RETURN; END; IF MY=1987 AND V45 IN ('GJ','GK','GM') AND V1='1' AND V6='1' THEN DO; MM2=18010; CG=18045; RETURN; END; IF 1981 LE MY LE 1984 AND V5 IN ('Y','Z') AND V1='1' AND V IN (57,67) THEN DO; MM2=18005; CG=18046; RETURN; END; IF MY=1985 AND V45 IN ('EY','EZ') AND V1='1' AND V IN (57,67) THEN DO; MM2=18005; CG=18046; RETURN; END; IF 1981 LE MY LE 1984 AND V5 IN ('B','C','D') AND V1='1' AND V IN (37,69) THEN DO; MM2=18015; CG=18047; RETURN; END; IF MY=1985 AND V45 IN ('XB','XC','XD') AND V1='1' AND V IN (37,69) THEN DO; MM2=18015; CG=18047; RETURN; END; IF 1982 LE MY LE 1984 AND V5 IN ('E','S','T') AND V1='1' AND V IN (27,35,69,77) THEN DO; MM2=18016; CG=18048; RETURN; END; IF 1985 LE MY LE 1986 AND V4='J' AND V5 IN ('E','S','T') AND V1='1' AND V IN (27,35,69,77) THEN DO; MM2=18016; CG=18048; RETURN; END; IF 1987 LE MY LE 1989 AND V4='J' AND V5 IN ('E','S','T') AND V1='1' AND V6 IN ('1','2','5','8') THEN DO; MM2=18016; CG=18048; RETURN; END; IF 1982 LE MY LE 1986 AND V45 IN ('AG','AH','AL') AND V IN (19,27,35) THEN DO; MM2=18017; CG=18050; RETURN; END; IF 1987 LE MY LE 1996 AND V45 IN ('AG','AH','AL') AND V6 IN ('1','5','8') THEN DO; MM2=18017; CG=18050; RETURN; END; IF MY=1986 AND V45 IN ('HH','HP','HR') AND V1='1' AND V IN (37,69) THEN DO; MM2=18002; CG=18052; RETURN; END; IF 1987 LE MY LE 1991 AND V45 IN ('HH','HP','HR') AND V1='1' AND V6 IN ('1','5') THEN DO; MM2=18002; CG=18052; RETURN; END; IF 1992 LE MY LE 1999 AND V45 IN ('HH','HP','HR') AND V1='1' AND V6='5' THEN DO; MM2=18002; CG=18052; RETURN; END; IF MY=1984 AND V5 IN ('F','W','X') AND V IN (11,69) THEN DO; MM2=18003; CG=18052; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('CF','CU','CW','CX') AND V1='1' AND V IN (11,69) THEN DO; MM2=18003; CG=18052; RETURN; END; IF MY=1987 AND V45 IN ('CF','CU','CW','CX') AND V1='1' AND V6 IN ('1','5') THEN DO; MM2=18003; CG=18052; RETURN; END; IF 1988 LE MY LE 1996 AND V45 IN ('CF','CU','CW','CX') AND V1='1' AND V6='5' THEN DO; MM2=18003; CG=18052; RETURN; END; IF MY=1985 AND V45 IN ('NC','ND','NJ','NK','NM','NV') AND V1='1' AND V=27 THEN DO; MM2=18018; CG=18054; RETURN; END; IF MY=1986 AND V45 IN ('NC','ND','NJ','NK','NM','NV') AND V1='1' AND V IN (27,69) THEN DO; MM2=18018; CG=18054; RETURN; END; IF 1987 LE MY LE 1991 AND V45 IN ('NC','ND','NJ','NK','NM','NV') AND V1='1' AND V6 IN ('1','5') THEN DO; MM2=18018; CG=18054; RETURN; END; IF 1992 LE MY LE 1998 AND V45 IN ('NJ','NM','NV') AND V1='1' AND V6 IN ('1','5') THEN DO; MM2=18018; CG=18054; RETURN; END; IF MY=1986 AND V45 IN ('EY','EZ') AND V1='1' AND V=57 THEN DO; MM2=18005; CG=18055; RETURN; END; IF 1987 LE MY LE 1993 AND V45 IN ('EY','EZ') AND V1='1' AND V6='1' THEN DO; MM2=18005; CG=18055; RETURN; END; IF 1988 LE MY LE 1991 AND V45='EC' AND V1='1' AND V6 IN ('1','3') THEN DO; MM2=18021; CG=18058; RETURN; END; IF 1988 LE MY LE 1990 AND V45 IN ('WB','WD','WF') AND V1='2' AND V6='1' THEN DO; MM2=18020; CG=18059; RETURN; END; IF 1991 LE MY LE 1996 AND V45 IN ('WB','WD','WF') AND V1='2' AND V6 IN ('1','5') THEN DO; MM2=18020; CG=18059; RETURN; END; IF 1997 LE MY LE 2005 AND V45 IN ('CU','CW') AND V1='1' AND V6='5' THEN DO; MM2=18003; CG=18065; RETURN; END; /* PARK AVENUE ends 2005 */ IF 1995 LE MY LE 1999 AND V45='GD' AND V1='1' AND V6 IN ('1','2') THEN DO; MM2=18005; CG=18065; RETURN; END; IF 2000 LE MY LE 2005 AND V45 IN ('HP','HR') THEN DO; MM2=18002; CG=18067; RETURN; END; /* LeSABRE ends 2005 */ IF 2005 LE MY LE 2007 AND V45 IN ('WC','WD','WE') THEN DO; MM2=18022; CG=18069; RETURN; END; IF MY=2008 AND V45 IN ('WC','WD','WE','WN') THEN DO; MM2=18022; CG=18069; RETURN; END; IF MY=2009 AND V45 IN ('WC','WD','WN') THEN DO; MM2=18022; CG=18069; RETURN; END; /* LaCROSSE remodeled 2010 */ IF 1997 LE MY LE 2003 AND V45 IN ('WS','WY') THEN DO; MM2=18017; CG=18071; RETURN; END; IF 2004 LE MY LE 2005 AND V45='WS' THEN DO; MM2=18017; CG=18071; RETURN; END; /* CENTURY ends 2005 */ IF 1997 LE MY LE 2004 AND V45 IN ('WB','WF') THEN DO; MM2=18020; CG=18071; RETURN; END; /* REGAL ends 2004 */ IF 2006 LE MY LE 2007 AND V45 IN ('HD','HE','HP','HR') THEN DO; MM2=18023; CG=18084; RETURN; END; IF MY=2008 AND V45 IN ('HD','HE','HF','HP','HR') THEN DO; MM2=18023; CG=18084; RETURN; END; IF MY=2009 AND V45 IN ('HD','HF','HP','HR') THEN DO; MM2=18023; CG=18084; RETURN; END; IF MY=2010 AND V4='H' AND V5 IN ('A','B','C','D','E','F','G','J','K') THEN DO; MM2=18023; CG=18084; RETURN; END; IF MY GE 2011 AND V4='H' AND V5 IN ('A','C','J','K') THEN DO; MM2=18023; CG=18084; RETURN; END; /* LUCERNE */ IF MY=2010 AND V4='G' AND V5 IN ('A','B','C','D','E','F','G','J','K','L','M') THEN DO; MM2=18022; CG=18085; RETURN; END; IF MY GE 2011 AND V4='G' AND V5 IN ('A','C','D','E') THEN DO; MM2=18022; CG=18085; RETURN; END; /* LaCROSSE */ IF MY GE 2011 AND V4='G' AND V5 IN ('N','P','R','S','T','U','V','W','X','Y','Z','0','1') AND V1='W' AND V2='0' THEN DO; MM2=18019; CG=28004; RETURN; END; /* REGAL */ MM2=99999; CG=99999; RETURN; CADILLAC: V4=TRANSLATE(V4,'ZSGB','2568'); IF MY LE 2009 THEN V5=TRANSLATE(V5,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); IF MY LE 2009 THEN DO; V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); END; ELSE V7=TRANSLATE(V7,'ZSGB','2568'); V45=V4||V5; IF 1981 LE MY LE 1984 AND V4 NE 'A' THEN DO; MM2=99999; CG=99999; RETURN; END; IF V6='6' AND V7='9' AND MY GE 1987 THEN DO; MM2=99999; CG=99999; RETURN; END; IF 1981 LE MY LE 1983 AND V5 IN ('B','D') AND V IN (47,69) THEN DO; MM2=19003; CG=18042; RETURN; END; IF MY=1984 AND V5 IN ('M','W') AND V IN (47,69) THEN DO; MM2=19003; CG=18042; RETURN; END; IF 1985 LE MY LE 1986 AND V45='DW' AND V IN (47,69) THEN DO; MM2=19003; CG=18042; RETURN; END; IF 1987 LE MY LE 1996 AND V45='DW' AND V6='5' THEN DO; MM2=19003; CG=18042; RETURN; END; IF 1981 LE MY LE 1984 AND V5='L' AND V IN (57,67) THEN DO; MM2=19005; CG=18046; RETURN; END; IF MY=1985 AND V45='EL' AND V IN (57,67) THEN DO; MM2=19005; CG=18046; RETURN; END; IF 1981 LE MY LE 1984 AND V5='S' AND V=69 THEN DO; MM2=19014; CG=18046; RETURN; END; IF MY=1985 AND V45='KS' AND V=69 THEN DO; MM2=19014; CG=18046; RETURN; END; IF 1982 LE MY LE 1984 AND V5='G' AND V=69 THEN DO; MM2=19016; CG=18048; RETURN; END; IF 1985 LE MY LE 1986 AND V45='JG' AND V=69 THEN DO; MM2=19016; CG=18048; RETURN; END; IF 1987 LE MY LE 1988 AND V45='JG' AND V6='5' THEN DO; MM2=19016; CG=18048; RETURN; END; IF MY=1984 AND V5 IN ('B','D') AND V IN (47,69) THEN DO; MM2=19003; CG=18052; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('CB','CD','CG','CS') AND V IN (47,69) THEN DO; MM2=19003; CG=18052; RETURN; END; IF 1987 LE MY LE 1989 AND V45 IN ('CB','CD','CG','CS') AND V6 IN ('1','5') THEN DO; MM2=19003; CG=18052; RETURN; END; IF 1990 LE MY LE 1993 AND V45 IN ('CB','CD','CG','CS','CT') AND V6='1' THEN DO; MM2=19003; CG=18052; RETURN; END; IF MY=1986 AND V45='EL' AND V=57 THEN DO; MM2=19005; CG=18055; RETURN; END; IF 1987 LE MY LE 1993 AND V45='EL' AND V6='1' THEN DO; MM2=19005; CG=18055; RETURN; END; IF 1994 LE MY LE 2001 AND V45 IN ('EL','ET') AND V6='1' THEN DO; MM2=19005; CG=18055; RETURN; END; IF MY=2002 AND V45 IN ('EC','EL','ET') AND V6='1' THEN DO; MM2=19005; CG=18055; RETURN; END; IF MY=1986 AND V45 IN ('KS','KY') AND V=69 THEN DO; MM2=19014; CG=18055; RETURN; END; IF 1987 LE MY LE 1991 AND V45 IN ('KS','KY') AND V6='5' THEN DO; MM2=19014; CG=18055; RETURN; END; IF 1987 LE MY LE 1993 AND V45 IN ('VR','VS') AND V6='3' THEN DO; MM2=19009; CG=18057; RETURN; END; IF 1990 LE MY LE 1993 AND V45 IN ('CB','CD','CG','CS','CT') AND V6='5' THEN DO; MM2=19003; CG=18060; RETURN; END; IF 1992 LE MY LE 1997 AND V45 IN ('KS','KY') AND V6='5' THEN DO; MM2=19014; CG=18063; RETURN; END; IF 1994 LE MY LE 1999 AND V45 IN ('KD','KE','KF') AND V6='5' THEN DO; MM2=19003; CG=18064; RETURN; END; IF 1998 LE MY LE 2004 AND V45 IN ('KS','KY') THEN DO; MM2=19014; CG=18067; RETURN; END; /* SEVILLE ends 2004 */ IF 2000 LE MY LE 2005 AND V45 IN ('KD','KE','KF') THEN DO; MM2=19003; CG=18074; RETURN; END; /* DeVILLE ends 2005 */ IF 2006 LE MY LE 2009 AND V45='KD' THEN DO; MM2=19022; CG=18074; RETURN; END; IF MY GE 2010 AND V4='K' THEN DO; MM2=19022; CG=18074; RETURN; END; /* DTS */ IF MY=2003 AND V45 IN ('DG','DM') THEN DO; MM2=19018; CG=18075; RETURN; END; IF MY=2004 AND V45 IN ('DM','DN') THEN DO; MM2=19018; CG=18075; RETURN; END; IF 2005 LE MY LE 2007 AND V45 IN ('DM','DN','DP') THEN DO; MM2=19018; CG=18075; RETURN; END; IF MY=2008 AND V45 IN ('DF','DG','DH','DJ','DM','DP','DR','DS','DT','DV') THEN DO; MM2=19018; CG=18075; RETURN; END; IF MY=2009 AND V45 IN ('DF','DG','DH','DJ','DM','DN','DP','DS','DT','DU','DV') THEN DO; MM2=19018; CG=18075; RETURN; END; IF MY=2010 AND V4='D' AND V5 IN ('A','B','C','D','E','F','G','H','J','K','L','M','N','P','R','S','T','V','0') THEN DO; MM2=19018; CG=18075; RETURN; END; IF MY GE 2011 AND V4='D' AND V5 IN ('A','B','C','D','E','F','G','H','J','K','L','M','N','P','R','S','T','V','2') THEN DO; MM2=19018; CG=18075; RETURN; END; /* CTS */ IF 2004 LE MY LE 2005 AND V45='YV' THEN DO; MM2=19019; CG=18077; RETURN; END; IF 2006 LE MY LE 2009 AND V45 IN ('YV','YX') THEN DO; MM2=19019; CG=18077; RETURN; END; /* XLR ends 2009 */ IF MY=2005 AND V45 IN ('DC','DW') THEN DO; MM2=19021; CG=18082; RETURN; END; IF MY=2006 AND V45 IN ('DC','DW','DX') THEN DO; MM2=19021; CG=18082; RETURN; END; IF MY=2007 AND V45 IN ('DC','DE','DW','DX') THEN DO; MM2=19021; CG=18082; RETURN; END; IF 2008 LE MY LE 2009 AND V45 IN ('DA','DB','DC','DD','DE','DK','DL','DW','DX','DY','DZ') THEN DO; MM2=19021; CG=18082; RETURN; END; IF MY GE 2010 AND V45 IN ('DU','DW','DX') THEN DO; MM2=19021; CG=18082; RETURN; END; /* STS */ IF 1997 LE MY LE 2001 AND V45='VR' AND V1='W' THEN DO; MM2=19017; CG=28002; RETURN; END; MM2=99999; CG=99999; RETURN; CHEVY: V4=TRANSLATE(V4,'ZSGB','2568'); V5=TRANSLATE(V5,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); IF MY LE 2009 THEN DO; V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); END; ELSE V7=TRANSLATE(V7,'ZSGB','2568'); V45=V4||V5; V1_2=V1||V2; V13=V1||V2||V3; IF 1981 LE MY LE 1984 AND V4 NE 'A' THEN DO; MM2=99999; CG=99999; RETURN; END; IF 1981 LE MY LE 1982 AND V5='Y' AND V1='1' AND V IN (7,87) THEN DO; MM2=20004; CG=18007; RETURN; END; IF MY=1981 AND (V5='P' OR V5='S') AND V1='1' AND V=87 THEN DO; MM2=20009; CG=18009; RETURN; END; IF 1981 LE MY LE 1984 AND V5 IN ('B','J') AND V=8 AND V1='1' THEN DO; MM2=20013; CG=18038; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('TB','TJ') AND V=8 AND V1='1' THEN DO; MM2=20013; CG=18038; RETURN; END; IF MY=1987 AND V45='TB' AND V6='2' AND V1='1' THEN DO; MM2=20013; CG=18038; RETURN; END; IF 1981 LE MY LE 1984 AND V1 IN ('1','2') AND V5 IN ('L','N') AND V IN (47,69) THEN DO; MM2=20002; CG=18039; RETURN; END; IF 1985 LE MY LE 1986 AND V1 IN ('1','2') AND V45 IN ('BL','BN') AND V IN (47,69) THEN DO; MM2=20002; CG=18039; RETURN; END; IF 1987 LE MY LE 1996 AND V45 IN ('BL','BN','BU') AND V6='5' AND V1='1' THEN DO; MM2=20002; CG=18039; RETURN; END; IF MY=1987 AND V45 IN ('BL','BN','BU') AND V6='1' AND V1='1' THEN DO; MM2=20002; CG=18039; RETURN; END; IF 1981 LE MY LE 1984 AND V5 IN ('L','N') AND V=35 AND V1 IN ('1','2') THEN DO; MM2=20002; CG=18040; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('BL','BN') AND V=35 AND V1 IN ('1','2') THEN DO; MM2=20002; CG=18040; RETURN; END; IF 1987 LE MY LE 1996 AND V45 IN ('BL','BN','BU') AND V6='8' AND V1='1' THEN DO; MM2=20002; CG=18040; RETURN; END; IF 1981 LE MY LE 1984 AND V5 IN ('B','J') AND V=68 AND V1='1' THEN DO; MM2=20013; CG=18043; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('TB','TJ') AND V=68 AND V1='1' THEN DO; MM2=20013; CG=18043; RETURN; END; IF MY=1987 AND V45='TB' AND V6='6' AND V1='1' THEN DO; MM2=20013; CG=18043; RETURN; END; IF MY=1981 AND V5 IN ('T','W') AND V IN (27,35,69) THEN DO; MM2=20001; CG=18044; RETURN; END; IF 1982 LE MY LE 1983 AND V5 IN ('T','W') AND V IN (35,69) THEN DO; MM2=20001; CG=18044; RETURN; END; IF 1981 LE MY LE 1984 AND V5='Z' AND V2='G' AND V=37 THEN DO; MM2=20010; CG=18045; RETURN; END; IF 1985 LE MY LE 1986 AND V45='GZ' AND V1='1' AND V2='G' AND V=37 THEN DO; MM2=20010; CG=18045; RETURN; END; IF 1987 LE MY LE 1988 AND V45='GZ' AND V1='1' AND V2='G' AND V6='1' THEN DO; MM2=20010; CG=18045; RETURN; END; IF 1981 LE MY LE 1984 AND V5 IN ('H','X') AND V1='1' AND V IN (8,11,68) THEN DO; MM2=20015; CG=18047; RETURN; END; IF MY=1985 AND V45='XX' AND V1='1' AND V IN (8,68) THEN DO; MM2=20015; CG=18047; RETURN; END; IF MY=1985 AND V45='XH' AND V1='1' AND V=11 THEN DO; MM2=20015; CG=18047; RETURN; END; IF 1982 LE MY LE 1984 AND V5 IN ('C','D','E') AND V1='1' AND V IN (27,35,67,69,77) THEN DO; MM2=20016; CG=18048; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('JC','JD','JE','JF') AND V1='1' AND V IN (27,35,67,69,77) THEN DO; MM2=20016; CG=18048; RETURN; END; IF MY=1987 AND V45 IN ('JC','JD','JE','JF') AND V1='1' AND V6 IN ('1','2','3','5','8') THEN DO; MM2=20016; CG=18048; RETURN; END; IF 1988 LE MY LE 1994 AND V45 IN ('JC','JD','JE','JF') AND V1='1' AND V6 IN ('1','3','5','8') THEN DO; MM2=20016; CG=18048; RETURN; END; IF 1982 LE MY LE 1984 AND V5 IN ('P','S') AND V1='1' AND V=87 THEN DO; MM2=20009; CG=18049; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('FP','FS') AND V1='1' AND V=87 THEN DO; MM2=20009; CG=18049; RETURN; END; IF 1987 LE MY LE 1992 AND V45='FP' AND V1='1' AND V6 IN ('2','3') THEN DO; MM2=20009; CG=18049; RETURN; END; IF MY=1993 AND V45='FP' AND V1 IN ('1','2') AND V6='2' THEN DO; MM2=20009; CG=18049; RETURN; END; IF MY=1993 AND V45 IN ('FP','FS') AND V1 IN ('1','2') AND V6='3' THEN DO; MM2=99999; CG=99999; RETURN; END; IF 1994 LE MY LE 2002 AND V45='FP' AND V1 IN ('1','2') AND V6 IN ('2','3') THEN DO; MM2=20009; CG=18049; RETURN; END; IF 1982 LE MY LE 1984 AND V5='W' AND V IN (19,27) THEN DO; MM2=20017; CG=18050; RETURN; END; IF MY=1984 AND V5='W' AND V=35 THEN DO; MM2=20017; CG=18050; RETURN; END; IF 1985 LE MY LE 1986 AND V45='AW' AND V IN (19,27,35) THEN DO; MM2=20017; CG=18050; RETURN; END; IF 1987 LE MY LE 1990 AND V45='AW' AND V6 IN ('1','5','8') THEN DO; MM2=20017; CG=18050; RETURN; END; IF MY=1984 AND V5='Y' AND V1='1' AND V IN (7,67) THEN DO; MM2=20004; CG=18051; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('YY','YZ') AND V1='1' AND V IN (7,67) THEN DO; MM2=20004; CG=18051; RETURN; END; IF 1987 LE MY LE 1996 AND V45 IN ('YY','YZ') AND V1='1' AND V6 IN ('2','3') THEN DO; MM2=20004; CG=18051; RETURN; END; IF 1987 LE MY LE 1996 AND V45='LV' AND V1='1' AND V6='1' THEN DO; MM2=20019; CG=18056; RETURN; END; IF 1989 LE MY LE 1996 AND V45='LW' AND V1='1' AND V6='1' THEN DO; MM2=20019; CG=18056; RETURN; END; IF 1990 LE MY LE 1993 AND V45='LZ' AND V1='1' AND V6='1' THEN DO; MM2=20019; CG=18056; RETURN; END; IF 1994 LE MY LE 1996 AND V45='LD' AND V1='1' AND V6='5' THEN DO; MM2=20019; CG=18056; RETURN; END; IF 1987 LE MY LE 1993 AND V45='LT' AND V1='1' AND V6='5' THEN DO; MM2=20019; CG=18056; RETURN; END; IF 1989 LE MY LE 1990 AND V45='LZ' AND V1='1' AND V6='5' THEN DO; MM2=20019; CG=18056; RETURN; END; IF 1989 LE MY LE 1991 AND V45='LT' AND V1='1' AND V6='6' THEN DO; MM2=20019; CG=18056; RETURN; END; IF 1990 LE MY LE 1999 AND V45 IN ('WL','WM','WN','WP') AND V1 IN ('1','2') AND V6 IN ('1','5') THEN DO; MM2=20020; CG=18059; RETURN; END; IF 2000 LE MY LE 2001 AND V45='WL' AND V1='2' AND V6='5' THEN DO; MM2=20020; CG=18059; RETURN; END; IF 1995 LE MY LE 1999 AND V45 IN ('WW','WX') AND V6='1' AND V1='2' THEN DO; MM2=20036; CG=18059; RETURN; END; IF 1995 LE MY LE 2000 AND V45 IN ('JC','JF') AND V1 IN ('1','3','4') THEN DO; MM2=20016; CG=18066; RETURN; END; IF MY=2001 AND V45 IN ('JC','JF','JH') AND V1 IN ('1','3','4') AND V6 IN ('1','3','5') THEN DO; MM2=20016; CG=18066; RETURN; END; IF MY=2002 AND V45 IN ('JC','JF','JH','JS') AND V1 IN ('1','3','4') AND V6 IN ('1','3','5') THEN DO; MM2=20016; CG=18066; RETURN; END; IF 2003 LE MY LE 2005 AND V45 IN ('JC','JF','JH') AND V1 IN ('1','3','4') AND V6 IN ('1','3','5') THEN DO; MM2=20016; CG=18066; RETURN; END; /* CAVALIER ends 2005 */ IF 1997 LE MY LE 2003 AND V45 IN ('ND','NE') AND V1='1' AND V6='5' THEN DO; MM2=20037; CG=18068; RETURN; END; IF 2004 LE MY LE 2005 AND V45='ND' AND V1='1' AND V6='5' THEN DO; MM2=20037; CG=18068; RETURN; END; /* CLASSIC ends 2005 */ IF 2000 LE MY LE 2003 AND V45 IN ('WF','WH') AND V1='2' THEN DO; MM2=20002; CG=18069; RETURN; END; IF 2004 LE MY LE 2005 AND V45 IN ('WF','WH','WP') AND V1='2' THEN DO; MM2=20002; CG=18069; RETURN; END; IF 2006 LE MY LE 2009 AND V45 IN ('WB','WC','WD','WS','WT','WU') AND V1='2' THEN DO; MM2=20002; CG=18069; RETURN; END; /* IMPALA 2006, 2007, 2009 */ IF MY=2008 AND V45='WV' AND V1='2' THEN DO; MM2=20002; CG=18069; RETURN; END; /* add'l IMPALA 2008 ONLY */ IF MY GE 2010 AND V45 IN ('WA','WB','WC','WD','WE','WF','WG') AND V1='2' THEN DO; MM2=20002; CG=18069; RETURN; END; /* IMPALA */ IF 2000 LE MY LE 2003 AND V45 IN ('WW','WX') AND V1='2' THEN DO; MM2=20036; CG=18069; RETURN; END; IF 2004 LE MY LE 2005 AND V45 IN ('WW','WX','WZ') AND V1='2' THEN DO; MM2=20036; CG=18069; RETURN; END; IF MY=2006 AND V45 IN ('WJ','WK','WL','WM','WN') AND V1='2' THEN DO; MM2=20036; CG=18069; RETURN; END; IF MY=2007 AND V45 IN ('WJ','WK','WL') AND V1='2' THEN DO; MM2=20036; CG=18069; RETURN; END; /* MONTE CARLO ends 2007 */ IF 1997 LE MY LE 2004 AND V45='YY' THEN DO; MM2=20004; CG=18072; RETURN; END; IF 2004 LE MY LE 2005 AND V45 IN ('ZS','ZT','ZU') AND V6='5' THEN DO; MM2=20037; CG=18078; RETURN; END; IF MY IN (2006,2007) AND V45 IN ('ZS','ZT','ZU','ZW') AND V6='5' THEN DO; MM2=20037; CG=18078; RETURN; END; IF MY=2008 AND V45 IN ('ZS','ZT') AND V6='5' THEN DO; MM2=20037; CG=18078; RETURN; END; /* MALIBU 106.3 ends 2008 */ IF 2004 LE MY LE 2005 AND V45 IN ('ZS','ZT','ZU') AND V6='6' THEN DO; MM2=20037; CG=18079; RETURN; END; IF MY GE 2006 AND V45 IN ('ZS','ZT','ZU','ZW') AND V6='6' THEN DO; MM2=20037; CG=18079; RETURN; END; /* MALIBU MAXX ends 2007 */ IF 2008 LE MY LE 2009 AND V45 IN ('ZF','ZG','ZH','ZJ','ZK') THEN DO; MM2=20037; CG=18079; RETURN; END; IF MY GE 2010 AND V45 IN ('ZA','ZB','ZC','ZD','ZE','ZF') THEN DO; MM2=20037; CG=18079; RETURN; END; /* MALIBU 112.3 */ IF 2005 LE MY LE 2007 AND V4='A' AND V5 IN ('J','K','L','M','N','P','Z') THEN DO; MM2=20022; CG=18080; RETURN; END; IF MY=2008 AND V4='A' AND V5 IN ('J','K','L','M','P') THEN DO; MM2=20022; CG=18080; RETURN; END; IF MY=2009 AND V4='A' AND V5 IN ('J','K','L','P','R','S','T','W','Z') THEN DO; MM2=20022; CG=18080; RETURN; END; IF MY=2010 AND V4='A' AND V5 IN ('A','B','C','D','E','F','G','H','J') THEN DO; MM2=20022; CG=18080; RETURN; END; /* COBALT ends 2010 */ IF 2005 LE MY LE 2008 AND V45='YY' THEN DO; MM2=20004; CG=18081; RETURN; END; IF MY=2009 AND V45 IN ('YG','YR','YY','YZ') THEN DO; MM2=20004; CG=18081; RETURN; END; IF MY GE 2010 AND V4='Y' THEN DO; MM2=20004; CG=18081; RETURN; END; /* CORVETTE */ IF MY GE 2010 AND V4='F' THEN DO; MM2=20009; CG=18086; RETURN; END; /* CAMARO */ IF MY GE 2011 AND V4='P' AND V5 IN ('A','B','C','D','E','F','G','H','J','K','L') THEN DO; MM2=20025; CG=18087; RETURN; END; /* CRUZE */ IF MY GE 2011 AND V45 IN ('RC','RD') THEN DO; MM2=20026; CG=18087; RETURN; END; /* VOLT */ IF MY GE 2011 AND V45='MK' AND V1='6' THEN DO; MM2=20027; CG=25003; RETURN; END; /* CAPRICE POLICE */ IF 1985 LE MY LE 1986 AND V45 IN ('RE','RF','RG') AND V1_2='J8' AND V IN (69,77) THEN DO; MM2=20031; CG=38003; RETURN; END; IF 1987 LE MY LE 1989 AND V45 IN ('RE','RF','RG') AND V1_2='J8' AND V6 IN ('2','5') THEN DO; MM2=20031; CG=38003; RETURN; END; IF 1990 LE MY LE 1993 AND V45 IN ('RF','RT') AND V1_2='J8' AND V6 IN ('2','4') THEN DO; MM2=20035; CG=38004; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('SK','SL') AND V1_2='1Y' AND V IN (19,68) THEN DO; MM2=20032; CG=49019; RETURN; END; IF 1987 LE MY LE 1992 AND V45 IN ('SK','SL') AND V1_2='1Y' AND V6 IN ('5','6','7') THEN DO; MM2=20032; CG=49019; RETURN; END; IF 1993 LE MY LE 1997 AND V45='SK' AND V1_2='1Y' AND V6='5' THEN DO; MM2=20032; CG=49030; RETURN; END; IF 1998 LE MY LE 2002 AND V45='SK' AND V13='1Y1' THEN DO; MM2=20032; CG=49030; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('MR','MS') AND V1_2='JG' AND V=8 THEN DO; MM2=20033; CG=53001; RETURN; END; IF 1987 LE MY LE 1988 AND V45 IN ('MR','MS') AND V6='2' AND V1_2='JG' THEN DO; MM2=20033; CG=53001; RETURN; END; IF MY=1986 AND V45='MR' AND V1_2='JG' AND V=68 THEN DO; MM2=20033; CG=53002; RETURN; END; IF 1987 LE MY LE 1988 AND V45='MR' AND V6='6' AND V1_2='JG' THEN DO; MM2=20033; CG=53002; RETURN; END; IF 1989 LE MY LE 1994 AND V45 IN ('MR','MS','MT') AND V6 IN ('2','3') AND V1_2 IN ('JG','2C') THEN DO; MM2=20034; CG=53003; RETURN; END; IF 1989 LE MY LE 1994 AND V45 IN ('MR','MS','MT') AND V6='6' AND V1_2 IN ('JG','2C') THEN DO; MM2=20034; CG=53004; RETURN; END; IF 1995 LE MY LE 1997 AND V45='MR' AND V1_2 IN ('JG','2C') AND V6 IN ('2','5') THEN DO; MM2=20034; CG=53004; RETURN; END; IF 1998 LE MY LE 2001 AND V45='MR' AND V13='2C1' THEN DO; MM2=20034; CG=53004; RETURN; END; IF MY=2004 AND V45 IN ('TD','TJ') AND V13='KL1' THEN DO; MM2=20039; CG=53005; RETURN; END; IF 2005 LE MY LE 2008 AND V45 IN ('TD','TG') AND V13='KL1' THEN DO; MM2=20039; CG=53005; RETURN; END; IF MY GE 2009 AND V45 IN ('TD','TG') AND V13 IN ('KL1','3G1') THEN DO; MM2=20039; CG=53005; RETURN; END; /* AVEO */ MM2=99999; CG=99999; RETURN; OLDS: V4=TRANSLATE(V4,'ZSGB','2568'); /* OLDS last year is 2004 */ V5=TRANSLATE(V5,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); V45=V4||V5; IF 1981 LE MY LE 1984 AND V4 NE 'A' THEN DO; MM2=99999; CG=99999; RETURN; END; IF 1981 LE MY LE 1983 AND V5 IN ('L','N','Y') AND V1='1' AND V IN (37,69) THEN DO; MM2=21002; CG=18039; RETURN; END; IF MY=1984 AND V5 IN ('L','N','V','Y') AND V1='1' AND V IN (37,69) THEN DO; MM2=21002; CG=18039; RETURN; END; IF MY=1985 AND V4='B' AND V5 IN ('N','V','Y') AND V IN (37,69) AND V1='1' THEN DO; MM2=21002; CG=18039; RETURN; END; IF 1981 LE MY LE 1984 AND V5='P' AND V1='1' AND V=35 THEN DO; MM2=21002; CG=18040; RETURN; END; IF 1985 LE MY LE 1986 AND V45='BP' AND V=35 AND V1='1' THEN DO; MM2=21002; CG=18040; RETURN; END; IF 1987 LE MY LE 1992 AND V45='BP' AND V6='8' AND V1='1' THEN DO; MM2=21002; CG=18040; RETURN; END; IF 1981 LE MY LE 1983 AND V5 IN ('V','W','X') AND V1='1' AND V IN (37,69) THEN DO; MM2=21003; CG=18041; RETURN; END; IF MY=1984 AND V5 IN ('G','H') AND V1='1' AND V IN (37,69) THEN DO; MM2=21003; CG=18041; RETURN; END; IF 1981 LE MY LE 1984 AND V5='H' AND V=35 AND V1 IN ('1','2') THEN DO; MM2=21001; CG=18044; RETURN; END; IF MY=1981 AND V5 IN ('G','M','R') AND V IN (35,69) AND V1 IN ('1','2') THEN DO; MM2=21001; CG=18044; RETURN; END; IF 1982 LE MY LE 1984 AND V5 IN ('M','R') AND V IN (35,69) AND V1 IN ('1','2') THEN DO; MM2=21001; CG=18044; RETURN; END; IF MY=1985 AND V45 IN ('GK','GM','GR') AND V=69 AND V1 IN ('1','2') THEN DO; MM2=21001; CG=18044; RETURN; END; IF MY=1981 AND V5 IN ('G','K','M','R') AND V=47 AND V1 IN ('1','2') THEN DO; MM2=21001; CG=18045; RETURN; END; IF 1982 LE MY LE 1984 AND V5 IN ('K','M','R') AND V=47 AND V1 IN ('1','2') THEN DO; MM2=21001; CG=18045; RETURN; END; IF MY=1985 AND V45 IN ('GK','GM','GR') AND V=47 AND V1 IN ('1','2') THEN DO; MM2=21001; CG=18045; RETURN; END; IF MY=1986 AND V45 IN ('GK','GM','GR') AND V IN (47,69) AND V1 IN ('1','2') THEN DO; MM2=21001; CG=18045; RETURN; END; IF 1987 LE MY LE 1988 AND V45 IN ('GK','GM','GR') AND V6 IN ('1','5') AND V1 IN ('1','2') THEN DO; MM2=21001; CG=18045; RETURN; END; IF 1981 LE MY LE 1984 AND V5='Z' AND V1='1' AND V=57 THEN DO; MM2=21005; CG=18046; RETURN; END; IF MY=1985 AND V45='EZ' AND V1='1' AND V=57 THEN DO; MM2=21005; CG=18046; RETURN; END; IF 1981 LE MY LE 1984 AND V5 IN ('B','E') AND V1='1' AND V IN (37,69) THEN DO; MM2=21015; CG=18047; RETURN; END; IF 1982 LE MY LE 1984 AND V5 IN ('C','D') AND V1='1' AND V IN (27,35,69,77) THEN DO; MM2=21016; CG=18048; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('JC','JD') AND V1='1' AND V IN (27,35,69,77) THEN DO; MM2=21016; CG=18048; RETURN; END; IF 1987 LE MY LE 1988 AND V45 IN ('JC','JD') AND V1='1' AND V6 IN ('1','2','5','8') THEN DO; MM2=21016; CG=18048; RETURN; END; IF 1982 LE MY LE 1984 AND V5 IN ('J','M') AND V1='1' AND V IN (19,27,35,37) THEN DO; MM2=21017; CG=18050; RETURN; END; IF MY=1982 AND V5='G' AND V1='1' AND V IN (19,27,35,37) THEN DO; MM2=21017; CG=18050; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('AG','AJ','AL','AM','AS') AND V1 IN ('1','2') AND V IN (19,27,35,37) THEN DO; MM2=21017; CG=18050; RETURN; END; IF 1987 LE MY LE 1996 AND V45 IN ('AG','AJ','AL','AM','AS') AND V1 IN ('1','2') AND V6 IN ('1','5','8') THEN DO; MM2=21017; CG=18050; RETURN; END; IF MY=1986 AND V45 IN ('HN','HY') AND V1='1' AND V IN (37,69) THEN DO; MM2=21002; CG=18052; RETURN; END; IF 1987 LE MY LE 1991 AND V45 IN ('HN','HY') AND V1='1' AND V6 IN ('1','5') THEN DO; MM2=21002; CG=18052; RETURN; END; IF 1992 LE MY LE 1999 AND V45 IN ('HN','HY') AND V1='1' AND V6='5' THEN DO; MM2=21002; CG=18052; RETURN; END; IF 1997 LE MY LE 1999 AND V45='HC' AND V1='1' AND V6='5' THEN DO; MM2=21002; CG=18052; RETURN; END; IF MY=1984 AND V5 IN ('W','X') AND V1='1' AND V IN (11,69) THEN DO; MM2=21003; CG=18052; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('CV','CW','CX') AND V1='1' AND V IN (11,69) THEN DO; MM2=21003; CG=18052; RETURN; END; IF MY=1987 AND V45 IN ('CV','CW','CX') AND V1='1' AND V6 IN ('1','5') THEN DO; MM2=21003; CG=18052; RETURN; END; IF 1988 LE MY LE 1996 AND V45 IN ('CV','CW','CX') AND V1='1' AND V6='5' THEN DO; MM2=21003; CG=18052; RETURN; END; IF MY=1985 AND V45 IN ('NF','NK','NL','NT') AND V1='1' AND V=27 THEN DO; MM2=21018; CG=18054; RETURN; END; IF MY=1986 AND V45 IN ('NF','NK','NL','NT') AND V1='1' AND V IN (27,69) THEN DO; MM2=21018; CG=18054; RETURN; END; IF 1987 LE MY LE 1991 AND V45 IN ('NF','NK','NL','NT') AND V1='1' AND V6 IN ('1','5') THEN DO; MM2=21018; CG=18054; RETURN; END; IF 1992 LE MY LE 1998 AND V45 IN ('NF','NL') AND V1='1' AND V6 IN ('1','5') THEN DO; MM2=21021; CG=18054; RETURN; END; IF MY=1986 AND V45 IN ('EV','EZ') AND V1='1' AND V=57 THEN DO; MM2=21005; CG=18055; RETURN; END; IF 1987 LE MY LE 1992 AND V45 IN ('EV','EZ') AND V1='1' AND V6='1' THEN DO; MM2=21005; CG=18055; RETURN; END; IF 1988 LE MY LE 1997 AND V45 IN ('WH','WR','WS','WT') AND V1='1' AND V6='1' THEN DO; MM2=21020; CG=18059; RETURN; END; IF 1990 LE MY LE 1997 AND V45 IN ('WH','WR','WS','WT') AND V1='1' AND V6='5' THEN DO; MM2=21020; CG=18059; RETURN; END; IF 1990 LE MY LE 1995 AND V45 IN ('WH','WR','WS','WT') AND V1='1' AND V6='3' THEN DO; MM2=21020; CG=18059; RETURN; END; IF 1995 LE MY LE 1999 AND V45='GR' THEN DO; MM2=21022; CG=18065; RETURN; END; IF 1997 LE MY LE 1999 AND V45 IN ('NB','NG') THEN DO; MM2=21020; CG=18068; RETURN; END; IF 1999 LE MY LE 2004 AND V45 IN ('NF','NK','NL') THEN DO; MM2=21021; CG=18068; RETURN; END; /* ALERO ends 2004 */ IF 1998 LE MY LE 2002 AND V45 IN ('WH','WS','WX') THEN DO; MM2=21023; CG=18071; RETURN; END; IF 2001 LE MY LE 2002 AND V45 IN ('GR','GS') THEN DO; MM2=21022; CG=18067; RETURN; END; IF MY=2003 AND V45='GS' THEN DO; MM2=21022; CG=18067; RETURN; END; MM2=99999; CG=99999; RETURN; PONTIAC: V4=TRANSLATE(V4,'ZSGB','2568'); /* PONTIAC last year is 2010 */ V5=TRANSLATE(V5,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); IF MY LE 2009 THEN DO; V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); END; ELSE V7=TRANSLATE(V7,'ZSGB','2568'); V45=V4||V5; V13=V1||V2||V3; IF 1981 LE MY LE 1984 AND V4 NE 'A' THEN DO; MM2=99999; CG=99999; RETURN; END; IF V1='2' AND V2='G' AND V3='7' THEN GOTO CANPONT; IF MY=1981 AND V5 IN ('S','T','U','V','W','X') AND V1='1' AND V=87 THEN DO; MM2=22009; CG=18009; RETURN; END; IF MY=1981 AND V5 IN ('L','M') AND V=8 AND V1='1' THEN DO; MM2=22013; CG=18038; RETURN; END; IF 1982 LE MY LE 1984 AND V5='L' AND V=8 AND V1='1' THEN DO; MM2=22013; CG=18038; RETURN; END; IF 1985 LE MY LE 1986 AND V45='TL' AND V=8 AND V1='1' THEN DO; MM2=22013; CG=18038; RETURN; END; IF MY=1987 AND V45='TL' AND V6='2' AND V1='1' THEN DO; MM2=22013; CG=18038; RETURN; END; IF MY=1981 AND V5 IN ('L','N','R') AND V IN (37,69) AND V1 IN ('1','2') THEN DO; MM2=22002; CG=18039; RETURN; END; IF 1983 LE MY LE 1984 AND V5 IN ('L','T') AND V=69 AND V1 IN ('1','2') THEN DO; MM2=22002; CG=18039; RETURN; END; IF 1985 LE MY LE 1986 AND V4='B' AND V5 IN ('L','T') AND V=69 AND V1 IN ('1','2') THEN DO; MM2=22002; CG=18039; RETURN; END; IF MY=1981 AND V5 IN ('L','N','R') AND V=35 AND V1 IN ('1','2') THEN DO; MM2=22002; CG=18040; RETURN; END; IF 1983 LE MY LE 1984 AND V5 IN ('L','T') AND V=35 AND V1 IN ('1','2') THEN DO; MM2=22002; CG=18040; RETURN; END; IF 1985 LE MY LE 1986 AND V45='BL' AND V=35 AND V1 IN ('1','2') THEN DO; MM2=22002; CG=18040; RETURN; END; IF 1987 LE MY LE 1989 AND V45='BL' AND V6='8' AND V1 IN ('1','2') THEN DO; MM2=22002; CG=18040; RETURN; END; IF MY=1981 AND V5 IN ('L','M') AND V=68 AND V1='1' THEN DO; MM2=22013; CG=18043; RETURN; END; IF 1982 LE MY LE 1984 AND V5='L' AND V=68 AND V1='1' THEN DO; MM2=22013; CG=18043; RETURN; END; IF 1985 LE MY LE 1986 AND V45='TL' AND V=68 AND V1='1' THEN DO; MM2=22013; CG=18043; RETURN; END; IF MY=1987 AND V45='TL' AND V6='6' AND V1='1' THEN DO; MM2=22013; CG=18043; RETURN; END; IF MY=1981 AND V5 IN ('D','F') AND V1 IN ('1','2') AND V IN (27,35,69) THEN DO; MM2=22001; CG=18044; RETURN; END; IF 1982 LE MY LE 1983 AND V5 IN ('N','R') AND V IN (35,69) AND V1 IN ('1','2') THEN DO; MM2=22002; CG=18044; RETURN; END; IF MY=1984 AND V5 IN ('N','R','S') AND V=69 AND V1 IN ('1','2') THEN DO; MM2=22002; CG=18044; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('GN','GR','GS') AND V=69 AND V1 IN ('1','2') THEN DO; MM2=22002; CG=18044; RETURN; END; IF 1981 LE MY LE 1984 AND V5 IN ('J','K','P') AND V1 IN ('1','2') AND V=37 THEN DO; MM2=22010; CG=18045; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('GJ','GK','GP') AND V=37 AND V1 IN ('1','2') THEN DO; MM2=22010; CG=18045; RETURN; END; IF MY=1987 AND V45 IN ('GJ','GK','GP') AND V6='1' AND V1 IN ('1','2') THEN DO; MM2=22010; CG=18045; RETURN; END; IF 1981 LE MY LE 1984 AND V5 IN ('T','Y','Z') AND V IN (37,68) AND V1 IN ('1','2') THEN DO; MM2=22015; CG=18047; RETURN; END; IF 1982 LE MY LE 1984 AND V5 IN ('B','C','D') AND V1='1' AND V IN (27,35,67,69,77) THEN DO; MM2=22016; CG=18048; RETURN; END; IF MY=1982 AND V5='E' AND V1='1' AND V IN (27,35,67,69,77) THEN DO; MM2=22016; CG=18048; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('JB','JC','JD','JU') AND V1='1' AND V IN (27,35,67,69,77) THEN DO; MM2=22016; CG=18048; RETURN; END; IF MY=1987 AND V45 IN ('JB','JC','JD','JU') AND V1='1' AND V6 IN ('1','2','3','5','8') THEN DO; MM2=22016; CG=18048; RETURN; END; IF 1988 LE MY LE 1993 AND V45 IN ('JB','JC','JD','JU') AND V1='1' AND V6 IN ('1','3','5','8') THEN DO; MM2=22016; CG=18048; RETURN; END; IF MY=1994 AND V45 IN ('JB','JL') AND V1='1' AND V6 IN ('1','3','5','8') THEN DO; MM2=22016; CG=18048; RETURN; END; IF 1982 LE MY LE 1984 AND V5 IN ('S','W','X') AND V1='1' AND V=87 THEN DO; MM2=22009; CG=18049; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('FS','FV','FW','FX') AND V1='1' AND V=87 THEN DO; MM2=22009; CG=18049; RETURN; END; IF 1987 LE MY LE 1992 AND V45 IN ('FS','FV','FW','FX') AND V1='1' AND V6 IN ('2','3') THEN DO; MM2=22009; CG=18049; RETURN; END; IF MY=1993 AND V45 IN ('FS','FV','FW','FX') AND V1='2' AND V6='2' THEN DO; MM2=22009; CG=18049; RETURN; END; IF 1994 LE MY LE 2002 AND V45 IN ('FS','FV') AND V1='2' AND V6 IN ('2','3') THEN DO; MM2=22009; CG=18049; RETURN; END; IF 1982 LE MY LE 1984 AND V5 IN ('F','G','H') AND V IN (19,27,35) AND V1 IN ('1','2') THEN DO; MM2=22017; CG=18050; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('AE','AF','AG','AH','AJ') AND V1 IN ('1','2') AND V IN (19,27,35) THEN DO; MM2=22017; CG=18050; RETURN; END; IF 1987 LE MY LE 1991 AND V45 IN ('AE','AF','AG','AH','AJ') AND V1 IN ('1','2') AND V6 IN ('1','5','8') THEN DO; MM2=22017; CG=18050; RETURN; END; IF 1987 LE MY LE 1999 AND V45 IN ('HE','HX','HY','HZ') AND V1='1' AND V6='5' THEN DO; MM2=22002; CG=18052; RETURN; END; IF MY=1984 AND V5 IN ('E','F','M') AND V=37 AND V1='1' THEN DO; MM2=22005; CG=18053; RETURN; END; IF 1985 LE MY LE 1986 AND V45 IN ('PE','PF','PG','PM') AND V1='1' AND V IN (37,97) THEN DO; MM2=22005; CG=18053; RETURN; END; IF 1987 LE MY LE 1988 AND V45 IN ('PE','PF','PG','PM') AND V1='1' AND V6='1' THEN DO; MM2=22005; CG=18053; RETURN; END; IF MY=1985 AND V45 IN ('NE','NG','NV','NW') AND V1='1' AND V=27 THEN DO; MM2=22018; CG=18054; RETURN; END; IF MY=1986 AND V45 IN ('NE','NG','NV','NW') AND V1='1' AND V IN (27,69) THEN DO; MM2=22018; CG=18054; RETURN; END; IF 1987 LE MY LE 1991 AND V45 IN ('NE','NG','NV','NW') AND V1='1' AND V6 IN ('1','5') THEN DO; MM2=22018; CG=18054; RETURN; END; IF 1992 LE MY LE 1998 AND V45 IN ('NE','NW') AND V1='1' AND V6 IN ('1','5') THEN DO; MM2=22018; CG=18054; RETURN; END; IF 1988 LE MY LE 1989 AND V45 IN ('WH','WJ','WK','WP','WT') AND V1='1' AND V6='1' THEN DO; MM2=22020; CG=18059; RETURN; END; IF 1990 LE MY LE 1996 AND V45 IN ('WH','WJ','WK','WP','WT') AND V1='1' AND V6 IN ('1','5') THEN DO; MM2=22020; CG=18059; RETURN; END; IF 1994 LE MY LE 1996 AND V45='WM' AND V1='1' AND V6 IN ('1','5') THEN DO; MM2=22020; CG=18059; RETURN; END; IF 1995 LE MY LE 2003 AND V45 IN ('JB','JD') AND V1 IN ('1','3','4') THEN DO; MM2=22016; CG=18066; RETURN; END; IF 2004 LE MY LE 2005 AND V45='JB' AND V1 IN ('1','3','4') THEN DO; MM2=22016; CG=18066; RETURN; END; /* SUNFIRE ends 2005 */ IF 2000 LE MY LE 2005 AND V45 IN ('HX','HY','HZ') THEN DO; MM2=22002; CG=18067; RETURN; END; /* BONNEVILLE ends 2005 */ IF 1999 LE MY LE 2004 AND V45 IN ('NE','NF','NG','NV','NW') THEN DO; MM2=22018; CG=18068; RETURN; END; IF MY=2005 AND V45 IN ('NE','NV','NW') THEN DO; MM2=22018; CG=18068; RETURN; END; /* GRAND AM ends 2005 */ IF 1997 LE MY LE 1998 AND V45 IN ('WP','WJ') AND V6 IN ('1','5') THEN DO; MM2=22020; CG=18069; RETURN; END; IF MY=1999 AND V45 IN ('WJ','WP','WR') THEN DO; MM2=22020; CG=18069; RETURN; END; IF MY=2000 AND V45 IN ('WJ','WK','WP','WR') THEN DO; MM2=22020; CG=18069; RETURN; END; IF 2001 LE MY LE 2003 AND V45 IN ('WK','WP','WR') THEN DO; MM2=22020; CG=18069; RETURN; END; IF MY=2004 AND V45 IN ('WP','WR','WS') THEN DO; MM2=22020; CG=18069; RETURN; END; IF MY=2005 AND V45 IN ('WC','WP','WR','WS') THEN DO; MM2=22020; CG=18069; RETURN; END; IF 2006 LE MY LE 2008 AND V45 IN ('WC','WP','WR') THEN DO; MM2=22020; CG=18069; RETURN; END; /* GRAND PRIX ends 2008 */ IF MY=2005 AND V45 IN ('ZG','ZH') THEN DO; MM2=22022; CG=18079; RETURN; END; IF 2006 LE MY LE 2008 AND V45 IN ('ZF','ZG','ZH','ZM') THEN DO; MM2=22022; CG=18079; RETURN; END; IF MY=2009 AND V45 IN ('ZG','ZH','ZJ','ZK','ZL','ZM') THEN DO; MM2=22022; CG=18079; RETURN; END; IF MY=2010 AND V45 IN ('ZA','ZB','ZC') THEN DO; MM2=22022; CG=18079; RETURN; END; /* G6 ends 2010 */ IF MY IN (2007,2008) AND V45 IN ('AJ','AL','AN') THEN DO; MM2=22019; CG=18080; RETURN; END; IF MY=2009 AND V45 IN ('AJ','AL','AN','AR','AS','AT') THEN DO; MM2=22019; CG=18080; RETURN; END; /* G5 ends 2009 */ IF MY=2006 AND V45 IN ('MB') THEN DO; MM2=22023; CG=18083; RETURN; END; IF MY=2007 AND V45 IN ('MB','MG') THEN DO; MM2=22023; CG=18083; RETURN; END; IF MY=2008 AND V45 IN ('MB','MC','MF','MG','MK','MS','MT') THEN DO; MM2=22023; CG=18083; RETURN; END; IF MY=2009 AND V45 IN ('MB','MC','MF','MG','MK','MN','MT','MZ') THEN DO; MM2=22023; CG=18083; RETURN; END; /* SOLSTICE ends 2009 */ IF 2004 LE MY LE 2006 AND V45='VX' AND V1='6' THEN DO; MM2=22008; CG=25001; RETURN; END; /* GTO ends 2006 */ IF MY=2008 AND V45 IN ('EC','ER') AND V1='6' THEN DO; MM2=22024; CG=25002; RETURN; END; IF MY=2009 AND V45 IN ('EC','EP','ER') AND V1='6' THEN DO; MM2=22024; CG=25002; RETURN; END; /* G8 ends 2009 */ IF 2003 LE MY LE 2006 AND V1='5' AND V45 IN ('SL','SM','SN') THEN DO; MM2=22032; CG=49046; RETURN; END; IF MY IN (2007,2008) AND V1='5' AND V45 = 'SL' THEN DO; MM2=22032; CG=49046; RETURN; END; IF 2009 LE MY LE 2010 AND V1='5' AND V45 IN ('SL','SM','SN','SP','SR') THEN DO; MM2=22032; CG=49046; RETURN; END; /* VIBE ends 2010 */ IF MY=2009 AND V45 IN ('TD') AND V13 IN ('KL2','3G2') THEN DO; MM2=22025; CG=53005; RETURN; END; /* G3 2009 only */ IF 1988 LE MY LE 1993 AND V1='K' AND V45 IN ('TN','TR','TS','TX') AND V6 IN ('2','5') THEN DO; MM2=22031; CG=64001; RETURN; END; MM2=99999; CG=99999; RETURN; CANPONT: IF MY=1983 AND V5 IN ('L','T') AND V IN (37,69) THEN DO; MM2=22002; CG=18039; RETURN; END; IF MY=1983 AND V5 IN ('L','T') AND V=35 THEN DO; MM2=22002; CG=18040; RETURN; END; MM2=99999; CG=99999; RETURN; SATURN: V4=TRANSLATE(V4,'ZSGB','2568'); /* SATURN last year is 2009 */ V5=TRANSLATE(V5,'ZSGB','2568'); V45=V4||V5; V6=TRANSLATE(V6,'2568','ZSGB'); IF MY LE 2009 THEN DO; V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); END; ELSE V7=TRANSLATE(V7,'ZSGB','2568'); IF 1991 LE MY LE 1996 AND V4='Z' AND V6='1' THEN DO; MM2=24002; CG=18061; RETURN; END; IF 1991 LE MY LE 2006 AND V4='Z' AND V6='5' THEN DO; MM2=24001; CG=18062; RETURN; END; IF 1993 LE MY LE 2001 AND V4='Z' AND V6='8' THEN DO; MM2=24003; CG=18062; RETURN; END; IF 1997 LE MY LE 2002 AND V4='Z' AND V6='1' THEN DO; MM2=24002; CG=18062; RETURN; END; /* GM EV1 ELECTRIC VEHICLE LISTED WITH SATURN */ IF MY IN (1997,1999) AND V4='P' AND V5='X' AND V1='4' THEN DO; MM2=24004; CG=18070; RETURN; END; IF 2000 LE MY LE 2002 AND V45 IN ('JR','JS','JT','JU','JW') AND V6='5' THEN DO; MM2=24005; CG=18073; RETURN; END; IF MY=2003 AND V45 IN ('JT','JU','JW') AND V6='5' THEN DO; MM2=24005; CG=18073; RETURN; END; IF 2004 LE MY LE 2005 AND V45 IN ('JC','JD','JL') AND V6='5' THEN DO; MM2=24005; CG=18073; RETURN; END; /* LS SEDAN ends 2005 */ IF MY=2000 AND V45 IN ('JU','JW') AND V6='8' THEN DO; MM2=24006; CG=18073; RETURN; END; IF 2001 LE MY LE 2003 AND V45 IN ('JT','JU','JW') AND V6='8' THEN DO; MM2=24006; CG=18073; RETURN; END; IF MY=2004 AND V45 IN ('JC','JD','JL') AND V6='8' THEN DO; MM2=24006; CG=18073; RETURN; END; /* LS WAGON ends 2004 */ IF MY=2003 AND V4='A' AND V5 IN ('F','G','J','K','L','M','N','V','W','Z') THEN DO; MM2=24007; CG=18076; RETURN; END; IF MY=2004 AND V4='A' AND V5 IN ('F','G','J','K','L','M','N','V','W','Y','Z') THEN DO; MM2=24007; CG=18076; RETURN; END; IF MY=2005 AND V4='A' AND V5 IN ('F','G','H','J','K','L','M','N','V','T','U','W','X','Y','Z') THEN DO; MM2=24007; CG=18076; RETURN; END; IF MY=2006 AND V4='A' AND V5 IN ('J','K','L','M','N','V','T','U','W','X','Y','Z') THEN DO; MM2=24007; CG=18076; RETURN; END; IF MY=2007 AND V4='A' AND V5 IN ('J','K','L','M','N','V','W','X','Y','Z') THEN DO; MM2=24007; CG=18076; RETURN; END; /* ION ends 2007 */ IF MY IN (2007,2008) AND V4='Z' AND V5 IN ('R','S','V') THEN DO; MM2=24009; CG=18079; RETURN; END; IF MY=2009 AND V4='Z' AND V5 IN ('R','S','V','X') THEN DO; MM2=24009; CG=18079; RETURN; END; /* AURA ends 2009 */ IF MY=2007 AND V4='M' AND V5 IN ('G','B') THEN DO; MM2=24008; CG=18083; RETURN; END; IF MY=2008 AND V4='M' AND V5 IN ('B','C','F','G','J') THEN DO; MM2=24008; CG=18083; RETURN; END; IF MY=2009 AND V4='M' AND V5 IN ('B','C','D','G','H','L','N','P','R','T','V','X') THEN DO; MM2=24008; CG=18083; RETURN; END; /* SKY ends 2009 */ IF 2008 LE MY LE 2009 AND V45 IN ('AR','AT') AND V1='W' AND V2='0' THEN DO; MM2=24011; CG=28003; RETURN; END; /* ASTRA ends 2009 */ MM2=99999; CG=99999; RETURN; RUN;