LIBNAME LIBRARY 'xx'; LIBNAME FARS_A11 'xx'; OPTION NOCENTER NOFMTERR OBS=5000000 LS=160 PAGESIZE=89; /* PROGRAM NAME: VIN112.SAS UPDATED: 02/01/2013 */ /* CREATES FILE OF ALL MY 1981-2011 VEHICLES WITH KNOWN VINS ON 1980-2011 FARS */ /* WITH MAK2, MM2, CG, BOD2, PASSIVE, TRKTYP AND SIDE-AIR-BAG INFO */ DATA CHUCK1; SET CAR4(IN=CAR) TRK3(IN=TRK) OVEH1(IN=OVEH); IF CAR THEN DO; TRKTYP=0; INCOMP=0; GE10=0; END; ELSE IF TRK THEN DO; BOD2=0; BODP=0; END; CURTAIN=0; TORSO=0; COMBO=0; /* DEFAULT: NO CURTAIN, TORSO, OR COMBINATION AIR BAGS */ IF MY LE 1995 THEN GOTO DRO; /* NO SIDE AIR BAGS BEFORE 1996 */ IF OVEH OR MM2=99999 THEN DO; CURTAIN=.; TORSO=.; COMBO=.; GOTO DRO; END; /* LEAVE UNKNOWN FOR 1996- IF NOT CAR/LTV OR NOT DECODABLE VIN */ IF MAK2=64 THEN GOTO DRO; /* DAEWOO: NO SIDE AIR BAGS IN 2000-2007 VEHICLES */ 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=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 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; IF MAK2=65 THEN GOTO SMART; GOTO DRO; JEEP: IF MY LE 2001 THEN GOTO DRO; /* NONE IN 1996-2001 */ IF MM2=2001 THEN DO; IF MY=2007 THEN DO; CURTAIN=1; TORSO=.03; END; ELSE IF MY=2008 THEN DO; CURTAIN=1; TORSO=.08; END; ELSE IF MY=2009 THEN DO; CURTAIN=1; TORSO=.12; END; ELSE IF MY=2010 THEN DO; CURTAIN=1; TORSO=.06; END; ELSE IF MY=2011 THEN DO; CURTAIN=1; TORSO=.12; END; GOTO DRO; END; /* COMPASS */ IF MM2 IN (2312,2313) THEN DO; IF 2002 LE MY LE 2006 AND V3='8' THEN CURTAIN=1; ELSE IF 2007 LE MY LE 2010 THEN CURTAIN=1; ELSE IF MY GE 2011 THEN DO; CURTAIN=1; TORSO=1; END; 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 2007 LE MY LE 2009 AND V3='8' THEN COMBO=1; ELSE IF MY GE 2010 AND V4 IN ('G','H') THEN COMBO=1; GOTO DRO; END; /* WRANGLER */ IF MM2 IN (2342,2343)THEN DO; IF MY LE 2007 AND V3='8' THEN CURTAIN=1; ELSE IF MY GE 2008 THEN CURTAIN=1; GOTO DRO; END; /* LIBERTY */ IF MM2 IN (2352,2353) THEN DO; IF MY=2007 THEN DO; CURTAIN=1; TORSO=.03; END; ELSE IF MY=2008 THEN DO; CURTAIN=1; TORSO=.09; END; ELSE IF MY=2009 THEN DO; CURTAIN=1; TORSO=.14; END; ELSE IF MY=2010 THEN DO; CURTAIN=1; TORSO=.12; END; ELSE IF MY=2011 THEN DO; CURTAIN=1; TORSO=.09; END; GOTO DRO; END; /* PATRIOT */ GOTO DRO; HUMMER: IF MY LE 2005 THEN GOTO DRO; /* NONE IN 1996-2005 */ IF MM2=3307 THEN DO; IF MY=2006 THEN CURTAIN=.27; ELSE IF MY=2007 THEN CURTAIN=.30; ELSE IF 2008 LE MY LE 2010 THEN CURTAIN=1; GOTO DRO; END; /* H3 */ IF MM2 IN (3313,3317) THEN DO; IF 2008 LE MY LE 2009 THEN CURTAIN=1; GOTO DRO; END; /* H2 */ GOTO DRO; CHRYSLER: IF MY LE 2000 OR MM2=6053 THEN GOTO DRO; /* NONE IN 1996-2000, PROWLER */ IF MM2=6018 AND BOD2=4 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN + TORSO: 200 SEDAN */ IF MM2=6018 AND BOD2=1 THEN DO; COMBO=1; GOTO DRO; END; /* COMBO: 200 CV */ IF MM2 IN (6041,6042) THEN DO; IF V4='A' THEN COMBO=1; GOTO DRO; END; /* CONCORDE, LHS */ IF MM2=6043 AND BOD2=1 THEN DO; IF 2008 LE MY LE 2010 THEN COMBO=1; GOTO DRO; END; /* SEBRING CV */ 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 2007 LE MY LE 2010 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 2005 LE MY LE 2007 AND V4 IN ('A','H','L') THEN CURTAIN=1; ELSE IF 2008 LE MY LE 2009 AND V4 IN ('A','H','L') THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* 300 */ IF MM2=6052 AND BOD2=0 THEN DO; IF MY LE 2007 AND V3 IN ('8','A') THEN COMBO=1; ELSE IF 2008 LE MY LE 2010 THEN COMBO=1; GOTO DRO; END; /* PT CRUISER SUV */ IF MM2=6052 AND BOD2=1 THEN DO; IF MY LE 2007 AND V4 IN ('A','H') THEN COMBO=1; ELSE IF 2008 LE MY LE 2009 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 GE 2007 THEN CURTAIN=1; GOTO DRO; END; /* PACIFICA */ IF MM2=6055 THEN DO; TORSO=1; GOTO DRO; END; /* CROSSFIRE */ IF MM2 IN (6312,6313,6317) 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 2005 LE MY LE 2007 AND V3='8' THEN CURTAIN=1; ELSE IF 2008 LE MY LE 2010 THEN CURTAIN=1; ELSE IF MY GE 2011 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* TOWN & COUNTRY */ GOTO DRO; DODGE: IF MY LE 2000 OR MM2 IN (7013,7410:7439,7610:7639) THEN GOTO DRO; /* NONE IN 1996-2000, VIPER, RAM VAN */ IF MM2 IN (7026,7027) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN+TORSO: AVENGER, JOURNEY */ IF MM2 IN (7020,7041) THEN DO; IF V4='A' THEN COMBO=1; GOTO DRO; END; /* NEON, INTREPID */ IF MM2=7021 THEN DO; IF MY LE 2007 AND V3='8' THEN CURTAIN=1; ELSE IF MY=2008 AND V3='8' THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* MAGNUM */ IF MM2=7024 THEN DO; IF MY LE 2007 AND V4='L' THEN CURTAIN=1; ELSE IF 2008 LE MY LE 2009 AND V4='L' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* CHARGER */ IF MM2=7025 THEN DO; IF MY=2007 THEN DO; CURTAIN=1; TORSO=.01; END; ELSE IF 2008 LE MY LE 2010 THEN DO; CURTAIN=1; TORSO=.03; END; ELSE IF MY GE 2011 THEN DO; CURTAIN=1; TORSO=.04; END; GOTO DRO; END; /* CALIBER */ IF MM2=7028 THEN DO; IF MY LE 2010 THEN CURTAIN=1; ELSE IF MY GE 2011 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* CHALLENGER */ 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 2005 LE MY LE 2009 AND V3='3' THEN CURTAIN=1; ELSE IF MY=2010 AND V4 IN ('R','S') THEN CURTAIN=1; IF MY GE 2011 THEN CURTAIN=1; GOTO DRO; END; /* DAKOTA */ IF 7210 LE MM2 LE 7219 THEN DO; IF 2002 LE MY LE 2008 AND V3='3' THEN CURTAIN=1; ELSE IF MY GE 2009 THEN CURTAIN=1; GOTO DRO; END; /* RAM 1500 */ IF MM2 IN (7220:7239,7520:7539) THEN DO; IF 2003 LE MY LE 2009 AND V3 IN ('2','3') THEN CURTAIN=1; ELSE IF MY GE 2010 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 2007 LE MY LE 2009 THEN CURTAIN=1; ELSE IF MY GE 2011 THEN DO; CURTAIN=1; TORSO=1; END; 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 2005 LE MY LE 2007 AND V3='8' THEN CURTAIN=1; ELSE IF 2008 LE MY LE 2010 THEN CURTAIN=1; ELSE IF MY GE 2011 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* CARAVAN,GRAND CARAVAN */ GOTO DRO; SPRINTER: IF MY LE 2009 THEN GOTO DRO; /* SPRINTER: AVAILABLE IN 2007-2009, BUT NO SALES OR VIN INFO, PROBABLY FEW */ IF V8='D' THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; GOTO DRO; FORD: IF MY LE 1998 OR MM2 IN (12013,12035,12038,12332,12333,12410:12449,12610:12649) THEN GOTO DRO; /* NONE: MY 1996-1998; ESCORT, CONTOUR, GT, EXCURSION, E-VANS */ IF MM2 IN (12024,12025,12032) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN+TORSO: EDGE, FLEX, FIESTA */ IF MM2=12003 THEN DO; IF 2005 LE MY LE 2007 AND V4='H' THEN COMBO=1; ELSE IF MY GE 2008 THEN COMBO=1; GOTO DRO; END; /* MUSTANG */ IF MM2=12004 THEN DO; IF MY GE 2000 THEN COMBO=1; GOTO DRO; END; /* THUNDERBIRD */ IF MM2=12016 THEN DO; IF 2003 LE MY LE 2008 AND V4='H' THEN COMBO=1; ELSE IF MY GE 2009 THEN COMBO=1; GOTO DRO; END; /* CROWN VICTORIA */ IF MM2=12017 THEN DO; IF 2000 LE MY LE 2007 AND V4='H' THEN COMBO=1; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; END; 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 GE 2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* FUSION */ IF MM2=12037 THEN DO; IF 2000 LE MY LE 2007 AND V4='H' THEN COMBO=1; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* FOCUS */ IF MM2 IN (12200:12209) THEN DO; IF MY GE 2010 THEN COMBO=1; GOTO DRO; END; /* RANGER */ IF MM2 IN (12210:12219,12510:12519) THEN DO; IF MY GE 2009 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* F-150 */ IF MM2 IN (12220:12239,12520:12539) THEN DO; IF MY GE 2011 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* F-250/350 */ IF MM2 IN (12300,12301,12302,12303,12308,12309) THEN DO; IF 1999 LE 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=2006 THEN DO; TORSO=1; CURTAIN=.45; END; ELSE IF MY=2007 THEN DO; TORSO=1; CURTAIN=.57; END; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* EXPLORER */ IF MM2 IN (12305,12306,12307) THEN DO; IF 2003 LE MY LE 2005 AND V4 IN ('C','D','E') THEN CURTAIN=1; ELSE IF MY=2006 THEN DO; TORSO=1; CURTAIN=.45; END; ELSE IF MY=2007 THEN DO; TORSO=1; CURTAIN=.57; END; ELSE IF 2008 LE MY LE 2010 THEN DO; CURTAIN=1; TORSO=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 GE 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 2006 LE MY LE 2007 AND V4='C' THEN DO; TORSO=1; CURTAIN=1; END; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* ESCAPE */ IF 12400 LE MM2 LE 12409 THEN DO; IF 1999 LE MY LE 2003 AND V4='D' THEN COMBO=1; /* WINDSTAR */ ELSE IF 2004 LE MY LE 2007 AND V4='D' THEN DO; TORSO=1; CURTAIN=1; END; GOTO DRO; END; /* FREESTAR */ IF MM2 IN (12460,12462) THEN DO; COMBO=1; GOTO DRO; END; /* TRANSIT CONNECT */ GOTO DRO; LINCOLN: IF MY LE 1998 OR MM2 IN (13214,13215) THEN GOTO DRO; /* NONE: MY 1996-1998, PICKUPS */ IF MM2 IN (13013,13014,13015,13016) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN+TORSO: ZEPHYR, MKZ, MKX, MKS, MKT */ IF MM2 IN (13001,13005) AND MY GE 1999 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 13302 LE MM2 LE 13309 THEN DO; CURTAIN=1; GOTO DRO; END; /* AVIATOR */ IF 13312 LE MM2 LE 13319 THEN DO; IF 2000 LE MY LE 2002 THEN COMBO=1; ELSE IF 2003 LE MY LE 2006 THEN CURTAIN=1; ELSE IF MY GE 2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* NAVIGATOR */ GOTO DRO; MERCURY: IF MY LE 1998 OR MM2 IN (14037,14452) THEN GOTO DRO; /* NONE: 1996-1998, MYSTIQUE, VILLAGER */ IF MM2=14016 THEN DO; IF 2003 LE MY LE 2008 AND V4='H' THEN COMBO=1; ELSE IF MY GE 2009 THEN COMBO=1; GOTO DRO; END; /* GRAND MARQUIS */ IF MM2=14017 THEN DO; IF 2000 LE MY LE 2005 AND V4='H' THEN COMBO=1; ELSE IF 2008 LE MY LE 2009 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* SABLE */ IF MM2 IN (14038,14039) THEN DO; IF V4='H' THEN COMBO=1; GOTO DRO; END; /* 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 GE 2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* MILAN */ IF MM2 IN (14302,14303,14308,14309) THEN DO; IF 1999 LE MY LE 2001 AND V4 IN ('C','D','E') THEN COMBO=1; ELSE IF 2002 LE MY LE 2005 AND V4 IN ('D','E') THEN CURTAIN=1; ELSE IF MY=2006 THEN DO; TORSO=1; CURTAIN=.50; END; ELSE IF MY=2007 THEN DO; TORSO=1; CURTAIN=1.00; END; ELSE IF 2008 LE MY LE 2010 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* MOUNTAINEER */ IF 14342 LE MM2 LE 14349 THEN DO; IF MY LE 2007 AND V4='C' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY GE 2008 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 MY LE 1999 THEN GOTO DRO; /* NONE IN 1996-1999 */ IF MM2 IN (18019,18023,18024) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN+TORSO: REGAL (2011-), LUCERNE, ENCLAVE */ 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 AND V7='6' THEN CURTAIN=1; ELSE IF 2006 LE MY LE 2009 THEN CURTAIN=1; ELSE IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* LaCROSSE */ 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 MY=1996 OR MM2=19005 THEN GOTO DRO; /* NONE: 1996, ELDORADO */ IF MM2 IN (19018,19020,19021,19022) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN + TORSO: CTS, SRX, STS, DTS */ IF MM2=19003 THEN DO; IF MY GE 1997 THEN TORSO=1; GOTO DRO; END; /* DeVILLE */ IF MM2=19017 THEN DO; IF 1997 LE MY LE 1999 AND V7='4' THEN TORSO=1; ELSE IF MY GE 2000 THEN TORSO=1; GOTO DRO; END; /* CATERA */ IF MM2=19014 THEN DO; IF 1998 LE MY LE 2000 THEN TORSO=1; ELSE IF MY GE 2001 THEN 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 2007 LE MY LE 2009 THEN CURTAIN=1; ELSE IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* ESCALADE INCLUDING ESV & EXT */ GOTO DRO; CHEVY: IF MY LE 1997 OR MM2 IN (20020,20034,20230:20239,20330:20333,20400:20409,20530:20539,20600:20609) OR CG IN (18068,18301,18305) THEN GOTO DRO; /* NONE: 1996-1997, LUMINA, METRO, 3500 HD PICKUP, TRACKER, ASTROVAN, MALIBU CG 18068, BLAZER */ IF MM2 IN (20024,20025,20026) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN+TORSO: TRAVERSE, CRUZE, VOLT */ IF MM2=20002 THEN DO; IF 2000 LE MY LE 2005 THEN DO; IF V7='5' THEN COMBO=.75; END; ELSE IF 2006 LE MY LE 2008 THEN DO; IF V7='8' THEN CURTAIN=1; END; ELSE IF MY GE 2009 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* IMPALA */ IF MM2=20004 THEN DO; IF MY=2005 AND V7='4' THEN COMBO=1; ELSE IF 2006 LE MY LE 2009 AND V7='6' THEN COMBO=1; ELSE IF MY GE 2010 THEN COMBO=1; GOTO DRO; END; /* CORVETTE */ IF MM2=20009 THEN DO; IF MY GE 2010 AND BOD2=1 THEN COMBO=1; ELSE IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* CAMARO */ 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 2006 LE MY LE 2007 AND V7='8' THEN CURTAIN=1; ELSE IF 2008 LE MY LE 2010 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; ELSE IF MY=2008 THEN CURTAIN=.17; ELSE IF MY GE 2009 THEN CURTAIN=1; GOTO DRO; END; /* HHR */ IF MM2=20032 THEN DO; IF MY GE 1998 AND 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 AND CG=18078 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 AND V7='3' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY IN (2007,2008) THEN DO; CURTAIN=1; IF V7='7' THEN TORSO=1; END; GOTO DRO; END; /* MALIBU CG 18078 */ IF MM2=20037 AND CG=18079 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 AND V7='3' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY=2007 THEN DO; CURTAIN=1; IF V7='7' THEN TORSO=1; END; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* MALIBU CG 18079 */ IF MM2=20038 THEN DO; IF MY=2003 THEN COMBO=1; ELSE TORSO=1; GOTO DRO; END; /* SSR */ IF MM2=20039 THEN DO; IF 2006 LE MY LE 2007 AND V7='6' THEN COMBO=1; ELSE IF MY GE 2008 THEN COMBO=1; GOTO DRO; END; /* AVEO */ IF MM2 IN (20200:20209,20500:20509) THEN DO; IF MY IN (2004,2005) THEN CURTAIN=.27; ELSE IF MY=2006 THEN CURTAIN=.07; ELSE IF MY=2007 THEN CURTAIN=.21; ELSE IF MY IN (2008,2009) THEN CURTAIN=.11; ELSE IF MY GE 2010 THEN CURTAIN=1; GOTO DRO; END; /* S/T, COLORADO */ IF MM2 IN (20210:20219,20510:20519) THEN DO; IF MY=2007 THEN CURTAIN=.10; ELSE IF MY=2008 THEN CURTAIN=.11; ELSE IF MY=2009 THEN CURTAIN=.08; ELSE IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* SILVERADO 1500 */ IF MM2 IN (20220:20229,20520:20529) THEN DO; IF MY GE 2011 THEN DO; IF V7 IN ('D','E') THEN TORSO=1; IF V7 IN ('E','F','H') THEN CURTAIN=1; END; GOTO DRO; END; /* SILVERADO 2500 */ 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; ELSE IF 2008 LE MY LE 2009 THEN CURTAIN=1; GOTO DRO; END; /* TRAILBLAZER,TRAILBLAZER EXT */ IF MM2 IN (20312,20313) THEN DO; IF 2000 LE 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 2007 LE MY LE 2009 THEN CURTAIN=1; ELSE IF MY GE 2010 THEN DO; CURTAIN=1; IF V6 NE 'D' THEN TORSO=1; END; GOTO DRO; END; /* TAHOE (2010- hybrid is curtain only) */ IF MM2 IN (20322,20323,20326,20327,20822:20827) THEN DO; IF 2000 LE 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; ELSE IF 2008 LE MY LE 2009 THEN CURTAIN=1; ELSE IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* SUBURBAN */ IF MM2 IN (20338,20339) THEN DO; IF MY=2005 THEN CURTAIN=.38; ELSE IF MY=2006 THEN CURTAIN=.25; ELSE IF MY=2007 THEN CURTAIN=.21; ELSE IF MY=2008 THEN CURTAIN=.29; ELSE IF MY=2009 THEN CURTAIN=1; ELSE IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; END; 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; ELSE IF 2008 LE MY LE 2009 THEN CURTAIN=1; ELSE IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* AVALANCHE */ IF MM2 IN (20410:20439,20610:20639) THEN DO; IF MY=2008 THEN CURTAIN=.16; ELSE IF MY=2009 THEN CURTAIN=.17; ELSE IF MY=2010 AND V7 IN ('D','F') THEN CURTAIN=1; ELSE IF MY GE 2011 AND V7 IN ('F','H') THEN CURTAIN=1; GOTO DRO; END; /* FULL-SIZE VAN */ IF MM2 IN (20452,20456,20457,20652,20654,20656) AND CG IN (18408,18409) THEN DO; IF 1998 LE MY LE 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,20652,20654,20656) 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; ELSE IF MY=2008 THEN COMBO=.37; GOTO DRO; END; /* UPLANDER */ GOTO DRO; OLDS: IF MY LE 1997 OR MM2 IN (21021,21023) THEN GOTO DRO; /* NONE: 1996-1997, ALERO, INTRIGUE */ IF MM2=21022 THEN DO; IF MY GE 2001 THEN 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 1998 LE MY LE 2000 THEN TORSO=1; ELSE DO; COMBO=.75; TORSO=.25; END; GOTO DRO; END; /* SILHOUETTE */ GOTO DRO; PONTIAC: IF MY LE 1997 OR MM2 IN (22008,22009,22018,22023) THEN GOTO DRO; /* NONE: 1996-1997, GTO, FIREBIRD, GRAND AM, SOLSTICE */ IF MM2=22002 THEN DO; IF 2000 LE MY LE 2002 THEN TORSO=1; ELSE IF MY GE 2003 AND 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 MY=2007 AND V7='8' THEN CURTAIN=1; ELSE IF MY GE 2008 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 2006 LE MY LE 2008 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 IF MY IN (2006,2007) THEN DO; IF V7 IN ('7','8') THEN CURTAIN=1; IF V7 IN ('6','7') THEN TORSO=1; END; ELSE IF 2008 LE MY LE 2009 AND BOD2=1 THEN TORSO=1; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* G6 */ IF MM2=22024 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* G8 */ IF MM2=22025 THEN DO; COMBO=1; GOTO DRO; END; /* G3 */ 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 2006 LE MY LE 2008 AND V7='7' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF 2009 LE MY LE 2010 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* VIBE */ IF MM2 IN (22338,22339) THEN DO; IF MY IN (2006,2007) THEN CURTAIN=.23; ELSE IF MY=2008 THEN CURTAIN=.18; ELSE IF MY GE 2009 THEN CURTAIN=1; 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 (22442,22446,22452,22456,22457,22642:22657) AND CG IN (18408,18409) THEN DO; IF 1998 LE MY LE 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; /* TRANS SPORT, MONTANA */ IF MM2 IN (22452,22456,22457,22652:22657) 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 MY LE 1999 OR MM2 IN (23230:23239,23400:23409,23530:23539,23600:23609) OR CG IN (18301,18305) THEN GOTO DRO; /* NONE: 1996-1999, 3500 PICKUPS, SAFARI, JIMMY */ IF MM2 IN (23008,23338,23339) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN+TORSO: ACADIA, TERRAIN */ IF MM2 IN (23200:23209,23500:23509) THEN DO; IF MY=2004 THEN CURTAIN=.12; ELSE IF MY=2005 THEN CURTAIN=.08; ELSE IF MY IN (2006,2007) THEN CURTAIN=.05; ELSE IF MY=2008 THEN CURTAIN=.08; ELSE IF MY=2009 THEN CURTAIN=.13; ELSE IF MY GE 2010 THEN CURTAIN=1; GOTO DRO; END; /* SONOMA, CANYON */ IF MM2 IN (23210:23219,23510:23519) THEN DO; IF MY=2008 THEN CURTAIN=.13; ELSE IF MY=2009 THEN CURTAIN=.10; ELSE IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* SIERRA 1500 */ IF MM2 IN (23220:23229,23520:23529) THEN DO; IF MY GE 2011 THEN DO; IF V7 IN ('D','E') THEN TORSO=1; IF V7 IN ('E','F','H') THEN CURTAIN=1; END; GOTO DRO; END; /* SIERRA 2500 */ 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; ELSE IF MY GE 2008 THEN CURTAIN=1; GOTO DRO; END; /* ENVOY, ENVOY XL, ENVOY XUV */ IF MM2 IN (23312,23313,23318) THEN DO; IF 2000 LE 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 2007 LE MY LE 2009 THEN CURTAIN=1; ELSE IF MY GE 2010 THEN DO; CURTAIN=1; IF V6 NE 'F' AND V6 NE 'G' THEN TORSO=1; END; GOTO DRO; END; /* YUKON (2010- hybrid is curtain only), DENALI */ IF MM2 IN (23322,23323,23326,23327,23328,23822:23827) THEN DO; IF 2000 LE 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; ELSE IF 2008 LE MY LE 2009 THEN CURTAIN=1; ELSE IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* YUKON XL, DENALI XL */ IF MM2 IN (23410:23439,23610:23639) THEN DO; IF MY=2008 THEN CURTAIN=.16; ELSE IF MY=2009 THEN CURTAIN=.17; ELSE IF MY=2010 AND V7 IN ('D','F') THEN CURTAIN=1; ELSE IF MY GE 2011 AND V7 IN ('F','H') THEN CURTAIN=1; GOTO DRO; END; /* FULL-SIZE VAN */ GOTO DRO; SATURN: IF 1996 LE MY LE 2000 OR MM2=24008 THEN GOTO DRO; /* NONE: 1996-2000, SKY */ IF MM2 IN (24009,24010,24011) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN+TORSO: AURA, OUTLOOK, ASTRA */ 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 (24362,24363,24366) 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; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; END; 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 MY LE 1997 OR MM2 IN (30412,30612) THEN GOTO DRO; /* NONE: 1996-1997, EUROVAN */ IF MM2 IN (30036,30048,30302,30303,30313) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN + TORSO: RABBIT, PHAETON, TIGUAN, TOUAREG */ IF MM2 IN (30040,30042) THEN DO; IF MY=1998 AND V6='6' THEN TORSO=1; ELSE IF MY=1999 AND CG=30006 AND V6 IN ('2','6') THEN TORSO=1; ELSE IF 1999 LE MY LE 2000 THEN TORSO=1; ELSE IF MY GE 2001 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* JETTA, GOLF */ IF MM2=30043 THEN DO; IF MY=1998 AND V6='6' THEN TORSO=1; ELSE IF MY=1999 AND V6 IN ('2','6') THEN TORSO=1; ELSE IF MY GE 2000 THEN TORSO=1; GOTO DRO; END; /* CABRIO */ IF MM2=30046 THEN DO; IF 1998 LE MY LE 2000 THEN TORSO=1; ELSE IF MY GE 2001 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* PASSAT */ IF MM2=30047 THEN DO; IF 1998 LE MY LE 2003 THEN TORSO=1; ELSE IF MY GE 2004 THEN COMBO=1; GOTO DRO; END; /* BEETLE */ IF MM2=30051 THEN DO; COMBO=1; GOTO DRO; END; /* EOS */ IF MM2=30406 THEN DO; IF 2009 LE MY LE 2010 THEN CURTAIN=1; ELSE IF MY GE 2011 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* ROUTAN */ GOTO DRO; AUDI: IF MY=1996 THEN GOTO DRO; /* NONE IN 1996 */ ELSE IF MY GE 2000 AND BOD2=1 THEN COMBO=1; /* CONVERTIBLES */ ELSE IF MM2 IN (32042,32043) THEN DO; IF 1998 LE MY LE 1999 THEN TORSO=1; ELSE IF MY=2000 AND V6 IN ('4','5','6') THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY=2000 THEN TORSO=1; ELSE IF MY GE 2001 THEN DO; CURTAIN=1; TORSO=1; END; END; /* A4,A6 */ ELSE IF MM2 IN (32044,32046) THEN DO; IF 1997 LE MY LE 1999 THEN TORSO=1; ELSE IF MY GE 2000 THEN DO; CURTAIN=1; TORSO=1; END; END; /* A8,S8 */ ELSE IF MM2=32045 THEN DO; IF MY GE 2000 THEN COMBO=1; END; /* TT */ ELSE IF MM2=32050 THEN COMBO=1; /* R8 */ ELSE IF MY GE 2000 THEN DO; CURTAIN=1; TORSO=1; END; /* ALL OTHERS 2000- */ GOTO DRO; MINI: IF BOD2=1 THEN COMBO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; /* MINI-COOPER */ BMW: IF MY=1996 THEN GOTO DRO; /* NONE IN 1996 */ ELSE IF MY GE 2011 THEN DO; IF BOD2=1 THEN COMBO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* STARTING 2011 ALL CV ARE COMBO, ALL OTHERS CURTAIN+TORSO */ ELSE IF MM2 IN (34035,34037) THEN DO; IF MY=1997 THEN TORSO=1; ELSE IF MY GE 1998 THEN DO; CURTAIN=1; TORSO=1; END; END; /* 500,700 */ ELSE IF MY=1997 THEN GOTO DRO; /* NOTHING EXCEPT 500,700 IN 1997 */ ELSE IF MM2 IN (34034,34036) AND BOD2=1 THEN DO; IF MY=2010 AND MM2=34034 THEN COMBO=1; ELSE TORSO=1; END; /* 300,600 CONVERTIBLE */ ELSE IF MM2 IN (34034,34036) AND BOD2=2 THEN DO; IF 1998 LE MY LE 1999 THEN TORSO=1; ELSE IF MY GE 2000 THEN DO; CURTAIN=1; TORSO=1; END; END; /* 300,600 COUPE */ ELSE IF MM2 IN (34039,34040,34042) OR (MM2=34034 AND BOD2=3) THEN DO; IF MY=1998 THEN TORSO=0; /* CARS.COM SAYS OPTIONAL BUT WARD'S SAYS ZERO; PROBABLY FEW AT THE MOST */ ELSE IF 1999 LE MY LE 2009 THEN TORSO=1; ELSE IF MY=2010 THEN COMBO=1; END; /* Z3,Z4,Z8,318ti */ ELSE IF MM2=34034 AND BOD2 IN (4,6) THEN DO; IF MY=1998 THEN TORSO=1; ELSE IF MY GE 1999 THEN DO; CURTAIN=1; TORSO=1; END; END; /* 300 4DR */ ELSE IF 2000 LE MY LE 2010 THEN DO; CURTAIN=1; TORSO=1; END; /* ALL OTHERS 2000-2010 CURTAIN+TORSO */ GOTO DRO; NISSAN: IF MY LE 1997 OR MM2 IN (35032,35034,35240:35249) THEN GOTO DRO; /* NONE: 1996-1997, 200/240SX, 300ZX, PRE-FRONTIER PICKUP */ IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* STARTING 2010 ALL ARE CURTAIN + TORSO */ IF MM2 IN (35049,35050,35051,35052) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN+TORSO: MURANO, VERSA, ROGUE, CUBE */ IF MM2=35039 THEN DO; IF 1998 LE MY LE 1999 AND V8='A' THEN TORSO=1; ELSE IF 2000 LE 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 2000 LE MY LE 2006 AND V8='A' THEN COMBO=1; ELSE IF MY GE 2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* SENTRA */ IF MM2=35047 THEN DO; IF 2000 LE 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 GE 2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* ALTIMA */ IF MM2=35048 THEN DO; IF 2003 LE MY LE 2007 THEN DO; IF V8='A' THEN TORSO=1; ELSE IF V8='E' THEN DO; CURTAIN=1; TORSO=1; END; END; ELSE IF MY=2008 THEN DO; IF BOD2=1 THEN TORSO=1; ELSE IF V8='E' THEN DO; CURTAIN=1; TORSO=1; END; END; ELSE IF MY GE 2009 THEN DO; IF BOD2=1 THEN TORSO=1; ELSE DO; CURTAIN=1; TORSO=1; END; END; GOTO DRO; END; /* 350Z */ IF MM2=35053 THEN DO; IF V8='F' THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* GT-R */ 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; ELSE IF MY=2008 THEN DO; CURTAIN=.06; TORSO=.06; END; ELSE IF MY=2009 THEN DO; CURTAIN=.04; TORSO=.04; 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; ELSE IF MY=2008 THEN DO; CURTAIN=.03; TORSO=.03; END; ELSE IF MY=2009 THEN DO; CURTAIN=.05; TORSO=.05; END; GOTO DRO; END; /* TITAN */ IF MM2 IN (35302,35303) THEN DO; IF MY=1999 THEN COMBO=0; /* CARS.COM SAYS OPTIONAL BUT WARD'S SAYS ZERO; PROBABLY FEW AT THE MOST */ ELSE 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=.21; TORSO=.21; END; ELSE IF MY=2008 THEN DO; CURTAIN=.25; TORSO=.25; END; ELSE IF MY GE 2009 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; ELSE IF MY=2008 THEN DO; CURTAIN=1; TORSO=.52; END; ELSE IF MY=2009 THEN DO; CURTAIN=1; TORSO=.56; 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; ELSE IF MY=2008 THEN DO; CURTAIN=.10; TORSO=.10; END; ELSE IF MY=2009 THEN DO; CURTAIN=1; TORSO=1; 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; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* QUEST */ GOTO DRO; HONDA: IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* STARTING 2010 ALL ARE CURTAIN + TORSO */ IF MY LE 1999 OR MM2 IN (37030,37033,37035,37037) OR CG=38308 THEN GOTO DRO; /* NONE: 1996-1999, Del SOL, PRELUDE, S2000, INSIGHT, PASSPORT */ IF MM2 IN (37039,37205) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN+TORSO: FIT, RIDGELINE */ 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 (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 GE 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: 1996-2002, 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; ELSE IF MY=2008 THEN CURTAIN=.20; 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; ELSE IF MY=2008 THEN CURTAIN=1; GOTO DRO; END; /* ASCENDER */ GOTO DRO; JAGUAR: IF MY LE 1997 THEN GOTO DRO; /* NONE IN 1996-1997 */ IF MM2 IN (39036,39037) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN+TORSO: X-TYPE, XF */ IF MM2 IN (39031,39035) THEN DO; IF MY GE 2001 THEN COMBO=1; GOTO DRO; END; /* XK */ IF MM2=39032 THEN DO; IF 1998 LE MY LE 2003 THEN TORSO=1; ELSE IF MY GE 2004 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* XJ */ IF MM2=39034 THEN DO; IF 2000 LE MY LE 2002 THEN COMBO=1; ELSE IF 2003 LE MY LE 2008 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* S-TYPE */ GOTO DRO; MAZDA: IF MY LE 1999 OR 41200 LE MM2 LE 41209 THEN GOTO DRO; /* NONE: 1996-1999, PICKUPS */ IF MM2 IN (41049,41053,41054,41055) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* RX-8, CX-7, CX-9, 2 */ 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 2003 LE MY LE 2005 AND V4='H' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF 2006 LE MY LE 2007 THEN DO; IF V4='G' THEN CURTAIN=1; ELSE IF V4='H' THEN DO; CURTAIN=1; TORSO=1; END; END; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* 6 */ IF MM2=41051 THEN DO; V46=V4||V5||V6; IF MY LE 2007 THEN DO; IF V46='BK3' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF V46='BK2' THEN CURTAIN=1; END; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* 3 */ IF MM2=41052 THEN DO; IF MY LE 2007 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; END; ELSE IF 2008 LE MY LE 2010 THEN DO; CURTAIN=1; TORSO=1; END; 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; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* TRIBUTE */ IF MM2=41402 THEN DO; IF MY=2000 THEN COMBO=0; /* CARS.COM SAYS OPTIONAL BUT WARD'S SAYS ZERO; PROBABLY FEW AT THE MOST */ ELSE 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 MY=1996 THEN GOTO DRO; /* NONE IN 1996 */ IF MM2 IN (42051,42052,42323,42333,42336,42337) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN + TORSO: CLS, SLS, R, GL, GLK */ IF MM2 IN (42042,42046) THEN DO; IF 1998 LE MY LE 2000 THEN TORSO=1; ELSE IF MY GE 2001 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* C,CL */ IF MM2=42043 THEN DO; IF 1997 LE MY LE 1999 THEN TORSO=1; ELSE IF MY GE 2000 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* S */ IF MM2=42044 THEN DO; IF 1997 LE MY LE 2002 THEN TORSO=1; ELSE IF MY GE 2003 THEN COMBO=1; GOTO DRO; END; /* SL */ IF MM2=42045 THEN DO; IF 1998 LE MY LE 2004 THEN TORSO=1; ELSE IF MY GE 2005 THEN COMBO=1; GOTO DRO; END; /* SLK */ IF MM2=42047 THEN DO; IF 1998 LE MY LE 2002 THEN TORSO=1; ELSE IF MY GE 2003 AND BOD2=2 THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY=2003 AND BOD2=1 THEN TORSO=1; ELSE IF MY GE 2004 AND BOD2=1 THEN COMBO=1; GOTO DRO; END; /* CLK */ IF MM2=42048 THEN DO; IF 1997 LE MY LE 1998 THEN TORSO=1; ELSE IF MY GE 1999 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* E */ IF MM2=42049 THEN DO; COMBO=1; GOTO DRO; END; /* SLR MacLAREN */ IF MM2=42313 THEN DO; CURTAIN=1; GOTO DRO; END; /* G */ IF MM2 IN (42303,42307) THEN DO; IF 1998 LE MY LE 2001 THEN TORSO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* ML */ CURTAIN=1; TORSO=1; GOTO DRO; /* DEFAULT: TORSO + CURTAIN */ PORSCHE: IF MY LE 1997 THEN GOTO DRO; /* NONE IN 1996-1997 */ IF MY GE 2005 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* STARTING 2005 ALL ARE CURTAIN + TORSO */ IF MM2 IN (45031,45041) THEN DO; IF MY IN (2000,2001) THEN COMBO=1; ELSE IF MY IN (1999,2002,2003,2004) THEN TORSO=1; ELSE IF MY GE 2005 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* 911, CAYMAN */ IF MM2=45040 THEN DO; IF MY IN (2000,2001) THEN COMBO=1; ELSE IF MY IN (1998,1999,2002,2003,2004) THEN TORSO=1; ELSE IF MY GE 2005 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* BOXSTER */ IF MM2=45313 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CAYENNE */ GOTO DRO; SAAB: IF MY LE 1998 THEN GOTO DRO; /* NONE IN 1996-1998 */ 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=47036 THEN DO; IF CG=47007 THEN COMBO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* 9-5 */ IF MM2=47037 THEN DO; COMBO=1; GOTO DRO; END; /* 9-2X */ IF MM2=47038 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* 9-4X */ IF MM2=47308 THEN DO; CURTAIN=1; GOTO DRO; END; /* 9-7X */ GOTO DRO; SUBARU: IF MY LE 1999 OR MM2=48044 THEN GOTO DRO; /* NONE: 1996-1999, BAJA */ IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* STARTING 2010 ALL ARE CURTAIN + TORSO */ IF MM2=48034 THEN DO; IF 2000 LE 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 IN (2006,2007) THEN COMBO=1; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; END; 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 2003 LE MY LE 2008 THEN COMBO=1; ELSE IF MY GE 2009 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* FORESTER */ IF MM2=48313 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* TRIBECA */ GOTO DRO; TOYOTA: IF MY LE 1997 OR MM2 IN (49034,49038,49041,49042,49250:49259,49422,49423) THEN GOTO DRO; /* NONE: 1996-1997, SUPRA, TERCEL, MR2, PASEO, T100 PICKUP, PREVIA */ IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* STARTING 2010 ALL ARE CURTAIN + TORSO */ IF MM2 IN (49052,49053) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN+TORSO: SCION xD, VENZA */ IF MM2 IN (49032,49047) THEN DO; IF 1998 LE MY LE 2004 AND V7='8' THEN TORSO=1; ELSE IF 2005 LE MY LE 2008 AND V7='0' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY GE 2009 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* COROLLA, MATRIX */ IF MM2 IN (49033,49045) THEN DO; IF MY GE 2000 AND V7='8' THEN TORSO=1; GOTO DRO; END; /* CELICA, ECHO */ IF MM2=49040 THEN DO; IF 1998 LE 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 GE 2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* CAMRY */ IF MM2=49043 THEN DO; IF 1998 LE 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 1999 LE 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 GE 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=49049 THEN DO; IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* SCION xB */ IF MM2=49050 THEN DO; IF MY LE 2007 AND V7='6' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* SCION tC */ IF MM2=49051 THEN DO; IF MY LE 2008 AND V7='0' THEN DO; CURTAIN=1; TORSO=1; END; ELSE IF MY GE 2009 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 IN (2006:2008) THEN DO; CURTAIN=.05; TORSO=.05; END; ELSE IF MY GE 2009 THEN DO; CURTAIN=1; TORSO=1; 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; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; 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; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; 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; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; 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; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; 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 GE 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; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* SEQUOIA */ IF MM2 IN (49362,49363) THEN DO; IF MY=2007 THEN DO; CURTAIN=.44; TORSO=.44; END; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; END; 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; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* SIENNA */ GOTO DRO; VOLVO: IF MY LE 1998 THEN DO; TORSO=1; GOTO DRO; END; /* 1996-1998 ALL TORSO */ IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* STARTING 2010 ALL ARE CURTAIN + TORSO */ IF MM2 IN (51045,51047,51048,51049,51312,51313) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN + TORSO: 80, 60, 50, C30, XC90 */ IF MM2=51043 THEN DO; IF MY=1999 AND BOD2 IN (1,2) THEN TORSO=1; ELSE IF MY=1999 THEN COMBO=1; ELSE IF MY=2000 THEN COMBO=1; ELSE IF 2001 LE MY LE 2004 AND BOD2 IN (1,2) THEN COMBO=1; /* C70 */ ELSE IF MY GE 2001 THEN 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 */ CURTAIN=1; TORSO=1; GOTO DRO; /* DEFAULT: CURTAIN + TORSO */ MITS: IF MY LE 1998 OR MM2 IN (52035,52040,52336,52337) THEN GOTO DRO; /* NONE: 1996-1998, MIRAGE, DIAMANTE, MONTERO SPORT */ IF MM2=52034 THEN DO; IF MY=1999 THEN TORSO=.22; ELSE 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 GE 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 2005 LE MY LE 2007 THEN TORSO=.10; ELSE IF MY GE 2008 THEN DO; CURTAIN=1; TORSO=1; END; 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 GE 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 GE 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 MY LE 2004 OR MM2 IN (53031,53032,53330:53333) THEN GOTO DRO; /* NONE: 1996-2004, SWIFT, ESTEEM, VITARA */ IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* STARTING 2010 ALL ARE CURTAIN + TORSO */ IF MM2 IN (53040,53202:53205) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN+TORSO: SX4, EQUATOR */ 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 IN (53336,53337) THEN DO; IF MY GE 2006 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* GRAND VITARA */ IF MM2 IN (53338,53339) THEN DO; IF MY GE 2007 THEN CURTAIN=1; GOTO DRO; END; /* XL-7 */ GOTO DRO; ACURA: IF MY LE 1998 OR MM2 IN (54031,54033) THEN GOTO DRO; /* NONE: 1996-1998, INTEGRA, NSX */ IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* STARTING 2010 ALL ARE CURTAIN + TORSO */ IF MM2 IN (54037,54038) THEN DO; IF MY GE 2000 THEN TORSO=1; GOTO DRO; END; /* 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 2000 LE MY LE 2003 THEN TORSO=1; ELSE IF MY GE 2004 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* TL, MDX */ IF MM2=54036 THEN DO; IF 1999 LE MY LE 2004 THEN TORSO=1; ELSE IF MY GE 2005 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* RL */ GOTO DRO; HYUNDAI: IF MY LE 1998 THEN GOTO DRO; /* NONE IN 1996-1998 */ IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* STARTING 2010 ALL ARE CURTAIN + TORSO */ IF MM2 IN (55039,55041,55322:55402) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN + TORSO: AZERA, GENESIS, TUCSON, VERACRUZ, ENTOURAGE */ IF MM2=55033 THEN DO; IF 1999 LE MY LE 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 GE 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 GE 2007 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* SANTA FE */ GOTO DRO; INFINITI: IF MY=1996 THEN GOTO DRO; /* NONE IN 1996 */ IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* STARTING 2010 ALL ARE CURTAIN + TORSO */ IF MM2 IN (58037,58038,58039,58040,58312,58313) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN + TORSO: G35, M45, EX35, QX56 */ IF MM2=58032 THEN DO; IF MY=1997 AND V8='A' THEN TORSO=1; ELSE IF MY=1998 THEN TORSO=1; ELSE IF 1999 LE MY LE 2001 THEN COMBO=1; ELSE IF MY GE 2002 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* Q45 */ IF MM2=58033 THEN DO; IF 1999 LE MY LE 2002 THEN COMBO=1; GOTO DRO; END; /* G20 */ IF MM2 IN (58035,58036) THEN DO; IF 1998 LE MY LE 1999 THEN TORSO=1; ELSE IF 2000 LE MY LE 2004 THEN COMBO=1; GOTO DRO; END; /* I30,I35 */ IF MM2 IN (58302,58303) THEN DO; IF MY GE 1999 THEN COMBO=1; GOTO DRO; END; /* QX4 */ GOTO DRO; LEXUS: IF MY=1996 THEN GOTO DRO; /* NONE IN 1996 */ ELSE IF MY GE 2010 THEN DO; IF MM2=59035 AND BOD2=1 THEN COMBO=1; ELSE DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* STARTING 2010 IS-250 CV IS COMBO, ALL OTHERS CURTAIN+TORSO */ IF MM2=59031 THEN DO; IF 1998 LE MY LE 2001 THEN TORSO=1; ELSE IF MY GE 2002 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* ES */ IF MM2=59032 THEN DO; IF 1997 LE MY LE 2000 THEN TORSO=1; ELSE IF MY GE 2001 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* LS */ IF MM2 IN (59033,59036) THEN DO; IF MY GE 2002 THEN TORSO=1; GOTO DRO; END; /* SC */ IF MM2=59034 THEN DO; IF 1998 LE MY LE 2000 THEN TORSO=1; ELSE IF MY GE 2001 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* GS */ IF MM2=59035 THEN DO; IF MY=2001 THEN TORSO=1; ELSE IF MY GE 2002 THEN 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 MY LE 1999 OR MM2 IN (62307,62341,62343) THEN GOTO DRO; /* NONE: 1996-1999, DISCOVERY, FREELANDER (WARD's SAYS ZERO FOR RANGE ROVER IN 1999) */ IF MY GE 2010 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* STARTING 2010 ALL ARE CURTAIN + TORSO */ IF MM2 IN (62317,62353,62357) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN+TORSO: LR2, LR3, RANGE ROVER SPORT */ IF MM2=62313 THEN DO; IF 2000 LE MY LE 2002 THEN TORSO=1; ELSE IF MY GE 2003 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; END; /* RANGE ROVER */ GOTO DRO; KIA: IF MY LE 2000 OR MM2=63031 THEN GOTO DRO; /* NONE: 1996-2000, SEPHIA */ IF MY GE 2011 THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* STARTING 2011 ALL ARE CURTAIN + TORSO */ IF MM2 IN (63035,63037,63038,63316,63317) THEN DO; CURTAIN=1; TORSO=1; GOTO DRO; END; /* CURTAIN+TORSO: AMANTI, SOUL, FORTE BORREGO */ 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 MM2=63036 AND MY LE 2010 THEN DO; CURTAIN=1; GOTO DRO; END; /* RONDO */ 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 */ SMART: IF MY LE 2010 THEN COMBO=1; IF MY GE 2011 AND BOD2=1 THEN COMBO=1; ELSE IF MY GE 2011 THEN DO; CURTAIN=1; TORSO=1; END; GOTO DRO; /* SMART FORTWO */ /* ----------------------------------------- */ /* WHAT CURTAINS ALSO DEPLOY IN ROLLOVERS? */ /* ----------------------------------------- */ DRO: ROLLCURT=0; IF CURTAIN=. THEN ROLLCURT=.; ELSE IF CURTAIN GT 0 THEN DO; IF MM2 IN (2001,2316,2317,2352,2353,3307,3313,3317,6312,6313,7342,7343, 12021,12022,12024,12210:12239,12300:12309,12312:12319,12342:12349, 12400,12402,12510:12539,13014,13015,13016,13302:13309,13312:13319,14020, 14302:14309,14342:14349,14402,18019,18024,18302:18309,19312,19313, 20009,20024,20025,20026,20210:20219, 20302:20309,20312,20313,20322:20327,20342:20349,20410:20439,20510:20519,20610:20639, 23008,23210:23219,23302:23309,23312:23319,23322:23329,23338,23339,24010,23410:23439,23510:23519,23610:23639, 30302,30303,32303,32313,34044,35051,35312,35313, 37205,37302,37303,37322,37323,37332,37333,37402, 38302:38309,41053,41054,41342:41349,42051,42336,42337,45042,47036,47038,47308,48303,48313, 49210:49219,49313,51312,51313,52047,52312,52313,53202:53205,53342,53343, 54040,54303,54323,58312,58313,59313,62317,62353,62357,63316,63317) 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,24366,42303:42309,42323,49322,49323) THEN ROLLCURT=CURTAIN; ELSE IF MY GE 2006 AND MM2=51043 AND BOD2=1 THEN ROLLCURT=CURTAIN; ELSE IF MY GE 2007 AND MM2 IN (20336,20337,22336,22337,49200:49209) THEN ROLLCURT=CURTAIN; ELSE IF MY GE 2008 AND MM2 IN (2342,2343,6406,7406,12017,14017,30313,30406, 34313,42047,42333,45313) THEN ROLLCURT=CURTAIN; ELSE IF MY GE 2008 AND MM2=47035 THEN ROLLCURT=.; /* SAAB 9-3: CONFLICTING INFORMATION */ ELSE IF MY GE 2009 AND MM2 IN (20023,49362,49363,53336,53337) THEN ROLLCURT=CURTAIN; ELSE IF MY GE 2010 AND MM2 IN (7027,12025,18022,19018,48045,51047,55322,55323) THEN ROLLCURT=CURTAIN; /* JOURNEY, FLEX, LaCROSSE, CTS, OUTBACK, VOLVO 60 SERIES, TUCSON */ ELSE IF MY GE 2010 AND CG IN (34033,37309) THEN ROLLCURT=CURTAIN; /* BMW 500 GT, HONDA CROSSTOUR */ ELSE IF MY GE 2011 AND MM2 IN (32044,34037,34303,55302,55303,62313,63302,63303,63312,63313) THEN ROLLCURT=CURTAIN; /* AUDI A8; BMW 700 & X3; SANTA FE; RANGE ROVER; SPORTAGE; SORENTO */ END; DROP V48 V47 V46 V13 V45 V57 V67 V78; RUN; PROC SORT DATA=CHUCK1 OUT=FARS_A11.FARS_A11; BY CY ST_CASE VEH_NO; RUN;