OPTION NOCENTER NOFMTERR OBS=5000000 LS=160 PAGESIZE=89; /* PROGRAM NAME: 08CarPassive2011.sas UPDATED: 04/03/2013 */ /* THIS PROGRAM ASSIGNS RESTRAINT TYPE FOR MY 1981-2011 PASSENGER CARS */ /* EDIT NEEDED BECAUSE MM2 OF CHRYSLER NEW YORKER C CHANGED FROM 6018 TO 6014 ON 10/22/2012 */ DATA CAR4(DROP=VINPASS NPASS NPASS2 NPASS3 NPASS4); SET CAR3; IF MY LE 1984 THEN DO; IF MM2=49035 THEN PASSIVE=303; ELSE IF MM2=30036 AND V6='9' THEN PASSIVE=707; ELSE PASSIVE=0; RETURN; END; IF MY GE 1997 THEN DO; PASSIVE=2; GOTO ONOFF; END; IF MM2=99999 THEN DO; PASSIVE=9999; RETURN; END; VINPASS=8; NPASS=10; NPASS2=10; NPASS3=10; NPASS4=10; IF 1985 LE MY LE 1986 THEN DO; IF MAK2=42 THEN GOTO MEBE; IF MM2=49035 THEN VINPASS=303; ELSE VINPASS=0; GOTO C; END; IF 18 LE MAK2 LE 24 THEN GOTO GM; IF MAK2 IN (12,13,14,56) THEN GOTO FORD; IF (MM2=10040 AND MY=1988) OR MAK2=46 THEN GOTO RENAULT; IF 6 LE MAK2 LE 10 THEN GOTO CHRYS; IF MAK2=49 THEN GOTO TOYOTA; IF MAK2=37 THEN GOTO HONDA; IF MAK2=35 THEN GOTO NISSAN; IF MAK2=1 THEN DO; VINPASS=0; GOTO C; END; IF MAK2=30 THEN GOTO VW; IF MAK2=32 THEN GOTO AUDI; IF MAK2=34 THEN GOTO BMW; IF MAK2=38 THEN GOTO ISUZU; IF MAK2=39 THEN GOTO JAGUAR; IF MAK2=41 THEN GOTO MAZDA; IF MAK2=42 THEN GOTO MEBE; IF MAK2=44 THEN GOTO PEUGEOT; IF MAK2=45 THEN GOTO PORSCHE; IF MAK2=47 THEN GOTO SAAB; IF MAK2=48 THEN GOTO SUBARU; 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=57 THEN GOTO YUGO; IF MAK2=58 THEN GOTO INFI; IF MAK2=59 THEN GOTO LEXUS; IF MAK2=60 THEN GOTO DAIHATSU; IF MAK2=61 THEN GOTO STERLING; IF MAK2=63 THEN GOTO KIA; GOTO C; /* THE FOLLOWING SECTION DECODES THE VIN FOR OCCUPANT PROTECTION DEVICE AVAILABLE. */ CHRYS: V4=TRANSLATE(V4,'12B','IZ8'); IF 1994 LE MY LE 1996 AND 52001 LE CG LE 52099 THEN GOTO CHIMP94; IF 1994 LE MY LE 1996 THEN GOTO CHRYS94; IF V4='B' AND MM2=7013 THEN VINPASS=505; ELSE IF V4='A' OR V4='X' OR (V4='B' AND MY=1993) THEN VINPASS=1; ELSE IF V4='Y' THEN VINPASS=1606; ELSE IF V4='B' OR V4='1' THEN VINPASS=0; ELSE IF MY LE 1989 AND V4='E' AND V3='4' THEN VINPASS=0; ELSE IF 1990 LE MY LE 1991 AND V4='E' AND CG=52005 THEN VINPASS=404; ELSE IF MY=1993 AND V4='E' THEN VINPASS=2; ELSE IF MY LE 1989 AND V4='F' AND V3='4' THEN VINPASS=0; ELSE IF 1990 LE MY LE 1991 AND CG=52008 THEN VINPASS=404; ELSE IF (V4='C' OR V4='2') AND (MM2=6016 OR MM2=7015) THEN VINPASS=606; ELSE IF (V4='C' OR V4='2') AND MM2=7013 THEN VINPASS=505; ELSE IF V4='C' OR V4='2' THEN VINPASS=404; GOTO NCHRYS; CHIMP94: IF V4='A' THEN VINPASS=2; ELSE IF V4='C' THEN VINPASS=404; ELSE IF V4='B' OR V4='X' THEN VINPASS=1; ELSE IF V4='E' THEN VINPASS=1004; GOTO NCHRYS; CHRYS94: IF V4='E' OR V4='H' THEN VINPASS=2; ELSE IF V4='B' AND MM2=7013 THEN VINPASS=505; ELSE IF V4='C' THEN VINPASS=404; ELSE IF V4='A' THEN VINPASS=1004; GOTO NCHRYS; FORD: V4=TRANSLATE(V4,'ZSGB','2568'); IF V4='B' AND MM2=12013 AND MY=1988 THEN VINPASS=9; ELSE IF V4='B' THEN VINPASS=0; ELSE IF V4='P' THEN VINPASS=303; ELSE IF V4='C' THEN VINPASS=1; ELSE IF V4='L' THEN VINPASS=2; ELSE IF V4='R' THEN VINPASS=1303; ELSE IF V4='S' THEN VINPASS=1313; ELSE IF MY GE 1994 AND V4='A' THEN VINPASS=1003; GOTO NFORD; GM: V7=TRANSLATE(V7,'2568','ZSGB'); IF V7='1' OR (V7='2' AND MY LE 1990) THEN VINPASS=0; ELSE IF V7='2' THEN VINPASS=2; ELSE IF V7='3' AND MM2=20032 AND MY=1994 THEN VINPASS=2; ELSE IF V7='3' THEN VINPASS=1; ELSE IF 1992 LE MY LE 1996 AND V7='5' THEN DO; IF 24001 LE MM2 LE 24003 THEN VINPASS=1404; ELSE VINPASS=1505; END; ELSE IF 1992 LE MY LE 1996 AND V7='6' THEN DO; IF 24001 LE MM2 LE 24003 THEN VINPASS=1414; ELSE VINPASS=1515; END; ELSE IF MY=1996 AND V7='7' THEN VINPASS=1015; ELSE IF V7='4' THEN DO; IF MM2=22031 THEN VINPASS=404; ELSE IF MM2=20032 THEN VINPASS=606; ELSE IF 24001 LE MM2 LE 24003 THEN VINPASS=404; ELSE VINPASS=505; END; GOTO NGM; VW: V6=TRANSLATE(V6,'2568','ZSGB'); IF V6='0' THEN VINPASS=0; ELSE IF V6='1' AND MY=1990 THEN VINPASS=606; ELSE IF V6='9' OR V6='1' THEN VINPASS=707; ELSE IF V6='2' THEN VINPASS=606; ELSE IF V6='4' THEN VINPASS=404; ELSE IF V6='5' THEN VINPASS=1; ELSE IF V6='8' THEN VINPASS=2; GOTO NVW; AUDI: V6=TRANSLATE(V6,'2568','ZSGB'); IF V6='0' THEN VINPASS=0; ELSE IF V6='9' OR V6='1' OR V6='2' OR V6='5' THEN VINPASS=1; ELSE IF V6='8' THEN VINPASS=2; GOTO NAUDI; BMW: V8=TRANSLATE(V8,'2568','ZSGB'); IF V8='0' THEN VINPASS=0; ELSE IF V8='1' THEN VINPASS=1; ELSE IF V8='2' THEN VINPASS=2; GOTO NBMW; NISSAN: V8=TRANSLATE(V8,'O1ZSGB','0I2568'); IF 1991 LE MY LE 1995 AND V8='H' THEN VINPASS=1505; ELSE IF 1992 LE MY LE 1995 AND V8='F' THEN VINPASS=1404; ELSE IF V8='S' OR V8='Y' OR V8='H' OR V8='1' THEN VINPASS=0; ELSE IF V8='B' OR V8='P' OR V8='J' THEN VINPASS=404; ELSE IF V8='A' THEN VINPASS=505; ELSE IF V8='C' AND MM2=35046 AND MY=1993 THEN VINPASS=1505; ELSE IF V8='C' THEN VINPASS=1; ELSE IF V8='D' THEN VINPASS=2; GOTO NNISSAN; HONDA: V8=TRANSLATE(V8,'2568','ZSGB'); IF MY=1991 THEN GOTO HONDA91; IF MY=1992 THEN GOTO HONDA92; IF MY=1993 THEN GOTO HONDA93; IF 1994 LE MY LE 1996 THEN DO; VINPASS=2; GOTO C; END; IF 37007 LE CG LE 37009 THEN VINPASS=0; ELSE IF MM2=37031 AND MY LE 1989 THEN VINPASS=0; ELSE IF CG=37016 THEN VINPASS=505; ELSE IF CG=37018 THEN VINPASS=404; ELSE IF MM2=37032 AND CG=37010 AND (V8='6' OR V8='8') THEN VINPASS=505; ELSE IF MM2=37032 AND CG=37010 THEN VINPASS=0; ELSE IF CG=37014 THEN DO; IF MY=1988 THEN VINPASS=0; ELSE IF MY=1990 THEN VINPASS=505; ELSE IF MY=1989 AND V6='9' AND V8='6' THEN VINPASS=505; ELSE IF MY=1989 AND V6='8' AND V8='5' THEN VINPASS=505; ELSE IF MY=1989 AND V6='8' AND V8='6' THEN VINPASS=0; END; ELSE IF CG=37015 AND MY=1990 THEN DO; IF V6='6' OR V6='7' THEN VINPASS=505; ELSE VINPASS=404; END; GOTO C; HONDA91: IF CG=37018 AND V6='9' THEN VINPASS=1; ELSE IF CG=37014 OR CG=37016 OR (CG=37015 AND (V6='6' OR V6='7')) THEN VINPASS=505; ELSE VINPASS=404; GOTO C; HONDA92: IF MM2=37033 AND V8='6' THEN VINPASS=2; ELSE VINPASS=1; GOTO C; HONDA93: IF MM2=37033 AND (V8='6' OR V8='7') THEN VINPASS=2; ELSE IF MM2=37032 AND (V7='5' OR V7='6') AND V8='8' THEN VINPASS=2; ELSE IF MM2=37030 AND V5='J' AND V6='1' AND V8='6' THEN VINPASS=2; ELSE VINPASS=1; GOTO C; ISUZU: IF 1990 LE MY LE 1993 THEN VINPASS=1; ELSE IF MM2=38032 AND 1988 LE MY LE 1989 THEN VINPASS=303; ELSE VINPASS=0; GOTO C; JAGUAR: V5=TRANSLATE(V5,'ZSGB','2568'); IF V5='V' THEN VINPASS=0; ELSE IF V5='A' OR V5='Y' THEN VINPASS=404; ELSE IF V5='W' THEN VINPASS=1; ELSE IF V5='X' OR V5='N' THEN VINPASS=2; GOTO NJAGUAR; MAZDA: V8=TRANSLATE(V8,'2B','Z8'); V7=TRANSLATE(V7,'5','S'); IF MY=1987 THEN DO; IF MM2=41037 AND V8='A' THEN VINPASS=404; ELSE VINPASS=0; END; ELSE IF MY=1988 THEN DO; IF MM2=41037 AND (V8='2' OR V8='4') THEN VINPASS=404; ELSE IF MM2=41044 AND (V8='2' OR V8='4' OR V8='B' OR V8='D') THEN VINPASS=404; ELSE VINPASS=0; END; ELSE IF MY=1989 THEN DO; IF MM2=41037 THEN VINPASS=404; ELSE IF MM2=41034 AND V7='3' THEN VINPASS=404; ELSE IF MM2=41044 AND (V8='2' OR V8='4' OR V8='B' OR V8='D') THEN VINPASS=404; ELSE VINPASS=0; END; ELSE IF 1990 LE MY LE 1991 THEN DO; IF MM2=41045 THEN VINPASS=1; ELSE IF MM2=41034 AND V7='5' THEN VINPASS=1; ELSE VINPASS=404; END; ELSE IF MY=1992 THEN DO; IF MM2=41043 THEN VINPASS=2; ELSE IF MM2=41045 THEN VINPASS=1; ELSE IF MM2=41034 AND V7='5' THEN VINPASS=1; ELSE VINPASS=404; END; ELSE IF MY=1993 THEN DO; IF MM2=41043 THEN VINPASS=2; ELSE IF MM2=41035 OR MM2=41046 THEN VINPASS=404; ELSE VINPASS=1; END; ELSE IF MY=1994 THEN DO; IF MM2=41035 THEN VINPASS=404; ELSE VINPASS=2; END; ELSE IF 1995 LE MY LE 1996 THEN VINPASS=2; GOTO C; MEBE: V8=TRANSLATE(V8,'ZSGB','2568'); IF V8='A' OR V8='C' THEN VINPASS=0; ELSE IF V8='B' OR V8='D' THEN VINPASS=1; ELSE IF V8='E' OR V8='F' THEN VINPASS=2; /* V8='F' SIDE IMPACT BAGS ALSO */ GOTO NMEBE; PEUGEOT: V7=TRANSLATE(V7,'2568','ZSGB'); IF V7='1' THEN VINPASS=0; ELSE IF V7='2' THEN VINPASS=606; ELSE IF V7='3' THEN VINPASS=404; GOTO NPEUGEOT; PORSCHE: V6=TRANSLATE(V6,'2568','ZSGB'); IF MY GE 1990 THEN VINPASS=2; ELSE IF V6='0' THEN VINPASS=0; ELSE IF V6='2' THEN VINPASS=2; GOTO NPORSCHE; RENAULT: IF MM2=46039 AND (V8='A' OR V8='D' OR V8='G' OR V8='H' OR V8='K') THEN VINPASS=505; ELSE IF CG=46009 AND V8 IN ('B','C') THEN VINPASS=404; ELSE IF MM2=46044 AND MY=1989 THEN VINPASS=404; ELSE VINPASS=0; GOTO C; SAAB: V5=TRANSLATE(V5,'ZSGB','2568'); IF 1995 LE MY LE 1996 THEN VINPASS=2; ELSE IF MY=1994 THEN DO; IF V5='M' OR V5='N' THEN VINPASS=2; ELSE IF V5='K' OR V5='L' THEN VINPASS=1; END; ELSE IF 1990 LE MY LE 1993 THEN VINPASS=1; ELSE IF V5='R' OR V5='S' OR V5='T' THEN VINPASS=0; ELSE IF V5='J' OR V5='K' OR V5='L' THEN DO; IF MM2=47031 THEN VINPASS=404; ELSE IF MM2=47034 THEN VINPASS=1; END; GOTO NSAAB; SUBARU: V8=TRANSLATE(V8,'256B','ZSG8'); IF MY=1996 THEN VINPASS=2; ELSE IF 1987 LE MY LE 1989 THEN DO; IF V8='A' OR V8='B' THEN VINPASS=0; ELSE IF V8='1' OR V8='2' THEN VINPASS=404; END; ELSE IF MY=1990 THEN DO; IF V8='1' THEN VINPASS=0; ELSE IF V8='3' THEN VINPASS=1404; ELSE IF (V8='2' OR V8='A') AND MM2=48036 THEN VINPASS=505; ELSE IF V8='B' AND MM2=48031 THEN VINPASS=9; ELSE IF V8='C' THEN VINPASS=404; ELSE IF V8='2' THEN VINPASS=404; END; ELSE IF MY=1991 THEN DO; IF MM2=48036 THEN VINPASS=505; ELSE VINPASS=404; END; ELSE IF 1992 LE MY LE 1995 THEN DO; IF V8='3' THEN VINPASS=1404; ELSE IF V8='4' THEN VINPASS=1; ELSE IF V8='5' THEN VINPASS=2; ELSE IF MM2=48036 THEN VINPASS=505; ELSE VINPASS=404; END; GOTO NSUBARU; TOYOTA: IF 1987 LE MY LE 1989 THEN DO; IF MM2=49035 OR MM2=49040 THEN VINPASS=303; ELSE VINPASS=0; GOTO C; END; ELSE IF 1990 LE MY LE 1991 THEN DO; IF MM2=49032 OR MM2=49038 THEN VINPASS=606; ELSE IF MM2=49035 OR MM2=49040 THEN VINPASS=303; ELSE IF MM2=49033 OR MM2=49034 OR MM2=49041 THEN VINPASS=1; GOTO C; END; ELSE IF MY=1992 THEN DO; IF MM2=49035 THEN VINPASS=303; ELSE IF MM2=49033 OR MM2=49034 OR MM2=49040 OR MM2=49041 THEN VINPASS=1; ELSE VINPASS=606; GOTO C; END; ELSE IF MY=1993 THEN DO; IF MM2=49038 OR MM2=49042 THEN VINPASS=1006; ELSE VINPASS=1; GOTO C; END; ELSE IF 1994 LE MY LE 1995 THEN DO; IF (MY=1994 AND MM2=49038) OR MM2=49042 THEN VINPASS=1006; ELSE VINPASS=2; GOTO C; END; ELSE IF MY=1996 THEN VINPASS=2; GOTO C; VOLVO: V5=TRANSLATE(V5,'ZSGB','2568'); IF 1994 LE MY LE 1996 THEN VINPASS=2; ELSE IF 1990 LE MY LE 1992 THEN VINPASS=1; ELSE IF MY=1993 THEN DO; IF MM2=51041 OR MM2=51042 THEN VINPASS=2; ELSE VINPASS=1; END; ELSE IF V5='X' THEN VINPASS=0; ELSE IF V5='A' THEN VINPASS=1; GOTO NVOLVO; MITS: IF MM2 NE 52036 THEN DO; V4=TRANSLATE(V4,'ZSGB','2568'); IF V4='A' THEN VINPASS=2; ELSE IF V4='B' AND 1993 LE MY LE 1994 THEN VINPASS=1; ELSE IF V4='B' AND 1991 LE MY LE 1992 THEN VINPASS=404; ELSE IF V4='B' THEN VINPASS=0; ELSE IF V4='C' THEN VINPASS=404; ELSE IF V4='E' THEN VINPASS=1004; ELSE IF V4='X' THEN VINPASS=1; END; ELSE IF MM2=52036 THEN DO; V7=TRANSLATE(V7,'2568','ZSGB'); IF V7='1' THEN VINPASS=0; ELSE IF MY LE 1989 AND V7='2' THEN VINPASS=707; ELSE IF V7='2' THEN VINPASS=606; END; GOTO NMITS; SUZUKI: IF 1990 LE MY LE 1994 THEN VINPASS=505; ELSE IF 1995 LE MY LE 1996 THEN VINPASS=2; ELSE VINPASS=0; GOTO C; ACURA: V8=TRANSLATE(V8,'2568','ZSGB'); IF MY=1991 THEN GOTO ACURA91; IF MY=1992 THEN GOTO ACURA92; IF MY=1993 THEN GOTO ACURA93; IF 1994 LE MY LE 1996 THEN DO; VINPASS=2; GOTO C; END; IF CG=37007 OR CG=37012 THEN VINPASS=0; ELSE IF MM2=54031 THEN VINPASS=404; ELSE IF MY GE 1989 AND MM2=54032 THEN VINPASS=1; ELSE IF 1987 LE MY LE 1988 AND MM2=54032 AND CG=37011 AND V8='6' THEN VINPASS=1; ELSE IF 1987 LE MY LE 1988 AND MM2=54032 THEN VINPASS=0; GOTO C; ACURA91: IF MM2=54032 AND V8='7' THEN VINPASS=2; ELSE IF MM2=54031 THEN VINPASS=404; ELSE VINPASS=1; GOTO C; ACURA92: IF MM2=54031 THEN VINPASS=404; ELSE IF MM2=54032 AND (V8='5' OR V8='6' OR V8='7') THEN VINPASS=2; ELSE VINPASS=1; GOTO C; ACURA93: IF MM2=54031 THEN VINPASS=404; ELSE IF MM2=54032 OR MM2=54033 THEN VINPASS=2; ELSE IF MM2=54034 AND V8='6' THEN VINPASS=2; ELSE VINPASS=1; GOTO C; HYUNDAI: V7=TRANSLATE(V7,'2568','ZSGB'); IF MY=1996 THEN VINPASS=2; ELSE IF MY=1995 AND V7='1' THEN VINPASS=2; ELSE IF V7='1' THEN VINPASS=0; ELSE IF V7='2' THEN DO; IF 1987 LE MY LE 1989 THEN VINPASS=707; ELSE IF MM2=55033 THEN VINPASS=404; ELSE IF MM2=55035 AND 1994 LE MY LE 1995 THEN VINPASS=1006; ELSE VINPASS=606; END; ELSE IF V7='3' THEN VINPASS=1006; ELSE IF V7='4' THEN VINPASS=2; GOTO NHYUNDAI; YUGO: V8=TRANSLATE(V8,'2568','ZSGB'); IF V8='1' THEN VINPASS=0; ELSE IF MY LE 1989 AND V8='2' THEN VINPASS=707; ELSE IF V8='2' THEN VINPASS=606; GOTO NYUGO; INFI: IF MY LE 1991 AND V8='C' THEN VINPASS=1; ELSE IF 1992 LE MY LE 1993 AND V8='C' THEN VINPASS=1505; ELSE IF V8='D' THEN VINPASS=2; ELSE IF V8='P' THEN VINPASS=404; GOTO NINFI; LEXUS: IF MY LE 1992 THEN VINPASS=1; ELSE IF MY=1993 THEN DO; IF MM2=59031 THEN VINPASS=1; ELSE VINPASS=2; END; ELSE IF 1994 LE MY LE 1996 THEN VINPASS=2; GOTO C; DAIHATSU: V7=TRANSLATE(V7,'2568','ZSGB'); IF MY=1988 THEN DO; IF V7='2' THEN VINPASS=606; ELSE VINPASS=0; END; ELSE IF MY=1989 THEN DO; IF V7='1' OR V7='2' THEN VINPASS=606; ELSE VINPASS=0; END; ELSE IF 1990 LE MY LE 1992 THEN DO; IF V4='E' OR V4='H' THEN VINPASS=404; ELSE VINPASS=606; END; GOTO NDAIH; STERLING: V7=TRANSLATE(V7,'2568','ZSGB'); IF V7='3' THEN VINPASS=404; ELSE IF V7='4' OR V7='5' THEN VINPASS=0; IF MY LE 1989 AND (VINPASS=0 OR VINPASS=404) THEN GOTO C; ELSE IF MY LE 1989 THEN DELETE; ELSE IF 1989 LE MY LE 1991 THEN DO; VINPASS=404; GOTO C; END; KIA: IF MY=1996 THEN VINPASS=2; /* OR 1313 */ ELSE IF MY=1995 AND V8='5' THEN VINPASS=2; /* SOME MY95 CAN BE 2 OR 1313 FROM VIN BOOK 96 */ ELSE VINPASS=303; GOTO C; /* THE FOLLOWING SECTION ASSIGNS OCCUPANT PROTECTION DEVICE */ /* BASED ON THE MAKE-MODEL OF PASSENGER CAR. */ NCHRYS: IF CG=6014 THEN DO; IF MY=1987 THEN NPASS=0; ELSE IF MY=1988 THEN DO; NPASS=0; NPASS2=1; END; ELSE IF MY=1989 THEN NPASS=1; GOTO C; END; IF CG=6015 OR CG=6016 OR 6021 LE CG LE 6023 THEN DO; IF 1987 LE MY LE 1989 THEN NPASS=0; ELSE IF 1990 LE MY LE 1993 THEN NPASS=1; ELSE IF 1994 LE MY LE 1995 THEN NPASS=1004; GOTO C; END; IF MM2=7011 OR MM2=9011 OR CG=6019 OR MM2=6015 THEN DO; NPASS=0; GOTO C; END; IF MM2=6016 THEN DO; IF MY=1987 THEN DO; NPASS=0; NPASS2=606; END; ELSE IF MY=1988 THEN DO; NPASS=0; NPASS2=606; NPASS3=1; NPASS4=1606; END; ELSE IF MY=1989 THEN DO; NPASS=0; NPASS2=1; END; ELSE IF 1990 LE MY LE 1993 THEN NPASS=1; ELSE IF MY=1994 AND CG=6022 THEN NPASS=1004; ELSE IF 1994 LE MY LE 1995 THEN NPASS=2; GOTO C; END; IF MM2=7015 THEN DO; IF MY=1987 THEN DO; NPASS=0; NPASS2=606; END; ELSE IF MY=1988 THEN DO; NPASS=0; NPASS2=606; NPASS3=1; NPASS4=1606; END; ELSE IF 1989 LE MY LE 1993 THEN NPASS=1; GOTO C; END; IF MM2=7017 OR MM2=9017 THEN DO; IF MY=1987 THEN NPASS=0; ELSE IF 1988 LE MY LE 1989 THEN DO; NPASS=0; NPASS2=404; END; ELSE IF 1990 LE MY LE 1993 THEN NPASS=1; ELSE IF MY=1994 THEN NPASS=1004; GOTO C; END; IF CG=6024 THEN DO; NPASS=505; GOTO C; END; /* DODGE VIPER - i.e., FIRST AIR BAGS IN 1997 */ IF 6025 LE CG LE 6027 THEN DO; NPASS=2; GOTO C; END; /* LATEST MY VEHICLES */ IF CG=46009 THEN DO; IF MY LE 1989 THEN DO; NPASS=0; NPASS2=404; END; ELSE IF 1990 LE MY LE 1992 THEN NPASS=404; GOTO C; END; IF CG=52005 OR CG=52008 THEN DO; IF MY LE 1989 THEN NPASS=0; ELSE NPASS=404; GOTO C; END; IF CG=52006 OR 52010 LE CG LE 52012 THEN DO; NPASS=404; GOTO C; END; IF CG=52013 THEN DO; IF MY LE 1993 THEN NPASS=1; ELSE NPASS=2; GOTO C; END; IF CG=52014 OR CG=52016 OR CG=52017 THEN DO; IF MY LE 1993 THEN NPASS=404; ELSE IF MY=1994 THEN NPASS=1004; ELSE NPASS=2; GOTO C; END; IF CG=52018 OR CG=52019 THEN DO; NPASS=2; GOTO C; END; NFORD: IF MM2=12003 THEN DO; /* MUSTANG */ IF MY LE 1989 THEN NPASS=0; ELSE IF 1990 LE MY LE 1993 THEN NPASS=1; ELSE IF 1994 LE MY LE 1996 THEN NPASS=2; GOTO C; END; IF MM2=13002 THEN DO; IF MY LE 1989 THEN NPASS=0; /* MARK7,MARK8 */ ELSE IF 1990 LE MY LE 1992 THEN NPASS=1; ELSE IF 1993 LE MY LE 1996 THEN NPASS=2; GOTO C; END; IF MM2=12013 OR MM2=14013 THEN DO; /* ESCORT,LYNX */ IF MY=1987 THEN DO; NPASS=0; NPASS2=303; END; ELSE IF MY=1988 THEN DO; NPASS=9; NPASS2=303; END; ELSE IF 1989 LE MY LE 1993 THEN NPASS=303; ELSE IF MY=1994 THEN NPASS=1303; ELSE IF 1995 LE MY LE 1996 THEN NPASS=1313; GOTO C; END; IF MM2=12014 THEN DO; NPASS=0; GOTO C; END; /* EXP */ IF CG=12034 THEN DO; IF MY=1987 THEN DO; NPASS=0; NPASS2=1; END; /* TEMPO, TOPAZ */ ELSE IF 1988 LE MY LE 1993 THEN DO; NPASS=303; NPASS2=1; END; ELSE IF MY=1994 THEN DO; NPASS=303; NPASS2=1003; END; GOTO C; END; IF MM2=12004 OR MM2=14004 THEN DO; IF MY LE 1988 THEN NPASS=0; /* THUNDERBIRD,COUGAR */ ELSE IF 1989 LE MY LE 1993 THEN NPASS=303; ELSE IF 1994 LE MY LE 1996 THEN NPASS=2; GOTO C; END; IF MM2=12016 OR MM2=12017 THEN DO; IF MY LE 1989 THEN NPASS=0; /* TAURUS,CROWN VICTORIA */ ELSE IF 1990 LE MY LE 1991 THEN NPASS=1; ELSE IF 1992 LE MY LE 1993 THEN DO; NPASS=1; NPASS2=2; END; ELSE IF 1994 LE MY LE 1996 THEN NPASS=2; GOTO C; END; IF MM2=14016 OR MM2=14017 THEN DO; IF MY LE 1989 THEN NPASS=0; /* GRAND MARQUIS,SABLE */ ELSE IF 1990 LE MY LE 1991 THEN NPASS=1; ELSE IF MY=1992 THEN DO; NPASS=1; NPASS2=2; END; ELSE IF 1993 LE MY LE 1996 THEN NPASS=2; GOTO C; END; IF MM2=13001 THEN DO; IF MY LE 1989 THEN NPASS=0; /* TOWN CAR */ ELSE IF 1990 LE MY LE 1991 THEN DO; NPASS=1; NPASS2=2; END; ELSE IF 1992 LE MY LE 1996 THEN NPASS=2; GOTO C; END; IF MM2=13005 THEN DO; IF MY LE 1988 THEN NPASS=0; /* CONTINENTAL */ ELSE IF MY=1991 THEN DO; NPASS=1; NPASS2=2; END; ELSE IF 1989 LE MY LE 1990 OR MY GE 1992 THEN NPASS=2; GOTO C; END; IF MM2=12033 OR MM2=56031 OR MM2=56032 THEN DO; /* FESTIVA,XR4Ti,SCORPIO */ IF MY LE 1989 THEN NPASS=0; ELSE IF 1990 LE MY LE 1993 THEN NPASS=303; GOTO C; END; IF MM2=14036 THEN DO; IF MY LE 1989 THEN NPASS=0; /* TRACER */ ELSE IF 1990 LE MY LE 1993 THEN NPASS=303; ELSE IF MY=1994 THEN NPASS=1303; ELSE IF 1995 LE MY LE 1996 THEN NPASS=1313; GOTO C; END; IF MM2=12018 THEN DO; IF MY LE 1989 THEN NPASS=0; /* PROBE */ ELSE IF 1990 LE MY LE 1992 THEN NPASS=303; ELSE IF MY=1993 THEN NPASS=1; ELSE IF 1994 LE MY LE 1996 THEN NPASS=2; GOTO C; END; IF MM2=14031 THEN DO; IF MY LE 1989 THEN NPASS=0; ELSE IF MY=1990 THEN NPASS=303; ELSE IF 1991 LE MY LE 1993 THEN NPASS=1; ELSE IF MY=1994 THEN NPASS=2; GOTO C; END; IF CG=12039 OR CG=63003 OR CG=63004 THEN DO; NPASS=2; GOTO C; END; NGM: IF MM2=20013 OR MM2=22013 OR MM2=22005 OR CG=18045 THEN DO; /* CHEVETTE,REGAL,T1000,FIERO */ NPASS=0; GOTO C; END; /* MONTE CARLO,CUTLASS,GRAND PRIX */ IF CG=18039 OR CG=18040 THEN DO; IF MY LE 1989 THEN NPASS=0; ELSE IF MY=1990 THEN NPASS=505; ELSE IF 1991 LE MY LE 1993 THEN NPASS=1; ELSE IF 1994 LE MY LE 1996 THEN NPASS=2; GOTO C; END; IF CG=18042 THEN DO; IF MY LE 1989 THEN NPASS=0; ELSE IF 1990 LE MY LE 1992 THEN NPASS=505; ELSE IF MY=1993 THEN DO; NPASS=1; NPASS2=2; END; ELSE IF 1994 LE MY LE 1996 THEN NPASS=2; GOTO C; END; IF CG=18048 THEN DO; IF MY LE 1989 THEN NPASS=0; ELSE IF 1990 LE MY LE 1994 THEN NPASS=505; GOTO C; END; IF CG=18049 OR MM2=19005 OR MM2=19014 THEN DO; IF MY LE 1989 THEN NPASS=0; ELSE IF 1990 LE MY LE 1992 THEN NPASS=1; ELSE IF 1993 LE MY LE 1996 THEN NPASS=2; GOTO C; END; IF CG=18050 THEN DO; IF MY LE 1989 THEN NPASS=0; /* CENTURY,CIERA */ ELSE IF 1990 LE MY LE 1992 THEN NPASS=505; ELSE IF MY=1993 THEN DO; NPASS=505; NPASS2=1505; END; ELSE IF 1994 LE MY LE 1996 THEN NPASS=1505; GOTO C; END; IF MM2 IN (18005,18021,19009,20004,21005,21022) THEN DO; /* RIVIERA,REATTA,ALLANTE,CORVETTE,TORONADO,AURORA */ IF MY LE 1989 THEN NPASS=0; ELSE IF 1990 LE MY LE 1993 THEN NPASS=1; ELSE IF 1994 LE MY LE 1996 THEN NPASS=2; GOTO C; END; IF CG=18054 THEN DO; IF MY=1987 THEN DO; NPASS=0; NPASS2=505; END; /* SOMERSET/SKYLARK,CALAIS/ACHIEVA,GRAND AM */ ELSE IF 1988 LE MY LE 1993 THEN NPASS=505; ELSE IF 1994 LE MY LE 1995 THEN NPASS=1505; GOTO C; END; IF CG=18056 THEN DO; IF MY=1987 THEN NPASS=0; /* BERETTA,CORSICA */ ELSE IF MY=1988 THEN DO; NPASS=0; NPASS2=505; END; ELSE IF 1989 LE MY LE 1990 THEN NPASS=505; ELSE IF 1991 LE MY LE 1993 THEN NPASS=1; ELSE IF 1994 LE MY LE 1996 THEN NPASS=1505; GOTO C; END; IF CG=18059 THEN DO; IF 1988 LE MY LE 1993 THEN NPASS=505; ELSE IF MY=1994 THEN DO; IF MM2=18020 OR MM2=21020 THEN NPASS=1505; ELSE IF MM2=20020 THEN NPASS=505; ELSE IF MM2=22020 THEN NPASS=2; END; ELSE IF 1995 LE MY LE 1996 THEN NPASS=2; GOTO C; END; IF CG=18052 AND 1994 LE MY LE 1996 THEN DO; NPASS=2; GOTO C; END; IF MM2=18002 THEN DO; IF MY=1987 THEN DO; NPASS=0; NPASS2=505; END; /* LE SABRE */ ELSE IF 1988 LE MY LE 1991 THEN NPASS=505; ELSE IF 1992 LE MY LE 1993 THEN NPASS=1; GOTO C; END; IF MM2=22002 THEN DO; IF MY=1987 THEN DO; NPASS=0; NPASS2=505; END; /* BONNEVILLE */ ELSE IF 1988 LE MY LE 1991 THEN NPASS=505; ELSE IF 1992 LE MY LE 1993 THEN DO; NPASS=1; NPASS2=2; END; GOTO C; END; IF MM2=21002 THEN DO; IF MY=1987 THEN DO; NPASS=0; NPASS2=505; END; /* DELTA 88 */ ELSE IF 1988 LE MY LE 1991 THEN DO; NPASS=505; NPASS2=1; END; ELSE IF 1992 LE MY LE 1993 THEN NPASS=1; GOTO C; END; IF MM2=18003 THEN DO; IF MY LE 1988 THEN NPASS=0; /* ELECTRA,PARK AVENUE */ ELSE IF 1989 LE MY LE 1990 THEN NPASS=505; ELSE IF 1991 LE MY LE 1993 THEN NPASS=1; GOTO C; END; IF MM2=21003 THEN DO; IF MY LE 1988 THEN NPASS=0; /* OLDS 98 */ ELSE IF 1989 LE MY LE 1990 THEN DO; NPASS=505; NPASS2=1; END; ELSE IF 1991 LE MY LE 1993 THEN NPASS=1; GOTO C; END; IF MM2=19003 THEN DO; IF MY LE 1988 THEN NPASS=0; /* DEVILLE */ ELSE IF MY=1989 THEN DO; NPASS=0; NPASS2=1; END; ELSE IF 1990 LE MY LE 1992 THEN NPASS=1; ELSE IF MY=1993 THEN DO; NPASS=1; NPASS2=2; END; ELSE IF 1994 LE MY LE 1995 THEN NPASS=2; GOTO C; END; IF 24001 LE MM2 LE 24003 THEN DO; IF MY=1991 THEN NPASS=404; /* SATURN */ ELSE IF 1992 LE MY LE 1993 THEN DO; NPASS=404; NPASS2=1404; END; ELSE IF MY=1994 THEN NPASS=1404; ELSE IF 1995 LE MY LE 1996 THEN NPASS=2; GOTO C; END; IF MM2=20031 OR MM2=20033 THEN DO; NPASS=0; GOTO C; END; /* SECTRUM,SPRINT */ IF MM2=20032 THEN DO; IF MY LE 1988 THEN NPASS=0; /* NOVA,GEO PRIZM */ ELSE IF 1989 LE MY LE 1990 THEN DO; NPASS=0; NPASS2=606; END; ELSE IF 1991 LE MY LE 1992 THEN NPASS=606; ELSE IF MY=1993 THEN NPASS=1; ELSE IF 1994 LE MY LE 1996 THEN NPASS=2; GOTO C; END; IF MM2=20034 THEN DO; IF MY LE 1989 THEN NPASS=0; /* METRO */ ELSE IF 1990 LE MY LE 1994 AND CG=53003 THEN DO; NPASS=505; NPASS2=1; END; /* METRO 2DR */ ELSE IF 1990 LE MY LE 1994 AND CG=53004 THEN DO; NPASS=505; END; /* METRO 4DR */ ELSE IF 1995 LE MY LE 1996 THEN NPASS=2; GOTO C; END; IF MM2=20035 THEN DO; NPASS=1; GOTO C; END; /* STORM */ IF MM2=22031 THEN DO; IF MY LE 1989 THEN NPASS=0; /* LEMANS */ ELSE IF 1990 LE MY LE 1993 THEN NPASS=404; GOTO C; END; NVW: IF MM2=30038 OR MM2=30041 THEN DO; NPASS=0; GOTO C; END; /* SCIROCCO,QUANTUM */ IF MM2=30042 AND CG=30004 THEN DO; IF MY LE 1989 THEN NPASS=0; /* CABRIOLET */ ELSE IF 1990 LE MY LE 1993 THEN NPASS=1; GOTO C; END; IF MM2=30040 THEN DO; IF MY LE 1989 THEN DO; NPASS=0; NPASS2=707; END; /* JETTA */ ELSE IF 1990 LE MY LE 1992 THEN NPASS=606; ELSE IF 1993 LE MY LE 1994 THEN DO; NPASS=606; NPASS2=2; END; ELSE IF 1995 LE MY LE 1996 THEN NPASS=2; GOTO C; END; IF MM2=30042 THEN DO; IF MY LE 1989 THEN DO; NPASS=0; NPASS2=707; END; /* GOLF,GTI */ ELSE IF 1990 LE MY LE 1993 THEN NPASS=606; ELSE IF MY=1994 THEN DO; NPASS=606; NPASS2=2; END; ELSE IF MY=1995 THEN DO; NPASS=404; NPASS2=2; END; ELSE IF MY=1996 THEN DO; NPASS=2; END; GOTO C; END; IF MM2=30044 THEN DO; IF MY LE 1989 THEN NPASS=0; /* FOX */ ELSE IF MY=1990 THEN DO; NPASS=0; NPASS2=606; END; ELSE IF 1991 LE MY LE 1993 THEN NPASS=606; GOTO C; END; IF MM2=30045 OR MM2=30046 THEN DO; /* CORRADO,PASSAT */ IF 1995 LE MY LE 1996 THEN NPASS=2; ELSE NPASS=404; GOTO C; END; NAUDI: IF 1994 LE MY LE 1996 THEN DO; NPASS=2; GOTO C; END; IF MM2=32034 OR MM2=32035 THEN DO; NPASS=0; GOTO C; END; IF MM2=32036 THEN DO; IF 1988 LE MY LE 1989 THEN NPASS=0; ELSE IF 1990 LE MY LE 1992 THEN NPASS=1; ELSE IF MY=1993 THEN DO; NPASS=1; NPASS2=2; END; GOTO C; END; IF MM2=32037 THEN DO; IF MY=1989 THEN DO; NPASS=0; NPASS2=1; END; ELSE IF 1990 LE MY LE 1991 THEN NPASS=1; ELSE IF MY=1992 THEN DO; NPASS=1; NPASS2=2; END; ELSE IF MY=1993 THEN NPASS=2; GOTO C; END; NBMW: IF MY=1996 THEN DO; NPASS=2; GOTO C; END; IF MM2=34034 THEN DO; IF MY LE 1989 THEN NPASS=0; ELSE IF 1990 LE MY LE 1993 THEN NPASS=1; ELSE IF 1994 LE MY LE 1995 THEN NPASS=2; GOTO C; END; IF MM2=34035 THEN DO; IF MY LE 1988 THEN NPASS=0; ELSE IF MY=1989 THEN DO; NPASS=0; NPASS2=1; END; ELSE IF 1990 LE MY LE 1993 THEN NPASS=1; ELSE IF MY=1994 THEN DO; NPASS=1; NPASS2=2; END; ELSE IF MY=1995 THEN NPASS=2; GOTO C; END; IF MM2=34036 THEN DO; IF MY=1987 THEN NPASS=0; ELSE IF 1988 LE MY LE 1989 THEN NPASS=1; GOTO C; END; IF MM2=34037 THEN DO; IF MY=1987 THEN DO; NPASS=0; NPASS2=1; END; ELSE IF 1988 LE MY LE 1992 THEN NPASS=1; ELSE IF 1993 LE MY LE 1995 THEN NPASS=2; GOTO C; END; IF MM2=34038 THEN DO; IF 1991 LE MY LE 1992 THEN NPASS=1; ELSE IF 1993 LE MY LE 1995 THEN NPASS=2; GOTO C; END; NNISSAN: IF 1995 LE MY LE 1996 THEN DO; NPASS=2; GOTO C; END; IF MM2=35034 THEN DO; IF MY LE 1989 THEN NPASS=0; ELSE IF MY=1990 THEN NPASS=505; ELSE IF MY=1991 THEN DO; NPASS=505; NPASS2=1505; END; ELSE IF 1992 LE MY LE 1993 THEN NPASS=1505; ELSE IF MY=1994 THEN NPASS=2; GOTO C; END; IF MM2=35032 THEN DO; IF MY LE 1988 THEN NPASS=0; ELSE IF MY=1989 THEN DO; NPASS=404; NPASS2=505; END; ELSE IF 1990 LE MY LE 1993 THEN NPASS=404; ELSE IF MY=1994 THEN NPASS=505; GOTO C; END; IF MM2=35039 THEN DO; IF MY=1987 THEN DO; NPASS=0; NPASS2=404; END; ELSE IF 1988 LE MY LE 1991 THEN NPASS=404; ELSE IF 1992 LE MY LE 1993 THEN DO; NPASS=404; NPASS2=1404; END; ELSE IF MY=1994 THEN NPASS=1404; GOTO C; END; IF MM2=35042 THEN DO; IF MY LE 1989 THEN NPASS=0; ELSE IF 1990 LE MY LE 1992 THEN NPASS=404; GOTO C; END; IF MM2=35043 THEN DO; IF MY LE 1988 THEN NPASS=0; ELSE IF MY=1989 THEN DO; NPASS=0; NPASS2=404; END; ELSE IF 1990 LE MY LE 1992 THEN DO; NPASS=404; NPASS2=505; END; ELSE IF 1993 LE MY LE 1994 THEN DO; NPASS=404; NPASS2=505; NPASS3=1404; NPASS4=1505; END; GOTO C; END; IF MM2=35044 THEN DO; IF MY LE 1989 THEN NPASS=0; ELSE IF MY=1990 THEN DO; NPASS=404; NPASS2=1; END; GOTO C; END; IF MM2=35046 THEN DO; IF 1991 LE MY LE 1992 THEN NPASS=1; ELSE IF MY=1993 THEN NPASS=1505; GOTO C; END; IF MM2=35047 THEN DO; IF MY=1993 THEN NPASS=1404; ELSE IF MY=1994 THEN NPASS=2; GOTO C; END; IF MM2=35030 THEN DO; NPASS=404; GOTO C; END; NJAGUAR: IF 1995 LE MY LE 1996 THEN DO; NPASS=2; GOTO C; END; IF MM2=39032 THEN DO; IF MY LE 1988 THEN NPASS=0; ELSE IF 1989 LE MY LE 1992 THEN NPASS=404; ELSE IF MY=1993 THEN NPASS=1; ELSE IF MY=1994 THEN DO; NPASS=1; NPASS2=2; END; GOTO C; END; IF MM2=39031 THEN DO; IF MY=1987 THEN NPASS=0; ELSE IF 1988 LE MY LE 1989 THEN DO; NPASS=0; NPASS2=404; END; ELSE IF MY=1990 THEN DO; NPASS=404; NPASS2=1; END; ELSE IF 1991 LE MY LE 1993 THEN NPASS=1; ELSE IF MY=1994 THEN NPASS=2; GOTO C; END; NMEBE: IF 1994 LE MY LE 1996 THEN DO; NPASS=2; GOTO C; END; /* MY96 HAS SIDE IMPACT AIR BAGS */ IF MM2=42031 THEN DO; IF MY=1985 THEN NPASS=0; ELSE IF 1986 LE MY LE 1988 THEN NPASS=1; ELSE IF 1989 LE MY LE 1992 THEN DO; NPASS=1; NPASS2=2; END; ELSE IF MY=1993 THEN NPASS=2; GOTO C; END; IF MM2=42033 THEN DO; IF MY=1985 THEN NPASS=0; ELSE IF 1986 LE MY LE 1989 THEN NPASS=1; GOTO C; END; IF MM2=42036 THEN DO; IF MY=1985 THEN DO; NPASS=0; NPASS2=1; END; ELSE IF 1986 LE MY LE 1988 THEN NPASS=1; ELSE IF 1989 LE MY LE 1990 THEN DO; NPASS=1; NPASS2=2; END; ELSE IF 1991 LE MY LE 1993 THEN NPASS=2; GOTO C; END; IF MM2=42037 THEN DO; IF MY=1985 THEN DO; NPASS=0; NPASS2=1; END; ELSE IF 1986 LE MY LE 1988 THEN NPASS=1; ELSE IF 1989 LE MY LE 1991 THEN DO; NPASS=1; NPASS2=2; END; ELSE IF 1992 LE MY LE 1993 THEN NPASS=2; GOTO C; END; IF MM2=42039 THEN DO; IF MY=1985 THEN DO; NPASS=0; NPASS2=1; END; ELSE IF 1986 LE MY LE 1989 THEN NPASS=1; ELSE IF 1990 LE MY LE 1993 THEN DO; NPASS=1; NPASS2=2; END; GOTO C; END; IF MM2=42042 THEN DO; NPASS=2; GOTO C; END; IF MM2=42043 THEN DO; NPASS=2; GOTO C; END; IF MM2=42044 THEN DO; IF MY=1990 THEN DO; NPASS=1; NPASS2=2; END; ELSE IF 1991 LE MY LE 1993 THEN NPASS=2; GOTO C; END; NPEUGEOT: IF MM2=44034 THEN DO; IF MY=1987 THEN NPASS=0; ELSE IF 1988 LE MY LE 1989 THEN DO; NPASS=0; NPASS2=606; END; ELSE IF 1990 LE MY LE 1991 THEN DO; NPASS=404; NPASS2=606; END; GOTO C; END; IF MM2=44036 THEN DO; IF MY=1989 THEN DO; NPASS=0; NPASS2=404; NPASS3=606; END; ELSE IF 1990 LE MY LE 1991 THEN DO; NPASS=404; NPASS2=606; END; GOTO C; END; NPORSCHE: IF 1994 LE MY LE 1996 THEN DO; NPASS=2; GOTO C; END; IF MM2=45031 OR MM2=45034 OR MM2=45035 OR MM2=45040 THEN DO; IF MY LE 1989 THEN NPASS=0; ELSE IF 1990 LE MY LE 1993 THEN NPASS=2; GOTO C; END; IF MM2=45037 THEN DO; IF MY LE 1989 THEN DO; NPASS=0; NPASS2=2; END; ELSE IF 1990 LE MY LE 1991 THEN NPASS=2; GOTO C; END; NSAAB: IF 1995 LE MY LE 1996 THEN DO; NPASS=2; GOTO C; END; IF CG=47004 THEN DO; IF 1987 LE MY LE 1989 THEN DO; NPASS=0; NPASS2=404; END; ELSE IF 1990 LE MY LE 1994 THEN NPASS=1; GOTO C; END; IF MM2=47034 THEN DO; IF MY=1987 THEN NPASS=0; ELSE IF 1988 LE MY LE 1989 THEN DO; NPASS=0; NPASS2=1; END; ELSE IF 1990 LE MY LE 1993 THEN NPASS=1; ELSE IF MY=1994 THEN NPASS=2; GOTO C; END; IF CG=47006 THEN DO; NPASS=2; GOTO C; END; NSUBARU: IF 1995 LE MY LE 1996 THEN DO; NPASS=2; GOTO C; END; IF MM2=48031 THEN DO; IF MY=1987 THEN NPASS=0; ELSE IF 1988 LE MY LE 1989 THEN DO; NPASS=0; NPASS2=404; END; ELSE IF MY=1990 THEN DO; NPASS=0; NPASS2=404; NPASS3=9; END; ELSE IF 1991 LE MY LE 1994 THEN NPASS=404; GOTO C; END; IF MM2=48034 THEN DO; IF 1990 LE MY LE 1991 THEN NPASS=404; ELSE IF MY=1992 THEN DO; NPASS=404; NPASS2=1404; END; ELSE IF 1993 LE MY LE 1994 THEN NPASS=1404; GOTO C; END; IF MM2=48035 THEN DO; IF MY=1987 THEN DO; NPASS=0; NPASS2=404; END; ELSE IF 1988 LE MY LE 1991 THEN NPASS=404; GOTO C; END; IF MM2=48036 THEN DO; IF MY LE 1989 THEN NPASS=0; ELSE IF 1990 LE MY LE 1994 THEN NPASS=505; GOTO C; END; IF MM2=48037 THEN DO; IF 1992 LE MY LE 1993 THEN NPASS=1404; ELSE IF MY=1994 THEN NPASS=2; GOTO C; END; IF MM2=48038 THEN DO; IF MY=1993 THEN NPASS=1; ELSE IF MY=1994 THEN DO; NPASS=1; NPASS2=2; END; GOTO C; END; NVOLVO: IF 1994 LE MY LE 1996 THEN DO; NPASS=2; GOTO C; END; IF MM2=51034 THEN DO; IF MY LE 1989 THEN NPASS=0; ELSE IF 1990 LE MY LE 1993 THEN NPASS=1; GOTO C; END; IF MM2=51038 THEN DO; IF MY=1987 THEN DO; NPASS=0; NPASS2=1; END; ELSE IF 1988 LE MY LE 1991 THEN NPASS=1; GOTO C; END; IF MM2=51039 THEN DO; IF MY LE 1989 THEN DO; NPASS=0; NPASS2=1; END; ELSE IF 1990 LE MY LE 1992 THEN NPASS=1; GOTO C; END; IF MM2=51040 THEN DO; NPASS=1; GOTO C; END; IF MM2=51041 THEN DO; IF 1991 LE MY LE 1992 THEN NPASS=1; ELSE IF MY=1993 THEN NPASS=2; GOTO C; END; IF MM2=51042 THEN DO; NPASS=2; GOTO C; END; NMITS: IF 1995 LE MY LE 1996 THEN DO; NPASS=2; GOTO C; END; IF MM2=52035 THEN DO; IF MY LE 1988 THEN NPASS=0; ELSE IF 1989 LE MY LE 1993 THEN NPASS=404; ELSE IF MY=1994 THEN NPASS=1004; GOTO C; END; IF MM2=52036 THEN DO; IF MY LE 1989 THEN DO; NPASS=0; NPASS2=707; END; ELSE IF 1990 LE MY LE 1994 THEN NPASS=606; GOTO C; END; IF MM2=52031 THEN DO; NPASS=404; GOTO C; END; IF MM2=52032 OR MM2=52033 THEN DO; NPASS=0; GOTO C; END; IF MM2=52037 THEN DO; NPASS=404; GOTO C; END; IF MM2=52034 THEN DO; IF MY LE 1989 THEN NPASS=0; ELSE IF 1990 LE MY LE 1993 THEN NPASS=404; ELSE IF MY=1994 THEN NPASS=2; GOTO C; END; IF MM2=52038 THEN DO; IF MY LE 1989 THEN NPASS=0; ELSE IF 1990 LE MY LE 1991 THEN NPASS=1; GOTO C; END; IF MM2=52039 OR MM2=52040 THEN DO; IF 1991 LE MY LE 1993 THEN NPASS=1; ELSE IF MY=1994 THEN NPASS=2; GOTO C; END; IF MM2=52044 OR MM2=52045 THEN DO; IF 1992 LE MY LE 1993 THEN NPASS=404; ELSE IF MY=1994 THEN NPASS=1004; GOTO C; END; NHYUNDAI: IF MY=1996 THEN DO; NPASS=2; GOTO C; END; /* IF MY96 2 FOR MM2=55035 THEN ALL MY96 ARE 2 */ IF MM2=55032 OR MM2=55034 THEN DO; IF MY LE 1989 THEN DO; NPASS=0; NPASS2=707; END; ELSE IF 1990 LE MY LE 1995 THEN NPASS=606; GOTO C; END; IF MM2=55035 THEN DO; IF 1990 LE MY LE 1993 THEN NPASS=606; ELSE IF 1994 LE MY LE 1995 THEN NPASS=1006; GOTO C; END; IF MM2=55033 THEN DO; IF MY LE 1989 THEN DO; NPASS=0; NPASS2=707; END; ELSE IF 1990 LE MY LE 1993 THEN NPASS=404; ELSE IF MY=1994 THEN DO; NPASS=404; NPASS2=2; END; ELSE IF MY=1995 THEN NPASS=2; GOTO C; END; IF MM2=55036 THEN DO; NPASS=2; GOTO C; END; NYUGO: IF MY LE 1989 THEN DO; NPASS=0; NPASS2=707; END; ELSE IF 1990 LE MY LE 1991 THEN NPASS=606; GOTO C; NINFI: IF 1994 LE MY LE 1996 THEN DO; NPASS=2; GOTO C; END; IF MM2=58031 OR MM2=58032 THEN DO; IF MY LE 1991 THEN NPASS=1; ELSE IF 1992 LE MY LE 1993 THEN NPASS=1505; GOTO C; END; IF MM2=58033 THEN DO; IF 1991 LE MY LE 1992 THEN NPASS=404; ELSE IF MY=1993 THEN DO; NPASS=404; NPASS2=2; END; GOTO C; END; IF MM2=58034 THEN DO; NPASS=2; GOTO C; END; NDAIH: IF MY LE 1989 THEN DO; NPASS=0; NPASS2=606; END; ELSE IF 1990 LE MY LE 1992 THEN DO; NPASS=404; NPASS2=606; END; GOTO C; C: IF VINPASS=8 AND NPASS=10 THEN PASSIVE=9; ELSE IF VINPASS NE 8 AND NPASS=10 THEN PASSIVE=VINPASS; ELSE IF NPASS2=10 AND NPASS=1 AND VINPASS NE 1 THEN GOTO FYAB; ELSE IF NPASS2=10 THEN PASSIVE=NPASS; ELSE IF NPASS3=10 AND (VINPASS=NPASS OR VINPASS=NPASS2) THEN PASSIVE=VINPASS; ELSE IF NPASS3=10 THEN PASSIVE=9; ELSE IF NPASS4=10 AND (VINPASS=NPASS OR VINPASS=NPASS2 OR VINPASS=NPASS3) THEN PASSIVE=VINPASS; ELSE IF NPASS4=10 THEN PASSIVE=9; ELSE IF VINPASS=NPASS OR VINPASS=NPASS2 OR VINPASS=NPASS3 OR VINPASS=NPASS4 THEN PASSIVE=VINPASS; ELSE PASSIVE=9; /* --------------------------------------------------------------- */ /* PASSIVE=1099 IF DRV AIR BAG IS KNOWN, RF UNKNOWN */ /* --------------------------------------------------------------- */ IF PASSIVE=9 AND NPASS IN (1,2,3,1003,1004,1006,1090,1303,1313,1404,1505,1606) AND NPASS2 IN (1,2,3,1003,1004,1006,1090,1303,1313,1404,1505,1606) AND NPASS3=10 THEN PASSIVE=1099; RETURN; /* --------------------------------------------------------------- */ /* CARS WITH ON-OFF SWITCHES BECAUSE NO BACK SEAT */ /* --------------------------------------------------------------- */ ONOFF: IF MM2 IN (6053,9039) AND MY GE 1999 THEN PASSIVE=3; /* PROWLER */ ELSE IF MM2=7013 AND MY GE 1998 THEN PASSIVE=3; /* VIPER */ ELSE IF CG=12044 THEN PASSIVE=3; /* THUNDERBIRD */ ELSE IF MM2=20004 AND 2001 LE MY LE 2005 THEN PASSIVE=3; /* CORVETTE */ ELSE IF CG=32011 THEN PASSIVE=3; /* AUDI TT: CARS.COM CONFIRMS NO SWITCH STARTING 2008 (NEW CG) */ ELSE IF MM2=41045 AND MY GE 1999 THEN PASSIVE=3; /* MIATA: CARS.COM CONFIRMS STILL HAD SWITCH IN 2011 */ ELSE IF CG=49041 THEN PASSIVE=3; /* TOYOTA MR-2 */ RETURN; /* -------------------------------------------------------- */ /* IN THE FIRST YEAR AIR BAGS WERE STANDARD, WE SOMETIMES */ /* SEE VINs THAT SAY 'NO AIR BAG.' SOME OF THESE MAY BE */ /* VALID (E.G., CANADIAN, GREY-MARKET). SET PASSIVE=9 */ /* RATHER THAN AUTOMATICALLY CORRECTING THEM. */ /* -------------------------------------------------------- */ FYAB: IF MY=1986 AND MM2 IN (42031,42033,42036,42037,42039) THEN PASSIVE=9; ELSE IF MY=1988 AND MM2 IN (34036,34037,51038) THEN PASSIVE=9; ELSE IF MY=1989 AND MM2 IN (6010,7007,9004,7015,13005,54032) THEN PASSIVE=9; ELSE IF MY=1990 AND MM2 IN (7008,9008,6016,7017,9017,7018,7019,9019, 12003,12016,13001,13002,12017,14017,20009,22009,20004,18005,19005,19014,21005, 19009,18021,32037,32036,34034,34035,20035,38032,38033,45037,45035,47031,47034, 49034,49033,51034,51039,52038) THEN PASSIVE=9; ELSE IF MY=1990 AND ((MM2=6014 AND CG=6021) OR (MM2=19003 AND CG=18052) OR (MM2=19003 AND CG=18060) OR (MM2=30042 AND CG=30004)) THEN PASSIVE=9; ELSE IF MY=1991 AND MM2 IN (18004,20002,18003,21003,20019,35046,39031,14031) THEN PASSIVE=9; ELSE IF MY=1991 AND CG=18040 THEN PASSIVE=9; ELSE IF MY=1992 AND MM2 IN (35034,37030,37032,37031,49040) THEN PASSIVE=9; ELSE IF MY=1993 AND (CG=18042 OR MM2 IN (39032,12018,41037,41044,41034)) THEN PASSIVE=9; ELSE PASSIVE=1; RUN;