OPTION NOCENTER NOFMTERR OBS=5000000 LS=160 PAGESIZE=89; /* PROGRAM NAME: 04LTVJcf2007.SAS UPDATED: 12/20/2010 */ /* THIS PROGRAM DECODES THE VIN FOR 1985-2007 JEEP, CHRSYLER, AND */ /* FORD MODEL PICKUP TRUCKS, VANS, AND SPORT UTILITY VEHICLES. */ DATA JCFTRK2(DROP=V); SET JCFTRK1; IF MAK2 IN (2,3,6,7,9,11,12,13,14); IF MAK2=12 THEN GOTO LTFORD; IF MAK2=7 AND V1='J' THEN GOTO IMPDODGE; IF MAK2=11 THEN GOTO SPRINTER; IF MAK2=7 AND V1 NE 'J' AND V1 NE 'W' THEN GOTO LTDODGE; IF MAK2=2 AND 1985 LE MY LE 1988 THEN GOTO JEEPAMC; IF MAK2=2 AND MY GE 1989 THEN GOTO JEEPCHRY; IF MAK2=9 THEN GOTO LTPLYM; IF MAK2=6 THEN GOTO LTCHRYS; IF MAK2=14 THEN GOTO LTMERC; IF MAK2=13 THEN GOTO LTLINC; IF MAK2=3 THEN GOTO HUMMER; TRKTYP=9; CG=99999; MM2=99999; RETURN; JEEPAMC: V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); IF 1985 LE MY LE 1988 AND V=26 THEN DO; TRKTYP=2; MM2=2217; CG=1202; RETURN; END; IF 1985 LE MY LE 1988 AND V=27 THEN DO; TRKTYP=2; MM2=2227; CG=1202; RETURN; END; IF 1986 LE MY LE 1988 AND V=66 AND V3='T' THEN DO; TRKTYP=1; MM2=2206; CG=1203; RETURN; END; IF 1986 LE MY LE 1988 AND V=65 AND V3='T' THEN DO; TRKTYP=1; MM2=2207; CG=1203; RETURN; END; IF 1987 LE MY LE 1988 AND V=64 AND V3='T' THEN DO; TRKTYP=1; MM2=2200; CG=1204; RETURN; END; IF 1987 LE MY LE 1988 AND V=63 AND V3='T' THEN DO; TRKTYP=1; MM2=2201; CG=1204; RETURN; END; IF MY=1985 AND V=88 AND V3='C' THEN DO; TRKTYP=3; MM2=2331; CG=1301; RETURN; END; IF 1985 LE MY LE 1986 AND (V=87 OR V=89) AND V3='C' THEN DO; TRKTYP=3; MM2=2335; CG=1302; RETURN; END; IF 1985 LE MY LE 1988 AND V=73 AND V3='C' THEN DO; TRKTYP=3; MM2=2300; CG=1303; RETURN; END; IF 1985 LE MY LE 1988 AND V=77 AND V3='C' THEN DO; TRKTYP=3; MM2=2301; CG=1303; RETURN; END; IF 1985 LE MY LE 1988 AND V=74 AND V3='C' THEN DO; TRKTYP=3; MM2=2302; CG=1303; RETURN; END; IF 1985 LE MY LE 1988 AND V=78 AND V3='C' THEN DO; TRKTYP=3; MM2=2303; CG=1303; RETURN; END; IF 1985 LE MY LE 1988 AND V=75 AND V3='C' THEN DO; TRKTYP=3; MM2=2307; CG=1304; RETURN; END; IF 1985 LE MY LE 1988 AND V=15 AND V3='C' THEN DO; TRKTYP=4; MM2=2317; CG=1305; RETURN; END; IF 1987 LE MY LE 1988 AND V=81 AND V1='2' AND V3='C' THEN DO; TRKTYP=3; MM2=2321; CG=1306; RETURN; END; TRKTYP=9; CG=99999; MM2=99999; RETURN; JEEPCHRY: IF MY LE 1998 THEN V5=TRANSLATE(V5,'ZSGB','2568'); IF MY LE 1998 THEN V6=TRANSLATE(V6,'2568','ZSGB'); V4=TRANSLATE(V4,'ZSGB','2568'); V7=TRANSLATE(V7,'2568','ZSGB'); IF 1989 LE MY LE 1992 AND V5='T' AND V1='1' AND V3='7' AND V4='F' AND V7='6' THEN DO; TRKTYP=1; MM2=2200; CG=1205; RETURN; END; IF 1989 LE MY LE 1992 AND V5='J' AND V1='1' AND V3='7' AND V4='F' AND V7='6' THEN DO; TRKTYP=1; MM2=2201; CG=1205; RETURN; END; IF 1989 LE MY LE 1998 AND V5='T' AND V1='1' AND V3='4' AND V4='F' AND V7='7' THEN DO; TRKTYP=3; MM2=2300; CG=1303; RETURN; END; IF 1999 LE MY LE 2000 AND V5 IN ('B','T') AND V1='1' AND V3='4' AND V4='F' AND V7='7' THEN DO; TRKTYP=3; MM2=2300; CG=1303; RETURN; END; IF MY=2001 AND V5='T' AND V1='1' AND V3='4' AND V4='F' AND V7='7' THEN DO; TRKTYP=3; MM2=2300; CG=1303; RETURN; END; IF 1989 LE MY LE 1998 AND V5='J' AND V1='1' AND V3='4' AND V4='F' AND V7='7' THEN DO; TRKTYP=3; MM2=2301; CG=1303; RETURN; END; IF 1999 LE MY LE 2001 AND V5 IN ('F','J','N') AND V1='1' AND V3='4' AND V4='F' AND V7='7' THEN DO; TRKTYP=3; MM2=2301; CG=1303; RETURN; END; IF 1989 LE MY LE 1998 AND V5='T' AND V1='1' AND V3='4' AND V4='F' AND V7='8' THEN DO; TRKTYP=3; MM2=2302; CG=1303; RETURN; END; IF 1999 LE MY LE 2000 AND V5 IN ('B','T') AND V1='1' AND V3='4' AND V4='F' AND V7='8' THEN DO; TRKTYP=3; MM2=2302; CG=1303; RETURN; END; IF MY=2001 AND V5='T' AND V1='1' AND V3='4' AND V4='F' AND V7='8' THEN DO; TRKTYP=3; MM2=2302; CG=1303; RETURN; END; IF 1989 LE MY LE 1998 AND V5='J' AND V1='1' AND V3='4' AND V4='F' AND V7='8' THEN DO; TRKTYP=3; MM2=2303; CG=1303; RETURN; END; IF 1999 LE MY LE 2001 AND V5 IN ('F','J','N') AND V1='1' AND V3='4' AND V4='F' AND V7='8' THEN DO; TRKTYP=3; MM2=2303; CG=1303; RETURN; END; IF 1989 LE MY LE 1992 AND V5='N' AND V1='1' AND V3='4' AND V4='F' AND V7='8' THEN DO; TRKTYP=3; MM2=2307; CG=1304; RETURN; END; IF 1989 LE MY LE 1991 AND V5='S' AND V1='1' AND V3='4' AND V4='G' AND V7='8' THEN DO; TRKTYP=4; MM2=2317; CG=1305; RETURN; END; IF 1989 LE MY LE 1992 AND V5='Y' AND V1='2' AND V3='4' AND V4='F' AND V7='9' THEN DO; TRKTYP=3; MM2=2321; CG=1306; RETURN; END; IF (1993 LE MY LE 1995 OR 1997 LE MY LE 1999) AND V5='Y' AND V1='1' AND V3='4' AND V4='F' AND V7='9' THEN DO; TRKTYP=3; MM2=2321; CG=1306; RETURN; END; IF 2000 LE MY LE 2006 AND V5 IN ('A','4') AND V1='1' AND V3='4' AND V4='F' AND V7='9' THEN DO; TRKTYP=3; MM2=2321; CG=1306; RETURN; END; /* WRANGLER ends 2006 */ IF 1993 LE MY LE 1994 AND V5='W' AND V1='1' AND V3='4' AND (V4='F' OR V4='G') AND (V6='5' OR V6='6' OR V6='7') AND V7='8' THEN DO; TRKTYP=3; MM2=2312; CG=6302; RETURN; END; IF 1993 LE MY LE 1998 AND V5='X' AND V1='1' AND V3='4' AND (V4='E' OR V4='F' OR V4='G') AND (V6 IN ('4','5','6','7','8')) AND V7='8' THEN DO; TRKTYP=3; MM2=2312; CG=6302; RETURN; END; IF 1999 LE MY LE 2001 AND V5='2' AND V1='1' AND V3='4' AND V4 IN ('E','F','G') AND V6 IN ('4','5','6','7','8') AND V7='8' THEN DO; TRKTYP=3; MM2=2312; CG=6302; RETURN; END; IF 2001 LE MY LE 2004 AND V5='X' AND V1='1' AND V3 IN ('4','8') AND V6 IN ('3','4','5','6') AND V7='8' THEN DO; TRKTYP=3; MM2=2312; CG=6302; RETURN; END; IF 1993 LE MY LE 1996 AND V5='Z' AND V1='1' AND V3='4' AND V4 IN ('E','G') AND V6 IN ('5','6','7') AND V7='8' THEN DO; TRKTYP=3; MM2=2313; CG=6302; RETURN; END; IF 1997 LE MY LE 1998 AND V5='Z' AND V1='1' AND V3='4' AND (V4 IN ('E','G')) AND (V6 IN ('4','5','6','7','8')) AND V7='8' THEN DO; TRKTYP=3; MM2=2313; CG=6302; RETURN; END; IF 1999 LE MY LE 2000 AND V5='W' AND V1='1' AND V3='4' AND V4 IN ('E','G') AND V6 IN ('3','4','5','6','7','8') AND V7='8' THEN DO; TRKTYP=3; MM2=2313; CG=6302; RETURN; END; IF 2001 LE MY LE 2004 AND V5='W' AND V1='1' AND V3 IN ('4','8') AND V4 IN ('E','G') AND V6 IN ('3','4','5','6','7','8') AND V7='8' THEN DO; TRKTYP=3; MM2=2313; CG=6302; RETURN; END; IF MY=1993 AND V5='Z' AND V1='1' AND V3='4' AND V4='G' AND V6='8' AND V7='8' THEN DO; TRKTYP=3; MM2=2317; CG=6302; RETURN; END; IF MY GE 2002 AND V5='K' AND V7='8' THEN DO; TRKTYP=3; MM2=2342; CG=6305; RETURN; END; /* LIBERTY */ IF MY GE 2002 AND V5='L' AND V7='8' THEN DO; TRKTYP=3; MM2=2343; CG=6305; RETURN; END; /* LIBERTY 4X4 */ IF 2004 LE MY LE 2006 AND V5 IN ('A','4') AND V1='1' AND V3='4' AND V4='F' AND V7='4' THEN DO; TRKTYP=3; MM2=2321; CG=6308; RETURN; END; /* WRANGLER LWB ends 2006 */ IF 2005 LE MY LE 2006 AND V5='S' AND V3 IN ('4','8') AND V6 IN ('4','5') AND V7='8' THEN DO; TRKTYP=3; MM2=2312; CG=6309; RETURN; END; IF MY GE 2007 AND V5='S' AND V3 IN ('4','8') AND V6 IN ('4','5','6') AND V7='8' THEN DO; TRKTYP=3; MM2=2312; CG=6309; RETURN; END; /* GRAND CHEROKEE */ IF MY=2005 AND V5='R' AND V3 IN ('4','8') AND V6 IN ('4','5') AND V7='8' THEN DO; TRKTYP=3; MM2=2313; CG=6309; RETURN; END; IF MY = 2006 AND V5='R' AND V3 IN ('4','8') AND V6 IN ('4','5','7') AND V7='8' THEN DO; TRKTYP=3; MM2=2313; CG=6309; RETURN; END; IF MY GE 2007 AND V5='R' AND V3 IN ('4','8') AND V6 IN ('4','5','6','7') AND V7='8' THEN DO; TRKTYP=3; MM2=2313; CG=6309; RETURN; END; /* GRAND CHEROKEE 4X4 */ IF MY = 2006 AND V5='H' AND V3 IN ('4','8') AND V6 IN ('4','5') AND V7='8' THEN DO; TRKTYP=3; MM2=2316; CG=6309; RETURN; END; /* COMMANDER */ IF MY = 2006 AND V5='G' AND V3 IN ('4','8') AND V6 IN ('4','5') AND V7='8' THEN DO; TRKTYP=3; MM2=2317; CG=6309; RETURN; END; /* COMMANDER 4X4 */ IF MY GE 2007 AND V5='H' AND V3 IN ('4','8') AND V6 IN ('4','5','6') AND V7='8' THEN DO; TRKTYP=3; MM2=2316; CG=6309; RETURN; END; /* COMMANDER */ IF MY GE 2007 AND V5='G' AND V3 IN ('4','8') AND V6 IN ('5','4') AND V7='8' THEN DO; TRKTYP=3; MM2=2317; CG=6309; RETURN; END; /* COMMANDER 4X4 */ IF MY GE 2007 AND V5 IN ('F','T') AND V3 IN ('4','8') AND V7='7' THEN DO; TRKTYP=3; MM2=2001; CG=6312; RETURN; END; /* COMPASS */ IF MY GE 2007 AND V5 = 'T' AND V3 IN ('4','8') AND V7='8' THEN DO; TRKTYP=3; MM2=2352; CG=6312; RETURN; END; /* PATRIOT */ IF MY GE 2007 AND V5='F' AND V3 IN ('4','8') AND V6 IN ('2','4') AND V7='8' THEN DO; TRKTYP=3; MM2=2353; CG=6312; RETURN; END; /* PATRIOT 4X4 */ /* IN 2007 THEY FLIPPED THE BODY-TYPE CODES FOR WRANGLER: NOW V7=4 IS SWB AND V7=9 IS LWB */ IF MY GE 2007 AND V5 IN ('B') AND V1='1' AND V3 IN ('4','8') AND V4 IN ('F','G') AND V7='4' THEN DO; TRKTYP=3; MM2=2320; CG=6313; RETURN; END; /* WRANGLER 95.4 RWD */ IF MY GE 2007 AND V5 IN ('A') AND V1='1' AND V3 IN ('4','8') AND V4 IN ('F','G') AND V7='4' THEN DO; TRKTYP=3; MM2=2321; CG=6313; RETURN; END; /* WRANGLER 95.4 4X4 */ IF MY GE 2007 AND V5 IN ('B') AND V1='1' AND V3 IN ('4','8') AND V4 IN ('F','G') AND V7='9' THEN DO; TRKTYP=3; MM2=2322; CG=6314; RETURN; END; /* WRANGLER LWB 116.0 RWD */ IF MY GE 2007 AND V5 IN ('A') AND V1='1' AND V3 IN ('4','8') AND V4 IN ('F','G') AND V7='9' THEN DO; TRKTYP=3; MM2=2323; CG=6314; RETURN; END; /* WRANGLER LWB 116.0 4X4 */ TRKTYP=9; CG=99999; MM2=99999; RETURN; HUMMER: V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); IF 1993 LE MY LE 1996 AND V IN (86,87) THEN DO; TRKTYP=4; MM2=3301; CG=3301; RETURN; END; IF MY=1997 AND V IN (86,87,89) THEN DO; TRKTYP=4; MM2=3301; CG=3301; RETURN; END; IF 1998 LE MY LE 2003 AND V=89 THEN DO; TRKTYP=4; MM2=3301; CG=3301; RETURN; END; IF 1993 LE MY LE 1994 AND V IN (83,84) THEN DO; TRKTYP=4; MM2=3303; CG=3301; RETURN; END; IF 1995 LE MY LE 1997 AND V IN (83,84,88,90) THEN DO; TRKTYP=4; MM2=3303; CG=3301; RETURN; END; IF 1998 LE MY LE 1999 AND V IN (83,84,90) THEN DO; TRKTYP=4; MM2=3303; CG=3301; RETURN; END; IF 2000 LE MY LE 2001 AND V IN (83,84,90,91) THEN DO; TRKTYP=4; MM2=3303; CG=3301; RETURN; END; IF 2002 LE MY LE 2004 AND V IN (83,84,90) THEN DO; TRKTYP=4; MM2=3303; CG=3301; RETURN; END; IF MY = 2006 AND V IN (84,90) AND V3='7' THEN DO; TRKTYP=4; MM2=3303; CG=3301; RETURN; END; /* HUMMER H1 4DR */ IF MY GE 2003 AND V5='N' AND V=23 AND V3='R' THEN DO; TRKTYP=4; MM2=3313; CG=18318; RETURN; END; /* HUMMER H2 */ IF MY GE 2005 AND V5='N' AND V=22 AND V3='R' THEN DO; TRKTYP=4; MM2=3317; CG=18318; RETURN; END; /* HUMMER H2 SUT */ IF MY GE 2006 AND V5='N' AND V=13 AND V3='T' THEN DO; TRKTYP=3; MM2=3307; CG=18322; RETURN; END; /* HUMMER H3 */ TRKTYP=9; CG=99999; MM2=99999; RETURN; LTCHRYS: IF MY LE 1998 THEN V5=TRANSLATE(V5,'ZSGB','2568'); IF MY LE 1998 THEN V6=TRANSLATE(V6,'2568','ZSGB'); V4=TRANSLATE(V4,'ZSGB','2568'); V7=TRANSLATE(V7,'256','ZSG'); IF MY=2001 AND V5='Y' AND V3 IN ('A','4','8') AND V7='B' THEN DO; TRKTYP=3; MM2=6052; CG=6304; RETURN; END; IF MY GE 2002 AND V5='Y' AND V3 IN ('4','8') AND V7='8' THEN DO; TRKTYP=3; MM2=6052; CG=6304; RETURN; END; /* PT CRUISER */ IF MY GE 2004 AND V5 IN ('F','M') THEN DO; TRKTYP=4; MM2=6054; CG=6307; RETURN; END; /* PACIFICA FWD & AWD */ IF MY=1990 AND V5='Y' AND V1='1' AND V3='4' AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=6406; CG=6404; RETURN; END; IF MY=1991 AND V5='Y' AND V1='1' AND V3='4' AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=6406; CG=6406; RETURN; END; IF 1992 LE MY LE 1995 AND V5='H' AND V1='1' AND V3='4' AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=6406; CG=6406; RETURN; END; IF 1992 LE MY LE 1995 AND V5='K' AND V1='1' AND V3='4' AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=6407; CG=6406; RETURN; END; IF 1996 LE MY LE 1999 AND V5='P' AND V3='4' AND (V4 IN ('F','G')) AND V7='5' THEN DO; TRKTYP=5; MM2=6402; CG=6407; RETURN; END; IF MY=2000 AND V5='J' AND V3='4' AND (V4 IN ('F','G')) AND V7='5' THEN DO; TRKTYP=5; MM2=6402; CG=6407; RETURN; END; IF 1996 LE MY LE 2000 AND V5='P' AND V3='4' AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=6406; CG=6408; RETURN; END; IF 1997 LE MY LE 2000 AND V5='T' AND V3='4' AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=6407; CG=6408; RETURN; END; IF MY=2000 AND V5='J' AND V3='4' AND V7='4' THEN DO; TRKTYP=5; MM2=6409; CG=6408; RETURN; END; IF 2001 LE MY LE 2004 AND V5='J' AND V3 IN ('4','8') AND V4 IN ('F','G') AND V7='5' THEN DO; TRKTYP=5; MM2=6402; CG=6412; RETURN; END; /* VOYAGER ends 2004 */ IF MY GE 2004 AND V5='P' AND V3 IN ('4','8') AND V4 IN ('F','G') AND V7='5' THEN DO; TRKTYP=5; MM2=6406; CG=6412; RETURN; END; /* TOWN & COUNTRY SWB */ IF MY GE 2007 AND V5='J' AND V3 IN ('4','8') AND V4 IN ('F','G') AND V7='5' THEN DO; TRKTYP=5; MM2=6406; CG=6412; RETURN; END; /* TOWN & COUNTRY SWB */ IF MY GE 2001 AND V5='P' AND V3 IN ('4','8') AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=6406; CG=6413; RETURN; END; /* TOWN & COUNTRY LWB */ IF 2001 LE MY LE 2004 AND V5='T' AND V3 IN ('4','8') AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=6407; CG=6413; RETURN; END; /* T & C AWD ends 2004 */ IF MY GE 2007 AND V5='W' AND V6='5' THEN DO; TRKTYP=4; MM2=6312; CG=6306; RETURN; END; /* ASPEN */ IF MY GE 2007 AND V5='X' AND V6='5' THEN DO; TRKTYP=4; MM2=6313; CG=6306; RETURN; END; /* ASPEN 4X4 */ TRKTYP=9; CG=99999; MM2=99999; RETURN; LTDODGE: IF MY LE 1998 THEN V5=TRANSLATE(V5,'ZSGB','2568'); IF MY LE 1998 THEN V6=TRANSLATE(V6,'2568','ZSGB'); V4=TRANSLATE(V4,'ZSGB','2568'); V7=TRANSLATE(V7,'2568','ZSGB'); IF 1985 LE MY LE 1988 AND V5='D' AND V1='1' AND V3='7' AND (V4='F' OR V4='G' OR V4='H') AND V6='1' AND V7='4' THEN DO; TRKTYP=2; MM2=7210; CG=6201; RETURN; END; IF 1989 LE MY LE 1993 AND V5='E' AND (V1='1' OR V1='3') AND V3='7' AND (V4='F' OR V4='G' OR V4='H') AND V6='1' AND V7='6' THEN DO; TRKTYP=2; MM2=7210; CG=6201; RETURN; END; IF 1985 LE MY LE 1988 AND V5='W' AND V1='1' AND V3='7' AND V4='H' AND V6='1' AND V7='4' THEN DO; TRKTYP=2; MM2=7211; CG=6201; RETURN; END; IF 1989 LE MY LE 1993 AND V5='M' AND (V1='1' OR V1='3') AND V3='7' AND V4='H' AND V6='1' AND V7='6' THEN DO; TRKTYP=2; MM2=7211; CG=6201; RETURN; END; IF 1986 LE MY LE 1988 AND V5='D' AND V1='1' AND V3='7' AND (V4='F' OR V4='G') AND V6='0' AND V7='4' THEN DO; TRKTYP=2; MM2=7218; CG=6201; RETURN; END; IF 1989 LE MY LE 1991 AND V5='E' AND (V1='1' OR V1='3') AND V3='7' AND (V4='F' OR V4='G') AND V6='0' AND V7='6' THEN DO; TRKTYP=2; MM2=7218; CG=6201; RETURN; END; IF 1986 LE MY LE 1988 AND V5='W' AND V1='1' AND V3='7' AND V4='H' AND V6='0' AND V7='4' THEN DO; TRKTYP=2; MM2=7219; CG=6201; RETURN; END; IF 1989 LE MY LE 1991 AND V5='M' AND (V1='1' OR V1='3') AND V3='7' AND V4='H' AND V6='0' AND V7='6' THEN DO; TRKTYP=2; MM2=7219; CG=6201; RETURN; END; IF 1985 LE MY LE 1988 AND V5='D' AND V3 IN ('6','7') AND V4 IN ('H','J','K') AND V6='2' AND V7='4' THEN DO; TRKTYP=2; MM2=7220; CG=6202; RETURN; END; IF 1989 LE MY LE 1993 AND V5='E' AND V3 IN ('6','7') AND V4 IN ('H','J','K') AND V6='2' AND V7='6' THEN DO; TRKTYP=2; MM2=7220; CG=6202; RETURN; END; IF 1985 LE MY LE 1988 AND V5='W' AND V3 IN ('6','7') AND V4 IN ('H','J','K') AND V6='2' AND V7='4' THEN DO; TRKTYP=2; MM2=7221; CG=6202; RETURN; END; IF 1989 LE MY LE 1993 AND V5='M' AND V3 IN ('6','7') AND V4 IN ('H','J','K') AND V6='2' AND V7='6' THEN DO; TRKTYP=2; MM2=7221; CG=6202; RETURN; END; IF 1985 LE MY LE 1988 AND V5='D' AND V3 IN ('6','7') AND V4 IN ('J','K','L','M','W') AND V6='3' AND V7='4' THEN DO; TRKTYP=2; MM2=7230; CG=6202; RETURN; END; IF 1989 LE MY LE 1993 AND V5='E' AND V3 IN ('6','7') AND V4 IN ('K','L','M') AND V6='3' AND V7='6' THEN DO; TRKTYP=2; MM2=7230; CG=6202; RETURN; END; IF 1985 LE MY LE 1988 AND V5='W' AND V3 IN ('6','7') AND (V4 IN ('J','K','L','M','W')) AND V6='3' AND V7='4' THEN DO; TRKTYP=2; MM2=7231; CG=6202; RETURN; END; IF 1989 LE MY LE 1993 AND V5='M' AND V3 IN ('6','7') AND V4 IN ('K','L','M') AND V6='3' AND V7='6' THEN DO; TRKTYP=2; MM2=7231; CG=6202; RETURN; END; IF MY=1985 AND V5='D' AND V1='1' AND V3 IN ('6','7') AND V4 IN ('K','L','M') AND V6='3' AND (V7='5' OR V7='6') THEN DO; TRKTYP=2; MM2=7234; CG=6203; RETURN; END; IF MY=1985 AND V5='W' AND V1='1' AND V3 IN ('6','7') AND V4 IN ('K','L','M') AND V6='3' AND (V7='5' OR V7='6') THEN DO; TRKTYP=2; MM2=7235; CG=6203; RETURN; END; IF 1987 LE MY LE 1988 AND V5='N' AND V1='1' AND V3='7' AND (V4='E' OR V4='F' OR V4='G') AND (V6='1' OR V6='6') AND V7='4' THEN DO; TRKTYP=1; MM2=7200; CG=6204; RETURN; END; IF 1989 LE MY LE 1996 AND V5='L' AND V1='1' AND V3 IN ('6','7') AND (V4='E' OR V4='F' OR V4='G' OR V4='H') AND (V7='6' OR V7='9') THEN DO; TRKTYP=1; MM2=7200; CG=6204; RETURN; END; IF 1987 LE MY LE 1988 AND V5='R' AND V1='1' AND V3='7' AND (V4='F' OR V4='G') AND (V6='1' OR V6='6') AND V7='4' THEN DO; TRKTYP=1; MM2=7201; CG=6204; RETURN; END; IF 1989 LE MY LE 1996 AND V5='G' AND V1='1' AND V3='7' AND (V4='F' OR V4='G' OR V4='H') AND (V7='6' OR V7='9') THEN DO; TRKTYP=1; MM2=7201; CG=6204; RETURN; END; IF 1990 LE MY LE 1993 AND V5='E' AND (V1='1' OR V1='3') AND V3='7' AND (V4='F' OR V4='G' OR V4='H') AND V6='1' AND V7='3' THEN DO; TRKTYP=2; MM2=7212; CG=6205; RETURN; END; IF 1990 LE MY LE 1993 AND V5='M' AND (V1='1' OR V1='3') AND V3='7' AND (V4='F' OR V4='G' OR V4='H') AND V6='1' AND V7='3' THEN DO; TRKTYP=2; MM2=7213; CG=6205; RETURN; END; IF 1990 LE MY LE 1993 AND V5='E' AND (V1='1' OR V1='3') AND V3 IN ('6','7') AND V4 IN ('H','J','K') AND V6='2' AND V7='3' THEN DO; TRKTYP=2; MM2=7222; CG=6205; RETURN; END; IF 1990 LE MY LE 1993 AND V5='M' AND (V1='1' OR V1='3') AND V3 IN ('6','7') AND V4 IN ('H','J','K') AND V6='2' AND V7='3' THEN DO; TRKTYP=2; MM2=7223; CG=6205; RETURN; END; IF 1990 LE MY LE 1993 AND V5='E' AND V1='3' AND V3 IN ('6','7') AND V4='M' AND V7='3' THEN DO; TRKTYP=2; MM2=7232; CG=6205; RETURN; END; IF 1990 LE MY LE 1993 AND V5='M' AND V1='3' AND V3 IN ('6','7') AND V4='M' AND V7='3' THEN DO; TRKTYP=2; MM2=7233; CG=6205; RETURN; END; IF 1990 LE MY LE 1996 AND V5='L' AND V1='1' AND V3='7' AND (V4='F' OR V4='G') AND V7='3' THEN DO; TRKTYP=1; MM2=7202; CG=6206; RETURN; END; IF 1991 LE MY LE 1996 AND V5='G' AND V1='1' AND V3 IN ('6','7') AND (V4='F' OR V4='G') AND V7='3' THEN DO; TRKTYP=1; MM2=7203; CG=6206; RETURN; END; IF 1994 LE MY LE 2001 AND V5='C' AND V6='1' AND V3='7' AND V7='6' THEN DO; TRKTYP=2; MM2=7210; CG=6207; RETURN; END; IF 1994 LE MY LE 2001 AND V5='F' AND V6='1' AND V3='7' AND V7='6' THEN DO; TRKTYP=2; MM2=7211; CG=6207; RETURN; END; IF 1994 LE MY LE 2002 AND V5='C' AND V6='2' AND V3 IN ('6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7220; CG=6208; RETURN; END; IF 1994 LE MY LE 2002 AND V5='F' AND V6='2' AND V3 IN ('6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7221; CG=6208; RETURN; END; IF 1994 LE MY LE 2002 AND V5='C' AND V6='3' AND V3 IN ('6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7230; CG=6208; RETURN; END; IF 1994 LE MY LE 2002 AND V5='F' AND V6='3' AND V3 IN ('6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7231; CG=6208; RETURN; END; IF 1995 LE MY LE 1997 AND V5='C' AND V6='1' AND V3='7' AND V7='3' THEN DO; TRKTYP=2; MM2=7212; CG=6209; RETURN; END; /* STARTING IN 1998, QUAD CAB IS V7=3 AND CLUB CAB IS V7=2 */ IF 1998 LE MY LE 2001 AND V5='C' AND V6='1' AND V3 IN ('6','7') AND V7='2' THEN DO; TRKTYP=2; MM2=7212; CG=6209; RETURN; END; IF 1995 LE MY LE 1997 AND V5='F' AND V6='1' AND V3 IN ('6','7') AND V7='3' THEN DO; TRKTYP=2; MM2=7213; CG=6209; RETURN; END; IF 1998 LE MY LE 2001 AND V5='F' AND V6='1' AND V3 IN ('6','7') AND V7='2' THEN DO; TRKTYP=2; MM2=7213; CG=6209; RETURN; END; IF 1998 LE MY LE 2001 AND V5='C' AND V6='1' AND V3 IN ('6','7') AND V7='3' THEN DO; TRKTYP=2; MM2=7214; CG=6209; RETURN; END; IF 1998 LE MY LE 2001 AND V5='F' AND V6='1' AND V3 IN ('6','7') AND V7='3' THEN DO; TRKTYP=2; MM2=7215; CG=6209; RETURN; END; IF 1995 LE MY LE 1997 AND V5='C' AND V6='2' AND V3 IN ('6','7') AND V7='3' THEN DO; TRKTYP=2; MM2=7222; CG=6209; RETURN; END; IF 1998 LE MY LE 1999 AND V5='C' AND V6='2' AND V3 IN ('6','7') AND V7='2' THEN DO; TRKTYP=2; MM2=7222; CG=6209; RETURN; END; IF 1995 LE MY LE 1997 AND V5='F' AND V6='2' AND V3 IN ('6','7') AND V7='3' THEN DO; TRKTYP=2; MM2=7223; CG=6209; RETURN; END; IF 1998 LE MY LE 1999 AND V5='F' AND V6='2' AND V3 IN ('6','7') AND V7='2' THEN DO; TRKTYP=2; MM2=7223; CG=6209; RETURN; END; IF 1998 LE MY LE 2002 AND V5='C' AND V6='2' AND V3 IN ('6','7') AND V7='3' THEN DO; TRKTYP=2; MM2=7224; CG=6209; RETURN; END; IF 1998 LE MY LE 2002 AND V5='F' AND V6='2' AND V3 IN ('6','7') AND V7='3' THEN DO; TRKTYP=2; MM2=7225; CG=6209; RETURN; END; IF 1995 LE MY LE 1997 AND V5='C' AND V6='3' AND V3 IN ('6','7') AND V7='3' THEN DO; TRKTYP=2; MM2=7232; CG=6209; RETURN; END; IF MY=1998 AND V5='C' AND V6='3' AND V3 IN ('6','7') AND V7='2' THEN DO; TRKTYP=2; MM2=7232; CG=6209; RETURN; END; IF 1995 LE MY LE 1997 AND V5='F' AND V6='3' AND V3 IN ('6','7') AND V7='3' THEN DO; TRKTYP=2; MM2=7233; CG=6209; RETURN; END; IF MY=1998 AND V5='F' AND V6='3' AND V3 IN ('6','7') AND V7='2' THEN DO; TRKTYP=2; MM2=7233; CG=6209; RETURN; END; IF 1998 LE MY LE 2002 AND V5='C' AND V6='3' AND V3 IN ('6','7') AND V7='3' THEN DO; TRKTYP=2; MM2=7234; CG=6209; RETURN; END; IF 1998 LE MY LE 2002 AND V5='F' AND V6='3' AND V3 IN ('6','7') AND V7='3' THEN DO; TRKTYP=2; MM2=7235; CG=6209; RETURN; END; IF 1997 LE MY LE 2004 AND V5='L' AND V1='1' AND V3 IN ('6','7') AND V4 IN ('E','F','G','H') AND V7 IN ('6','9') THEN DO; TRKTYP=1; MM2=7200; CG=6210; RETURN; END; IF 1997 LE MY LE 2004 AND V5='G' AND V1='1' AND V3 IN ('6','7') AND V4 IN ('F','G','H') AND V7 IN ('6','9') THEN DO; TRKTYP=1; MM2=7201; CG=6210; RETURN; END; IF MY=1997 AND V5='L' AND V1='1' AND V3='7' AND V4 IN ('F','G') AND V7='3' THEN DO; TRKTYP=1; MM2=7202; CG=6211; RETURN; END; IF 1998 LE MY LE 2004 AND V5='L' AND V1='1' AND V3='7' AND V4 IN ('F','G','H') AND V7 IN ('2','3') THEN DO; TRKTYP=1; MM2=7202; CG=6211; RETURN; END; IF MY=1997 AND V5='G' AND V1='1' AND V3 IN ('6','7') AND V4 IN ('F','G') AND V7='3' THEN DO; TRKTYP=1; MM2=7203; CG=6211; RETURN; END; IF 1998 LE MY LE 2004 AND V5='G' AND V1='1' AND V3='7' AND V4 IN ('F','G','H') AND V7 IN ('2','3') THEN DO; TRKTYP=1; MM2=7203; CG=6211; RETURN; END; IF 2000 LE MY LE 2001 AND V5='L' AND V1='1' AND V3='7' AND V4 IN ('G','H') AND V7='A' THEN DO; TRKTYP=1; MM2=7204; CG=6211; RETURN; END; IF 2002 LE MY LE 2004 AND V5='L' AND V1='1' AND V3='7' AND V4 IN ('G','H') AND V7='8' THEN DO; TRKTYP=1; MM2=7204; CG=6211; RETURN; END; IF 2000 LE MY LE 2001 AND V5='G' AND V1='1' AND V3 IN ('6','7') AND V4 IN ('G','H') AND V7='A' THEN DO; TRKTYP=1; MM2=7205; CG=6211; RETURN; END; IF 2002 LE MY LE 2004 AND V5='G' AND V1='1' AND V3 IN ('6','7') AND V4 IN ('G','H') AND V7='8' THEN DO; TRKTYP=1; MM2=7205; CG=6211; RETURN; END; IF 2002 LE MY LE 2006 AND V5 IN ('A','C') AND V6='1' AND V3 IN ('3','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7210; CG=6212; RETURN; END; /* 1500 REGULAR CAB */ IF 2002 LE MY LE 2006 AND V5 IN ('U','F') AND V6='1' AND V3 IN ('3','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7211; CG=6212; RETURN; END; /* 1500 REGULAR CAB 4x4 */ IF MY GE 2007 AND V5 IN ('A','R') AND V6='1' AND V3 IN ('3','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7210; CG=6212; RETURN; END; /* 1500 REGULAR CAB */ IF MY GE 2007 AND V5 IN ('U','S') AND V6='1' AND V3 IN ('3','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7211; CG=6212; RETURN; END; /* 1500 REGULAR CAB 4x4 */ IF 2002 LE MY LE 2004 AND V5='A' AND V6='2' AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7220; CG=6213; RETURN; END; IF 2005 LE MY LE 2006 AND V5 IN ('A','R') AND V6 IN ('1','2') AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7220; CG=6213; RETURN; END; /* 2500 REGULAR CAB */ IF MY GE 2007 AND V5 = 'R' AND V6 IN ('1','2') AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7220; CG=6213; RETURN; END; /* 2500 REGULAR CAB */ IF 2002 LE MY LE 2004 AND V5='U' AND V6='2' AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7221; CG=6213; RETURN; END; IF 2005 LE MY LE 2006 AND V5 IN ('S','U') AND V6='2' AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7221; CG=6213; RETURN; END; /* 2500 REGULAR CAB 4X4 */ IF MY GE 2007 AND V5 IN ('S','U') AND V6 IN ('1','2') AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7221; CG=6213; RETURN; END; /* 2500 REGULAR CAB 4X4 */ IF 2002 LE MY LE 2004 AND V5='A' AND V6='3' AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7230; CG=6213; RETURN; END; IF MY=2005 AND V5 IN ('A','R') AND V6='3' AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7230; CG=6213; RETURN; END; IF MY = 2006 AND V5 IN ('A','L','R') AND V6='3' AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7230; CG=6213; RETURN; END; /* 3500 REGULAR CAB */ IF MY GE 2007 AND V5 IN ('L','R') AND V6 IN ('3','4') AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7230; CG=6213; RETURN; END; /* 3500 REGULAR CAB */ IF 2002 LE MY LE 2004 AND V5='U' AND V6='3' AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7231; CG=6213; RETURN; END; IF MY=2005 AND V5 IN ('S','U') AND V6='3' AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7231; CG=6213; RETURN; END; IF MY = 2006 AND V5 IN ('S','U','X') AND V6='3' AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7231; CG=6213; RETURN; END; /* 3500 REGULAR CAB 4X4 */ IF MY GE 2007 AND V5 IN ('S','X') AND V6 IN ('3','4') AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7231; CG=6213; RETURN; END; /* 3500 REGULAR CAB 4X4 */ IF 2003 LE MY LE 2004 AND V5='A' AND V6='4' AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7236; CG=6213; RETURN; END; IF MY=2005 AND V5 IN ('A','R') AND V6='4' AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7236; CG=6213; RETURN; END; IF MY = 2006 AND V5 IN ('A','L','R') AND V6='4' AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7236; CG=6213; RETURN; END; /* 3500 REGULAR DRW */ IF MY GE 2007 AND V5 IN ('L','R','G') AND V6='4' AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7236; CG=6213; RETURN; END; /* 3500 REGULAR DRW */ IF 2003 LE MY LE 2004 AND V5='U' AND V6='4' AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7237; CG=6213; RETURN; END; IF MY=2005 AND V5 IN ('S','U') AND V6='4' AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7237; CG=6213; RETURN; END; IF MY = 2006 AND V5 IN ('S','U','X') AND V6='4' AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7237; CG=6213; RETURN; END; /* 3500 REGULAR DRW 4X4 */ IF MY GE 2007 AND V5 IN ('H','S','X') AND V6='4' AND V3 IN ('2','3','6','7') AND V7='6' THEN DO; TRKTYP=2; MM2=7237; CG=6213; RETURN; END; /* 3500 REGULAR DRW 4X4 */ IF MY GE 2002 AND V5 IN ('A','R') AND V6='1' AND V3 IN ('3','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7214; CG=6214; RETURN; END; /* 1500 QUAD CAB */ IF MY GE 2002 AND V5 IN ('U','S') AND V6='1' AND V3 IN ('3','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7215; CG=6214; RETURN; END; /* 1500 QUAD CAB 4X4 */ IF 2002 LE MY LE 2004 AND V5='A' AND V6='2' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7224; CG=6214; RETURN; END; IF 2005 LE MY LE 2006 AND V5 IN ('A','R') AND V6='2' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7224; CG=6214; RETURN; END; IF MY GE 2007 AND V5 = 'R' AND V6='2' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7224; CG=6214; RETURN; END; /* 2500 QUAD CAB */ IF 2002 LE MY LE 2004 AND V5='U' AND V6='2' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7225; CG=6214; RETURN; END; IF 2005 LE MY LE 2006 AND V5 IN ('S','U') AND V6='2' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7225; CG=6214; RETURN; END; /* 2500 QUAD CAB 4X4 */ IF MY GE 2007 AND V5 = 'S' AND V6='2' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7225; CG=6214; RETURN; END; /* 2500 QUAD CAB 4X4 */ IF 2002 LE MY LE 2004 AND V5='A' AND V6='3' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7234; CG=6214; RETURN; END; IF MY=2005 AND V5 IN ('A','R') AND V6='3' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7234; CG=6214; RETURN; END; IF MY = 2006 AND V5 IN ('A','L','R') AND V6='3' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7234; CG=6214; RETURN; END; /* 3500 QUAD CAB */ IF MY GE 2007 AND V5 IN ('L','R') AND V6='3' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7234; CG=6214; RETURN; END; /* 3500 QUAD CAB */ IF 2002 LE MY LE 2004 AND V5='U' AND V6='3' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7235; CG=6214; RETURN; END; IF MY=2005 AND V5 IN ('S','U') AND V6='3' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7235; CG=6214; RETURN; END; IF MY = 2006 AND V5 IN ('S','U','X') AND V6='3' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7235; CG=6214; RETURN; END; /* 3500 QUAD CAB 4X4 */ IF MY GE 2007 AND V5 IN ('S','X') AND V6='3' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7235; CG=6214; RETURN; END; /* 3500 QUAD CAB 4X4 */ IF 2003 LE MY LE 2004 AND V5='A' AND V6='4' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7238; CG=6214; RETURN; END; IF MY=2005 AND V5 IN ('A','R') AND V6='4' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7238; CG=6214; RETURN; END; IF MY = 2006 AND V5 IN ('A','L','R') AND V6='4' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7238; CG=6214; RETURN; END; /* 3500 QUAD DRW */ IF MY GE 2007 AND V5 IN ('G','L','R') AND V6='4' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8','9') THEN DO; TRKTYP=2; MM2=7238; CG=6214; RETURN; END; /* 3500 QUAD DRW */ IF 2003 LE MY LE 2004 AND V5='U' AND V6='4' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7239; CG=6214; RETURN; END; IF MY=2005 AND V5 IN ('S','U') AND V6='4' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7239; CG=6214; RETURN; END; IF MY = 2006 AND V5 IN ('S','U','X') AND V6='4' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8') THEN DO; TRKTYP=2; MM2=7239; CG=6214; RETURN; END; /* 3500 QUAD DRW 4X4 */ IF MY GE 2007 AND V5 IN ('H','S','X') AND V6='4' AND V3 IN ('2','3','6','7') AND V7 IN ('3','8','9') THEN DO; TRKTYP=2; MM2=7239; CG=6214; RETURN; END; /* 3500 QUAD DRW 4X4 */ IF MY GE 2005 AND V5='E' AND V7='2' THEN DO; TRKTYP=1; MM2=7202; CG=6215; RETURN; END; /* DAKOTA CLUB */ IF MY GE 2005 AND V5='W' AND V7='2' THEN DO; TRKTYP=1; MM2=7203; CG=6215; RETURN; END; /* DAKOTA CLUB 4X4 */ IF MY GE 2005 AND V5='E' AND V7='8' THEN DO; TRKTYP=1; MM2=7204; CG=6215; RETURN; END; /* DAKOTA QUAD */ IF MY GE 2005 AND V5='W' AND V7='8' THEN DO; TRKTYP=1; MM2=7205; CG=6215; RETURN; END; /* DAKOTA QUAD 4X4 */ IF MY GE 2006 AND V5 IN ('A','R') AND V6='1' AND V3 IN ('3','7') AND V7='9' THEN DO; TRKTYP=2; MM2=7214; CG=6219; RETURN; END; /* 1500 MEGA CAB */ IF MY GE 2006 AND V5 IN ('U','S') AND V6='1' AND V3 IN ('3','7') AND V7='9' THEN DO; TRKTYP=2; MM2=7215; CG=6219; RETURN; END; /* 1500 MEGA CAB 4X4 */ IF MY = 2006 AND V5 IN ('A','R') AND V6='2' AND V3 IN ('2','3','6','7') AND V7='9' THEN DO; TRKTYP=2; MM2=7224; CG=6219; RETURN; END; /* 2500 MEGA CAB */ IF MY GE 2007 AND V5 = 'R' AND V6='2' AND V3 IN ('2','3','6','7') AND V7='9' THEN DO; TRKTYP=2; MM2=7224; CG=6219; RETURN; END; /* 2500 MEGA CAB */ IF MY = 2006 AND V5 IN ('S','U') AND V6='2' AND V3 IN ('2','3','6','7') AND V7='9' THEN DO; TRKTYP=2; MM2=7225; CG=6219; RETURN; END; /* 2500 MEGA CAB 4X4 */ IF MY GE 2007 AND V5 = 'S' AND V6='2' AND V3 IN ('2','3','6','7') AND V7='9' THEN DO; TRKTYP=2; MM2=7225; CG=6219; RETURN; END; /* 2500 MEGA CAB 4X4 */ IF MY GE 2006 AND V5 IN ('A','L','R') AND V6='3' AND V3 IN ('2','3','6','7') AND V7='9' THEN DO; TRKTYP=2; MM2=7234; CG=6219; RETURN; END; /* 3500 MEGA CAB */ IF MY GE 2006 AND V5 IN ('S','U','X') AND V6='3' AND V3 IN ('2','3','6','7') AND V7='9' THEN DO; TRKTYP=2; MM2=7235; CG=6219; RETURN; END; /* 3500 MEGA CAB 4X4 */ IF MY GE 2006 AND V5 IN ('A','L','R') AND V6='4' AND V3 IN ('2','3','6','7') AND V7='9' THEN DO; TRKTYP=2; MM2=7238; CG=6219; RETURN; END; /* 3500 MEGA CAB DRW */ IF MY GE 2006 AND V5 IN ('S','U','X') AND V6='4' AND V3 IN ('2','3','6','7') AND V7='9' THEN DO; TRKTYP=2; MM2=7239; CG=6219; RETURN; END; /* 3500 MEGA CAB 4X4 DRW */ IF 1985 LE MY LE 1988 AND V5='D' AND (V1='1' OR V1='3') AND V3='4' AND V4='G' AND (V6='0' OR V6='1') AND V7='2' THEN DO; TRKTYP=4; MM2=7320; CG=6301; RETURN; END; IF 1989 LE MY LE 1993 AND V5='E' AND V1='3' AND V3='4' AND V4 IN ('G','H') AND V7='7' THEN DO; TRKTYP=4; MM2=7320; CG=6301; RETURN; END; IF 1985 LE MY LE 1988 AND V5='W' AND (V1='1' OR V1='3') AND V3='4' AND (V4='G' OR V4='H') AND (V6='0' OR V6='1') AND V7='2' THEN DO; TRKTYP=4; MM2=7321; CG=6301; RETURN; END; IF 1989 LE MY LE 1993 AND V5='M' AND V1='3' AND V3='4' AND (V4='G' OR V4='H') AND V7='7' THEN DO; TRKTYP=4; MM2=7321; CG=6301; RETURN; END; IF 1999 LE MY LE 2001 AND V5='R' AND V6='2' AND V3='4' AND V7='8' THEN DO; TRKTYP=4; MM2=7312; CG=6303; RETURN; END; IF 2002 LE MY LE 2003 AND V5='R' AND V6 IN ('3','4','5','7') AND V3 IN ('4','8') AND V7='8' THEN DO; TRKTYP=4; MM2=7312; CG=6303; RETURN; END; IF 1998 LE MY LE 2001 AND V5='S' AND V6='2' AND V3='4' AND V7='8' THEN DO; TRKTYP=4; MM2=7313; CG=6303; RETURN; END; IF 2002 LE MY LE 2003 AND V5='S' AND V6 IN ('3','4','5','7') AND V3 IN ('4','8') AND V7='8' THEN DO; TRKTYP=4; MM2=7313; CG=6303; RETURN; END; IF MY GE 2004 AND V5='D' AND V6 IN ('3','4','5') AND V3 IN ('4','8') AND V7='8' THEN DO; TRKTYP=4; MM2=7312; CG=6306; RETURN; END; /* DURANGO */ IF MY GE 2004 AND V5='B' AND V6 IN ('3','4','5') AND V3 IN ('4','8') AND V7='8' THEN DO; TRKTYP=4; MM2=7313; CG=6306; RETURN; END; /* DURANGO 4X4 */ IF MY=2005 AND V5 IN ('V','Z') AND V6 IN ('4','5') THEN DO; TRKTYP=3; MM2=7021; CG=6310; RETURN; END; IF MY GE 2006 AND V5 IN ('V','Z') AND V6 IN ('4','5','7') THEN DO; TRKTYP=3; MM2=7021; CG=6310; RETURN; END; /* MAGNUM */ IF MY GE 2007 AND V5 = 'T' AND V6 IN ('C','5','2') THEN DO; TRKTYP=3; MM2=7342; CG=6311; RETURN; END; /* NITRO */ IF MY GE 2007 AND V5 = 'U' AND V6 IN ('C','E','5','2') THEN DO; TRKTYP=3; MM2=7343; CG=6311; RETURN; END; /* NITRO 4X4 */ IF 1985 LE MY LE 1988 AND V5='K' AND V1='2' AND (V3='6' OR V3='7') AND (V4='E' OR V4='F' OR V4='G') AND V7='3' THEN DO; TRKTYP=5; MM2=7400; CG=6401; RETURN; END; IF 1989 LE MY LE 1990 AND V5='K' AND V1='2' AND (V3='6' OR V3='7') AND (V4='E' OR V4='F' OR V4='G') AND V7='1' THEN DO; TRKTYP=5; MM2=7400; CG=6401; RETURN; END; IF 1985 LE MY LE 1988 AND V5='K' AND V1='2' AND V3='4' AND (V4='E' OR V4='F') AND V7='1' THEN DO; TRKTYP=5; MM2=7402; CG=6401; RETURN; END; IF MY=1987 AND V5='K' AND V1='1' AND V3='4' AND (V4='E' OR V4='F') AND V7='1' THEN DO; TRKTYP=5; MM2=7402; CG=6401; RETURN; END; IF 1989 LE MY LE 1990 AND V5='K' AND V1='2' AND V3='4' AND (V4='E' OR V4='F') AND V7='5' THEN DO; TRKTYP=5; MM2=7402; CG=6401; RETURN; END; IF 1985 LE MY LE 1988 AND V5='B' AND V1='2' AND (((V3='6' OR V3='7') AND (V4='F' OR V4='G')) OR (V3='5' AND V4='W')) AND V6='1' AND V7='3' THEN DO; TRKTYP=6; MM2=7410; CG=6402; RETURN; END; IF 1989 LE MY LE 1997 AND V5='B' AND V1='2' AND V6='1' AND V7='1' AND (((V3='6' OR V3='7') AND (V4='F' OR V4='G' OR V4='H')) OR (V3='5' AND V4='W')) THEN DO; TRKTYP=6; MM2=7410; CG=6402; RETURN; END; IF 1985 LE MY LE 1988 AND V5='B' AND V1='2' AND V3='4' AND (V4='F' OR V4='G' OR V4='H') AND V6='1' AND V7='1' THEN DO; TRKTYP=6; MM2=7412; CG=6402; RETURN; END; IF 1989 LE MY LE 1997 AND V5='B' AND V1='2' AND V3='4' AND (V4='F' OR V4='G' OR V4='H') AND V6='1' AND V7='5' THEN DO; TRKTYP=6; MM2=7412; CG=6402; RETURN; END; IF 1985 LE MY LE 1988 AND V5='B' AND V1='2' AND V6='2' AND V7='3' AND (((V3='6' OR V3='7') AND V4='H') OR (V3='5' AND V4='W')) THEN DO; TRKTYP=6; MM2=7420; CG=6402; RETURN; END; IF 1989 LE MY LE 1997 AND V5='B' AND V1='2' AND V6='2' AND V7='1' AND (((V3='6' OR V3='7') AND V4='H') OR (V3='5' AND V4='W')) THEN DO; TRKTYP=6; MM2=7420; CG=6402; RETURN; END; IF 1985 LE MY LE 1988 AND V5='B' AND V1='2' AND V3='4' AND V4='H' AND V6='2' AND V7='1' THEN DO; TRKTYP=6; MM2=7422; CG=6403; RETURN; END; IF 1989 LE MY LE 1997 AND V5='B' AND V1='2' AND V3='4' AND V4='H' AND V6='2' AND V7='5' THEN DO; TRKTYP=6; MM2=7422; CG=6403; RETURN; END; IF 1985 LE MY LE 1988 AND V5='B' AND V1='2' AND (V3='6' OR V3='7') AND (V4='J' OR V4='K') AND V6='3' AND V7='3' THEN DO; TRKTYP=6; MM2=7430; CG=6403; RETURN; END; IF 1989 LE MY LE 1997 AND V5='B' AND V1='2' AND (V3='6' OR V3='7') AND (V4='J' OR V4='K') AND V6='3' AND V7='1' THEN DO; TRKTYP=6; MM2=7430; CG=6403; RETURN; END; IF 1985 LE MY LE 1988 AND V5='B' AND V1='2' AND ((V3='4' AND V4 IN ('H','K','J','W')) OR (V3='5' AND V4='W')) AND V6='3' AND V7='1' THEN DO; TRKTYP=6; MM2=7432; CG=6403; RETURN; END; IF 1989 LE MY LE 1997 AND V5='B' AND V1='2' AND ((V3='4' AND V4 IN ('H','K','J','W')) OR (V3='5' AND V4='W')) AND V6='3' AND (V7='5' OR V7='1') THEN DO; TRKTYP=6; MM2=7432; CG=6403; RETURN; END; IF MY=1988 AND V5='K' AND V1='1' AND (V3='6' OR V3='7') AND (V4='E' OR V4='F' OR V4='G') AND V7='3' THEN DO; TRKTYP=5; MM2=7404; CG=6404; RETURN; END; IF 1989 LE MY LE 1990 AND V5='K' AND V1='1' AND (V3='6' OR V3='7') AND (V4='E' OR V4='F' OR V4='G') AND V7='4' THEN DO; TRKTYP=5; MM2=7404; CG=6404; RETURN; END; IF MY=1988 AND V5='K' AND V1='1' AND V3='4' AND (V4='F' OR V4='G') AND V7='0' THEN DO; TRKTYP=5; MM2=7406; CG=6404; RETURN; END; IF 1989 LE MY LE 1990 AND V5='K' AND V1='1' AND V3='4' AND (V4='F' OR V4='G') AND V7='4' THEN DO; TRKTYP=5; MM2=7406; CG=6404; RETURN; END; IF MY=1991 AND V5='K' AND V1='2' AND V3 IN ('6','7') AND (V4='F' OR V4='G') AND V7='1' THEN DO; TRKTYP=5; MM2=7400; CG=6405; RETURN; END; IF 1992 LE MY LE 1995 AND V5='H' AND V1='2' AND V3 IN ('6','7') AND (V4='F' OR V4='G') AND V7='1' THEN DO; TRKTYP=5; MM2=7400; CG=6405; RETURN; END; IF MY=1991 AND V5='D' AND V1='2' AND V3 IN ('6','7') AND V4='G' AND V7='1' THEN DO; TRKTYP=5; MM2=7401; CG=6405; RETURN; END; IF MY=1992 AND V5='K' AND V1='2' AND V3 IN ('6','7') AND V4='G' AND V7='1' THEN DO; TRKTYP=5; MM2=7401; CG=6405; RETURN; END; IF MY=1991 AND V5='K' AND V1='2' AND V3='4' AND (V4='F' OR V4='G') AND V7='5' THEN DO; TRKTYP=5; MM2=7402; CG=6405; RETURN; END; IF 1992 LE MY LE 1995 AND V5='H' AND V1='2' AND V3='4' AND (V4='F' OR V4='G') AND V7='5' THEN DO; TRKTYP=5; MM2=7402; CG=6405; RETURN; END; IF MY=1991 AND V5='D' AND V1='2' AND V3='4' AND V4='G' AND V7='5' THEN DO; TRKTYP=5; MM2=7403; CG=6405; RETURN; END; IF 1992 LE MY LE 1993 AND V5='K' AND V1='2' AND V3='4' AND V4='G' AND V7='5' THEN DO; TRKTYP=5; MM2=7403; CG=6405; RETURN; END; IF MY=1991 AND V5='K' AND V1='1' AND V3 IN ('6','7') AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=7404; CG=6406; RETURN; END; IF 1992 LE MY LE 1995 AND V5='H' AND V1='1' AND V3 IN ('6','7') AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=7404; CG=6406; RETURN; END; IF MY=1991 AND V5='D' AND V1='1' AND V3 IN ('6','7') AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=7405; CG=6406; RETURN; END; IF MY=1992 AND V5='K' AND V1='1' AND V3 IN ('6','7') AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=7405; CG=6406; RETURN; END; IF MY=1991 AND V5='K' AND V1='1' AND V3='4' AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=7406; CG=6406; RETURN; END; IF 1992 LE MY LE 1995 AND V5='H' AND V1='1' AND V3='4' AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=7406; CG=6406; RETURN; END; IF MY=1991 AND V5='D' AND V1='1' AND V3='4' AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=7407; CG=6406; RETURN; END; IF 1992 LE MY LE 1995 AND V5='K' AND V1='1' AND V3='4' AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=7407; CG=6406; RETURN; END; IF 1996 LE MY LE 2000 AND V5='P' AND V3='4' AND (V4 IN ('F','G')) AND V7='5' THEN DO; TRKTYP=5; MM2=7402; CG=6407; RETURN; END; IF 1996 LE MY LE 2000 AND V5='P' AND V3='4' AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=7406; CG=6408; RETURN; END; IF 1997 LE MY LE 2000 AND V5='T' AND V3='4' AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=7407; CG=6408; RETURN; END; /* CGP=6409 RESERVED FOR CHRYSLER TOWN & COUNTRY WHERE POLK DOES NOT DISTINGUISH CG */ IF 1998 LE MY LE 2003 AND V5='B' AND V1='2' AND V6='1' AND V7='1' AND (((V3='6' OR V3='7') AND (V4='F' OR V4='G' OR V4='H')) OR (V3 IN ('5','6') AND V4='W')) THEN DO; TRKTYP=6; MM2=7410; CG=6410; RETURN; END; IF 1998 LE MY LE 2003 AND V5='B' AND V1='2' AND V3='4' AND (V4='F' OR V4='G' OR V4='H') AND V6='1' AND V7='5' THEN DO; TRKTYP=6; MM2=7412; CG=6410; RETURN; END; IF 1998 LE MY LE 2003 AND V5='B' AND V1='2' AND V6='2' AND V7='1' AND (((V3='6' OR V3='7') AND V4='J') OR (V3='5' AND V4='W')) THEN DO; TRKTYP=6; MM2=7420; CG=6410; RETURN; END; IF 1998 LE MY LE 2003 AND V5='B' AND V1='2' AND ((V3='4' AND V4='J') OR (V3='5' AND V4='W')) AND V6='2' AND V7='5' THEN DO; TRKTYP=6; MM2=7422; CG=6411; RETURN; END; IF 1998 LE MY LE 2003 AND V5='B' AND V1='2' AND (V3='6' OR V3='7') AND V4 IN ('K','L') AND V6='3' AND V7='1' THEN DO; TRKTYP=6; MM2=7430; CG=6411; RETURN; END; IF 1998 LE MY LE 2003 AND V5='B' AND V1='2' AND ((V3='4' AND V4 IN ('H','K','J','W')) OR (V3='5' AND V4='W')) AND V6='3' AND (V7='5' OR V7='1') THEN DO; TRKTYP=6; MM2=7432; CG=6411; RETURN; END; IF MY GE 2003 AND V5='P' AND V3 IN ('6','7') AND V4 IN ('F','G') AND V7='5' THEN DO; TRKTYP=5; MM2=7400; CG=6412; RETURN; END; /* CARAVAN CARGO */ IF MY GE 2003 AND V5='P' AND V3 IN ('4','6','7','8') AND V4 IN ('F','G') AND V7='1' THEN DO; TRKTYP=5; MM2=7400; CG=6412; RETURN; END; /* CARAVAN CARGO */ IF MY GE 2001 AND V5='P' AND V3 IN ('4','8') AND V4 IN ('F','G') AND V7='5' THEN DO; TRKTYP=5; MM2=7402; CG=6412; RETURN; END; /* CARAVAN */ IF MY GE 2003 AND V5='P' AND V3 IN ('6','7') AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=7404; CG=6413; RETURN; END; /* GD CARAVAN CARGO */ IF MY GE 2003 AND V5='P' AND V3 IN ('4','6','7','8') AND V4='G' AND V7='3' THEN DO; TRKTYP=5; MM2=7404; CG=6413; RETURN; END; /* GD CARAVAN CARGO */ IF MY GE 2001 AND V5='P' AND V3 IN ('4','8') AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=7406; CG=6413; RETURN; END; /* GRAND CARAVAN */ IF 2001 LE MY LE 2004 AND V5='T' AND V3 IN ('4','8') AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=7407; CG=6413; RETURN; END; /* GD CARAVAN AWD ends 04 */ IF MY=1997 AND V5='C' AND V6='3' AND V3='7' AND V7='6' THEN DO; TRKTYP=2; MM2=7530; CG=6501; RETURN; END; IF MY=1997 AND V5='F' AND V6='3' AND V3='7' AND V7='6' THEN DO; TRKTYP=2; MM2=7531; CG=6501; RETURN; END; TRKTYP=9; CG=99999; MM2=99999; RETURN; IMPDODGE: V5=TRANSLATE(V5,'ZSGB','2568'); V4=TRANSLATE(V4,'ZSGB','2568'); V7=TRANSLATE(V7,'2568','ZSGB'); V6=TRANSLATE(V6,'2568','ZSGB'); IF 1985 LE MY LE 1986 AND V5='P' AND V3='7' AND V7='4' THEN DO; TRKTYP=1; MM2=7240; CG=52201; RETURN; END; IF 1985 LE MY LE 1986 AND V5='K' AND V3='7' AND V7='4' THEN DO; TRKTYP=1; MM2=7241; CG=52201; RETURN; END; IF 1987 LE MY LE 1992 AND V5='L' AND V3='7' AND V7='4' THEN DO; TRKTYP=1; MM2=7240; CG=52202; RETURN; END; IF MY=1993 AND V5='S' AND V3='7' AND V7='1' THEN DO; TRKTYP=1; MM2=7240; CG=52202; RETURN; END; IF 1987 LE MY LE 1992 AND V5='M' AND V3='7' AND V7='4' THEN DO; TRKTYP=1; MM2=7241; CG=52202; RETURN; END; IF MY=1993 AND V5='T' AND V3='7' AND V7='1' THEN DO; TRKTYP=1; MM2=7241; CG=52202; RETURN; END; IF 1987 LE MY LE 1992 AND V5='L' AND V3='7' AND V7='5' THEN DO; TRKTYP=1; MM2=7242; CG=52203; RETURN; END; IF MY=1993 AND V5='S' AND V3='7' AND V7='3' THEN DO; TRKTYP=1; MM2=7242; CG=52203; RETURN; END; IF 1987 LE MY LE 1992 AND V5='M' AND V3='7' AND V7='5' THEN DO; TRKTYP=1; MM2=7243; CG=52203; RETURN; END; IF MY=1993 AND V5='T' AND V3='7' AND V7='3' THEN DO; TRKTYP=1; MM2=7243; CG=52203; RETURN; END; IF 1987 LE MY LE 1992 AND V5='L' AND V3='7' AND V7='9' THEN DO; TRKTYP=1; MM2=7246; CG=52203; RETURN; END; IF MY=1993 AND V5='S' AND V3='7' AND V7='2' THEN DO; TRKTYP=1; MM2=7246; CG=52203; RETURN; END; IF 1987 LE MY LE 1992 AND V5='M' AND V3='7' AND V7='9' THEN DO; TRKTYP=1; MM2=7247; CG=52203; RETURN; END; IF MY=1993 AND V5='T' AND V3='7' AND V7='2' THEN DO; TRKTYP=1; MM2=7247; CG=52203; RETURN; END; IF 1987 LE MY LE 1989 AND V5='J' AND (V3='4' OR V3='7') AND (V7='2' OR V7='3') THEN DO; TRKTYP=3; MM2=7331; CG=52301; RETURN; END; TRKTYP=9; CG=99999; MM2=99999; RETURN; LTPLYM: IF MY LE 1998 THEN V5=TRANSLATE(V5,'ZSGB','2568'); IF MY LE 1998 THEN V6=TRANSLATE(V6,'2568','ZSGB'); V4=TRANSLATE(V4,'ZSGB','2568'); V7=TRANSLATE(V7,'2568','ZSGB'); IF 1985 LE MY LE 1988 AND V5='H' AND V1='2' AND V3='4' AND (V4='E' OR V4='F') AND V7='1' THEN DO; TRKTYP=5; MM2=9402; CG=6401; RETURN; END; IF MY=1987 AND V5='H' AND V1='1' AND V3='4' AND (V4='E' OR V4='F') AND V7='1' THEN DO; TRKTYP=5; MM2=9402; CG=6401; RETURN; END; IF 1989 LE MY LE 1990 AND V5='H' AND V1='2' AND V3='4' AND (V4='E' OR V4='F') AND V7='5' THEN DO; TRKTYP=5; MM2=9402; CG=6401; RETURN; END; IF MY=1988 AND V5='H' AND V1='1' AND V3='4' AND (V4='F' OR V4='G') AND V7='0' THEN DO; TRKTYP=5; MM2=9406; CG=6404; RETURN; END; IF 1989 LE MY LE 1990 AND V5='H' AND V1='1' AND V3='4' AND (V4='F' OR V4='G') AND V7='4' THEN DO; TRKTYP=5; MM2=9406; CG=6404; RETURN; END; IF 1991 LE MY LE 1995 AND V5='H' AND V1='2' AND V3='4' AND (V4='F' OR V4='G') AND V7='5' THEN DO; TRKTYP=5; MM2=9402; CG=6405; RETURN; END; IF MY=1991 AND V5='P' AND V1='2' AND V3='4' AND V4='G' AND V7='5' THEN DO; TRKTYP=5; MM2=9403; CG=6405; RETURN; END; IF 1992 LE MY LE 1993 AND V5='K' AND V1='2' AND V3='4' AND V4='G' AND V7='5' THEN DO; TRKTYP=5; MM2=9403; CG=6405; RETURN; END; IF 1991 LE MY LE 1995 AND V5='H' AND V1='1' AND V3='4' AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=9406; CG=6406; RETURN; END; IF MY=1991 AND V5='P' AND V1='1' AND V3='4' AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=9407; CG=6406; RETURN; END; IF 1992 LE MY LE 1995 AND V5='K' AND V1='1' AND V3='4' AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=9407; CG=6406; RETURN; END; IF 1996 LE MY LE 2000 AND V5='P' AND V3='4' AND V4 IN ('F','G') AND V7='5' THEN DO; TRKTYP=5; MM2=9402; CG=6407; RETURN; END; IF 1996 LE MY LE 2000 AND V5='P' AND V3='4' AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=9406; CG=6408; RETURN; END; IF MY=1997 AND V5='T' AND V3='4' AND V4='G' AND V7='4' THEN DO; TRKTYP=5; MM2=9407; CG=6408; RETURN; END; TRKTYP=9; CG=99999; MM2=99999; RETURN; SPRINTER: V5=TRANSLATE(V5,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); IF 2002 LE MY LE 2005 AND V5='D' AND V6='1' AND V1='W' AND V2='D' AND V3 IN ('1','2') THEN DO; TRKTYP=6; MM2=11420; CG=42401; RETURN; END; IF 2005 LE MY LE 2006 AND V5='D' AND V6='1' AND V1='W' AND V2='D' AND V3 IN ('P','X','Y','0') THEN DO; TRKTYP=6; MM2=11420; CG=42401; RETURN; END; /* C2500 SPRINTER WB 118 */ IF 2002 LE MY LE 2005 AND V5='D' AND V6='1' AND V1='W' AND V2='D' AND V3='5' THEN DO; TRKTYP=6; MM2=11422; CG=42401; RETURN; END; IF 2005 LE MY LE 2006 AND V5='D' AND V6='1' AND V1='W' AND V2='D' AND V3 IN ('R','W','8') THEN DO; TRKTYP=6; MM2=11422; CG=42401; RETURN; END; /* P2500 SPRINTER WB 118 */ IF 2002 LE MY LE 2005 AND V5='D' AND V6 IN ('2','6') AND V1='W' AND V2='D' AND V3 IN ('1','2') THEN DO; TRKTYP=6; MM2=11420; CG=42402; RETURN; END; IF 2005 LE MY LE 2006 AND V5='D' AND V6 IN ('2','6') AND V1='W' AND V2='D' AND V3 IN ('P','X','Y','0') THEN DO; TRKTYP=6; MM2=11420; CG=42402; RETURN; END; /* C2500 SPRINTER WB 140 */ IF 2002 LE MY LE 2005 AND V5='D' AND V6 IN ('2','6') AND V1='W' AND V2='D' AND V3='5' THEN DO; TRKTYP=6; MM2=11422; CG=42402; RETURN; END; IF 2005 LE MY LE 2006 AND V5='D' AND V6 IN ('2','6') AND V1='W' AND V2='D' AND V3 IN ('R','W','8') THEN DO; TRKTYP=6; MM2=11422; CG=42402; RETURN; END; /* P2500 SPRINTER WB 140 */ IF 2002 LE MY LE 2005 AND V5='D' AND V6='4' AND V1='W' AND V2='D' AND V3 IN ('1','2') THEN DO; TRKTYP=6; MM2=11430; CG=42402; RETURN; END; IF 2005 LE MY LE 2006 AND V5='D' AND V6 IN ('4','8') AND V1='W' AND V2='D' AND V3 IN ('P','X','Y','0') THEN DO; TRKTYP=6; MM2=11430; CG=42402; RETURN; END; /* C3500 SPRINTER WB 140 */ IF 2002 LE MY LE 2005 AND V5='D' AND V6 IN ('3','7') AND V1='W' AND V2='D' AND V3 IN ('1','2') THEN DO; TRKTYP=6; MM2=11420; CG=42403; RETURN; END; IF 2005 LE MY LE 2006 AND V5='D' AND V6 IN ('3','7') AND V1='W' AND V2='D' AND V3 IN ('P','X','Y','0') THEN DO; TRKTYP=6; MM2=11420; CG=42403; RETURN; END; /* C2500 SPRINTER WB 158 */ IF 2002 LE MY LE 2005 AND V5='D' AND V6 IN ('3','7') AND V1='W' AND V2='D' AND V3='5' THEN DO; TRKTYP=6; MM2=11422; CG=42403; RETURN; END; IF 2005 LE MY LE 2006 AND V5='D' AND V6 IN ('3','7') AND V1='W' AND V2='D' AND V3 IN ('R','W','8') THEN DO; TRKTYP=6; MM2=11422; CG=42403; RETURN; END; /* P2500 SPRINTER WB 158 */ IF 2002 LE MY LE 2005 AND V5='D' AND V6='5' AND V1='W' AND V2='D' AND V3 IN ('1','2') THEN DO; TRKTYP=6; MM2=11430; CG=42403; RETURN; END; IF 2005 LE MY LE 2006 AND V5='D' AND V6 IN ('5','9') AND V1='W' AND V2='D' AND V3 IN ('P','X','Y','0') THEN DO; TRKTYP=6; MM2=11430; CG=42403; RETURN; END; /* C3500 SPRINTER WB 158 */ IF MY GE 2007 AND V5='E' AND V6='7' AND V1='W' AND V2='D' AND V3 IN ('P','X','Y','0') THEN DO; TRKTYP=6; MM2=11420; CG=42405; RETURN; END; /* C2500 SPRINTER WB 144.3 */ IF MY GE 2007 AND V5='E' AND V6='7' AND V1='W' AND V2='D' AND V3 IN ('R','W','8') THEN DO; TRKTYP=6; MM2=11422; CG=42405; RETURN; END; /* P2500 SPRINTER WB 144.3 */ IF MY GE 2007 AND V5='F' AND V6 IN ('0','3') AND V1='W' AND V2='D' AND V3 IN ('P','X','Y','0') THEN DO; TRKTYP=6; MM2=11430; CG=42405; RETURN; END; /* C3500 SPRINTER WB 144.3 */ IF MY GE 2007 AND V5='E' AND V6='8' AND V1='W' AND V2='D' AND V3 IN ('P','X','Y','0') THEN DO; TRKTYP=6; MM2=11420; CG=42406; RETURN; END; /* C2500 SPRINTER WB 170.3 */ IF MY GE 2007 AND V5='E' AND V6='7' AND V1='W' AND V2='D' AND V3 IN ('R','W','8') THEN DO; TRKTYP=6; MM2=11422; CG=42406; RETURN; END; /* P2500 SPRINTER WB 170.3 */ IF MY GE 2007 AND V5='F' AND V6 IN ('1','4') AND V1='W' AND V2='D' AND V3 IN ('P','X','Y','0') THEN DO; TRKTYP=6; MM2=11430; CG=42406; RETURN; END; /* C3500 SPRINTER WB 170.3 */ TRKTYP=9; CG=99999; MM2=99999; RETURN; LTFORD: V5=TRANSLATE(V5,'ZSGB','2568'); V4=TRANSLATE(V4,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); IF 1985 LE MY LE 1992 AND V5='R' AND V=10 AND V1='1' AND V3='T' AND (V4='B' OR V4='C') THEN DO; TRKTYP=1; MM2=12200; CG=12201; RETURN; END; IF 1985 LE MY LE 1992 AND V5='R' AND V=11 AND V1='1' AND V3='T' AND (V4='B' OR V4='C') THEN DO; TRKTYP=1; MM2=12201; CG=12201; RETURN; END; IF 1985 LE MY LE 1992 AND V5='R' AND V=12 AND V1='1' AND V3='D' AND (V4='B' OR V4='C') THEN DO; TRKTYP=1; MM2=12500; CG=12201; RETURN; END; IF 1985 LE MY LE 1996 AND V5='F' AND V=15 AND V3 IN ('D','T') AND V4 IN ('C','D','E') THEN DO; TRKTYP=2; MM2=12210; CG=12202; RETURN; END; IF 1985 LE MY LE 1996 AND V5='F' AND V=14 AND V3 IN ('D','T') AND V4 IN ('D','E','F') THEN DO; TRKTYP=2; MM2=12211; CG=12202; RETURN; END; IF 1985 LE MY LE 1997 AND V5='F' AND V=25 AND V3 IN ('D','E','T') AND V4 IN ('E','F','G','H') THEN DO; TRKTYP=2; MM2=12220; CG=12203; RETURN; END; IF 1985 LE MY LE 1997 AND V5='F' AND V=26 AND V3 IN ('D','T') AND V4 IN ('E','F','G','H') THEN DO; TRKTYP=2; MM2=12221; CG=12203; RETURN; END; IF 1985 LE MY LE 1997 AND V5='F' AND V=35 AND V3 IN ('D','E','T') AND V4 IN ('H','J','K') THEN DO; TRKTYP=2; MM2=12230; CG=12203; RETURN; END; IF 1985 LE MY LE 1997 AND V5='F' AND V=36 AND V3 IN ('D','T') AND V4 IN ('H','J','K') THEN DO; TRKTYP=2; MM2=12231; CG=12203; RETURN; END; IF 1985 LE MY LE 1997 AND V5='F' AND V=27 AND V3 IN ('D','E') AND V4 IN ('E','F','G','H') THEN DO; TRKTYP=2; MM2=12520; CG=12203; RETURN; END; IF 1985 LE MY LE 1997 AND V5='F' AND V=37 AND V3 IN ('D','E') AND V4 IN ('H','J','K') THEN DO; TRKTYP=2; MM2=12530; CG=12203; RETURN; END; IF 1985 LE MY LE 1997 AND V5='F' AND V=38 AND V3 IN ('D','E') AND V4 IN ('H','J','K') THEN DO; TRKTYP=2; MM2=12531; CG=12203; RETURN; END; IF 1985 LE MY LE 1996 AND V5='X' AND V=15 AND V1='1' AND V3 IN ('D','T') AND (V4='D' OR V4='E' OR V4='F') THEN DO; TRKTYP=2; MM2=12212; CG=12204; RETURN; END; IF 1985 LE MY LE 1996 AND V5='X' AND V=14 AND V1='1' AND V3 IN ('D','T') AND (V4='D' OR V4='E' OR V4='F') THEN DO; TRKTYP=2; MM2=12213; CG=12204; RETURN; END; IF 1996 LE MY LE 1997 AND V5='X' AND V=25 AND V3 IN ('D','T') AND V4='H' THEN DO; TRKTYP=2; MM2=12222; CG=12204; RETURN; END; IF 1996 LE MY LE 1997 AND V5='X' AND V=26 AND V3 IN ('D','T') AND V4='H' THEN DO; TRKTYP=2; MM2=12223; CG=12204; RETURN; END; IF 1985 LE MY LE 1995 AND V5='X' AND V=25 AND V3 IN ('D','T') AND V4='H' THEN DO; TRKTYP=2; MM2=12222; CG=12205; RETURN; END; IF 1985 LE MY LE 1995 AND V5='X' AND V=26 AND V3 IN ('D','T') AND V4='H' THEN DO; TRKTYP=2; MM2=12223; CG=12205; RETURN; END; IF 1985 LE MY LE 1988 AND V5='W' AND V=35 AND V3 IN ('D','T') AND V4 IN ('H','J') THEN DO; TRKTYP=2; MM2=12232; CG=12205; RETURN; END; IF 1985 LE MY LE 1988 AND V5='W' AND V=36 AND V3 IN ('D','T') AND V4 IN ('H','J') THEN DO; TRKTYP=2; MM2=12233; CG=12205; RETURN; END; IF 1988 LE MY LE 1997 AND V5='X' AND V=35 AND V3 IN ('D','T') AND V4='J' THEN DO; TRKTYP=2; MM2=12238; CG=12205; RETURN; END; IF 1986 LE MY LE 1992 AND V5='R' AND V=14 AND V1='1' AND V3='T' AND V4='C' THEN DO; TRKTYP=1; MM2=12202; CG=12206; RETURN; END; IF 1986 LE MY LE 1992 AND V5='R' AND V=15 AND V1='1' AND V3='T' AND V4='C' THEN DO; TRKTYP=1; MM2=12203; CG=12206; RETURN; END; IF 1989 LE MY LE 1997 AND V5='W' AND V=35 AND V1='2' AND V3 IN ('D','T') AND V4='J' THEN DO; TRKTYP=2; MM2=12234; CG=12207; RETURN; END; IF 1994 LE MY LE 1997 AND V5='W' AND V=35 AND V1='1' AND V3 IN ('D','T') AND V4='J' THEN DO; TRKTYP=2; MM2=12234; CG=12207; RETURN; END; IF 1989 LE MY LE 1997 AND V5='W' AND V=36 AND V1='2' AND V3 IN ('D','T') AND V4='J' THEN DO; TRKTYP=2; MM2=12235; CG=12207; RETURN; END; IF 1994 LE MY LE 1997 AND V5='W' AND V=36 AND V1='1' AND V3 IN ('D','T') AND V4='J' THEN DO; TRKTYP=2; MM2=12235; CG=12207; RETURN; END; IF 1993 LE MY LE 1997 AND V5='R' AND V=10 AND V1='1' AND V3='T' AND V4='C' THEN DO; TRKTYP=1; MM2=12200; CG=12208; RETURN; END; IF 1993 LE MY LE 1997 AND V5='R' AND V=11 AND V1='1' AND V3='T' AND V4='C' THEN DO; TRKTYP=1; MM2=12201; CG=12208; RETURN; END; IF 1993 LE MY LE 1997 AND V5='R' AND V=14 AND V1='1' AND V3='T' AND (V4='C' OR V4='D') THEN DO; TRKTYP=1; MM2=12202; CG=12209; RETURN; END; IF 1993 LE MY LE 1997 AND V5='R' AND V=15 AND V1='1' AND V3='T' AND (V4='C' OR V4='D') THEN DO; TRKTYP=1; MM2=12203; CG=12209; RETURN; END; IF 1996 LE MY LE 1997 AND V5='W' AND V=25 AND V1='1' AND V3 IN ('D','T') AND V4='H' THEN DO; TRKTYP=2; MM2=12224; CG=12210; RETURN; END; IF 1996 LE MY LE 1997 AND V5='W' AND V=26 AND V1='1' AND V3 IN ('D','T') AND V4='H' THEN DO; TRKTYP=2; MM2=12225; CG=12210; RETURN; END; IF 1997 LE MY LE 1998 AND V5='F' AND (V IN (7,17)) AND V3='T' AND (V4='D' OR V4='E') THEN DO; TRKTYP=2; MM2=12210; CG=12211; RETURN; END; IF 1998 LE MY LE 2004 AND V5='F' AND V IN (7,17) AND V3='T' AND V4 IN ('Z','R') THEN DO; TRKTYP=2; MM2=12210; CG=12211; RETURN; END; IF 1997 LE MY LE 1998 AND V5='F' AND V IN (8,18) AND V3 IN ('T','D') AND V4 IN ('D','E') THEN DO; TRKTYP=2; MM2=12211; CG=12211; RETURN; END; IF 1998 LE MY LE 2004 AND V5='F' AND V IN (8,18) AND V3 IN ('T','D') AND V4 IN ('R','Z') THEN DO; TRKTYP=2; MM2=12211; CG=12211; RETURN; END; IF 1997 LE MY LE 1998 AND V5='X' AND (V IN (7,17)) AND V1 IN ('1','2') AND V3='T' AND (V4='D' OR V4='E' OR V4='F') THEN DO; TRKTYP=2; MM2=12212; CG=12212; RETURN; END; IF 1998 LE MY LE 2004 AND V5='X' AND (V IN (7,17)) AND V1 IN ('1','2') AND V3='T' AND (V4='Z' OR V4='R' OR V4='P') THEN DO; TRKTYP=2; MM2=12212; CG=12212; RETURN; END; IF 1997 LE MY LE 1998 AND V5='X' AND (V IN (8,18)) AND V1 IN ('1','2') AND V3='T' AND (V4='D' OR V4='E' OR V4='F') THEN DO; TRKTYP=2; MM2=12213; CG=12212; RETURN; END; IF 1998 LE MY LE 2004 AND V5='X' AND (V IN (8,18)) AND V1 IN ('1','2') AND V3='T' AND (V4='Z' OR V4='R' OR V4='P') THEN DO; TRKTYP=2; MM2=12213; CG=12212; RETURN; END; IF MY=1997 AND V5='X' AND V=27 AND V1 IN ('1','2') AND V3='T' AND (V4='D' OR V4='E' OR V4='F') THEN DO; TRKTYP=2; MM2=12222; CG=12212; RETURN; END; IF 1998 LE MY LE 1999 AND V5='X' AND V=27 AND V1 IN ('1','2') AND V3='T' AND (V4='Z' OR V4='R' OR V4='P') THEN DO; TRKTYP=2; MM2=12222; CG=12212; RETURN; END; IF MY=1997 AND V5='X' AND V=28 AND V1 IN ('1','2') AND V3='T' AND (V4='D' OR V4='E' OR V4='F') THEN DO; TRKTYP=2; MM2=12223; CG=12212; RETURN; END; IF 1998 LE MY LE 1999 AND V5='X' AND V=28 AND V1 IN ('1','2') AND V3='T' AND (V4='Z' OR V4='R' OR V4='P') THEN DO; TRKTYP=2; MM2=12223; CG=12212; RETURN; END; IF 1997 LE MY LE 1998 AND V5='F' AND V=27 AND V3='T' AND (V4='E' OR V4='F' OR V4='G') THEN DO; TRKTYP=2; MM2=12220; CG=12213; RETURN; END; IF 1998 LE MY LE 1999 AND V5='F' AND V=27 AND V3='T' AND (V4='R' OR V4='P' OR V4='V') THEN DO; TRKTYP=2; MM2=12220; CG=12213; RETURN; END; IF MY=1997 AND V5='F' AND V=28 AND V3='T' AND (V4='E' OR V4='F' OR V4='G') THEN DO; TRKTYP=2; MM2=12221; CG=12213; RETURN; END; IF 1998 LE MY LE 1999 AND V5='F' AND V=28 AND V3='T' AND (V4='R' OR V4='P' OR V4='V') THEN DO; TRKTYP=2; MM2=12221; CG=12213; RETURN; END; IF MY GE 1998 AND V5='R' AND V=10 AND V1='1' AND V3='T' AND V4 IN ('Y','Z') THEN DO; TRKTYP=1; MM2=12200; CG=12214; RETURN; END; /* RANGER */ IF MY GE 1998 AND V5='R' AND V=11 AND V1='1' AND V3='T' AND V4 IN ('Y','Z') THEN DO; TRKTYP=1; MM2=12201; CG=12214; RETURN; END; /* RANGER 4X4 */ IF 2000 LE MY LE 2002 AND V5='R' AND V IN (8,9) AND V1='1' AND V3='T' AND V4 IN ('Y','Z') THEN DO; TRKTYP=1; MM2=12208; CG=12214; RETURN; END; IF MY GE 1998 AND V5='R' AND V=14 AND V1='1' AND V3='T' AND V4 IN ('Y','Z') THEN DO; TRKTYP=1; MM2=12202; CG=12215; RETURN; END; /* RANGER SUPERCAB */ IF MY GE 1998 AND V5='R' AND V=15 AND V1='1' AND V3='T' AND V4 IN ('Y','Z') THEN DO; TRKTYP=1; MM2=12203; CG=12215; RETURN; END; /* RANGER SUPER 4X4 */ IF MY GE 2002 AND V5='R' AND V=44 AND V1='1' AND V3='T' AND V4 IN ('Y','Z') THEN DO; TRKTYP=1; MM2=12204; CG=12215; RETURN; END; /* RANGER CREW */ IF MY GE 2002 AND V5='R' AND V=45 AND V1='1' AND V3='T' AND V4 IN ('Y','Z') THEN DO; TRKTYP=1; MM2=12205; CG=12215; RETURN; END; /* RANGER CREW 4X4 */ IF 1999 LE MY LE 2004 AND V5='F' AND V=20 AND V3 IN ('D','T') AND V4='N' THEN DO; TRKTYP=2; MM2=12220; CG=12216; RETURN; END; IF MY GE 2005 AND V5='F' AND V=20 AND V3 IN ('D','T') AND V4 IN ('N','S') THEN DO; TRKTYP=2; MM2=12220; CG=12216; RETURN; END; /* F250 */ IF MY GE 1999 AND V5='F' AND V=21 AND V3 IN ('D','T') AND V4='N' THEN DO; TRKTYP=2; MM2=12221; CG=12216; RETURN; END; IF MY GE 2005 AND V5='F' AND V=21 AND V3 IN ('D','T') AND V4 IN ('N','S') THEN DO; TRKTYP=2; MM2=12221; CG=12216; RETURN; END; /* F250 4X4 */ IF MY GE 1999 AND V5='F' AND V IN (30,32,34) AND V3 IN ('D','T') AND V4 IN ('K','S','W') THEN DO; TRKTYP=2; MM2=12230; CG=12216; RETURN; END; /* F350 */ IF MY GE 1999 AND V5='F' AND V IN (31,33,35) AND V3 IN ('D','T') AND V4 IN ('K','S','W') THEN DO; TRKTYP=2; MM2=12231; CG=12216; RETURN; END; /* F350 4X4 */ IF MY GE 1999 AND V5='F' AND V IN (34,36) AND V3='D' AND V4 IN ('K','N','S','W') THEN DO; TRKTYP=2; MM2=12530; CG=12216; RETURN; END; /* F350 CHASSIS */ IF MY GE 1999 AND V5='F' AND V IN (35,37) AND V3='D' AND V4 IN ('K','N','S','W') THEN DO; TRKTYP=2; MM2=12531; CG=12216; RETURN; END; /* F350 CHASSIS 4X4 */ IF 1999 LE MY LE 2004 AND V5='X' AND V=20 AND V3 IN ('D','T') AND V4='N' THEN DO; TRKTYP=2; MM2=12222; CG=12217; RETURN; END; IF MY GE 2005 AND V5='X' AND V=20 AND V3 IN ('D','T') AND V4 IN ('N','S') THEN DO; TRKTYP=2; MM2=12222; CG=12217; RETURN; END; /* F250 SUPERCAB */ IF 1999 LE MY LE 2004 AND V5='X' AND V=21 AND V3 IN ('D','T') AND V4='N' THEN DO; TRKTYP=2; MM2=12223; CG=12217; RETURN; END; IF MY GE 2005 AND V5='X' AND V=21 AND V3 IN ('D','T') AND V4 IN ('N','S') THEN DO; TRKTYP=2; MM2=12223; CG=12217; RETURN; END; /* F250 SUPER 4X4 */ IF MY GE 1999 AND V5='X' AND V IN (30,32,34,36) AND V3 IN ('D','E','T') AND V4 IN ('K','S','W') THEN DO; TRKTYP=2; MM2=12232; CG=12217; RETURN; END; /* F350 SUPER */ IF MY GE 1999 AND V5='X' AND V IN (31,33,35,37) AND V3 IN ('D','E','T') AND V4 IN ('K','S','W') THEN DO; TRKTYP=2; MM2=12233; CG=12217; RETURN; END; /* 350SUP 4X4 */ IF 1999 LE MY LE 2004 AND V5='W' AND V=20 AND V1 IN ('1','3') AND V3 IN ('D','T') AND V4='N' THEN DO; TRKTYP=2; MM2=12224; CG=12218; RETURN; END; IF MY GE 2005 AND V5='W' AND V=20 AND V1 IN ('1','3') AND V3 IN ('D','T') AND V4 IN ('N','S') THEN DO; TRKTYP=2; MM2=12224; CG=12218; RETURN; END; /* F250 CREW */ IF 1999 LE MY LE 2004 AND V5='W' AND V=21 AND V1 IN ('1','3') AND V3 IN ('D','T') AND V4='N' THEN DO; TRKTYP=2; MM2=12225; CG=12218; RETURN; END; IF MY GE 2005 AND V5='W' AND V=21 AND V1 IN ('1','3') AND V3 IN ('D','T') AND V4 IN ('N','S') THEN DO; TRKTYP=2; MM2=12225; CG=12218; RETURN; END; /* F250 CREW 4X4 */ IF MY GE 1999 AND V5='W' AND V IN (30,32,34,36) AND V1 IN ('1','3') AND V3 IN ('D','E','T') AND V4 IN ('K','S','W') THEN DO; TRKTYP=2; MM2=12234; CG=12218; RETURN; END; /* F350 CREW */ IF MY GE 1999 AND V5='W' AND V IN (31,33,35,37) AND V1 IN ('1','3') AND V3 IN ('D','E','T') AND V4 IN ('K','S','W') THEN DO; TRKTYP=2; MM2=12235; CG=12218; RETURN; END; /* F350 CREW 4X4 */ IF 2001 LE MY LE 2003 AND V5='W' AND V=7 AND V1 IN ('1','2') AND V3='T' AND V4 IN ('P','R','Z') THEN DO; TRKTYP=2; MM2=12214; CG=12219; RETURN; END; IF 2001 LE MY LE 2003 AND V5='W' AND V=8 AND V1 IN ('1','2') AND V3='T' AND V4 IN ('P','R','Z') THEN DO; TRKTYP=2; MM2=12215; CG=12219; RETURN; END; IF MY GE 2004 AND V5='F' AND V IN (2,12) THEN DO; TRKTYP=2; MM2=12210; CG=12220; RETURN; END; /* F150 */ IF MY GE 2004 AND V5='F' AND V IN (4,14) THEN DO; TRKTYP=2; MM2=12211; CG=12220; RETURN; END; /* F150 4X4 */ IF MY GE 2004 AND V5='X' AND V IN (2,12) THEN DO; TRKTYP=2; MM2=12212; CG=12221; RETURN; END; /* F150 SUPERCAB */ IF MY GE 2004 AND V5='X' AND V IN (4,14) THEN DO; TRKTYP=2; MM2=12213; CG=12221; RETURN; END; /* F150 4X4 SUPERCAB */ IF 2004 LE MY LE 2005 AND V5='W' AND V=12 THEN DO; TRKTYP=2; MM2=12214; CG=12222; RETURN; END; IF MY GE 2006 AND V5='W' AND V IN (2,12) THEN DO; TRKTYP=2; MM2=12214; CG=12222; RETURN; END; /* F150 CREW CAB */ IF 2004 LE MY LE 2005 AND V5='W' AND V=14 THEN DO; TRKTYP=2; MM2=12215; CG=12222; RETURN; END; IF MY GE 2006 AND V5='W' AND V IN (4,14) THEN DO; TRKTYP=2; MM2=12215; CG=12222; RETURN; END; /* F150 4X4 CREW CAB */ IF 1986 LE MY LE 1990 AND V5='U' AND V=12 AND V1='1' AND V3='M' AND (V4='B' OR V4='C') THEN DO; TRKTYP=3; MM2=12320; CG=12301; RETURN; END; IF 1985 LE MY LE 1990 AND V5='U' AND V=14 AND V1='1' AND V3='M' AND (V4='B' OR V4='C') THEN DO; TRKTYP=3; MM2=12321; CG=12301; RETURN; END; IF 1985 LE MY LE 1996 AND V5='U' AND V=15 AND V1='1' AND V3='M' AND (V4='D' OR V4='E') THEN DO; TRKTYP=4; MM2=12325; CG=12302; RETURN; END; IF 1991 LE MY LE 1994 AND V5='U' AND V=22 AND V1='1' AND V3='M' AND V4='C' THEN DO; TRKTYP=3; MM2=12300; CG=12303; RETURN; END; IF 1991 LE MY LE 1994 AND V5='U' AND V=24 AND V1='1' AND V3='M' AND (V4='C' OR V4='D') THEN DO; TRKTYP=3; MM2=12301; CG=12303; RETURN; END; IF 1991 LE MY LE 1994 AND V5='U' AND V=32 AND V1='1' AND V3='M' AND (V4='D' OR V4='C') THEN DO; TRKTYP=3; MM2=12302; CG=12304; RETURN; END; IF 1991 LE MY LE 1994 AND V5='U' AND V=34 AND V1='1' AND V3='M' AND (V4='D' OR V4='C') THEN DO; TRKTYP=3; MM2=12303; CG=12304; RETURN; END; IF 1995 LE MY LE 1999 AND V5='U' AND V=32 AND V1='1' AND V3='M' AND V4='D' THEN DO; TRKTYP=3; MM2=12302; CG=12305; RETURN; END; IF 1998 LE MY LE 1999 AND V5='U' AND V=32 AND V1='1' AND V3='M' AND V4='Z' THEN DO; TRKTYP=3; MM2=12302; CG=12305; RETURN; END; IF 2000 LE MY LE 2001 AND V5='U' AND (V IN (61,62,63,64,65)) AND V1='1' AND V3='M' AND (V4='Z' OR V4='D') THEN DO; TRKTYP=3; MM2=12302; CG=12305; RETURN; END; IF 1995 LE MY LE 1999 AND V5='U' AND V=34 AND V1='1' AND V3='M' AND (V4='C' OR V4='D') THEN DO; TRKTYP=3; MM2=12303; CG=12305; RETURN; END; IF 1998 LE MY LE 1999 AND V5='U' AND V=34 AND V1='1' AND V3='M' AND (V4='Y' OR V4='Z') THEN DO; TRKTYP=3; MM2=12303; CG=12305; RETURN; END; IF 2000 LE MY LE 2001 AND V5='U' AND (V IN (71,72,73,74,75,76)) AND V1='1' AND V3='M' AND (V4 IN ('Y','Z','C','D')) THEN DO; TRKTYP=3; MM2=12303; CG=12305; RETURN; END; IF 1996 LE MY LE 1999 AND V5='U' AND V=35 AND V1='1' AND V3='M' AND V4='D' THEN DO; TRKTYP=3; MM2=12308; CG=12305; RETURN; END; IF 1998 LE MY LE 1999 AND V5='U' AND V=35 AND V1='1' AND V3='M' AND V4='Z' THEN DO; TRKTYP=3; MM2=12308; CG=12305; RETURN; END; IF 2000 LE MY LE 2001 AND V5='U' AND V IN (83,84,85) AND V1='1' AND V3='M' AND V4 IN ('D','Z') THEN DO; TRKTYP=3; MM2=12308; CG=12305; RETURN; END; IF MY IN (1995,1996,1997,1999) AND V5='U' AND V=22 AND V1='1' AND V3='M' AND V4='C' THEN DO; TRKTYP=3; MM2=12300; CG=12306; RETURN; END; IF 1998 LE MY LE 1999 AND V5='U' AND V=22 AND V1='1' AND V3='M' AND V4='Y' THEN DO; TRKTYP=3; MM2=12300; CG=12306; RETURN; END; IF 2000 LE MY LE 2003 AND V5='U' AND V=60 AND V1='1' AND V3='M' AND (V4='Y' OR V4='C') THEN DO; TRKTYP=3; MM2=12300; CG=12306; RETURN; END; IF MY IN (1995,1996,1997,1999) AND V5='U' AND V=24 AND V1='1' AND V3='M' AND V4 IN ('C','D') THEN DO; TRKTYP=3; MM2=12301; CG=12306; RETURN; END; IF 1998 LE MY LE 1999 AND V5='U' AND V=24 AND V1='1' AND V3='M' AND V4 IN ('Y','Z') THEN DO; TRKTYP=3; MM2=12301; CG=12306; RETURN; END; IF 2000 LE MY LE 2003 AND V5='U' AND V=70 AND V1='1' AND V3='M' AND V4 IN ('Y','Z','C','D') THEN DO; TRKTYP=3; MM2=12301; CG=12306; RETURN; END; IF 1997 LE MY LE 1998 AND V5='U' AND V=17 AND V3='M' AND (V4='D' OR V4='E') THEN DO; TRKTYP=4; MM2=12312; CG=12307; RETURN; END; IF 1998 LE MY LE 1999 AND V5='U' AND V=17 AND V3='M' AND (V4='Z' OR V4='R') THEN DO; TRKTYP=4; MM2=12312; CG=12307; RETURN; END; IF 2000 LE MY LE 2003 AND V5='U' AND V IN (15,17) AND V3='M' AND V4 IN ('E','F','Z','R','P') THEN DO; TRKTYP=4; MM2=12312; CG=12307; RETURN; END; IF MY=2004 AND V5='U' AND V IN (13,15,17) AND V3='M' AND V4 IN ('E','F','Z','R','P') THEN DO; TRKTYP=4; MM2=12312; CG=12307; RETURN; END; IF 2005 LE MY LE 2006 AND V5='U' AND V IN (13,15,17,19) AND V3='M' AND V4 IN ('E','F','Z','R','P') THEN DO; TRKTYP=4; MM2=12312; CG=12307; RETURN; END; /* EXPEDITION ends 2006 */ IF 1997 LE MY LE 1998 AND V5='U' AND V=18 AND V3='M' AND V4 IN ('D','E','F') THEN DO; TRKTYP=4; MM2=12313; CG=12307; RETURN; END; IF 1998 LE MY LE 1999 AND V5='U' AND V=18 AND V3='M' AND V4 IN ('Z','R','P') THEN DO; TRKTYP=4; MM2=12313; CG=12307; RETURN; END; IF 2000 LE MY LE 2003 AND V5='U' AND V IN (16,18) AND V3='M' AND V4 IN ('E','F','Z','R','P') THEN DO; TRKTYP=4; MM2=12313; CG=12307; RETURN; END; IF MY=2004 AND V5='U' AND V IN (14,16,18) AND V3='M' AND V4 IN ('E','F','Z','R','P') THEN DO; TRKTYP=4; MM2=12313; CG=12307; RETURN; END; IF 2005 LE MY LE 2006 AND V5='U' AND V IN (14,16,18,20) AND V3='M' AND V4 IN ('E','F','Z','R','P') THEN DO; TRKTYP=4; MM2=12313; CG=12307; RETURN; END; /* EXPEDITION 4X4 ends 2006 */ IF 2000 LE MY LE 2002 AND V5='U' AND V IN (40,42) AND V1='1' AND V3='M' AND V4 IN ('R','P','V','N') THEN DO; TRKTYP=4; MM2=12332; CG=12308; RETURN; END; IF 2003 LE MY LE 2005 AND V5='U' AND V IN (40,42,44) AND V1='1' AND V3='M' AND V4 IN ('R','P','V','N') THEN DO; TRKTYP=4; MM2=12332; CG=12308; RETURN; END; /* EXCURSION ends 2005 */ IF 2000 LE MY LE 2002 AND V5='U' AND V IN (41,43) AND V1='1' AND V3='M' AND V4 IN ('R','P','V','N','S') THEN DO; TRKTYP=4; MM2=12333; CG=12308; RETURN; END; IF 2003 LE MY LE 2005 AND V5='U' AND V IN (41,43,45) AND V1='1' AND V3='M' AND V4 IN ('R','P','V','N','S') THEN DO; TRKTYP=4; MM2=12333; CG=12308; RETURN; END; /* EXCURSION 4X4 ends 2005 */ IF 2001 LE MY LE 2002 AND V5='U' AND V IN (1,3) THEN DO; TRKTYP=3; MM2=12342; CG=12309; RETURN; END; IF MY GE 2003 AND V5='U' AND V IN (2,3,4) THEN DO; TRKTYP=3; MM2=12342; CG=12309; RETURN; END; /* ESCAPE */ IF 2001 LE MY LE 2002 AND V5='U' AND V IN (2,4) THEN DO; TRKTYP=3; MM2=12343; CG=12309; RETURN; END; IF MY GE 2003 AND V5='U' AND V IN (92,93,94) THEN DO; TRKTYP=3; MM2=12343; CG=12309; RETURN; END; /* ESCAPE 4X4 */ IF 2005 LE MY LE 2006 AND V5='U' AND V=95 THEN DO; TRKTYP=3; MM2=12346; CG=12309; RETURN; END; IF 2005 LE MY LE 2006 AND V5='U' AND V=96 THEN DO; TRKTYP=3; MM2=12347; CG=12309; RETURN; END; IF MY GE 2007 AND V5='U' AND V=49 THEN DO; TRKTYP=3; MM2=12346; CG=12309; RETURN; END; /* ESCAPE HYBRID */ IF MY GE 2007 AND V5='U' AND V=59 THEN DO; TRKTYP=3; MM2=12347; CG=12309; RETURN; END; /* ESCAPE HYBRID 4X4 */ IF 2001 LE MY LE 2005 AND V5='U' AND V=67 THEN DO; TRKTYP=3; MM2=12306; CG=12310; RETURN; END; /* EXPLORER SPORT TRAC skips 2006 */ IF 2001 LE MY LE 2005 AND V5='U' AND V=77 THEN DO; TRKTYP=3; MM2=12307; CG=12310; RETURN; END; /* EXPLORER SPORT TRAC 4X4 skips 2006 */ IF MY GE 2007 AND V5='U' AND V IN (31,33) THEN DO; TRKTYP=3; MM2=12306; CG=12315; RETURN; END; /* EXPLORER SPORT TRAC */ IF MY GE 2007 AND V5='U' AND V IN (51,53) THEN DO; TRKTYP=3; MM2=12307; CG=12315; RETURN; END; /* EXPLORER SPORT TRAC 4X4 */ IF MY GE 2007 AND V5='U' AND V IN (15,17,19) AND V3='M' AND V4 IN ('E','F','Z','R','P') THEN DO; TRKTYP=4; MM2=12312; CG=12316; RETURN; END; /* EXPEDITION */ IF MY GE 2007 AND V5='U' AND V IN (16,18,20) AND V3='M' AND V4 IN ('E','F','Z','R','P') THEN DO; TRKTYP=4; MM2=12313; CG=12316; RETURN; END; /* EXPEDITION 4X4 */ IF MY GE 2007 AND V5='K' AND V IN (15,17,19) AND V3='M' AND V4 IN ('E','F','Z','R','P') THEN DO; TRKTYP=4; MM2=12316; CG=12317; RETURN; END; /* EXPEDITION EL */ IF MY GE 2007 AND V5='K' AND V IN (16,18,20) AND V3='M' AND V4 IN ('E','F','Z','R','P') THEN DO; TRKTYP=4; MM2=12317; CG=12317; RETURN; END; /* EXPEDITION EL 4X4 */ IF 2002 LE MY LE 2005 AND V5='U' AND V IN (62,63,64,65) THEN DO; TRKTYP=3; MM2=12302; CG=12311; RETURN; END; IF 2002 LE MY LE 2005 AND V5='U' AND V IN (72,73,74,75) THEN DO; TRKTYP=3; MM2=12303; CG=12311; RETURN; END; IF 2002 LE MY LE 2004 AND V5='U' AND V IN (82,83,84,85) THEN DO; TRKTYP=3; MM2=12308; CG=12311; RETURN; END; IF 2005 LE MY LE 2006 AND V5='K' AND V IN (1,2,3) THEN DO; TRKTYP=3; MM2=12022; CG=12312; RETURN; END; /* FREESTYLE FWD */ IF MY GE 2007 AND V5='K' AND V IN (2,3) THEN DO; TRKTYP=3; MM2=12022; CG=12312; RETURN; END; /* FREESTYLE FWD */ IF 2005 LE MY LE 2006 AND V5='K' AND V IN (4,5,6) THEN DO; TRKTYP=3; MM2=12022; CG=12312; RETURN; END; /* FREESTYLE AWD */ IF MY GE 2007 AND V5='K' AND V IN (5,6) THEN DO; TRKTYP=3; MM2=12022; CG=12312; RETURN; END; /* FREESTYLE AWD */ IF MY GE 2007 AND V5='K' AND V6 = '3' AND V1='2' AND V2='F' AND V3='M' AND V4='D' THEN DO; TRKTYP=3; MM2=12024; CG=12314; RETURN; END; /* EDGE */ IF MY GE 2007 AND V5='K' AND V6 = '4' AND V1='2' AND V2='F' AND V3='M' AND V4='D' THEN DO; TRKTYP=3; MM2=12024; CG=12314; RETURN; END; /* EDGE AWD */ IF MY = 2006 AND V5='U' AND V IN (62,63,64,65) THEN DO; TRKTYP=3; MM2=12302; CG=12313; RETURN; END; /* EXPLORER 4DR */ IF MY GE 2007 AND V5='U' AND V IN (63,64,65) THEN DO; TRKTYP=3; MM2=12302; CG=12313; RETURN; END; /* EXPLORER 4DR */ IF MY = 2006 AND V5='U' AND V IN (72,73,74,75) THEN DO; TRKTYP=3; MM2=12303; CG=12313; RETURN; END; /* EXPLORER 4DR 4X4 */ IF MY GE 2007 AND V5='U' AND V IN (73,74,75) THEN DO; TRKTYP=3; MM2=12303; CG=12313; RETURN; END; /* EXPLORER 4DR 4X4 */ IF 1985 LE MY LE 1990 AND V5='E' AND 14 LE V LE 16 AND V1='1' AND V3 IN ('D','T') AND (V4='D' OR V4='E' OR V4='F') THEN DO; TRKTYP=6; MM2=12410; CG=12401; RETURN; END; IF MY=1991 AND V5='E' AND 14 LE V LE 16 AND V1='1' AND V3 IN ('D','T') AND (V4='D' OR V4='E') THEN DO; TRKTYP=6; MM2=12410; CG=12402; RETURN; END; IF 1985 LE MY LE 1991 AND V5='E' AND V=11 AND V1='1' AND V3='M' AND V4='E' THEN DO; TRKTYP=6; MM2=12412; CG=12402; RETURN; END; IF 1985 LE MY LE 1991 AND V5='S' AND 14 LE V LE 16 AND V1='1' AND V3 IN ('D','T') AND (V4='D' OR V4='E') THEN DO; TRKTYP=6; MM2=12414; CG=12402; RETURN; END; IF 1985 LE MY LE 1991 AND V5='E' AND 24 LE V LE 26 AND V1='1' AND V3 IN ('D','T') AND (V4='E' OR V4='F' OR V4='G' OR V4='H') THEN DO; TRKTYP=6; MM2=12420; CG=12402; RETURN; END; IF 1985 LE MY LE 1991 AND V5='E' AND V=21 AND V1='1' AND (V3='B' OR V3='M') AND (V4='E' OR V4='F' OR V4='G' OR V4='H') THEN DO; TRKTYP=6; MM2=12422; CG=12402; RETURN; END; IF 1985 LE MY LE 1991 AND V5='S' AND 24 LE V LE 26 AND V1='1' AND V3 IN ('D','T') AND (V4='F' OR V4='G' OR V4='H') THEN DO; TRKTYP=6; MM2=12424; CG=12402; RETURN; END; IF 1985 LE MY LE 1991 AND V5='E' AND 34 LE V LE 36 AND V1='1' AND V3 IN ('D','T') AND (V4='H' OR V4='J') THEN DO; TRKTYP=6; MM2=12430; CG=12402; RETURN; END; IF 1985 LE MY LE 1991 AND V5='S' AND 34 LE V LE 36 AND V1='1' AND V3 IN ('D','T') AND (V4='H' OR V4='J') THEN DO; TRKTYP=6; MM2=12434; CG=12402; RETURN; END; IF 1985 LE MY LE 1991 AND V5='S' AND V=31 AND V1='1' AND V3 IN ('B','M') AND V4 IN ('H','J') THEN DO; TRKTYP=6; MM2=12436; CG=12402; RETURN; END; IF 1985 LE MY LE 1991 AND V3='C' AND V5='E' AND V=39 AND V1='1' AND V4='J' THEN DO; TRKTYP=6; MM2=12637; CG=12402; RETURN; END; IF 1985 LE MY LE 1991 AND V5='E' AND V=30 AND V1='1' AND V3 IN ('D','T') AND V4 IN ('H','J','K') THEN DO; TRKTYP=6; MM2=12638; CG=12402; RETURN; END; IF 1985 LE MY LE 1991 AND V5='E' AND V=37 AND V1='1' AND V3 IN ('D','T') AND V4 IN ('H','J','K') THEN DO; TRKTYP=6; MM2=12639; CG=12402; RETURN; END; IF 1986 LE MY LE 1997 AND V5='A' AND 14 LE V LE 15 AND V1='1' AND V3 IN ('D','T') AND (V4='C' OR V4='D') THEN DO; TRKTYP=5; MM2=12440; CG=12403; RETURN; END; IF 1990 LE MY LE 1994 AND V5='A' AND 24 LE V LE 25 AND V1='1' AND V3 IN ('D','T') AND V4='D' THEN DO; TRKTYP=5; MM2=12441; CG=12403; RETURN; END; IF 1986 LE MY LE 1997 AND V5='A' AND V=11 AND V1='1' AND V3='M' AND (V4='C' OR V4='D') THEN DO; TRKTYP=5; MM2=12442; CG=12403; RETURN; END; IF 1990 LE MY LE 1994 AND V5='A' AND V=21 AND V1='1' AND V3='M' AND (V4='C' OR V4='D') THEN DO; TRKTYP=5; MM2=12443; CG=12403; RETURN; END; IF 1989 LE MY LE 1995 AND V5='A' AND 34 LE V LE 35 AND V1='1' AND V3 IN ('D','T') AND (V4='C' OR V4='D') THEN DO; TRKTYP=5; MM2=12444; CG=12403; RETURN; END; IF 1990 LE MY LE 1994 AND V5='A' AND 44 LE V LE 45 AND V1='1' AND V3 IN ('D','T') AND V4='D' THEN DO; TRKTYP=5; MM2=12445; CG=12403; RETURN; END; IF 1989 LE MY LE 1997 AND V5='A' AND V=31 AND V1='1' AND V3='M' AND (V4='C' OR V4='D') THEN DO; TRKTYP=5; MM2=12446; CG=12403; RETURN; END; IF 1990 LE MY LE 1997 AND V5='A' AND V=41 AND V1='1' AND V3='M' AND V4='D' THEN DO; TRKTYP=5; MM2=12447; CG=12403; RETURN; END; IF 1992 LE MY LE 1997 AND V5='E' AND V=14 AND V1='1' AND V3 IN ('D','T') AND (V4='D' OR V4='E') THEN DO; TRKTYP=6; MM2=12410; CG=12404; RETURN; END; IF 1998 LE MY LE 2006 AND V5='E' AND V=14 AND V1='1' AND V3 IN ('D','T') AND V4 IN ('Z','R') THEN DO; TRKTYP=6; MM2=12410; CG=12404; RETURN; END; /* E-150 CARGO */ IF MY GE 2007 AND V5='E' AND V=14 AND V1='1' AND V3 IN ('D','T') AND V4 IN ('Z','R','N') THEN DO; TRKTYP=6; MM2=12410; CG=12404; RETURN; END; /* E-150 CARGO */ IF 1992 LE MY LE 1997 AND V5='E' AND V=11 AND V1='1' AND V3='M' AND V4='E' THEN DO; TRKTYP=6; MM2=12412; CG=12404; RETURN; END; IF 1998 LE MY LE 2006 AND V5='E' AND V=11 AND V1='1' AND V3='M' AND V4='R' THEN DO; TRKTYP=6; MM2=12412; CG=12404; RETURN; END; /* E-150 CLUB WAGON */ IF MY GE 2007 AND V5='E' AND V=11 AND V1='1' AND V3='M' AND V4 IN ('R','N') THEN DO; TRKTYP=6; MM2=12412; CG=12404; RETURN; END; /* E-150 CLUB WAGON */ IF 1992 LE MY LE 1997 AND V5='E' AND V=24 AND V1='1' AND V3 IN ('D','T') AND (V4='E' OR V4='F' OR V4='G' OR V4='H') THEN DO; TRKTYP=6; MM2=12420; CG=12404; RETURN; END; IF MY GE 1998 AND V5='E' AND V=24 AND V1='1' AND V3 IN ('D','T') AND (V4='R' OR V4='P' OR V4='V' OR V4='N') THEN DO; TRKTYP=6; MM2=12420; CG=12404; RETURN; END; /* E-250 CARGO */ IF 1992 LE MY LE 1997 AND V5='S' AND V=24 AND V1='1' AND V3 IN ('D','T') AND (V4='F' OR V4='G' OR V4='H') THEN DO; TRKTYP=6; MM2=12424; CG=12404; RETURN; END; IF MY GE 1998 AND V5='S' AND V=24 AND V1='1' AND V3 IN ('D','T') AND (V4='P' OR V4='V' OR V4='N') THEN DO; TRKTYP=6; MM2=12424; CG=12404; RETURN; END; /* E-250 SUPER VAN */ IF 1992 LE MY LE 1997 AND V5='E' AND V=34 AND V1='1' AND V3 IN ('D','T') AND (V4='H' OR V4='J') THEN DO; TRKTYP=6; MM2=12430; CG=12404; RETURN; END; IF MY GE 1998 AND V5='E' AND V=34 AND V1='1' AND V3 IN ('D','T') AND (V4='N' OR V4='S') THEN DO; TRKTYP=6; MM2=12430; CG=12404; RETURN; END; /* E-350 CARGO */ IF 1992 LE MY LE 1997 AND V5='E' AND V=31 AND V1='1' AND (V3='B' OR V3='M') AND (V4='H' OR V4='J') THEN DO; TRKTYP=6; MM2=12432; CG=12404; RETURN; END; IF MY GE 1998 AND V5='E' AND V=31 AND V1='1' AND (V3='B' OR V3='M') AND (V4='N' OR V4='S') THEN DO; TRKTYP=6; MM2=12432; CG=12404; RETURN; END; /* E-350 CLUB WAGON */ IF 1992 LE MY LE 1997 AND V5='S' AND V=34 AND V1='1' AND V3 IN ('D','T') AND (V4='H' OR V4='J') THEN DO; TRKTYP=6; MM2=12434; CG=12404; RETURN; END; IF MY GE 1998 AND V5='S' AND V IN (34,31) AND V1='1' AND V3 IN ('D','T') AND (V4='N' OR V4='S') THEN DO; TRKTYP=6; MM2=12434; CG=12404; RETURN; END; /* E-350 SUPER VAN */ IF 1992 LE MY LE 1997 AND V5='S' AND V=31 AND V1='1' AND V3 IN ('B','M') AND (V4='H' OR V4='J') THEN DO; TRKTYP=6; MM2=12436; CG=12404; RETURN; END; IF MY=1998 AND V5='S' AND V=31 AND V1='1' AND V3 IN ('B','M') AND (V4='J' OR V4='S') THEN DO; TRKTYP=6; MM2=12436; CG=12404; RETURN; END; /* E-350 SUPER CLUB WAGON */ IF MY GE 1999 AND V5='S' AND V=31 AND V1='1' AND V3 IN ('B','M') AND (V4='N' OR V4='S') THEN DO; TRKTYP=6; MM2=12436; CG=12404; RETURN; END; IF MY GE 1992 AND V3='C' AND V5='E' AND V=29 AND V1='1' AND V4='H' THEN DO; TRKTYP=6; MM2=12627; CG=12404; RETURN; END; IF 1992 LE MY LE 1997 AND V5='E' AND V=27 AND V1='1' AND V3='D' AND V4 IN ('H','J','K') THEN DO; TRKTYP=6; MM2=12629; CG=12404; RETURN; END; IF 1998 LE MY LE 1999 AND V5='E' AND V=27 AND V1='1' AND V3='D' AND V4 IN ('N','S','W') THEN DO; TRKTYP=6; MM2=12629; CG=12404; RETURN; END; IF MY GE 2000 AND V5='E' AND V=27 AND V1='1' AND V3='D' AND V4 IN ('H','J','K','N','S','W') THEN DO; TRKTYP=6; MM2=12629; CG=12404; RETURN; END; /* E-250 COMMERCIAL CUTAWAY */ IF MY GE 1992 AND V3='C' AND V5='E' AND V=39 AND V1='1' AND V4='J' THEN DO; TRKTYP=6; MM2=12637; CG=12404; RETURN; END; /* E-350 STRIPPED CHASSIS */ IF 1992 LE MY LE 1997 AND V5='E' AND V=30 AND V1='1' AND V3='D' AND V4 IN ('H','J','K') THEN DO; TRKTYP=6; MM2=12638; CG=12404; RETURN; END; IF 1998 LE MY LE 1999 AND V5='E' AND V=30 AND V1='1' AND V3='D' AND V4 IN ('N','S','W') THEN DO; TRKTYP=6; MM2=12638; CG=12404; RETURN; END; IF MY GE 2000 AND V5='E' AND V=30 AND V1='1' AND V3='D' AND V4 IN ('H','J','K','N','S','W') THEN DO; TRKTYP=6; MM2=12638; CG=12404; RETURN; END; /* E-350 RV CUTAWAY */ IF 1992 LE MY LE 1997 AND V5='E' AND V=37 AND V1='1' AND V3='D' AND V4 IN ('H','J','K') THEN DO; TRKTYP=6; MM2=12639; CG=12404; RETURN; END; IF 1998 LE MY LE 1999 AND V5='E' AND V=37 AND V1='1' AND V3='D' AND V4 IN ('N','S','W') THEN DO; TRKTYP=6; MM2=12639; CG=12404; RETURN; END; IF MY GE 2000 AND V5='E' AND V IN (35,37) AND V1='1' AND V3='D' AND V4 IN ('H','J','K','N','S','W') THEN DO; TRKTYP=6; MM2=12639; CG=12404; RETURN; END; /* E-350 COMMERCIAL CUTAWAY */ IF 1995 LE MY LE 1998 AND V5='A' AND V=54 AND V1='2' AND (V3='T' OR V3='M') THEN DO; TRKTYP=5; MM2=12400; CG=12406; RETURN; END; IF 1995 LE MY LE 1998 AND V5='A' AND V=51 AND V1='2' AND V3='M' AND V4='D' THEN DO; TRKTYP=5; MM2=12402; CG=12406; RETURN; END; IF MY=1998 AND V5='A' AND V=51 AND V1='2' AND V3='M' AND V4='Z' THEN DO; TRKTYP=5; MM2=12402; CG=12406; RETURN; END; IF 1999 LE MY LE 2003 AND V5='A' AND V=54 AND V1='2' AND (V3='T' OR V3='M') THEN DO; TRKTYP=5; MM2=12400; CG=12408; RETURN; END; IF MY=1999 AND V5='A' AND V IN (51,52,53) AND V1='2' AND V3='M' AND (V4='D' OR V4='Z') THEN DO; TRKTYP=5; MM2=12402; CG=12408; RETURN; END; IF MY=2000 AND V5='A' AND V IN (50,51,52,53) AND V1='2' AND V3='M' AND (V4='D' OR V4='Z') THEN DO; TRKTYP=5; MM2=12402; CG=12408; RETURN; END; IF 2001 LE MY LE 2003 AND V5='A' AND V IN (50,51,52,53,55,56,57,58) AND V1='2' AND V3='M' THEN DO; TRKTYP=5; MM2=12402; CG=12408; RETURN; END; IF MY GE 2004 AND V5='A' AND V=54 THEN DO; TRKTYP=5; MM2=12400; CG=12409; RETURN; END; /* FREESTAR CARGO */ IF MY GE 2004 AND V5='A' AND V IN (50,51,52,53,55,56,57,58) THEN DO; TRKTYP=5; MM2=12402; CG=12409; RETURN; END; /* FREESTAR */ TRKTYP=9; CG=99999; MM2=99999; RETURN; LTLINC: V5=TRANSLATE(V5,'ZSGB','2568'); V4=TRANSLATE(V4,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); IF 2002 LE MY LE 2003 AND V5='W' AND V=5 THEN DO; TRKTYP=2; MM2=13214; CG=12219; RETURN; END; IF 2002 LE MY LE 2003 AND V5='W' AND V=6 THEN DO; TRKTYP=2; MM2=13215; CG=12219; RETURN; END; IF MY GE 2006 AND V5='W' AND V=16 THEN DO; TRKTYP=2; MM2=13214; CG=12222; RETURN; END; /* MARK LT */ IF MY GE 2006 AND V5='W' AND V=18 THEN DO; TRKTYP=2; MM2=13215; CG=12222; RETURN; END; /* MARK LT 4X4 */ IF 1998 LE MY LE 2006 AND V5='U' AND V=27 THEN DO; TRKTYP=4; MM2=13312; CG=12307; RETURN; END; /* NAVIGATOR ends 2006 */ IF 1998 LE MY LE 2006 AND V5='U' AND V=28 THEN DO; TRKTYP=4; MM2=13313; CG=12307; RETURN; END; /* NAVIGATOR 4X4 ends 2006 */ IF 2003 LE MY LE 2005 AND V5='U' AND V=68 THEN DO; TRKTYP=3; MM2=13302; CG=12311; RETURN; END; /* AVIATOR ends 2005 */ IF MY=2003 AND V5='U' AND V=78 THEN DO; TRKTYP=3; MM2=13303; CG=12311; RETURN; END; IF 2003 LE MY LE 2005 AND V5='U' AND V=88 THEN DO; TRKTYP=3; MM2=13308; CG=12311; RETURN; END; /* AVIATOR AWD ends 2005 */ IF MY GE 2007 AND V5 IN ('U') AND V=68 THEN DO; TRKTYP=4; MM2=13014; CG=12314; RETURN; END; /* MKX */ IF MY GE 2007 AND V5 IN ('U') AND V=88 THEN DO; TRKTYP=4; MM2=13014; CG=12314; RETURN; END; /* MKX AWD */ IF MY GE 2007 AND V5='U' AND V=27 THEN DO; TRKTYP=4; MM2=13312; CG=12316; RETURN; END; /* NAVIGATOR */ IF MY GE 2007 AND V5='U' AND V=28 THEN DO; TRKTYP=4; MM2=13313; CG=12316; RETURN; END; /* NAVIGATOR 4X4 */ IF MY GE 2007 AND V5='L' AND V=27 THEN DO; TRKTYP=4; MM2=13316; CG=12317; RETURN; END; /* NAVIGATOR L */ IF MY GE 2007 AND V5='L' AND V=28 THEN DO; TRKTYP=4; MM2=13317; CG=12317; RETURN; END; /* NAVIGATOR L 4X4 */ TRKTYP=9; CG=99999; MM2=99999; RETURN; LTMERC: V5=TRANSLATE(V5,'ZSGB','2568'); V4=TRANSLATE(V4,'ZSGB','2568'); V6=TRANSLATE(V6,'2568','ZSGB'); V7=TRANSLATE(V7,'2568','ZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); IF MY=1997 AND V5='U' AND V=52 AND V3='2' AND V4='D' THEN DO; TRKTYP=3; MM2=14302; CG=12305; RETURN; END; IF MY=1998 AND V5='U' AND V=52 AND V3='2' AND V4='Z' THEN DO; TRKTYP=3; MM2=14302; CG=12305; RETURN; END; IF 1999 LE MY LE 2001 AND V5='U' AND V=52 AND V3='2' AND V4 IN ('D','Z') THEN DO; TRKTYP=3; MM2=14302; CG=12305; RETURN; END; IF 2000 LE MY LE 2001 AND V5='U' AND V=66 AND V3='2' AND V4 IN ('D','Z') THEN DO; TRKTYP=3; MM2=14302; CG=12305; RETURN; END; IF MY=1997 AND V5='U' AND V=54 AND V3='2' AND V4='D' THEN DO; TRKTYP=3; MM2=14303; CG=12305; RETURN; END; IF MY=1998 AND V5='U' AND V=54 AND V3='2' AND V4='Z' THEN DO; TRKTYP=3; MM2=14303; CG=12305; RETURN; END; IF 1999 LE MY LE 2001 AND V5='U' AND V=54 AND V3='2' AND V4 IN ('D','Z') THEN DO; TRKTYP=3; MM2=14303; CG=12305; RETURN; END; IF 2000 LE MY LE 2001 AND V5='U' AND V=76 AND V3='2' AND V4 IN ('D','Z') THEN DO; TRKTYP=3; MM2=14303; CG=12305; RETURN; END; IF MY=1997 AND V5='U' AND V=55 AND V3='2' AND V4='D' THEN DO; TRKTYP=3; MM2=14308; CG=12305; RETURN; END; IF 1998 LE MY LE 2001 AND V5='U' AND V=55 AND V3='2' AND V4 IN ('D','Z') THEN DO; TRKTYP=3; MM2=14308; CG=12305; RETURN; END; IF 2000 LE MY LE 2001 AND V5='U' AND V=86 AND V3='2' AND V4 IN ('D','Z') THEN DO; TRKTYP=3; MM2=14308; CG=12305; RETURN; END; IF 2005 LE MY LE 2006 AND V5='U' AND V=56 THEN DO; TRKTYP=3; MM2=14342; CG=12309; RETURN; END; /* MARINER */ IF MY GE 2007 AND V5='U' AND V IN (80,81,87) THEN DO; TRKTYP=3; MM2=14342; CG=12309; RETURN; END; /* MARINER */ IF 2005 LE MY LE 2006 AND V5='U' AND V=57 THEN DO; TRKTYP=3; MM2=14343; CG=12309; RETURN; END; /* MARINER 4X4 */ IF MY GE 2007 AND V5='U' AND V IN (90,91,97) THEN DO; TRKTYP=3; MM2=14343; CG=12309; RETURN; END; /* MARINER 4X4 */ IF MY = 2006 AND V5='U' AND V=98 THEN DO; TRKTYP=3; MM2=14347; CG=12309; RETURN; END; /* MARINER HYBRID 4X4 */ IF MY GE 2007 AND V5='U' AND V=39 THEN DO; TRKTYP=3; MM2=14347; CG=12309; RETURN; END; /* MARINER HYBRID 4X4 */ IF 2002 LE MY LE 2005 AND V5='U' AND V=66 AND V3='2' THEN DO; TRKTYP=3; MM2=14302; CG=12311; RETURN; END; IF 2002 LE MY LE 2003 AND V5='U' AND V=76 AND V3='2' THEN DO; TRKTYP=3; MM2=14303; CG=12311; RETURN; END; IF 2002 LE MY LE 2005 AND V5='U' AND V=86 AND V3='2' THEN DO; TRKTYP=3; MM2=14308; CG=12311; RETURN; END; IF MY = 2006 AND V5='U' AND V IN (36,37,38) AND V3='2' THEN DO; TRKTYP=3; MM2=14302; CG=12313; RETURN; END; /* MOUNTAINEER */ IF MY GE 2007 AND V5='U' AND V IN (37,38) AND V3='2' THEN DO; TRKTYP=3; MM2=14302; CG=12313; RETURN; END; /* MOUNTAINEER */ IF MY = 2006 AND V5='U' AND V IN (46,47,48) AND V3='2' THEN DO; TRKTYP=3; MM2=14308; CG=12313; RETURN; END; /* MOUNTAINEER AWD */ IF MY GE 2007 AND V5='U' AND V IN (47,48) AND V3='2' THEN DO; TRKTYP=3; MM2=14308; CG=12313; RETURN; END; /* MOUNTAINEER AWD */ IF 1993 LE MY LE 1997 AND V5='V' AND V=14 AND V4='D' THEN DO; TRKTYP=5; MM2=14450; CG=12405; RETURN; END; IF MY=1998 AND V5='V' AND V=14 AND V4='Z' THEN DO; TRKTYP=5; MM2=14450; CG=12405; RETURN; END; IF 1993 LE MY LE 1997 AND V5='V' AND V=11 AND V4='D' THEN DO; TRKTYP=5; MM2=14452; CG=12405; RETURN; END; IF MY=1998 AND V5='V' AND V=11 AND V4='Z' THEN DO; TRKTYP=5; MM2=14452; CG=12405; RETURN; END; IF MY=1999 AND V5='V' AND V=11 AND V4='X' THEN DO; TRKTYP=5; MM2=14452; CG=12407; RETURN; END; IF 2000 LE MY LE 2002 AND V5='V' AND V IN (11,12,14) THEN DO; TRKTYP=5; MM2=14452; CG=12407; RETURN; END; IF MY=2004 AND V5='A' AND V=20 AND V1='2' AND V2='M' AND V3='R' THEN DO; TRKTYP=5; MM2=14402; CG=12409; RETURN; END; IF MY=2005 AND V5='A' AND V IN (21,22,23) AND V1='2' AND V2='M' AND V3='R' THEN DO; TRKTYP=5; MM2=14402; CG=12409; RETURN; END; IF MY GE 2006 AND V5='A' AND V=22 AND V1='2' AND V2='M' AND V3='R' THEN DO; TRKTYP=5; MM2=14402; CG=12409; RETURN; END; /* MONTEREY */ TRKTYP=9; CG=99999; MM2=99999; RETURN; RUN;