/* ------------------------------------------------------------------------------------------------------------ */ /* VehicleAttributes.SAS (FOR MODEL YEARS 2000-2007 ONLY) */ /* */ /* A SERIES OF 5 INDIVIDUAL DATA STEPS TO ADD INFO ON ABS, ESC, COMPATIBILITY, SIDE/CURTAIN AIR BAGS & AWD/4x4 */ /* TO ANY DATA FILE WITH OF MY 2000-2007 VINs FOR WHICH MM2 AND CG HAVE ALREADY BEEN DECODED */ /* NOTE: IF EQUIPMENT IS OPTIONAL AND NOT VIN-DECODABLE, GIVE PERCENT OF SALES EQUIPPED WITH THIS OPTION */ /* ------------------------------------------------------------------------------------------------------------ */ /* ------------------------------ */ /* STEP 1: ADDS 4-WHEEL ABS INFO */ /* ------------------------------ */ DATA FILE1; SET FILE0; /* FILE0 IS A FILE OF VEHICLE RECORDS WITH VINs FOR WHICH MM2 AND CG HAVE ALREADY BEEN DECODED */ ABS=1; /* DEFAULT: ABS-EQUIPPED */ IF MAK2 IN (3,11,13,19,23,30,32,33,34,38,39,42,45,47,51,54,58,59,62) THEN RETURN; /* MAKES WITH ABS STANDARD ON ALL THEIR 2000-2007 VEHICLES: HUMMER, SPRINTER, LINCOLN, CADILLAC, */ /* GMC, VW, AUDI, MINI-COOPER, BMW, ISUZU, JAGUAR, MERCEDES, PORSCHE, SAAB, VOLVO, ACURA, */ /* INFINITI, LEXUS, LAND ROVER */ IF MAK2=2 THEN GOTO JEEP; IF MAK2=6 THEN GOTO CHRYSLER; IF MAK2=7 THEN GOTO DODGE; IF MAK2=9 THEN GOTO PLYMOUTH; IF MAK2=12 THEN GOTO FORD; IF MAK2=14 THEN GOTO MERCURY; IF MAK2=18 THEN GOTO BUICK; IF MAK2=20 THEN GOTO CHEVY; IF MAK2=21 THEN GOTO OLDS; IF MAK2=22 THEN GOTO PONTIAC; IF MAK2=24 THEN GOTO SATURN; IF MAK2=35 THEN GOTO NISSAN; IF MAK2=37 THEN GOTO HONDA; IF MAK2=41 THEN GOTO MAZDA; IF MAK2=48 THEN GOTO SUBARU; IF MAK2=49 THEN GOTO TOYOTA; IF MAK2=52 THEN GOTO MITS; IF MAK2=53 THEN GOTO SUZUKI; IF MAK2=55 THEN GOTO HYUNDAI; IF MAK2=63 THEN GOTO KIA; IF MAK2=64 THEN GOTO DAEWOO; JEEP: IF MY=2007 OR 2312 LE MM2 LE 2319 THEN RETURN; /* ALL 2007 JEEPS, GRAND CHEROKEE, COMMANDER */ IF 2300 LE MM2 LE 2309 THEN DO; IF MY=2000 THEN ABS=.12; ELSE IF MY=2001 THEN ABS=.13; RETURN; END; /* CHEROKEE */ IF MM2=2321 THEN DO; IF MY=2000 THEN ABS=.06; ELSE IF MY=2001 THEN ABS=.04; ELSE IF MY=2002 THEN ABS=.05; ELSE IF MY=2003 THEN ABS=.03; ELSE ABS=.01; RETURN; END; /* WRANGLER */ IF MM2 IN (2342,2343) THEN DO; IF MY=2002 THEN ABS=.19; ELSE IF MY=2003 THEN ABS=.17; ELSE IF MY=2004 THEN ABS=.14; ELSE IF MY=2005 THEN ABS=.18; RETURN; END; /* LIBERTY */ ABS=9; RETURN; CHRYSLER: IF MM2 IN (6042,6054,6055,6312,6313) THEN RETURN; /* LHS, PACIFICA, CROSSFIRE, ASPEN */ IF MM2=6041 THEN DO; IF MY IN (2000,2002) THEN ABS=.52; ELSE IF MY=2001 THEN ABS=.50; ELSE ABS=.39; RETURN; END; /* CONCORDE */ IF MM2=6043 AND BOD2=1 THEN DO; IF MY=2000 THEN RETURN; ELSE IF MY=2001 THEN ABS=.52; ELSE IF MY=2002 THEN ABS=.52; ELSE IF MY=2003 THEN ABS=.42; ELSE IF MY=2004 THEN ABS=.33; ELSE IF MY=2005 THEN ABS=.17; ELSE ABS=.13; RETURN; END; /* SEBRING CV */ IF MM2=6043 AND BOD2=2 THEN DO; IF MY=2000 THEN ABS=.25; ELSE IF MY=2001 THEN ABS=.23; ELSE IF MY=2002 THEN ABS=.15; ELSE IF MY=2003 THEN ABS=.09; ELSE IF MY=2004 THEN ABS=.04; ELSE ABS=.11; RETURN; END; /* SEBRING COUPE */ IF MM2 IN (6043,6044) AND BOD2=4 THEN DO; IF MY=2000 THEN ABS=.63; ELSE IF MY=2001 THEN ABS=.25; ELSE IF MY=2002 THEN ABS=.19; ELSE IF MY=2003 THEN ABS=.20; ELSE IF MY=2004 THEN ABS=.10; ELSE IF MY=2005 THEN ABS=.10; ELSE IF MY=2006 THEN ABS=.12; RETURN; END; /* CIRRUS, SEBRING SEDAN */ IF MM2=6051 THEN DO; IF MY=2007 THEN ABS=.80; RETURN; END; /* 300 */ IF MM2=6052 AND BOD2=0 THEN DO; IF MY=2001 THEN ABS=.57; ELSE IF MY=2002 THEN ABS=.37; ELSE IF MY=2003 THEN ABS=.36; ELSE IF MY=2004 THEN ABS=.17; ELSE IF MY=2005 THEN ABS=.08; ELSE IF MY=2006 THEN ABS=.08; ELSE ABS=.04; RETURN; END; /* PT CRUISER WAGON */ IF MM2=6052 AND BOD2=1 THEN DO; IF MY=2005 THEN ABS=.31; ELSE IF MY=2006 THEN ABS=.23; ELSE ABS=.03; RETURN; END; /* PT CRUISER CONVERTIBLE */ IF MM2=6053 THEN DO; ABS=0; RETURN; END; /* PROWLER */ IF MM2 IN (6402,6409) THEN DO; IF MY=2000 THEN ABS=.51; ELSE IF MY=2001 THEN ABS=.29; ELSE IF MY=2002 THEN ABS=.21; ELSE ABS=.14; RETURN; END; /* VOYAGER, GRAND VOYAGER */ IF MM2 IN (6406,6407) THEN DO; IF MY=2003 THEN ABS=.98; ELSE IF MY=2004 THEN ABS=.85; ELSE IF MY=2005 THEN ABS=.82; ELSE IF MY=2006 THEN ABS=.76; ELSE IF MY=2007 THEN ABS=.87; RETURN; END; /* TOWN & COUNTRY */ ABS=9; RETURN; DODGE: IF MM2 IN (7342,7343) THEN RETURN; /* NITRO */ IF MM2=7013 THEN DO; IF MY=2000 THEN ABS=0; RETURN; END; /* VIPER */ IF MM2=7020 THEN DO; IF MY=2000 THEN ABS=.07; ELSE IF MY=2001 THEN ABS=.08; ELSE IF MY=2002 THEN ABS=.03; ELSE IF MY=2003 THEN ABS=.03; ELSE IF MY=2004 THEN ABS=.10; ELSE ABS=.07; RETURN; END; /* NEON */ IF MM2=7021 THEN DO; IF MY=2005 THEN ABS=.90; ELSE IF MY=2006 THEN ABS=.84; ELSE ABS=.75; RETURN; END; /* MAGNUM */ IF MM2=7024 THEN DO; IF MY=2006 THEN ABS=.93; ELSE ABS=.79; RETURN; END; /* CHARGER */ IF MM2=7025 THEN DO; ABS=.95; RETURN; END; /* CALIBER */ IF MM2=7041 THEN DO; IF MY=2000 THEN ABS=.32; ELSE IF MY=2001 THEN ABS=.40; ELSE IF MY=2002 THEN ABS=.33; ELSE IF MY=2003 THEN ABS=.32; ELSE ABS=.33; RETURN; END; /* INTREPID */ IF MM2 IN (7042,7043) AND BOD2=2 THEN DO; IF MY=2000 THEN ABS=.09; ELSE IF MY=2001 THEN ABS=.15; ELSE IF MY=2002 THEN ABS=.09; ELSE IF MY=2003 THEN ABS=.05; ELSE IF MY=2004 THEN ABS=.06; ELSE ABS=.05; RETURN; END; /* AVENGER, STRATUS CP */ IF MM2=7043 AND BOD2=4 THEN DO; IF MY=2000 THEN ABS=.24; ELSE IF MY=2001 THEN ABS=.25; ELSE IF MY=2002 THEN ABS=.19; ELSE IF MY=2003 THEN ABS=.09; ELSE IF MY=2004 THEN ABS=.20; ELSE IF MY=2005 THEN ABS=.16; ELSE ABS=.14; RETURN; END; /* STRATUS SEDAN */ IF 7200 LE MM2 LE 7209 THEN DO; IF MY=2000 THEN ABS=.06; ELSE IF MY=2001 THEN ABS=.07; ELSE IF MY=2002 THEN ABS=.06; ELSE IF MY=2003 THEN ABS=.06; ELSE IF MY=2004 THEN ABS=.05; ELSE IF MY=2005 THEN ABS=.08; ELSE IF MY=2006 THEN ABS=.08; ELSE ABS=.07; RETURN; END; /* DAKOTA */ IF 7210 LE MM2 LE 7219 THEN DO; IF MY=2000 THEN ABS=.06; ELSE IF MY=2001 THEN ABS=.06; ELSE IF MY=2002 THEN ABS=.10; ELSE IF MY=2003 THEN ABS=.38; ELSE IF MY=2004 THEN ABS=.15; ELSE IF MY=2005 THEN ABS=.16; ELSE IF MY=2006 THEN ABS=.17; ELSE ABS=.11; RETURN; END; /* RAM 1500 PICKUP */ IF 7220 LE MM2 LE 7239 THEN DO; IF MY=2000 THEN ABS=.06; RETURN; END; /* RAM 2500/3500 PICKUP */ IF MM2 IN (7312,7313) THEN DO; IF MY=2000 THEN ABS=.19; ELSE IF MY=2001 THEN ABS=.19; ELSE IF MY=2002 THEN ABS=.14; ELSE IF MY=2003 THEN ABS=.13; RETURN; END; /* DURANGO */ IF 7400 LE MM2 LE 7409 THEN DO; IF MY=2000 THEN ABS=.69; ELSE IF MY=2001 THEN ABS=.80; ELSE IF MY=2002 THEN ABS=.71; ELSE IF MY=2003 THEN ABS=.68; ELSE IF MY=2004 THEN ABS=.73; ELSE IF MY=2005 THEN ABS=.81; ELSE IF MY=2006 THEN ABS=.78; ELSE ABS=.85; RETURN; END; /* CARAVAN, GRAND CARAVAN */ IF 7410 LE MM2 LE 7439 THEN DO; IF MY=2000 THEN ABS=.15; ELSE IF MY=2001 THEN ABS=.20; ELSE IF MY=2002 THEN ABS=.14; ELSE ABS=.65; RETURN; END; /* RAM VAN */ ABS=9; RETURN; PLYMOUTH: IF MM2=9020 THEN DO; ABS=.04; RETURN; END; /* NEON */ IF MM2=9038 THEN DO; ABS=.11; RETURN; END; /* BREEZE */ IF MM2=9039 THEN DO; ABS=0; RETURN; END; /* PROWLER */ IF 9400 LE MM2 LE 9409 THEN DO; IF MY=2000 THEN ABS=.51; ELSE IF MY=2001 THEN ABS=.29; ELSE IF MY=2002 THEN ABS=.21; ELSE ABS=.14; RETURN; END; /* VOYAGER, GRAND VOYAGER */ ABS=9; RETURN; FORD: IF MM2 IN (12004,12021,12022,12024,12038,12300:12339,12400:12439) THEN RETURN; /* T-BIRD, 500, FREESTYLE, EDGE, GT, EXPLORER, EXPEDITION, EXCURSION, WINDSTAR, FREESTAR, E VAN */ IF MM2=12003 THEN DO; IF MY=2000 THEN ABS=.22; ELSE IF MY=2001 THEN ABS=.70; ELSE IF MY=2002 THEN ABS=.71; ELSE IF MY=2003 THEN ABS=.77; ELSE IF MY=2004 THEN ABS=.59; ELSE IF MY=2005 THEN ABS=.68; ELSE IF MY=2006 THEN ABS=.81; ELSE ABS=.68; RETURN; END; /* MUSTANG */ IF MM2=12013 THEN DO; IF MY=2000 THEN ABS=.11; ELSE IF MY=2001 THEN ABS=.23; ELSE IF MY=2002 THEN ABS=.16; ELSE ABS=.05; RETURN; END; /* ESCORT */ IF MM2=12016 THEN DO; IF MY=2000 THEN ABS=.69; ELSE IF MY=2001 THEN ABS=.68; ELSE IF MY=2002 THEN ABS=.79; RETURN; END; /* CROWN VICTORIA */ IF MM2=12017 THEN DO; IF MY=2000 THEN ABS=.43; ELSE IF MY=2001 THEN ABS=.72; ELSE IF MY=2002 THEN ABS=.72; ELSE IF MY=2003 THEN ABS=.84; ELSE IF MY=2004 THEN ABS=.74; ELSE IF MY=2005 THEN ABS=.53; ELSE IF MY=2006 THEN ABS=.35; ELSE ABS=.10; RETURN; END; /* TAURUS */ IF MM2=12023 THEN DO; IF MY=2006 THEN ABS=.46; ELSE ABS=.44; RETURN; END; /* FUSION */ IF MM2=12035 THEN DO; ABS=.77; RETURN; END; /* CONTOUR */ IF MM2=12037 THEN DO; IF MY=2000 THEN ABS=.22; ELSE IF MY=2001 THEN ABS=.20; ELSE IF MY=2002 THEN ABS=.19; ELSE IF MY=2003 THEN ABS=.24; ELSE IF MY=2004 THEN ABS=.28; ELSE IF MY=2005 THEN ABS=.15; ELSE IF MY=2006 THEN ABS=.33; ELSE ABS=.42; RETURN; END; /* FOCUS */ IF 12200 LE MM2 LE 12209 THEN DO; IF MY=2000 THEN ABS=.31; RETURN; END; /* RANGER */ IF 12210 LE MM2 LE 12239 THEN DO; IF MY=2000 THEN ABS=.75; RETURN; END; /* F PICKUP */ IF 12340 LE MM2 LE 12349 THEN DO; IF MY=2001 THEN ABS=.73; ELSE IF MY=2002 THEN ABS=.81; ELSE IF MY=2003 THEN ABS=.79; ELSE IF MY=2004 THEN ABS=.80; RETURN; END; /* ESCAPE */ ABS=9; RETURN; MERCURY: IF MM2 IN (14020,14039,14300:14409) THEN RETURN; /* MONTEGO, MARAUDER, MOUNTAINEER, MARINER, MONTEREY */ IF MM2=14016 THEN DO; IF MY=2000 THEN ABS=.50; ELSE IF MY=2001 THEN ABS=.56; RETURN; END; /* GRAND MARQUIS */ IF MM2=14017 THEN DO; IF MY=2000 THEN ABS=.78; ELSE IF MY=2001 THEN ABS=.82; ELSE IF MY=2002 THEN ABS=.90; ELSE IF MY=2005 THEN ABS=.76; RETURN; END; /* SABLE */ IF MM2=14021 THEN DO; IF MY=2006 THEN ABS=.79; RETURN; END; /* MILAN */ IF MM2=14037 THEN DO; ABS=.72; RETURN; END; /* MYSTIQUE */ IF MM2=14038 THEN DO; IF MY=2000 THEN ABS=.24; ELSE ABS=.22; RETURN; END; /* COUGAR */ IF MM2=14452 THEN DO; IF MY=2000 THEN ABS=.49; ELSE IF MY=2001 THEN ABS=.49; ELSE ABS=.74; RETURN; END; /* VILLAGER */ ABS=9; RETURN; BUICK: IF MM2 IN (18002,18003,18023,18302,18303,18454:18457) THEN RETURN; /* LeSABRE, PARK AVENUE, LUCERNE, RAINIER, TERAZA */ IF MM2=18017 THEN DO; IF MY=2003 THEN ABS=.33; ELSE IF MY=2004 THEN ABS=.30; ELSE IF MY=2005 THEN ABS=.37; RETURN; END; /* CENTURY */ IF MM2=18020 THEN DO; IF MY=2004 THEN ABS=.48; RETURN; END; /* REGAL */ IF MM2=18022 THEN DO; IF MY=2005 THEN ABS=.60; ELSE IF MY=2006 THEN ABS=.96; ELSE ABS=.95; RETURN; END; /* LaCROSSE */ IF MM2 IN (18356,18357) THEN DO; IF MY=2003 THEN ABS=.84; ELSE IF MY=2004 THEN ABS=.76; ELSE IF MY=2005 THEN ABS=.73; ELSE IF MY IN (2006,2007) THEN ABS=.69; RETURN; END; /* RENDEZVOUS */ ABS=9; RETURN; CHEVY: IF MM2 IN (20004,20009,20038,20200:20329,20342:20439) OR CG IN (18410,18412) THEN RETURN; /* CORVETTE, CAMARO, SSR, ALL PICKUPS, BLAZER, TRAILBLAZER, */ /* TAHOE, SUBURBAN, AVALANCHE, ASTRO, G VAN, UPLANDER */ IF MM2=20002 THEN DO; IF MY=2000 THEN ABS=.65; ELSE IF MY=2001 THEN ABS=.70; ELSE IF MY=2002 THEN ABS=.58; ELSE IF MY=2003 THEN ABS=.53; ELSE IF MY=2004 THEN ABS=.46; ELSE IF MY=2005 THEN ABS=.45; ELSE IF MY=2006 THEN ABS=.56; ELSE ABS=.62; RETURN; END; /* IMPALA */ IF MM2=20016 THEN DO; IF MY=2003 THEN ABS=.36; ELSE IF MY=2004 THEN ABS=.32; ELSE IF MY=2005 THEN ABS=.30; RETURN; END; /* CAVALIER */ IF MM2=20020 THEN DO; IF MY=2000 THEN ABS=.28; ELSE ABS=.23; RETURN; END; /* LUMINA */ IF MM2=20022 THEN DO; IF MY=2005 THEN ABS=.55; ELSE IF MY=2006 THEN ABS=.35; ELSE ABS=.22; RETURN; END; /* COBALT */ IF MM2=20023 THEN DO; IF MY=2006 THEN ABS=.48; ELSE ABS=.40; RETURN; END; /* HHR */ IF MM2=20032 THEN DO; IF MY=2000 THEN ABS=.10; ELSE ABS=.13; RETURN; END; /* PRIZM */ IF MM2=20034 THEN DO; IF MY=2000 THEN ABS=.01; ELSE ABS=0; RETURN; END; /* METRO */ IF MM2=20036 THEN DO; IF MY=2003 THEN ABS=.66; ELSE IF MY=2004 THEN ABS=.53; ELSE IF MY=2005 THEN ABS=.39; ELSE IF MY=2006 THEN ABS=.63; ELSE IF MY=2007 THEN ABS=.66; RETURN; END; /* MONTE CARLO */ IF CG=18068 THEN DO; IF MY=2003 THEN ABS=.39; ELSE IF MY=2004 THEN ABS=.12; ELSE IF MY=2005 THEN ABS=.14; RETURN; END; /* MALIBU CLASSIC */ IF MM2=20037 THEN DO; IF MY=2004 THEN ABS=.30; ELSE IF MY=2005 THEN ABS=.77; ELSE IF MY=2006 THEN ABS=.68; ELSE ABS=.39; RETURN; END; /* MALIBU (NEW INCL MAXX) */ IF MM2=20039 THEN DO; IF MY=2004 THEN ABS=.22; ELSE IF MY=2005 THEN ABS=.25; RETURN; END; /* AVEO */ IF 20330 LE MM2 LE 20333 THEN DO; IF MY=2000 THEN ABS=.10; ELSE IF MY=2001 THEN ABS=.18; ELSE IF MY=2002 THEN ABS=.18; ELSE IF MY=2003 THEN ABS=.14; ELSE IF MY=2004 THEN ABS=.14; ELSE ABS=.14; RETURN; END; /* TRACKER */ IF MM2 IN (20336,20337) THEN DO; IF MY=2005 THEN ABS=.84; RETURN; END; /* EQUINOX */ IF CG IN (18408,18409) THEN DO; IF MY=2003 THEN ABS=.86; ELSE IF MY=2004 THEN ABS=.91; ELSE IF MY=2005 THEN ABS=.82; RETURN; END; /* VENTURE */ ABS=9; RETURN; OLDS: IF MM2 NE 21021 THEN RETURN; /* ALL EXCEPT ALERO */ IF MM2=21021 THEN DO; IF MY=2003 THEN ABS=.23; ELSE IF MY=2004 THEN ABS=.26; RETURN; END; /* ALERO */ ABS=9; RETURN; PONTIAC: IF MM2 IN (22002,22008,22009,22336,22337) OR CG IN (18410,18412) THEN RETURN; /* BONNEVILLE, GTO, FIREBIRD, TORRENT, MONTANA SV6 */ IF MM2=22016 THEN DO; IF MY=2003 THEN ABS=.25; ELSE IF MY=2004 THEN ABS=.15; ELSE IF MY=2005 THEN ABS=.25; RETURN; END; /* SUNFIRE */ IF MM2=22018 THEN DO; IF MY=2003 THEN ABS=.52; ELSE IF MY=2004 THEN ABS=.34; ELSE IF MY=2005 THEN ABS=.19; RETURN; END; /* GRAND AM */ IF MM2=22019 THEN DO; ABS=.63; RETURN; END; /* G5 */ IF MM2=22020 THEN DO; IF MY=2003 THEN ABS=.60; ELSE IF MY=2004 THEN ABS=.85; ELSE IF MY=2005 THEN ABS=.59; ELSE IF MY=2006 THEN ABS=.39; ELSE IF MY=2007 THEN ABS=.33; RETURN; END; /* GRAND PRIX */ IF MM2=22022 THEN DO; IF MY=2005 THEN ABS=.67; ELSE IF MY=2006 THEN ABS=.50; ELSE ABS=.50; RETURN; END; /* G6 */ IF MM2=22023 THEN DO; IF MY=2006 THEN ABS=.82; ELSE ABS=.85; RETURN; END; /* SOLSTICE */ IF MM2=22032 THEN DO; IF MY=2003 THEN ABS=.36; ELSE IF MY=2004 THEN ABS=.40; ELSE IF MY=2005 THEN ABS=.40; ELSE IF MY=2006 THEN ABS=.40; ELSE IF MY=2007 THEN ABS=.27; RETURN; END; /* VIBE */ IF MM2 IN (22352,22353) THEN DO; IF MY=2003 THEN ABS=.70; ELSE IF MY=2004 THEN ABS=.53; ELSE IF MY=2005 THEN ABS=.49; RETURN; END; /* AZTEK */ IF CG IN (18408,18409) THEN DO; IF MY=2003 THEN ABS=.86; ELSE IF MY=2004 THEN ABS=.74; ELSE IF MY=2005 THEN ABS=.60; RETURN; END; /* MONTANA */ ABS=9; RETURN; SATURN: IF MM2 IN (24008,24009,24010) OR CG IN (18410,18412) THEN RETURN; /* SKY, AURA, OUTLOOK, RELAY */ IF 24001 LE MM2 LE 24003 THEN DO; IF MY=2000 THEN ABS=.18; ELSE IF MY=2001 THEN ABS=.19; ELSE ABS=.19; RETURN; END; /* S */ IF 24005 LE MM2 LE 24006 THEN DO; IF MY=2000 THEN ABS=.18; ELSE IF MY=2001 THEN ABS=.19; ELSE IF MY=2002 THEN ABS=.23; ELSE IF MY=2003 THEN ABS=.40; RETURN; END; /* L */ IF MM2=24007 THEN DO; IF MY=2003 THEN ABS=.52; ELSE IF MY=2004 THEN ABS=.52; ELSE IF MY=2005 THEN ABS=.21; ELSE IF MY=2006 THEN ABS=.26; ELSE ABS=.18; RETURN; END; /* ION */ IF 24362 LE MM2 LE 24363 THEN DO; IF MY=2002 THEN ABS=.45; ELSE IF MY=2003 THEN ABS=.38; ELSE IF MY=2004 THEN ABS=.69; ELSE IF MY=2005 THEN ABS=.63; ELSE IF MY=2006 THEN ABS=.67; ELSE ABS=.72; RETURN; END; /* VUE */ ABS=9; RETURN; NISSAN: IF MM2 IN (35048,35049,35210:35452) THEN RETURN; /* 350Z, MURANO, TITAN, ALL SUVs, QUEST */ IF MM2=35039 THEN DO; IF MY=2000 THEN ABS=.65; RETURN; END; /* MAXIMA */ IF MM2=35043 THEN DO; IF MY=2000 THEN ABS=.01; ELSE IF MY=2001 THEN ABS=0; ELSE IF MY=2002 THEN ABS=0; ELSE IF MY=2003 THEN ABS=0; ELSE IF MY=2004 THEN ABS=.11; ELSE IF MY=2005 THEN ABS=.05; ELSE IF MY=2006 THEN ABS=.03; ELSE ABS=.31; RETURN; END; /* SENTRA */ IF MM2=35047 THEN DO; IF MY=2000 THEN ABS=.06; ELSE IF MY=2001 THEN ABS=.05; ELSE IF MY=2002 THEN ABS=.21; ELSE IF MY=2003 THEN ABS=.19; ELSE IF MY=2004 THEN ABS=.12; ELSE IF MY=2005 THEN ABS=.09; ELSE IF MY=2006 THEN ABS=.19; ELSE ABS=.49; RETURN; END; /* ALTIMA */ IF MM2=35050 THEN DO; ABS=.17; RETURN; END; /* VERSA */ IF 35200 LE MM2 LE 35209 THEN DO; IF MY=2000 THEN ABS=.58; ELSE IF MY=2001 THEN ABS=.59; ELSE IF MY=2002 THEN ABS=.59; ELSE IF MY=2003 THEN ABS=.67; ELSE IF MY=2004 THEN ABS=.58; RETURN; END; /* FRONTIER */ ABS=9; RETURN; HONDA: IF MM2 IN (37033,37035,37037,37039,37205,37322,37323,37402) THEN RETURN; /* PRELUDE, S2000, INSIGHT, FIT, RIDGELINE, PASSPORT, PILOT, ODYSSEY */ IF MM2=37031 THEN DO; IF MY=2000 THEN ABS=.26; ELSE IF MY=2001 THEN ABS=.42; ELSE IF MY=2002 THEN ABS=.44; ELSE IF MY=2003 THEN ABS=.43; ELSE IF MY=2004 THEN ABS=.35; ELSE IF MY=2005 THEN ABS=.28; RETURN; END; /* CIVIC */ IF MM2=37032 THEN DO; IF MY=2000 THEN ABS=.75; ELSE IF MY=2001 THEN ABS=.64; ELSE IF MY=2002 THEN ABS=.55; RETURN; END; /* ACCORD */ IF MM2 IN (37302,37303) THEN DO; IF MY=2000 THEN ABS=.76; ELSE IF MY=2001 THEN ABS=.75; ELSE IF MY=2002 THEN ABS=.58; ELSE IF MY=2003 THEN ABS=.67; ELSE IF MY=2004 THEN ABS=.65; RETURN; END; /* CR-V */ IF MM2 IN (37332,37333) THEN DO; IF MY=2003 THEN ABS=.92; ELSE IF MY=2004 THEN ABS=.87; ELSE IF MY=2005 THEN ABS=.80; RETURN; END; /* ELEMENT */ ABS=9; RETURN; MAZDA: IF MM2 IN (41047,41049,41052,41053,41054,41402) THEN RETURN; /* RX-8, 5, CX-7, CX-9, MPV */ IF MM2=41035 THEN DO; IF MY=2000 THEN ABS=.04; ELSE IF MY=2001 THEN ABS=.06; ELSE IF MY=2002 THEN ABS=.08; ELSE ABS=.22; RETURN; END; /* PROTEGE */ IF MM2=41037 THEN DO; IF MY=2000 THEN ABS=.08; ELSE IF MY=2001 THEN ABS=.05; ELSE ABS=.06; RETURN; END; /* 626 */ IF MM2=41045 THEN DO; IF MY=2000 THEN ABS=.13; ELSE IF MY=2001 THEN ABS=.25; ELSE IF MY=2002 THEN ABS=.30; ELSE IF MY=2003 THEN ABS=.27; ELSE IF MY=2004 THEN ABS=.59; ELSE IF MY=2005 THEN ABS=.19; RETURN; END; /* MIATA */ IF MM2=41050 THEN DO; IF MY=2003 THEN ABS=.50; ELSE IF MY=2004 THEN ABS=.69; RETURN; END; /* 6 */ IF MM2=41051 THEN DO; IF MY=2004 THEN ABS=.39; ELSE IF MY=2005 THEN ABS=.38; ELSE IF MY=2006 THEN ABS=.40; ELSE ABS=.46; RETURN; END; /* 3 */ IF 41200 LE MM2 LE 41209 THEN DO; IF MY LE 2001 THEN ABS=0; RETURN; END; /* B PICKUP */ IF 41342 LE MM2 LE 41349 THEN DO; IF MY=2001 THEN ABS=.26; ELSE IF MY=2002 THEN ABS=.77; ELSE IF MY=2003 THEN ABS=.97; ELSE IF MY=2004 THEN ABS=.56; RETURN; END; /* TRIBUTE */ ABS=9; RETURN; SUBARU: IF MM2 NE 48038 THEN RETURN; /* ALL EXCEPT IMPREZA */ IF MM2=48038 THEN DO; IF MY=2000 THEN ABS=.76; ELSE IF MY=2001 THEN ABS=.79; ELSE IF MY=2002 THEN ABS=.79; RETURN; END; /* IMPREZA */ ABS=9; RETURN; TOYOTA: IF MM2 IN (49041,49043,49046,49048,49049,49050,49313,49342:49403) THEN RETURN; /* MR-2, AVALON, PRIUS, xA, xB, tC, LANDCRUISER, HIGHLANDER, SEQUOIA, FJ CRUISER, SIENNA */ IF MM2=49032 THEN DO; IF MY=2000 THEN ABS=.03; ELSE IF MY=2001 THEN ABS=.02; ELSE IF MY=2002 THEN ABS=.03; ELSE IF MY=2003 THEN ABS=.12; ELSE IF MY=2004 THEN ABS=.12; ELSE IF MY=2005 THEN ABS=.14; ELSE IF MY=2006 THEN ABS=.13; ELSE ABS=.13; RETURN; END; /* COROLLA */ IF MM2=49033 THEN DO; IF MY=2000 THEN ABS=.30; ELSE IF MY=2001 THEN ABS=.17; ELSE IF MY=2002 THEN ABS=.18; ELSE IF MY=2003 THEN ABS=.19; ELSE IF MY=2004 THEN ABS=.19; ELSE ABS=.28; RETURN; END; /* CELICA */ IF MM2=49040 THEN DO; IF MY=2000 THEN ABS=.58; ELSE IF MY=2001 THEN ABS=.52; ELSE IF MY=2002 THEN ABS=.60; ELSE IF MY=2003 THEN ABS=.58; ELSE IF MY=2004 THEN ABS=.57; RETURN; END; /* CAMRY */ IF MM2=49044 THEN DO; IF MY=2000 THEN ABS=.58; ELSE IF MY=2001 THEN ABS=.52; ELSE IF MY=2002 THEN ABS=.60; ELSE IF MY=2003 THEN ABS=.58; RETURN; END; /* SOLARA */ IF MM2=49045 THEN DO; IF MY=2000 THEN ABS=.01; ELSE IF MY=2001 THEN ABS=.02; ELSE IF MY=2002 THEN ABS=0; ELSE IF MY=2003 THEN ABS=.02; ELSE IF MY=2004 THEN ABS=.02; ELSE ABS=.01; RETURN; END; /* ECHO */ IF MM2=49047 THEN DO; IF MY=2003 THEN ABS=.36; ELSE ABS=.40; RETURN; END; /* MATRIX */ IF MM2=49051 THEN DO; ABS=.46; RETURN; END; /* YARIS */ IF 49200 LE MM2 LE 49209 THEN DO; IF MY=2000 THEN ABS=.06; ELSE IF MY=2001 THEN ABS=.05; ELSE IF MY=2002 THEN ABS=.06; RETURN; END; /* TACOMA */ IF 49210 LE MM2 LE 49219 THEN DO; IF MY=2000 THEN ABS=.26; ELSE IF MY=2001 THEN ABS=.22; ELSE IF MY=2002 THEN ABS=.42; RETURN; END; /* TUNDRA */ IF MM2 IN (49302,49303) THEN DO; IF MY=2000 THEN ABS=.88; RETURN; END; /* 4RUNNER */ IF MM2 IN (49322,49323) THEN DO; IF MY=2000 THEN ABS=.07; ELSE IF MY=2001 THEN ABS=.16; ELSE IF MY=2002 THEN ABS=.18; ELSE IF MY=2003 THEN ABS=.20; RETURN; END; /* RAV4 */ ABS=9; RETURN; MITS: IF MM2 IN (52040,52333) THEN RETURN; /* DIAMANTE, MONTERO LIMITED */ IF MM2=52034 THEN DO; IF MY=2000 THEN ABS=.20; ELSE IF MY=2001 THEN ABS=.13; ELSE IF MY=2002 THEN ABS=.13; ELSE IF MY=2003 THEN ABS=.13; ELSE IF MY=2004 THEN ABS=.23; ELSE IF MY=2005 THEN ABS=.21; ELSE IF MY=2006 THEN ABS=.81; ELSE ABS=.77; RETURN; END; /* GALANT */ IF MM2=52035 THEN DO; ABS=0; RETURN; END; /* MIRAGE */ IF MM2=52037 THEN DO; IF MY=2000 THEN ABS=.11; ELSE IF MY=2001 THEN ABS=.32; ELSE IF MY=2002 THEN ABS=.23; ELSE IF MY=2003 THEN ABS=.25; ELSE IF MY=2004 THEN ABS=.27; ELSE IF MY=2005 THEN ABS=.29; RETURN; END; /* ECLIPSE */ IF MM2=52046 THEN DO; IF MY=2002 THEN ABS=0; ELSE IF MY=2003 THEN ABS=.01; ELSE IF MY=2004 THEN ABS=.16; ELSE IF MY=2005 THEN ABS=.07; ELSE ABS=.06; RETURN; END; /* LANCER */ IF MM2=52047 THEN DO; IF MY=2003 THEN ABS=.53; ELSE IF MY=2004 THEN ABS=.54; RETURN; END; /* OUTLANDER */ IF 52200 LE MM2 LE 52209 THEN DO; IF MY=2006 THEN ABS=.09; ELSE ABS=0; RETURN; END; /* RAIDER */ IF MM2 IN (52312,52313) THEN DO; IF MY=2004 THEN ABS=.79; RETURN; END; /* ENDEAVOR */ IF MM2 IN (52336,52337) THEN DO; IF MY=2000 THEN ABS=.52; ELSE IF MY=2001 THEN ABS=.45; ELSE IF MY=2003 THEN ABS=.91; ELSE IF MY=2004 THEN ABS=.90; RETURN; END; /* MONTERO SPORT */ ABS=9; RETURN; SUZUKI: IF MM2=53040 THEN RETURN; /* SX4 */ IF MM2=53031 THEN DO; ABS=0; RETURN; END; /* SWIFT */ IF MM2=53032 THEN DO; IF MY=2000 THEN ABS=.04; ELSE IF MY=2001 THEN ABS=.02; ELSE ABS=.05; RETURN; END; /* ESTEEM */ IF MM2=53033 THEN DO; IF MY LE 2004 THEN ABS=.22; ELSE IF MY=2005 THEN ABS=.25; RETURN; END; /* AERIO */ IF MM2=53034 THEN DO; IF MY=2004 THEN ABS=.18; ELSE IF MY=2005 THEN ABS=.20; ELSE IF MY=2006 THEN ABS=.20; ELSE ABS=.54; RETURN; END; /* FORENZA */ IF MM2=53035 THEN DO; IF MY IN (2004,2005) THEN ABS=.65; RETURN; END; /* VERONA */ IF MM2=53036 THEN DO; IF MY IN (2005,2006) THEN ABS=.20; ELSE ABS=.54; RETURN; END; /* RENO */ IF 53330 LE MM2 LE 53333 THEN DO; IF MY=2000 THEN ABS=0; ELSE IF MY=2001 THEN ABS=0; ELSE IF MY=2002 THEN ABS=0; ELSE IF MY=2003 THEN ABS=.04; ELSE ABS=.04; RETURN; END; /* VITARA */ IF MM2 IN (53336,53337) THEN DO; IF MY=2000 THEN ABS=.31; ELSE IF MY=2001 THEN ABS=.27; ELSE IF MY=2002 THEN ABS=.36; ELSE IF MY=2003 THEN ABS=.37; ELSE IF MY=2004 THEN ABS=.37; ELSE IF MY=2005 THEN ABS=.37; RETURN; END; /* GRAND VITARA */ IF MM2 IN (53342,53343) THEN DO; IF MY=2001 THEN ABS=.47; ELSE IF MY=2002 THEN ABS=.53; ELSE IF MY=2003 THEN ABS=.54; ELSE IF MY=2004 THEN ABS=.54; ELSE IF MY=2005 THEN ABS=.78; RETURN; END; /* XL-7 */ ABS=9; RETURN; HYUNDAI: IF MM2 IN (55038,55039,55322:55402) THEN RETURN; /* XG300, AZERA, TUCSON, VERACRUZ, ENTOURAGE */ IF MM2=55033 THEN DO; IF MY=2000 THEN ABS=.04; ELSE IF MY=2001 THEN ABS=.05; ELSE IF MY=2002 THEN ABS=.11; ELSE IF MY=2003 THEN ABS=.12; ELSE IF MY=2004 THEN ABS=.15; ELSE IF MY=2005 THEN ABS=.15; RETURN; END; /* SONATA */ IF MM2=55035 THEN DO; IF MY=2000 THEN ABS=.01; ELSE IF MY=2001 THEN ABS=.05; ELSE IF MY=2002 THEN ABS=.09; ELSE IF MY=2003 THEN ABS=.07; ELSE IF MY=2004 THEN ABS=.06; ELSE IF MY=2005 THEN ABS=.06; ELSE IF MY=2006 THEN ABS=.10; RETURN; END; /* ELANTRA */ IF MM2=55036 THEN DO; IF MY LE 2006 THEN ABS=0; ELSE ABS=.16; RETURN; END; /* ACCENT */ IF MM2=55037 THEN DO; IF MY=2000 THEN ABS=.01; ELSE IF MY=2001 THEN ABS=.03; ELSE IF MY=2003 THEN ABS=.11; ELSE IF MY=2004 THEN ABS=.08; ELSE IF MY=2005 THEN ABS=.08; RETURN; END; /* TIBURON */ IF MM2 IN (55302,55303,55309) THEN DO; IF MY=2001 THEN ABS=.26; ELSE IF MY=2002 THEN ABS=.62; ELSE IF MY=2003 THEN ABS=.70; ELSE IF MY=2004 THEN ABS=.70; ELSE IF MY=2005 THEN ABS=.70; RETURN; END; /* SANTA FE */ ABS=9; RETURN; KIA: IF MM2 IN (63035,63036) THEN RETURN; /* AMANTI, RONDO */ IF MM2=63031 THEN DO; IF MY=2000 THEN ABS=0; ELSE ABS=.01; RETURN; END; /* SEPHIA */ IF MM2=63032 THEN DO; IF MY=2001 THEN ABS=.01; ELSE IF MY=2002 THEN ABS=.01; ELSE IF MY=2003 THEN ABS=.03; ELSE IF MY=2004 THEN ABS=.02; ELSE IF MY=2005 THEN ABS=.03; ELSE IF MY=2006 THEN ABS=.03; ELSE ABS=.15; RETURN; END; /* RIO */ IF MM2=63033 THEN DO; IF MY=2000 THEN ABS=.01; ELSE IF MY=2001 THEN ABS=.01; ELSE IF MY=2002 THEN ABS=.01; ELSE IF MY=2003 THEN ABS=.06; ELSE IF MY=2004 THEN ABS=.17; ELSE IF MY=2005 THEN ABS=.20; ELSE IF MY=2006 THEN ABS=.20; RETURN; END; /* SPECTRA */ IF MM2=63034 THEN DO; IF MY=2001 THEN ABS=.05; ELSE IF MY=2002 THEN ABS=.16; ELSE IF MY=2003 THEN ABS=.25; ELSE IF MY=2004 THEN ABS=.20; ELSE IF MY=2005 THEN ABS=.30; ELSE IF MY=2006 THEN ABS=.20; RETURN; END; /* OPTIMA */ IF 63300 LE MM2 LE 63303 THEN DO; IF MY=2000 THEN ABS=.01; ELSE IF MY=2001 THEN ABS=.05; ELSE IF MY=2002 THEN ABS=.03; RETURN; END; /* SPORTAGE */ IF MM2 IN (63312,63313) THEN DO; IF MY=2003 THEN ABS=.36; ELSE IF MY=2004 THEN ABS=.39; ELSE IF MY=2005 THEN ABS=.76; ELSE IF MY=2006 THEN ABS=.74; RETURN; END; /* SORENTO */ IF MM2=63402 THEN DO; IF MY=2002 THEN ABS=.27; ELSE IF MY=2003 THEN ABS=.42; ELSE IF MY=2004 THEN ABS=.44; ELSE IF MY=2005 THEN ABS=.56; RETURN; END; /* SEDONA */ ABS=9; RETURN; DAEWOO: IF MM2=64031 THEN DO; IF MY=2000 THEN ABS=.05; ELSE ABS=0; RETURN; END; /* LANOS */ IF MM2=64032 THEN DO; IF MY=2000 THEN ABS=.18; ELSE IF MY=2001 THEN ABS=.30; ELSE ABS=.25; RETURN; END; /* NUBIRA */ IF MM2=64033 THEN DO; IF MY=2000 THEN ABS=.28; ELSE IF MY=2001 THEN ABS=.28; ELSE ABS=.27; RETURN; END; /* LEGANZA */ ABS=9; RUN; /* ------------------------- */ /* STEP 2: ADDS ESC INFO */ /* ------------------------- */ DATA FILE2; SET FILE1; ESC=0; /* DEFAULT: NO ESC */ IF MAK2 IN (9,64) THEN GOTO A; /* MAKES WITHOUT ESC IN 2000-2007 VEHICLES: PLYMOUTH, DAEWOO */ IF MAK2=2 THEN DO; IF MY=2007 OR (MY=2006 AND MM2 IN (2312,2313,2316,2317,2342,2343)) THEN ESC=1; GOTO A; END; /* JEEP: ALL 2007s PLUS 2006 GRAND CHEROKEE, COMMANDER, LIBERTY */ IF MAK2=3 THEN DO; IF MY=2007 AND MM2=3307 THEN ESC=1; GOTO A; END; /* HUMMER: 2007 H3 ONLY */ IF MAK2=6 THEN GOTO CHRYSLER; IF MAK2=7 THEN GOTO DODGE; IF MAK2=11 THEN GOTO SPRINTER; IF MAK2=12 THEN GOTO FORD; IF MAK2=13 THEN GOTO LINCOLN; IF MAK2=14 THEN GOTO MERCURY; IF MAK2=18 THEN GOTO BUICK; IF MAK2=19 THEN GOTO CADILLAC; IF MAK2=20 THEN GOTO CHEVY; IF MAK2=21 THEN GOTO OLDS; IF MAK2=22 THEN GOTO PONTIAC; IF MAK2=23 THEN GOTO GMC; IF MAK2=24 THEN GOTO SATURN; IF MAK2=30 THEN GOTO VW; IF MAK2=32 THEN GOTO AUDI; IF MAK2=33 THEN DO; IF MY LE 2003 THEN ESC=.35; ELSE IF MY=2004 THEN ESC=.42; ELSE IF MY=2005 THEN ESC=.60; ELSE IF MY=2006 THEN ESC=.40; ELSE ESC=.46; GOTO A; END; /* MINI-COOPER */ IF MAK2=34 THEN DO; IF MY=2000 AND V4='C' AND V5 IN ('K','M') AND V6='9' THEN ESC=0; ELSE ESC=1; GOTO A; END; /* BMW: ALL ESC EXCEPT 2000 M COUPE/ROADSTER */ IF MAK2=35 THEN GOTO NISSAN; IF MAK2=37 THEN GOTO HONDA; IF MAK2=38 THEN DO; IF 38302 LE MM2 LE 38307 AND MY GE 2006 THEN ESC=1; GOTO A; END; /* ISUZU: ASCENDER ONLY */ IF MAK2=39 THEN GOTO JAGUAR; IF MAK2=41 THEN GOTO MAZDA; IF MAK2=42 THEN DO; IF MY=2000 AND MM2=42045 THEN ESC=0; ELSE ESC=1; GOTO A; END; /* MERCEDES: ALL EXCEPT 2000 SLK */ IF MAK2=45 THEN GOTO PORSCHE; 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=58 THEN GOTO INFINITI; IF MAK2=59 THEN GOTO LEXUS; IF MAK2=62 THEN GOTO ROVER; IF MAK2=63 THEN GOTO KIA; CHRYSLER: IF MM2 IN (6041,6042,6044,6052,6053,6400:6409) THEN GOTO A; /* NO ESC: CONCORDE, LHS, CIRRUS, PT CRUISER, PROWLER, VOYAGER, TOWN & COUNTRY */ IF MM2 IN (6055,6312,6313) THEN DO; ESC=1; GOTO A; END; /* ALL ESC: CROSSFIRE, ASPEN */ IF MM2=6043 THEN DO; IF MY=2007 THEN ESC=.13; GOTO A; END; /*SEBRING */ IF MM2=6051 THEN DO; IF MY=2005 THEN ESC=.91; ELSE IF MY=2006 THEN ESC=.89; ELSE IF MY=2007 THEN ESC=.80; GOTO A; END; /* 300 */ IF MM2=6054 THEN DO; IF MY=2007 THEN ESC=1; GOTO A; END; /* PACIFICA */ ESC=9; GOTO A; DODGE: IF MM2 IN (7013,7020,7041,7042,7043,7200:7209,7220:7239,7400:7439) THEN GOTO A; /* NO ESC: VIPER, NEON, INTREPID, AVENGER, STRATUS, DAKOTA, RAM 2500/3500, CARAVAN, RAM VAN */ IF MM2 IN (7342,7343) THEN DO; ESC=1; GOTO A; END; /* ALL ESC: NITRO */ IF MM2=7021 THEN DO; IF MY=2005 THEN ESC=.89; ELSE IF MY=2006 THEN ESC=.84; ELSE ESC=.75; GOTO A; END; /* MAGNUM */ IF MM2=7024 THEN DO; IF MY=2006 THEN ESC=.93; ELSE ESC=.79; GOTO A; END; /* CHARGER */ IF MM2=7025 THEN DO; ESC=.03; GOTO A; END; /* CALIBER */ IF 7210 LE MM2 LE 7219 THEN DO; IF MY=2007 THEN ESC=.06; GOTO A; END; /* RAM 1500 PICKUP */ IF MM2 IN (7312,7313) THEN DO; IF MY=2006 THEN ESC=.21; ELSE IF MY=2007 THEN ESC=1; GOTO A; END; /* DURANGO */ ESC=9; GOTO A; SPRINTER: IF 11420 LE MM2 LE 11429 THEN DO; IF MY GE 2004 THEN ESC=1; GOTO A; END; /* 2500 */ IF 11430 LE MM2 LE 11439 THEN DO; IF MY=2007 THEN ESC=1; GOTO A; END; /* 3500 */ ESC=9; GOTO A; FORD: IF MM2 IN (12003:12035,12038,12200:12239,12332,12333,12342:12349) THEN GOTO A; /* NO ESC: MUSTANG, T-BIRD, ESCORT, CROWN VICTORIA, TAURUS, 500, FREESTYLE, FUSION, */ /* EDGE, COUNTOUR, GT, RANGER, F PICKUP, EXCURSION, ESCAPE */ IF MM2=12037 THEN DO; IF MY=2002 THEN ESC=.03; ELSE IF MY=2003 THEN ESC=.03; GOTO A; END; /* FOCUS */ IF MM2 IN (12300,12301,12302,12303,12308,12309) THEN DO; IF MY IN (2002,2003,2004) THEN ESC=.03; ELSE IF MY IN (2005,2006,2007) THEN ESC=1; GOTO A; END; /* EXPLORER */ IF MM2 IN (12306,12307) THEN DO; IF MY=2007 THEN ESC=1; GOTO A; END; /* EXPLORER SPORT TRAC */ IF 12312 LE MM2 LE 12319 THEN DO; IF MY=2003 THEN ESC=.13; ELSE IF MY=2004 THEN ESC=.13; ELSE IF MY=2005 THEN ESC=.11; ELSE IF MY=2006 THEN ESC=.18; ELSE IF MY=2007 THEN ESC=.98; GOTO A; END; /* EXPEDITION */ IF 12400 LE MM2 LE 12409 THEN DO; IF MY IN (2002,2003) THEN DO; IF V7='8' THEN ESC=1; ELSE IF V7 IN ('0','4') THEN ESC=0; ELSE ESC=.25; END; ELSE IF MY=2004 THEN ESC=.25; ELSE IF MY=2005 THEN ESC=.19; ELSE IF MY=2006 THEN ESC=.11; ELSE IF MY=2007 THEN ESC=.08; GOTO A; END; /* WINDSTAR/FREESTAR */ IF 12410 LE MM2 LE 12439 THEN DO; IF MY=2006 AND MM2 IN (12432,12436) THEN ESC=.60; ELSE IF MY=2007 AND MM2 IN (12432,12436) THEN ESC=1; GOTO A; END; /* FULL-SIZE VANS */ ESC=9; GOTO A; LINCOLN: IF MM2 IN (13001,13005,13013,13214,13215) THEN GOTO A; /* NO ESC: TOWN CAR, CONTINENTAL, MKZ, MARK LT, BLACKWOOD */ IF MM2=13014 THEN DO; ESC=1; GOTO A; END; /* ALL ESC: MKX */ IF MM2=13012 THEN DO; IF MY=2000 THEN ESC=.25; ELSE IF MY=2001 THEN ESC=.25; ELSE IF MY=2002 THEN ESC=.25; ELSE IF MY=2003 THEN ESC=.37; ELSE IF MY=2004 THEN ESC=.37; ELSE IF MY=2005 THEN ESC=.37; ELSE ESC=.37; GOTO A; END; /* LS */ IF 13302 LE MM2 LE 13308 THEN DO; IF MY=2003 THEN ESC=.21; ELSE IF MY=2004 THEN ESC=.21; ELSE ESC=1; GOTO A; END; /* AVIATOR */ IF 13312 LE MM2 LE 13319 THEN DO; IF MY=2003 THEN ESC=.90; ELSE IF MY=2004 THEN ESC=.90; ELSE IF MY GE 2005 THEN ESC=1; GOTO A; END; /* NAVIGATOR */ ESC=9; GOTO A; MERCURY: IF MM2 IN (14016:14039,14342:14349,14452) THEN GOTO A; /* NO ESC: ALL CARS, MARINER, VILLAGER */ IF MM2 IN (14302,14303,14308,14309) THEN DO; IF MY=2004 THEN ESC=.03; ELSE IF MY IN (2005,2006,2007) THEN ESC=1; GOTO A; END; /* MOUNTAINEER */ IF MM2=14402 THEN DO; IF MY=2004 THEN ESC=.34; ELSE IF MY=2005 THEN ESC=.25; ELSE IF MY=2006 THEN ESC=.34; ELSE ESC=.18; GOTO A; END; /* MONTEREY */ ESC=9; GOTO A; BUICK: IF MM2 IN (18017,18020,18356,18357,18454:18457) THEN GOTO A; /* NO ESC: CENTRUY REGAL, RENDEZVOUS, TERAZA */ IF MM2=18002 THEN DO; IF MY=2000 THEN ESC=.13; ELSE IF MY=2001 THEN DO; IF V5='P' THEN ESC=0; ELSE IF V5='R' THEN ESC=.56; END; ELSE IF MY=2002 THEN DO; IF V5='P' THEN ESC=0; ELSE IF V5='R' THEN ESC=.62; END; ELSE IF MY=2003 THEN DO; IF V5='P' THEN ESC=0; ELSE IF V5='R' THEN ESC=.65; END; ELSE IF MY=2004 THEN DO; IF V5='P' THEN ESC=0; ELSE IF V5='R' THEN ESC=.74; END; ELSE ESC=.11; GOTO A; END; /* LeSABRE */ IF MM2=18003 THEN DO; IF MY LE 2004 THEN DO; IF V5='W' THEN ESC=.50; ELSE IF V5='U' THEN ESC=1; END; ELSE ESC=.60; GOTO A; END; /* PARK AVENUE */ IF MM2=18022 THEN DO; IF MY=2005 THEN ESC=.06; ELSE IF MY=2006 THEN ESC=.03; GOTO A; END; /* LaCROSSE */ IF MM2=18023 THEN DO; IF MY=2006 THEN ESC=.19; ELSE ESC=.11; GOTO A; END; /* LUCERNE */ IF MM2 IN (18302,18303) THEN DO; IF MY GE 2006 THEN ESC=1; GOTO A; END; /* RAINIER */ ESC=9; GOTO A; CADILLAC: IF MM2=19017 THEN GOTO A; /* NO ESC: CATERA */ ELSE IF MM2 IN (19014,19019,19020,19021) THEN DO; ESC=1; GOTO A; END; /* ALL ESC: SEVILLE, XLR, SRX, STS */ ELSE IF MM2=19003 THEN DO; IF MY=2000 THEN DO; IF V5='F' THEN ESC=1; ELSE ESC=.19; END; ELSE IF MY=2001 THEN DO; IF V5='F' THEN ESC=1; ELSE ESC=.19; END; ELSE IF MY=2002 THEN DO; IF V5='F' THEN ESC=1; ELSE ESC=.19; END; ELSE IF MY=2003 THEN DO; IF V5='F' THEN ESC=1; ELSE ESC=.19; END; ELSE IF MY=2004 THEN DO; IF V5='F' THEN ESC=1; ELSE ESC=.19; END; ELSE ESC=.19; GOTO A; END; /* DeVILLE */ ELSE IF MM2=19005 THEN DO; IF V5='T' THEN ESC=1; ELSE ESC=.19; GOTO A; END; /* ELDORADO */ ELSE IF MM2=19018 THEN DO; IF MY=2003 THEN ESC=.29; ELSE IF MY=2004 THEN ESC=.29; ELSE IF MY=2005 THEN ESC=.30; ELSE ESC=.20; GOTO A; END; /* CTS */ ELSE IF MM2=19022 THEN DO; IF MY=2006 THEN ESC=.78; ELSE ESC=.75; GOTO A; END; /* DTS */ ELSE IF 19312 LE MM2 LE 19343 THEN DO; IF MY=2002 THEN DO; IF MM2 IN (19313,19343) THEN ESC=1; END; ELSE IF MY GE 2003 THEN ESC=1; GOTO A; END; /* ESCALADE */ ESC=9; GOTO A; CHEVY: IF CG=18231 THEN DO; ESC=1; GOTO A; END; /* ALL ESC: NEW SILVERADO CREW CAB */ IF MM2 IN (20002,20009:20239,20326,20327,20346,20347,20330:20333,20400:20409,20454,20457) OR CG IN (18301,18305,18408,18409) THEN GOTO A; /* NO ESC: ALL CARS EXCEPT CORVETTE, ALL OTHER PICKUPS, BLAZER, */ /* 2500 SUBURBAN, 2500 AVALANCHE, TRACKER, ASTROVAN, VENTURE, UPLANDER CARGO, UPLANDER AWD */ IF MM2=20004 THEN DO; IF MY=2000 THEN ESC=.50; ELSE ESC=1; GOTO A; END; /* CORVETTE */ IF 20302 LE MM2 LE 20309 THEN DO; IF MY GE 2006 THEN ESC=1; GOTO A; END; /* TRAILBLAZER */ IF MM2 IN (20312,20313) THEN DO; IF MY=2003 THEN ESC=.23; ELSE IF MY=2004 THEN ESC=.23; ELSE IF MY=2005 THEN ESC=.25; ELSE IF MY=2006 THEN ESC=.97; ELSE IF MY=2007 THEN ESC=1; GOTO A; END; /* TAHOE */ IF MM2 IN (20322,20323) THEN DO; IF MY=2003 THEN ESC=.30; ELSE IF MY=2004 THEN ESC=.30; ELSE IF MY=2005 THEN ESC=.30; ELSE IF MY=2006 THEN ESC=1; ELSE IF MY=2007 THEN ESC=1; GOTO A; END; /* 1500 SUBURBAN */ IF MM2 IN (20342,20343) THEN DO; IF MY=2004 AND MM2=20342 THEN ESC=.03; ELSE IF MY=2006 THEN ESC=1; ELSE IF MY=2007 THEN ESC=1; GOTO A; END; /* 1500 AVALANCHE */ IF MM2 IN (20336,20337) THEN DO; IF MY=2007 THEN ESC=1; GOTO A; END; /* EQUINOX */ IF 20410 LE MM2 LE 20439 THEN DO; IF MY IN (2004,2005) AND MM2=20436 THEN ESC=1; ELSE IF MY IN (2006,2007) AND MM2 IN (20432,20436) THEN ESC=1; GOTO A; END; /* FULL SIZE VAN */ IF MM2=20452 AND CG=18412 THEN DO; IF MY=2007 THEN ESC=.19; GOTO A; END; /* UPLANDER SWB */ IF MM2=20456 AND CG=18410 THEN DO; IF MY=2005 THEN ESC=.03; ELSE IF MY=2006 THEN ESC=.20; ELSE IF MY=2007 THEN ESC=.19; GOTO A; END; /* UPLANDER LWB FWD WAGON */ ESC=9; GOTO A; OLDS: IF MM2 IN (21021,21302,21303,21456,21457) THEN GOTO A; /* NO ESC: ALERO, BRAVADA, SILHOUETTE */ IF MM2=21022 THEN DO; IF MY IN (2001,2002) THEN DO; IF V5='S' THEN ESC=1; ELSE ESC=.1; END; ELSE IF MY=2003 THEN ESC=1; GOTO A; END; /* AURORA */ IF MM2=21023 THEN DO; ESC=.05; GOTO A; END; /* INTRIGUE */ ESC=9; GOTO A; PONTIAC: IF MM2 IN (22008:22019,22022,22352,22353) OR CG IN (18408,18409) THEN GOTO A; /* NO ESC: GTO, FIREBIRD, SUNFIRE, GRAND AM, G5, G6, AZTEK, MONTANA (PRE-SV6) */ IF MM2=22002 THEN DO; IF V5='Z' THEN ESC=1; ELSE ESC=0; GOTO A; END; /* BONNEVILLE */ IF MM2=22020 THEN DO; IF MY=2004 THEN DO; IF V5='R' THEN ESC=.36; ELSE ESC=0; END; ELSE DO; IF V5='C' THEN ESC=1; ELSE ESC=0; END; GOTO A; END; /* GRAND PRIX */ IF MM2=22023 THEN DO; IF MY=2007 AND V5='G' THEN ESC=1; GOTO A; END; /* SOLSTICE */ IF MM2=22032 THEN DO; IF MY=2007 THEN ESC=.03; GOTO A; END; /* VIBE */ IF MM2 IN (22336,22337) THEN DO; IF MY=2007 THEN ESC=1; GOTO A; END; /* TORRENT */ IF CG=18410 AND MM2=22456 THEN DO; IF MY=2005 THEN ESC=.11; ELSE ESC=1; GOTO A; END; /* MONTANA SV6 FWD */ IF CG=18410 AND MM2=22457 THEN GOTO A; /* MONTANA SV6 AWD */ ESC=9; GOTO A; GMC: IF CG=18231 THEN DO; ESC=1; GOTO A; END; /* ALL ESC: NEW SIERRA CREW CAB */ IF MM2 IN (23200:23239,23326,23327,23400:23409) OR CG IN (18301,18305) THEN GOTO A; /* NO ESC: ALL OTHER PICKUPS, JIMMY, 2500 YUKON XL, SAFARI */ IF MM2=23008 THEN DO; ESC=1; GOTO A; END; /* ALL ESC: ACADIA */ IF 23302 LE MM2 LE 23309 THEN DO; IF MY GE 2006 THEN ESC=1; GOTO A; END; /* ENVOY */ IF MM2 IN (23312,23313) THEN DO; IF MY=2003 THEN ESC=.56; ELSE IF MY=2004 THEN ESC=.58; ELSE IF MY=2005 THEN ESC=.56; ELSE IF MY=2006 THEN ESC=1; ELSE IF MY=2007 THEN ESC=1; GOTO A; END; /* YUKON */ IF MM2=23318 THEN DO; IF MY GE 2003 THEN ESC=1; GOTO A; END; /* YUKON DENALI */ IF MM2 IN (23322,23323) THEN DO; IF MY=2003 THEN ESC=.55; ELSE IF MY=2004 THEN ESC=.73; ELSE IF MY=2005 THEN ESC=.55; ELSE IF MY=2006 THEN ESC=1; ELSE IF MY=2007 THEN ESC=1; GOTO A; END; /* 1500 YUKON XL */ IF MM2=23328 THEN DO; IF MY GE 2003 THEN ESC=1; GOTO A; END; /* YUKON DENALI XL */ IF 23410 LE MM2 LE 23439 THEN DO; IF MY GE 2004 AND MM2=23436 THEN ESC=1; GOTO A; END; /* FULL SIZE VAN */ ESC=9; GOTO A; SATURN: IF MM2 IN (24001:24007,24362,24363,24457) THEN GOTO A; /* NO ESC: S, L, ION, VUE, RELAY AWD */ IF MM2=24010 THEN DO; ESC=1; GOTO A; END; /* ALL ESC: OUTLOOK */ IF MM2=24008 THEN DO; IF V5='G' THEN ESC=1; GOTO A; END; /* SKY RED LINE */ IF MM2=24009 THEN DO; IF V5 IN ('R','V') THEN ESC=1; GOTO A; END; /* AURA XR & HYBRID */ IF MM2=24456 THEN DO; IF MY=2005 THEN ESC=.05; ELSE ESC=1; GOTO A; END; /* RELAY FWD */ ESC=9; GOTO A; VW: IF MM2=30043 THEN GOTO A; /* NO ESC: CABRIO */ IF MM2 IN (30048:30412) THEN DO; ESC=1; GOTO A; END; /* ALL ESC: PHAETON, EOS, TOUAREG, EUROVAN */ IF MM2=30036 THEN DO; ESC=.39; GOTO A; END; /* RABBIT */ IF MM2=30040 THEN DO; IF MY=2002 THEN DO; IF V4='T' THEN ESC=1; END; ELSE IF 2003 LE MY LE 2005 THEN ESC=.37; ELSE IF MY GE 2006 THEN ESC=.90; GOTO A; END; /* JETTA */ IF MM2=30042 THEN DO; IF MY=2002 THEN DO; IF V4='P' THEN ESC=1; END; ELSE IF MY IN (2003,2004) THEN ESC=.35; ELSE IF MY=2005 THEN ESC=.20; ELSE IF MY=2006 THEN DO; IF CG=30012 THEN ESC=1; ELSE ESC=.20; END; ELSE IF MY=2007 THEN ESC=1; GOTO A; END; /* GOLF, GTI */ IF MM2=30046 THEN DO; IF MY=2002 THEN DO; IF V4 IN ('U','Z') THEN ESC=1; END; ELSE IF MY IN (2003,2004) THEN ESC=.43; ELSE IF MY=2005 THEN ESC=.45; ELSE IF MY GE 2006 THEN ESC=1; GOTO A; END; /* PASSAT */ IF MM2=30047 THEN DO; IF MY=2002 THEN DO; IF V4='F' THEN ESC=1; END; ELSE IF MY IN (2003,2004) THEN ESC=.29; ELSE IF MY=2005 THEN ESC=.31; ELSE IF MY GE 2006 THEN ESC=1; GOTO A; END; /* BEETLE */ ESC=9; GOTO A; AUDI: IF MM2 IN (32030,32046:32303) THEN DO; ESC=1; GOTO A; END; /* ALL ESC: S8, ALLROAD, A3, Q7, PLUS '2002 A6 OR S6' */ IF MM2=32040 THEN DO; IF MY GE 2001 THEN ESC=1; GOTO A; END; /* S4/S6 */ IF MM2=32042 THEN DO; IF MY=2000 THEN ESC=.25; ELSE IF MY=2001 THEN ESC=.75; ELSE ESC=1; GOTO A; END; /* A6 */ IF MM2=32043 THEN DO; IF MY=2001 THEN ESC=.50; ELSE IF MY GE 2002 THEN ESC=1; GOTO A; END; /* A4 */ IF MM2=32044 THEN DO; IF MY=2000 THEN ESC=.75; ELSE ESC=1; GOTO A; END; /* A8 */ IF MM2=32045 THEN DO; IF MY GE 2001 THEN ESC=1; GOTO A; END; /* TT */ ESC=9; GOTO A; NISSAN: IF MM2 IN (35043,35050) THEN GOTO A; /* NO ESC: SENTRA, VERSA */ IF MM2 IN (35312,35313) THEN DO; ESC=1; GOTO A; END; /* ALL ESC: ARMADA */ IF MM2=35039 THEN DO; IF MY=2004 THEN ESC=.03; ELSE IF MY=2005 THEN ESC=.47; ELSE IF MY=2006 THEN ESC=.07; ELSE IF MY=2007 THEN ESC=.07; GOTO A; END; /* MAXIMA */ IF MM2=35047 THEN DO; IF MY=2007 THEN ESC=.07; GOTO A; END; /* ALTIMA */ IF MM2=35048 THEN DO; IF MY=2003 THEN ESC=.45; ELSE IF MY=2004 THEN ESC=.74; ELSE IF MY=2005 THEN ESC=.26; ELSE IF MY=2006 THEN ESC=.13; ELSE ESC=.11; GOTO A; END; /* 350Z */ IF MM2=35049 THEN DO; IF MY=2003 THEN ESC=.23; ELSE IF MY=2004 THEN ESC=.21; ELSE IF MY=2005 THEN ESC=.13; ELSE IF MY=2006 THEN ESC=.09; ELSE ESC=.08; GOTO A; END; /* MURANO */ IF 35200 LE MM2 LE 35209 THEN DO; IF MY=2007 THEN ESC=.02; GOTO A; END; /* FRONTIER */ IF 35210 LE MM2 LE 35219 THEN DO; IF MY=2004 THEN ESC=.04; ELSE IF MY=2005 THEN ESC=.04; ELSE IF MY=2006 THEN ESC=.07; ELSE ESC=.05; GOTO A; END; /* TITAN */ IF MM2 IN (35302,35303) THEN DO; IF MY=2004 THEN ESC=.07; ELSE IF MY GE 2005 THEN ESC=1; GOTO A; END; /* PATHFINDER */ IF MM2 IN (35322,35323) THEN DO; IF MY=2005 THEN ESC=.45; ELSE IF MY GE 2006 THEN ESC=1; GOTO A; END; /* XTERRA */ IF MM2=35452 THEN DO; IF MY=2005 THEN ESC=.17; ELSE IF MY=2006 THEN ESC=.13; ELSE IF MY=2007 THEN ESC=.15; GOTO A; END; /* QUEST */ ESC=9; GOTO A; HONDA: IF MM2 IN (37033,37037,37039) OR CG=38308 THEN GOTO A; /* NO ESC: PRELUDE, INSIGHT, FIT, PASSPORT */ IF MM2=37205 THEN DO; ESC=1; GOTO A; END; /* ALL ESC: RIDGELINE */ IF MM2=37031 THEN DO; IF MY=2007 AND V5='A' AND V6='5' THEN ESC=1; GOTO A; END; /* CIVIC */ IF MM2=37032 THEN DO; IF MY GE 2006 AND V6 IN ('3','6','8') THEN ESC=1; GOTO A; END; /* ACCORD */ IF MM2=37035 THEN DO; IF MY GE 2006 THEN ESC=1; GOTO A; END; /* S2000 */ IF MM2 IN (37302,37303) THEN DO; IF MY GE 2005 THEN ESC=1; GOTO A; END; /* CR-V */ IF CG=37302 THEN DO; IF MY=2005 THEN ESC=.71; ELSE IF MY GE 2006 THEN ESC=1; GOTO A; END; /* PILOT */ IF MM2 IN (37332,37333) THEN DO; IF MY GE 2006 THEN ESC=1; GOTO A; END; /* ELEMENT */ IF MM2=37402 THEN DO; IF MY GE 2005 THEN ESC=1; GOTO A; END; /* ODYSSEY */ ESC=9; GOTO A; JAGUAR: IF MM2 IN (39031,39032,39035) THEN DO; ESC=1; GOTO A; END; /* ALL ESC: XK, XJ */ IF MM2=39034 THEN DO; IF MY LE 2002 THEN ESC=.50; ELSE ESC=1; GOTO A; END; /* S TYPE */ IF MM2=39036 THEN DO; IF MY LE 2006 THEN ESC=.54; ELSE ESC=1; GOTO A; END; /* X TYPE */ ESC=9; GOTO A; MAZDA: IF MM2 IN (41035,41037,41045,41047,41052,41200:41402) THEN GOTO A; /* NO ESC: PROTEGE, 626, MIATA, MILLENIA, 5, PICKUP, TRIBUTE, MPV */ IF MM2 IN (41053,41054) THEN DO; ESC=1; GOTO A; END; /* ALL ESC: CX-7, CX-9 */ IF MM2=41049 THEN DO; IF MY=2004 THEN ESC=.68; ELSE IF MY=2005 THEN ESC=.70; ELSE IF MY=2006 THEN ESC=.70; ELSE ESC=.71; GOTO A; END; /* RX-8 */ IF MM2=41050 THEN DO; IF MY GE 2006 AND V4='G' AND V5='G' THEN ESC=1; GOTO A; END; /* 6 */ IF MM2=41051 THEN DO; IF MY=2007 AND V6='3' AND V7='4' AND V8 IN ('L','M') THEN ESC=1; GOTO A; END; /* 3 */ ESC=9; GOTO A; PORSCHE: IF MM2 IN (45041,45303) THEN DO; ESC=1; GOTO A; END; /* ALL ESC: CAYMAN, CAYENNE */ IF MM2=45031 THEN DO; IF MY LE 2003 THEN ESC=.85; ELSE IF MY=2004 THEN ESC=.83; ELSE IF MY GE 2005 THEN ESC=1; GOTO A; END; /* 911 */ IF MM2=45040 THEN DO; IF 2001 LE MY LE 2003 THEN ESC=.49; ELSE IF MY=2004 THEN ESC=.56; ELSE IF MY GE 2005 THEN ESC=1; GOTO A; END; /* BOXSTER */ ESC=9; GOTO A; SAAB: IF MM2=47037 THEN GOTO A; /* NO ESC: 9-2X */ IF MM2=47035 THEN DO; IF MY=2003 AND BOD2 NE 1 THEN ESC=1; ELSE IF MY GE 2004 THEN ESC=1; GOTO A; END; /* 9-3 */ IF MM2=47036 THEN DO; IF MY=2002 AND V5 NE 'B' THEN ESC=1; ELSE IF MY GE 2003 THEN ESC=1; GOTO A; END; /* 9-5 */ IF MM2=47308 THEN DO; IF MY GE 2006 THEN ESC=1; GOTO A; END; /* 9-7X */ ESC=9; GOTO A; SUBARU: IF MM2 IN (48038,48044,48303) THEN GOTO A; /* NO ESC: IMPREZA, BAJA, FORESTER */ IF MM2=48313 THEN DO; ESC=1; GOTO A; END; /* ALL ESC: TRIBECA */ IF MM2=48034 THEN DO; IF MY IN (2001,2002) AND V5='H' AND V6='8' AND V7='9' THEN ESC=1; ELSE IF MY=2007 THEN DO; IF V7='9' THEN ESC=1; ELSE IF V7='7' THEN ESC=.50; END; GOTO A; END; /* LEGACY */ IF MM2=48045 THEN DO; IF MY IN (2003,2004) AND V6='8' AND V7='9' THEN ESC=1; ELSE IF MY IN (2005,2006) AND V6='8' AND V7='5' THEN ESC=1; ELSE IF MY=2007 AND V7 IN ('3','6') THEN ESC=1; GOTO A; END; /* OUTBACK */ ESC=9; GOTO A; TOYOTA: IF MM2 IN (49032,49033,49041,49045,49047,49048,49050,49051) THEN GOTO A; /* NO ESC: COROLLA, CELICA, MR-2, ECHO, MATRIX, xA, tC, YARIS */ IF MM2 IN (49049,49352,49353,49362,49363) THEN DO; ESC=1; GOTO A; END; /* ALL ESC: SEQUOIA, FJ CRUISER */ IF MM2=49040 THEN DO; IF MY=2002 THEN ESC=.07; ELSE IF MY=2003 THEN ESC=.07; ELSE IF MY=2004 THEN ESC=.15; ELSE IF MY=2005 THEN ESC=.07; ELSE IF MY=2006 THEN ESC=.05; ELSE IF MY=2007 THEN ESC=.02; GOTO A; END; /* CAMRY */ IF MM2=49043 THEN DO; IF MY LE 2004 THEN ESC=.41; ELSE IF MY=2005 THEN ESC=.53; ELSE IF MY=2006 THEN ESC=.60; ELSE IF MY=2007 THEN ESC=.54; GOTO A; END; /* AVALON */ IF MM2=49044 THEN DO; IF MY=2004 THEN ESC=.28; ELSE IF MY=2005 THEN ESC=.36; ELSE IF MY=2006 THEN ESC=.41; ELSE IF MY=2007 THEN ESC=.44; GOTO A; END; /* SOLARA */ IF MM2=49046 THEN DO; IF MY GE 2005 THEN ESC=.10; GOTO A; END; /* PRIUS */ IF 49200 LE MM2 LE 49209 THEN DO; IF MY=2006 THEN ESC=.01; GOTO A; END; /* TACOMA */ IF 49210 LE MM2 LE 49219 THEN DO; IF MY=2004 THEN ESC=.04; ELSE IF MY=2005 THEN ESC=.04; ELSE IF MY=2006 THEN ESC=.02; ELSE IF MY=2007 THEN ESC=.02; GOTO A; END; /* TUNDRA */ IF MM2 IN (49302,49303,49313) THEN DO; IF MY GE 2001 THEN ESC=1; GOTO A; END; /* 4RUNNER, LANDCRUISER */ IF MM2 IN (49322,49323) THEN DO; IF MY GE 2004 THEN ESC=1; GOTO A; END; /* RAV4 */ IF 49342 LE MM2 LE 49349 THEN DO; IF MY LE 2003 THEN ESC=.32; ELSE ESC=1; GOTO A; END; /* HIGHLANDER */ IF MM2 IN (49402,49403) THEN DO; IF 2001 LE MY LE 2003 THEN ESC=.20; ELSE IF MY=2004 THEN ESC=.39; ELSE IF MY=2005 THEN ESC=.51; ELSE IF MY=2006 THEN ESC=.42; ELSE IF MY=2007 THEN ESC=.42; GOTO A; END; /* SIENNA */ ESC=9; GOTO A; VOLVO: IF MM2 IN (51312,51313) OR MY=2007 THEN DO; ESC=1; GOTO A; END; /* ALL ESC: XC90, ALL 2007s */ IF MM2=51043 AND BOD2 NE 0 THEN DO; IF 2001 LE MY LE 2005 THEN ESC=.20; ELSE IF MY=2006 THEN ESC=.90; GOTO A; END; /* 70 CARS */ IF MM2=51043 AND BOD2=0 THEN DO; IF 2002 LE MY LE 2003 THEN ESC=.45; ELSE IF 2004 LE MY LE 2006 THEN ESC=.43; GOTO A; END; /* XC70 */ IF MM2=51045 THEN DO; IF MY LE 2002 THEN ESC=.50; ELSE IF 2003 LE MY LE 2005 THEN ESC=.65; ELSE IF MY=2006 THEN ESC=.70; GOTO A; END; /* 80 */ IF MM2=51046 THEN DO; IF MY=2005 THEN ESC=.10; ELSE IF MY=2006 THEN ESC=.90; GOTO A; END; /* 40 */ IF MM2=51047 THEN DO; IF MY LE 2005 THEN ESC=.15; ELSE IF MY=2006 THEN ESC=.20; GOTO A; END; /* 60 */ IF MM2=51048 THEN DO; IF MY=2005 THEN ESC=.12; ELSE IF MY=2006 THEN ESC=.95; GOTO A; END; /* V50 */ ESC=9; GOTO A; MITS: IF MM2 IN (52034:52046,52200:52209,52336,52337) THEN GOTO A; /* NO ESC: CARS, PICKUPS, MONTERO SPORT */ IF MM2=52047 THEN DO; IF MY=2007 THEN ESC=1; GOTO A; END; /* OUTLANDER */ IF MM2 IN (52312,52313) THEN DO; IF MY=2004 THEN ESC=.05; ELSE IF MY=2005 THEN ESC=.07; ELSE IF MY=2006 THEN ESC=.03; ELSE IF MY=2007 AND MM2=52313 THEN ESC=1; GOTO A; END; /* ENDEAVOR */ IF MM2=52333 THEN DO; IF MY GE 2003 THEN ESC=1; GOTO A; END; /* MONTERO LIMITED */ ESC=9; GOTO A; SUZUKI: IF MM2 IN (53031:53036,53330:53333,53342,53343) THEN GOTO A; /* NO ESC: SWIFT, ESTEEM, AERIO, FORENZA, VERONA, RENO, VITARA, XL-7 */ IF MM2=53040 THEN DO; IF V8 IN ('5','7') THEN ESC=1; GOTO A; END; /* SX4 */ IF MM2 IN (53336,53337) THEN DO; IF MY GE 2006 THEN ESC=1; GOTO A; END; /* GRAND VITARA */ ESC=9; GOTO A; ACURA: IF MM2 IN (54031,54033,54038) THEN GOTO A; /* NO ESC: INTEGRA, NSX, RSX */ IF MM2 IN (54036,54039,54303) THEN DO; ESC=1; GOTO A; END; /* ALL ESC: RL, TSX, RDX */ IF MM2=54035 THEN DO; IF MY IN (2002,2003) AND V8 IN ('8','9') THEN ESC=1; ELSE IF MY GE 2004 THEN ESC=1; GOTO A; END; /* TL */ IF MM2=54037 THEN DO; IF V7='2' AND V8 IN ('6','7') THEN ESC=1; GOTO A; END; /* CL */ IF MM2=54323 THEN DO; IF MY GE 2003 THEN ESC=1; GOTO A; END; /* MDX */ ESC=9; GOTO A; HYUNDAI: IF MM2 IN (55035,55036,55038) THEN GOTO A; /* NO ESC: ELANTRA, ACCENT, XG300 */ IF MM2 IN (55039,55322:55402) THEN DO; ESC=1; GOTO A; END; /* ALL ESC: AZERA, TUCSON, VERACRUZ, ENTOURAGE */ IF MM2=55033 THEN DO; IF MY GE 2006 THEN ESC=1; GOTO A; END; /* SONATA */ IF MM2=55037 THEN DO; IF MY=2007 THEN ESC=.07; GOTO A; END; /* TIBURON */ IF MM2 IN (55302,55303,55309) THEN DO; IF MY=2007 THEN ESC=1; GOTO A; END; /* SANTA FE */ ESC=9; GOTO A; INFINITI: IF MM2 IN (58033,58035,58302,58303) THEN GOTO A; /* NO ESC: G20, I30, QX4 */ IF MM2 IN (58037,58038,58039,58312,58313) THEN DO; ESC=1; GOTO A; END; /* ALL ESC: G35, M45, FX35, QX56 */ IF MM2=58032 THEN DO; IF MY GE 2002 THEN ESC=1; GOTO A; END; /* Q45 */ IF MM2=58036 THEN DO; IF MY IN (2002,2003) THEN ESC=.10; GOTO A; END; /* I35 */ ESC=9; GOTO A; LEXUS: IF MM2 IN (59032,59034,59303,59313,59342,59343) THEN DO; ESC=1; GOTO A; END; /* ALL ESC: LS, GS, GX, LX, RX330 */ IF MM2=59031 THEN DO; IF MY LE 2003 THEN ESC=.32; ELSE IF MY=2004 THEN ESC=.38; ELSE IF MY IN (2005,2006) THEN ESC=.40; ELSE ESC=1; GOTO A; END; /* ES */ IF MM2=59033 THEN DO; IF MY GE 2002 THEN ESC=1; GOTO A; END; /* SC */ IF MM2=59035 THEN DO; IF MY IN (2002,2003) THEN ESC=.10; ELSE IF MY=2004 THEN ESC=.40; ELSE IF MY=2005 THEN ESC=.44; ELSE IF MY GE 2006 THEN ESC=1; GOTO A; END; /* IS */ IF MM2 IN (59332,59333) THEN DO; IF MY GE 2001 THEN ESC=1; GOTO A; END; /* RX300 */ ESC=9; GOTO A; ROVER: IF MM2 IN (62307,62341,62343) THEN GOTO A; /* NO ESC: DISCOVERY, FREELANDER */ IF MM2=62317 THEN DO; ESC=1; GOTO A; END; /* ALL ESC: LR3 */ IF MM2=62313 THEN DO; IF MY GE 2003 THEN ESC=1; GOTO A; END; /* RANGE ROVER */ ESC=9; GOTO A; KIA: IF MM2 IN (63031,63032,63033) OR CG=55005 THEN GOTO A; /* NO ESC: SPEHIA, RIO, SPECTRA, OLD OPTIMA */ IF MM2=63036 THEN DO; ESC=1; GOTO A; END; /* ALL ESC: RONDO */ IF CG=63009 THEN DO; IF MY=2006 THEN ESC=.17; ELSE ESC=1; GOTO A; END; /* NEW OPTIMA */ IF MM2=63035 THEN DO; IF MY=2004 THEN ESC=.46; ELSE IF MY=2005 THEN ESC=.45; ELSE IF MY=2006 THEN ESC=.50; ELSE ESC=1; GOTO A; END; /* AMANTI */ IF 63300 LE MM2 LE 63303 THEN DO; IF MY GE 2005 THEN ESC=1; GOTO A; END; /* SPORTAGE */ IF MM2 IN (63312,63313) THEN DO; IF MY=2007 THEN ESC=1; GOTO A; END; /* SORENTO */ IF MM2=63402 THEN DO; IF MY=2007 THEN ESC=1; GOTO A; END; /* SEDONA */ ESC=9; A: IF ESC GT ABS THEN ABS=ESC; RUN; /* --------------------------------------------------------- */ /* STEP 3: ADDS BLOCKER BEAM (COMPATIBILITY) INFO */ /* 0=NONE, OR NOT PICKUP/SUV */ /* 1=OPTION 1 (MEETS VOLUNTARY GUIDELINE W/O A BLOCKER BEAM) */ /* 2=OPTION 2 (BLOCKER BEAM) */ /* --------------------------------------------------------- */ DATA FILE3; SET FILE2; BLOCKER=0; /* DEFAULT: NO BLOCKER BEAM (OR IS A CAR OR VAN) */ IF VTYP IN (1,2,7,8,9) THEN RETURN; /* PASSENGER CARS AND VANS */ IF MAK2 IN (9,11,33,39,47,64) THEN RETURN; /* MAKES WITHOUT SUVs OR PICKUPS IN 2000-2007 VEHICLES, OR NO BLOCKER BEAMS: */ /* PLYMOUTH, SPRINTER, MINI-COOPER, JAGUAR, SAAB, DAEWOO */ IF MAK2=2 THEN GOTO JEEP; IF MAK2=3 THEN DO; IF MM2 IN (3313,3317) THEN BLOCKER=1; RETURN; END; /* HUMMER: H2 ONLY */ IF MAK2=6 THEN GOTO CHRYSLER; IF MAK2=7 THEN GOTO DODGE; IF MAK2=12 THEN GOTO FORD; IF MAK2=13 THEN GOTO LINCOLN; IF MAK2=14 THEN GOTO MERCURY; IF MAK2=18 THEN DO; IF MM2 IN (18356,18357) THEN BLOCKER=1; RETURN; END; /* BUICK RENDEZVOUS */ IF MAK2=19 THEN GOTO CADILLAC; IF MAK2=20 THEN GOTO CHEVY; IF MAK2=21 THEN DO; IF CG=18305 THEN BLOCKER=1; RETURN; END; /* OLDS BRAVADA, BLAZER-BASED */ IF MAK2=22 THEN DO; IF MM2 IN (22336,22337,22352,22353) THEN BLOCKER=1; RETURN; END; /* PONTIAC TORRENT, AZTEK */ IF MAK2=23 THEN GOTO GMC; IF MAK2=24 THEN DO; IF MM2 IN (24010,24362,24363) THEN BLOCKER=1; RETURN; END; /* SATURN OUTLOOK, VUE */ IF MAK2=30 THEN DO; IF MM2=30303 THEN BLOCKER=1; RETURN; END; /* VW TOUAREG */ IF MAK2=32 THEN DO; IF MM2 IN (32047,32303) THEN BLOCKER=1; RETURN; END; /* AUDI ALLROAD, Q7 */ IF MAK2=34 THEN DO; IF MM2=34303 THEN BLOCKER=2; ELSE IF MM2=34313 THEN BLOCKER=1; RETURN; END; /* BMW: X3, X5 */ IF MAK2=35 THEN GOTO NISSAN; IF MAK2=37 THEN GOTO HONDA; IF MAK2=38 THEN DO; IF MM2 IN (38200:38301,38312:38331) THEN BLOCKER=1; RETURN; END; /* ISUZU: ALL EXCEPT ASCENDER */ IF MAK2=41 THEN DO; IF MM2 IN (41053,41054) THEN BLOCKER=1; RETURN; END; /* MAZDA CX-7, CX-9 */ IF MAK2=42 THEN GOTO MERCEDES; IF MAK2=45 THEN DO; IF MM2=45303 THEN BLOCKER=1; RETURN; END; /* PORSCHE CAYENNE */ IF MAK2=48 THEN DO; IF MM2 IN (48044,48045,48313) THEN BLOCKER=1; RETURN; END; /* SUBARU BAJA, OUTBACK, TRIBECA */ IF MAK2=49 THEN GOTO TOYOTA; IF MAK2=51 THEN GOTO VOLVO; IF MAK2=52 THEN GOTO MITS; IF MAK2=53 THEN DO; IF 53330 LE MM2 LE 53343 THEN BLOCKER=1; RETURN; END; /* SUZUKI SUVs */ IF MAK2=54 THEN DO; IF 54303 LE MM2 LE 54323 THEN BLOCKER=2; RETURN; END; /* ACURA SUVs */ IF MAK2=55 THEN GOTO HYUNDAI; IF MAK2=58 THEN DO; IF MM2 IN (58039,58312) THEN BLOCKER=2; RETURN; END; /* INFINITI FX, QX */ IF MAK2=59 THEN DO; IF MM2 IN (59303,59342,59343) THEN BLOCKER=2; RETURN; END; /* LEXUS GX, RX330 */ IF MAK2=62 THEN GOTO ROVER; IF MAK2=63 THEN DO; IF 63300 LE MM2 LE 63313 THEN BLOCKER=1; RETURN; END; /* KIA SPORTAGE, SORENTO */ JEEP: IF 2312 LE MM2 LE 2319 THEN DO; IF MY LE 2004 THEN BLOCKER=2; RETURN; END; /* GRAND CHEROKEE */ IF 2320 LE MM2 LE 2323 THEN DO; IF MY GE 2004 THEN BLOCKER=2; RETURN; END; /* WRANGLER */ IF MM2 IN (2342,2343) THEN DO; BLOCKER=2; RETURN; END; /* LIBERTY */ IF MM2=2001 THEN DO; BLOCKER=1; RETURN; END; /* COMPASS */ RETURN; CHRYSLER: IF MM2 IN (6052,6312) THEN DO; BLOCKER=1; RETURN; END; /* PT CRUISER, ASPEN 4X2 */ IF MM2=6313 THEN DO; BLOCKER=2; RETURN; END; /* ASPEN 4X4 */ IF MM2=6054 THEN DO; IF MY=2007 THEN BLOCKER=2; RETURN; END; /* PACIFICA */ RETURN; DODGE: IF MM2=7021 THEN DO; BLOCKER=1; RETURN; END; /* MAGNUM */ IF MM2 IN (7200,7202,7204,7206,7208) THEN DO; BLOCKER=1; RETURN; END; /* DAKOTA 4X2 */ IF MM2 IN (7201,7203,7205,7207,7209) THEN RETURN; /* DAKOTA 4X4 */ IF 7210 LE MM2 LE 7239 THEN DO; IF MOD(MM2,10) IN (0,2,4,6,8) THEN BLOCKER=1; /* RAM PICKUP 4X2 */ ELSE IF MOD(MM2,10) IN (1,3,5,7,9) AND MY GE 2006 THEN BLOCKER=2; RETURN; END;/* RAM PICKUP 4X4 */ IF MM2=7312 THEN DO; BLOCKER=1; RETURN; END; /* DURANGO 4X2 */ IF MM2=7313 THEN DO; IF MY GE 2006 THEN BLOCKER=2; RETURN; END; /* DURANGO 4X4 */ IF MM2 IN (7342,7343) THEN DO; BLOCKER=2; RETURN; END; /* NITRO */ RETURN; FORD: IF MM2 IN (12022,12200:12209,12211,12213,12215,12217,12219, 12300,12301,12306,12307) THEN RETURN; /* NONE: FREESTYLE, RANGER, F-150 4X4, EXPLORER 2-DOOR, EXPLORER SPORT TRAC */ IF MM2=12024 THEN DO; BLOCKER=2; RETURN; END; /* EDGE */ IF MM2 IN (12210,12212,12214,12216,12218) THEN DO; BLOCKER=1; RETURN; END; /* F-150 4X2 */ IF 12220 LE MM2 LE 12239 THEN DO; IF MY GE 2001 THEN BLOCKER=2; RETURN; END; /* F-250/350 */ IF MM2 IN (12302,12303,12308,12309) THEN DO; IF MY GE 2002 THEN BLOCKER=1; RETURN; END; /* EXPLORER 4-DOOR */ IF 12312 LE MM2 LE 12319 THEN DO; IF MOD(MM2,10) IN (2,4,6,8) THEN BLOCKER=1; /* EXPEDITION 4X2 */ ELSE IF MOD(MM2,10) IN (3,5,7,9) AND MY GE 2003 THEN BLOCKER=1; RETURN; END;/* EXPEDITION 4X4 */ IF MM2 IN (12332,12333) THEN DO; BLOCKER=2; RETURN; END; /* EXCURSION */ IF 12342 LE MM2 LE 12349 THEN DO; IF MY=2007 THEN BLOCKER=2; RETURN; END; /* ESCAPE */ RETURN; LINCOLN: IF MM2=13014 THEN DO; BLOCKER=2; RETURN; END; /* MKX */ IF MM2=13214 THEN DO; BLOCKER=1; RETURN; END; IF MM2=13215 THEN RETURN; /* PICKUPS */ IF 13302 LE MM2 LE 13308 THEN DO; BLOCKER=1; RETURN; END; /* AVIATOR */ IF 13312 LE MM2 LE 13319 THEN DO; IF MOD(MM2,10) IN (2,4,6,8) THEN BLOCKER=1; /* NAVIGATOR 4X2 */ ELSE IF MOD(MM2,10) IN (3,5,7,9) AND MY GE 2003 THEN BLOCKER=1; RETURN; END;/* NAVIGATOR 4X4 */ RETURN; MERCURY: IF MM2 IN (14302,14303,14308,14309) THEN DO; IF MY GE 2002 THEN BLOCKER=1; RETURN; END; /* MOUNTAINEER */ IF 14342 LE MM2 LE 14349 THEN DO; IF MY=2007 THEN BLOCKER=2; RETURN; END; /* MARINER */ RETURN; CADILLAC: IF MM2=19020 THEN DO; BLOCKER=2; RETURN; END; /* SRX */ ELSE IF 19312 LE MM2 LE 19343 AND MY=2007 THEN DO; BLOCKER=1; RETURN; END; /* ESCALADE */ RETURN; CHEVY: IF MM2 IN (20023,20038,20200:20209,20326,20327,20330:20337) OR CG IN (18301,18305) THEN DO; BLOCKER=1; RETURN; END; /* ALL OPTION 1: HHR, SSR, S/T, COLORADO, 2500 SUBURBAN, TRACKER, EQUINOX */ IF 20210 LE MM2 LE 20219 THEN DO; IF MOD(MM2,10) IN (0,2,4,6,8) THEN BLOCKER=1; /* SILVERADO 1500 4X2 */ ELSE IF MOD(MM2,10) IN (1,3,5,7,9) AND MY GE 2007 THEN BLOCKER=1; RETURN; END; /* 4X4 */ IF 20220 LE MM2 LE 20239 THEN DO; IF MY GE 2001 THEN BLOCKER=1; RETURN; END; /* 2500/3500 */ IF MM2 IN (20312,20313,20322,20323) THEN DO; IF MY=2007 THEN BLOCKER=1; RETURN; END; /* TAHOE, 1500 SUBURBAN */ RETURN; GMC: IF MM2 IN (23008,23200:23209,23326,23327) OR CG IN (18301,18305) THEN DO; BLOCKER=1; RETURN; END; /* ALL OPTION 1: ACADIA, SONOMA, CANYON, 2500 YUKON XL */ IF 23210 LE MM2 LE 23219 THEN DO; IF MOD(MM2,10) IN (0,2,4,6,8) THEN BLOCKER=1; /* SIERRA 1500 4X2 */ ELSE IF MOD(MM2,10) IN (1,3,5,7,9) AND MY GE 2007 THEN BLOCKER=1; RETURN; END; /* 4X4 */ IF 23220 LE MM2 LE 23239 THEN DO; IF MY GE 2001 THEN BLOCKER=1; RETURN; END; /* 2500/3500 */ IF MM2 IN (23312,23313,23318,23322,23323,23328) THEN DO; IF MY=2007 THEN BLOCKER=1; RETURN; END; /* YUKON, 1500 YUKON XL */ RETURN; NISSAN: IF MM2=35049 THEN DO; BLOCKER=2; RETURN; END; /* MURANO */ IF 35200 LE MM2 LE 35209 THEN DO; BLOCKER=1; RETURN; END; /* FRONTIER */ IF 35210 LE MM2 LE 35219 THEN DO; IF MOD(MM2,10) IN (0,2,4,6,8) THEN BLOCKER=2; RETURN; END; /* TITAN 4X2 */ IF MM2 IN (35302,35303) THEN DO; IF MY GE 2005 THEN BLOCKER=1; RETURN; END; /* PATHFINDER */ IF MM2=35312 THEN DO; BLOCKER=2; RETURN; END; /* ARMADA 4X2 */ IF MM2 IN (35322,35323) THEN DO; BLOCKER=1; RETURN; END; /* XTERRA */ RETURN; HONDA: IF MM2=37205 THEN DO; BLOCKER=2; RETURN; END; /* RIDGELINE */ IF MM2 IN (37302,37303) THEN DO; IF MY LE 2001 THEN BLOCKER=1; ELSE BLOCKER=2; RETURN; END; /* CR-V */ IF CG=38308 THEN DO; BLOCKER=1; RETURN; END; /* PASSPORT */ IF CG=37302 THEN DO; BLOCKER=2; RETURN; END; /* PILOT */ IF MM2 IN (37332,37333) THEN DO; BLOCKER=2; RETURN; END; /* ELEMENT */ RETURN; MERCEDES: IF CG IN (42301,42302,42305) THEN DO; BLOCKER=1; RETURN; END; /* ML THRU 2005, G, GL */ IF CG IN (42303,42304) THEN DO; BLOCKER=2; RETURN; END; /* ML STARTING 2006, R */ RETURN; TOYOTA: IF MM2 IN (49210:49219,49313,49352,49353) THEN RETURN; /* NEVER: TUNDRA, LAND CRUISER, SEQUOIA */ IF 49200 LE MM2 LE 49209 THEN DO; IF MY GE 2005 THEN BLOCKER=2; RETURN; END; /* TACOMA */ IF MM2 IN (49302,49303) THEN DO; IF MY GE 2003 THEN BLOCKER=2; RETURN; END; /* 4RUNNER */ IF MM2 IN (49322,49323) THEN DO; IF MY GE 2006 THEN BLOCKER=2; RETURN; END; /* RAV4 */ IF 49342 LE MM2 LE 49349 THEN DO; IF MM2 IN (49342,49346) THEN BLOCKER=1; ELSE IF MM2 IN (49343,49347) THEN BLOCKER=2; RETURN; END; /* HIGHLANDER */ IF MM2 IN (49362,49363) THEN DO; BLOCKER=2; RETURN; END; /* FJ CRUISER */ RETURN; VOLVO: IF MM2=51043 AND BOD2=0 THEN DO; BLOCKER=1; RETURN; END; /* XC70 */ IF MM2 IN (51312,51313) THEN DO; IF MY LE 2004 THEN BLOCKER=1; ELSE IF MY GE 2005 THEN BLOCKER=2; RETURN; END; /* XC90 */ RETURN; MITS: IF MM2 IN (52047,52312,52313,52333) THEN DO; BLOCKER=2; RETURN; END; /* ALWAYS OPTION 2: OUTLANDER, ENDEAVOR, MONTERO LIMITED */ IF MM2 IN (52336,52337) THEN DO; BLOCKER=1; RETURN; END; /* MONTERO SPORT */ IF MM2 IN (52202,52204) THEN DO; BLOCKER=1; RETURN; END; /* RAIDER 4X2 */ IF MM2 IN (52203,52205) THEN RETURN; /* RAIDER 4X4 */ RETURN; HYUNDAI: IF MM2 IN (55302,55303,55309) THEN DO; IF MY LE 2004 THEN BLOCKER=2; ELSE IF MY GE 2005 THEN BLOCKER=1; RETURN; END; /* SANTA FE */ IF 55322 LE MM2 LE 55333 THEN DO; BLOCKER=1; RETURN; END; /* TUCSON, VERACRUZ */ RETURN; ROVER: IF MM2 IN (62307,62341,62343) THEN RETURN; /* NEVER: DISCOVERY, FREELANDER */ IF MM2=62317 THEN DO; BLOCKER=2; RETURN; END; /* LR3 */ IF MM2=62313 THEN DO; IF MY GE 2003 THEN BLOCKER=2; RETURN; END; /* RANGE ROVER */ RUN; /* --------------------------------------------------------------- */ /* STEP 4: ADDS SIDE- AND CURTAIN-AIR BAG INFO */ /* --------------------------------------------------------------- */ DATA FILE4; SET FILE3; CURTAIN=0; TORSO=0; COMBO=0; /* DEFAULT: NO CURTAIN, TORSO, OR COMBINATION AIR BAGS */ IF MAK2 IN (11,64) THEN GOTO DRO; /* DAEWOO: NO SIDE AIR BAGS IN 2000-2007 VEHICLES */ /* SPRINTER: AVAILABLE IN 2007, BUT NO SALES OR VIN INFO, PROBABLY FEW */ IF MAK2=2 THEN GOTO JEEP; IF MAK2=3 THEN GOTO HUMMER; IF MAK2=6 THEN GOTO CHRYSLER; IF MAK2=7 THEN GOTO DODGE; IF MAK2=9 THEN DO; IF MM2=9020 AND MY=2001 AND V4='A' THEN COMBO=1; GOTO DRO; END; /* PLYMOUTH NEON */ IF MAK2=12 THEN GOTO FORD; IF MAK2=13 THEN GOTO LINCOLN; IF MAK2=14 THEN GOTO MERCURY; IF MAK2=18 THEN GOTO BUICK; IF MAK2=19 THEN GOTO CADILLAC; IF MAK2=20 THEN GOTO CHEVY; IF MAK2=21 THEN GOTO OLDS; IF MAK2=22 THEN GOTO PONTIAC; IF MAK2=23 THEN GOTO GMC; IF MAK2=24 THEN GOTO SATURN; IF MAK2=30 THEN GOTO VW; IF MAK2=32 THEN GOTO AUDI; IF MAK2=33 THEN GOTO MINI; IF MAK2=34 THEN GOTO BMW; IF MAK2=35 THEN GOTO NISSAN; 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 MERCEDES; IF MAK2=45 THEN GOTO PORSCHE; 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=58 THEN GOTO INFINITI; IF MAK2=59 THEN GOTO LEXUS; IF MAK2=62 THEN GOTO ROVER; IF MAK2=63 THEN GOTO KIA; GOTO DRO; JEEP: IF MY LE 2001 THEN GOTO DRO; /* NONE IN 2000-2001 */ IF MM2 IN (2001,2352,2353) THEN DO; CURTAIN=1; TORSO=.03; GOTO DRO; END; /* COMPASS, PATRIOT */ IF MM2 IN (2312,2313) THEN DO; IF 2002 LE MY LE 2006 AND V3='8' THEN CURTAIN=1; ELSE IF MY=2007 THEN CURTAIN=1; GOTO DRO; END; /* GRAND CHEROKEE */ IF MM2 IN (2316,2317) THEN DO; CURTAIN=1; GOTO DRO; END; /* COMMANDER */ IF 2320 LE MM2 LE 2323 THEN DO; IF MY=2007 AND V3='8' THEN COMBO=1; GOTO DRO; END; /* WRANGLER */ IF MM2 IN (2342,2343)THEN DO; IF V3='8' THEN CURTAIN=1; GOTO DRO; END; /* LIBERTY */ GOTO DRO; HUMMER: IF MM2=3307 THEN DO; IF MY=2006 THEN CURTAIN=.27; ELSE IF MY=2007 THEN CURTAIN=.30; GOTO DRO; END; /* H3 */ GOTO DRO; CHRYSLER: IF MY=2000 OR MM2=6053 OR (MM2=6043 AND BOD2=1) THEN GOTO DRO; /* NONE IN ANY 2000 CHRYSLER, NONE ON PROWLER, SEBRING CV */ IF MM2 IN (6041,6042) THEN DO; IF V4='A' THEN COMBO=1; GOTO DRO; END; /* CONCORDE, LHS */ IF MM2=6043 AND BOD2=2 THEN DO; IF MY=2004 THEN COMBO=.02; ELSE IF MY=2005 THEN COMBO=.01; GOTO DRO; END; /* SEBRING COUPE */ IF MM2 IN (6043,6044) AND BOD2=4 THEN DO; IF 2001 LE MY LE 2005 AND V4='A' THEN CURTAIN=1; ELSE IF MY=2006 AND V4 IN ('A','H','L') THEN CURTAIN=1; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* CIRRUS, SEBRING SEDAN */ IF MM2=6051 THEN DO; IF 2001 LE MY LE 2004 AND V4='A' THEN COMBO=1; ELSE IF MY GE 2005 AND V4 IN ('A','H','L') THEN CURTAIN=1; GOTO DRO; END; /* 300 */ IF MM2=6052 AND BOD2=0 THEN DO; IF V3 IN ('8','A') THEN COMBO=1; GOTO DRO; END; /* PT CRUISER SUV */ IF MM2=6052 AND BOD2=1 THEN DO; IF V1 IN ('A','H') THEN COMBO=1; GOTO DRO; END; /* PT CRUISER CV */ IF MM2=6054 THEN DO; IF 2004 LE MY LE 2006 AND V3='8' THEN CURTAIN=1; ELSE IF MY=2007 THEN CURTAIN=1; GOTO DRO; END; /* PACIFICA */ IF MM2=6055 THEN DO; TORSO=1; GOTO DRO; END; /* CROSSFIRE */ IF MM2 IN (6312,6313) THEN DO; CURTAIN=1; GOTO DRO; END; /* ASPEN */ IF 6400 LE MM2 LE 6409 THEN DO; IF 2001 LE MY LE 2004 AND V3='8' THEN COMBO=1; ELSE IF MY GE 2005 AND V3='8' THEN CURTAIN=1; GOTO DRO; END; /* TOWN & COUNTRY */ GOTO DRO; DODGE: IF MY=2000 OR MM2 IN (7013,7410:7439) THEN GOTO DRO; /* NONE IN 2000s, VIPER, RAM VAN */ IF MM2 IN (7020,7041) THEN DO; IF V4='A' THEN COMBO=1; GOTO DRO; END; /* NEON, INTREPID */ IF MM2=7021 THEN DO; IF V3='8' THEN CURTAIN=1; GOTO DRO; END; /* MAGNUM */ IF MM2=7024 THEN DO; IF V4='L' THEN CURTAIN=1; GOTO DRO; END; /* CHARGER */ IF MM2=7025 THEN DO; CURTAIN=1; TORSO=.01; GOTO DRO; END; /* CALIBER */ IF MM2=7043 AND BOD2=2 THEN DO; IF MY=2004 THEN COMBO=.02; ELSE IF MY=2005 THEN COMBO=.01; GOTO DRO; END; /* STRATUS COUPE */ IF MM2=7043 AND BOD2=4 THEN DO; IF 2001 LE MY LE 2005 AND V4='A' THEN CURTAIN=1; ELSE IF MY=2006 AND V4 IN ('A','H','L') THEN CURTAIN=1; GOTO DRO; END; /* STRATUS SEDAN */ IF 7200 LE MM2 LE 7209 THEN DO; IF MY GE 2005 AND V3='3' THEN CURTAIN=1; GOTO DRO; END; /* DAKOTA */ IF 7210 LE MM2 LE 7219 THEN DO; IF MY GE 2002 AND V3='3' THEN CURTAIN=1; GOTO DRO; END; /* RAM 1500 */ IF 7220 LE MM2 LE 7239 THEN DO; IF MY GE 2003 AND V3='3' THEN CURTAIN=1; GOTO DRO; END; /* RAM 2500/3500 */ IF MM2 IN (7312,7313) THEN DO; IF 2002 LE MY LE 2006 AND V3='8' THEN CURTAIN=1; ELSE IF MY=2007 THEN CURTAIN=1; GOTO DRO; END; /* DURANGO */ IF MM2 IN (7342,7343) THEN DO; CURTAIN=1; GOTO DRO; END; /* NITRO */ IF 7400 LE MM2 LE 7409 THEN DO; IF 2001 LE MY LE 2004 AND V3='8' THEN COMBO=1; ELSE IF MY GE 2005 AND V3='8' THEN CURTAIN=1; GOTO DRO; END; /* CARAVAN,GRAND CARAVAN */ GOTO DRO; FORD: IF MM2 IN (12013,12035,12038,12200:12239,12332,12333,12410:12439) THEN GOTO DRO; /* NONE: ESCORT, CONTOUR, GT, PICKUPS, EXCURSION, E-VANS */ IF MM2=12003 THEN DO; IF MY GE 2005 AND V4='H' THEN COMBO=1; GOTO DRO; END; /* MUSTANG */ IF MM2=12004 THEN DO; COMBO=1; GOTO DRO; END; /* THUNDERBIRD */ IF MM2=12016 THEN DO; IF MY GE 2003 AND V4='H' THEN COMBO=1; GOTO DRO; END; /* CROWN VICTORIA */ IF MM2=12017 THEN DO; IF V4='H' THEN COMBO=1; GOTO DRO; END; /* TAURUS */ IF MM2=12021 THEN DO; IF V4='H' THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* 500 */ IF MM2=12022 THEN DO; IF V4='D' THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* FREESTYLE */ IF MM2=12023 THEN DO; IF MY=2006 AND V4='H' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* FUSION */ IF MM2=12024 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* EDGE */ IF MM2=12037 THEN DO; IF V4='H' THEN COMBO=1; GOTO DRO; END; /* FOCUS */ IF MM2 IN (12300,12301,12302,12303,12308,12309) THEN DO; IF MY LE 2001 AND V4 IN ('C','D','E') THEN COMBO=1; ELSE IF 2002 LE MY LE 2005 AND V4 IN ('C','D','E') THEN CURTAIN=1; ELSE IF MY GE 2006 THEN DO; TORSO=1; IF V4 IN ('C','D','E') THEN CURTAIN=1; END; GOTO DRO; END; /* EXPLORER */ IF MM2 IN (12306,12307) THEN DO; IF 2003 LE MY LE 2005 AND V4 IN ('C','D','E') THEN CURTAIN=1; ELSE IF MY GE 2006 THEN DO; TORSO=1; IF V4 IN ('C','D','E') THEN CURTAIN=1; END; GOTO DRO; END; /* EXPLORER SPORT TRAC */ IF 12312 LE MM2 LE 12319 THEN DO; IF MY LE 2002 AND V4 IN ('E','F') THEN COMBO=1; ELSE IF 2003 LE MY LE 2006 AND V4 IN ('E','F') THEN CURTAIN=1; ELSE IF MY=2007 THEN DO; TORSO=1; CURTAIN=1; END; GOTO DRO; END; /* EXPEDITION */ IF 12342 LE MM2 LE 12349 THEN DO; IF MY LE 2004 AND V4='C' THEN COMBO=1; ELSE IF MY=2005 AND V4='C' THEN CURTAIN=1; ELSE IF MY GE 2006 AND V4='C' THEN DO; TORSO=1; CURTAIN=1; END; GOTO DRO; END; /* ESCAPE */ IF 12400 LE MM2 LE 12409 THEN DO; IF MY LE 2003 AND V4='D' THEN COMBO=1; /* WINDSTAR */ ELSE IF MY GE 2004 AND V4='D' THEN DO; TORSO=1; CURTAIN=1; END; GOTO DRO; END; /* FREESTAR */ GOTO DRO; LINCOLN: IF MM2 IN (13214,13215) THEN GOTO DRO; /* NONE: PICKUPS */ IF MM2 IN (13001,13005) THEN DO; COMBO=1; GOTO DRO; END; /* TOWN CAR, CONTINENTAL */ IF MM2=13012 THEN DO; IF MY LE 2003 THEN COMBO=1; ELSE IF MY IN (2004,2005) THEN DO; COMBO=1; CURTAIN=.20; END; ELSE IF MY=2006 THEN DO; COMBO=1; CURTAIN=.21; END; GOTO DRO; END; /* LS */ IF MM2 IN (13013,13014) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* ZEPHYR, MKZ, MKX */ IF 13302 LE MM2 LE 13309 THEN DO; CURTAIN=1; GOTO DRO; END; /* AVIATOR */ IF 13312 LE MM2 LE 13319 THEN DO; IF MY LE 2002 THEN COMBO=1; ELSE IF 2003 LE MY LE 2006 THEN CURTAIN=1; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* NAVIGATOR */ GOTO DRO; MERCURY: IF MM2 IN (14037,14452) THEN GOTO DRO; /* NONE: MYSTIQUE, VILLAGER */ IF MM2=14016 THEN DO; IF MY GE 2003 AND V4='H' THEN COMBO=1; GOTO DRO; END; /* GRAND MARQUIS */ IF MM2 IN (14017,14038,14039) THEN DO; IF V4='H' THEN COMBO=1; GOTO DRO; END; /* SABLE, COUGAR, MARAUDER */ IF MM2=14020 THEN DO; IF V4='H' THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* MONTEGO */ IF MM2=14021 THEN DO; IF MY=2006 AND V4='H' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* MILAN */ IF MM2 IN (14302,14303,14308,14309) THEN DO; IF MY LE 2001 AND V4 IN ('D','E') THEN COMBO=1; ELSE IF 2002 LE MY LE 2005 AND V4 IN ('D','E') THEN CURTAIN=1; ELSE IF MY GE 2006 THEN DO; TORSO=1; IF V4 IN ('D','E') THEN CURTAIN=1; END; GOTO DRO; END; /* MOUNTAINEER */ IF 14342 LE MM2 LE 14349 THEN DO; IF V4='C' THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* MARINER */ IF MM2=14402 THEN DO; IF MY=2006 AND V4='D' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* MONTEREY */ GOTO DRO; BUICK: IF MM2=18002 THEN DO; IF MY LE 2002 THEN TORSO=1; ELSE IF V7='4' THEN TORSO=1; GOTO DRO; END; /* LeSABRE */ IF MM2=18003 THEN DO; TORSO=1; GOTO DRO; END; /* PARK AVE */ IF MM2 IN (18017,18020) THEN DO; IF V7='5' THEN COMBO=.75; GOTO DRO; END; /* CENTURY,REGAL (combo for driver only) */ IF MM2=18022 THEN DO; IF MY=2005 THEN DO; IF V7='6' THEN CURTAIN=1; END; ELSE IF MY GE 2006 THEN CURTAIN=1; GOTO DRO; END; /* LaCROSSE */ IF MM2=18023 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* LUCERNE */ IF MM2 IN (18302,18303) THEN DO; IF MY=2004 THEN TORSO=.42; ELSE IF MY=2005 THEN DO; CURTAIN=.19; TORSO=.19; END; ELSE IF MY=2006 THEN CURTAIN=.27; ELSE IF MY=2007 THEN CURTAIN=.28; GOTO DRO; END; /* RAINIER */ IF MM2 IN (18356,18357) THEN DO; IF MY=2002 THEN DO; COMBO=.75; TORSO=.25; END; ELSE IF MY=2003 THEN DO; COMBO=.46; TORSO=.15; END; ELSE IF MY=2004 THEN DO; COMBO=.55; TORSO=.18; END; ELSE IF MY=2005 THEN DO; COMBO=.50; TORSO=.16; END; ELSE IF MY=2006 THEN DO; COMBO=.61; END; ELSE IF MY=2007 THEN DO; COMBO=.60; END; GOTO DRO; END; /* RENDEZVOUS */ IF MM2 IN (18454,18456,18457) THEN DO; IF MY=2005 THEN DO; COMBO=.80; END; ELSE IF MY=2006 THEN DO; COMBO=.89; END; ELSE IF MY=2007 THEN DO; COMBO=.90; END; GOTO DRO; END; /* TERAZA */ GOTO DRO; CADILLAC: IF MM2=19005 THEN GOTO DRO; /* NONE: ELDORADO */ IF MM2 IN (19003,19017) THEN DO; TORSO=1; GOTO DRO; END; /* TORSO: DeVILLE, CATERA */ IF MM2 IN (19018,19020,19021,19022) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN + TORSO: CTS, SRX, STS, DTS */ IF MM2=19014 THEN DO; IF MY=2000 THEN TORSO=1; ELSE DO; COMBO=.75; TORSO=.25; END; GOTO DRO; END; /* SEVILLE */ IF MM2=19019 THEN DO; COMBO=1; GOTO DRO; END; /* XLR */ IF 19312 LE MM2 LE 19343 THEN DO; IF 2002 LE MY LE 2006 THEN TORSO=1; ELSE IF MY=2007 THEN CURTAIN=1; GOTO DRO; END; /* ESCALADE INCLUDING ESV & EXT */ GOTO DRO; CHEVY: IF MM2 IN (20009,20020,20034,20220:20239,20330:20333,20400:20439) OR CG IN (18068,18301,18305) THEN GOTO DRO; /* NONE: CAMARO, LUMINA, METRO, HD PICKUP, TRACKER, ASTROVAN, FULL-SIZE VAN, OLD MALIBU, BLAZER */ IF MM2=20002 THEN DO; IF MY LE 2005 THEN DO; IF V7='5' THEN COMBO=.75; END; ELSE IF MY GE 2006 THEN CURTAIN=1; GOTO DRO; END; /* IMPALA */ IF MM2=20004 THEN DO; IF MY=2005 AND V7='4' THEN COMBO=1; ELSE IF MY GE 2006 AND V7='6' THEN COMBO=1; GOTO DRO; END; /* CORVETTE */ IF MM2=20016 THEN DO; IF MY GE 2003 AND V7='4' THEN TORSO=1; GOTO DRO; END; /* CAVALIER */ IF MM2=20022 THEN DO; IF MY=2005 AND V7='4' THEN CURTAIN=1; ELSE IF MY GE 2006 AND V7='8' THEN CURTAIN=1; GOTO DRO; END; /* COBALT */ IF MM2=20023 THEN DO; IF MY=2006 THEN CURTAIN=.19; ELSE IF MY=2007 THEN CURTAIN=.26; GOTO DRO; END; /* HHR */ IF MM2=20032 THEN DO; IF V7='4' THEN TORSO=1; GOTO DRO; END; /* PRIZM */ IF MM2=20036 THEN DO; IF 2001 LE MY LE 2005 THEN DO; IF V7='5' THEN COMBO=.75; END; ELSE IF MY GE 2006 AND V7='6' THEN COMBO=1; GOTO DRO; END; /* MONTE CARLO */ IF MM2=20037 THEN DO; IF MY=2004 AND V7='4' THEN CURTAIN=1; ELSE IF MY=2005 AND V7='4' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY=2006 THEN DO; IF V7 IN ('7','8') THEN CURTAIN=1; IF V7='7' THEN TORSO=1; END; ELSE IF MY=2007 THEN DO; CURTAIN=1; IF V7='7' THEN TORSO=1; END; GOTO DRO; END; /* NEW MALIBU */ IF MM2=20038 THEN DO; IF MY=2003 THEN COMBO=1; ELSE TORSO=1; GOTO DRO; END; /* SSR */ IF MM2=20039 THEN DO; IF MY GE 2006 AND V7='6' THEN COMBO=1; GOTO DRO; END; /* AVEO */ IF 20200 LE MM2 LE 20209 THEN DO; IF MY IN (2004,2005) THEN CURTAIN=.27; ELSE IF MY=2006 THEN CURTAIN=.07; ELSE IF MY=2007 THEN CURTAIN=.21; GOTO DRO; END; /* S/T, COLORADO */ IF 20210 LE MM2 LE 20219 THEN DO; IF MY=2007 THEN CURTAIN=.10; GOTO DRO; END; /* SILVERADO 1500 */ IF 20302 LE MM2 LE 20309 THEN DO; IF MY=2002 THEN TORSO=1; ELSE IF MY=2003 THEN TORSO=.35; ELSE IF MY=2004 THEN TORSO=.13; ELSE IF MY=2005 THEN CURTAIN=.07; ELSE IF MY=2006 THEN CURTAIN=.19; ELSE IF MY=2007 THEN CURTAIN=.20; GOTO DRO; END; /* TRAILBLAZER,TRAILBLAZER EXT */ IF MM2 IN (20312,20313) THEN DO; IF MY LE 2002 THEN TORSO=1; ELSE IF MY=2003 THEN TORSO=.34; ELSE IF MY=2004 THEN TORSO=.42; ELSE IF MY IN (2005,2006) THEN TORSO=.44; ELSE IF MY=2007 THEN CURTAIN=1; GOTO DRO; END; /* TAHOE */ IF MM2 IN (20322,20323,20326,20327) THEN DO; IF MY LE 2002 THEN TORSO=1; ELSE IF MY=2003 THEN TORSO=.38; ELSE IF MY=2004 THEN TORSO=.49; ELSE IF MY=2005 THEN TORSO=.35; ELSE IF MY=2006 THEN TORSO=.72; ELSE IF MY=2007 THEN CURTAIN=.65; GOTO DRO; END; /* SUBURBAN */ IF MM2 IN (20336,20337) THEN DO; IF MY=2005 THEN CURTAIN=.38; ELSE IF MY=2006 THEN CURTAIN=.25; ELSE IF MY=2007 THEN CURTAIN=.21; GOTO DRO; END; /* EQUINOX */ IF MM2 IN (20342,20343,20346,20347) THEN DO; IF MY LE 2005 THEN TORSO=1; ELSE IF MY=2006 THEN TORSO=.36; ELSE IF MY=2007 THEN CURTAIN=.59; GOTO DRO; END; /* AVALANCHE */ IF MM2 IN (20452,20456,20457) AND CG IN (18408,18409) THEN DO; IF MY=2000 THEN TORSO=1; ELSE IF 2001 LE MY LE 2002 THEN DO; COMBO=.75; TORSO=.25; END; ELSE IF MY=2003 THEN DO; COMBO=.74; TORSO=.25; END; ELSE IF MY=2004 THEN DO; COMBO=.68; TORSO=.23; END; ELSE IF MY=2005 THEN DO; COMBO=.62; TORSO=.21; END; GOTO DRO; END; /* VENTURE */ IF MM2 IN (20452,20456,20457) AND CG IN (18410,18412) THEN DO; IF MY=2005 THEN COMBO=.82; ELSE IF MY=2006 THEN COMBO=.43; ELSE IF MY=2007 THEN COMBO=.38; GOTO DRO; END; /* UPLANDER */ GOTO DRO; OLDS: IF MM2 IN (21021,21023) THEN GOTO DRO; /* NONE: ALERO, INTRIGUE */ IF MM2=21022 THEN DO; TORSO=1; GOTO DRO; END; /* AURORA */ IF MM2 IN (21302,21303) THEN DO; IF MY GE 2002 THEN TORSO=1; GOTO DRO; END; /* BRAVADA */ IF MM2 IN (21452,21456,21457) THEN DO; IF MY=2000 THEN TORSO=1; ELSE DO; COMBO=.75; TORSO=.25; END; GOTO DRO; END; /* SILHOUETTE */ GOTO DRO; PONTIAC: IF MM2 IN (22008,22009,22018,22023) THEN GOTO DRO; /* NONE: GTO, FIREBIRD, GRAND AM, SOLSTICE */ IF MM2=22002 THEN DO; IF MY LE 2002 THEN TORSO=1; ELSE IF V7='4' THEN TORSO=1; GOTO DRO; END; /* BONNEVILLE */ IF MM2=22016 THEN DO; IF MY GE 2003 AND V7='4' THEN TORSO=1; GOTO DRO; END; /* SUNFIRE */ IF MM2=22019 THEN DO; IF V7='8' THEN CURTAIN=1; GOTO DRO; END; /* G5 */ IF MM2=22020 THEN DO; IF MY IN (2004,2005) AND V7='4' THEN CURTAIN=1; ELSE IF MY IN (2006,2007) AND V7='8' THEN CURTAIN=1; GOTO DRO; END; /* GRAND PRIX */ IF MM2=22022 THEN DO; IF MY=2005 AND V7='4' THEN CURTAIN=1; ELSE DO; IF V7 IN ('7','8') THEN CURTAIN=1; IF V7 IN ('6','7') THEN TORSO=1; END; GOTO DRO; END; /* G6 */ IF MM2=22032 THEN DO; IF MY LE 2004 AND V7='4' THEN TORSO=1; ELSE IF MY=2005 AND V7 IN ('4','6') THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY GE 2006 AND V7='7' THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* VIBE */ IF MM2 IN (22336,22337) THEN DO; CURTAIN=.23; GOTO DRO; END; /* TORRENT */ IF MM2 IN (22352,22353) THEN DO; IF 2001 LE MY LE 2002 THEN DO; COMBO=.75; TORSO=.25; END; ELSE IF MY=2003 THEN DO; COMBO=.53; TORSO=.17; END; ELSE IF MY=2004 THEN DO; COMBO=.40; TORSO=.13; END; ELSE IF MY=2005 THEN DO; COMBO=.20; TORSO=.07; END; GOTO DRO; END; /* AZTEK */ IF MM2 IN (22452,22456,22457) AND CG IN (18408,18409) THEN DO; IF MY=2000 THEN TORSO=1; ELSE IF 2001 LE MY LE 2002 THEN DO; COMBO=.75; TORSO=.25; END; ELSE IF MY=2003 THEN DO; COMBO=.71; TORSO=.24; END; ELSE IF MY=2004 THEN DO; COMBO=.56; TORSO=.18; END; ELSE IF MY=2005 THEN DO; COMBO=.45; TORSO=.15; END; GOTO DRO; END; /* MONTANA */ IF MM2 IN (22452,22456,22457) AND CG IN (18410,18412) THEN DO; IF MY=2005 THEN COMBO=.44; ELSE IF MY=2006 THEN COMBO=.16; GOTO DRO; END; /* MONTANA SV6 */ GOTO DRO; GMC: IF MM2 IN (23210:23239,23400:23439) OR CG IN (18301,18305) THEN GOTO DRO; /* NONE: SIERRA, VANS, JIMMY */ IF MM2=23008 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* ACADIA */ IF 23200 LE MM2 LE 23209 THEN DO; IF MY=2004 THEN CURTAIN=.12; ELSE IF MY=2005 THEN CURTAIN=.08; ELSE IF MY GE 2006 THEN CURTAIN=.05; GOTO DRO; END; /* SONOMA, CANYON */ IF 23302 LE MM2 LE 23309 THEN DO; IF MY=2002 THEN TORSO=1; ELSE IF MY=2003 THEN TORSO=.49; ELSE IF MY=2004 THEN TORSO=.30; ELSE IF MY=2005 THEN CURTAIN=.12; ELSE IF MY=2006 THEN CURTAIN=.30; ELSE IF MY=2007 THEN CURTAIN=.27; GOTO DRO; END; /* ENVOY, ENVOY XL, ENVOY XUV */ IF MM2 IN (23312,23313,23318) THEN DO; IF MY LE 2002 THEN TORSO=1; ELSE IF MM2=23318 AND MY LE 2005 THEN TORSO=1; ELSE IF MY=2003 THEN TORSO=.37; ELSE IF MY=2004 THEN TORSO=.39; ELSE IF MY=2005 THEN TORSO=.33; ELSE IF MY=2006 THEN TORSO=.77; ELSE IF MY=2007 THEN CURTAIN=1; GOTO DRO; END; /* YUKON, DENALI */ IF MM2 IN (23322,23323,23326,23327,23328) THEN DO; IF MY LE 2002 THEN TORSO=1; ELSE IF MY=2003 THEN TORSO=.60; ELSE IF MY=2004 THEN TORSO=.77; ELSE IF MY=2005 THEN TORSO=.60; ELSE IF MY=2006 THEN TORSO=.79; ELSE IF MY=2007 THEN CURTAIN=.84; GOTO DRO; END; /* YUKON XL, DENALI XL */ GOTO DRO; SATURN: IF MY=2000 OR MM2=24008 THEN GOTO DRO; /* NONE: ALL 2000s, SKY */ IF MM2 IN (24001:24003) THEN DO; IF V7='4' THEN CURTAIN=1; GOTO DRO; END; /* SL,SC,SW */ IF MM2 IN (24005,24006) THEN DO; IF MY=2001 AND V7='4' THEN CURTAIN=1; ELSE IF MY GE 2002 THEN CURTAIN=1; GOTO DRO; END; /* LS,LW */ IF MM2=24007 THEN DO; IF MY LE 2005 AND V7='4' THEN CURTAIN=1; ELSE IF MY GE 2006 AND V7='8' THEN CURTAIN=1; GOTO DRO; END; /* ION */ IF MM2 IN (24009,24010) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* AURA, OUTLOOK */ IF MM2 IN (24362,24363) THEN DO; IF MY IN (2002,2003) THEN CURTAIN=.19; ELSE IF MY=2004 THEN CURTAIN=.30; ELSE IF MY=2005 THEN CURTAIN=.31; ELSE IF MY=2006 THEN CURTAIN=.32; ELSE IF MY=2007 THEN CURTAIN=.37; GOTO DRO; END; /* VUE */ IF MM2 IN (24456,24457) THEN DO; IF MY=2005 THEN COMBO=.48; ELSE IF MY=2006 THEN COMBO=.81; ELSE IF MY=2007 THEN COMBO=.76; GOTO DRO; END; /* RELAY */ GOTO DRO; VW: IF MM2=30412 THEN GOTO DRO; /* NONE: EUROVAN */ IF MM2 IN (30036,30048,30303) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN + TORSO: RABBIT, PHAETON, TOUAREG */ IF MM2 IN (30040,30042,30046) THEN DO; IF MY=2000 THEN TORSO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* JETTA, GOLF, PASSAT */ IF MM2=30043 THEN DO; TORSO=1; GOTO DRO; END; /* CABRIO */ IF MM2=30047 THEN DO; IF MY LE 2003 THEN TORSO=1; ELSE COMBO=1; GOTO DRO; END; /* BEETLE */ IF MM2=30051 THEN DO; COMBO=1; GOTO DRO; END; /* EOS */ GOTO DRO; AUDI: IF MY=2000 AND MM2 IN (32042,32043) AND V6='2' THEN TORSO=1; /* SOME 2000 A4 & A6 */ ELSE IF BOD2=1 OR MM2=32045 THEN COMBO=1; /* TT AND CONVERTIBLES */ ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; /* ALL OTHERS */ MINI: IF BOD2=1 THEN COMBO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; /* MINI-COOPER */ BMW: IF BOD2 IN (1,3) THEN TORSO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; /* BMW */ NISSAN: IF MM2=35039 THEN DO; IF MY LE 2003 AND V8='A' THEN COMBO=1; ELSE IF MY GE 2004 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* MAXIMA */ IF MM2=35043 THEN DO; IF MY LE 2006 AND V8='A' THEN COMBO=1; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* SENTRA */ IF MM2=35047 THEN DO; IF MY LE 2001 AND V8='A' THEN COMBO=1; ELSE IF 2002 LE MY LE 2006 AND V8='E' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* ALTIMA */ IF MM2=35048 THEN DO; IF V8='A' THEN TORSO=1; ELSE IF V8='E' THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* 350Z */ IF MM2=35049 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* MURANO */ IF MM2=35050 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* VERSA */ IF 35200 LE MM2 LE 35209 THEN DO; IF MY=2005 THEN DO; CURTAIN=.10; TORSO=.10; END; ELSE IF MY=2006 THEN DO; CURTAIN=.11; TORSO=.11; END; ELSE IF MY=2007 THEN DO; CURTAIN=.03; TORSO=.03; END; GOTO DRO; END; /* FRONTIER */ IF 35210 LE MM2 LE 35219 THEN DO; IF MY=2004 THEN DO; CURTAIN=.13; TORSO=.13; END; ELSE IF MY IN (2005,2006) THEN DO; CURTAIN=.07; TORSO=.07; END; ELSE IF MY=2007 THEN DO; CURTAIN=.05; TORSO=.05; END; GOTO DRO; END; /* TITAN */ IF MM2 IN (35302,35303) THEN DO; IF MY=2000 THEN COMBO=.75; ELSE IF MY=2001 THEN COMBO=.56; ELSE IF MY=2002 THEN COMBO=.58; ELSE IF MY=2003 THEN DO; CURTAIN=.38; TORSO=.38; END; ELSE IF MY=2004 THEN DO; CURTAIN=.49; TORSO=.49; END; ELSE IF MY=2005 THEN DO; CURTAIN=.39; TORSO=.39; END; ELSE IF MY=2006 THEN DO; CURTAIN=.16; TORSO=.16; END; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* PATHFINDER */ IF MM2 IN (35312,35313) THEN DO; IF MY IN (2004,2005) THEN DO; CURTAIN=1; TORSO=.74; END; ELSE IF MY=2006 THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=.48; END; GOTO DRO; END; /* ARMADA */ IF MM2 IN (35322,35323) THEN DO; IF MY=2003 THEN CURTAIN=.05; ELSE IF MY=2004 THEN CURTAIN=.68; ELSE IF MY=2005 THEN DO; CURTAIN=.06; TORSO=.06; END; ELSE IF MY=2006 THEN DO; CURTAIN=.08; TORSO=.08; END; ELSE IF MY=2007 THEN DO; CURTAIN=.05; TORSO=.05; END; GOTO DRO; END; /* XTERRA */ IF MM2=35452 THEN DO; IF MY IN (2004,2005) THEN CURTAIN=1; ELSE IF MY=2006 THEN DO; CURTAIN=1; TORSO=.12; END; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=.30; END; GOTO DRO; END; /* QUEST */ GOTO DRO; HONDA: IF MM2 IN (37033,37035,37037) OR CG=38038 THEN GOTO DRO; /* NONE: PRELUDE, S2000, INSIGHT, PASSPORT */ IF MM2=37031 THEN DO; IF CG=37037 THEN TORSO=1; /* CIVIC HYBRID */ ELSE IF MY=2001 THEN TORSO=.17; ELSE IF MY=2002 THEN TORSO=.13; ELSE IF MY IN (2003,2004) THEN TORSO=.10; ELSE IF MY=2005 THEN TORSO=.15; ELSE IF MY GE 2006 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* CIVIC */ IF MM2=37032 THEN DO; IF MY=2000 THEN TORSO=.53; ELSE IF MY=2001 THEN TORSO=.69; ELSE IF MY=2002 THEN TORSO=.58; ELSE IF MY=2003 THEN DO; V7=TRANSLATE(V7,'2568','ZSGB'); V48=V4||V5||V6||V7||V8; IF V48 IN ('CM665','CM668','CM816','CM817','CM826','CM827') THEN CURTAIN=1; IF V48 IN ('CM554','CM556','CM557','CM564','CM566','CM567','CM663' 'CM713','CM716','CM717','CM723','CM726','CM727','CM822', 'CM665','CM668','CM816','CM817','CM826','CM827') THEN TORSO=1; END; ELSE IF MY=2004 THEN DO; V7=TRANSLATE(V7,'2568','ZSGB'); V48=V4||V5||V6||V7||V8; IF V48 IN ('CM557','CM558','CM567','CM568','CM665','CM668','CM726', 'CM727','CM816','CM817','CM826','CM827') THEN CURTAIN=1; IF V48 IN ('CM554','CM556','CM557','CM558','CM564','CM566','CM567','CM568','CM663' 'CM713','CM715','CM716','CM717','CM723','CM725','CM726','CM727','CM822', 'CM665','CM668','CM816','CM817','CM826','CM827') THEN TORSO=1; END; ELSE IF MY GE 2005 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* ACCORD */ IF MM2 IN (37039,37205) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* FIT, RIDGELINE */ IF MM2 IN (37302,37303) THEN DO; IF 2002 LE MY LE 2004 AND V8 IN ('5','8') THEN TORSO=1; ELSE IF MY GE 2005 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* CR-V */ IF MM2 IN (37322,37323) THEN DO; IF 2003 LE MY LE 2005 THEN TORSO=1; ELSE IF MY GE 2006 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* PILOT */ IF MM2 IN (37332,37333) THEN DO; IF 2003 LE MY LE 2006 AND V8 IN ('6','7') THEN TORSO=1; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* ELEMENT */ IF MM2=37402 THEN DO; IF 2002 LE MY LE 2004 THEN TORSO=1; ELSE IF MY GE 2005 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* ODYSSEY */ GOTO DRO; ISUZU: IF MY LE 2002 OR MM2 IN (38300,38301,38312:38331) THEN GOTO DRO; /* NONE: HOMBRE, RODEO SPORT, TROOPER, RODEO, AXIOM, VEHICROSS */ IF 38202 LE MM2 LE 38205 THEN DO; IF MY=2006 THEN CURTAIN=.20; ELSE IF MY=2007 THEN CURTAIN=.33; GOTO DRO; END; /* 2006- PICKUPS */ IF 38302 LE MM2 LE 38307 THEN DO; IF MY LE 2004 THEN TORSO=1; ELSE IF MY=2005 THEN CURTAIN=.30; ELSE IF MY=2006 THEN CURTAIN=.31; ELSE IF MY=2007 THEN CURTAIN=.25; GOTO DRO; END; /* ASCENDER */ GOTO DRO; JAGUAR: IF MM2 IN (39031,39035) THEN DO; IF MY GE 2001 THEN COMBO=1; GOTO DRO; END; /* XK */ IF MM2=39032 THEN DO; IF MY LE 2003 THEN TORSO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* XJ */ IF MM2=39034 THEN DO; IF MY LE 2002 THEN COMBO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* S-TYPE */ IF MM2=39036 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; /* X-TYPE */ GOTO DRO; MAZDA: IF 41200 LE MM2 LE 41209 THEN GOTO DRO; /* NONE: PICKUPS */ IF MM2 IN (41049,41053,41054) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* RX-8, CX-7, CX-9 */ IF MM2=41035 THEN DO; IF V8 IN ('3','4','6','8') THEN COMBO=1; GOTO DRO; END; /* PROTEGE */ IF MM2=41037 THEN DO; IF V8 IN ('E','F') THEN COMBO=1; GOTO DRO; END; /* 626 */ IF MM2=41045 THEN DO; IF MY GE 2006 THEN COMBO=1; GOTO DRO; END; /* MIATA */ IF MM2=41047 THEN DO; IF MY GE 2001 THEN COMBO=1; GOTO DRO; END; /* MILLENIA */ IF MM2=41050 THEN DO; IF V4='H' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF V4='G' AND MY GE 2006 THEN CURTAIN=1; GOTO DRO; END; /* 6 */ IF MM2=41051 THEN DO; V46=V4||V5||V6; IF V46='BK3' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF V46='BK2' THEN CURTAIN=1; GOTO DRO; END; /* 3 */ IF MM2=41052 THEN DO; V48=V4||V5||V6||V7||V8; IF V48='CR29L' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF V48='CR293' THEN CURTAIN=1; GOTO DRO; END; /* 5 */ IF 41342 LE MM2 LE 41349 THEN DO; IF MY LE 2004 AND V4='C' THEN COMBO=1; ELSE IF MY=2005 AND V4='C' THEN CURTAIN=1; ELSE IF MY=2006 AND V4='C' THEN DO; TORSO=1; CURTAIN=1; END; GOTO DRO; END; /* TRIBUTE */ IF MM2=41402 THEN DO; IF MY=2001 AND V8='Y' THEN COMBO=1; ELSE IF MY GE 2002 AND V8='J' THEN COMBO=1; GOTO DRO; END; /* MPV */ GOTO DRO; MERCEDES: IF MM2 IN (42043,42048,42051,42313,42323,42333) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN + TORSO: S, E, CLS, G, R, GL */ IF MM2 IN (42042,42046) THEN DO; IF MY=2000 THEN TORSO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* C,CL */ IF MM2=42044 THEN DO; IF MY LE 2002 THEN TORSO=1; ELSE COMBO=1; GOTO DRO; END; /* SL */ IF MM2=42045 THEN DO; IF MY LE 2004 THEN TORSO=1; ELSE COMBO=1; GOTO DRO; END; /* SLK */ IF MM2=42047 THEN DO; IF MY LE 2002 THEN TORSO=1; ELSE IF BOD2=2 THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF BOD2=1 AND MY=2003 THEN TORSO=1; ELSE IF BOD2=1 THEN COMBO=1; GOTO DRO; END; /* CLK */ IF MM2=42049 THEN DO; COMBO=1; GOTO DRO; END; /* SLR MacLAREN */ IF MM2 IN (42303,42307) THEN DO; IF MY LE 2001 THEN TORSO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* ML */ GOTO DRO; PORSCHE: IF MM2 IN (45031,45040,45041) THEN DO; IF MY LE 2001 THEN COMBO=1; ELSE IF 2002 LE MY LE 2004 THEN TORSO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* CARS */ IF MM2=45303 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CAYENNE */ GOTO DRO; SAAB: IF MM2=47035 THEN DO; IF CG=47006 OR BOD2=1 THEN COMBO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* 9-3 */ IF MM2 IN (47036,47037) THEN DO; COMBO=1; GOTO DRO; END; /* 9-5, 9-2X */ IF MM2=47308 THEN DO; CURTAIN=1; GOTO DRO; END; /* 9-7X */ GOTO DRO; SUBARU: IF MM2=48044 THEN GOTO DRO; /* NONE: BAJA */ IF MM2=48034 THEN DO; IF MY LE 2004 AND V8='6' THEN TORSO=1; ELSE IF MY GE 2005 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* LEGACY */ IF MM2=48038 THEN DO; IF 2002 LE MY LE 2004 AND V8='6' THEN TORSO=1; ELSE IF MY=2005 AND V8='6' THEN COMBO=1; ELSE IF MY GE 2006 THEN COMBO=1; GOTO DRO; END; /* IMPREZA */ IF MM2=48045 THEN DO; IF MY LE 2004 AND V8='6' THEN TORSO=1; ELSE IF MY GE 2005 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* OUTBACK */ IF MM2=48303 THEN DO; IF 2001 LE MY LE 2002 AND V8='6' THEN TORSO=1; ELSE IF MY GE 2003 THEN COMBO=1; GOTO DRO; END; /* FORESTER */ IF MM2=48313 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* TRIBECA */ GOTO DRO; TOYOTA: IF MM2 IN (49041,49049) THEN GOTO DRO; /* NONE: MR2, SCION xB */ IF MM2 IN (49032,49047) THEN DO; IF MY LE 2004 AND V7='8' THEN TORSO=1; ELSE IF MY GE 2005 AND V7='0' THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* COROLLA, MATRIX */ IF MM2 IN (49033,49045) THEN DO; IF V7='8' THEN TORSO=1; GOTO DRO; END; /* CELICA, ECHO */ IF MM2=49040 THEN DO; IF MY LE 2001 AND V7='8' THEN TORSO=1; ELSE IF 2002 LE MY LE 2006 AND V7='0' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* CAMRY */ IF MM2=49043 THEN DO; IF MY LE 2004 THEN TORSO=1; ELSE IF MY GE 2005 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* AVALON */ IF MM2=49044 THEN DO; IF MY LE 2003 AND V7='8' THEN TORSO=1; ELSE IF MY GE 2004 THEN DO; IF V7='0' THEN CURTAIN=1; IF V7 IN ('0','8') THEN TORSO=1; END; GOTO DRO; END; /* SOLARA */ IF MM2=49046 THEN DO; IF MY LE 2003 AND V7='8' THEN TORSO=1; ELSE IF 2004 LE MY LE 2006 AND V7='0' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* PRIUS */ IF MM2=49048 THEN DO; IF V7='0' THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* SCION xA */ IF MM2=49050 THEN DO; IF V7='6' THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* SCION tC */ IF MM2=49051 THEN DO; IF V7='0' THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* YARIS */ IF 49200 LE MM2 LE 49209 THEN DO; IF MY=2005 THEN DO; CURTAIN=.03; TORSO=.03; END; ELSE IF MY=2006 THEN DO; CURTAIN=.05; TORSO=.05; END; ELSE IF MY=2007 THEN DO; CURTAIN=.05; TORSO=.05; END; GOTO DRO; END; /* TACOMA */ IF 49210 LE MM2 LE 49219 THEN DO; IF MY=2005 THEN DO; CURTAIN=.11; TORSO=.11; END; ELSE IF MY=2006 THEN DO; CURTAIN=.14; TORSO=.14; END; ELSE IF MY=2007 THEN DO; CURTAIN=.13; TORSO=.13; END; GOTO DRO; END; /* TUNDRA */ IF MM2 IN (49302,49303) THEN DO; IF MY=2003 THEN DO; CURTAIN=.20; TORSO=.20; END; ELSE IF MY=2004 THEN DO; CURTAIN=.20; TORSO=.20; END; ELSE IF MY=2005 THEN DO; CURTAIN=.23; TORSO=.23; END; ELSE IF MY=2006 THEN DO; CURTAIN=.72; TORSO=.72; END; ELSE IF MY=2007 THEN DO; CURTAIN=.73; TORSO=.73; END; GOTO DRO; END; /* 4RUNNER */ IF MM2=49313 THEN DO; IF MY=2003 THEN DO; CURTAIN=.30; TORSO=.30; END; ELSE IF MY=2004 THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY=2005 THEN DO; CURTAIN=.99; TORSO=.99; END; ELSE IF MY=2006 THEN DO; CURTAIN=.99; TORSO=.99; END; ELSE IF MY=2007 THEN DO; CURTAIN=.81; TORSO=.81; END; GOTO DRO; END; /* LAND CRUISER */ IF MM2 IN (49322,49323) THEN DO; IF MY=2005 THEN DO; CURTAIN=.34; TORSO=.34; END; ELSE IF MY=2006 THEN DO; CURTAIN=.63; TORSO=.63; END; ELSE IF MY=2007 THEN DO; CURTAIN=.36; TORSO=.36; END; GOTO DRO; END; /* RAV4 */ IF 49342 LE MM2 LE 49349 THEN DO; IF MY=2001 THEN TORSO=.33; ELSE IF MY=2002 THEN TORSO=.41; ELSE IF MY=2003 THEN TORSO=.42; ELSE IF MY=2004 THEN DO; CURTAIN=.45; TORSO=.45; END; ELSE IF MY=2005 THEN DO; CURTAIN=.45; TORSO=.45; END; ELSE IF MY=2006 THEN DO; CURTAIN=.62; TORSO=.62; END; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* HIGHLANDER */ IF MM2 IN (49352,49353) THEN DO; IF MY=2004 THEN DO; CURTAIN=.75; TORSO=.75; END; ELSE IF MY=2005 THEN DO; CURTAIN=.80; TORSO=.80; END; ELSE IF MY=2006 THEN DO; CURTAIN=.13; TORSO=.13; END; ELSE IF MY=2007 THEN DO; CURTAIN=.86; TORSO=.86; END; GOTO DRO; END; /* SEQUOIA */ IF MM2 IN (49362,49363) THEN DO; CURTAIN=.44; TORSO=.44; GOTO DRO; END; /* FJ CRUISER */ IF MM2 IN (49402,49403) THEN DO; IF MY=2004 THEN DO; CURTAIN=.56; TORSO=.56; END; ELSE IF MY=2005 THEN DO; CURTAIN=.61; TORSO=.61; END; ELSE IF MY=2006 THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY=2007 THEN DO; CURTAIN=.99; TORSO=.99; END; GOTO DRO; END; /* SIENNA */ GOTO DRO; VOLVO: IF MM2 IN (51045,51047,51048,51312,51313) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN + TORSO: 80, 60, 50, XC90 */ IF MM2=51043 THEN DO; IF MY=2000 THEN COMBO=1; ELSE IF MY LE 2004 AND BOD2 IN (1,2) THEN COMBO=1; /* C70 */ ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* S70, V70, XC70 */ IF MM2=51046 THEN DO; IF MY=2000 THEN COMBO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* 40 */ GOTO DRO; MITS: IF MM2 IN (52035,52040,52336,52337) THEN GOTO DRO; /* NONE: MIRAGE, DIAMANTE, MONTERO SPORT */ IF MM2=52034 THEN DO; IF MY=2000 THEN TORSO=.14; ELSE IF MY=2001 THEN TORSO=.13; ELSE IF MY=2002 THEN TORSO=.11; ELSE IF MY=2003 THEN TORSO=.11; ELSE IF MY=2004 THEN TORSO=.14; ELSE IF MY IN (2005,2006) THEN COMBO=1; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* GALANT */ IF MM2=52037 THEN DO; IF MY=2000 THEN TORSO=.11; ELSE IF MY=2001 THEN TORSO=.32; ELSE IF MY=2002 THEN TORSO=.23; ELSE IF 2003 LE MY LE 2005 AND V6='7' THEN TORSO=1; ELSE IF MY GE 2006 AND BOD2=1 THEN COMBO=1; ELSE IF MY GE 2006 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* ECLIPSE */ IF MM2=52046 THEN DO; IF MY=2004 THEN TORSO=.06; ELSE IF MY GE 2005 THEN TORSO=.10; GOTO DRO; END; /* LANCER */ IF MM2=52047 THEN DO; IF MY=2004 THEN TORSO=.33; ELSE IF MY=2005 THEN TORSO=.14; ELSE IF MY=2006 THEN TORSO=1; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* OUTLANDER */ IF 52200 LE MM2 LE 52209 THEN DO; IF MY=2006 THEN CURTAIN=.09; GOTO DRO; END; /* RAIDER */ IF MM2 IN (52312,52313) THEN DO; IF 2004 LE MY LE 2006 THEN TORSO=1; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* ENDEAVOR */ IF MM2=52333 THEN DO; IF MY GE 2001 THEN TORSO=1; GOTO DRO; END; /* MONTERO */ GOTO DRO; SUZUKI: IF MM2 IN (53031,53032,53330:53333) THEN GOTO DRO; /* NONE: SWIFT, ESTEEM, VITARA */ IF MM2=53033 THEN DO; IF MY GE 2005 THEN TORSO=1; GOTO DRO; END; /* AERIO */ IF MM2 IN (53034:53036) THEN DO; IF MY GE 2005 THEN COMBO=1; GOTO DRO; END; /* FORENZA, VERONA, RENO */ IF MM2=53040 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* SX4 */ IF MM2 IN (53336,53337) THEN DO; IF MY GE 2006 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* GRAND VITARA */ IF MM2 IN (53342,53343) THEN DO; IF MY=2007 THEN CURTAIN=1; GOTO DRO; END; /* XL-7 */ GOTO DRO; ACURA: IF MM2 IN (54031,54033) THEN GOTO DRO; /* NONE: INTEGRA, NSX */ IF MM2 IN (54037,54038) THEN DO; TORSO=1; GOTO DRO; END; /* TORSO: CL, RSX */ IF MM2 IN (54039,54303) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN + TORSO: TSX, RDX */ IF MM2 IN (54035,54323) THEN DO; IF MY LE 2003 THEN TORSO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* TL, MDX */ IF MM2=54036 THEN DO; IF MY LE 2004 THEN TORSO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* RL */ GOTO DRO; HYUNDAI: IF MM2 IN (55039,55322:55402) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN + TORSO: AZERA, TUCSON, VERACRUZ, ENTOURAGE */ IF MM2=55033 THEN DO; IF MY=2000 THEN TORSO=1; ELSE IF 2001 LE MY LE 2005 THEN COMBO=1; ELSE IF MY GE 2006 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* SONATA */ IF MM2=55035 THEN DO; IF 2001 LE MY LE 2006 THEN COMBO=1; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* ELANTRA */ IF MM2=55036 THEN DO; IF MY=2005 THEN COMBO=1; ELSE IF MY GE 2006 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* ACCENT */ IF MM2=55037 THEN DO; IF MY GE 2003 THEN COMBO=1; GOTO DRO; END; /* TIBURON */ IF MM2=55038 THEN DO; COMBO=1; GOTO DRO; END; /* XG300 */ IF 55302 LE MM2 LE 55309 THEN DO; IF 2003 LE MY LE 2006 THEN COMBO=1; ELSE IF MY=2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* SANTA FE */ GOTO DRO; INFINITI: IF MM2 IN (58033,58035,58036,58302,58303) THEN DO; COMBO=1; GOTO DRO; END; /* COMBO: G20, I30, I35, QX4 */ IF MM2 IN (58037,58038,58039,58312,58313) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN + TORSO: G35, M45, QX56 */ IF MM2=58032 THEN DO; IF MY LE 2001 THEN COMBO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* Q45 */ GOTO DRO; LEXUS: IF MM2=59031 THEN DO; IF MY LE 2001 THEN TORSO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* ES */ IF MM2=59032 THEN DO; IF MY=2000 THEN TORSO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* LS */ IF MM2=59033 THEN DO; IF MY GE 2002 THEN TORSO=1; GOTO DRO; END; /* SC */ IF MM2=59034 THEN DO; IF MY=2000 THEN TORSO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* GS */ IF MM2=59035 THEN DO; IF MY=2001 THEN TORSO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* IS */ IF MM2=59303 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* GX */ IF MM2=59313 THEN DO; IF MY GE 2003 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* LX */ IF MM2 IN (59332,59333) THEN DO; TORSO=1; GOTO DRO; END; /* RX300 */ IF MM2 IN (59342,59343) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* RX330 */ GOTO DRO; ROVER: IF MM2 IN (62307,62341,62343) THEN GOTO DRO; /* NONE: DISCOVERY, FREELANDER */ IF MM2=62313 THEN DO; IF MY LE 2002 THEN TORSO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* RANGE ROVER */ IF MM2=62317 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* LR3 */ GOTO DRO; KIA: IF MM2=63031 THEN GOTO DRO; /* NONE: SEPHIA */ IF MM2 IN (63035,63036) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN + TORSO: AMANTI, RONDO */ IF MM2=63032 THEN DO; IF MY GE 2006 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* RIO */ IF MM2=63033 THEN DO; IF CG=63008 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* SPECTRA */ IF MM2=63034 THEN DO; IF CG=55005 THEN COMBO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* OPTIMA */ IF 63300 LE MM2 LE 63309 THEN DO; IF MY GE 2005 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* SPORTAGE */ IF MM2 IN (63312,63313) THEN DO; CURTAIN=1; GOTO DRO; END; /* SORENTO */ IF MM2=63402 THEN DO; IF MY GE 2006 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* SEDONA */ /* ----------------------------------------- */ /* WHAT CURTAINS ALSO DEPLOY IN ROLLOVERS? */ /* ----------------------------------------- */ DRO: ROLLCURT=0; /* DEFAULT: NO ROLLOVER CURTAINS */ IF CURTAIN GT 0 THEN DO; IF MM2 IN (2001,2316,2317,2352,2353,3307,6312,6313,7342,7343, 12021,12022,12024,12300:12309,12312:12319,12342:12349, 12400,12402,13014,13302:13309,13312:13319,14020, 14302:14309,14342:14349,14402,18302:18309,19312,19313, 20210:20219,20302:20309,20312,20313,20322:20327,20342:20349, 23008,23302:23309,23312:23319,23322:23329,24010, 32303,35312,35313,37205,37302,37303,37322,37323,37332,37333,37402, 38302:38309,41053,41054,41342:41349,42051,47308,48313, 49210:49219,49313,51312,51313,52047,52312,52313,53342,53343, 54303,54323,58312,58313,59313,62317) THEN ROLLCURT=CURTAIN; ELSE IF MY GE 2003 AND MM2 IN (42043,42046,42048) THEN ROLLCURT=CURTAIN; ELSE IF MY GE 2004 AND MM2 IN (7312,7313,49302,49303,59303) THEN ROLLCURT=CURTAIN; ELSE IF MY GE 2005 AND MM2 IN (35049,35200:35209,35210:35219,35300:35303, 35322,35323,49342:49349,49352,49353,58039,59342,59343) THEN ROLLCURT=CURTAIN; ELSE IF MY GE 2006 AND MM2 IN (2312,2313,19020,24362,24363,42303:42309,42323, 49322,49323,62313) THEN ROLLCURT=CURTAIN; ELSE IF MY GE 2006 AND MM2=51043 AND BOD2=1 THEN ROLLCURT=CURTAIN; ELSE IF MY=2007 AND MM2 IN (20336,20337,22336,22337,49200:49209) THEN ROLLCURT=CURTAIN; END; RUN; /* --------------------------------------------------------------- */ /* STEP 5: ADDS 4X4/AWD INFO */ /* --------------------------------------------------------------- */ DATA FILE5; SET FILE4; AWD=0; /* DEFAULT: NOT AWD OR 4x4 */ MM_CODE=MOD(INT(MM2/100),10); BODYCODE=MOD(MM2,10); /* -------------------------------------------------------------------------------------------- */ /* FOR LTVs WITH LTV-LIKE MM2 CODES, THERE ARE SEPARATE, CLEARLY DEFINED CODES FOR 4X2 AND 4X4 */ /* -------------------------------------------------------------------------------------------- */ IF MM_CODE IN (2,3,4) AND BODYCODE IN (1,3,5,7) THEN AWD=1; /* NORMALLY, ODD LAST DIGIT INDICATES 4X4/AWD */ /* -------------------------------------------------------------------------------- */ /* SUVs (NOT INCLUDED ABOVE) WITH AWD STANDARD OR A NON-VIN-DECODABLE OPTION */ /* -------------------------------------------------------------------------------- */ ELSE IF MM2 IN (32047,48044,48045,23218,7239,23219,12308, 13308,14308,23318,23328,47308) THEN AWD=1; /* AUDI ALLROAD, SUBARU BAJA/OUTBACK, GMC DENALIS, RAM DRW 4X4, AWD EXPLORER/AVIATOR/MOUNTAINEER, SAAB 9-7X */ ELSE IF MM2=51043 AND BOD2=0 THEN AWD=1; /* VOLVO XC-70 */ ELSE IF MM2=55309 THEN AWD=.39; /* 2001 HYUNDAI SANTA FE NOT DECODABLE: USE WARD'S PERCENTAGE */ ELSE IF MM2=41053 THEN AWD=.48; /* 2007 MAZDA CX-7 */ ELSE IF MM2=19020 THEN DO; IF MY=2004 THEN AWD=.70; ELSE IF MY=2005 THEN AWD=.75; ELSE IF MY=2006 THEN AWD=.54; ELSE IF MY=2007 THEN AWD=.57; END; /* CADILLAC SRX */ ELSE IF MM2 IN (2001,6054,7021,12022,12024,13014,23008,24010,35049,41054,52047,58039) THEN DO; /* ------------------------------------------------------------------------------- */ /* SUVs THAT FARS GAVE CAR-LIKE MAK_MOD CODES WHICH WE CARRY OVER AS MM2, */ /* WITH DECODABLE DRIVE TYPE: INDENTIFY THOSE WITH AWD */ /* ------------------------------------------------------------------------------- */ IF MM2=2001 THEN DO; IF V5='F' THEN AWD=1; ELSE AWD=0; END; /* JEEP COMPASS */ ELSE IF MM2=6054 THEN DO; IF V5='F' THEN AWD=1; ELSE AWD=0; END; /* CHRYSLER PACIFICA */ ELSE IF MM2=7021 THEN DO; IF V5='Z' THEN AWD=1; ELSE AWD=0; END; /* DODGE MAGNUM */ ELSE IF MM2=12022 THEN DO; IF V7 IN ('4','5','6') THEN AWD=1; ELSE AWD=0; END; /* FORD FREESTYLE */ ELSE IF MM2=12024 THEN DO; IF V6='4' THEN AWD=1; ELSE AWD=0; END; /* FORD EDGE */ ELSE IF MM2=13014 THEN DO; IF V6='8' THEN AWD=1; ELSE AWD=0; END; /* LINCOLN MKX */ ELSE IF MM2 IN (23008,24010) THEN DO; IF V5='V' THEN AWD=1; ELSE AWD=0; END; /* GMC ACADIA, SATURN OUTLOOK */ ELSE IF MM2=35049 THEN DO; IF V8='W' THEN AWD=1; ELSE AWD=0; END; /* NISSAN MURANO */ ELSE IF MM2=41054 THEN DO; IF V6='3' THEN AWD=1; ELSE AWD=0; END; /* MAZDA CX-9 */ ELSE IF MM2=52047 THEN DO; IF V5 IN ('T','Z') THEN AWD=1; ELSE AWD=0; END; /* MITSUBISHI OUTLANDER */ ELSE IF MM2=58039 THEN DO; IF V8='W' THEN AWD=1; ELSE AWD=0; END; END; /* INFINITI FX35 */ /* ------------------------------------------------------- */ /* PASSENGER CARS WITH AWD STANDARD FOR THE ENTIRE MM2 */ /* ------------------------------------------------------- */ ELSE IF MM2 IN (30048,32044,32046,39036,47037,48034,48038) THEN AWD=1; /* VW PHAETON, AUDI A8 & S8, JAGUAR X, SAAB 9-2X, SUBARU LEGACY & IMPREZA */ /* ------------------------------------------------------------------------------- */ /* CARS WITH AT LEAST 10% VIN-DECODABLE AWD: INDENTIFY THOSE WITH AWD */ /* ------------------------------------------------------------------------------- */ ELSE IF MM2 IN (12021,12023,13013,14020,14021,22032,30046,32040,32043,32042,32045, 34034,34035,42042,42043,42048,49047,51043,51046,53033,58037,58038) THEN DO; IF MM2=12021 AND 2005 LE MY LE 2007 THEN DO; IF V7 IN ('6','7','8') THEN AWD=1; ELSE AWD=0; END; /* FORD 500 */ ELSE IF MM2=12023 AND MY=2007 THEN DO; IF V7 IN ('1','2') THEN AWD=1; ELSE AWD=0; END; /* FORD FUSION */ ELSE IF MM2=13013 AND MY=2007 THEN DO; IF V7='8' THEN AWD=1; ELSE AWD=0; END; /* LINCOLN MKZ */ ELSE IF MM2=14020 AND 2005 LE MY LE 2007 THEN DO; IF V7 IN ('1','3') THEN AWD=1; ELSE AWD=0; END; /* MERCURY MONTEGO */ ELSE IF MM2=14021 AND MY=2007 THEN DO; IF V7 IN ('1','2') THEN AWD=1; ELSE AWD=0; END; /* MERCURY MILAN */ ELSE IF MM2=22032 AND 2003 LE MY LE 2006 THEN DO; IF V5='M' THEN AWD=1; ELSE AWD=0; END; /* PONTIAC VIBE */ ELSE IF MM2=30046 THEN DO; IF (MY=2002 AND V4 IN ('S','T','U','X','Y','Z')) OR (MY=2003 AND V4 IN ('K','L','T','U','Y','Z')) OR (MY=2004 AND V4 IN ('K','T','U','Y','Z')) OR (MY=2005 AND V4 IN ('B','D','Y')) OR (MY=2006 AND V4 IN ('B','D','F','V')) OR (MY=2007 AND V4 IN ('B','D','F','M','R','V')) THEN AWD=1; ELSE AWD=0; END; /* VW PASSAT */ ELSE IF MM2 IN (32040,32043) THEN DO; IF MY LE 2001 THEN AWD=.85; ELSE IF MY=2002 THEN AWD=.86; ELSE IF MY=2003 THEN AWD=.84; ELSE IF MY=2004 THEN AWD=.81; ELSE IF MY=2005 THEN AWD=.82; ELSE IF MY=2006 THEN AWD=.80; ELSE IF MY=2007 THEN AWD=.82; END; /* AUDI A4 & S4 */ ELSE IF MM2 IN (32030,32042) THEN DO; IF MY LE 2001 THEN AWD=.95; ELSE IF MY=2002 THEN AWD=.94; ELSE IF MY=2003 THEN AWD=.89; ELSE IF MY=2004 THEN AWD=.79; ELSE IF MY=2005 THEN AWD=1; ELSE IF MY=2006 THEN AWD=.80; ELSE IF MY=2007 THEN AWD=.79; END; /* AUDI A6 */ ELSE IF MM2=32045 THEN DO; IF MY=2001 THEN AWD=.90; ELSE IF MY=2002 THEN AWD=.60; ELSE IF MY=2003 THEN AWD=.44; ELSE IF MY=2004 THEN AWD=.49; ELSE IF MY=2005 THEN AWD=.50; ELSE IF MY=2006 THEN AWD=.55; END; /* AUDI TT */ ELSE IF MM2=34034 THEN DO; IF (2002 LE MY LE 2004 AND V4='E' AND V5 IN ('U','P','W')) OR (MY=2005 AND V4='E' AND V5 IN ('U','P')) OR (MY=2006 AND V4='V' AND V5 IN ('D','T')) OR (MY=2007 AND V4||V5||V6 IN ('WV5','VC9','VC7','VD5','VT7')) THEN AWD=1; ELSE AWD=0; END; /* BMW 300 */ ELSE IF MM2=34035 AND MY GE 2006 THEN DO; IF V4='N' AND V5 IN ('F','N') THEN AWD=1; ELSE AWD=0; END; /* BMW 500 */ ELSE IF MM2 IN (42042,42043) AND 2003 LE MY LE 2005 THEN DO; IF V6='8' THEN AWD=1; ELSE AWD=0; END; /* MERCEDES C & S 2003-2005 */ ELSE IF MM2=42048 AND 2000 LE MY LE 2005 THEN DO; IF V6='8' THEN AWD=1; ELSE AWD=0; END; /* MERCEDES E 2000-2005 */ ELSE IF MM2 IN (42042,42043,42048) AND MY GE 2006 THEN DO; IF V6 IN ('8','9') THEN AWD=1; ELSE AWD=0; END; /* MERCEDES C & S & E 2006-2007 */ ELSE IF MM2=49047 AND 2003 LE MY LE 2006 THEN DO; IF V4='L' THEN AWD=1; ELSE AWD=0; END; /* TOYOTA MATRIX */ ELSE IF MM2=51043 AND MY=2000 THEN DO; IF V5='Z' THEN AWD=1; ELSE AWD=0; END; /* VOLVO 70 CAR */ ELSE IF MM2=51046 AND MY GE 2005 THEN DO; IF V5 IN ('H','J') THEN AWD=1; ELSE AWD=0; END; /* VOLVO 40 */ ELSE IF MM2=53033 AND MY GE 2003 THEN DO; IF V5 IN ('B','D') THEN AWD=1; ELSE AWD=0; END; /* SUZUKI AERIO */ ELSE IF MM2=58037 AND MY GE 2004 THEN DO; IF V8='F' THEN AWD=1; ELSE AWD=0; END; /* INFINITI G35 */ ELSE IF MM2=58038 AND MY GE 2006 THEN DO; IF V8='F' THEN AWD=1; ELSE AWD=0; END; END; /* INFINITI M45 */ DROP MM_CODE BODYCODE V48 V46; RUN; /* ------------------------------------------------------------------------------------------------------- */ /* FILE5 WILL BE FILE0 WITH THE ADDED VARIABLES ABS, ESC, BLOCKER, CURTAIN, COMBO, TORSO, ROLLCURT & AWD */ /* ------------------------------------------------------------------------------------------------------- */