OPTION NOCENTER NOFMTERR OBS=5000000 LS=160 PAGESIZE=89; /* 03CarImp2011.SAS VIN ANALYSIS FOR 1981-2011 IMPORTED PASSENGER CARS */ /* UPDATED: 12/30/2013 */ DATA IMPCAR2(DROP=V V78 V45 V46 V56 V67 V47 V13); SET IMPCAR1; IF 30 LE MAK2 LE 65; IF MAK2=30 THEN GOTO VW; IF MAK2=32 THEN GOTO AUDI; IF MAK2=33 THEN GOTO MINCOOPR; IF MAK2=34 THEN GOTO BMW; IF MAK2=35 THEN GOTO NISSAN; IF MAK2=36 THEN GOTO FIAT; IF MAK2=37 THEN GOTO HONDA; IF MAK2=38 THEN GOTO ISUZU; IF MAK2=39 THEN GOTO JAGUAR; IF MAK2=41 THEN GOTO MAZDA; IF MAK2=42 THEN GOTO MEBE; IF MAK2=44 THEN GOTO PEUGEOT; IF MAK2=45 THEN GOTO PORSCHE; IF MAK2=46 THEN GOTO RENAULT; IF MAK2=47 THEN GOTO SAAB; IF MAK2=48 THEN GOTO SUBARU; IF MAK2=49 THEN GOTO TOYOTA; IF MAK2=51 THEN GOTO VOLVO; IF MAK2=52 THEN GOTO MITS; IF MAK2=53 THEN GOTO SUZUKI; IF MAK2=54 THEN GOTO ACURA; IF MAK2=55 THEN GOTO HYUNDAI; IF MAK2=56 THEN GOTO MERKUR; IF MAK2=57 THEN GOTO YUGO; IF MAK2=58 THEN GOTO INFINITI; IF MAK2=59 THEN GOTO LEXUS; IF MAK2=60 THEN GOTO DAIHATSU; IF MAK2=61 THEN GOTO STERLING; IF MAK2=63 THEN GOTO KIA; IF MAK2=64 THEN GOTO DAEWOO; IF MAK2=65 THEN GOTO SMART; CG=99999; MM2=99999; RETURN; VW: IF MY LE 2010 THEN V4=TRANSLATE(V4,'ZSGB','2568'); IF MY LE 2009 THEN V7=TRANSLATE(V7,'2568','ZSGB'); ELSE V7=TRANSLATE(V7,'ZSGB','2568'); IF V6='O' THEN V6='0'; V78=V7||V8; IF MY=1981 AND V78 IN ('32','33') AND V1='W' THEN DO; MM2=30037; CG=30003; RETURN; END; IF 1981 LE MY LE 1984 AND V78 IN ('15','17') THEN DO; MM2=30036; CG=30004; RETURN; END; IF 1981 LE MY LE 1988 AND V78='53' AND V4='C' AND V1='W' THEN DO; MM2=30038; CG=30004; RETURN; END; IF 1981 LE MY LE 1984 AND V78='16' AND (V4='C' OR V4='G') AND V1 IN ('1','W') THEN DO; MM2=30040; CG=30004; RETURN; END; IF 1985 LE MY LE 1993 AND V78='15' AND V1='W' AND V4 IN ('A','B','C','D','E') THEN DO; MM2=30042; CG=30004; RETURN; END; IF 1982 LE MY LE 1988 AND V78 IN ('32','33') AND V1='W' AND V4 IN ('C','F','G','H') THEN DO; MM2=30041; CG=30005; RETURN; END; IF MY=1989 AND V78 IN ('16','1G') AND V4 IN ('A','B','D','F') AND V1 IN ('1','W','3') THEN DO; MM2=30042; CG=30006; RETURN; END; IF 1985 LE MY LE 1988 AND V78 IN ('16','1G') AND V1='W' AND V4 IN ('A','C','E','F','G','H') THEN DO; MM2=30040; CG=30006; RETURN; END; IF 1987 LE MY LE 1988 AND V78 IN ('16','1G') AND V1='1' AND V4 IN ('A','C','E','F','G','H') THEN DO; MM2=30040; CG=30006; RETURN; END; IF 1989 LE MY LE 1992 AND V4 IN ('K','M','P','R','S','T') AND V78 IN ('16','1G') AND V1 IN ('W','3') THEN DO; MM2=30040; CG=30006; RETURN; END; IF MY=1992 AND V4 IN ('M','R','S','T') AND V78='1H' AND V1 IN ('W','3') THEN DO; MM2=30040; CG=30006; RETURN; END; IF 1993 LE MY LE 1997 AND V4 IN ('P','R','S','T','V','W') AND V78='1H' AND V1 IN ('W','3') THEN DO; MM2=30040; CG=30006; RETURN; END; IF MY=1997 AND V4='X' AND V78='1H' AND V1 IN ('W','3') THEN DO; MM2=30040; CG=30006; RETURN; END; IF MY=1998 AND V4 IN ('P','R','S','T','V','W','Y') AND V78='1H' AND V1 IN ('W','3') THEN DO; MM2=30040; CG=30006; RETURN; END; /* POLK DOES NOT DISTINGUISH OLD AND NEW 1999 JETTA, GOLF */ /* THIS AFFECTS MM2=30040,30042 AND CG=30006,30010 IN MY 1999 */ IF MY=1999 AND V4 IN ('P','R','S','T','V','W','Y') AND V78='1H' AND V1 IN ('W','3') THEN DO; MM2=30040; CG=30006; CGP=30098; RETURN; END; IF 1985 LE MY LE 1989 AND V78='17' AND V1 IN ('W','1') AND V4 IN ('A','B','C','D','E','F','G') THEN DO; MM2=30042; CG=30006; RETURN; END; IF MY=1989 AND V78='17' AND V1='3' AND V4 IN ('A','B','C','D','E','F','G') THEN DO; MM2=30042; CG=30006; RETURN; END; IF 1990 LE MY LE 1992 AND V4 IN ('B','D','F','H') AND V78 IN ('16','1G') AND V1 IN ('W','3') THEN DO; MM2=30042; CG=30006; RETURN; END; IF MY=1992 AND V4 IN ('B','D','F','H') AND V78='1H' AND V1 IN ('W','3') THEN DO; MM2=30042; CG=30006; RETURN; END; IF 1993 LE MY LE 1994 AND V4 IN ('B','D','F') AND V1 IN ('W','3') AND V78='1H' THEN DO; MM2=30042; CG=30006; RETURN; END; IF MY=1995 AND V4 IN ('B','F','K','H','L','J') AND V78='1H' AND V1 IN ('W','3') THEN DO; MM2=30042; CG=30006; RETURN; END; IF MY=1996 AND V4 IN ('B','D','F','H') AND V78='1H' AND V1 IN ('W','3') THEN DO; MM2=30042; CG=30006; RETURN; END; IF MY=1997 AND V4 IN ('B','D','F','H','K') AND V78='1H' AND V1 IN ('W','3') THEN DO; MM2=30042; CG=30006; RETURN; END; IF MY=1998 AND V4 IN ('C','D','F','G','H','J','K') AND V78='1H' AND V1='3' THEN DO; MM2=30042; CG=30006; RETURN; END; IF MY=1999 AND V4 IN ('C','D','F','G','H','J','K') AND V78='1H' AND V1='3' THEN DO; MM2=30042; CG=30006; CGP=30098; RETURN; END; IF 1995 LE MY LE 1999 AND V4 IN ('A','B','C','D') AND V78='1E' THEN DO; MM2=30043; CG=30006; RETURN; END; IF 2000 LE MY LE 2002 AND V78='1V' THEN DO; MM2=30043; CG=30006; RETURN; END; IF 1990 LE MY LE 1993 AND V78='50' AND V4 IN ('D','E') AND V1='W' THEN DO; MM2=30045; CG=30006; RETURN; END; IF MY=1994 AND V78='60' AND V4='E' AND V1='W' THEN DO; MM2=30045; CG=30006; RETURN; END; IF 1987 LE MY LE 1993 AND V78 IN ('03','30') AND V1 IN ('9','W') AND V4 IN ('B','C','D','G') THEN DO; MM2=30044; CG=30007; RETURN; END; IF 1990 LE MY LE 1994 AND V78='31' AND V1='W' AND V4 IN ('E','F','G','H','J','N') THEN DO; MM2=30046; CG=30008; RETURN; END; IF 1995 LE MY LE 1997 AND V78='3A' AND V1='W' THEN DO; MM2=30046; CG=30008; RETURN; END; IF MY=1998 AND V78 IN('3A','3B') AND V1='W' AND V4 IN ('M','N','P','T') THEN DO; MM2=30046; CG=30009; RETURN; END; IF 1999 LE MY LE 2005 AND V78='3B' THEN DO; MM2=30046; CG=30009; RETURN; END; IF MY=1999 AND V78='9M' AND V4 IN ('P','R','S','T','V') THEN DO; MM2=30040; CG=30010; CGP=30098; RETURN; END; IF 2000 LE MY LE 2003 AND V78='9M' AND V4 IN ('P','R','S','T','V') THEN DO; MM2=30040; CG=30010; RETURN; END; IF 2004 LE MY LE 2005 AND V78='9M' AND V4 IN ('R','S','T','V') THEN DO; MM2=30040; CG=30010; RETURN; END; IF 2001 LE MY LE 2005 AND V78='1J' AND V4 IN ('R','S','T') THEN DO; MM2=30040; CG=30010; RETURN; END; IF MY=1999 AND V78='1J' THEN DO; MM2=30042; CG=30010; CGP=30098; RETURN; END; IF MY=2000 AND V78='1J' THEN DO; MM2=30042; CG=30010; RETURN; END; IF 2001 LE MY LE 2002 AND V78='1J' AND V4 IN ('B','D','F','G','P') THEN DO; MM2=30042; CG=30010; RETURN; END; IF 2003 LE MY LE 2005 AND V78='1J' AND V4 IN ('B','D','F','G','K','P') THEN DO; MM2=30042; CG=30010; RETURN; END; IF MY = 2006 AND V78='1J' THEN DO; MM2=30042; CG=30010; RETURN; END; /* GOLF/GTI */ IF 1998 LE MY LE 2009 AND V78='1C' AND V1='3' THEN DO; MM2=30047; CG=30010; RETURN; END; IF MY GE 2010 AND V78='AG' AND V1='3' THEN DO; MM2=30047; CG=30010; RETURN; END; /* NEW BEETLE 2HB */ IF 2003 LE MY LE 2009 AND V78='1Y' THEN DO; MM2=30047; CG=30010; RETURN; END; IF MY GE 2010 AND V78='AL' THEN DO; MM2=30047; CG=30010; RETURN; END; /* NEW BEETLE 2CV */ IF 2004 LE MY LE 2006 AND V78='3D' THEN DO; MM2=30048; CG=30011; RETURN; END; /* PHAETON ends 2006 */ IF 2006 LE MY LE 2009 AND V78='1K' AND V1='W' AND V4 IN ('A','B','C','D') THEN DO; MM2=30036; CG=30012; RETURN; END; /* RABBIT ends 2009 (renamed GOLF in 2010) */ IF MY=2005 AND V78='1K' THEN DO; MM2=30040; CG=30012; RETURN; END; IF 2006 LE MY LE 2009 AND V78='1K' AND V1='3' THEN DO; MM2=30040; CG=30012; RETURN; END; IF MY=2010 AND V78='AJ' AND V1='3' THEN DO; MM2=30040; CG=30012; RETURN; END; /* JETTA (sedan remodeled 2011) */ IF MY GE 2011 AND V78='AJ' AND V1='3' AND V4 IN ('K','M','P','T') THEN DO; MM2=30040; CG=30012; RETURN; END; /* JETTA SPORTWAGON only */ IF MY=2006 AND V78='1K' AND V1='W' AND V4 IN ('E','F') THEN DO; MM2=30042; CG=30012; RETURN; END; IF 2007 LE MY LE 2009 AND V78='1K' AND V1='W' AND V4 IN ('E','F','G','H') THEN DO; MM2=30042; CG=30012; RETURN; END; /* GTI only */ IF MY=2008 AND V78='1K' AND V1='W' AND V4='K' THEN DO; MM2=30042; CG=30012; RETURN; END; /* R32 (similar to GTI) */ IF MY GE 2010 AND V78='AJ' AND V1='W' THEN DO; MM2=30042; CG=30012; RETURN; END; /* GOLF & GTI */ IF 2007 LE MY LE 2009 AND V78='1F' THEN DO; MM2=30051; CG=30012; RETURN; END; IF MY GE 2010 AND V78='AH' THEN DO; MM2=30051; CG=30012; RETURN; END; /* EOS */ IF 2006 LE MY LE 2009 AND V78='3C' THEN DO; MM2=30046; CG=30013; RETURN; END; IF MY GE 2010 AND V78='AN' THEN DO; MM2=30046; CG=30013; RETURN; END; /* PASSAT/CC */ IF MY GE 2011 AND V78='AJ' AND V1='3' AND V4 IN ('B','D','G','L','1','2','3') THEN DO; MM2=30040; CG=30014; RETURN; END; /* JETTA SEDAN only */ CG=99999; MM2=99999; RETURN; AUDI: IF MY LE 2009 THEN V7=TRANSLATE(V7,'2568','ZSGB'); ELSE V7=TRANSLATE(V7,'ZSGB','2568'); IF V6='O' THEN V6='0'; V78=V7||V8; IF 1981 LE MY LE 1983 AND V78='43' AND V4 IN ('F','G','H') THEN DO; MM2=32035; CG=32003; RETURN; END; IF 1981 LE MY LE 1987 AND V78 IN ('81','85') AND V4 IN ('B','D','F') THEN DO; MM2=32034; CG=32004; RETURN; END; IF 1984 LE MY LE 1988 AND V78='44' AND V4 IN ('D','F','G','H') THEN DO; MM2=32035; CG=32005; RETURN; END; IF 1989 LE MY LE 1990 AND V78='44' THEN DO; MM2=32037; CG=32005; RETURN; END; IF 1991 LE MY LE 1994 AND V7='4' THEN DO; MM2=32037; CG=32005; RETURN; END; IF 1995 LE MY LE 1997 AND V78='4A' AND V4 IN ('F','G','H','J') THEN DO; MM2=32042; CG=32005; RETURN; END; IF MY=1998 AND V78='4A' AND V4='J' THEN DO; MM2=32042; CG=32005; RETURN; END; IF MY=1995 AND V78='4A' AND V4='K' THEN DO; MM2=32042; CG=32005; RETURN; END; IF MY=1988 AND V78='89' AND V4 IN ('E','F','G','H') THEN DO; MM2=32036; CG=32006; RETURN; END; IF 1989 LE MY LE 1992 AND V7='8' AND V4 IN ('E','F','G','H') THEN DO; MM2=32036; CG=32006; RETURN; END; IF 1993 LE MY LE 1995 AND V78='8C' THEN DO; MM2=32036; CG=32007; RETURN; END; IF MY=2000 AND V78='8D' AND V4='D' AND V5='D' THEN DO; MM2=32040; CG=32007; RETURN; END; IF 2001 LE MY LE 2002 AND V78='8D' AND V4 IN ('R','X') THEN DO; MM2=32040; CG=32007; RETURN; END; IF 1996 LE MY LE 1999 AND V78='8D' THEN DO; MM2=32043; CG=32007; RETURN; END; IF 2000 LE MY LE 2001 AND V78='8D' AND V4 IN ('A','D','H','K') AND V5 IN ('C','H') THEN DO; MM2=32043; CG=32007; RETURN; END; IF 1994 LE MY LE 1998 AND V78='8G' THEN DO; MM2=32041; CG=32008; RETURN; END; IF 1997 LE MY LE 2000 AND V78='4D' THEN DO; MM2=32044; CG=32009; RETURN; END; IF 2001 LE MY LE 2003 AND V78='4D' AND V4='F' THEN DO; MM2=32044; CG=32009; RETURN; END; IF 2001 LE MY LE 2003 AND V78='4D' AND V4='G' THEN DO; MM2=32046; CG=32009; RETURN; END; /* ---------------------------------------------------------- */ /* MY=2002 AND V78='4B' AND V4='M' COULD BE EITHER A6 OR S6 */ /* ---------------------------------------------------------- */ IF MY=2002 AND V78='4B' AND V4='M' THEN DO; MM2=32030; CG=32010; RETURN; END; IF 2002 LE MY LE 2003 AND V78='4B' AND V4='X' THEN DO; MM2=32040; CG=32010; RETURN; END; IF MY=1998 AND V78='4B' AND V4 IN ('A','B') THEN DO; MM2=32042; CG=32010; RETURN; END; IF 1999 LE MY LE 2000 AND V78='4B' THEN DO; MM2=32042; CG=32010; RETURN; END; IF MY=2001 AND V78='4B' AND V4 IN ('B','E','L','Z') THEN DO; MM2=32042; CG=32010; RETURN; END; IF MY=2002 AND V78='4B' AND V4 IN ('J','L','V','W') THEN DO; MM2=32042; CG=32010; RETURN; END; IF MY=2003 AND V78='4B' AND V4 IN ('J','L','M','P','V') THEN DO; MM2=32042; CG=32010; RETURN; END; IF MY=2004 AND V78='4B' AND V4 IN ('A','C','J','L','M','P','V') THEN DO; MM2=32042; CG=32010; RETURN; END; IF 2000 LE MY LE 2006 AND V78='8N' THEN DO; MM2=32045; CG=32011; RETURN; END; /* TT 95.4 ends 2006 */ IF 2001 LE MY LE 2003 AND V78='4D' AND V4='M' THEN DO; MM2=32044; CG=32012; RETURN; END; IF 2004 LE MY LE 2005 AND V78='8E' AND V4 IN ('P','X') THEN DO; MM2=32040; CG=32013; RETURN; END; IF 2006 LE MY LE 2008 AND V78='8E' AND V4 IN ('G','U') THEN DO; MM2=32040; CG=32013; RETURN; END; /* S4 NOT CV ends 2008 */ IF MY IN (2007,2008) AND V78='8E' AND V4 IN ('R') THEN DO; MM2=32040; CG=32013; RETURN; END; /* RS4 4SD (included with S4) ends 2008 */ IF MY=2008 AND V78='8E' AND V4 IN ('D') AND V5 IN ('U','L') THEN DO; MM2=32040; CG=32013; RETURN; END; /* RS4 4SD (included with S4) ends 2008 */ IF MY=2008 AND V78='8H' AND V4 IN ('Y') THEN DO; MM2=32040; CG=32013; RETURN; END; /* RS4 CV (included with S4) ends 2008 */ IF 2004 LE MY LE 2009 AND V78='8H' AND V4='R' THEN DO; MM2=32040; CG=32013; RETURN; END; /* S4 2CV ends 2009 */ IF 2002 LE MY LE 2003 AND V78='8E' THEN DO; MM2=32043; CG=32013; RETURN; END; IF MY=2003 AND V78='8H' THEN DO; MM2=32043; CG=32013; RETURN; END; IF 2004 LE MY LE 2005 AND V78='8E' AND V4 IN ('A','D','J','L','T','V') THEN DO; MM2=32043; CG=32013; RETURN; END; IF 2006 LE MY LE 2007 AND V78='8E' AND V4 IN ('A','B','D','E','K','S') THEN DO; MM2=32043; CG=32013; RETURN; END; IF MY=2008 AND V78='8E' AND V4 IN ('A','B','E','K','S') THEN DO; MM2=32043; CG=32013; RETURN; END; /* A4 104.3 NOT CV ends 2008 */ IF MY=2008 AND V78='8E' AND V4='D' AND V5 IN ('F','H') THEN DO; MM2=32043; CG=32013; RETURN; END; /* A4 104.3 NOT CV ends 2008 */ IF 2004 LE MY LE 2005 AND V78='8H' AND V4 IN ('A','D') THEN DO; MM2=32043; CG=32013; RETURN; END; IF 2006 LE MY LE 2009 AND V78='8H' AND V4 IN ('A','B','D') THEN DO; MM2=32043; CG=32013; RETURN; END; /* A4 104.3 2CV ends 2009 */ IF 2008 LE MY LE 2009 AND V78='42' AND V4='A' THEN DO; MM2=32050; CG=32013; RETURN; END; IF MY GE 2010 AND V78='FG' THEN DO; MM2=32050; CG=32013; RETURN; END; /* R8 */ IF MY=2004 AND V78='4E' THEN DO; MM2=32044; CG=32014; RETURN; END; IF 2005 LE MY LE 2009 AND V78='4E' AND V4='M' THEN DO; MM2=32044; CG=32014; RETURN; END; IF MY=2010 AND V78='FA' AND V4='S' THEN DO; MM2=32044; CG=32014; RETURN; END; /* A8L redesigned 2011 */ IF MY GE 2007 AND V78='4F' AND V4='G' THEN DO; MM2=32040; CG=32015; RETURN; END; IF MY=2007 AND V78='4F' AND V4='G' THEN DO; MM2=32040; CG=32015; RETURN; END; IF 2008 LE MY LE 2009 AND V78='4F' AND V4='D' AND V5='N' THEN DO; MM2=32040; CG=32015; RETURN; END; IF MY GE 2010 AND V78='FB' AND V4='B' THEN DO; MM2=32040; CG=32015; RETURN; END; /* S6 */ IF 2005 LE MY LE 2006 AND V78='4F' THEN DO; MM2=32042; CG=32015; RETURN; END; IF MY=2007 AND V78='4F' AND V4 NE 'G' THEN DO; MM2=32042; CG=32015; RETURN; END; IF 2008 LE MY LE 2009 AND V78='4F' AND V4 NE 'D' THEN DO; MM2=32042; CG=32015; RETURN; END; IF 2008 LE MY LE 2009 AND V78='4F' AND V4='D' AND V5 IN ('H','V') THEN DO; MM2=32042; CG=32015; RETURN; END; IF MY GE 2010 AND V78='FB' AND V4 NE 'B' THEN DO; MM2=32042; CG=32015; RETURN; END; /* A6 */ IF 2005 LE MY LE 2006 AND V78='4E' AND V4='L' THEN DO; MM2=32044; CG=32016; RETURN; END; IF 2007 LE MY LE 2009 AND V78='4E' AND V4='L' THEN DO; MM2=32044; CG=32016; RETURN; END; IF MY=2010 AND V78='FA' AND V4='B' THEN DO; MM2=32044; CG=32016; RETURN; END; /* A8 redesigned 2011 */ IF MY GE 2007 AND V78='4E' AND V4='P' THEN DO; MM2=32046; CG=32016; RETURN; END; /* S8 ends 2009 */ IF 2006 LE MY LE 2009 AND V78='8P' THEN DO; MM2=32048; CG=32017; RETURN; END; IF MY GE 2010 AND V78='FM' THEN DO; MM2=32048; CG=32017; RETURN; END; /* A3 */ IF 2008 LE MY LE 2009 AND V78='8J' THEN DO; MM2=32045; CG=32018; RETURN; END; IF MY GE 2010 AND V78='FK' THEN DO; MM2=32045; CG=32018; RETURN; END; /* TT */ IF 2008 LE MY LE 2009 AND V78='8T' AND V4='D' THEN DO; MM2=32049; CG=32019; RETURN; END; IF MY GE 2010 AND V78 IN ('FH','FR') AND V5 NE 'G' AND V5 NE 'V' THEN DO; MM2=32049; CG=32019; RETURN; END; /* A5 must identify engine (V5) to distinguish from Audi S5 */ IF 2008 LE MY LE 2009 AND V78='8T' AND V4='R' THEN DO; MM2=32052; CG=32019; RETURN; END; IF MY GE 2010 AND V78 IN ('FH','FR') AND V5 IN ('G','V') THEN DO; MM2=32052; CG=32019; RETURN; END; /* S5 */ IF MY=2009 AND V78='8K' THEN DO; MM2=32043; CG=32020; RETURN; END; IF MY GE 2010 AND V78='FL' AND V5='G' THEN DO; MM2=32040; CG=32020; RETURN; END; /* S4 (identified by its engine) */ IF MY GE 2010 AND V78='FL' AND V5 NE 'G' THEN DO; MM2=32043; CG=32020; RETURN; END; /* A4 */ IF MY GE 2011 AND V78='FD' AND V4='A' THEN DO; MM2=32044; CG=32021; RETURN; END; /* A8 */ IF MY GE 2011 AND V78='FD' AND V4='R' THEN DO; MM2=32044; CG=32022; RETURN; END; /* A8L */ CG=99999; MM2=99999; RETURN; MINCOOPR: V4=TRANSLATE(V4,'ZSGB','2568'); V5=TRANSLATE(V5,'ZSGB','2568'); V45=V4||V5; IF 2002 LE MY LE 2004 AND V45 IN ('RC','RE') THEN DO; MM2=33035; CG=34023; RETURN; END; IF 2005 LE MY LE 2006 AND V45 IN ('RC','RE','RF','RH') THEN DO; MM2=33035; CG=34023; RETURN; END; IF 2007 LE MY LE 2008 AND V45 IN ('MF','RF','RH') THEN DO; MM2=33035; CG=34023; RETURN; END; IF 2009 LE MY LE 2010 AND V45 IN ('MF','MR','MS') THEN DO; MM2=33035; CG=34023; RETURN; END; IF MY GE 2011 AND V45 IN ('SU','SV','ZN','ZP') THEN DO; MM2=33035; CG=34023; RETURN; END; /* MINI-COOPER 97.1 */ IF 2008 LE MY LE 2010 AND V45 IN ('ML','MM') THEN DO; MM2=33035; CG=34028; RETURN; END; IF MY GE 2011 AND V45 IN ('ZF','ZG') THEN DO; MM2=33035; CG=34028; RETURN; END; /* MINI-COOPER 100.3 (CLUBMAN) */ CG=99999; MM2=99999; RETURN; BMW: V4=TRANSLATE(V4,'ZSGB','2568'); V5=TRANSLATE(V5,'ZSGB','2568'); V45=V4||V5; IF MY=1981 AND V45='CJ' AND V7 IN ('5','7') THEN DO; MM2=34035; CG=34006; RETURN; END; IF 1982 LE MY LE 1988 AND V45 IN ('DB','DC','DK') AND V7 IN ('3','4') THEN DO; MM2=34035; CG=34006; RETURN; END; IF 1981 LE MY LE 1992 AND V8 NE 'A' AND V7 IN ('3','4') AND V45 IN ('AA','AB','AC','AD','AE','AF','AG','AJ','AK','BA','BB','BE','BF') THEN DO; MM2=34034; CG=34007; RETURN; END; IF MY=1993 AND V45='BB' THEN DO; MM2=34034; CG=34007; RETURN; END; IF 1981 LE MY LE 1983 AND V45 IN ('EB','EC') AND V7 IN ('5','6') THEN DO; MM2=34036; CG=34008; RETURN; END; IF 1983 LE MY LE 1989 AND V45 IN ('EB','EC') AND V7='4' THEN DO; MM2=34036; CG=34008; RETURN; END; IF 1981 LE MY LE 1987 AND V45 IN ('FF','FG','FH') AND V7 IN ('3','4') THEN DO; MM2=34037; CG=34009; RETURN; END; IF 1988 LE MY LE 1992 AND V45='GB' AND V7='3' THEN DO; MM2=34037; CG=34010; RETURN; END; IF 1993 LE MY LE 1994 AND V45='GD' AND V6='4' AND V7='3' THEN DO; MM2=34037; CG=34010; RETURN; END; IF 1988 LE MY LE 1994 AND V45='GC' AND V7='3' THEN DO; MM2=34037; CG=34011; RETURN; END; IF 1993 LE MY LE 1994 AND V45='GD' AND V6='8' AND V7='3' THEN DO; MM2=34037; CG=34011; RETURN; END; IF 1989 LE MY LE 1993 AND V45 IN ('HC','HD','HE','HJ','HK') AND V7='3' THEN DO; MM2=34035; CG=34012; RETURN; END; IF 1994 LE MY LE 1995 AND V45 IN ('HD','HE','HJ','HK') AND V7='3' THEN DO; MM2=34035; CG=34012; RETURN; END; IF 1991 LE MY LE 1997 AND V45 IN ('EF','EG') AND V7='3' THEN DO; MM2=34038; CG=34013; RETURN; END; IF MY=1992 AND V45 IN ('CA','CB') AND V7='3' THEN DO; MM2=34034; CG=34014; RETURN; END; IF MY=1993 AND V45 IN ('CA','CB','BE','BF') AND V7='3' THEN DO; MM2=34034; CG=34014; RETURN; END; IF 1994 LE MY LE 1995 AND V45 IN ('CA','CB','CG','BE','BF','BK','BJ') AND V7='3' THEN DO; MM2=34034; CG=34014; RETURN; END; IF MY=1995 AND V45='CC' AND V7='3' THEN DO; MM2=34034; CG=34014; RETURN; END; IF MY=1996 AND V45 IN ('BE','CD','CG','BH','BK','BG') AND V7='3' THEN DO; MM2=34034; CG=34014; RETURN; END; IF MY=1997 AND V45 IN ('BE','CC','CD','CG','BH','BK','BG') AND V7='3' THEN DO; MM2=34034; CG=34014; RETURN; END; IF MY=1998 AND V45 IN ('BF','BG','BJ','BK','CC','CD','CG') AND V7='3' THEN DO; MM2=34034; CG=34014; RETURN; END; IF MY=1999 AND V45 IN ('BF','BG','BJ','BK','CG') AND V7='3' THEN DO; MM2=34034; CG=34014; RETURN; END; IF MY IN (1995,1997,1998) AND V45='GF' THEN DO; MM2=34037; CG=34015; RETURN; END; IF 1999 LE MY LE 2001 AND V45='GG' THEN DO; MM2=34037; CG=34015; RETURN; END; IF 1995 LE MY LE 1998 AND V45 IN ('GJ','GK') THEN DO; MM2=34037; CG=34016; RETURN; END; IF 1999 LE MY LE 2001 AND V45 IN ('GH','GJ','GK') THEN DO; MM2=34037; CG=34016; RETURN; END; IF 1996 LE MY LE 1997 AND V45 IN ('CH','CJ') THEN DO; MM2=34039; CG=34017; RETURN; END; IF MY=1998 AND V45 IN ('CH','CJ','CK') THEN DO; MM2=34039; CG=34017; RETURN; END; IF 1999 LE MY LE 2000 AND V45 IN ('CH','CJ','CK','CM') THEN DO; MM2=34039; CG=34017; RETURN; END; IF 2001 LE MY LE 2002 AND V45 IN ('CK','CL','CN') THEN DO; MM2=34039; CG=34017; RETURN; END; IF 1997 LE MY LE 1998 AND V45 IN ('DD','DE') THEN DO; MM2=34035; CG=34018; RETURN; END; IF 1999 LE MY LE 2000 AND V45 IN ('DE','DM','DN','DP','DR') THEN DO; MM2=34035; CG=34018; RETURN; END; IF 2001 LE MY LE 2003 AND V45 IN ('DE','DN','DR','DS','DT') THEN DO; MM2=34035; CG=34018; RETURN; END; IF MY=1999 AND V45='AM' THEN DO; MM2=34034; CG=34019; RETURN; END; IF MY=2000 AND V45 IN ('AM','AN','AR','BM','BR') THEN DO; MM2=34034; CG=34019; RETURN; END; IF MY=2001 AND V45 IN ('AN','AV','AW','BL','BN','BR','BS') THEN DO; MM2=34034; CG=34019; RETURN; END; IF 2002 LE MY LE 2003 AND V45 IN ('AX','AZ','BL','BN','BR','BS','EN','EP','ET','EU','EV','EW') THEN DO; MM2=34034; CG=34019; RETURN; END; IF 2004 LE MY LE 2005 AND V45 IN ('AX','AZ','BD','BL','BR','BV','BW','EN','EP','ET','EU','EV','EW') THEN DO; MM2=34034; CG=34019; RETURN; END; IF MY=2006 AND V45 IN ('BD','BL','BR','BV','BW') THEN DO; MM2=34034; CG=34019; RETURN; END; /* 300 2DR ends 2006 */ IF 2000 LE MY LE 2003 AND V45='EJ' THEN DO; MM2=34040; CG=34020; RETURN; END; IF 2002 LE MY LE 2005 AND V45='GL' THEN DO; MM2=34037; CG=34021; RETURN; END; IF 2006 LE MY LE 2008 AND V45='HL' THEN DO; MM2=34037; CG=34021; RETURN; END; /* 750i 117.7 ends 2008 */ IF 2002 LE MY LE 2005 AND V45='GN' THEN DO; MM2=34037; CG=34022; RETURN; END; IF 2006 LE MY LE 2008 AND V45='HN' THEN DO; MM2=34037; CG=34022; RETURN; END; /* 750iL 123.2 ends 2008 */ IF 2003 LE MY LE 2005 AND V45='BT' THEN DO; MM2=34042; CG=34024; RETURN; END; IF MY GE 2006 AND V45 IN ('BT','BU','DU') THEN DO; MM2=34042; CG=34024; RETURN; END; /* Z4 98.2 ends 2008 */ IF 2004 LE MY LE 2005 AND V45 IN ('NA','NB') THEN DO; MM2=34035; CG=34025; RETURN; END; IF 2006 LE MY LE 2007 AND V45 IN ('NB','NE','NF','NN') THEN DO; MM2=34035; CG=34025; RETURN; END; IF 2008 LE MY LE 2010 AND V45 IN ('NB','NU','NV','NW','PT') THEN DO; MM2=34035; CG=34025; RETURN; END; /* 500i remodeled 2011 */ IF 2004 LE MY LE 2007 AND V45 IN ('EH','EK') THEN DO; MM2=34036; CG=34026; RETURN; END; IF 2008 LE MY LE 2010 AND V45 IN ('EA','EB','EH','EK') THEN DO; MM2=34036; CG=34026; RETURN; END; /* 645/650i/M6 ends 2010 */ IF MY=2006 AND V45 IN ('VB','VD','VT') THEN DO; MM2=34034; CG=34027; RETURN; END; IF MY IN (2007,2008) AND V45 IN ('VA','VB','VC','VD','VS','VT') THEN DO; MM2=34034; CG=34027; RETURN; END; IF MY GE 2009 AND V45 IN ('PH','PK','PL','PM','PN','UT','UU') THEN DO; MM2=34034; CG=34027; RETURN; END; /* 300 4DR */ IF MY=2007 AND V45 IN ('WB','WC','WL','WR','WV') THEN DO; MM2=34034; CG=34027; RETURN; END; IF 2008 LE MY LE 2010 AND V45 IN ('WB','WC','WD','WL','WR','WV') THEN DO; MM2=34034; CG=34027; RETURN; END; IF MY GE 2011 AND V45 IN ('DX','DX','KE','KF','KG') THEN DO; MM2=34034; CG=34027; RETURN; END; /* 300 2DR */ IF MY GE 2008 AND V45 IN ('UC','UL','UN','UP') THEN DO; MM2=34043; CG=34029; RETURN; END; /* BMW 100 */ IF MY=2009 AND V45='KA' THEN DO; MM2=34037; CG=34030; RETURN; END; IF MY=2010 AND (V45='KA' OR (V45='KC' AND V6='6')) THEN DO; MM2=34037; CG=34030; RETURN; END; IF MY GE 2011 AND (V45='KA' OR (V45='KX' AND V6='6')) THEN DO; MM2=34037; CG=34030; RETURN; END; /* 750i 120.9 */ IF MY=2009 AND V45='KB' THEN DO; MM2=34037; CG=34031; RETURN; END; IF MY=2010 AND (V45='KB' OR (V45='KC' AND V6='8')) THEN DO; MM2=34037; CG=34031; RETURN; END; IF MY GE 2011 AND (V45='KB' OR (V45='KC' AND V6='8') OR (V45='KX' AND V6='8')) THEN DO; MM2=34037; CG=34031; RETURN; END; /* 750Li 126.4 */ IF MY GE 2009 AND V45='LM' THEN DO; MM2=34042; CG=34032; RETURN; END; /* Z4 98.3 */ IF MY=2010 AND V45 IN ('SN') THEN DO; MM2=34035; CG=34033; RETURN; END; IF MY GE 2011 AND V45 IN ('SN','SP') THEN DO; MM2=34035; CG=34033; RETURN; END; /* 500 GT (120.7 LWB) */ IF MY GE 2011 AND V45 IN ('FR','FU') THEN DO; MM2=34035; CG=34034; RETURN; END; /* 500 116.9 */ CG=99999; MM2=99999; RETURN; NISSAN: V5=TRANSLATE(V5,'ZSGB','2568'); V4=TRANSLATE(V4,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); IF MY LE 2009 THEN V7=TRANSLATE(V7,'2568','ZSGB'); ELSE V7=TRANSLATE(V7,'ZSGB','2568'); IF V8='5' THEN V8='S'; IF 1981 LE MY LE 1982 AND V4 IN ('C','H','P') AND V5='B' AND V6='0' THEN DO; MM2=35033; CG=35006; RETURN; END; IF MY=1981 AND V4='H' AND V5='T' AND V6='0' THEN DO; MM2=35036; CG=35012; RETURN; END; IF 1981 LE MY LE 1982 AND V4 IN ('M','P') AND V5='N' AND V6='0' THEN DO; MM2=35035; CG=35013; RETURN; END; IF 1981 LE MY LE 1983 AND V4 IN ('C','H') AND V5='Z' AND V7='4' AND V6='0' THEN DO; MM2=35034; CG=35014; RETURN; END; IF 1984 LE MY LE 1989 AND V4 IN ('C','H') AND V5='Z' AND V7='4' AND V6='1' THEN DO; MM2=35034; CG=35014; RETURN; END; IF 1981 LE MY LE 1983 AND V4 IN ('C','H') AND V5='Z' AND V7='6' AND V6='0' THEN DO; MM2=35034; CG=35015; RETURN; END; IF 1984 LE MY LE 1989 AND V4 IN ('C','H') AND V5='Z' AND V7='6' AND V6='1' THEN DO; MM2=35034; CG=35015; RETURN; END; IF MY=1981 AND V4='P' AND V5='S' AND V6='0' AND V1='J' THEN DO; MM2=35032; CG=35016; RETURN; END; IF 1982 LE MY LE 1983 AND V4='R' AND V5='S' AND V6='0' AND V1='J' THEN DO; MM2=35032; CG=35016; RETURN; END; IF 1981 LE MY LE 1984 AND V4 IN ('H','S') AND V5='U' AND V6='0' AND V7 IN ('1','5') THEN DO; MM2=35039; CG=35017; RETURN; END; IF MY=1982 AND V4='H' AND V5='B' AND V6='1' AND V7 IN ('1','2','4','5') THEN DO; MM2=35043; CG=35018; RETURN; END; IF 1983 LE MY LE 1986 AND V4 IN ('H','P','S') AND V5='B' AND V6='1' AND V7 IN ('1','2','4','5') THEN DO; MM2=35043; CG=35018; RETURN; END; IF 1982 LE MY LE 1986 AND V5='T' AND V6='1' AND V4='H' THEN DO; MM2=35042; CG=35019; RETURN; END; IF 1983 LE MY LE 1986 AND V4 IN ('C','M') AND V5='N' AND V6='2' THEN DO; MM2=35044; CG=35020; RETURN; END; IF 1984 LE MY LE 1988 AND V5='S' AND V6='2' AND V4 IN ('C','P','V') AND V1='J' THEN DO; MM2=35032; CG=35021; RETURN; END; IF 1985 LE MY LE 1988 AND V5='U' AND V6='1' AND V4='H' AND V7 IN ('1','5') THEN DO; MM2=35039; CG=35022; RETURN; END; IF 1987 LE MY LE 1989 AND V5='T' AND V6='2' AND V4='H' THEN DO; MM2=35042; CG=35022; RETURN; END; IF 1990 LE MY LE 1992 AND V5='U' AND V6='2' AND V4='F' THEN DO; MM2=35042; CG=35022; RETURN; END; IF 1986 LE MY LE 1989 AND V4='H' AND V5='M' AND V6='0' THEN DO; MM2=35042; CG=35023; RETURN; END; IF 1987 LE MY LE 1990 AND V5='B' AND V6='2' AND V4 IN ('G','P') THEN DO; MM2=35043; CG=35024; RETURN; END; IF 1991 LE MY LE 1994 AND V4 IN ('E','G') AND V5='B' AND V7 IN ('1','2') AND V6='3' THEN DO; MM2=35043; CG=35024; RETURN; END; IF 1987 LE MY LE 1990 AND V5='N' AND V6='3' AND V7='4' THEN DO; MM2=35044; CG=35024; RETURN; END; IF 1991 LE MY LE 1993 AND V4 IN ('E','G') AND V5='B' AND V7 IN ('4','6') AND V6='3' THEN DO; MM2=35046; CG=35024; RETURN; END; IF 1989 LE MY LE 1994 AND V4 IN ('E','F','H') AND V5='J' AND V6='0' AND V7='1' THEN DO; MM2=35039; CG=35025; RETURN; END; IF 1989 LE MY LE 1994 AND V5='S' AND V6='3' AND V4 IN ('H','M') AND V1='J' THEN DO; MM2=35032; CG=35026; RETURN; END; IF 1990 LE MY LE 1996 AND V5='Z' AND V7 IN ('4','7') AND V6='2' AND V4 IN ('C','R') THEN DO; MM2=35034; CG=35027; RETURN; END; IF 1990 LE MY LE 1996 AND V5='Z' AND V7='6' AND V6='2' AND V4 IN ('C','R') THEN DO; MM2=35034; CG=35028; RETURN; END; IF 1990 LE MY LE 1991 AND V4='H' AND V5='M' AND V6='1' AND V7='5' THEN DO; MM2=35030; CG=35031; RETURN; END; IF 1993 LE MY LE 1997 AND V5='U' AND V6='3' AND V4='B' AND V7='1' THEN DO; MM2=35047; CG=35032; RETURN; END; IF 1998 LE MY LE 2001 AND V5='L' AND V6='0' AND V4='D' AND V7='1' THEN DO; MM2=35047; CG=35032; RETURN; END; IF 1995 LE MY LE 1999 AND V4='C' AND V5='A' AND V6='2' AND V7='1' THEN DO; MM2=35039; CG=35034; RETURN; END; IF 1995 LE MY LE 1998 AND V4='A' AND V5='S' AND V6='4' AND V1='J' THEN DO; MM2=35032; CG=35035; RETURN; END; IF 1996 LE MY LE 1998 AND V5='B' AND V6='4' AND V7='2' AND V1='1' THEN DO; MM2=35032; CG=35036; RETURN; END; IF MY=1995 AND V5='B' AND V7 IN ('1','2') AND V6='4' THEN DO; MM2=35043; CG=35036; RETURN; END; IF 1996 LE MY LE 1999 AND V5='B' AND V6='4' AND V7='1' THEN DO; MM2=35043; CG=35036; RETURN; END; IF 2000 LE MY LE 2006 AND V5='B' AND V6='5' AND V7='1' THEN DO; MM2=35043; CG=35036; RETURN; END; /* SENTRA 99.8 ends 2006 */ IF 2000 LE MY LE 2001 AND V4='C' AND V5='A' AND V6='3' THEN DO; MM2=35039; CG=35039; RETURN; END; IF 2002 LE MY LE 2003 AND V4='D' AND V5='A' AND V6='3' THEN DO; MM2=35039; CG=35039; RETURN; END; IF 2002 LE MY LE 2006 AND V5='L' AND V6='1' AND V7='1' THEN DO; MM2=35047; CG=35040; RETURN; END; /* ALTIMA 110.2 ends 2006 */ IF 2003 LE MY LE 2009 AND V5='Z' AND V6='3' THEN DO; MM2=35048; CG=35042; RETURN; END; /* 350Z ends 2009 */ IF 2004 LE MY LE 2008 AND V5='A' AND V6='4' THEN DO; MM2=35039; CG=35044; RETURN; END; /* MAXIMA 111.2 ends 2008 */ IF 2007 LE MY LE 2009 AND V5='B' AND V6='6' AND V7='1' THEN DO; MM2=35043; CG=35046; RETURN; END; IF MY GE 2010 AND V5='B' AND V6='6' AND V7='A' THEN DO; MM2=35043; CG=35046; RETURN; END; /* SENTRA 105.7 */ IF 2007 LE MY LE 2009 AND V5='C' AND V6='1' AND V7 IN ('1','3') THEN DO; MM2=35050; CG=35047; RETURN; END; IF MY GE 2010 AND V5='C' AND V6='1' AND V7 IN ('A','C') THEN DO; MM2=35050; CG=35047; RETURN; END; /* VERSA */ IF MY GE 2009 AND V5='A' AND V6='5' THEN DO; MM2=35039; CG=35048; RETURN; END; /* MAXIMA 109.3 */ IF 2007 LE MY LE 2009 AND V5='L' AND V6='2' AND V7='1' THEN DO; MM2=35047; CG=35048; RETURN; END; IF MY GE 2010 AND V5='L' AND V6='2' AND V7='A' THEN DO; MM2=35047; CG=35048; RETURN; END; /* ALTIMA 4SD 109.3 */ IF 2008 LE MY LE 2009 AND V5='L' AND V6='2' AND V7='4' THEN DO; MM2=35047; CG=35049; RETURN; END; IF MY GE 2010 AND V5='L' AND V6='2' AND V7='E' THEN DO; MM2=35047; CG=35049; RETURN; END; /* ALTIMA COUPE 105.3 */ IF MY GE 2009 AND V5='Z' AND V6='4' THEN DO; MM2=35048; CG=35050; RETURN; END; /* 370Z */ IF MY GE 2009 AND V5='R' AND V6='5' THEN DO; MM2=35053; CG=35051; RETURN; END; /* GT-R */ IF MY GE 2011 AND V5='Z' AND V6='0' THEN DO; MM2=35055; CG=35052; RETURN; END; /* LEAF */ CG=99999; MM2=99999; RETURN; FIAT: V4=TRANSLATE(V4,'ZSGB','2568'); V5=TRANSLATE(V5,'S','5'); IF 1981 LE MY LE 1982 AND V4='A' THEN DO; MM2=36032; CG=36002; RETURN; END; IF MY=1983 AND V4='A' THEN DO; MM2=36032; CG=36002; RETURN; END; IF 1981 LE MY LE 1982 AND V4='D' THEN DO; MM2=36037; CG=36004; RETURN; END; IF 1981 LE MY LE 1982 AND V4='B' AND V5='S' THEN DO; MM2=36036; CG=36006; RETURN; END; IF MY=1983 AND V4='B' AND V5='S' THEN DO; MM2=36036; CG=36006; RETURN; END; IF 1981 LE MY LE 1982 AND V4='C' THEN DO; MM2=36033; CG=36007; RETURN; END; CG=99999; MM2=99999; RETURN; HONDA: V4=TRANSLATE(V4,'ZSGB','2568'); V5=TRANSLATE(V5,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); V8=TRANSLATE(V8,'2568','ZSGB'); V45=V4||V5; V46=V45||V6; IF MY=1981 AND V45='SM' AND V7 IN ('3','4') THEN DO; MM2=37032; CG=37004; RETURN; END; IF 1981 LE MY LE 1983 AND ((V45='ST' AND V7='4') OR (V45='WD' AND V7='5') OR (V45='VG' AND V7='5')) THEN DO; MM2=37031; CG=37005; RETURN; END; IF 1981 LE MY LE 1982 AND V45='SN' AND V7='2' THEN DO; MM2=37033; CG=37005; RETURN; END; IF 1981 LE MY LE 1983 AND V45 IN ('SL','SR') AND V7='3' THEN DO; MM2=37031; CG=37006; RETURN; END; IF 1984 LE MY LE 1986 AND V45='AK' AND V7='4' THEN DO; MM2=37031; CG=37007; RETURN; END; IF 1984 LE MY LE 1986 AND V45 IN ('VN','AN','AR') AND V7='5' THEN DO; MM2=37031; CG=37007; RETURN; END; IF MY=1987 AND V46 IN ('EC4','EC5','EC6') THEN DO; MM2=37031; CG=37007; RETURN; END; IF MY=1987 AND V46='EY1' THEN DO; MM2=37031; CG=37007; RETURN; END; IF 1982 LE MY LE 1983 AND V45='SZ' AND V7 IN ('3','4') THEN DO; MM2=37032; CG=37007; RETURN; END; IF MY=1984 AND V45='AD' AND V7 IN ('3','4') THEN DO; MM2=37032; CG=37007; RETURN; END; IF MY=1985 AND V45 IN ('AC','AD') AND V7 IN ('3','4') THEN DO; MM2=37032; CG=37007; RETURN; END; IF 1983 LE MY LE 1986 AND V45 IN ('AB','BB') AND V7='2' AND V1='J' THEN DO; MM2=37033; CG=37007; RETURN; END; IF MY=1987 AND V46 IN ('BA3','BA6') AND V1='J' THEN DO; MM2=37033; CG=37007; RETURN; END; IF 1984 LE MY LE 1986 AND V45 IN ('AE','AF') AND V7='3' THEN DO; MM2=37030; CG=37008; RETURN; END; IF MY=1987 AND V46='EC1' THEN DO; MM2=37030; CG=37008; RETURN; END; IF 1984 LE MY LE 1986 AND V45 IN ('AG','AH') AND V1='J' AND V7='3' THEN DO; MM2=37031; CG=37009; RETURN; END; IF MY=1987 AND V46 IN ('EC2','EC3') THEN DO; MM2=37031; CG=37009; RETURN; END; IF MY=1986 AND V45='BA' AND V7 IN ('3','4') THEN DO; MM2=37032; CG=37010; RETURN; END; IF 1987 LE MY LE 1989 AND V46 IN ('CA5','CA6') THEN DO; MM2=37032; CG=37010; RETURN; END; IF 1988 LE MY LE 1991 AND V46 IN ('ED8','ED9') AND V1='J' THEN DO; MM2=37030; CG=37014; RETURN; END; IF 1988 LE MY LE 1991 AND ((V46='EC5' AND MY=1988) OR (V46='EC6' AND MY=1988) OR V46='ED3' OR (V46='ED4' AND MY GE 1990) OR V46='ED6' OR (V46='ED7' AND MY GE 1989) OR V46='EE2' OR V46='EE4') THEN DO; MM2=37031; CG=37015; RETURN; END; IF MY=1988 AND V46='EY1' THEN DO; MM2=37031; CG=37015; RETURN; END; IF 1988 LE MY LE 1989 AND V46='EY3' THEN DO; MM2=37031; CG=37015; RETURN; END; IF 1988 LE MY LE 1991 AND V46='BA4' AND V1='J' THEN DO; MM2=37033; CG=37016; RETURN; END; IF 1992 LE MY LE 1996 AND V1='J' AND V46 IN ('BA8','BB1','BB2') THEN DO; MM2=37033; CG=37017; RETURN; END; IF 1990 LE MY LE 1993 AND V46 IN ('CB7','CB9') THEN DO; MM2=37032; CG=37018; RETURN; END; IF 1992 LE MY LE 1995 AND V46 IN ('EH2','EH3') AND V1='2' THEN DO; MM2=37031; CG=37022; RETURN; END; IF 1992 LE MY LE 1995 AND V46 IN ('EG8','EH9','EJ1','EJ2') THEN DO; MM2=37031; CG=37023; RETURN; END; IF 1996 LE MY LE 1997 AND V46 IN ('EJ6','EJ7','EJ8') THEN DO; MM2=37031; CG=37023; RETURN; END; IF MY=1998 AND V46 IN ('EJ6','EJ7','EJ8','EN1') THEN DO; MM2=37031; CG=37023; RETURN; END; IF 1999 LE MY LE 2000 AND V46 IN ('EJ6','EJ7','EJ8','EN1','EM1') THEN DO; MM2=37031; CG=37023; RETURN; END; IF 2001 LE MY LE 2005 AND V46 IN ('EM2','EN2','ES1','ES2') THEN DO; MM2=37031; CG=37023; RETURN; END; IF 1993 LE MY LE 1997 AND V1='J' AND V46 IN ('EG1','EG2','EH6') THEN DO; MM2=37030; CG=37025; RETURN; END; IF 1994 LE MY LE 1997 AND V46 IN ('CD5','CD7','CE1','CE6') THEN DO; MM2=37032; CG=37026; RETURN; END; IF 1998 LE MY LE 2002 AND V46 IN ('CF8','CG1','CG5','CG6') THEN DO; MM2=37032; CG=37026; RETURN; END; IF 1997 LE MY LE 2001 AND V46='BB6' THEN DO; MM2=37033; CG=37029; RETURN; END; IF 1998 LE MY LE 2002 AND V46 IN ('CG2','CG3') THEN DO; MM2=37032; CG=37030; RETURN; END; IF 2003 LE MY LE 2007 AND V46 IN ('CM7','CM8') THEN DO; MM2=37032; CG=37030; RETURN; END; /* ACCORD 2DR 105.1 ends 2007 */ IF 1997 LE MY LE 1999 AND V46='ZA1' THEN DO; MM2=37036; CG=37031; RETURN; END; IF 2000 LE MY LE 2003 AND V46='AP1' THEN DO; MM2=37035; CG=37033; RETURN; END; IF 2004 LE MY LE 2009 AND V46='AP2' THEN DO; MM2=37035; CG=37033; RETURN; END; /* S2000 ends 2009 */ IF 2000 LE MY LE 2006 AND V46='ZE1' THEN DO; MM2=37037; CG=37034; RETURN; END; /* INSIGHT 94.5 ends 2006 */ IF 2002 LE MY LE 2005 AND V46='EP3' THEN DO; MM2=37031; CG=37035; RETURN; END; /* CIVIC SI 2HB ends 2005 */ IF 2003 LE MY LE 2007 AND V46 IN ('CM5','CM6') THEN DO; MM2=37032; CG=37036; RETURN; END; /* ACCORD 4DR 107.9 ends 2007 */ IF MY GE 2008 AND V46 IN ('CS1','CS2') THEN DO; MM2=37032; CG=37036; RETURN; END; /* ACCORD 2DR 107.9 */ IF 2003 LE MY LE 2005 AND V46='ES9' THEN DO; MM2=37031; CG=37037; RETURN; END; IF 2005 LE MY LE 2007 AND V46='CN3' THEN DO; MM2=37032; CG=37038; RETURN; END; /* ACCORD HYBRID 107.9 ends 2007 */ IF MY GE 2008 AND V46 IN ('CP2','CP3') THEN DO; MM2=37032; CG=37039; RETURN; END; /* ACCORD 4DR 110.2 */ IF MY GE 2006 AND V46 IN ('FG1','FG2') THEN DO; MM2=37031; CG=37040; RETURN; END; /* CIVIC 2CP */ IF MY=2006 AND V46 IN ('FA1','FA4') THEN DO; MM2=37031; CG=37041; RETURN; END; /* CIVIC 4SD */ IF MY GE 2007 AND V46 IN ('FA1','FA4','FA5') THEN DO; MM2=37031; CG=37041; RETURN; END; /* CIVIC 4SD */ IF MY GE 2006 AND V46='FA3' THEN DO; MM2=37031; CG=37042; RETURN; END; /* CIVIC HYBRID */ IF 2007 LE MY LE 2008 AND V46='GD3' THEN DO; MM2=37039; CG=37043; RETURN; END; /* FIT 96.5 5HB ends 2008 */ IF MY GE 2009 AND V46='GE8' THEN DO; MM2=37039; CG=37044; RETURN; END; /* FIT 98.4 5HB */ IF MY GE 2010 AND V46='ZE2' THEN DO; MM2=37037; CG=37047; RETURN; END; /* INSIGHT 100.4 */ IF MY GE 2011 AND V46='ZF1' THEN DO; MM2=37041; CG=37048; RETURN; END; /* CR-Z */ CG=99999; MM2=99999; RETURN; ISUZU: V6=TRANSLATE(V6,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); IF 1981 LE MY LE 1985 AND V5='T' AND V4 IN ('A','R') AND V IN (69,77) THEN DO; MM2=38031; CG=38001; RETURN; END; IF 1983 LE MY LE 1989 AND V5='R' AND V4 IN ('A','B') AND V=7 THEN DO; MM2=38032; CG=38002; RETURN; END; IF MY=1986 AND V5='T' AND V4='R' AND V IN (69,77) THEN DO; MM2=38031; CG=38003; RETURN; END; IF 1987 LE MY LE 1989 AND V5='T' AND V4='R' AND V6 IN ('2','5') THEN DO; MM2=38031; CG=38003; RETURN; END; IF 1990 LE MY LE 1992 AND V4='R' AND V5='T' AND V6 IN ('2','4') THEN DO; MM2=38032; CG=38004; RETURN; END; IF 1990 LE MY LE 1993 AND V4='R' AND V5='T' AND V6='5' THEN DO; MM2=38033; CG=38004; RETURN; END; CG=99999; MM2=99999; RETURN; JAGUAR: V4=TRANSLATE(V4,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); V67=V6||V7; IF 2000 LE MY LE 2001 AND V6='0' AND V7='1' THEN DO; MM2=39034; CG=12041; RETURN; END; IF 2002 LE MY LE 2004 AND V6='0' AND V7 IN ('1','3') THEN DO; MM2=39034; CG=12041; RETURN; END; IF MY=2005 AND V6='0' AND V7 IN ('1','2','3') THEN DO; MM2=39034; CG=12041; RETURN; END; IF 2006 LE MY LE 2008 AND V6='0' AND V7 IN ('1','3') THEN DO; MM2=39034; CG=12041; RETURN; END; /* S-TYPE ends 2008 */ IF MY=2009 AND V67 IN ('05','06','07') THEN DO; MM2=39037; CG=12041; RETURN; END; IF MY GE 2010 AND V6='0' THEN DO; MM2=39037; CG=12041; RETURN; END; /* XF */ IF 1981 LE MY LE 1995 AND V4 IN ('A','B','F','H','K','M','P') AND V6='1' THEN DO; MM2=39032; CG=39003; RETURN; END; IF 1996 LE MY LE 1999 AND V4 IN ('H','P') AND V6='1' THEN DO; MM2=39032; CG=39003; RETURN; END; IF 2000 LE MY LE 2001 AND V67 IN ('14','15') THEN DO; MM2=39032; CG=39003; RETURN; END; IF 2002 LE MY LE 2003 AND V67 IN ('12','14','15') THEN DO; MM2=39032; CG=39003; RETURN; END; IF 1981 LE MY LE 1996 AND V4 IN ('N','S','T') AND V6 IN ('2','3','4','5') THEN DO; MM2=39031; CG=39004; RETURN; END; IF 1996 LE MY LE 1997 AND V4 IN ('H','K','M') AND V6 IN('6','7') THEN DO; MM2=39032; CG=39005; RETURN; END; IF 1998 LE MY LE 1999 AND V4 IN ('H','K') AND V6 IN ('6','7') THEN DO; MM2=39032; CG=39005; RETURN; END; IF 2000 LE MY LE 2001 AND V67 IN ('23','24','25') THEN DO; MM2=39032; CG=39005; RETURN; END; IF 2002 LE MY LE 2003 AND V67 IN ('24','25') THEN DO; MM2=39032; CG=39005; RETURN; END; IF 1997 LE MY LE 1999 AND V4 IN ('G') THEN DO; MM2=39031; CG=39006; RETURN; END; IF 2000 LE MY LE 2006 AND V67 IN ('41','42') THEN DO; MM2=39031; CG=39006; RETURN; END; /* XK8,XKR ends 2006 */ IF MY=2002 AND V67 IN ('51','53') THEN DO; MM2=39036; CG=39007; RETURN; END; IF 2003 LE MY LE 2004 AND V67 IN ('51','52','53') THEN DO; MM2=39036; CG=39007; RETURN; END; IF MY=2005 AND V67 IN ('51','52','54','55') THEN DO; MM2=39036; CG=39007; RETURN; END; IF 2006 LE MY LE 2008 AND V67 IN ('51','54') THEN DO; MM2=39036; CG=39007; RETURN; END; /* X-TYPE ends 2008 */ IF MY=2004 AND V67 IN ('71','73','74') THEN DO; MM2=39032; CG=39008; RETURN; END; IF 2005 LE MY LE 2009 AND V67 IN ('71','73') THEN DO; MM2=39032; CG=39008; RETURN; END; IF MY GE 2010 AND V67 IN ('1C','1G','1J') THEN DO; MM2=39032; CG=39008; RETURN; END; /* XJ SEDAN */ IF 2005 LE MY LE 2008 AND V67 IN ('79','82','86') THEN DO; MM2=39032; CG=39009; RETURN; END; IF MY=2009 AND V67 IN ('79','82','86','94','95') THEN DO; MM2=39032; CG=39009; RETURN; END; IF MY GE 2010 AND V67 IN ('2G','2J') THEN DO; MM2=39032; CG=39009; RETURN; END; /* XJ LWB SEDAN */ IF MY=2007 AND V67 IN ('43','44') THEN DO; MM2=39035; CG=39010; RETURN; END; IF 2008 LE MY LE 2009 AND V67 IN ('43','44','45','46') THEN DO; MM2=39035; CG=39010; RETURN; END; IF MY GE 2010 AND V67 IN ('4D','4E','4F','4G') THEN DO; MM2=39035; CG=39010; RETURN; END; /* XK SERIES */ CG=99999; MM2=99999; RETURN; MAZDA: V4=TRANSLATE(V4,'ZSGB','2568'); V8=TRANSLATE(V8,'26','ZG'); V5=TRANSLATE(V5,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); V45=V4||V5; 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 1981 LE MY LE 1983 AND V45='BD' AND V=52 THEN DO; MM2=41035; CG=41006; RETURN; END; IF 1981 LE MY LE 1985 AND V45='FB' AND V=33 THEN DO; MM2=41034; CG=41007; RETURN; END; IF 1981 LE MY LE 1982 AND V45='GB' AND V IN (22,41) THEN DO; MM2=41037; CG=41008; RETURN; END; IF 1981 LE MY LE 1985 AND V45='BD' AND V IN (22,23,24) THEN DO; MM2=41035; CG=41009; RETURN; END; IF 1984 LE MY LE 1986 AND V45='BD' AND V=52 THEN DO; MM2=41035; CG=41009; RETURN; END; IF 1983 LE MY LE 1987 AND V45='GC' AND V IN (22,24,31) THEN DO; MM2=41037; CG=41010; RETURN; END; IF 1986 LE MY LE 1989 AND V1='J' AND V45='BF' AND V IN (22,23) THEN DO; MM2=41035; CG=41011; RETURN; END; IF 1987 LE MY LE 1988 AND V1='J' AND V45='BW' AND V=62 THEN DO; MM2=41035; CG=41011; RETURN; END; IF 1986 LE MY LE 1991 AND V1='J' AND V45='FC' AND V IN (33,35) THEN DO; MM2=41034; CG=41012; RETURN; END; IF 1988 LE MY LE 1992 AND V45='GD' AND V IN (22,24) THEN DO; MM2=41037; CG=41013; RETURN; END; IF 1988 LE MY LE 1991 AND V1='J' AND V45='HC' AND V=22 THEN DO; MM2=41043; CG=41014; RETURN; END; IF 1988 LE MY LE 1992 AND V45='GD' AND V=31 THEN DO; MM2=41044; CG=41015; RETURN; END; IF 1990 LE MY LE 1994 AND V1='J' AND V45='BG' AND V=23 THEN DO; MM2=41035; CG=41016; RETURN; END; IF 1990 LE MY LE 1994 AND V1='J' AND V45='BG' AND V=22 THEN DO; MM2=41035; CG=41017; RETURN; END; IF 1990 LE MY LE 1997 AND V1='J' AND V45='NA' AND V=35 THEN DO; MM2=41045; CG=41018; RETURN; END; IF 1998 LE MY LE 2005 AND V1='J' AND V45='NB' AND V=35 THEN DO; MM2=41045; CG=41018; RETURN; END; /* MIATA ends 2005 */ IF 1992 LE MY LE 1995 AND V1='J' AND V45='EC' AND V=43 THEN DO; MM2=41046; CG=41019; RETURN; END; IF 1992 LE MY LE 1995 AND V1='J' AND V45='HD' AND V=46 THEN DO; MM2=41043; CG=41020; RETURN; END; IF 1993 LE MY LE 1997 AND V1='1' AND V45='GE' AND V=22 THEN DO; MM2=41037; CG=41021; RETURN; END; IF 1993 LE MY LE 1997 AND V1='1' AND V45='GE' AND V=31 THEN DO; MM2=41044; CG=41021; RETURN; END; IF 1993 LE MY LE 1995 AND V1='J' AND V45='FD' AND V=33 THEN DO; MM2=41034; CG=41022; RETURN; END; IF 1995 LE MY LE 1998 AND V1='J' AND V45 IN ('BA','BB','BC') AND V=14 THEN DO; MM2=41035; CG=41023; RETURN; END; IF 1995 LE MY LE 2002 AND V1='J' AND V45='TA' AND V=22 THEN DO; MM2=41047; CG=41024; RETURN; END; IF 1998 LE MY LE 2002 AND V1='1' AND V45='GF' AND V=22 THEN DO; MM2=41037; CG=41025; RETURN; END; IF 2003 LE MY LE 2007 AND V1='1' AND V4 IN ('F','H') AND V5='P' AND V6='8' THEN DO; MM2=41050; CG=41025; RETURN; END; IF MY IN (2006,2007) AND V1='J' AND V45='GG' AND V6='1' THEN DO; MM2=41050; CG=41025; RETURN; END; /* SPEED6 ends 2007*/ IF MY=2008 AND V1='1' AND V45='HP' AND V6='8' THEN DO; MM2=41050; CG=41025; RETURN; END; /* 6 105.1 ends 2008 */ IF 1999 LE MY LE 2001 AND V45='BJ' AND V=22 THEN DO; MM2=41035; CG=41026; RETURN; END; IF 2002 LE MY LE 2003 AND V45='BJ' AND V IN (22,24) THEN DO; MM2=41035; CG=41026; RETURN; END; IF 2004 LE MY LE 2009 AND V45='BK' THEN DO; MM2=41051; CG=41028; RETURN; END; IF MY GE 2010 AND V45='BL' THEN DO; MM2=41051; CG=41028; RETURN; END; /* 3 */ IF MY GE 2004 AND V45='FE' THEN DO; MM2=41049; CG=41029; RETURN; END; /* RX-8 */ IF MY GE 2006 AND V45='NC' THEN DO; MM2=41045; CG=41030; RETURN; END; /* MX-5 */ IF 2006 LE MY LE 2010 AND V45='CR' THEN DO; MM2=41052; CG=41031; RETURN; END; /* 5 ends 2010 */ IF MY=2009 AND V1='1' AND V45='HP' AND V6='8' THEN DO; MM2=41050; CG=41032; RETURN; END; IF MY GE 2010 AND V1='1' AND V45='HZ' AND V6='8' THEN DO; MM2=41050; CG=41032; RETURN; END; /* 6 109.8 */ IF MY GE 2011 AND V45='DE' THEN DO; MM2=41055; CG=41033; RETURN; END; /* 2+ */ CG=99999; MM2=99999; RETURN; MEBE: 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; V46=V4||V5||V6; V47=V4||V5||V6||V7; IF 1981 LE MY LE 1985 AND V46='BA4' THEN DO; MM2=42033; CG=42004; RETURN; END; IF MY=1981 AND V46='BA2' THEN DO; MM2=42034; CG=42005; RETURN; END; IF 1981 LE MY LE 1985 AND V46 IN ('AA3','AB2','AB3','AB9') THEN DO; MM2=42031; CG=42008; RETURN; END; IF 1981 LE MY LE 1985 AND V46 IN ('AA5','AB5') THEN DO; MM2=42031; CG=42009; RETURN; END; IF 1981 LE MY LE 1991 AND V4='C' AND ((V5='A' AND (V=32 OR V=24)) OR (V5='B' AND (V=20 OR V=34))) THEN DO; MM2=42037; CG=42010; RETURN; END; IF 1981 LE MY LE 1991 AND V4='C' AND ((V5='A' AND (V=25 OR V=33 OR V=35 OR V=37 OR V=39)) OR (V5='B' AND (V=25 OR V=35))) THEN DO; MM2=42036; CG=42011; RETURN; END; IF 1982 LE MY LE 1991 AND V46='CA4' THEN DO; MM2=42036; CG=42012; RETURN; END; IF 1984 LE MY LE 1993 AND V46 IN ('DA2','DB2','DA3') THEN DO; MM2=42039; CG=42013; RETURN; END; IF 1986 LE MY LE 1993 AND V45 IN ('EA','EB','ED') AND V6 IN ('2','3','9') THEN DO; MM2=42031; CG=42014; RETURN; END; IF 1994 LE MY LE 1995 AND V45 IN ('EA','EB','ED') AND V6 IN ('3','9') THEN DO; MM2=42031; CG=42014; RETURN; END; IF 1986 LE MY LE 1989 AND V4='B' AND V46='BA4' THEN DO; MM2=42033; CG=42015; RETURN; END; IF 1988 LE MY LE 1991 AND V4='E' AND V6='5' THEN DO; MM2=42031; CG=42016; RETURN; END; IF 1992 LE MY LE 1995 AND V4='E' AND V6 IN ('5','6') THEN DO; MM2=42031; CG=42016; RETURN; END; IF 1990 LE MY LE 2002 AND V46 IN ('FA6','FA7') THEN DO; MM2=42044; CG=42017; RETURN; END; IF MY=1993 AND V4='G' AND V6='7' THEN DO; MM2=42036; CG=42018; RETURN; END; IF 1992 LE MY LE 1993 AND V4='G' AND V6 IN ('3','4') THEN DO; MM2=42043; CG=42018; RETURN; END; IF MY=1994 AND V47='GB34' THEN DO; MM2=42043; CG=42018; RETURN; END; IF 1994 LE MY LE 1999 AND V47='GA32' THEN DO; MM2=42043; CG=42018; RETURN; END; IF 1992 LE MY LE 1993 AND V4='G' AND V6='5' THEN DO; MM2=42043; CG=42019; RETURN; END; IF 1994 LE MY LE 1999 AND V4='G' AND V6 IN ('4','5') THEN DO; MM2=42043; CG=42019; RETURN; END; IF 1995 LE MY LE 1999 AND V47='GA33' THEN DO; MM2=42043; CG=42019; RETURN; END; IF 1994 LE MY LE 2000 AND V4='H' AND V6 IN ('2','3') THEN DO; MM2=42042; CG=42020; RETURN; END; IF 1998 LE MY LE 2002 AND V4='L' AND V6 IN ('6','7') THEN DO; MM2=42047; CG=42020; RETURN; END; IF MY=2003 AND V46 IN ('LK6','LK7') THEN DO; MM2=42047; CG=42020; RETURN; END; IF 1994 LE MY LE 1997 AND V4='G' AND V6='7' THEN DO; MM2=42043; CG=42021; RETURN; END; IF 1998 LE MY LE 1999 AND V4='G' AND V6='7' THEN DO; MM2=42046; CG=42021; RETURN; END; IF 1996 LE MY LE 1997 AND V4='J' AND V6 IN ('5','2','7') THEN DO; MM2=42048; CG=42022; RETURN; END; IF 1998 LE MY LE 2002 AND V45 IN ('JF','JH') THEN DO; MM2=42048; CG=42022; RETURN; END; IF MY=2003 AND V45='JH' THEN DO; MM2=42048; CG=42022; RETURN; END; IF 1998 LE MY LE 2000 AND V4='K' AND V6='4' THEN DO; MM2=42045; CG=42023; RETURN; END; IF 2001 LE MY LE 2004 AND V4='K' AND V6 IN ('4','6') THEN DO; MM2=42045; CG=42023; RETURN; END; IF 2000 LE MY LE 2002 AND V4='N' AND V6='7' THEN DO; MM2=42043; CG=42024; RETURN; END; IF 2003 LE MY LE 2005 AND V4='N' AND V6 IN ('7','8') THEN DO; MM2=42043; CG=42024; RETURN; END; IF MY = 2006 AND V46 IN ('NG7','NG8') THEN DO; MM2=42043; CG=42024; RETURN; END; /* S 121.1 SEDAN ends 2006 */ IF 2000 LE MY LE 2006 AND V4='P' AND V6='7' THEN DO; MM2=42046; CG=42025; RETURN; END; /* CL COUPE -2006 */ IF MY=2001 AND V4='R' AND V6='6' THEN DO; MM2=42042; CG=42026; RETURN; END; IF MY=2002 AND V4='R' AND V6 IN ('4','6') THEN DO; MM2=42042; CG=42026; RETURN; END; IF 2003 LE MY LE 2004 AND V4='R' AND V6 IN ('4','6','8') THEN DO; MM2=42042; CG=42026; RETURN; END; IF MY=2005 AND V4='R' AND V6 IN ('4','6','7','8') THEN DO; MM2=42042; CG=42026; RETURN; END; IF MY = 2006 AND V4='R' AND V6 IN ('5','7','9') THEN DO; MM2=42042; CG=42026; RETURN; END; IF MY=2007 AND V4='R' AND V6 IN ('5','8','9') THEN DO; MM2=42042; CG=42026; RETURN; END; /* C 106.9 ends 2007 */ IF MY=2003 AND V46 IN ('TJ6','TJ7') THEN DO; MM2=42047; CG=42026; RETURN; END; IF 2004 LE MY LE 2005 AND V45 IN ('TJ','TK') AND V6 IN ('6','7') THEN DO; MM2=42047; CG=42026; RETURN; END; IF 2006 LE MY LE 2009 AND V45 IN ('TJ','TK') AND V6 IN ('5','7') THEN DO; MM2=42047; CG=42026; RETURN; END; /* CLK ends 2009 */ IF MY=2003 AND V45='UF' THEN DO; MM2=42048; CG=42027; RETURN; END; IF 2004 LE MY LE 2009 AND V45 IN ('UF','UH') THEN DO; MM2=42048; CG=42027; RETURN; END; /* E remodeled 2010 */ IF MY GE 2006 AND V45='DJ' THEN DO; MM2=42051; CG=42027; RETURN; END; /* CLS */ IF MY GE 2003 AND V46='SK7' THEN DO; MM2=42044; CG=42028; RETURN; END; /* SL ROADSTER */ IF MY GE 2005 AND V45='WK' THEN DO; MM2=42045; CG=42029; RETURN; END; /* SLK */ IF 2005 LE MY LE 2007 AND V45='AJ' THEN DO; MM2=42049; CG=42030; RETURN; END; IF 2008 LE MY LE 2009 AND V45='AK' THEN DO; MM2=42049; CG=42030; RETURN; END; /* SLR McLAREN ends 2009 */ IF MY=2006 AND V46='NF6' THEN DO; MM2=42043; CG=42031; RETURN; END; /* S 116.7 SEDAN ends 2006*/ IF 2007 LE MY LE 2009 AND V46 IN ('NG7','NG8') THEN DO; MM2=42043; CG=42032; RETURN; END; IF MY GE 2010 AND V46 IN ('NF8','NG7','NG8','NG9') THEN DO; MM2=42043; CG=42032; RETURN; END; /* S 124.6 SEDAN */ IF MY GE 2007 AND V45='EJ' THEN DO; MM2=42046; CG=42033; RETURN; END; /* CL COUPE */ IF MY GE 2008 AND V45='GF' THEN DO; MM2=42042; CG=42034; RETURN; END; /* C 108.7 */ IF MY GE 2010 AND V45='KJ' THEN DO; MM2=42048; CG=42034; RETURN; END; /* E 2CP */ IF MY GE 2011 AND V45='KK' THEN DO; MM2=42048; CG=42034; RETURN; END; /* E CV */ IF MY GE 2010 AND V45='HF' THEN DO; MM2=42048; CG=42035; RETURN; END; /* E 4SD */ IF MY GE 2011 AND V45='HH' THEN DO; MM2=42048; CG=42035; RETURN; END; /* E SW */ IF MY GE 2011 AND V45='RJ' THEN DO; MM2=42052; CG=42036; RETURN; END; /* SLS */ CG=99999; MM2=99999; RETURN; PEUGEOT: V4=TRANSLATE(V4,'ZSGB','2568'); V5=TRANSLATE(V5,'ZSGB','2568'); V45=V4||V5; IF 1981 LE MY LE 1983 AND V45='CD' THEN DO; MM2=44034; CG=44004; RETURN; END; IF 1981 LE MY LE 1984 AND V45='AA' THEN DO; MM2=44035; CG=44005; RETURN; END; IF 1981 LE MY LE 1989 AND V45='BA' THEN DO; MM2=44034; CG=44006; RETURN; END; IF 1984 LE MY LE 1989 AND V45='BD' THEN DO; MM2=44034; CG=44007; RETURN; END; IF 1988 LE MY LE 1989 AND V45='BF' THEN DO; MM2=44034; CG=44007; RETURN; END; IF 1990 LE MY LE 1992 AND V4 IN ('B','C') AND V6 NE '1' THEN DO; MM2=44034; CG=44007; RETURN; END; IF 1989 LE MY LE 1992 AND V4 IN ('D','E') THEN DO; MM2=44036; CG=44008; RETURN; END; CG=99999; MM2=99999; RETURN; PORSCHE: V8=TRANSLATE(V8,'2568','ZSGB'); IF MY LE 2009 THEN DO; V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V7,1.0)+INPUT(V8,1.0); END; ELSE DO; V7=TRANSLATE(V7,'ZSGB','2568'); V78=V7||V8; END; IF ((1981 LE MY LE 1990 AND V=91) OR (1985 LE MY LE 1990 AND V=93)) AND V5 IN ('A','B') THEN DO; MM2=45031; CG=45001; RETURN; END; IF 1989 LE MY LE 1991 AND V=96 AND V5 IN ('A','B') THEN DO; MM2=45031; CG=45001; RETURN; END; IF MY=1995 AND V=99 AND V5 IN ('A','B') THEN DO; MM2=45031; CG=45001; RETURN; END; IF 1996 LE MY LE 1997 AND V=99 AND V5 IN ('A','B','C') THEN DO; MM2=45031; CG=45001; RETURN; END; IF MY=1998 AND V=99 AND V5 IN ('A','B') THEN DO; MM2=45031; CG=45001; RETURN; END; IF ((1981 LE MY LE 1988 AND V=92) OR (1981 LE MY LE 1982 AND V=93)) AND V4='A' THEN DO; MM2=45034; CG=45003; RETURN; END; IF 1983 LE MY LE 1991 AND 94 LE V LE 95 AND V4 IN ('A','C') THEN DO; MM2=45037; CG=45003; RETURN; END; IF MY=1995 AND V=96 THEN DO; MM2=45039; CG=45003; RETURN; END; IF 1981 LE MY LE 1991 AND V=92 AND V4='J' THEN DO; MM2=45035; CG=45004; RETURN; END; IF MY=1995 AND V=92 THEN DO; MM2=45035; CG=45004; RETURN; END; IF 1992 LE MY LE 1994 THEN DO; MM2=45030; CG=45005; RETURN; END; IF 1997 LE MY LE 2005 AND V=98 THEN DO; MM2=45040; CG=45006; RETURN; END; IF 2006 LE MY LE 2009 AND V=98 AND V4='C' THEN DO; MM2=45040; CG=45006; RETURN; END; IF MY GE 2010 AND V78='A8' AND V4='C' THEN DO; MM2=45040; CG=45006; RETURN; END; /* BOXSTER */ IF 2006 LE MY LE 2009 AND V=98 AND V4='A' THEN DO; MM2=45041; CG=45006; RETURN; END; IF MY GE 2010 AND V78='A8' AND V4='A' THEN DO; MM2=45041; CG=45006; RETURN; END; /* CAYMAN */ IF 1999 LE MY LE 2009 AND V=99 THEN DO; MM2=45031; CG=45007; RETURN; END; IF MY GE 2010 AND V78='A9' THEN DO; MM2=45031; CG=45007; RETURN; END; /* 911 */ IF MY GE 2010 AND V78='A7' THEN DO; MM2=45042; CG=45008; RETURN; END; /* PANAMERA */ CG=99999; MM2=99999; RETURN; RENAULT: V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); IF 1981 LE MY LE 1983 AND V4='A' AND V IN (22,39) THEN DO; MM2=46031; CG=46004; RETURN; END; IF 1981 LE MY LE 1986 AND V IN (34,35) THEN DO; MM2=46037; CG=46005; RETURN; END; IF 1982 LE MY LE 1985 AND V=36 THEN DO; MM2=46038; CG=46005; RETURN; END; IF (1983 LE MY LE 1986 AND 95 LE V LE 97) OR (MY=1987 AND 93 LE V LE 99) THEN DO; MM2=46039; CG=46006; RETURN; END; IF 1984 LE MY LE 1986 AND V IN (93,99) THEN DO; MM2=46040; CG=46006; RETURN; END; IF 1988 LE MY LE 1989 AND V1='V' AND V=45 THEN DO; MM2=46044; CG=46007; RETURN; END; IF 1988 LE MY LE 1989 AND V1='V' AND V=48 THEN DO; MM2=46044; CG=46008; RETURN; END; CG=99999; MM2=99999; RETURN; SAAB: V6=TRANSLATE(V6,'2568','ZSGB'); IF 1981 LE MY LE 1993 AND V4='A' AND V6 IN ('2','3','4','7') THEN DO; MM2=47031; CG=47004; RETURN; END; IF MY=1994 AND V4='A' AND V6='7' THEN DO; MM2=47031; CG=47004; RETURN; END; IF 1986 LE MY LE 1992 AND V4='C' AND V6 IN ('4','5','6') THEN DO; MM2=47034; CG=47005; RETURN; END; IF 1993 LE MY LE 1998 AND V4='C' AND V6 IN ('4','6') THEN DO; MM2=47034; CG=47005; RETURN; END; IF 1994 LE MY LE 1998 AND V4='D' AND V6 IN ('3','4','5','7') THEN DO; MM2=47031; CG=47006; RETURN; END; IF 1999 LE MY LE 2002 AND V4='D' THEN DO; MM2=47035; CG=47006; RETURN; END; IF MY=2003 AND V4='D' AND V6='7' THEN DO; MM2=47035; CG=47006; RETURN; END; IF 1999 LE MY LE 2010 AND V4='E' THEN DO; MM2=47036; CG=47007; RETURN; END; /* 9-5 106.4 ends 2010 */ IF MY GE 2003 AND V4='F' THEN DO; MM2=47035; CG=47008; RETURN; END; /* 9-3 */ IF MY GE 2010 AND V4='G' THEN DO; MM2=47036; CG=47009; RETURN; END; /* 9-5 111.7 */ IF 2005 LE MY LE 2006 AND V4='G' AND V1='J' AND V2='F' AND V3='4' THEN DO; MM2=47037; CG=48014; RETURN; END; /* 9-2X ends 2006 */ CG=99999; MM2=99999; RETURN; SUBARU: V4=TRANSLATE(V4,'ZSGB','2568'); V5=TRANSLATE(V5,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); IF MY LE 2009 THEN V7=TRANSLATE(V7,'2568','ZSGB'); ELSE V7=TRANSLATE(V7,'ZSGB','2568'); IF 1981 LE MY LE 1984 AND V4='A' AND V5 IN ('B','M','W') THEN DO; MM2=48031; CG=48004; RETURN; END; IF 1981 LE MY LE 1984 AND V4='A' AND V5='F' THEN DO; MM2=48031; CG=48005; RETURN; END; IF 1985 LE MY LE 1989 AND V1='J' AND V4='A' AND V5 IN ('C','G','K','N') AND V6 IN ('4','5','7') THEN DO; MM2=48031; CG=48006; RETURN; END; IF 1990 LE MY LE 1991 AND V1='J' AND V4='A' AND V5 IN ('C','G','K','N') AND V6 IN ('4','5') THEN DO; MM2=48031; CG=48006; RETURN; END; IF 1992 LE MY LE 1994 AND V1='J' AND V4='A' AND V5 IN ('C','G','K','N') AND V6 IN ('4','5') THEN DO; MM2=48031; CG=48006; RETURN; END; IF 1985 LE MY LE 1991 AND V4='A' AND V5='X' THEN DO; MM2=48035; CG=48006; RETURN; END; IF 1985 LE MY LE 1989 AND V4='A' AND V5='F' AND V6 IN ('2','4','5') THEN DO; MM2=48031; CG=48007; RETURN; END; IF 1987 LE MY LE 1994 AND V1='J' AND V4='K' AND V5 IN ('A','D') AND V6 IN ('7','8') THEN DO; MM2=48036; CG=48008; RETURN; END; IF 1990 LE MY LE 1994 AND V4='B' AND V5 IN ('C','J') AND V6='6' THEN DO; MM2=48034; CG=48009; RETURN; END; IF 1992 LE MY LE 1997 AND V4='C' AND V1='J' AND V5='X' THEN DO; MM2=48037; CG=48010; RETURN; END; IF 1993 LE MY LE 2001 AND V1='J' AND V4='G' AND V5 IN ('C','F','M') THEN DO; MM2=48038; CG=48011; RETURN; END; IF 1995 LE MY LE 1999 AND V1='4' AND V4='B' AND V5 IN ('K','D') AND V6 IN ('4','6') THEN DO; MM2=48034; CG=48012; RETURN; END; IF 1996 LE MY LE 1999 AND V4='B' AND V5= 'G' THEN DO; MM2=48034; CG=48012; RETURN; END; IF 2000 LE MY LE 2002 AND V4='B' AND V5 IN ('E','H') THEN DO; MM2=48034; CG=48013; RETURN; END; IF 2003 LE MY LE 2004 AND V4='B' AND V5 IN ('E','H') AND V7 IN ('2','3','4','5') THEN DO; MM2=48034; CG=48013; RETURN; END; IF MY=2003 AND V4='B' AND V5 IN ('E','H') AND V7 IN ('6','7','8','9','0') THEN DO; MM2=48045; CG=48013; RETURN; END; IF MY=2004 AND V4='B' AND V5 IN ('E','H') AND V7 IN ('1','6','7','8','9','0') THEN DO; MM2=48045; CG=48013; RETURN; END; IF MY=2002 AND V1='J' AND V4='G' AND V5 IN ('D','F','G') THEN DO; MM2=48038; CG=48014; RETURN; END; IF MY GE 2003 AND V1='J' AND V4='G' AND V5 IN ('D','G') THEN DO; MM2=48038; CG=48014; RETURN; END; /* IMPREZA 99.4 ends 2007 */ IF 2005 LE MY LE 2009 AND V4='B' AND V5 IN ('L','P') AND V1='4' AND V3='3' THEN DO; MM2=48034; CG=48015; RETURN; END; /* LEGACY 105.1 ends 2009 */ IF MY GE 2008 AND V4='G' AND V1='J' THEN DO; MM2=48038; CG=48016; RETURN; END; /* IMPREZA 103.1 */ IF MY GE 2010 AND V4='B' AND V5='M' AND V1='4' AND V3='3' THEN DO; MM2=48034; CG=48017; RETURN; END; /* LEGACY 108.3 */ CG=99999; MM2=99999; RETURN; TOYOTA: V5=TRANSLATE(V5,'ZSGB','2568'); V4=TRANSLATE(V4,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); IF MY LE 2009 THEN V7=TRANSLATE(V7,'2568','ZSGB'); ELSE V7=TRANSLATE(V7,'ZSGB','2568'); IF MY LE 2009 THEN V8=TRANSLATE(V8,'ZSGB','2568'); V13=V1||V2||V3; V46=V4||V5||V6; V47=V4||V5||V6||V7; IF V3='5' THEN GOTO TOYOTACV; IF MY=1981 AND V4='R' AND V5='A' AND V6='4' AND V7 IN ('3','4','5') THEN DO; MM2=49033; CG=49011; RETURN; END; IF 1982 LE MY LE 1985 AND V4='R' AND V5='A' AND V6='6' AND V7 IN ('3','4','5') THEN DO; MM2=49033; CG=49011; RETURN; END; IF MY=1986 AND V4='S' AND V5='T' AND V6='6' AND V7 IN ('3','4','5') THEN DO; MM2=49033; CG=49011; RETURN; END; IF 1981 LE MY LE 1984 AND V4='M' AND V5='X' AND V6='6' THEN DO; MM2=49035; CG=49012; RETURN; END; IF 1981 LE MY LE 1982 AND V4='R' AND V5='T' AND V6='3' AND V7 IN ('2','6') THEN DO; MM2=49031; CG=49013; RETURN; END; IF MY=1981 AND V4='M' AND V5='A' AND V6='4' AND V7='7' THEN DO; MM2=49034; CG=49014; RETURN; END; IF 1981 LE MY LE 1982 AND V4='A' AND V5='L' AND V6='2' AND V7 IN ('1','2','5') THEN DO; MM2=49038; CG=49015; RETURN; END; IF 1981 LE MY LE 1982 AND V4='T' AND V5='E' AND V6='7' THEN DO; MM2=49032; CG=49016; RETURN; END; IF MY=1983 AND V4='A' AND V5='E' AND V6='7' THEN DO; MM2=49032; CG=49016; RETURN; END; IF 1984 LE MY LE 1987 AND V4='A' AND V5='E' AND V6='8' AND V8 IN ('C','S') THEN DO; MM2=49032; CG=49016; RETURN; END; IF 1981 LE MY LE 1984 AND V4 IN ('K','U') AND V5='P' AND V6='6' THEN DO; MM2=49039; CG=49017; RETURN; END; IF 1982 LE MY LE 1985 AND V4='M' AND V5='A' AND V6='6' AND V7='7' THEN DO; MM2=49034; CG=49018; RETURN; END; IF MY=1986 AND V4='M' AND V5='A' AND V6='6' AND V7='7' THEN DO; MM2=49034; CG=49018; MMP=49034; CGP=49098; RETURN; END; IF 1984 LE MY LE 1986 AND V1='J' AND V4 IN ('A','C') AND V5='E' AND V6='8' AND V8 IN ('E','L') THEN DO; MM2=49032; CG=49019; RETURN; END; IF MY=1987 AND V1 IN ('J','1') AND V4='A' AND V5='E' AND V6='8' AND V8 IN ('E','L') THEN DO; MM2=49032; CG=49019; RETURN; END; IF 1987 LE MY LE 1988 AND V1 IN ('J','1') AND V4='A' AND V5='E' AND V6='8' AND V8='G' THEN DO; MM2=49032; CG=49019; RETURN; END; IF 1988 LE MY LE 1992 AND V1 IN ('J','1') AND V4='A' AND V5='E' AND V6='9' THEN DO; MM2=49032; CG=49019; RETURN; END; IF 1990 LE MY LE 1992 AND V1='2' AND V4='A' AND V5='E' AND V6='9' THEN DO; MM2=49032; CG=49019; RETURN; END; IF 1983 LE MY LE 1984 AND V4='A' AND V5='L' AND V6='3' THEN DO; MM2=49038; CG=49019; RETURN; END; IF MY=1984 AND V4='A' AND V5='L' AND V6='2' THEN DO; MM2=49038; CG=49019; RETURN; END; IF 1985 LE MY LE 1986 AND V4='A' AND V5='L' AND V6='3' THEN DO; MM2=49038; CG=49019; RETURN; END; IF MY=1987 AND V5='L' AND V8 IN ('V','W') AND V6='3' AND V4='A' THEN DO; MM2=49038; CG=49019; RETURN; END; IF 1983 LE MY LE 1986 AND V1='J' AND V5='V' AND V6='1' AND V4 IN ('C','S') THEN DO; MM2=49040; CG=49020; RETURN; END; IF 1987 LE MY LE 1991 AND V1 IN ('4','J') AND V5='V' AND V6='2' AND V4 IN ('S','V') AND V8 IN ('E','F','J','W') THEN DO; MM2=49040; CG=49020; RETURN; END; IF 1985 LE MY LE 1989 AND V5='W' AND V6='1' AND V4='A' THEN DO; MM2=49041; CG=49021; RETURN; END; IF 1985 LE MY LE 1988 AND V4='M' AND V5='X' AND V6='7' AND V7 IN ('2','3') THEN DO; MM2=49035; CG=49022; RETURN; END; IF MY=1986 AND V5='A' AND V4='M' AND V7 IN ('0','1') AND V6='7' THEN DO; MM2=49034; CG=49023; MMP=49034; CGP=49098; RETURN; END; IF 1987 LE MY LE 1992 AND V5='A' AND V4='M' AND V7 IN ('0','1') AND V6='7' THEN DO; MM2=49034; CG=49023; RETURN; END; IF 1987 LE MY LE 1989 AND V5='T' AND V6='6' AND V4='S' THEN DO; MM2=49033; CG=49024; RETURN; END; IF 1990 LE MY LE 1993 AND V5='T' AND V6='8' AND V4 IN ('A','S') AND V8 IN ('F','K','N','P') THEN DO; MM2=49033; CG=49024; RETURN; END; IF MY=1987 AND V1='J' AND V4='E' AND V5='L' AND V8 IN ('D','G','H') AND V6='3' THEN DO; MM2=49038; CG=49025; RETURN; END; IF 1988 LE MY LE 1991 AND V1='J' AND V5='L' AND V6 IN ('3','4') AND V4 IN ('A','E') THEN DO; MM2=49038; CG=49025; RETURN; END; IF MY=1992 AND V1='J' AND V4='E' AND V5='L' AND V8 IN ('A','B') AND V6='4' THEN DO; MM2=49038; CG=49025; RETURN; END; IF 1993 LE MY LE 1994 AND V1='J' AND V4='E' AND V5='L' AND V8 IN ('S','T') AND V6='4' THEN DO; MM2=49038; CG=49025; RETURN; END; IF MY=1995 AND V1='J' AND V4='E' AND V5='L' AND V8 IN ('D','E') AND V6='5' THEN DO; MM2=49038; CG=49025; RETURN; END; IF 1996 LE MY LE 1998 AND V1='J' AND V4 IN ('A','B') AND V5='C' AND V6='5' AND V8='L' THEN DO; MM2=49038; CG=49025; RETURN; END; IF MY=1992 AND V1='J' AND V5='L' AND V8='F' AND V6='4' THEN DO; MM2=49042; CG=49025; RETURN; END; IF 1993 LE MY LE 1995 AND V1='J' AND V5='L' AND V8='U' AND V6='4' THEN DO; MM2=49042; CG=49025; RETURN; END; IF 1996 LE MY LE 1997 AND V1='J' AND (V4='C' OR V4='F') AND V5='C' AND V8='H' THEN DO; MM2=49042; CG=49025; RETURN; END; IF 1991 LE MY LE 1995 AND V1='J' AND V5='W' AND V6='2' AND V4='S' THEN DO; MM2=49041; CG=49027; RETURN; END; IF 1992 LE MY LE 1995 AND V1 IN ('4','J') AND V5='K' AND V6='1' AND V4 IN ('G','S','V') THEN DO; MM2=49040; CG=49028; RETURN; END; IF MY=1996 AND V1 IN ('4','J') AND V4 IN ('B','C','E') AND V5 IN ('F','G') AND V6='1' AND V8='K' THEN DO; MM2=49040; CG=49028; RETURN; END; IF 1993 LE MY LE 1995 AND V1 IN ('1','2','J') AND V4='A' AND V5='E' AND V6='0' THEN DO; MM2=49032; CG=49030; RETURN; END; IF 1996 LE MY LE 1997 AND V1 IN ('1','2','J') AND V4 IN ('B','E') AND V5 IN ('A','B') AND V6='0' AND V8='E' THEN DO; MM2=49032; CG=49030; RETURN; END; IF 1998 LE MY LE 2000 AND V1 IN ('1','2','J') AND V4 IN ('B','E') AND V5 IN ('A','B','R') AND V6='1' AND V8='E' THEN DO; MM2=49032; CG=49030; RETURN; END; IF 2001 LE MY LE 2002 AND V8='E' AND V1 IN ('1','2','J') AND V4='B' AND V5='R' AND V6='1' THEN DO; MM2=49032; CG=49030; RETURN; END; IF 1993 LE MY LE 1995 AND V4='J' AND V5='A' AND V6='8' THEN DO; MM2=49034; CG=49031; RETURN; END; IF 1996 LE MY LE 1998 AND V4='D' AND V8='A' THEN DO; MM2=49034; CG=49031; RETURN; END; IF 1994 LE MY LE 1995 AND V4 IN ('A','S') AND V5='T' AND V6='0' THEN DO; MM2=49033; CG=49033; RETURN; END; IF 1996 LE MY LE 1999 AND V4 IN ('C','D') AND V8='T' THEN DO; MM2=49033; CG=49033; RETURN; END; IF 2002 LE MY LE 2006 AND V8='K' AND V4='B' AND V6='3' THEN DO; MM2=49040; CG=49035; RETURN; END; /* CAMRY 107.1 remodeled 2007 */ IF MY=1995 AND V1='4' AND V4='G' AND V5='B' AND V6='1' THEN DO; MM2=49043; CG=49035; RETURN; END; IF 1996 LE MY LE 1999 AND V1='4' AND V4='B' AND V5='F' AND V8='B' THEN DO; MM2=49043; CG=49035; RETURN; END; IF 2000 LE MY LE 2004 AND V8='B' AND V1='4' AND V4='B' AND V5='F' AND V6='2' THEN DO; MM2=49043; CG=49035; RETURN; END; IF 2004 LE MY LE 2008 AND V8='P' AND V4 IN ('C','F') AND V6='3' THEN DO; MM2=49044; CG=49035; RETURN; END; /* CAMRY SOLARA CV & 2CP; 2CP ends 2008 */ IF MY=2009 AND V8='P' AND V4='F' AND V6='3' THEN DO; MM2=49044; CG=49035; RETURN; END; /* CAMRY SOLARA CV ONLY ends 2009 */ IF 1997 LE MY LE 2001 AND V1 IN ('4','J') AND V4='B' AND V5 IN ('F','G') AND V6='2' AND V8='K' THEN DO; MM2=49040; CG=49036; RETURN; END; IF 2000 LE MY LE 2001 AND V1 IN ('4','J') AND V4='B' AND V5='N' AND V6='2' AND V8='K' THEN DO; MM2=49040; CG=49036; RETURN; END; IF 1999 LE MY LE 2003 AND V8='P' AND V1='2' AND V2='T' AND V3='1' AND V4 IN ('C','F') AND V6='2' THEN DO; MM2=49044; CG=49036; RETURN; END; IF 1989 LE MY LE 1992 AND V4='M' AND V5='X' AND V6='8' THEN DO; MM2=49035; CG=49037; RETURN; END; IF 2000 LE MY LE 2005 AND V8='T' AND V1='J' AND V4='D' AND V6='3' THEN DO; MM2=49033; CG=49039; RETURN; END; /* CELICA ends 2005 */ IF 2000 LE MY LE 2005 AND V8='3' AND V1='J' AND V6='1' THEN DO; MM2=49045; CG=49040; RETURN; END; /* ECHO ends 2005 */ IF 2004 LE MY LE 2006 AND V8='4' AND V6='6' AND V13='JTK' THEN DO; MM2=49048; CG=49040; RETURN; END; /* SCION xA ends 2006 */ IF 2000 LE MY LE 2005 AND V8='0' AND V1='J' AND V6='3' THEN DO; MM2=49041; CG=49041; RETURN; END; /* MR-2 SPYDER ends 2005 */ IF 2001 LE MY LE 2003 AND V8='U' AND V1='J' AND V6='1' THEN DO; MM2=49046; CG=49042; RETURN; END; IF 2003 LE MY LE 2004 AND V8='E' AND V1 IN ('1','2','J') AND V4='B' AND V5='R' AND V6='3' THEN DO; MM2=49032; CG=49046; RETURN; END; IF 2005 LE MY LE 2006 AND V8='E' AND V1 IN ('1','2','J') AND V4='B' AND V5 IN ('R','Y') AND V6='3' THEN DO; MM2=49032; CG=49046; RETURN; END; IF MY IN (2007,2008) AND V8='E' AND V1 IN ('1','2','J') AND V4='B' AND V5 = 'R' AND V6='3' THEN DO; MM2=49032; CG=49046; RETURN; END; /* COROLLA generation 3 ends 2008 */ IF MY=2009 AND V8='E' AND V1 IN ('1','2','J') AND V4='B' AND V5 IN ('E','L','U') AND V6='4' THEN DO; MM2=49032; CG=49046; RETURN; END; IF MY GE 2010 AND V8='E' AND V1 IN ('1','2','J') AND V4='B' AND V5 IN ('E','U') AND V6='4' THEN DO; MM2=49032; CG=49046; RETURN; END; /* COROLLA redesigned same WB 2009 */ IF 2003 LE MY LE 2006 AND V8='E' AND V4 IN ('K','L') AND V5 IN ('R','Y') AND V6='3' THEN DO; MM2=49047; CG=49046; RETURN; END; IF MY IN (2007,2008) AND V8='E' AND V4 ='K' AND V5 = 'R' AND V6='3' THEN DO; MM2=49047; CG=49046; RETURN; END; /* MATRIX generation 3 ends 2008 */ IF MY=2009 AND V8='E' AND V4 IN ('G','K','L') AND V5 IN ('E','U') AND V6='4' THEN DO; MM2=49047; CG=49046; RETURN; END; IF MY GE 2010 AND V8='E' AND V4 IN ('K','L','M') AND V5 IN ('E','U') AND V6='4' THEN DO; MM2=49047; CG=49046; RETURN; END; /* MATRIX redesigned same WB 2009 */ IF 2008 LE MY LE 2009 AND V8='E' AND V6='5' AND V13='JTL' THEN DO; MM2=49049; CG=49046; RETURN; END; IF MY GE 2010 AND V8='E' AND V6='4' AND V13='JTL' THEN DO; MM2=49049; CG=49046; RETURN; END; /* SCION xB 102.4 */ IF 2004 LE MY LE 2009 AND V8='U' AND V1='J' AND V6='2' AND V5='B' THEN DO; MM2=49046; CG=49047; RETURN; END; IF MY GE 2010 AND V8='U' AND V1='J' AND V6='3' AND V5='N' THEN DO; MM2=49046; CG=49047; RETURN; END; /* PRIUS */ IF 2004 LE MY LE 2006 AND V8='4' AND V6='3' AND V13='JTL' THEN DO; MM2=49049; CG=49048; RETURN; END; /* SCION xB 98.4 ends 2006 */ IF MY GE 2005 AND V8='B' AND V6='3' AND V1='4' AND V4='B' AND V5='K' THEN DO; MM2=49043; CG=49049; RETURN; END; /* AVALON */ IF 2005 LE MY LE 2009 AND V8='7' AND V6='1' AND V13='JTK' AND V4='D' THEN DO; MM2=49050; CG=49050; RETURN; END; IF MY=2010 AND V8='7' AND V6='3' AND V13='JTK' AND V4='D' THEN DO; MM2=49050; CG=49050; RETURN; END; IF MY GE 2011 AND V8='7' AND V6='5' AND V13='JTK' AND V4='J' THEN DO; MM2=49050; CG=49050; RETURN; END; /* SCION tC */ IF 2007 LE MY LE 2009 AND V8='K' AND V4='B' AND V6='4' AND V5 IN ('E','K') THEN DO; MM2=49040; CG=49053; RETURN; END; IF MY GE 2010 AND V8='K' AND V4='B' AND V6='3' AND V5 IN ('F','K') THEN DO; MM2=49040; CG=49053; RETURN; END; /* CAMRY 109.3 */ IF 2007 LE MY LE 2008 AND V8='3' AND V46='JT9' AND V1='J' THEN DO; MM2=49051; CG=49055; RETURN; END; IF MY=2009 AND V8='3' AND V46 IN ('JT9','KT9') AND V1='J' THEN DO; MM2=49051; CG=49055; RETURN; END; IF MY GE 2010 AND V8='3' AND V46 IN ('JT4','KT4') AND V1='J' THEN DO; MM2=49051; CG=49055; RETURN; END; /* YARIS 3HB or 5HB */ IF 2008 LE MY LE 2009 AND V8='4' AND V46='KU1' AND V13='JTK' THEN DO; MM2=49052; CG=49055; RETURN; END; IF MY GE 2010 AND V8='4' AND V46='KU4' AND V13='JTK' THEN DO; MM2=49052; CG=49055; RETURN; END; /* SCION xD 5HB */ IF 2007 LE MY LE 2009 AND V8='3' AND V46='BT9' AND V1='J' THEN DO; MM2=49051; CG=49056; RETURN; END; IF MY GE 2010 AND V8='3' AND V46='BT4' AND V1='J' THEN DO; MM2=49051; CG=49056; RETURN; END; /* YARIS 4SD */ IF 2007 LE MY LE 2009 AND V8='K' AND V46='BB4' THEN DO; MM2=49040; CG=49058; RETURN; END; IF MY GE 2010 AND V8='K' AND V46='BB3' THEN DO; MM2=49040; CG=49058; RETURN; END; /* CAMRY HYBRID */ CG=99999; MM2=99999; RETURN; TOYOTACV: IF 1984 LE MY LE 1985 AND V4='R' AND V5='A' AND V6='6' AND V7 IN ('3','4','5') AND V8='K' THEN DO; MM2=49033; CG=49011; RETURN; END; IF 1987 LE MY LE 1989 AND V5='T' AND V6='6' AND V4='S' AND V8='K' THEN DO; MM2=49033; CG=49024; RETURN; END; IF 1990 LE MY LE 1993 AND V5='T' AND V6='8' AND V4 IN ('A','S') AND V8='K' THEN DO; MM2=49033; CG=49024; RETURN; END; IF 1996 LE MY LE 1997 AND V1='J' AND V4='F' AND V5='C' AND V8='H' THEN DO; MM2=49042; CG=49025; RETURN; END; IF 1994 LE MY LE 1995 AND V4 IN ('A','S') AND V5='T' AND V6='0' AND V8='K' THEN DO; MM2=49033; CG=49033; RETURN; END; IF MY GE 1996 AND V4='F' AND V8='T' THEN DO; MM2=49033; CG=49033; RETURN; END; VOLVO: IF MY LE 2009 THEN V4=TRANSLATE(V4,'ZSGB','2568'); ELSE V7=TRANSLATE(V7,'ZSGB','2568'); IF 1981 LE MY LE 1986 AND V4='A' AND V5='X' AND V6 IN ('4','7','8') AND V8 IN ('2','4','5') THEN DO; MM2=51034; CG=51004; RETURN; END; IF 1987 LE MY LE 1991 AND V4='A' AND V5 IN ('A','X') AND V6 IN ('4','8') AND V8 IN ('2','4','5') THEN DO; MM2=51034; CG=51004; RETURN; END; IF 1992 LE MY LE 1993 AND V4='A' AND V5 IN ('S','W') AND V6 IN ('4','8') THEN DO; MM2=51034; CG=51004; RETURN; END; IF 1981 LE MY LE 1982 AND V4='B' AND V5='X' THEN DO; MM2=51035; CG=51004; RETURN; END; IF 1983 LE MY LE 1984 AND V4 IN ('D','G','H') AND V5='X' AND V8 IN ('2','4','5') THEN DO; MM2=51038; CG=51005; RETURN; END; IF MY=1985 AND V4 IN ('D','F','G') AND V5='X' AND V6 IN ('6','7','8') THEN DO; MMP=51030; CGP=51005; CG=51005; IF V4='G' THEN MM2=51038; ELSE IF V4='F' THEN MM2=51039; ELSE MM2=51030; RETURN; END; IF MY=1986 AND V4 IN ('D','G','H') AND V5='X' AND V6 IN ('6','7','8') AND V8 IN ('2','4','5') THEN DO; MM2=51038; CG=51005; RETURN; END; IF 1987 LE MY LE 1991 AND V4 IN ('D','G','H') AND V5 IN ('A','X') AND V6 IN ('6','7','8') AND V8 IN ('2','4','5') THEN DO; MM2=51038; CG=51005; RETURN; END; IF MY=1986 AND V4='F' AND V5='X' AND (V6='7' OR V6='8') AND V8 IN ('4','5') THEN DO; MM2=51039; CG=51005; RETURN; END; IF 1987 LE MY LE 1991 AND V4='F' AND V5 IN ('A','X') AND V6 IN ('7','8') AND V8 IN ('4','5') THEN DO; MM2=51039; CG=51005; RETURN; END; IF MY=1992 AND V4='F' AND V5 IN ('S','W') AND V6 IN ('7','8') THEN DO; MM2=51039; CG=51005; RETURN; END; IF MY=1991 AND V4 IN ('K','J') AND V5='A' AND V6='8' AND V8 IN ('4','5') THEN DO; MM2=51040; CG=51005; RETURN; END; IF 1992 LE MY LE 1995 AND V4='J' AND V5 IN ('S','W') AND V6='8' THEN DO; MM2=51040; CG=51005; RETURN; END; IF 1992 LE MY LE 1997 AND V4='K' AND V5 IN ('S','W') AND V6='9' THEN DO; MM2=51041; CG=51005; RETURN; END; IF MY=1998 AND V4='K' AND V5 IN ('S','W') THEN DO; MM2=51044; CG=51005; RETURN; END; IF 1993 LE MY LE 1997 AND V4='L' AND V5 IN ('S','W') AND V6='5' THEN DO; MM2=51042; CG=51006; RETURN; END; IF 1998 LE MY LE 2000 AND V4 IN ('L','N') THEN DO; MM2=51043; CG=51006; RETURN; END; IF 2001 LE MY LE 2004 AND V4='N' THEN DO; MM2=51043; CG=51006; RETURN; END; IF 1999 LE MY LE 2006 AND V4='T' THEN DO; MM2=51045; CG=51007; RETURN; END; /* S80 109.9 ends 2006 */ IF 2000 LE MY LE 2004 AND V4='V' THEN DO; MM2=51046; CG=51008; RETURN; END; IF 2001 LE MY LE 2009 AND V4='R' THEN DO; MM2=51047; CG=51009; RETURN; END; /* S60 107.0 ends 2009 */ IF 2001 LE MY LE 2007 AND V4='S' AND V5 IN ('J','W') THEN DO; MM2=51043; CG=51010; RETURN; END; /* V70 108.5 ends 2007 */ IF 2006 LE MY LE 2009 AND V4='M' AND V5='C' THEN DO; MM2=51043; CG=51011; RETURN; END; /* NOTE: IN 2010 VOLVO RECONFIGURED THE VIN, MOVING V45 INFO TO V78 */ IF MY GE 2010 AND V7='M' AND V8='C' THEN DO; MM2=51043; CG=51011; RETURN; END; /* C70 */ IF 2004 LE MY LE 2009 AND V4='M' AND V5 IN ('H','S') THEN DO; MM2=51046; CG=51011; RETURN; END; IF MY GE 2010 AND V7='M' AND V8 IN ('H','S') THEN DO; MM2=51046; CG=51011; RETURN; END; /* S40 */ IF 2005 LE MY LE 2009 AND V4='M' AND V5 IN ('J','W') THEN DO; MM2=51048; CG=51011; RETURN; END; IF MY=2010 AND V7='M' AND V8 IN ('J','W') THEN DO; MM2=51048; CG=51011; RETURN; END; IF MY GE 2011 AND V7='M' AND V8='W' THEN DO; MM2=51048; CG=51011; RETURN; END; /* V50 */ IF 2008 LE MY LE 2009 AND V4='M' AND V5='K' THEN DO; MM2=51049; CG=51011; RETURN; END; IF MY GE 2010 AND V7='M' AND V8='K' THEN DO; MM2=51049; CG=51011; RETURN; END; /* C30 */ IF 2007 LE MY LE 2009 AND V4='A' THEN DO; MM2=51045; CG=51012; RETURN; END; IF MY GE 2010 AND V7='A' THEN DO; MM2=51045; CG=51012; RETURN; END; /* S80 111.6 */ IF 2008 LE MY LE 2009 AND V4='B' AND V5 IN ('J','W') THEN DO; MM2=51043; CG=51013; RETURN; END; IF MY=2010 AND V4='B' AND V5='W' THEN DO; MM2=51043; CG=51013; RETURN; END; /* V70 110.8 ends 2010 */ IF MY GE 2011 AND V7='F' THEN DO; MM2=51047; CG=51014; RETURN; END; /* S60 109.3 */ CG=99999; MM2=99999; RETURN; MITS: V5=TRANSLATE(V5,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); V56=V5||V6; IF MY LE 2009 THEN V7=TRANSLATE(V7,'2568','ZSGB'); ELSE V7=TRANSLATE(V7,'ZSGB','2568'); IF 1985 LE MY LE 1988 AND V1='J' AND V5='A' AND V6 IN ('2','3','4') AND V7 IN ('4','6') THEN DO; MM2=52035; CG=52005; RETURN; END; IF 1987 LE MY LE 1989 AND V1='K' AND V2 IN ('M','P') AND V4='L' AND V5 IN ('A','D') THEN DO; MM2=52036; CG=52005; RETURN; END; IF 1983 LE MY LE 1989 AND V1='J' AND V5='C' AND V6 IN ('4','5') AND V7='4' THEN DO; MM2=52031; CG=52006; RETURN; END; IF 1983 LE MY LE 1987 AND V1='J' AND V5='F' AND V7='6' THEN DO; MM2=52032; CG=52007; RETURN; END; IF 1983 LE MY LE 1988 AND V1='J' AND V5='F' AND V7='4' THEN DO; MM2=52033; CG=52007; RETURN; END; IF 1985 LE MY LE 1988 AND V1='J' AND V56 IN ('B4','B5') AND V7='6' THEN DO; MM2=52034; CG=52009; RETURN; END; IF 1989 LE MY LE 1992 AND V1='J' AND V5 IN ('R','X') AND V6 IN ('4','5') AND V7='6' THEN DO; MM2=52034; CG=52009; RETURN; END; IF MY=1993 AND V1='J' AND V56 IN ('H4','H5') THEN DO; MM2=52034; CG=52009; RETURN; END; IF 1988 LE MY LE 1990 AND V1='J' AND V56='B4' AND V7='7' THEN DO; MM2=52038; CG=52009; RETURN; END; IF MY=1989 AND V1='J' AND V5='U' AND V7 IN ('4','6') THEN DO; MM2=52035; CG=52010; RETURN; END; IF 1990 LE MY LE 1992 AND V1 IN ('4','J') AND V5='U' AND V7='6' THEN DO; MM2=52035; CG=52010; RETURN; END; IF 1990 LE MY LE 1992 AND V1 IN ('4','J') AND V5='U' AND V7='4' THEN DO; MM2=52035; CG=52011; RETURN; END; IF 1990 LE MY LE 1992 AND V1 IN ('4','J') AND V5 IN ('S','T') AND V7='4' THEN DO; MM2=52037; CG=52012; RETURN; END; IF 1993 LE MY LE 1994 AND V1 IN ('4','J') AND V5 IN ('F','G') AND V7='4' THEN DO; MM2=52037; CG=52012; RETURN; END; IF 1991 LE MY LE 1992 AND V1='J' AND V5 IN ('D','E') AND V7='4' THEN DO; MM2=52039; CG=52013; RETURN; END; IF 1993 LE MY LE 1994 AND V1='J' AND V5 IN ('M','N') AND V7='4' THEN DO; MM2=52039; CG=52013; RETURN; END; IF 1995 LE MY LE 1997 AND V1='J' AND V5 IN ('M','N','V','W') AND V7 IN('4','5') THEN DO; MM2=52039; CG=52013; RETURN; END; IF 1998 LE MY LE 1999 AND V1='J' AND V5 IN ('M','N') AND V7='4' THEN DO; MM2=52039; CG=52013; RETURN; END; IF MY=1992 AND V1 IN ('4','J') AND V5 IN ('V','W') AND V7='0' THEN DO; MM2=52044; CG=52014; RETURN; END; IF 1993 LE MY LE 1994 AND V1='J' AND V5 IN ('B','C') AND V7='0' THEN DO; MM2=52044; CG=52014; RETURN; END; IF MY=1992 AND V5='C' AND V1='J' AND V7 IN ('7','9') THEN DO; MM2=52040; CG=52015; RETURN; END; IF 1993 LE MY LE 1994 AND V1='J' AND V5='P' AND V7 IN ('7','9') THEN DO; MM2=52040; CG=52015; RETURN; END; IF 1993 LE MY LE 1994 AND V1='6' AND V5='C' AND V7 IN ('7','9') THEN DO; MM2=52040; CG=52015; RETURN; END; IF 1995 LE MY LE 2004 AND V5='P' AND V1 IN ('6','J') AND V7 IN ('7','9') THEN DO; MM2=52040; CG=52015; RETURN; END; /* DIAMANTE ends 2004 */ IF MY=1992 AND V5 IN ('Y','Z') AND V1 IN ('4','J') AND V7='9' THEN DO; MM2=52045; CG=52015; RETURN; END; IF 1993 LE MY LE 1995 AND V5 IN ('D','E') AND V1 IN ('4','J') AND V7='9' THEN DO; MM2=52045; CG=52015; RETURN; END; IF 1993 LE MY LE 1996 AND V1='J' AND V5='A' AND V7='1' THEN DO; MM2=52035; CG=52016; RETURN; END; IF 1993 LE MY LE 1996 AND V1='J' AND V5='A' AND V7='6' THEN DO; MM2=52035; CG=52017; RETURN; END; IF 1997 LE MY LE 2001 AND V1='J' AND V5='Y' AND V7='6' THEN DO; MM2=52035; CG=52017; RETURN; END; IF 1994 LE MY LE 1998 AND V1 IN ('4','J') AND V56 IN ('J4','J5') AND V7='6' THEN DO; MM2=52034; CG=52018; RETURN; END; IF 1999 LE MY LE 2002 AND V56 IN ('A3','A4','A5') THEN DO; MM2=52034; CG=52018; RETURN; END; IF MY=2003 AND V56 IN ('A3','A4') THEN DO; MM2=52034; CG=52018; RETURN; END; IF 1995 LE MY LE 1999 AND V5 IN ('K','L','X') AND V7 IN ('4','5') THEN DO; MM2=52037; CG=52019; RETURN; END; IF 1997 LE MY LE 2002 AND V1='J' AND V5='Y' AND V7='1' THEN DO; MM2=52035; CG=52021; RETURN; END; IF 2000 LE MY LE 2005 AND V5='C' AND V7='4' THEN DO; MM2=52037; CG=52022; RETURN; END; IF 2001 LE MY LE 2005 AND V5='E' AND V7='5' THEN DO; MM2=52037; CG=52022; RETURN; END; IF 2002 LE MY LE 2003 AND V56 IN ('J2','J3','J8') AND V7='6' AND V1='J' THEN DO; MM2=52046; CG=52023; RETURN; END; IF MY=2004 AND V56 IN ('D2','D6') AND V7='9' AND V1='J' THEN DO; MM2=52046; CG=52023; RETURN; END; IF 2004 LE MY LE 2006 AND V56 IN ('J2','J3','J4','J6','J8') AND V7='6' AND V1='J' THEN DO; MM2=52046; CG=52023; RETURN; END; IF MY=2007 AND V56='J2' AND V7='6' AND V1='J' THEN DO; MM2=52046; CG=52023; RETURN; END; /* LANCER 102.4 ends 2007 */ IF 2004 LE MY LE 2008 AND V56 IN ('B2','B3','B4','B5','B7') AND V7='6' THEN DO; MM2=52034; CG=52024; RETURN; END; IF MY=2009 AND V56 IN ('B3','B4','B5','B6','B7') AND V7='6' THEN DO; MM2=52034; CG=52024; RETURN; END; IF MY GE 2010 AND V56 IN ('B2','B3') AND V7='F' THEN DO; MM2=52034; CG=52024; RETURN; END; /* GALANT */ IF MY=2006 AND V56 IN ('K2','K3','K4') AND V7='4' THEN DO; MM2=52037; CG=52025; RETURN; END; IF MY IN (2007,2008) AND V56 IN ('K2','K3','K6') AND V7='4' THEN DO; MM2=52037; CG=52025; RETURN; END; IF MY=2009 AND V56 IN ('K2','K3','K5') AND V7='4' THEN DO; MM2=52037; CG=52025; RETURN; END; IF MY=2010 AND V6 IN ('K2','K3','K5') AND V7='D' THEN DO; MM2=52037; CG=52025; RETURN; END; IF MY GE 2011 AND V56 IN ('K3','K5') AND V7='D' THEN DO; MM2=52037; CG=52025; RETURN; END; /* ECLIPSE 3HB */ IF MY IN (2007,2008) AND V56 IN ('L2','L3','L4') AND V7='5' THEN DO; MM2=52037; CG=52025; RETURN; END; IF MY=2009 AND V56 IN ('L2','L3') AND V7='5' THEN DO; MM2=52037; CG=52025; RETURN; END; IF MY=2010 AND V56 IN ('L2','L3') AND V7='E' THEN DO; MM2=52037; CG=52025; RETURN; END; IF MY GE 2011 AND V56 IN ('L3','L5') AND V7='E' THEN DO; MM2=52037; CG=52025; RETURN; END; /* ECLIPSE CV */ IF MY=2003 AND V56='H8' AND V7='6' AND V1='J' THEN DO; MM2=52046; CG=52026; RETURN; END; IF MY=2004 AND V56 IN ('H3','H8') AND V7='6' AND V1='J' THEN DO; MM2=52046; CG=52026; RETURN; END; IF 2005 LE MY LE 2006 AND V56 IN ('H3','H7','H8') AND V7='6' AND V1='J' THEN DO; MM2=52046; CG=52026; RETURN; END; /* LANCER EVOLUTION AWD 103.3 ends 2006 */ IF 2008 LE MY LE 2009 AND V56 IN ('U1','U2','U8') AND V7='6' AND V1='J' THEN DO; MM2=52046; CG=52027; RETURN; END; IF MY GE 2010 AND V56 IN ('U1','U2','U8') AND V7='F' AND V1='J' THEN DO; MM2=52046; CG=52027; RETURN; END; /* LANCER 103.7 */ IF MY=2009 AND V56='V6' AND V7='6' AND V1='J' THEN DO; MM2=52046; CG=52027; RETURN; END; IF MY GE 2010 AND V56='V6' AND V7='F' AND V1='J' THEN DO; MM2=52046; CG=52027; RETURN; END; /* also LANCER 103.7 (RAILLART) */ IF MY=2009 AND V56 IN ('X8','Y8') AND V7='9' AND V1='J' THEN DO; MM2=52046; CG=52027; RETURN; END; IF MY=2010 AND V56 IN ('X8','Y6') AND V7='H' AND V1='J' THEN DO; MM2=52046; CG=52027; RETURN; END; IF MY GE 2011 AND V56 IN ('X2','X8','Y6') AND V7='H' AND V1='J' THEN DO; MM2=52046; CG=52027; RETURN; END; /* also LANCER 103.7 (WAGON) */ IF 2008 LE MY LE 2009 AND V56 IN ('W5','W8') AND V7='6' AND V1='J' THEN DO; MM2=52046; CG=52028; RETURN; END; IF MY GE 2010 AND V56 IN ('W5','W6','W8') AND V7='F' AND V1='J' THEN DO; MM2=52046; CG=52028; RETURN; END; /* LANCER EVOLUTION AWD 104.3 */ IF 1990 LE MY LE 1994 AND V1='K' AND V2='P' AND V4='V' AND V5='D' THEN DO; MM2=52036; CG=55002; RETURN; END; CG=99999; MM2=99999; RETURN; SUZUKI: V13=V1||V2||V3; IF 1989 LE MY LE 1994 AND V4='A' AND V5 IN ('A','C') THEN DO; MM2=53031; CG=53003; RETURN; END; IF 1989 LE MY LE 1994 AND V4='A' AND V5 IN ('B','D','E','H') THEN DO; MM2=53031; CG=53004; RETURN; END; IF 1995 LE MY LE 2001 AND V5='B' AND V4='A' THEN DO; MM2=53031; CG=53004; RETURN; END; IF 1995 LE MY LE 2002 AND V1='J' AND V4='G' THEN DO; MM2=53032; CG=53005; RETURN; END; IF 2002 LE MY LE 2007 AND V1='J' AND V4='R' THEN DO; MM2=53033; CG=53005; RETURN; END; /* AERIO ends 2007 */ IF 2004 LE MY LE 2008 AND V13='KL5' AND V4='J' AND V5 IN ('D','J') AND V6='5' THEN DO; MM2=53034; CG=64004; RETURN; END; /* FORENZA 4SD ends 2008 */ IF 2005 LE MY LE 2008 AND V13='KL5' AND V4='J' AND V5 IN ('D','J') AND V6='8' THEN DO; MM2=53034; CG=64004; RETURN; END; /* FORENZA SW ends 2008 */ IF 2005 LE MY LE 2008 AND V13='KL5' AND V4='J' AND V5 IN ('D','J') AND V6='6' THEN DO; MM2=53036; CG=64004; RETURN; END; /* RENO ends 2008 */ IF 2004 LE MY LE 2006 AND V13='KL5' AND V4='V' AND V5 IN ('J','M') THEN DO; MM2=53035; CG=64005; RETURN; END; /* VERONA ends 2006 */ IF MY=2007 AND V13='JS2' AND V4='Y' AND V5 IN ('A','B') THEN DO; MM2=53040; CG=53006; RETURN; END; IF MY GE 2008 AND V13='JS2' AND V4='Y' AND V5 IN ('A','B','C') THEN DO; MM2=53040; CG=53006; RETURN; END; /* SX4 */ IF MY GE 2010 AND V4='R' AND V5 IN ('E','F') THEN DO; MM2=53041; CG=53007; RETURN; END; /* KIZASHI */ CG=99999; MM2=99999; RETURN; ACURA: V4=TRANSLATE(V4,'ZSGB','2568'); V5=TRANSLATE(V5,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); V8=TRANSLATE(V8,'2568','ZSGB'); V45=V4||V5; V46=V45||V6; IF 1986 LE MY LE 1989 AND V46='DA3' THEN DO; MM2=54031; CG=37007; RETURN; END; IF 1990 LE MY LE 1993 AND V46='DB1' THEN DO; MM2=54031; CG=37010; RETURN; END; IF 1986 LE MY LE 1990 AND V46 IN ('KA2','KA4') THEN DO; MM2=54032; CG=37011; RETURN; END; IF 1986 LE MY LE 1989 AND V46='DA1' THEN DO; MM2=54031; CG=37012; RETURN; END; IF 1987 LE MY LE 1990 AND V46='KA3' THEN DO; MM2=54032; CG=37013; RETURN; END; IF 1990 LE MY LE 1993 AND V46 IN ('DA9','DB2') THEN DO; MM2=54031; CG=37017; RETURN; END; IF 1991 LE MY LE 1996 AND V46='NA1' THEN DO; MM2=54033; CG=37019; RETURN; END; IF 1997 LE MY LE 2005 AND V46 IN ('NA1','NA2') THEN DO; MM2=54033; CG=37019; RETURN; END; /* NSX ends 2005 */ IF 1991 LE MY LE 1995 AND V46='KA8' THEN DO; MM2=54032; CG=37020; RETURN; END; IF 1991 LE MY LE 1995 AND V46='KA7' THEN DO; MM2=54032; CG=37021; RETURN; END; IF 1994 LE MY LE 2001 AND V46 IN ('DC2','DC4') THEN DO; MM2=54031; CG=37022; RETURN; END; IF MY=1998 AND V46 IN ('DC3') THEN DO; MM2=54031; CG=37023; RETURN; END; IF 1994 LE MY LE 2001 AND V46 IN ('DB7','DB8') THEN DO; MM2=54031; CG=37023; RETURN; END; IF 1992 LE MY LE 1994 AND V46='CC2' THEN DO; MM2=54034; CG=37024; RETURN; END; IF MY=1997 AND V46 IN ('YA1','YA2') THEN DO; MM2=54037; CG=37026; RETURN; END; IF 1998 LE MY LE 1999 AND V46 IN ('YA2','YA3') THEN DO; MM2=54037; CG=37026; RETURN; END; IF 2001 LE MY LE 2003 AND V46='YA4' THEN DO; MM2=54037; CG=37026; RETURN; END; IF 1995 LE MY LE 1998 AND V1='J' AND V46 IN ('UA2','UA3') THEN DO; MM2=54035; CG=37027; RETURN; END; IF 1996 LE MY LE 2004 AND V1='J' AND V46='KA9' THEN DO; MM2=54036; CG=37028; RETURN; END; IF 1999 LE MY LE 2003 AND V46='UA5' THEN DO; MM2=54035; CG=37032; RETURN; END; IF 2002 LE MY LE 2006 AND V46='DC5' THEN DO; MM2=54038; CG=37035; RETURN; END; /* RSX ends 2006*/ IF 2004 LE MY LE 2006 AND V46 IN ('UA6','US6') THEN DO; MM2=54035; CG=37036; RETURN; END; IF 2007 LE MY LE 2008 AND V46 IN ('UA6','UA7') THEN DO; MM2=54035; CG=37036; RETURN; END; /* TL 107.9 ends 2008 */ IF 2004 LE MY LE 2008 AND V46='CL9' THEN DO; MM2=54039; CG=37030; RETURN; END; /* TSX 105.1 ends 2008 */ IF 2005 LE MY LE 2008 AND V1='J' AND V46='KB1' THEN DO; MM2=54036; CG=37039; RETURN; END; IF MY GE 2009 AND V1='J' AND V46='KB2' THEN DO; MM2=54036; CG=37039; RETURN; END; /* RL */ IF MY=2009 AND V46='CU2' THEN DO; MM2=54039; CG=37045; RETURN; END; IF MY=2010 AND V46 IN ('CU2','CU4') THEN DO; MM2=54039; CG=37045; RETURN; END; IF MY GE 2011 AND V46 IN ('CU2','CU4','CW2') THEN DO; MM2=54039; CG=37045; RETURN; END; /* TSX 106.6 */ IF MY GE 2009 AND V46 IN ('UA8','UA9') THEN DO; MM2=54035; CG=37046; RETURN; END; /* TL 109.3 */ CG=99999; MM2=99999; RETURN; HYUNDAI: V6=TRANSLATE(V6,'2568','ZSGB'); IF 1986 LE MY LE 1989 AND V1='K' AND V4='L' AND V5 IN ('A','D','F') AND V6 IN ('1','2','3') THEN DO; MM2=55032; CG=52005; RETURN; END; IF 1989 LE MY LE 1994 AND V1 IN ('2','K') AND V4='B' AND V5='F' AND V6 IN ('2','3') THEN DO; MM2=55033; CG=55001; RETURN; END; IF 1990 LE MY LE 1994 AND V1='K' AND V4='V' AND V5 IN ('D','F') AND V6 IN ('1','2','3') THEN DO; MM2=55032; CG=55002; RETURN; END; IF 1991 LE MY LE 1995 AND V1='K' AND V4='V' AND V5='E' AND V6 IN ('2','3') THEN DO; MM2=55034; CG=55002; RETURN; END; IF 1992 LE MY LE 1995 AND V1='K' AND V4='J' AND V5='F' AND V6 IN ('2','3') THEN DO; MM2=55035; CG=55003; RETURN; END; IF 1995 LE MY LE 1999 AND V1='K' AND V4='V' AND V5 IN ('D','F') AND V6 IN ('1','2','3') THEN DO; MM2=55036; CG=55004; RETURN; END; IF 1995 LE MY LE 1998 AND V1='K' AND V4='C' AND V5='F' AND V6 IN ('2','3') THEN DO; MM2=55033; CG=55005; RETURN; END; IF 1999 LE MY LE 2005 AND V4='W' THEN DO; MM2=55033; CG=55005; RETURN; END; IF 1996 LE MY LE 2000 AND V1='K' AND V4='J' AND V5 IN ('F','W') AND V6 IN ('2','3') THEN DO; MM2=55035; CG=55006; RETURN; END; IF 1997 LE MY LE 2001 AND V4='J' AND V5='G' THEN DO; MM2=55037; CG=55007; RETURN; END; IF 2000 LE MY LE 2005 AND V4='C' THEN DO; MM2=55036; CG=55008; RETURN; END; IF 2001 LE MY LE 2005 AND V4='D' THEN DO; MM2=55035; CG=55009; RETURN; END; IF MY = 2006 AND V4='D' AND V5='N' AND V1='K' THEN DO; MM2=55035; CG=55009; RETURN; END; /* ELANTRA ends 2006 */ IF 2001 LE MY LE 2005 AND V4='F' THEN DO; MM2=55038; CG=55010; RETURN; END; /* XG350 ends 2005 */ IF 2002 LE MY LE 2005 AND V4='H' THEN DO; MM2=55037; CG=55011; RETURN; END; IF 2006 LE MY LE 2008 AND V4='H' AND V5 IN ('M','N') AND V1='K' THEN DO; MM2=55037; CG=55011; RETURN; END; /* TIBURON ends 2008 */ IF MY=2006 AND V4='C' AND V5 IN ('G','N') AND V1='K' THEN DO; MM2=55036; CG=55012; RETURN; END; IF MY GE 2007 AND V4='C' AND V5 IN ('M','N') AND V1='K' THEN DO; MM2=55036; CG=55012; RETURN; END; /* ACCENT */ IF 2006 LE MY LE 2010 AND V4='E' AND V5 IN ('T','U') THEN DO; MM2=55033; CG=55013; RETURN; END; /* SONATA 107.4 remodeled 2011 */ IF MY GE 2006 AND V4='F' AND V5='C' AND V1='K' THEN DO; MM2=55039; CG=55014; RETURN; END; /* AZERA */ IF MY IN (2007,2008,2010) AND V4='D' AND V5='U' AND V1='K' THEN DO; MM2=55035; CG=55015; RETURN; END; IF MY=2009 AND V4='D' AND V5 IN ('C','U') AND V1='K' THEN DO; MM2=55035; CG=55015; RETURN; END; /* ELANTRA 104.3 remodeled 2010-2011 */ IF MY GE 2009 AND V4='G' AND V5='C' AND V1='K' THEN DO; MM2=55041; CG=55016; RETURN; END; /* GENESIS 4SD 115.6 */ IF MY=2010 AND V4='D' AND V5 IN ('B','C') AND V1='K' THEN DO; MM2=55035; CG=55017; RETURN; END; IF MY GE 2011 AND V4='D' AND V5 IN ('B','C','H') THEN DO; MM2=55035; CG=55017; RETURN; END; /* ELANTRA 106.3 */ IF MY GE 2010 AND V4='H' AND V5 IN ('T','U') THEN DO; MM2=55041; CG=55019; RETURN; END; /* GENESIS 2CP 111.0 */ IF MY GE 2011 AND V4='E' AND V5 IN ('B','C') THEN DO; MM2=55033; CG=55020; RETURN; END; /* SONATA 110.0 */ IF MY GE 2011 AND V4='G' AND V5='H' THEN DO; MM2=55040; CG=55021; RETURN; END; /* EQUUS */ CG=99999; MM2=99999; RETURN; MERKUR: V6=TRANSLATE(V6,'2568','ZSGB'); IF V4='8' THEN V4='B'; V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); IF 1985 LE MY LE 1989 AND V5 IN ('P','T') AND V=80 THEN DO; MM2=56031; CG=56003; RETURN; END; IF 1988 LE MY LE 1989 AND V5='T' AND V=81 THEN DO; MM2=56032; CG=56004; RETURN; END; MM2=99999; CG=99999; RETURN; YUGO: IF 1986 LE MY LE 1991 AND V4='B' AND V6='1' THEN DO; MM2=57031; CG=57001; RETURN; END; INFINITI: V5=TRANSLATE(V5,'ZSGB','2568'); V4=TRANSLATE(V4,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'2568','ZSGB'); IF V8='5' THEN V8='S'; IF 1991 LE MY LE 1996 AND V5='P' AND V4='C' THEN DO; MM2=58033; CG=35022; RETURN; END; IF 1990 LE MY LE 1992 AND V5='F' AND V4='H' THEN DO; MM2=58031; CG=35029; RETURN; END; IF 1990 LE MY LE 1996 AND V5='G' AND V4='N' THEN DO; MM2=58032; CG=35030; RETURN; END; IF 1993 LE MY LE 1997 AND V5='Y' AND V4='A' THEN DO; MM2=58034; CG=35033; RETURN; END; IF 1996 LE MY LE 1999 AND V4='C' AND V5='A' THEN DO; MM2=58035; CG=35034; RETURN; END; IF 1997 LE MY LE 2001 AND V4='B' AND V5='Y' AND V6='3' THEN DO; MM2=58032; CG=35037; RETURN; END; IF 1999 LE MY LE 2002 AND V5='P' AND V6='1' THEN DO; MM2=58033; CG=35038; RETURN; END; IF 2000 LE MY LE 2001 AND V4='C' AND V5='A' AND V6='3' THEN DO; MM2=58035; CG=35039; RETURN; END; IF 2002 LE MY LE 2004 AND V4='D' AND V5='A' AND V6='3' THEN DO; MM2=58036; CG=35039; RETURN; END; /* I35 ends 2004 */ IF 2003 LE MY LE 2004 AND V5='Y' AND V6='4' THEN DO; MM2=58038; CG=35040; RETURN; END; /* M45 ends 2004 */ IF 2002 LE MY LE 2006 AND V4='B' AND V5='F' AND V6='0' THEN DO; MM2=58032; CG=35041; RETURN; END; /* Q45 ends 2006 */ IF 2003 LE MY LE 2006 AND V5='V' AND V6='5' THEN DO; MM2=58037; CG=35043; RETURN; END; IF MY=2007 AND V5='V' AND V6 IN ('5','6') THEN DO; MM2=58037; CG=35043; RETURN; END; IF MY GE 2008 AND V5='V' AND V6='6' THEN DO; MM2=58037; CG=35043; RETURN; END; /* G35 */ IF 2006 LE MY LE 2010 AND V5='Y' AND V6='0' THEN DO; MM2=58038; CG=35045; RETURN; END; /* M35,M45 refreshed in 2011 */ IF MY GE 2011 AND V5='Y' AND V6='1' THEN DO; MM2=58038; CG=35045; RETURN; END; /* M37,M56 */ CG=99999; MM2=99999; RETURN; LEXUS: V5=TRANSLATE(V5,'ZSGB','2568'); V4=TRANSLATE(V4,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); V46=V4||V5||V6; IF 1990 LE MY LE 1991 AND V5='V' AND V4='V' THEN DO; MM2=59031; CG=49020; RETURN; END; IF 1990 LE MY LE 1994 AND V5='F' AND V4='U' AND V6='1' THEN DO; MM2=59032; CG=49026; RETURN; END; IF 1992 LE MY LE 1995 AND V5='K' AND V4 IN ('G','V') THEN DO; MM2=59031; CG=49028; RETURN; END; IF MY=1996 AND V4='B' AND V5='F' AND V6='1' THEN DO; MM2=59031; CG=49028; RETURN; END; IF 1992 LE MY LE 1995 AND V5='Z' AND V6='3' AND V4 IN ('J','U') THEN DO; MM2=59033; CG=49029; RETURN; END; IF 1996 LE MY LE 2000 AND V4='C' AND V5 IN ('D','H') AND V6='3' THEN DO; MM2=59033; CG=49029; RETURN; END; IF 1993 LE MY LE 1995 AND V5='S' AND V6='4' THEN DO; MM2=59034; CG=49032; RETURN; END; IF 1996 LE MY LE 1997 AND V46='BD4' THEN DO; MM2=59034; CG=49032; RETURN; END; IF MY=1995 AND V46='UF2' THEN DO; MM2=59032; CG=49034; RETURN; END; IF 1996 LE MY LE 2000 AND V46='BH2' THEN DO; MM2=59032; CG=49034; RETURN; END; IF 2002 LE MY LE 2003 AND V8='G' AND V46='BF3' THEN DO; MM2=59031; CG=49035; RETURN; END; IF 2004 LE MY LE 2006 AND V8='G' AND V46='BA3' THEN DO; MM2=59031; CG=49035; RETURN; END; /* ES-300 */ IF 1997 LE MY LE 2001 AND V4='B' AND V5='F' AND V6='2' THEN DO; MM2=59031; CG=49036; RETURN; END; IF 1998 LE MY LE 2000 AND V46 IN ('BD6','BH6') THEN DO; MM2=59034; CG=49038; RETURN; END; IF 2001 LE MY LE 2005 AND V8='S' AND V46 IN ('BD6','BL6') THEN DO; MM2=59034; CG=49038; RETURN; END; IF 2001 LE MY LE 2006 AND V8='F' AND V46='BN3' THEN DO; MM2=59032; CG=49043; RETURN; END; /* LS-430 ends 2006 */ IF 2002 LE MY LE 2010 AND V8='Y' AND V46='FN4' THEN DO; MM2=59036; CG=49044; RETURN; END; /* SC-430 ends 2010 */ IF 2001 LE MY LE 2005 AND V8='2' AND V46 IN ('BD1','ED1') THEN DO; MM2=59035; CG=49045; RETURN; END; IF MY GE 2011 AND V8='H' AND V46='KD5' THEN DO; MM2=59038; CG=49046; RETURN; END; /* CT */ IF MY GE 2010 AND V8='A' AND V46='BB1' THEN DO; MM2=59037; CG=49047; RETURN; END; /* HS */ IF 2006 LE MY LE 2009 AND V8='2' AND V6='2' THEN DO; MM2=59035; CG=49051; RETURN; END; IF MY GE 2010 AND V8='2' AND V6 IN ('2','5') THEN DO; MM2=59035; CG=49051; RETURN; END; /* IS-250,350 */ IF 2006 LE MY LE 2009 AND V8='S' AND V6='9' THEN DO; MM2=59034; CG=49052; RETURN; END; IF MY GE 2010 AND V8='S' AND V6 IN ('1','5') THEN DO; MM2=59034; CG=49052; RETURN; END; /* GS-300,430 */ IF 2007 LE MY LE 2009 AND V8='G' AND V46='BJ4' THEN DO; MM2=59031; CG=49053; RETURN; END; IF MY GE 2010 AND V8='G' AND V46='BK1' THEN DO; MM2=59031; CG=49053; RETURN; END; /* ES-350 */ IF MY IN (2007,2008) AND V8='F' AND V46 IN ('BL4') THEN DO; MM2=59032; CG=49054; RETURN; END; IF MY=2009 AND V8='F' AND V46 IN ('BL4','CL4','DL4') THEN DO; MM2=59032; CG=49054; RETURN; END; IF MY GE 2010 AND V8='F' AND V46 IN ('BL1','BL5','CL1','CL5') THEN DO; MM2=59032; CG=49054; RETURN; END; /* LS-460 */ IF MY=2007 AND V8='F' AND V46 IN ('GL4') THEN DO; MM2=59032; CG=49057; RETURN; END; IF 2008 LE MY LE 2009 AND V8='F' AND V46 IN ('GL4','DU4') THEN DO; MM2=59032; CG=49057; RETURN; END; IF MY GE 2010 AND V8='F' AND V46 IN ('DL1','DL5','GL1','GL5','DU1','DU5') THEN DO; MM2=59032; CG=49057; RETURN; END; /* LS-460,LS-600 LONG WB */ CG=99999; MM2=99999; RETURN; DAIHATSU: IF 1988 LE MY LE 1992 AND V4 IN ('E','F','H','J') AND V5='G' AND V6='1' THEN DO; MM2=60031; CG=60001; RETURN; END; CG=99999; MM2=99999; RETURN; STERLING: IF 1987 LE MY LE 1991 AND V4='X' AND V5='S' THEN DO; MM2=61031; CG=37011; RETURN; END; CG=99999; MM2=99999; RETURN; KIA: V4=TRANSLATE(V4,'ZSGB','2568'); 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 2001 LE MY LE 2006 AND V45='GD' THEN DO; MM2=63034; CG=55005; RETURN; END; /* OPTIMA 106.3 ends 2006 */ IF 2006 LE MY LE 2009 AND V45='DE' THEN DO; MM2=63032; CG=55012; RETURN; END; IF MY GE 2010 AND V4='D' AND V6 IN ('4','5') THEN DO; MM2=63032; CG=55012; RETURN; END; /* RIO */ IF MY GE 2010 AND V4='F' THEN DO; MM2=63038; CG=55015; RETURN; END; /* FORTE */ IF 2007 LE MY LE 2009 AND V45='FG' THEN DO; MM2=63036; CG=55017; RETURN; END; IF MY GE 2010 AND V4='H' THEN DO; MM2=63036; CG=55017; RETURN; END; /* RONDO */ IF MY GE 2010 AND V4='J' AND V1='K' AND V2='N' AND V3='D' THEN DO; MM2=63037; CG=55018; RETURN; END; /* SOUL has an LTV VIN but is a car */ IF MY GE 2011 AND V4='G' THEN DO; MM2=63034; CG=55020; RETURN; END; /* OPTIMA 110.0 */ IF 1993 LE MY LE 1997 AND V45='FA' AND V=12 THEN DO; MM2=63031; CG=63002; RETURN; END; IF 1998 LE MY LE 2001 AND V45='FB' AND V=12 THEN DO; MM2=63031; CG=63005; RETURN; END; IF 2000 LE MY LE 2001 AND V45='FB' AND V=16 THEN DO; MM2=63033; CG=63005; RETURN; END; IF 2002 LE MY LE 2004 AND V45='FB' THEN DO; MM2=63033; CG=63005; RETURN; END; IF 2001 LE MY LE 2005 AND V45='DC' THEN DO; MM2=63032; CG=63006; RETURN; END; IF 2004 LE MY LE 2009 AND V45='LD' THEN DO; MM2=63035; CG=63007; RETURN; END; /* AMANTI ends 2009 */ IF 2004 LE MY LE 2009 AND V45='FE' THEN DO; MM2=63033; CG=63008; RETURN; END; /* SPECTRA ends 2009 */ IF 2006 LE MY LE 2009 AND V45='GE' THEN DO; MM2=63034; CG=63009; RETURN; END; IF MY=2010 AND V4='G' THEN DO; MM2=63034; CG=63009; RETURN; END; /* OPTIMA 107.1 ends 2010 */ CG=99999; MM2=99999; RETURN; DAEWOO: IF 1998 LE MY LE 2002 AND V4='T' THEN DO; MM2=64031; CG=64001; RETURN; END; IF 1998 LE MY LE 2002 AND V4='J' THEN DO; MM2=64032; CG=64002; RETURN; END; IF 1998 LE MY LE 2002 AND V4='V' THEN DO; MM2=64033; CG=64003; RETURN; END; CG=99999; MM2=99999; RETURN; SMART: IF MY GE 2008 AND V4='E' AND V5 IN ('J','K') THEN DO; MM2=65031; CG=65001; RETURN; END; /* SMART FORTWO */ CG=99999; MM2=99999; RETURN; RUN;