OPTION NOCENTER NOFMTERR OBS=5000000 LS=160 PAGESIZE=89; /* 07CarBody2011.SAS DEFINES BODY STYLE FOR 1981-2011 PASSENGER CARS */ /* UPDATED 02/01/2013 */ /* PROC FORMAT; VALUE BODY */ /* 1='CV ' 2='2CP' 3='3HB' 4='4SD' 5='5HB' 6='SW ' 7='2HT' 9='???'; */ DATA CAR3(DROP=V V47 V78 V45); SET USCAR2 IMPCAR2; IF MMP=. THEN MMP=MM2; IF CGP=. THEN CGP=CG; MYP=MY; IF MAK2=99 OR CG=99999 OR MM2=99999 THEN DO; BOD2=9; BODP=9; RETURN; END; IF CG IN (6034,12044,16001,18057,18077, 32008,34032,36002,37033,49041,49044,52020) OR /* 34032=BMW Z4 */ (CG=30004 AND MM2=30042) OR MM2 IN (30043,41045,42033,42044,42045,45040,30051) THEN DO; BOD2=1; GOTO EB2; END; /* CONVERTIBLES */ IF CG IN (6013,6035,12029,12033,12037,12047,18009,18053,32019, /* 6035=CHALLENGER, 32019=AUDI A5/S5 */ 34008,35035,37013,37016,37019,37020,37025,37031,37040, 41019,42009,42012,42021,42036, /* 42036 MERCEDES SLS */ 48010,49021,49027,49029,52003,55019) OR /* 55019 HYUNDAI GENESIS 2CP */ MM2 IN (18010,20010,20036,21005,22005,24002,24004,30038,30045,34038,35046, 37033,41044,42046,45041,48035,48037,54037,55034,55037,22019) OR (CG=18055 AND MM2 NE 19014) OR (CG=42018 AND MM2=42036) OR (MM2=12014 AND 1987 LE MY LE 1988) OR (MM2=13002 AND MY GE 1984) OR (MM2=18005 AND MY GE 1986) OR (MM2=32050 AND MY LE 2010) /* 32050=AUDI R8 */ THEN DO; BOD2=2; GOTO EB2; END; /* 2-DOOR COUPE (or sedan) */ IF CG IN (6016,18038,37006,37014,38002,37022,37048,41016,41027,48005, /* 37048 HONDA CR-Z */ 48007,49050,52011,52012,52006,53001,56003,57001,63001,63003) OR /* 49050 SCION tC */ MM2 IN (6015,7015,7039,12018,14003,14038,20035,49034,51049,54038) OR /* 51049 VOLVO C30 */ (MM2=12014 AND 1981 LE MY LE 1986) OR (MM2=30047 AND 1998 LE MY LE 2002) OR (MM2=35034 AND 1981 LE MY LE 1993) OR (MM2=35044 AND CG=35024) OR (MM2=52039 AND MY IN (1991,1992,1993,1994,1997,1998,1999)) OR (MM2=54031 AND CG IN (37007,37017,37022)) OR (MM2=53031 AND CG=53003) THEN DO; BOD2=3; GOTO EB2; END; /* 3-DOOR HATCHBACK */ /* NOTE: SATURN ION QUAD COUPE (CG=18076) IS A 4-DOOR CAR */ IF CG IN (6017,6021,6022,6023,6025,6026,6031, 12036,12039,12041,12043,12045,12049,12050, 18060,18063,18064,18067,18076,18082,25003,28002, /* 25003 CAPRICE POLICE */ 30011,32003,32014,32016,32021,32022,34006,34030,34031, /* 32021,32022 AUDI A8,A8L 34030,34031 BMW 750 */ 35025,35030,35032,35034,35044,35045, 37021,37024,37037,37038,37039,37041,37042,37046, /* 37046 ACURA TL */ 39003,41014,41020,41023,41024,41029,41032,42011,42013,42019,42031, /* 41032 MAZDA 6 2009- */ 44006,46007,46009,49042,49052,49053,49054,49056,49057,49058, /* 49056 YARIS SEDAN */ 52009,52026,52028,53007, /* 53007 SUZUKI KIZASHI 52026 & 52028 LANCER EVOLUTION */ 55001,55003,55005,55013,55014,55020,55021, /* 55020 SONATA/OPTIMA 55021 EQUUS */ 55016,63002,63011,64003,64005) OR /* 55016 HYUNDAI GENESIS */ MM2 IN (13005,14039,18022,18023,19014,19018,19022,21022,21023, 34037,38033,39032,41043,41047,41049, 42037,42043,42051,45042,49043,51045,51047, /* 45042 PORSCHE PANAMERA */ 52034,54035,54036,55038,58032,58033,58034, 59031,59032,59034,59037) OR /* 59037 LEXUS HS - WILL NEED TO CONFIRM WITH POLK */ (CG=6014 AND 1984 LE MY LE 1989) OR (CG=12028 AND MY GE 1992) OR (CG=12030 AND MY GE 1982) OR (CG=18039 AND 1988 LE MY LE 1996) OR (CG=18042 AND 1986 LE MY LE 1996) OR (MM2=49032 AND MY GE 2000) OR (MM2=52040 AND MY GE 2000) OR (MM2=54039 AND MY LE 2010) OR /* ACURA TSX UNTIL 2010 */ (CG=37011 AND MM2=54032) OR (CG=42020 AND MM2=42042) OR (CG=42022 AND 1996 LE MY LE 1997) OR (CG=18069 AND MM2=20002) OR (CG=18071 AND MM2 IN (18017,18020)) OR (CG=18074 AND MM2=19003) OR (CG=35039 AND MM2=35039) OR (CG=35048 AND MM2=35039) OR /* MAXIMA 2009- */ (CG=49030 AND MM2=20032) OR (CG=49046 AND MM2=49032) OR (CG=49051 AND MY LE 2009) OR /* LEXUS IS 2006-2009 */ (MM2 IN (7020,9020) AND MY GE 2000) OR (CGP IN (30006,30098) AND MM2=30040 AND MY GE 1992) OR (MM2=54031 AND CG IN (37010,37023)) THEN DO; BOD2=4; GOTO EB2; END; /* 4-DOOR SEDAN (or coupe) */ IF CG IN (6015,18043,34033,35052,37012,37047,41031,41033,53002,55018,56004,63004) OR /* 34033 BMW 550GT 35052 NISSAN LEAF 37047 HONDA INSIGHT 2010- 41033 MAZDA 2 55018 KIA SOUL */ MM2 IN (7025,22032,49047,49049,53036,37039,59038) OR /* 55018 KIA SOUL */ /* VIBE, MATRIX, MAZDA5, FIT ARE 5HB, NOT SW 59038 LEXUS CT */ (MM2=54031 AND CG=37012) OR (MM2=49046 AND CG=49047) /* PRIUS STARTING 2004 */ THEN DO; BOD2=5; GOTO EB2; END; /* 5-DOOR HATCHBACK */ IF CG IN (18040,32017,35023,35031,41006,44007,46008,52008,52014) OR /* AUDI A3 IS SW */ MM2 IN (52045,63036) THEN DO; BOD2=6; GOTO EB2; END; /* STATION WAGON */ IF 18001 LE MM2 LE 24049 THEN GOTO GM; IF 12001 LE MM2 LE 12049 THEN GOTO FORD; IF 13001 LE MM2 LE 14049 THEN GOTO LM; IF 6 LE MAK2 LE 10 THEN GOTO CHRYS; IF MAK2=1 THEN GOTO AMC; IF MAK2=30 THEN GOTO VW; IF MAK2=32 THEN GOTO AUDI; IF MAK2=33 THEN GOTO COOPER; 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=55 OR MM2=52036 THEN GOTO HYUNDAI; IF MAK2=52 THEN GOTO MITS; IF MAK2=53 THEN GOTO SUZUKI; IF MAK2=54 THEN GOTO ACURA; IF MAK2=57 THEN DO; BOD2=3; GOTO EB2; END; 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; GOTO EB2; AMC: V7=TRANSLATE(V7,'2568','ZSGB'); V=INPUT(V7,1.0); IF V=6 THEN BOD2=2; ELSE IF V=5 THEN BOD2=4; ELSE IF V=3 THEN BOD2=3; ELSE IF V=9 THEN BOD2=7; ELSE IF V=8 THEN BOD2=6; GOTO EB2; CHRYS: IF MY LE 2009 THEN DO; V7=TRANSLATE(V7,'2568','ZSGB'); V=INPUT(V7,1.0); END; IF 1981 LE MY LE 1984 THEN GOTO CHRYS81; IF 1985 LE MY LE 2009 THEN GOTO CHRYS85; IF MY GE 2010 THEN DO; V7=TRANSLATE(V7,'ZSGB','2568'); GOTO CHRYS10; END; CHRYS81: IF V=1 OR V=3 THEN BOD2=2; ELSE IF V=4 THEN BOD2=3; ELSE IF V=5 THEN BOD2=1; ELSE IF V=8 THEN BOD2=5; ELSE IF V=9 THEN BOD2=6; ELSE IF V=2 AND V5='Y' AND 1981 LE MY LE 1983 AND MM2=6010 THEN BOD2=7; ELSE IF V=6 AND MM2=7009 THEN BOD2=7; ELSE IF V=6 THEN BOD2=4; ELSE IF V=2 AND (MM2=6010 OR MM2=7007 OR MM2=6007) THEN BOD2=2; ELSE IF V=2 THEN BOD2=7; ELSE IF V=7 THEN BOD2=8; GOTO EB2; CHRYS85: IF V1='J' AND V3='4' THEN BOD2=6; ELSE IF V=1 OR V=2 THEN BOD2=2; ELSE IF V=4 THEN BOD2=3; ELSE IF V=5 THEN BOD2=1; ELSE IF V IN (6,7) THEN BOD2=4; ELSE IF MY GE 2005 AND V=3 THEN BOD2=4; ELSE IF V=8 THEN BOD2=5; ELSE IF V=9 AND MY GE 1996 THEN BOD2=2; ELSE IF V=9 OR V=0 THEN BOD2=6; GOTO EB2; CHRYS10: IF V7 IN ('C','F') THEN BOD2=4; ELSE IF V7='D' THEN BOD2=3; ELSE IF V7='E' THEN BOD2=1; ELSE IF V7='H' THEN BOD2=5; ELSE IF V7='J' THEN BOD2=2; GOTO EB2; FORD: V6=TRANSLATE(V6,'2568','ZSGB'); IF MY GE 2010 THEN GOTO FORD2010; V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); IF 1981 LE MY LE 1982 THEN GOTO FORD81; IF 1983 LE MY LE 1984 THEN GOTO FORD83; IF 1985 LE MY LE 1986 THEN GOTO FORD85; IF 1987 LE MY LE 1999 THEN GOTO FORD87; IF 2000 LE MY LE 2007 THEN GOTO FORD2000; IF 2008 LE MY LE 2009 THEN GOTO FORD2008; FORD81: IF V IN (20,22,32,34,42,26,10,12) THEN BOD2=2; ELSE IF V IN (1,5,13,15,16) THEN BOD2=3; ELSE IF V IN (21,31,33,35,27) THEN BOD2=4; ELSE IF V=6 THEN BOD2=5; ELSE IF V IN (8,37,38,39,28,23) THEN BOD2=6; GOTO EB2; FORD83: IF V=27 AND MM2=12003 THEN BOD2=1; ELSE IF V IN (35,37,18,19,20,42,46,26) THEN BOD2=2; ELSE IF V=1 OR 4 LE V LE 7 OR (V=28 AND MM2=12003) THEN BOD2=3; ELSE IF 21 LE V LE 23 OR V=39 OR V=43 OR V=27 OR V=36 THEN BOD2=4; ELSE IF 13 LE V LE 15 THEN BOD2=5; ELSE IF V IN (9,10,11,40,44,28) THEN BOD2=6; GOTO EB2; FORD85: IF V=27 THEN BOD2=1; ELSE IF 18 LE V LE 20 OR V=42 OR V=46 OR V=26 THEN BOD2=2; ELSE IF V=1 OR 4 LE V LE 7 OR 31 LE V LE 33 OR V=28 THEN BOD2=3; ELSE IF 21 LE V LE 23 OR V=39 OR V=43 OR V=29 THEN BOD2=4; ELSE IF 13 LE V LE 15 OR V=36 OR V=37 THEN BOD2=5; ELSE IF V IN (9,10,11,40,44,34,35,30) THEN BOD2=6; GOTO EB2; FORD87: IF 44 LE V LE 46 THEN BOD2=1; ELSE IF CG=41017 AND 1990 LE MY LE 1996 THEN DO; /* ESCORT */ IF 10 LE V LE 12 THEN BOD2=3; ELSE IF V=13 OR V=16 THEN BOD2=4; ELSE IF V=14 THEN BOD2=5; ELSE IF V=15 THEN BOD2=6; END; ELSE IF CG=41017 AND MY GE 1997 THEN DO; IF V=10 OR V=13 THEN BOD2=4; ELSE IF V=15 THEN BOD2=6; ELSE IF MY GE 1998 AND V=11 THEN BOD2=2; END; ELSE IF CG=12038 AND V IN (40,42,47) THEN BOD2=2; /* MUSTANG */ ELSE IF 30 LE V LE 34 OR V=40 OR V=47 OR 60 LE V LE 64 OR (70 LE V LE 71 AND MY=1987) THEN BOD2=2; ELSE IF V IN (5,7,10,41,42,90,91,93) OR 20 LE V LE 23 OR (MM2=12033 AND V=6) THEN BOD2=3; ELSE IF 35 LE V LE 39 OR 50 LE V LE 54 OR 65 LE V LE 67 OR 71 LE V LE 74 OR (V=75 AND MY GE 1992) THEN BOD2=4; ELSE IF V IN (12,25,95) OR (MM2=12036 AND V=6) THEN BOD2=5; ELSE IF V IN (13,15,28,98) OR 55 LE V LE 58 OR 75 LE V LE 79 THEN BOD2=6; GOTO EB2; FORD2000: IF V=30 AND MY LE 2001 THEN BOD2=3; ELSE IF V=30 AND MY GE 2004 THEN BOD2=5; ELSE IF V IN (44,45,46,49,60,64,84,85) THEN BOD2=1; ELSE IF V=89 AND MY=2007 THEN BOD2=1; ELSE IF V IN (11,40,42,47,48,80,82,88,89,90) THEN BOD2=2; ELSE IF V IN (31,39) THEN BOD2=3; ELSE IF V IN (13,23,24,25,26,27,28,33,34,38, 52,53,54,55,56,66,68,70,71,72,73,74) THEN BOD2=4; ELSE IF V=37 THEN BOD2=5; ELSE IF V IN (35,36,58,59) THEN BOD2=6; GOTO EB2; FORD2008: IF V IN (84,85,89) THEN BOD2=1; ELSE IF V IN (32,33,80,82,88) THEN BOD2=2; ELSE IF V IN (34,35,36,37) THEN BOD2=4; GOTO EB2; FORD2010: V57=V5||V6||V7; IF V57 IN ('P8E','P8F','P8K') THEN BOD2=1; ELSE IF V57 IN ('P3C','P3D','P8A','P8C','P8J') THEN BOD2=2; ELSE IF V57 IN ('P3E','P3F','P3G','P3H','P4A','P4B','P4C') THEN BOD2=4; ELSE IF V57 IN ('P4E','P4F') THEN BOD2=5; GOTO EB2; LM: 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 1982 THEN GOTO LM81; IF 1983 LE MY LE 1984 THEN GOTO LM83; IF 1985 LE MY LE 1986 THEN GOTO LM85; IF MY GE 1987 THEN GOTO LM87; LM81: IF V IN (89,76,90,80,82,84,72,93,95,70) THEN BOD2=2; ELSE IF V=61 OR V=63 OR V=67 OR V=68 THEN BOD2=3; ELSE IF V IN (96,97,77,81,85,71,94,98,83) THEN BOD2=4; ELSE IF V=64 THEN BOD2=5; ELSE IF V IN (65,78,87,88,73) THEN BOD2=6; GOTO EB2; LM83: IF V IN (98,71,72,73,92,93,87) THEN BOD2=2; ELSE IF 51 LE V LE 58 OR V=79 THEN BOD2=3; ELSE IF V IN (95,96,97,74,75,76,88,89,86) THEN BOD2=4; ELSE IF 65 LE V LE 68 THEN BOD2=5; ELSE IF 60 LE V LE 63 OR V=90 OR V=94 THEN BOD2=6; GOTO EB2; LM85: IF V IN (98,71,72,73,92,93) THEN BOD2=2; ELSE IF 51 LE V LE 55 OR V=79 OR V=80 THEN BOD2=3; ELSE IF 95 LE V LE 97 OR 74 LE V LE 76 OR V=87 OR V=89 THEN BOD2=4; ELSE IF 63 LE V LE 66 THEN BOD2=5; ELSE IF 58 LE V LE 61 OR V IN (90,94,88) THEN BOD2=6; GOTO EB2; LM87: IF MM2=14036 AND MY GE 1991 THEN DO; IF V=10 OR V=13 OR V=14 THEN BOD2=4; ELSE IF V=15 THEN BOD2=6; END; ELSE IF V IN (1,3) THEN BOD2=1; ELSE IF V IN (30,31,32,33,71,72,91,92,93) OR (MY LE 1997 AND V IN (60,61,62)) THEN BOD2=2; /* THE 1999- MERCURY COUGAR IS A 3-DOOR HATCHBACK */ ELSE IF V IN (10,11,15,20,21,23) OR (MY GE 1999 AND V IN (60,61,62)) THEN BOD2=3; ELSE IF 35 LE V LE 38 OR V IN (40,41,42,43,50,51,53,65,66,74,75) OR 81 LE V LE 87 OR V IN (97,98) THEN BOD2=4; ELSE IF MY GE 2000 AND V=55 THEN BOD2=4; ELSE IF V IN (12,16,25) THEN BOD2=5; ELSE IF V IN (13,28,55,58,59,78,79) THEN BOD2=6; GOTO EB2; GM: IF 1981 LE MY LE 1986 THEN DO; V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); GOTO GM81; END; ELSE DO; V6=TRANSLATE(V6,'2568','ZSGB'); V=INPUT(V6,1.0); GOTO GM87; END; GM81: IF V=67 THEN BOD2=1; ELSE IF V=27 OR V=37 OR V=47 OR V=57 OR V=87 OR V=11 OR (V=7 AND CG=18051) THEN BOD2=2; ELSE IF V=8 OR V=7 OR V=77 THEN BOD2=3; ELSE IF V=69 OR V=19 THEN BOD2=4; ELSE IF V=68 THEN BOD2=5; ELSE IF V=35 THEN BOD2=6; GOTO EB2; GM87: IF V=1 AND (20031 LE MM2 LE 20034) THEN BOD2=3; ELSE IF V=1 AND CG=18076 THEN BOD2=4; /* SATURN ION QUAD COUPE IS A 4-DOOR CAR */ ELSE IF V=4 AND MM2=20035 THEN BOD2=3; ELSE IF V IN (0,1,4) THEN BOD2=2; ELSE IF V=2 AND (MM2=20004 OR MM2=20009 OR MM2=24004 OR (MM2=22009 AND MY LE 1992)) THEN BOD2=2; ELSE IF V=2 AND CG=18066 AND MM2=20016 THEN BOD2=9; ELSE IF V=2 THEN BOD2=3; ELSE IF V=3 THEN BOD2=1; ELSE IF V=5 THEN BOD2=4; ELSE IF V=6 AND MM2 IN (20031,20037,22001) THEN BOD2=4; /* POLK CLASSIFIES MALIBU MAXX AS 4SD */ ELSE IF V=6 OR V=7 THEN BOD2=5; ELSE IF V=8 THEN BOD2=6; ELSE IF MM2=22019 AND MY GE 2006 THEN BOD2=2; GOTO EB2; VW: V4=TRANSLATE(V4,'ZSGB','2568'); IF MY LE 2009 THEN V7=TRANSLATE(V7,'2568','ZSGB'); ELSE V7=TRANSLATE(V7,'ZSGB','2568'); IF 1990 LE MY LE 1999 OR (MY=1989 AND MM2=30044) THEN GOTO VW90; IF 2000 LE MY LE 2002 THEN GOTO VW2000; IF 2003 LE MY LE 2005 THEN GOTO VW2003; IF 2006 LE MY LE 2009 THEN GOTO VW2006; IF MY GE 2010 THEN GOTO VW2010; IF 1981 LE MY LE 1988 THEN DO; V8=TRANSLATE(V8,'2568','ZSGB'); V=10*INPUT(V7,1.0)+INPUT(V8,1.0); END; IF V=15 THEN BOD2=1; ELSE IF (V=17 OR (CG=30006 AND MM2=30042) OR (V=32 AND 1982 LE MY LE 1983)) AND (V4='A' OR V4='B' OR V4='C' OR V4='D') THEN BOD2=3; ELSE IF MM2=30040 AND MY=1989 AND V4='K' THEN BOD2=2; ELSE IF MM2=30040 AND MY=1989 AND V4 IN ('P','R','T') THEN BOD2=4; ELSE IF V=53 OR (V=16 AND V4 IN ('A','B','C','D')) OR ((V=3 OR V=30) AND V4 IN ('A','B','D')) OR (V=16 AND V4 IN ('K','P','R','T')) THEN BOD2=2; ELSE IF V=16 AND V4 IN ('E','F','G','H') THEN BOD2=4; ELSE IF (V=3 OR V=30) AND V4='G' THEN BOD2=4; ELSE IF V=32 THEN BOD2=4; ELSE IF (V=17 OR (CG=30006 AND MM2=30042)) AND V4 IN ('E','F','G','H') THEN BOD2=5; ELSE IF V=33 OR ((V=3 OR V=30) AND V4='C') THEN BOD2=6; GOTO EB2; VW90: IF V7='1' AND V8 IN ('5','E','V') THEN BOD2=1; ELSE IF CG=30006 AND MM2=30042 AND V4 IN ('B','D','H','M') THEN BOD2=3; ELSE IF (V7='1' AND V8 IN ('G','H') AND V4 IN ('B','D','H','M')) OR (V7='3' AND V8='0' AND V4 IN ('A','B','C')) OR (V7 IN ('5','6') AND V8='0' AND V4 IN ('D','E')) THEN BOD2=2; ELSE IF CG=30010 AND MM2=30042 AND V4 IN('B','D','H') THEN BOD2=3; ELSE IF CG=30006 AND MM2=30042 AND (V4 IN ('F','K','L','P','R','S','T','V') OR (MY=1995 AND V4='J')) THEN BOD2=5; ELSE IF CG=30008 AND MM2=30046 AND MY GE 1995 AND V4 IN ('E','G') THEN BOD2=4; ELSE IF CG=30008 AND MM2=30046 AND MY GE 1995 AND V4 IN ('F','H') THEN BOD2=6; /* THE NEXT TWO LINES ARE FOR 1998-2000 PASSAT */ /* - BE CAREFUL, THIS WILL CHANGE IN 2001 */ ELSE IF CG=30009 AND V4 IN ('D','E','H','N','R','T') THEN BOD2=6; ELSE IF CG=30009 THEN BOD2=4; ELSE IF (V7='1' AND V8 IN ('G','H') AND V4 IN ('F','K','P','R','S','T','V')) OR (V7='3' AND V8='0' AND V4='G') OR (V7='3' AND V8 IN ('1','A') AND V4 IN ('J','C','E')) OR (V7='3' AND V8 IN ('1','A') AND V4 IN ('F','H') AND 1990 LE MY LE 1994) OR (V7='1' AND V8='H' AND V4='J' AND MY IN (1998,1999)) OR (V7='1' AND V8='J' AND ((MY=1999 AND V4='C') OR (MY GE 1999 AND V4='G'))) THEN BOD2=4; ELSE IF (V7='3' AND V8='0' AND V4='D') OR (V7='3' AND V8 IN ('1','A') AND V4 IN ('G','N','D')) OR (CG=30008 AND MY=1997 AND V4='B') THEN BOD2=6; IF MM2=30042 AND BOD2=4 THEN BOD2=5; /* GOLF & GTI CAN BE 4HB, BUT NEVER 4SD */ GOTO EB2; VW2000: V78=V7||V8; IF MM2=30040 AND V78='1J' THEN BOD2=6; ELSE IF MM2=30040 THEN BOD2=4; /* JETTA */ ELSE IF MM2=30042 AND V4 IN ('F','G') THEN BOD2=5; /* GOLF,GTI */ ELSE IF MM2=30042 THEN BOD2=3; /* GOLF,GTI */ ELSE IF MM2=30043 THEN BOD2=1; /* CABRIO */ ELSE IF MM2=30047 AND V78='1C' THEN BOD2=3; /* BEETLE 2HB */ ELSE IF MM2=30047 AND V78='1Y' THEN BOD2=1; /* BEETLE 2CV */ ELSE IF MM2=30046 THEN DO; /* PASSAT */ IF V4 IN ('V','W','X','Y','Z') THEN BOD2=6; ELSE IF MY=2000 AND V4 IN ('B','D','E','H','N','R','V') THEN BOD2=6; ELSE IF MY=2001 AND V4 IN ('H','J','L') THEN BOD2=6; ELSE BOD2=4; END; GOTO EB2; VW2003: V78=V7||V8; IF MM2=30040 AND V78='1J' THEN BOD2=6; /* JETTA */ ELSE IF MM2=30040 THEN BOD2=4; /* JETTA */ ELSE IF MM2=30042 AND V4 IN ('E','F','G') THEN BOD2=5; /* GOLF,GTI */ ELSE IF MM2=30042 THEN BOD2=3; /* GOLF,GTI */ ELSE IF MM2=30047 AND V78='1C' THEN BOD2=3; /* BEETLE 2HB */ ELSE IF MM2=30047 AND V78='1Y' THEN BOD2=1; /* BEETLE 2CV */ ELSE IF MM2=30048 THEN BOD2=4; /* PHAETON */ ELSE IF MM2=30046 THEN DO; /* PASSAT */ IF V4 IN ('C','D','L','N','V','W','Y','Z') THEN BOD2=6; ELSE BOD2=4; END; GOTO EB2; VW2006: V78=V7||V8; IF MM2=30040 AND MY=2009 AND V4 IN ('K','M','P','T') THEN BOD2=6; /* JETTA SPORTWAGON 2009 */ ELSE IF MM2 IN (30040,30048) THEN BOD2=4; /* JETTA,PHAETON */ ELSE IF MM2=30036 AND V4 IN ('A','B') THEN BOD2=3; /* RABBIT */ ELSE IF MM2=30036 AND V4 IN ('C','D') THEN BOD2=5; /* RABBIT */ ELSE IF MM2=30042 AND CG=30012 AND V4 IN ('E','F') THEN BOD2=3; /* NEW GTI */ ELSE IF MM2=30042 AND CG=30012 AND V4 IN ('G','H') THEN BOD2=5; /* NEW GTI */ ELSE IF MM2=30042 AND V4 IN ('E','F','G') THEN BOD2=5; /* GOLF,GTI */ ELSE IF MM2=30042 THEN BOD2=3; /* GOLF,GTI */ ELSE IF MM2=30047 AND V78='1C' THEN BOD2=3; /* BEETLE 2HB */ ELSE IF MM2=30047 AND V78='1Y' THEN BOD2=1; /* BEETLE 2CV */ ELSE IF MM2=30046 THEN DO; IF V4 IN ('L','M','N','P','R','S','T', 'U','V','W','X','Y') THEN BOD2=6; ELSE BOD2=4; END; /* PASSAT WAGON */ GOTO EB2; VW2010: V78=V7||V8; IF MM2=30040 AND V4 IN ('K','M','P','T') THEN BOD2=6; /* JETTA SPORTWAGON */ ELSE IF MM2=30040 THEN BOD2=4; /* JETTA SEDAN */ ELSE IF MM2=30042 AND V4 IN ('C','D','G','H','N') THEN BOD2=5; /* GOLF,GTI */ ELSE IF MM2=30042 THEN BOD2=3; /* GOLF,GTI */ ELSE IF MM2=30047 AND V78='AG' THEN BOD2=3; /* BEETLE 2HB */ ELSE IF MM2=30047 AND V78='AL' THEN BOD2=1; /* BEETLE 2CV */ ELSE IF MM2=30046 THEN DO; IF V4='X' THEN BOD2=6; ELSE BOD2=4; END; /* PASSAT, CC */ GOTO EB2; AUDI: IF 1989 LE MY LE 1999 THEN GOTO AUDI89; IF 2000 LE MY LE 2005 THEN GOTO AUDI2000; IF 2006 LE MY LE 2009 THEN GOTO AUDI2006; IF MY GE 2010 THEN GOTO AUDI2010; IF V4='D' AND MM2=32035 THEN BOD2=4; ELSE IF V4 IN ('A','B','C','D') THEN BOD2=2; ELSE IF V4='G' AND CG=32005 AND MM2=32035 AND 1984 LE MY LE 1988 THEN BOD2=6; ELSE IF V4 IN ('E','F','G','H') THEN BOD2=4; GOTO EB2; AUDI89: IF MM2=32041 AND V4 IN ('A','B') THEN BOD2=1; ELSE IF V8='B' AND MY LT 1992 THEN BOD2=2; /* A4 CAN BE A STATION WAGON OR A 4-DOOR SEDAN (SW IN 98-99 ONLY) */ ELSE IF (MM2=32037 AND (MY=1989 AND V4='D') OR (1990 LE MY LE 1991 AND V4='H') OR (1992 LE MY LE 1994 AND V4='F')) OR (MM2=32042 AND MY LE 1998 AND V4 IN ('H','J')) OR (MM2=32042 AND MY GE 1999 AND V4 IN ('D','L')) OR (MM2=32043 AND V4 IN ('F','G')) THEN BOD2=6; ELSE BOD2=4; GOTO EB2; AUDI2000: IF MM2=32045 AND MY GE 2001 AND V4 IN ('T','U') THEN BOD2=1; ELSE IF MM2 IN (32040,32043) AND MY GE 2003 AND V8='H' THEN BOD2=1; /* S4,A4 2CV */ ELSE IF MM2 IN (32042,32043,32044) AND MY GE 2002 AND V4='L' THEN BOD2=4; /* A4,A6,A8 SEDANS */ ELSE IF MM2=32043 AND MY GE 2003 AND V4='T' THEN BOD2=6; /* An A4 WAGON */ ELSE IF MM2=32045 THEN BOD2=2; /* TT */ ELSE IF V4 IN ('H','K','L','V','X','Y') THEN BOD2=6; /* EXCEPT L FOR NEW A4,A6,A8 (SEE ABOVE) */ ELSE IF MM2=32040 AND V4='M' THEN BOD2=6; /* S6 */ ELSE BOD2=4; GOTO EB2; AUDI2006: IF MM2=32045 AND CG=32011 AND V4 IN ('T','U') THEN BOD2=1; ELSE IF MM2=32045 AND CG=32011 THEN BOD2=2; /* TT 95.4 */ ELSE IF MM2=32045 AND V4 IN ('L','M','N','R','S','W','X','Y') THEN BOD2=1; ELSE IF MM2=32045 THEN BOD2=2; /* TT 97.2 */ ELSE IF CG=32019 THEN BOD2=2; /* A5, S5 */ ELSE IF CG=32020 AND V4 IN ('A','D') THEN BOD2=1; ELSE IF CG=32020 AND V4 IN ('B','C','J','L','M','S') THEN BOD2=4; ELSE IF CG=32020 AND V4 IN ('G','V','X') THEN BOD2=6; /* A4 110.6 */ ELSE IF MM2=32042 AND V4 IN ('K','S') THEN BOD2=6; /* A6 WAGON */ ELSE IF MM2=32042 THEN BOD2=4; /* A6 SEDAN */ ELSE IF MM2 IN (32040,32043) AND V8 IN ('H','Y') THEN BOD2=1; /* S4,A4 2CV */ ELSE IF MM2 IN (32042,32043) AND V4 IN ('K','S','U') THEN BOD2=6; /* S4,A4 WAGON */ ELSE BOD2=4; GOTO EB2; AUDI2010: IF MM2=32045 AND V4 IN ('S','W','4') THEN BOD2=1; ELSE IF MM2=32045 THEN BOD2=2; /* TT */ ELSE IF CG=32019 THEN DO; IF V8='H' THEN BOD2=1; ELSE BOD2=2; END; /* A5, S5 */ ELSE IF CG=32020 THEN DO; IF V4 IN ('S','W','4') THEN BOD2=6; ELSE BOD2=4; END; /* A4, S4 */ ELSE IF MM2=32042 AND V4 IN ('S','W','4','8') THEN BOD2=6; /* A6 WAGON */ ELSE IF MM2=32042 THEN BOD2=4; /* A6 SEDAN */ ELSE IF MM2=32050 THEN DO; IF V4 IN ('V','T') THEN BOD2=1; ELSE BOD2=2; END; /* R8 */ ELSE BOD2=4; GOTO EB2; COOPER: V5=TRANSLATE(V5,'ZSGB','2568'); IF 2007 LE MY LE 2008 THEN GOTO COOP2007; IF 2009 LE MY LE 2010 THEN GOTO COOP2009; IF MY GE 2011 THEN GOTO COOP2011; IF 2005 LE MY LE 2006 AND V5 IN ('F','H') THEN BOD2=1; ELSE BOD2=3; GOTO EB2; COOP2007: IF V4='R' THEN BOD2=1; ELSE IF V4='M' THEN BOD2=3; GOTO EB2; COOP2009: IF V5 IN ('R','S') THEN BOD2=1; ELSE IF V5 IN ('F','L','M') THEN BOD2=3; GOTO EB2; COOP2011: IF V5 IN ('N','P') THEN BOD2=1; ELSE IF V5 IN ('F','G','U','V') THEN BOD2=3; GOTO EB2; BMW: V5=TRANSLATE(V5,'ZSGB','2568'); V4=TRANSLATE(V4,'ZSGB','2568'); IF 1986 LE MY LE 1999 THEN GOTO BMW86; IF 2000 LE MY LE 2003 THEN GOTO BMW2000; IF MY GE 2004 THEN GOTO BMW2004; IF MM2=34034 AND 1981 LE MY LE 1984 THEN BOD2=2; ELSE IF MM2=34034 AND MY=1985 AND V5 IN ('B','K') THEN BOD2=2; ELSE IF MM2=34034 AND MY=1985 AND V5 IN ('C','E') THEN BOD2=4; ELSE IF MM2=34036 THEN BOD2=2; ELSE IF MM2=34035 OR MM2=34037 THEN BOD2=4; GOTO EB2; BMW86: IF (V4='B' AND V5 IN ('A','H','K','B','J')) OR (V4='C' AND V5 IN ('J','H')) THEN BOD2=1; ELSE IF V4='C' AND V5='K' THEN DO; IF V6='9' THEN BOD2=1; ELSE IF V6='5' THEN BOD2=2; END; /* CLASSIFY THE Z3 M COUPE AS A 3-DR HATCHBACK, NOT A 2-DR COUPE (IGNORE VIN BOOK) */ ELSE IF V4='C' AND V5='M' THEN BOD2=3; ELSE IF V4='E' OR (V4='A' AND V5 IN ('A','B','C','K')) OR (V4='B' AND (V5 IN ('E','F','G') OR (V5='M' AND MY GE 2000))) THEN BOD2=2; ELSE IF V4='C' AND V5='G' THEN BOD2=3; ELSE IF (V4='D' AND V5 IN ('P','R')) OR (V4='H' AND V5 IN ('J','K')) THEN BOD2=6; ELSE BOD2=4; GOTO EB2; BMW2000: V45=V4||V5; V47=V4||V5||V6||V7; IF MM2=34034 THEN DO; IF V47 IN ('BR33','BR93','BS33','BS53') THEN BOD2=1; ELSE IF V4='B' THEN BOD2=2; ELSE IF V47 IN ('AR33','AW33','EN33','EP33') THEN BOD2=6; ELSE BOD2=4; END; ELSE IF MM2=34035 THEN DO; IF V45 IN ('DP','DR','DS') THEN BOD2=6; ELSE BOD2=4; END; ELSE IF MM2=34036 THEN DO; IF V45='EH' THEN BOD2=2; ELSE IF V45='EK' THEN BOD2=1; END; ELSE IF MM2=34037 THEN BOD2=4; ELSE IF MM2=34039 THEN DO; IF V47 IN ('CH33','CH93','CK93','CL93','CN33','CN53') THEN BOD2=1; ELSE BOD2=3; END; ELSE IF MM2 IN (34040,34042) THEN BOD2=1; GOTO EB2; BMW2004: V45=V4||V5; V47=V4||V5||V6||V7; IF MM2=34034 THEN DO; /* 300 */ IF V45 IN ('BR','BW','WL','WR','DX','DW') THEN BOD2=1; ELSE IF V4 IN ('B','W','K') THEN BOD2=2; ELSE IF V45 IN ('AZ','EN','EP','VT','UT','UU') THEN BOD2=6; ELSE BOD2=4; END; ELSE IF MM2=34035 THEN DO; /* 500 */ IF V45 IN ('NN','PT') THEN BOD2=6; ELSE IF CG=34033 THEN BOD2=5; ELSE BOD2=4; END; ELSE IF MM2=34036 THEN DO; /* 600 */ IF V45 IN ('EK','EB') THEN BOD2=1; ELSE IF V45 IN ('EH','EA') THEN BOD2=2; END; ELSE IF MM2=34037 THEN BOD2=4; ELSE IF MM2=34042 THEN DO; IF V45 IN ('BT','BU') THEN BOD2=1; ELSE IF V45='DU' THEN BOD2=2; END; ELSE IF MM2=34043 THEN DO; /* 100 */ IF V45 IN ('UL','UN') THEN BOD2=1; ELSE BOD2=2; END; GOTO EB2; NISSAN: IF MY GE 2010 THEN GOTO NISS2010; V=INPUT(TRANSLATE(V7,'2568','ZSGB'),1.0); IF V=1 THEN BOD2=4; ELSE IF CG=35026 AND V3='3' THEN BOD2=1; ELSE IF V=2 THEN BOD2=2; ELSE IF V=3 AND MM2=35044 AND MY=1983 THEN BOD2=4; ELSE IF V=3 THEN BOD2=5; ELSE IF V=4 AND (MM2 IN (35033,35034,35035,35042) OR (MM2=35043 AND MY=1982) OR (MM2=35043 AND MY=1986) OR (MM2=35044 AND CG=35024) OR (MM2=35032 AND 1981 LE MY LE 1983)) THEN BOD2=3; ELSE IF V=4 THEN BOD2=2; ELSE IF V=5 THEN BOD2=6; ELSE IF V=6 AND MM2=35032 AND 1981 LE MY LE 1983 THEN BOD2=7; ELSE IF V=6 AND MM2=35044 AND CG=35020 THEN BOD2=2; ELSE IF V=6 AND MM2=35048 THEN BOD2=1; ELSE IF V=6 THEN BOD2=3; ELSE IF V=7 THEN BOD2=1; GOTO EB2; NISS2010: V7=TRANSLATE(V7,'ZSGB','2568'); IF V7='A' THEN BOD2=4; ELSE IF V7='C' THEN BOD2=5; ELSE IF V7='E' THEN BOD2=2; ELSE IF V7='F' THEN BOD2=1; GOTO EB2; FIAT: V5=TRANSLATE(V5,'ZSGB','2568'); IF V5='A' OR V5='C' THEN BOD2=2; ELSE IF V5='B' THEN BOD2=4; ELSE IF V5='D' THEN BOD2=3; ELSE IF V5='E' THEN BOD2=5; ELSE IF V5='S' THEN BOD2=1; GOTO EB2; HONDA: IF 1987 LE MY LE 2009 THEN GOTO HONDA87; IF MY GE 2010 THEN GOTO HOND2010; V7=TRANSLATE(V7,'2568','ZSGB'); V=INPUT(V7,1.0); IF V=2 THEN BOD2=2; ELSE IF V=3 AND MM2=37030 AND MY=1984 THEN BOD2=2; ELSE IF V=3 THEN BOD2=3; ELSE IF V=4 THEN BOD2=4; ELSE IF V=5 THEN BOD2=6; GOTO EB2; HONDA87: V7=TRANSLATE(V7,'2568','ZSGB'); V=INPUT(V7,1.0); IF CG IN (37025,37033) AND 1 LE V LE 2 THEN BOD2=1; ELSE IF V=1 OR V=2 THEN BOD2=2; ELSE IF V=3 OR V=4 THEN BOD2=3; ELSE IF V=5 OR V=6 THEN BOD2=4; ELSE IF MM2=37039 THEN BOD2=5; ELSE IF V=7 OR V=8 THEN BOD2=6; ELSE IF MY=1991 AND MM2=37032 AND BOD2=9 THEN BOD2=4; GOTO EB2; HOND2010: V7=TRANSLATE(V7,'ZSGB','2568'); IF V7 IN ('A','B') THEN BOD2=2; ELSE IF V7 IN ('C','D') THEN BOD2=3; ELSE IF V7 IN ('E','F') THEN BOD2=4; ELSE IF V7 IN ('G','H') THEN BOD2=5; GOTO EB2; ISUZU: IF 1981 LE MY LE 1986 THEN DO; V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); END; ELSE DO; V6=TRANSLATE(V6,'2568','ZSGB'); V=INPUT(V6,1.0); END; IF 1987 LE MY LE 1989 THEN GOTO ISUZU87; IF 1990 LE MY LE 1993 THEN GOTO ISUZU90; IF V=7 OR V=77 THEN BOD2=3; ELSE IF V=69 THEN BOD2=4; GOTO EB2; ISUZU87: IF V=0 OR V=2 THEN BOD2=3; ELSE IF V=5 THEN BOD2=4; GOTO EB2; ISUZU90: IF V=2 THEN BOD2=2; ELSE IF V=4 THEN BOD2=3; ELSE IF V=5 THEN BOD2=4; GOTO EB2; JAGUAR: IF 2000 LE MY LE 2009 THEN GOTO JAG2000; IF MY GE 2010 THEN GOTO JAG2010; V=INPUT(TRANSLATE(V6,'2568','ZSGB'),1.0); IF V=1 OR V=6 THEN BOD2=4; ELSE IF V=4 OR V=2 THEN BOD2=1; ELSE IF V=3 OR V=5 THEN BOD2=2; GOTO EB2; JAG2000: V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); IF V IN (42,44) THEN BOD2=1; ELSE IF V IN (41,43) THEN BOD2=2; ELSE IF V IN (1:7,12,14,15,23,24,25,51,52,53,71,73,74,79,82,86,94,95) THEN BOD2=4; ELSE IF V IN (54,55) THEN BOD2=6; GOTO EB2; JAG2010: V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'ZSGB','2568'); V67=V6||V7; IF V67 IN ('4E','4G') THEN BOD2=1; ELSE IF V67 IN ('4D','4F') THEN BOD2=2; ELSE BOD2=4; GOTO EB2; MAZDA: 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; IF 2004 LE MY LE 2009 THEN GOTO MAZDA04; IF MY GE 2010 THEN GOTO MAZDA10; IF V=35 THEN BOD2=1; ELSE IF V IN (22,14,46,80,81) THEN BOD2=4; ELSE IF V=23 THEN BOD2=3; ELSE IF V IN (31,33,41,43) THEN BOD2=2; ELSE IF V=24 THEN BOD2=5; ELSE IF V=52 OR V=62 THEN BOD2=6; GOTO EB2; MAZDA04: IF CG=41032 THEN BOD2=4; ELSE IF V IN (15,16,25,26,35) THEN BOD2=1; ELSE IF V IN (12,17,22,32,80,81) THEN BOD2=4; ELSE IF V IN (14,19,24,29,34,84,85) THEN BOD2=5; ELSE IF V IN (82,83) THEN BOD2=6; GOTO EB2; MAZDA10: V7=TRANSLATE(V7,'ZSGB','2568'); IF CG=41032 THEN BOD2=4; ELSE IF V7 IN ('S','U','V','W') THEN BOD2=4; ELSE IF V7 IN ('H','K','L','M') THEN BOD2=5; GOTO EB2; MEBE: 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'); V47=V4||V5||V6||V7; IF 1992 LE MY LE 1999 THEN GOTO MEBE92; IF 2000 LE MY LE 2009 THEN GOTO MEBE2000; IF MY GE 2010 THEN GOTO MEBE2010; IF MY=1981 AND V=25 THEN BOD2=2; ELSE IF V IN (48,45,51,50,61,66,53,43,44) THEN BOD2=2; ELSE IF V6='9' THEN BOD2=6; ELSE BOD2=4; GOTO EB2; MEBE92: IF V=66 THEN BOD2=1; ELSE IF MM2=42047 AND V5='K' THEN BOD2=1; ELSE IF MM2=42047 THEN BOD2=2; ELSE IF CG=42016 THEN BOD2=2; ELSE IF V4='J' AND V5='H' THEN BOD2=6; ELSE IF MM2=42048 THEN BOD2=4; ELSE IF V47 IN ('NG70','JF70') THEN BOD2=4; ELSE IF V IN (47,48,52,61,63,65,67,68,70,75,76) THEN BOD2=2; ELSE IF V6='9' THEN BOD2=6; ELSE BOD2=4; GOTO EB2; MEBE2000: IF MM2 IN (42044,42045) THEN BOD2=1; ELSE IF MM2 IN (42047,42049) AND V5='K' THEN BOD2=1; /* CLK,SLR CONVERTIBLE */ ELSE IF MM2 IN (42047,42049) THEN BOD2=2; /* CLK,SLR COUPE */ ELSE IF V4='P' OR V=47 THEN BOD2=2; ELSE IF CG=42026 AND V5='N' THEN BOD2=2; /* C COUPE */ ELSE IF V47 IN ('UH70','UH76','UH83') AND MY LE 2005 THEN BOD2=4; ELSE IF V5='H' THEN BOD2=6; ELSE BOD2=4; GOTO EB2; MEBE2010: V45=V4||V5; IF V45='KK' THEN BOD2=1; /* E */ ELSE IF V45='KJ' THEN BOD2=2; /* E */ ELSE IF V45='HH' THEN BOD2=6; /* E */ ELSE BOD2=4; GOTO EB2; PEUGEOT: IF (MY LE 1989 AND V5='A') OR (1990 LE MY LE 1991 AND V6='1') THEN BOD2=4; ELSE BOD2=6; GOTO EB2; PORSCHE: IF V4='E' OR V4='B' OR V4='C' OR V4='D' THEN BOD2=1; ELSE BOD2=2; GOTO EB2; RENAULT: V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); IF V=97 THEN BOD2=1; ELSE IF V=36 OR V=96 THEN BOD2=2; ELSE IF V=22 OR V=93 THEN BOD2=3; ELSE IF V=95 OR V=34 OR V=45 THEN BOD2=4; ELSE IF V=39 OR V=99 THEN BOD2=5; ELSE IF V=35 OR V=48 THEN BOD2=6; GOTO EB2; SAAB: V=INPUT(TRANSLATE(V6,'2568','ZSGB'),1.0); IF MM2=47037 THEN BOD2=5; ELSE IF V=2 THEN BOD2=2; ELSE IF V=3 THEN BOD2=3; ELSE IF V=4 THEN BOD2=4; /* CLASSIFY THE 5-DOOR SAAB 9-5 AND 2006- SAAB 9-3 AS STATION WAGONS, NOT HATCHBACKS (IGNORE VIN BOOK) */ ELSE IF V=5 AND (MM2=47036 OR CG=47008) THEN BOD2=6; ELSE IF V=5 OR V=6 THEN BOD2=5; ELSE IF V=7 THEN BOD2=1; GOTO EB2; SUBARU: IF MY GE 2000 THEN GOTO SUBA2000; IF V5='B' OR V5='C' THEN BOD2=4; ELSE IF V5='A' OR (V5='F' AND MY LE 1989) OR (V5='G' AND MY LE 1990) THEN BOD2=3; ELSE IF V5='W' THEN BOD2=7; ELSE IF V5='K' OR (V5='M' AND MY LE 1984) OR V5='J' OR V5='N' OR (V5='F' AND MY GE 1990) OR (V5='G' AND MY GE 1996) OR (V5='H' AND MY GE 2000) THEN BOD2=6; ELSE IF V5='D' AND MM2=48036 THEN BOD2=5; ELSE IF V5='D' THEN BOD2=4; ELSE IF V5='X' OR (V5='M' AND MY GE 1994) THEN BOD2=2; GOTO EB2; SUBA2000: IF V5='M' AND CG=48017 THEN BOD2=4; /* SUBARU LEGACY 2010- */ ELSE IF V5='M' THEN BOD2=2; ELSE IF V5 IN ('F','G','H','P','R') THEN BOD2=6; ELSE BOD2=4; GOTO EB2; /* R = 5-dr wide body; assume SW until shown otherwise */ TOYOTA: V8=TRANSLATE(V8,'ZSGB','2568'); IF MY=1990 THEN GOTO TOYO90; IF 1991 LE MY LE 1995 THEN GOTO TOYO91; IF MY GE 1996 THEN GOTO TOYO96; IF V8='K' AND MM2=49033 THEN BOD2=1; ELSE IF V8='D' OR (V8='C' AND (MM2=49033 OR MM2=49041)) OR (V8='C' AND MM2=49032 AND 1981 LE MY LE 1983) OR (V8='C' AND MM2=49032 AND 1988 LE MY LE 1990) OR (V8='J' AND MM2=49041) OR (V8='S' AND MY GE 1984) THEN BOD2=2; ELSE IF V8='C' OR V8='G' OR V8='M' OR V8='Z' OR (V8='J' AND MM2=49034) OR (V8='L' AND 49033 LE MM2 LE 49034) OR (V8='L' AND MM2=49032 AND 1981 LE MY LE 1983) THEN BOD2=3; ELSE IF V8='E' OR V8='F' OR V8='J' THEN BOD2=4; ELSE IF V8='H' OR V8='L' THEN BOD2=5; ELSE IF V8='V' OR V8='W' THEN BOD2=6; ELSE IF V8='S' AND 1981 LE MY LE 1983 THEN BOD2=7; GOTO EB2; TOYO90: IF V8='K' AND MM2=49033 THEN BOD2=1; IF V8='A' OR V8='B' OR V8='E' OR (V8 IN ('F','J') AND MM2=49040) THEN BOD2=4; ELSE IF V8='F' OR V8='J' THEN BOD2=2; ELSE IF V8='K' OR (V8='V' AND MM2=49032) OR V8='W' THEN BOD2=6; ELSE IF V8='L' OR V8='M' OR V8='N' OR V8='P' THEN BOD2=3; ELSE IF MY=1990 AND V8='H' THEN BOD2=5; GOTO EB2; TOYO91: IF V8='K' AND MM2=49033 THEN BOD2=1; ELSE IF V8='A' OR V8='T' OR V8='E' OR (V8 IN ('F','J') AND MM2=49040) OR (V8='B' AND MM2=49032) THEN BOD2=4; ELSE IF V8 IN ('C','D','S','U','F') OR (V8='J' AND MM2=49032) OR (V8='B' AND MM2=49038) OR MM2=49041 THEN BOD2=2; ELSE IF V8 IN ('M','N','J','P','L') THEN BOD2=3; ELSE IF V8='W' AND MM2=49033 THEN BOD2=9; ELSE IF V8='K' OR V8='V' OR V8='W' THEN BOD2=6; GOTO EB2; TOYO96: IF V4='F' THEN BOD2=1; ELSE IF V4 IN ('A','C') THEN BOD2=2; ELSE IF V4 IN ('D','J') THEN BOD2=3; /* Polk classifies Scion tC as 3HB */ ELSE IF V4='B' THEN BOD2=4; ELSE IF V4 IN ('K','L') THEN BOD2=5; /* POLK CLASSIFIES MATRIX AS 4HB */ ELSE IF V4='E' THEN BOD2=6; GOTO EB2; VOLVO: IF MY LE 2009 THEN V5=TRANSLATE(V5,'ZSGB','2568'); ELSE V8=TRANSLATE(V8,'ZSGB','2568'); IF 1992 LE MY LE 2009 THEN GOTO VOLV1992; IF MY GE 2010 THEN GOTO VOLV2010; V8=TRANSLATE(V8,'2568','ZSGB'); V=INPUT(V8,1.0); IF V=2 OR V=7 THEN BOD2=2; ELSE IF V=4 THEN BOD2=4; ELSE IF V=5 THEN BOD2=6; GOTO EB2; VOLV1992: IF V5 IN ('H','S','T') THEN BOD2=4; /* VOLVOS WITH 5 DOORS ARE ALWAYS SW, NEVER 5HB */ ELSE IF V5 IN ('J','V','W','Z') THEN BOD2=6; ELSE IF V5='C' THEN BOD2=1; ELSE IF V5='K' AND MM2=51049 THEN BOD2=3; /* Polk calls C30 3HB */ ELSE IF V5='K' THEN BOD2=2; GOTO EB2; VOLV2010: IF V8 IN ('H','R','S') THEN BOD2=4; /* NOTE: IN 2010 V8 REPLACED V5 AS THE BODY-STYLE CODE */ /* VOLVOS WITH 5 DOORS ARE ALWAYS SW, NEVER 5HB */ ELSE IF V8 IN ('J','W') THEN BOD2=6; ELSE IF V8='C' THEN BOD2=1; ELSE IF V8='K' AND MM2=51049 THEN BOD2=3; /* Polk calls C30 3HB */ ELSE IF V8='K' THEN BOD2=2; GOTO EB2; MITS: IF MY LE 2009 THEN DO; V7=TRANSLATE(V7,'2568','ZSGB'); V=INPUT(V7,1.0); END; ELSE V7=TRANSLATE(V7,'ZSGB','2568'); IF 1988 LE MY LE 2009 THEN GOTO MITS1988; IF MY GE 2010 THEN GOTO MITS2010; IF V=3 THEN BOD2=2; ELSE IF V=4 THEN BOD2=3; ELSE IF 6 LE V LE 7 THEN BOD2=4; ELSE IF V=8 THEN BOD2=5; ELSE IF V=9 THEN BOD2=6; GOTO EB2; MITS1988: IF V=3 OR V=4 THEN BOD2=3; ELSE IF V=5 THEN BOD2=1; ELSE IF V=0 THEN BOD2=5; ELSE IF V=1 THEN BOD2=2; ELSE IF 6 LE V LE 7 THEN BOD2=4; ELSE IF V=9 THEN BOD2=6; GOTO EB2; MITS2010: IF V7='D' THEN BOD2=3; ELSE IF V7='E' THEN BOD2=1; ELSE IF V7='F' THEN BOD2=4; ELSE IF V7='H' THEN BOD2=6; GOTO EB2; SUZUKI: V5=TRANSLATE(V5,'B','8'); IF CG IN (64004,64005) THEN GOTO SUDAEWOO; IF MY GE 1995 THEN GOTO SUZUKI95; IF V5='A' OR V5='C' THEN BOD2=3; ELSE IF V5='E' OR V5='H' THEN BOD2=4; ELSE IF V5='B' OR V5='D' THEN BOD2=5; GOTO EB2; SUZUKI95: V8=TRANSLATE(V8,'S','5'); IF MM2=53040 THEN GOTO SUZUKI07; IF V8='H' AND MY LE 2001 THEN BOD2=3; ELSE IF V8 IN ('H','3') THEN BOD2=5; ELSE IF V8='S' THEN BOD2=4; ELSE IF V8='W' THEN BOD2=6; GOTO EB2; SUDAEWOO: V6=TRANSLATE(V6,'568','SGB'); IF V6='5' THEN BOD2=4; ELSE IF V6='6' THEN BOD2=5; ELSE IF V6='8' THEN BOD2=6; GOTO EB2; SUZUKI07: V5=TRANSLATE(V5,'B','8'); IF V5 IN ('A','B') THEN BOD2=5; ELSE BOD2=4; GOTO EB2; ACURA: IF MY GE 2010 THEN GOTO ACUR2010; V7=TRANSLATE(V7,'2568','ZSGB'); V=INPUT(V7,1.0); IF MM2=54033 AND MY GE 2001 AND V8='6' THEN BOD2=1; ELSE IF V=1 OR V=2 THEN BOD2=2; ELSE IF V=3 OR V=4 THEN BOD2=3; ELSE IF V=5 OR V=6 THEN BOD2=4; ELSE IF V=7 OR V=8 THEN BOD2=5; GOTO EB2; ACUR2010: V7=TRANSLATE(V7,'ZSGB','2568'); IF V7 IN ('E','F') THEN BOD2=4; ELSE IF V7='H' AND MM2=54039 THEN BOD2=6; GOTO EB2; /* POLK CALLS TSX WAGON SW, NOT 5HB */ HYUNDAI: IF CG GE 55008 THEN GOTO NEWHYUN; IF V5='D' THEN BOD2=3; ELSE IF V5='F' THEN BOD2=4; ELSE IF V5 IN ('E','G') THEN BOD2=2; ELSE IF V5='A' THEN BOD2=5; ELSE IF V5='W' THEN BOD2=6; GOTO EB2; NEWHYUN: V6=TRANSLATE(V6,'2568','ZSGB'); V=INPUT(V6,1.0); IF 3 LE V LE 5 THEN BOD2=V; ELSE IF V=6 THEN BOD2=2; ELSE IF V IN (7,8) THEN BOD2=6; GOTO EB2; INFINITI: IF MY GE 2010 THEN GOTO NISS2010; V=INPUT(TRANSLATE(V7,'2568','ZSGB'),1.0); IF V=1 THEN BOD2=4; ELSE IF V=2 THEN BOD2=2; ELSE IF MM2=58031 AND V3='X' AND V=6 THEN BOD2=1; ELSE IF V=4 THEN BOD2=2; GOTO EB2; LEXUS: IF MY GE 1996 THEN GOTO LEXUS96; IF V8='C' THEN BOD2=2; ELSE IF V8 IN ('E','T') THEN BOD2=4; GOTO EB2; LEXUS96: IF CG=49051 AND MY GE 2010 THEN DO; /* LEXUS IS 2010- */ IF V6='2' THEN BOD2=1; ELSE IF V6='5' THEN BOD2=4; END; ELSE IF V4='B' THEN BOD2=4; ELSE IF V4='F' THEN BOD2=1; ELSE IF V4='C' THEN BOD2=2; ELSE IF V4='E' AND CG=49045 THEN BOD2=6; /* IN POLK, IS-300 SPORTCROSS IS SW */ ELSE IF V4='E' THEN BOD2=5; ELSE IF V4='H' THEN BOD2=6; GOTO EB2; DAIHATSU: V4=TRANSLATE(V4,'ZSGB','2568'); IF V4='F' OR V4='J' THEN BOD2=3; ELSE IF V4='E' OR V4='H' THEN BOD2=4; GOTO EB2; STERLING: IF V7 IN ('3','4') THEN BOD2=4; ELSE IF V7='5' THEN BOD2=5; GOTO EB2; KIA: 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; IF MY GE 2010 THEN GOTO KIA2010; IF MY LE 1999 OR V IN (12,22) THEN BOD2=4; ELSE IF V=16 AND CG=63006 THEN BOD2=6; /* POLK SOMETIMES CLASSIFIED 63006 RIO CINCO AS SW, NOT 5HB; BUT 55012 CINCO ALWAYS AS 5HB */ ELSE IF V IN (16,24) THEN BOD2=5; GOTO EB2; KIA2010: IF V6='4' THEN BOD2=4; ELSE IF V6='5' THEN BOD2=5; ELSE IF V6='6' THEN BOD2=2; GOTO EB2; DAEWOO: IF CG=64003 THEN BOD2=4; ELSE IF CG IN (64001,64002) AND V6='5' THEN BOD2=4; ELSE IF CG=64001 AND V6='2' THEN BOD2=3; ELSE IF CG=64002 THEN DO; IF V6='6' THEN BOD2=5; ELSE IF V6='8' THEN BOD2=6; END; SMART: IF V5='J' THEN BOD2=2; ELSE IF V5='K' THEN BOD2=1; GOTO EB2; EB2: IF BOD2=. THEN BOD2=9; ELSE IF MM2=30041 AND BOD2=6 AND V4='C' THEN BOD2=9; ELSE IF MM2=49038 AND MY=1990 AND BOD2=5 THEN BOD2=9; ELSE IF MM2=49038 AND MY=1998 AND BOD2=4 THEN BOD2=9; ELSE IF MM2=49040 AND MY LE 1993 AND BOD2=2 THEN BOD2=9; BODP=BOD2; /* BODY TYPE FOR WORKING WITH POLK DATA (IN CASE POLK MERGES BODY TYPES) */ /* -------------------------------------------------------------------- */ /* POLK SIMPLY HAS NO REGISTRATIONS FOR THESE MODELS IN SELECTED CY. */ /* THEY AREN'T MERGED WITH SOMETHING ELSE, THEY'RE JUST MISSING. */ /* SET MMP=99999 TO EXCLUDE THESE FATALITIES FOR WORK WITH POLK DATA. */ /* -------------------------------------------------------------------- */ IF CG=18052 AND MM2 IN (18003,19003,21003) AND MY=1984 AND CY GE 1985 THEN DO; MMP=99999; CGP=99999; BODP=9; END; /* 1984 GM FWD LUXURY CARS */ ELSE IF MM2=20031 AND MY=1989 AND BOD2=4 AND CY GE 2007 THEN DO; MMP=99999; CGP=99999; BODP=9; END; /* 1989 CHEVY SPECTRUM 4SD */ ELSE IF MM2=35030 AND CY IN (2004,2005) THEN DO; MMP=99999; CGP=99999; BODP=9; END; /* NISSAN AXXESS (ALL MY) */ ELSE IF MM2 IN (36032,36036) AND MY=1983 THEN DO; MMP=99999; CGP=99999; BODP=9; END; /* POLK HAS NO 1983 FIATS IN ANY CY */ ELSE IF MM2=38031 AND 1981 LE MY LE 1984 AND (CY LE 1982 OR CY GE 2005) THEN DO; MMP=99999; CGP=99999; BODP=9; END; /* 1981-1984 ISUZU I-MARK */ ELSE IF MM2=38033 AND MY=1990 THEN DO; MMP=99999; CGP=99999; BODP=9; END; /* POLK HAS NO 1990 ISUZU STYLUS IN ANY CY */ ELSE IF MM2=48035 AND MY=1985 AND CY=1985 THEN DO; MMP=99999; CGP=99999; BODP=9; END; /* 1985 SUBARU XT */ /* --------------------------------------------------------------------- */ /* POLK MERGES 2 BODY TYPES FOR THESE MODELS, BUT ONLY IN SELECTED CY. */ /* DEFINE BODP TO FLAG THESE FATALITIES FOR WORKING WITH POLK DATA. */ /* --------------------------------------------------------------------- */ ELSE IF MM2=12003 AND MY=1983 AND 1992 LE CY LE 1996 AND BOD2 IN (2,3) THEN BODP=23; /* 1983 MUSTANG 2CP AND 3HB */ ELSE IF MM2=20015 AND MY=1985 AND BOD2 IN (2,3) THEN BODP=23; /* 1985 CHEVY CITATION, ACTUALLY IN ALL CY */ ELSE IF MM2=33035 AND CG=34023 AND MY=2008 AND CY=2008 THEN BODP=13; /* 2008 MINI-COOPER (NOT CLUBMAN) */ ELSE IF MM2=38031 AND MY=1984 AND CY LE 2004 THEN BODP=34; /* 1984 ISUZU I-MARK 3HB AND 4SD */ ELSE IF MM2=58037 AND MY=2006 AND CY=2006 THEN BODP=24; /* 2006 INFINITI G35 */ /* --------------------------------------------------------------------- */ /* OTHER POLK ANOMALIES FOR MY 2000-2007 IN CY 2002-2008 IDENTIFIED IN */ /* NHTSA's SIZE-SAFETY ANALYSIS BUT NOT PREVIOUSLY ADDRESSED HERE */ /* --------------------------------------------------------------------- */ IF MM2=6043 AND MY=2001 AND CY LE 2003 AND BOD2 IN (2,4) THEN DO; BODP=24; CGP=6026.1; END; /* POLK CLASSIFIES SOME 2001 SEBRING 4SD AS 2CP (WHICH ARE IN SEPARATE CGs) */ ELSE IF MM2=6043 AND MY=2003 AND CY LE 2003 AND BOD2 IN (1,4) THEN DO; BODP=14; CGP=6026.2; END; /* POLK CLASSIFIES SOME 2003 SEBRING CV AS 4SD (WHICH ARE IN SEPARATE CGs) */ ELSE IF MM2=30042 AND MY=2005 AND CY LE 2006 THEN BODP=35; /* POLK CLASSIFIES SOME 2005 VW GOLF 3HB AS 5HB */ ELSE IF MM2=42047 AND MY IN (2005,2006) AND CY LE 2007 AND BOD2=1 AND V4='T' AND V5='K' AND V6='7' AND V7='5' THEN MYP=9999; /* POLK CLASSIFIES SOME 2006 MERCEDES CLK500 CV AS 2005 */ ELSE IF MM2=42048 AND MY IN (2002,2003) AND CY=2003 AND BOD2=4 AND V4='J' AND V5='F' AND V6='6' AND V7='5' THEN MYP=9999; /* POLK CLASSIFIES SOME 2003 MERCEDES E320 4SD AS 2002 */ ELSE IF MM2=51043 AND MY=2000 AND CY IN (1999,2000,2004) AND BOD2 IN (1,2) THEN BODP=12; /* POLK CLASSIFIES SOME 2000 VOLVO C70 2CP AS 2CV */ ELSE IF MM2=52035 AND MY=2000 AND CY=2006 AND V5='Y' AND V6='3' THEN DO; BODP=24; CGP=52017.1; END; /* POLK CLASSIFIES 2000 MIRAGE LS 2CP AS 4SD (WHICH ARE IN SEPARATE CGs) */ ELSE IF MM2=52035 AND MY=2001 AND CY LE 2003 AND V5='Y' AND V6='3' THEN DO; BODP=24; CGP=52017.1; END; /* POLK CLASSIFIES 2001 MIRAGE LS 2CP AS 4SD (WHICH ARE IN SEPARATE CGs) */ ELSE IF MM2=52037 AND MY IN (2003,2004) AND CY LE 2004 AND BOD2=1 AND V5='E' AND V6='8' THEN DO; MMP=99999; CGP=99999; BODP=9; END; /* POLK HAS NO 2003-2004 ECLIPSE SPIDER GT */ ELSE IF MM2=63033 AND MY=2006 AND CY LE 2006 AND BOD2=5 THEN DO; MMP=99999; CGP=99999; BODP=9; END; /* POLK HAS NO 2006 KIA SPECTRA 5HB */ RUN;