LIBNAME LIBRARY 'xx'; LIBNAME FARS11 'xx'; LIBNAME FARS10 'xx'; LIBNAME FARS09 'xx'; LIBNAME FARS08 'xx'; LIBNAME FARS07 'xx'; LIBNAME FARS06 'xx'; LIBNAME FARS05 'xx'; LIBNAME FARS04 'xx'; LIBNAME FARS03 'xx'; LIBNAME FARS02 'xx'; LIBNAME FARS01 'xx'; LIBNAME FARS00 'xx'; LIBNAME FARS99 'xx'; LIBNAME FARS98 'xx'; LIBNAME FARS97 'xx'; LIBNAME FARS96 'xx'; LIBNAME FARS95 'xx'; LIBNAME FARS94 'xx'; LIBNAME FARS93 'xx'; LIBNAME FARS92 'xx'; LIBNAME FARS91 'xx'; LIBNAME FARS90 'xx'; LIBNAME FARS89 'xx'; LIBNAME FARS88 'xx'; LIBNAME FARS87 'xx'; LIBNAME FARS86 'xx'; LIBNAME FARS85 'xx'; LIBNAME FARS84 'xx'; LIBNAME FARS83 'xx'; LIBNAME FARS82 'xx'; LIBNAME FARS81 'xx'; LIBNAME FARS80 'xx'; LIBNAME FARS_A00 'xx'; OPTION NOCENTER NOFMTERR OBS=5000000 LS=160 PAGESIZE=89; /* PROGRAM NAME: VIN110.SAS UPDATED: 12/03/2012 */ /* CREATES FILE OF ALL MY 1981-2011 VEHICLES WITH KNOWN VINS ON 1980-2011 FARS */ DATA FARS_A00.FARS_A00; LENGTH VIN $ 12 V1-V8 V11 V12 $ 1; SET FARS80.VEHICLE(IN=CY80) FARS81.VEHICLE(IN=CY81) FARS82.VEHICLE(IN=CY82) FARS83.VEHICLE(IN=CY83) FARS84.VEHICLE(IN=CY84) FARS85.VEHICLE(IN=CY85) FARS86.VEHICLE(IN=CY86) FARS87.VEHICLE(IN=CY87) FARS88.VEHICLE(IN=CY88) FARS89.VEHICLE(IN=CY89) FARS90.VEHICLE(IN=CY90) FARS91.VEHICLE(IN=CY91) FARS92.VEHICLE(IN=CY92) FARS93.VEHICLE(IN=CY93) FARS94.VEHICLE(IN=CY94) FARS95.VEHICLE(IN=CY95) FARS96.VEHICLE(IN=CY96) FARS97.VEHICLE(IN=CY97) FARS98.VEHICLE(IN=CY98) FARS99.VEHICLE(IN=CY99) FARS00.VEHICLE(IN=CY00) FARS01.VEHICLE(IN=CY01) FARS02.VEHICLE(IN=CY02) FARS03.VEHICLE(IN=CY03) FARS04.VEHICLE(IN=CY04) FARS05.VEHICLE(IN=CY05) FARS06.VEHICLE(IN=CY06) FARS07.VEHICLE(IN=CY07) FARS08.VEHICLE(IN=CY08) FARS09.VEHICLE(IN=CY09) FARS10.VEHICLE(IN=CY10) FARS11.VEHICLE(IN=CY11); IF CY80 THEN CY=1980; ELSE IF CY81 THEN CY=1981; ELSE IF CY82 THEN CY=1982; ELSE IF CY83 THEN CY=1983; ELSE IF CY84 THEN CY=1984; ELSE IF CY85 THEN CY=1985; ELSE IF CY86 THEN CY=1986; ELSE IF CY87 THEN CY=1987; ELSE IF CY88 THEN CY=1988; ELSE IF CY89 THEN CY=1989; ELSE IF CY90 THEN CY=1990; ELSE IF CY91 THEN CY=1991; ELSE IF CY92 THEN CY=1992; ELSE IF CY93 THEN CY=1993; ELSE IF CY94 THEN CY=1994; ELSE IF CY95 THEN CY=1995; ELSE IF CY96 THEN CY=1996; ELSE IF CY97 THEN CY=1997; ELSE IF CY98 THEN CY=1998; ELSE IF CY99 THEN CY=1999; ELSE IF CY00 THEN CY=2000; ELSE IF CY01 THEN CY=2001; ELSE IF CY02 THEN CY=2002; ELSE IF CY03 THEN CY=2003; ELSE IF CY04 THEN CY=2004; ELSE IF CY05 THEN CY=2005; ELSE IF CY06 THEN CY=2006; ELSE IF CY07 THEN CY=2007; ELSE IF CY08 THEN CY=2008; ELSE IF CY09 THEN CY=2009; ELSE IF CY10 THEN CY=2010; ELSE IF CY11 THEN CY=2011; IF CY LT 1998 AND MOD_YEAR=99 THEN DELETE; IF CY LT 1998 THEN MOD_YEAR=MOD_YEAR+1900; IF 1981 LE MOD_YEAR LE 2011; V1=SUBSTR(VIN,1,1); V2=SUBSTR(VIN,2,1); V3=SUBSTR(VIN,3,1); V4=SUBSTR(VIN,4,1); V5=SUBSTR(VIN,5,1); V6=SUBSTR(VIN,6,1); V7=SUBSTR(VIN,7,1); V8=SUBSTR(VIN,8,1); V10=SUBSTR(VIN,10,1); IF CY GE 1994 THEN DO; V11=SUBSTR(VIN,11,1); V12=SUBSTR(VIN,12,1); END; V1=UPCASE(V1); V2=UPCASE(V2); V3=UPCASE(V3); V4=UPCASE(V4); V5=UPCASE(V5); V6=UPCASE(V6); V7=UPCASE(V7); V8=UPCASE(V8); V10=UPCASE(V10); V11=UPCASE(V11); V12=UPCASE(V12); V1=TRANSLATE(V1,'01','OI'); V2=TRANSLATE(V2,'01','OI'); V3=TRANSLATE(V3,'01','OI'); V4=TRANSLATE(V4,'01','OI'); V5=TRANSLATE(V5,'01','OI'); V6=TRANSLATE(V6,'01','OI'); V7=TRANSLATE(V7,'01','OI'); V8=TRANSLATE(V8,'01','OI'); V11=TRANSLATE(V11,'01','OI'); V12=TRANSLATE(V12,'01','OI'); IF V1='9' AND V2='9' AND V3='9' THEN DELETE; IF V1='0' AND V2='0' AND V3='0' THEN DELETE; IF V1=' ' AND V2=' ' AND V3=' ' THEN DELETE; IF V1='9' AND V2='9' AND V3='9' THEN DELETE; IF V1='0' AND V2='0' AND V3='0' THEN DELETE; IF V1=' ' AND V2=' ' AND V3=' ' THEN DELETE; DUP_YR=0; IF V10='B' THEN DUP_YR=1; ELSE IF V10='C' THEN MY=1982; ELSE IF V10='D' THEN MY=1983; ELSE IF V10='E' THEN MY=1984; ELSE IF V10='F' THEN MY=1985; ELSE IF V10='G' THEN MY=1986; ELSE IF V10='H' THEN MY=1987; ELSE IF V10='J' THEN MY=1988; ELSE IF V10='K' THEN MY=1989; ELSE IF V10='L' THEN MY=1990; ELSE IF V10='M' THEN MY=1991; ELSE IF V10='N' THEN MY=1992; ELSE IF V10='P' THEN MY=1993; ELSE IF V10='R' THEN MY=1994; ELSE IF V10='S' THEN MY=1995; ELSE IF V10='T' THEN MY=1996; ELSE IF V10='V' THEN MY=1997; ELSE IF V10='W' THEN MY=1998; ELSE IF V10='X' THEN MY=1999; ELSE IF V10='Y' THEN MY=2000; ELSE IF V10='1' THEN MY=2001; ELSE IF V10='2' THEN MY=2002; ELSE IF V10='3' THEN MY=2003; ELSE IF V10='4' THEN MY=2004; ELSE IF V10='5' THEN MY=2005; ELSE IF V10='6' THEN MY=2006; ELSE IF V10='7' THEN MY=2007; ELSE IF V10='8' THEN MY=2008; ELSE IF V10='9' THEN MY=2009; ELSE IF V10='A' THEN MY=2010; ELSE DELETE; IF DUP_YR=0 AND MY NE MOD_YEAR THEN DELETE; ELSE IF DUP_YR=1 AND MOD_YEAR=1981 THEN MY=1981; ELSE IF DUP_YR=1 AND MOD_YEAR=2011 THEN MY=2011; IF MY=MOD_YEAR; KEEP V1-V8 V11 V12 CY MY ST_CASE VEH_NO VINA_MOD MAKE MODEL MAK_MOD BODY_TYP MCYCL_DS SER_TR VIN_BT VIN SER_TR; RUN;