OPTION NOCENTER NOFMTERR OBS=5000000 LS=160 PAGESIZE=89; /* 03CarImp2007.SAS VIN ANALYSIS FOR 1981-2007 IMPORTED PASSENGER CARS */ /* UPDATED: 12/16/2010 */ DATA IMPCAR2(DROP=V V78 V45 V46 V67 V47 V56 V13); SET IMPCAR1; IF 30 LE MAK2 LE 64; 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; CG=99999; MM2=99999; RETURN; VW: V4=TRANSLATE(V4,'ZSGB','2568'); V7=TRANSLATE(V7,'2568','ZSGB'); 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 MY GE 1998 AND V78='1C' AND V1='3' THEN DO; MM2=30047; CG=30010; RETURN; END; /* NEW BEETLE 2HB */ IF MY GE 2003 AND V78='1Y' 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 */ IF MY GE 2006 AND V78='1K' AND V1='W' AND V4 IN ('A','B','C','D') THEN DO; MM2=30036; CG=30012; RETURN; END; /* RABBIT */ IF MY=2005 AND V78='1K' THEN DO; MM2=30040; CG=30012; RETURN; END; IF MY GE 2006 AND V78='1K' AND V1='3' THEN DO; MM2=30040; CG=30012; RETURN; END; /* JETTA */ IF MY = 2006 AND V78='1K' AND V1='W' AND V4 IN ('E','F') THEN DO; MM2=30042; CG=30012; RETURN; END; IF MY GE 2007 AND V78='1K' AND V1='W' AND V4 IN ('E','F','G','H') THEN DO; MM2=30042; CG=30012; RETURN; END; /* NEW GTI */ IF MY GE 2006 AND V78='3C' THEN DO; MM2=30046; CG=30013; RETURN; END; /* PASSAT */ IF MY GE 2007 AND V78='1F' THEN DO; MM2=30051; CG=30012; RETURN; END; /* EOS */ CG=99999; MM2=99999; RETURN; AUDI: V7=TRANSLATE(V7,'2568','ZSGB'); 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 */ 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 MY GE 2006 AND V78='8E' AND V4 IN ('G','U') THEN DO; MM2=32040; CG=32013; RETURN; END; /* S4 NOT CV */ IF MY GE 2007 AND V78='8E' AND V4='R' THEN DO; MM2=32040; CG=32013; RETURN; END; /* RS4 (included with S4) */ IF MY GE 2004 AND V78='8H' AND V4='R' THEN DO; MM2=32040; CG=32013; RETURN; END; /* S4 2CV */ 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 MY GE 2006 AND V78='8E' AND V4 IN ('A','B','D','E','K','S') THEN DO; MM2=32043; CG=32013; RETURN; END; /* A4 NOT CV */ IF 2004 LE MY LE 2005 AND V78='8H' AND V4 IN ('A','D') THEN DO; MM2=32043; CG=32013; RETURN; END; IF MY GE 2006 AND V78='8H' AND V4 IN ('A','B','D') THEN DO; MM2=32043; CG=32013; RETURN; END; /* A4 2CV */ IF MY=2004 AND V78='4E' THEN DO; MM2=32044; CG=32014; RETURN; END; IF MY GE 2005 AND V78='4E' AND V4='M' THEN DO; MM2=32044; CG=32014; RETURN; END; /* A8L */ IF 2005 LE MY LE 2006 AND V78='4F' THEN DO; MM2=32042; CG=32015; RETURN; END; IF MY GE 2007 AND V78='4F' AND V4 NE 'G' THEN DO; MM2=32042; CG=32015; RETURN; END; /* A6 */ IF MY GE 2007 AND V78='4F' AND V4='G' THEN DO; MM2=32042; CG=32015; RETURN; END; /* S6 */ IF 2005 LE MY LE 2006 AND V78='4E' AND V4='L' THEN DO; MM2=32044; CG=32016; RETURN; END; IF MY GE 2007 AND V78='4E' AND V4 IN ('L') THEN DO; MM2=32044; CG=32016; RETURN; END; /* A8 */ IF MY GE 2007 AND V78='4E' AND V4 IN ('P') THEN DO; MM2=32046; CG=32016; RETURN; END; /* S8 */ IF MY GE 2006 AND V78='8P' THEN DO; MM2=32048; CG=32017; RETURN; END; /* A3 */ 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 MY GE 2007 AND V45 IN ('MF','RF','RH') THEN DO; MM2=33035; CG=34023; RETURN; END; /* MINI-COOPER */ 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 MY GE 2006 AND V45='HL' THEN DO; MM2=34037; CG=34021; RETURN; END; /* 750i */ IF 2002 LE MY LE 2005 AND V45='GN' THEN DO; MM2=34037; CG=34022; RETURN; END; IF MY GE 2006 AND V45='HN' THEN DO; MM2=34037; CG=34022; RETURN; END; /* 750iL */ 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 */ IF 2004 LE MY LE 2005 AND V45 IN ('NA','NB') THEN DO; MM2=34035; CG=34025; RETURN; END; IF MY GE 2006 AND V45 IN ('NB','NE','NF','NN') THEN DO; MM2=34035; CG=34025; RETURN; END; /* 500i */ IF MY GE 2004 AND V45 IN ('EH','EK') THEN DO; MM2=34036; CG=34026; RETURN; END; /* 645/650i */ IF MY = 2006 AND V45 IN ('VB','VD','VT') THEN DO; MM2=34034; CG=34027; RETURN; END; /* 300 4DR */ IF MY GE 2007 AND V45 IN ('VA','VB','VC','VD','VS','VT') THEN DO; MM2=34034; CG=34027; RETURN; END; /* 300 4DR */ IF MY GE 2007 AND V45 IN ('WB','WC','WL','WR','WV') THEN DO; MM2=34034; CG=34027; RETURN; END; /* 300 2DR */ CG=99999; MM2=99999; RETURN; NISSAN: 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 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 */ IF MY GE 2007 AND V5='B' AND V6 = '6' AND V7='1' THEN DO; MM2=35043; CG=35046; RETURN; END; /* SENTRA */ 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 */ IF MY GE 2007 AND V5='L' AND V6 IN ('1','2') AND V7 IN ('1','4') THEN DO; MM2=35047; CG=35048; RETURN; END; /* ALTIMA */ IF MY GE 2003 AND V5='Z' AND V6='3' THEN DO; MM2=35048; CG=35042; RETURN; END; /* 350Z */ IF MY GE 2004 AND V5='A' AND V6='4' THEN DO; MM2=35039; CG=35044; RETURN; END; /* MAXIMA */ IF MY GE 2007 AND V5='C' AND V6='1' AND V7 IN ('1','3') THEN DO; MM2=35050; CG=35047; RETURN; END; /* VERSA */ 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; MMP=99999; CGP=99999; 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; MMP=99999; CGP=99999; 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 MY GE 2003 AND V46 IN ('CM7','CM8') THEN DO; MM2=37032; CG=37030; RETURN; END; /* ACCORD 2DR */ IF 1998 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 MY GE 2004 AND V46='AP2' THEN DO; MM2=37035; CG=37033; RETURN; END; /* S2000 */ IF 2000 LE MY LE 2006 AND V46='ZE1' THEN DO; MM2=37037; CG=37034; RETURN; END; /* INSIGHT 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 MY GE 2003 AND V46 IN ('CM5','CM6') THEN DO; MM2=37032; CG=37036; RETURN; END; /* ACCORD 4DR */ IF 2003 LE MY LE 2005 AND V46='ES9' THEN DO; MM2=37031; CG=37037; RETURN; END; IF MY GE 2005 AND V46='CN3' THEN DO; MM2=37032; CG=37038; RETURN; END; /* ACCORD HYBRID */ 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 MY GE 2007 AND V46='GD3' THEN DO; MM2=37039; CG=37043; RETURN; END; /* FIT 5HB */ 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 MY=1990 AND V4='R' AND V5='T' AND V6='5' THEN DO; MM2=38033; CG=38004; MMP=99999; CGP=99999; RETURN; END; IF 1991 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 MY GE 2006 AND V6='0' AND V7 IN ('1','3') THEN DO; MM2=39034; CG=12041; RETURN; END; /* S-TYPE */ 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 MY GE 2006 AND V67 IN ('51','54') THEN DO; MM2=39036; CG=39007; RETURN; END; /* X-TYPE */ IF MY=2004 AND V67 IN ('71','73','74') THEN DO; MM2=39032; CG=39008; RETURN; END; IF MY GE 2005 AND V67 IN ('71','73') THEN DO; MM2=39032; CG=39008; RETURN; END; /* XJ SEDAN */ IF MY GE 2005 AND V67 IN ('79','82','86') THEN DO; MM2=39032; CG=39009; RETURN; END; /* XJ LWB SEDAN */ IF MY GE 2007 AND V67 IN ('43','44') 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'); V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); V45=V4||V5; IF 1981 LE MY LE 1983 AND V4='B' AND V5='D' AND V=52 THEN DO; MM2=41035; CG=41006; RETURN; END; IF 1981 LE MY LE 1985 AND V4='F' AND V5='B' AND V=33 THEN DO; MM2=41034; CG=41007; RETURN; END; IF 1981 LE MY LE 1982 AND V4='G' AND V5='B' AND V IN (22,41) THEN DO; MM2=41037; CG=41008; RETURN; END; IF 1981 LE MY LE 1985 AND V4='B' AND V5='D' AND V IN (22,23,24) THEN DO; MM2=41035; CG=41009; RETURN; END; IF 1984 LE MY LE 1986 AND V4='B' AND V5='D' AND V=52 THEN DO; MM2=41035; CG=41009; RETURN; END; IF 1983 LE MY LE 1987 AND V4='G' AND V5='C' AND V IN (22,24,31) THEN DO; MM2=41037; CG=41010; RETURN; END; IF 1986 LE MY LE 1989 AND V1='J' AND V4='B' AND V5='F' AND V IN (22,23) THEN DO; MM2=41035; CG=41011; RETURN; END; IF 1987 LE MY LE 1988 AND V1='J' AND V4='B' AND V5='W' AND V=62 THEN DO; MM2=41035; CG=41011; RETURN; END; IF 1986 LE MY LE 1991 AND V1='J' AND V4='F' AND V5='C' AND V IN (33,35) THEN DO; MM2=41034; CG=41012; RETURN; END; IF 1988 LE MY LE 1992 AND V4='G' AND V5='D' AND V IN (22,24) THEN DO; MM2=41037; CG=41013; RETURN; END; IF 1988 LE MY LE 1991 AND V1='J' AND V4='H' AND V5='C' AND V=22 THEN DO; MM2=41043; CG=41014; RETURN; END; IF 1988 LE MY LE 1992 AND V4='G' AND V5='D' AND V=31 THEN DO; MM2=41044; CG=41015; RETURN; END; IF 1990 LE MY LE 1994 AND V1='J' AND V4='B' AND V5='G' AND V=23 THEN DO; MM2=41035; CG=41016; RETURN; END; IF 1990 LE MY LE 1994 AND V1='J' AND V4='B' AND V5='G' AND V=22 THEN DO; MM2=41035; CG=41017; RETURN; END; IF 1990 LE MY LE 1997 AND V1='J' AND V4='N' AND V5='A' AND V=35 THEN DO; MM2=41045; CG=41018; RETURN; END; IF 1998 LE MY LE 2005 AND V1='J' AND V4='N' AND V5='B' AND V=35 THEN DO; MM2=41045; CG=41018; RETURN; END; /* MIATA ends 2005 */ IF 1992 LE MY LE 1995 AND V1='J' AND V4='E' AND V5='C' AND V=43 THEN DO; MM2=41046; CG=41019; RETURN; END; IF 1992 LE MY LE 1995 AND V1='J' AND V4='H' AND V5='D' AND V=46 THEN DO; MM2=41043; CG=41020; RETURN; END; IF 1993 LE MY LE 1997 AND V1='1' AND V4='G' AND V5='E' AND V=22 THEN DO; MM2=41037; CG=41021; RETURN; END; IF 1993 LE MY LE 1997 AND V1='1' AND V4='G' AND V5='E' AND V=31 THEN DO; MM2=41044; CG=41021; RETURN; END; IF 1993 LE MY LE 1995 AND V1='J' AND V4='F' AND V5='D' 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 V4='T' AND V5='A' AND V=22 THEN DO; MM2=41047; CG=41024; RETURN; END; IF 1998 LE MY LE 2002 AND V1='1' AND V4='G' AND V5='F' AND V=22 THEN DO; MM2=41037; CG=41025; RETURN; END; IF MY GE 2003 AND V1='1' AND V4 IN ('F','H') AND V5='P' AND V6='8' THEN DO; MM2=41050; CG=41025; RETURN; END; /* 6 */ IF MY GE 2006 AND V1='J' AND V4='G' AND V5='G' AND V6='1' THEN DO; MM2=41050; CG=41025; RETURN; END; /* [SPEED]6 */ IF 1999 LE MY LE 2001 AND V4='B' AND V5='J' AND V=22 THEN DO; MM2=41035; CG=41026; RETURN; END; IF 2002 LE MY LE 2003 AND V4='B' AND V5='J' AND V IN (22,24) THEN DO; MM2=41035; CG=41026; RETURN; END; IF MY GE 2004 AND V4='B' AND V5='K' THEN DO; MM2=41051; CG=41028; RETURN; END; /* 3 */ IF MY GE 2004 AND V4='F' AND V5='E' THEN DO; MM2=41049; CG=41029; RETURN; END; /* RX-8 */ IF MY GE 2006 AND V4='N' AND V5='C' THEN DO; MM2=41045; CG=41030; RETURN; END; /* MX-5 */ IF MY GE 2006 AND V4='C' AND V5='R' THEN DO; MM2=41052; CG=41031; RETURN; END; /* 5 */ CG=99999; MM2=99999; RETURN; MEBE: V4=TRANSLATE(V4,'ZSGB','2568'); V5=TRANSLATE(V5,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'2568','ZSGB'); V47=V4||V5||V6||V7; V56=V5||V6; V=10*INPUT(V6,1.0)+INPUT(V7,1.0); IF 1981 LE MY LE 1985 AND V4='B' AND V56='A4' THEN DO; MM2=42033; CG=42004; RETURN; END; IF MY=1981 AND V4='B' AND V56='A2' THEN DO; MM2=42034; CG=42005; RETURN; END; IF 1981 LE MY LE 1985 AND V4='A' AND V56 IN ('A3','B2','B3','B9') THEN DO; MM2=42031; CG=42008; RETURN; END; IF 1981 LE MY LE 1985 AND V4='A' AND V56 IN ('A5','B5') 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 V4='C' AND V56='A4' THEN DO; MM2=42036; CG=42012; RETURN; END; IF 1984 LE MY LE 1993 AND V4='D' AND V56 IN ('A2','B2','A3') THEN DO; MM2=42039; CG=42013; RETURN; END; IF 1986 LE MY LE 1993 AND V4='E' AND V5 IN ('A','B','D') AND V6 IN ('2','3','9') THEN DO; MM2=42031; CG=42014; RETURN; END; IF 1994 LE MY LE 1995 AND V4='E' AND V5 IN ('A','B','D') AND V6 IN ('3','9') THEN DO; MM2=42031; CG=42014; RETURN; END; IF 1986 LE MY LE 1989 AND V4='B' AND V56='A4' 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 V4='F' AND V56 IN ('A6','A7') 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 V4='L' AND V5='K' AND V6 IN ('6','7') 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 V4='J' AND V5 IN ('F','H') THEN DO; MM2=42048; CG=42022; RETURN; END; IF MY=2003 AND V4='J' AND V5='H' 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 V4='N' AND V5='G' AND V6 IN ('7','8') 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 2005 AND V4='R' AND V6 IN ('4','6','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; /* C */ IF MY GE 2007 AND V4='R' AND V6 IN ('5','8','9') THEN DO; MM2=42042; CG=42026; RETURN; END; /* C */ IF MY=2003 AND V4='T' AND V5='J' AND V6 IN ('6','7') THEN DO; MM2=42047; CG=42026; RETURN; END; IF 2004 LE MY LE 2005 AND V4='T' AND V5 IN ('J','K') AND V6 IN ('6','7') THEN DO; MM2=42047; CG=42026; RETURN; END; IF MY GE 2006 AND V4='T' AND V5 IN ('J','K') AND V6 IN ('5','7') THEN DO; MM2=42047; CG=42026; RETURN; END; /* CLK */ IF MY=2003 AND V4='U' AND V5='F' THEN DO; MM2=42048; CG=42027; RETURN; END; IF MY GE 2004 AND V4='U' AND V5 IN ('F','H') THEN DO; MM2=42048; CG=42027; RETURN; END; /* E */ IF MY GE 2006 AND V4='D' AND V5='J' THEN DO; MM2=42051; CG=42027; RETURN; END; /* CLS */ IF MY GE 2003 AND V4='S' AND V5='K' AND V6='7' THEN DO; MM2=42044; CG=42028; RETURN; END; /* SL ROADSTER */ IF MY GE 2005 AND V4='W' AND V5='K' THEN DO; MM2=42045; CG=42029; RETURN; END; /* SLK */ IF MY GE 2005 AND V4='A' AND V5='J' THEN DO; MM2=42049; CG=42030; RETURN; END; /* SLR McLAREN */ IF MY = 2006 AND V4='N' AND V5='F' AND V6='6' THEN DO; MM2=42043; CG=42031; RETURN; END; /* S 116.7 SEDAN ends 2006*/ IF MY GE 2007 AND V4='N' AND V5='G' AND V6 IN ('7','8') THEN DO; MM2=42043; CG=42032; RETURN; END; /* S 124.6 SEDAN */ IF MY GE 2007 AND V4='E' AND V6='7' THEN DO; MM2=42046; CG=42033; RETURN; END; /* CL COUPE 2007- */ 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: V7=TRANSLATE(V7,'2568','ZSGB'); V8=TRANSLATE(V8,'2568','ZSGB'); V=10*INPUT(V7,1.0)+INPUT(V8,1.0); 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 MY GE 2006 AND V=98 AND V4='C' THEN DO; MM2=45040; CG=45006; RETURN; END; /* BOXSTER */ IF MY GE 2006 AND V=98 AND V4='A' THEN DO; MM2=45041; CG=45006; RETURN; END; /* CAYMAN */ IF MY GE 1999 AND V=99 THEN DO; MM2=45031; CG=45007; RETURN; END; /* 911 */ 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 MY GE 1999 AND V4='E' THEN DO; MM2=47036; CG=47007; RETURN; END; /* 9-5 */ IF MY GE 2003 AND V4='F' THEN DO; MM2=47035; CG=47008; RETURN; END; /* 9-3 */ 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'); V7=TRANSLATE(V7,'2568','ZSGB'); 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 */ IF MY GE 2005 AND V4='B' AND V5 IN ('L','P') AND V1='4' AND V3='3' THEN DO; MM2=48034; CG=48015; RETURN; END; /* LEGACY */ CG=99999; MM2=99999; RETURN; TOYOTA: V5=TRANSLATE(V5,'ZSGB','2568'); V4=TRANSLATE(V4,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'2568','ZSGB'); V8=TRANSLATE(V8,'ZSGB','2568'); 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 */ 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 MY GE 2004 AND V8='P' AND V4 IN ('C','F') AND V6='3' THEN DO; MM2=49044; CG=49035; RETURN; END; /* CAMRY SOLARA */ 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 V1='J' AND V2='T' AND V3='K' 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 */ 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; /* COROLLA */ IF MY GE 2007 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 */ 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; /* MATRIX */ IF MY GE 2007 AND V8='E' AND V4 ='K' AND V5 = 'R' AND V6='3' THEN DO; MM2=49047; CG=49046; RETURN; END; /* MATRIX */ IF MY GE 2004 AND V8='U' AND V1='J' AND V6='2' AND V5='B' THEN DO; MM2=49046; CG=49047; RETURN; END; /* PRIUS */ IF 2004 LE MY LE 2006 AND V8='4' AND V6='3' AND V1='J' AND V2='T' AND V3='L' THEN DO; MM2=49049; CG=49048; RETURN; END; /* SCION xB 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 MY GE 2005 AND V8='7' AND V6='1' AND V1='J' AND V2='T' AND V3='K' AND V4='D' THEN DO; MM2=49050; CG=49050; RETURN; END; /* SCION tC */ IF MY GE 2007 AND V8='K' AND V4='B' AND V6='4' AND V5 IN ('E','K') THEN DO; MM2=49040; CG=49053; RETURN; END; /* CAMRY 109.3 */ IF MY GE 2007 AND V8='3' AND V6='9' AND V1='J' AND V4='J' AND V5='T' THEN DO; MM2=49051; CG=49055; RETURN; END; /* YARIS 3HB */ IF MY GE 2007 AND V8='3' AND V6='9' AND V1='J' AND V4='B' AND V5='T' THEN DO; MM2=49051; CG=49056; RETURN; END; /* YARIS 4SD */ IF MY GE 2007 AND V8='K' AND V4='B' AND V6='4' AND V5='B' 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: V4=TRANSLATE(V4,'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 MY GE 2001 AND V4='R' THEN DO; MM2=51047; CG=51009; RETURN; END; /* S60 */ IF MY GE 2001 AND V4='S' AND V5 IN ('J','W') THEN DO; MM2=51043; CG=51010; RETURN; END; /* V70 */ IF MY GE 2006 AND V4='M' AND V5='C' THEN DO; MM2=51043; CG=51011; RETURN; END; /* C70 */ IF MY GE 2004 AND V4='M' AND V5 IN ('H','S') THEN DO; MM2=51046; CG=51011; RETURN; END; /* S40 */ IF MY GE 2005 AND V4='M' AND V5 IN ('J','W') THEN DO; MM2=51048; CG=51011; RETURN; END; /* V50 */ IF MY GE 2007 AND V4='A' THEN DO; MM2=51045; CG=51012; RETURN; END; /* S80 111.6 */ CG=99999; MM2=99999; RETURN; MITS: V5=TRANSLATE(V5,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'2568','ZSGB'); 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 V5='B' AND V6 IN ('4','5') 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 V5='H' AND V6 IN ('4','5') THEN DO; MM2=52034; CG=52009; RETURN; END; IF 1988 LE MY LE 1990 AND V1='J' AND V5='B' AND V6='4' 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 V5='J' AND V6 IN ('4','5') AND V7='6' THEN DO; MM2=52034; CG=52018; RETURN; END; IF 1999 LE MY LE 2002 AND V5='A' AND V6 IN ('3','4','5') THEN DO; MM2=52034; CG=52018; RETURN; END; IF MY=2003 AND V5='A' AND V6 IN ('3','4') 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 V5='J' AND V7='6' AND V1='J' AND V6 IN ('2','3','8') THEN DO; MM2=52046; CG=52023; RETURN; END; IF MY=2004 AND V5='D' AND V7='9' AND V1='J' AND V6 IN ('2','6') THEN DO; MM2=52046; CG=52023; RETURN; END; IF 2004 LE MY LE 2006 AND V5='J' AND V7='6' AND V1='J' AND V6 IN ('2','3','4','6','8') THEN DO; MM2=52046; CG=52023; RETURN; END; /* LANCER ends 2006 */ IF MY = 2007 AND V5='J' AND V7='6' AND V1='J' AND V6 = '2' THEN DO; MM2=52046; CG=52023; RETURN; END; /* LANCER 2007 (not in cars.com but in NICB, FARS, Polk */ IF MY GE 2004 AND V5='B' AND V6 IN ('2','3','4','5','7') AND V7='6' THEN DO; MM2=52034; CG=52024; RETURN; END; /* GALANT */ IF MY=2006 AND V5='K' AND V6 IN ('2','3','4') AND V7='4' THEN DO; MM2=52037; CG=52025; RETURN; END; IF MY GE 2007 AND V5='K' AND V6 IN ('2','3','6') AND V7='4' THEN DO; MM2=52037; CG=52025; RETURN; END; /* ECLIPSE 3HB */ IF MY GE 2007 AND V5='L' AND V6 IN ('2','3','4') AND V7='5' THEN DO; MM2=52037; CG=52025; RETURN; END; /* ECLIPSE 3CV */ IF MY=2003 AND V5='H' AND V7='6' AND V1='J' AND V6='8' THEN DO; MM2=52046; CG=52026; RETURN; END; IF MY=2004 AND V5='H' AND V7='6' AND V1='J' AND V6 IN ('3','8') THEN DO; MM2=52046; CG=52026; RETURN; END; IF 2005 LE MY LE 2006 AND V5='H' AND V7='6' AND V1='J' AND V6 IN ('3','7','8') THEN DO; MM2=52046; CG=52026; RETURN; END; /* LANCER EVOLUTION AWD ends 2006 */ 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 MY GE 2002 AND V1='J' AND V4='R' THEN DO; MM2=53033; CG=53005; RETURN; END; /* AERIO */ IF MY GE 2004 AND V13='KL5' AND V4='J' AND V5 IN ('D','J') AND V6='5' THEN DO; MM2=53034; CG=64004; RETURN; END; /* FORENZA 4SD */ IF MY GE 2005 AND V13='KL5' AND V4='J' AND V5 IN ('D','J') AND V6='8' THEN DO; MM2=53034; CG=64004; RETURN; END; /* FORENZA SW */ IF MY GE 2005 AND V13='KL5' AND V4='J' AND V5 IN ('D','J') AND V6='6' THEN DO; MM2=53036; CG=64004; RETURN; END; /* RENO */ 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 GE 2007 AND V13='JS2' AND V4='Y' AND V5 IN ('A','B') THEN DO; MM2=53040; CG=53006; RETURN; END; /* SX4 */ 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; /* TL */ IF MY GE 2007 AND V46 IN ('UA6','UA7') THEN DO; MM2=54035; CG=37036; RETURN; END; /* TL */ IF MY GE 2004 AND V46='CL9' THEN DO; MM2=54039; CG=37030; RETURN; END; /* TSX */ IF MY GE 2005 AND V1='J' AND V46='KB1' THEN DO; MM2=54036; CG=37039; RETURN; END; /* RL */ 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 MY GE 2006 AND V4='H' AND V5 IN ('M','N') AND V1='K' THEN DO; MM2=55037; CG=55011; RETURN; END; /* TIBURON */ IF MY = 2006 AND V4='C' AND V5 IN ('G','N') AND V1='K' THEN DO; MM2=55036; CG=55012; RETURN; END; /* ACCENT */ 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 MY GE 2006 AND V4='E' AND V5 IN ('T','U') THEN DO; MM2=55033; CG=55013; RETURN; END; /* SONATA */ IF MY GE 2006 AND V4='F' AND V5='C' AND V1='K' THEN DO; MM2=55039; CG=55014; RETURN; END; /* AZERA */ IF MY GE 2007 AND V4='D' AND V5 IN ('U') AND V1='K' THEN DO; MM2=55035; CG=55015; RETURN; END; /* ELANTRA */ 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; /* G35 */ IF MY GE 2007 AND V5='V' AND V6 IN ('5','6') THEN DO; MM2=58037; CG=35043; RETURN; END; /* G35 */ IF MY GE 2006 AND V5='Y' AND V6='0' THEN DO; MM2=58038; CG=35045; RETURN; END; /* M35,M45 */ 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 MY GE 2007 AND V8='G' AND V46='BJ4' THEN DO; MM2=59031; CG=49053; RETURN; END; /* ES-350 */ 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 MY GE 2002 AND V8='Y' AND V46='FN4' THEN DO; MM2=59033; CG=49044; RETURN; END; /* SC-430 */ 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 2006 AND V8='2' AND V6='2' THEN DO; MM2=59035; CG=49051; RETURN; END; /* IS-250,350 */ IF MY GE 2006 AND V8='S' AND V6='9' THEN DO; MM2=59034; CG=49052; RETURN; END; /* GS-300,430 */ IF MY GE 2007 AND V8='F' AND V46 IN ('BL4') THEN DO; MM2=59032; CG=49054; RETURN; END; /* LS-460 */ IF MY GE 2007 AND V8='F' AND V46 IN ('GL4') THEN DO; MM2=59032; CG=49057; RETURN; END; /* LS-460 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'); V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); V45=V4||V5; 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 2001 LE MY LE 2006 AND V45='GD' THEN DO; MM2=63034; CG=55005; RETURN; END; /* OPTIMA 106.3 ends 2006 */ IF MY GE 2004 AND V45='LD' THEN DO; MM2=63035; CG=63007; RETURN; END; /* AMANTI */ IF MY GE 2004 AND V45='FE' THEN DO; MM2=63033; CG=63008; RETURN; END; /* SPECTRA */ IF MY GE 2006 AND V45='DE' THEN DO; MM2=63032; CG=55012; RETURN; END; /* RIO */ IF MY GE 2006 AND V45='GE' THEN DO; MM2=63034; CG=63009; RETURN; END; /* OPTIMA 107.1 */ IF MY GE 2007 AND V45='FG' THEN DO; MM2=63036; CG=63010; RETURN; END; /* RONDO */ CG=99999; MM2=99999; RETURN; DAEWOO: IF 1999 LE MY LE 2002 AND V4='T' THEN DO; MM2=64031; CG=64001; RETURN; END; IF 1999 LE MY LE 2002 AND V4='J' THEN DO; MM2=64032; CG=64002; RETURN; END; IF 1999 LE MY LE 2002 AND V4='V' THEN DO; MM2=64033; CG=64003; RETURN; END; CG=99999; MM2=99999; RETURN; RUN;