OPTION NOCENTER NOFMTERR OBS=5000000 LS=160 PAGESIZE=89; /* 3CarImp2000.SAS VIN ANALYSIS FOR 1981-2000 IMPORTED PASSENGER CARS */ /* UPDATED: 10/18/2001 */ DATA IMPCAR2(DROP=V V78 V45 V46 V67 V47 V56); SET IMPCAR1; IF 30 LE MAK3 LE 64; IF MAK3=49 THEN GOTO TOYOTA; IF MAK3=37 THEN GOTO HONDA; IF MAK3=35 THEN GOTO NISSAN; IF MAK3=41 THEN GOTO MAZDA; IF MAK3=52 THEN GOTO MITS; IF MAK3=48 THEN GOTO SUBARU; IF MAK3=55 THEN GOTO HYUNDAI; IF MAK3=54 THEN GOTO ACURA; IF MAK3=30 THEN GOTO VW; IF MAK3=34 THEN GOTO BMW; IF MAK3=51 THEN GOTO VOLVO; IF MAK3=46 THEN GOTO RENAULT; IF MAK3=42 THEN GOTO MEBE; IF MAK3=59 THEN GOTO LEXUS; IF MAK3=47 THEN GOTO SAAB; IF MAK3=57 THEN GOTO YUGO; IF MAK3=32 THEN GOTO AUDI; IF MAK3=58 THEN GOTO INFINITI; IF MAK3=38 THEN GOTO ISUZU; IF MAK3=45 THEN GOTO PORSCHE; IF MAK3=39 THEN GOTO JAGUAR; IF MAK3=44 THEN GOTO PEUGEOT; IF MAK3=61 THEN GOTO STERLING; IF MAK3=53 THEN GOTO SUZUKI; IF MAK3=60 THEN GOTO DAIHATSU; IF MAK3=56 THEN GOTO MERKUR; IF MAK3=63 THEN GOTO KIA; IF MAK3=36 THEN GOTO FIAT; IF MAK3=64 THEN GOTO DAEWOO; CG=9999; MM2=9999; RETURN; VW: V4=TRANSLATE(V4,'OIZSGB','012568'); V7=TRANSLATE(V7,'012568','OIZSGB'); IF V6='O' THEN V6='0'; V78=V7||V8; IF MY=1981 AND V78 IN ('32','33') AND V1='W' THEN DO; MM2=3037; CG=3003; RETURN; END; IF 1981 LE MY LE 1984 AND V78 IN ('15','17') THEN DO; MM2=3036; CG=3004; RETURN; END; IF 1981 LE MY LE 1988 AND V78='53' AND V4='C' AND V1='W' THEN DO; MM2=3038; CG=3004; RETURN; END; IF 1981 LE MY LE 1984 AND V78='16' AND (V4='C' OR V4='G') AND V1 IN ('1','W') THEN DO; MM2=3040; CG=3004; RETURN; END; IF 1985 LE MY LE 1993 AND V78='15' AND V1='W' AND V4 IN ('A','B','C','D','E') THEN DO; MM2=3042; CG=3004; RETURN; END; IF 1982 LE MY LE 1988 AND V78 IN ('32','33') AND V1='W' AND V4 IN ('C','F','G','H') THEN DO; MM2=3041; CG=3005; RETURN; END; IF MY=1989 AND V78 IN ('16','1G') AND V4 IN ('A','B','D','F') AND V1 IN ('1','W','3') THEN DO; MM2=3042; CG=3006; RETURN; END; IF 1985 LE MY LE 1988 AND V78 IN ('16','1G') AND V1='W' AND V4 IN ('A','C','E','F','G','H') THEN DO; MM2=3040; CG=3006; RETURN; END; IF 1987 LE MY LE 1988 AND V78 IN ('16','1G') AND V1='1' AND V4 IN ('A','C','E','F','G','H') THEN DO; MM2=3040; CG=3006; RETURN; END; IF 1989 LE MY LE 1992 AND V4 IN ('K','M','P','R','S','T') AND V78 IN ('16','1G') AND V1 IN ('W','3') THEN DO; MM2=3040; CG=3006; RETURN; END; IF MY=1992 AND V4 IN ('M','R','S','T') AND V78='1H' AND V1 IN ('W','3') THEN DO; MM2=3040; CG=3006; RETURN; END; IF 1993 LE MY LE 1997 AND V4 IN ('P','R','S','T','V','W') AND V78='1H' AND V1 IN ('W','3') THEN DO; MM2=3040; CG=3006; RETURN; END; IF MY=1997 AND V4='X' AND V78='1H' AND V1 IN ('W','3') THEN DO; MM2=3040; CG=3006; RETURN; END; IF MY=1998 AND V4 IN ('P','R','S','T','V','W','Y') AND V78='1H' AND V1 IN ('W','3') THEN DO; MM2=3040; CG=3006; RETURN; END; /* POLK DOES NOT DISTINGUISH OLD AND NEW 1999 JETTA, GOLF */ /* THIS AFFECTS MM2=3040,3042 AND CG=3006,3010 IN MY 1999 */ IF MY=1999 AND V4 IN ('P','R','S','T','V','W','Y') AND V78='1H' AND V1 IN ('W','3') THEN DO; MM2=3040; CG=3006; CGP=3098; RETURN; END; IF 1985 LE MY LE 1989 AND V78='17' AND V1 IN ('W','1') AND V4 IN ('A','B','C','D','E','F','G') THEN DO; MM2=3042; CG=3006; RETURN; END; IF MY=1989 AND V78='17' AND V1='3' AND V4 IN ('A','B','C','D','E','F','G') THEN DO; MM2=3042; CG=3006; RETURN; END; IF 1990 LE MY LE 1992 AND V4 IN ('B','D','F','H') AND V78 IN ('16','1G') AND V1 IN ('W','3') THEN DO; MM2=3042; CG=3006; RETURN; END; IF MY=1992 AND V4 IN ('B','D','F','H') AND V78='1H' AND V1 IN ('W','3') THEN DO; MM2=3042; CG=3006; RETURN; END; IF 1993 LE MY LE 1994 AND V4 IN ('B','D','F') AND V1 IN ('W','3') AND V78='1H' THEN DO; MM2=3042; CG=3006; RETURN; END; IF MY=1995 AND V4 IN ('B','F','K','H','L','J') AND V78='1H' AND V1 IN ('W','3') THEN DO; MM2=3042; CG=3006; RETURN; END; IF MY=1996 AND V4 IN ('B','D','F','H') AND V78='1H' AND V1 IN ('W','3') THEN DO; MM2=3042; CG=3006; RETURN; END; IF MY=1997 AND V4 IN ('B','D','F','H','K') AND V78='1H' AND V1 IN ('W','3') THEN DO; MM2=3042; CG=3006; RETURN; END; IF MY=1998 AND V4 IN ('C','D','F','G','H','J','K') AND V78='1H' AND V1='3' THEN DO; MM2=3042; CG=3006; RETURN; END; IF MY=1999 AND V4 IN ('C','D','F','G','H','J','K') AND V78='1H' AND V1='3' THEN DO; MM2=3042; CG=3006; CGP=3098; RETURN; END; IF 1995 LE MY LE 1999 AND V4 IN ('A','B','C','D') AND V78='1E' THEN DO; MM2=3043; CG=3006; RETURN; END; IF MY GE 2000 AND V78='1V' THEN DO; MM2=3043; CG=3006; RETURN; END; IF 1990 LE MY LE 1993 AND V78='50' AND V4 IN ('D','E') AND V1='W' THEN DO; MM2=3045; CG=3006; RETURN; END; IF MY=1994 AND V78='60' AND V4='E' AND V1='W' THEN DO; MM2=3045; CG=3006; RETURN; END; IF 1987 LE MY LE 1993 AND V78 IN ('03','30') AND V1 IN ('9','W') AND V4 IN ('B','C','D','G') THEN DO; MM2=3044; CG=3007; RETURN; END; IF 1990 LE MY LE 1994 AND V78='31' AND V1='W' AND V4 IN ('E','F','G','H','J','N') THEN DO; MM2=3046; CG=3008; RETURN; END; IF 1995 LE MY LE 1997 AND V78='3A' AND V1='W' THEN DO; MM2=3046; CG=3008; RETURN; END; IF MY=1998 AND V78 IN('3A','3B') AND V1='W' AND V4 IN ('M','N','P','T') THEN DO; MM2=3046; CG=3009; RETURN; END; IF MY GE 1999 AND V78='3B' THEN DO; MM2=3046; CG=3009; RETURN; END; IF MY GE 1998 AND V78='1C' AND V1='3' THEN DO; MM2=3047; CG=3010; RETURN; END; IF MY=1999 AND V78='9M' THEN DO; MM2=3040; CG=3010; CGP=3098; RETURN; END; IF MY GE 2000 AND V78='9M' THEN DO; MM2=3040; CG=3010; RETURN; END; IF MY=1999 AND V78='1J' THEN DO; MM2=3042; CG=3010; CGP=3098; RETURN; END; IF MY GE 2000 AND V78='1J' THEN DO; MM2=3042; CG=3010; RETURN; END; CG=9999; MM2=9999; RETURN; AUDI: V7=TRANSLATE(V7,'012568','OIZSGB'); IF V6='O' THEN V6='0'; V78=V7||V8; IF 1981 LE MY LE 1983 AND V78='43' AND V4 IN ('F','G','H') THEN DO; MM2=3235; CG=3203; RETURN; END; IF 1981 LE MY LE 1987 AND V78 IN ('81','85') AND V4 IN ('B','D','F') THEN DO; MM2=3234; CG=3204; RETURN; END; IF 1984 LE MY LE 1988 AND V78='44' AND V4 IN ('D','F','G','H') THEN DO; MM2=3235; CG=3205; RETURN; END; IF 1989 LE MY LE 1990 AND V78='44' THEN DO; MM2=3237; CG=3205; RETURN; END; IF 1991 LE MY LE 1994 AND V7='4' THEN DO; MM2=3237; CG=3205; RETURN; END; IF 1995 LE MY LE 1997 AND V78='4A' AND V4 IN ('F','G','H','J') THEN DO; MM2=3242; CG=3205; RETURN; END; IF MY GE 1998 AND V78='4A' AND V4='J' THEN DO; MM2=3242; CG=3205; RETURN; END; IF MY=1995 AND V78='4A' AND V4='K' THEN DO; MM2=3242; CG=3205; RETURN; END; IF MY=1988 AND V78='89' AND V4 IN ('E','F','G','H') THEN DO; MM2=3236; CG=3206; RETURN; END; IF 1989 LE MY LE 1992 AND V7='8' AND V4 IN ('E','F','G','H') THEN DO; MM2=3236; CG=3206; RETURN; END; IF 1993 LE MY LE 1995 AND V78='8C' THEN DO; MM2=3236; CG=3207; RETURN; END; IF MY GE 2000 AND V78='8D' AND V4='D' AND V5='D' THEN DO; MM2=3240; CG=3207; RETURN; END; IF 1996 LE MY LE 1999 AND V78='8D' THEN DO; MM2=3243; CG=3207; RETURN; END; IF MY GE 2000 AND V78='8D' AND V4 IN('A','D','H','J') AND V5 IN('C','H') THEN DO; MM2=3243; CG=3207; RETURN; END; IF 1994 LE MY LE 1998 AND V78='8G' THEN DO; MM2=3241; CG=3208; RETURN; END; IF MY GE 1997 AND V78='4D' THEN DO; MM2=3244; CG=3209; RETURN; END; IF MY=1998 AND V78='4B' AND V4 IN ('A','B') THEN DO; MM2=3242; CG=3210; RETURN; END; IF MY GE 1999 AND V78='4B' THEN DO; MM2=3242; CG=3210; RETURN; END; IF MY GE 1999 AND V78='4B' AND V4 IN ('A','B') THEN DO; MM2=3242; CG=3210; RETURN; END; IF MY GE 2000 AND V78='8N' THEN DO; MM2=3245; CG=3211; RETURN; END; CG=9999; MM2=9999; RETURN; BMW: V4=TRANSLATE(V4,'OIZSGB','012568'); V5=TRANSLATE(V5,'OIZSGB','012568'); V45=V4||V5; IF MY=1981 AND V45='CJ' AND V7 IN ('5','7') THEN DO; MM2=3435; CG=3406; RETURN; END; IF 1982 LE MY LE 1988 AND V45 IN ('DB','DC','DK') AND V7 IN ('3','4') THEN DO; MM2=3435; CG=3406; RETURN; END; IF 1981 LE MY LE 1992 AND V8 NE 'A' AND V7 IN ('3','4') AND V45 IN ('AA','AB','AC','AD','AE','AF','AG','AJ','AK','BA','BB','BE','BF') THEN DO; MM2=3434; CG=3407; RETURN; END; IF MY=1993 AND V45='BB' THEN DO; MM2=3434; CG=3407; RETURN; END; IF 1981 LE MY LE 1983 AND V45 IN ('EB','EC') AND V7 IN ('5','6') THEN DO; MM2=3436; CG=3408; RETURN; END; IF 1983 LE MY LE 1989 AND V45 IN ('EB','EC') AND V7='4' THEN DO; MM2=3436; CG=3408; RETURN; END; IF 1981 LE MY LE 1987 AND V45 IN ('FF','FG','FH') AND V7 IN ('3','4') THEN DO; MM2=3437; CG=3409; RETURN; END; IF 1988 LE MY LE 1992 AND V45='GB' AND V7='3' THEN DO; MM2=3437; CG=3410; RETURN; END; IF 1993 LE MY LE 1994 AND V45='GD' AND V6='4' AND V7='3' THEN DO; MM2=3437; CG=3410; RETURN; END; IF 1988 LE MY LE 1994 AND V45='GC' AND V7='3' THEN DO; MM2=3437; CG=3411; RETURN; END; IF 1993 LE MY LE 1994 AND V45='GD' AND V6='8' AND V7='3' THEN DO; MM2=3437; CG=3411; RETURN; END; IF 1989 LE MY LE 1993 AND V45 IN ('HC','HD','HE','HJ','HK') AND V7='3' THEN DO; MM2=3435; CG=3412; RETURN; END; IF 1994 LE MY LE 1995 AND V45 IN ('HD','HE','HJ','HK') AND V7='3' THEN DO; MM2=3435; CG=3412; RETURN; END; IF 1991 LE MY LE 1997 AND V45 IN ('EF','EG') AND V7='3' THEN DO; MM2=3438; CG=3413; RETURN; END; IF MY=1992 AND V45 IN ('CA','CB') AND V7='3' THEN DO; MM2=3434; CG=3414; RETURN; END; IF MY=1993 AND V45 IN ('CA','CB','BE','BF') AND V7='3' THEN DO; MM2=3434; CG=3414; RETURN; END; IF 1994 LE MY LE 1995 AND V45 IN ('CA','CB','CG','BE','BF','BK','BJ') AND V7='3' THEN DO; MM2=3434; CG=3414; RETURN; END; IF MY=1995 AND V45='CC' AND V7='3' THEN DO; MM2=3434; CG=3414; RETURN; END; IF MY=1996 AND V45 IN ('BE','CD','CG','BH','BK','BG') AND V7='3' THEN DO; MM2=3434; CG=3414; RETURN; END; IF MY=1997 AND V45 IN ('BE','CC','CD','CG','BH','BK','BG') AND V7='3' THEN DO; MM2=3434; CG=3414; RETURN; END; IF MY=1998 AND V45 IN ('BF','BG','BJ','BK','CC','CD','CG') AND V7='3' THEN DO; MM2=3434; CG=3414; RETURN; END; IF MY=1999 AND V45 IN ('BF','BG','BJ','BK','CG') AND V7='3' THEN DO; MM2=3434; CG=3414; RETURN; END; IF MY IN(1995,1997,1998) AND V45='GF' THEN DO; MM2=3437; CG=3415; RETURN; END; IF MY GE 1999 AND V45='GG' THEN DO; MM2=3437; CG=3415; RETURN; END; IF 1995 LE MY LE 1998 AND V45 IN ('GJ','GK')THEN DO; MM2=3437; CG=3416; RETURN; END; IF MY GE 1999 AND V45 IN ('GH','GJ','GK')THEN DO; MM2=3437; CG=3416; RETURN; END; IF 1996 LE MY LE 1997 AND V45 IN ('CH','CJ') THEN DO; MM2=3439; CG=3417; RETURN; END; IF MY=1998 AND V45 IN ('CH','CJ','CK') THEN DO; MM2=3439; CG=3417; RETURN; END; IF MY GE 1999 AND V45 IN ('CH','CJ','CK','CM') THEN DO; MM2=3439; CG=3417; RETURN; END; IF 1997 LE MY LE 1999 AND V45 IN ('DD','DE') THEN DO; MM2=3435; CG=3418; RETURN; END; IF MY GE 1999 AND V45 IN ('DM','DN','DP','DR') THEN DO; MM2=3435; CG=3418; RETURN; END; IF MY=1999 AND V45='AM' THEN DO; MM2=3434; CG=3419; RETURN; END; IF MY GE 2000 AND V45 IN ('AM','BM') THEN DO; MM2=3434; CG=3419; RETURN; END; /* NOT CODED IN 2000 VIN BOOK - Z8 IF MY GE 2000 AND V45 IN ('??') THEN DO; MM2=3440; CG=3420; RETURN; END; */ CG=9999; MM2=9999; RETURN; NISSAN: V5=TRANSLATE(V5,'OIZSGB','012568'); V4=TRANSLATE(V4,'OIZSGB','012568'); V6=TRANSLATE(V6,'012568','OIZSGB'); V7=TRANSLATE(V7,'012568','OIZSGB'); IF V8='5' THEN V8='S'; IF 1981 LE MY LE 1982 AND V4 IN ('C','H','P') AND V5='B' AND V6='0' THEN DO; MM2=3533; CG=3506; RETURN; END; IF MY=1981 AND V4='H' AND V5='T' AND V6='0' THEN DO; MM2=3536; CG=3512; RETURN; END; IF 1981 LE MY LE 1982 AND V4 IN ('M','P') AND V5='N' AND V6='0' THEN DO; MM2=3535; CG=3513; RETURN; END; IF 1981 LE MY LE 1983 AND V4 IN ('C','H') AND V5='Z' AND V7='4' AND V6='0' THEN DO; MM2=3534; CG=3514; RETURN; END; IF 1984 LE MY LE 1989 AND V4 IN ('C','H') AND V5='Z' AND V7='4' AND V6='1' THEN DO; MM2=3534; CG=3514; RETURN; END; IF 1981 LE MY LE 1983 AND V4 IN ('C','H') AND V5='Z' AND V7='6' AND V6='0' THEN DO; MM2=3534; CG=3515; RETURN; END; IF 1984 LE MY LE 1989 AND V4 IN ('C','H') AND V5='Z' AND V7='6' AND V6='1' THEN DO; MM2=3534; CG=3515; RETURN; END; IF MY=1981 AND V4='P' AND V5='S' AND V6='0' AND V1='J' THEN DO; MM2=3532; CG=3516; RETURN; END; IF 1982 LE MY LE 1983 AND V4='R' AND V5='S' AND V6='0' AND V1='J' THEN DO; MM2=3532; CG=3516; RETURN; END; IF 1981 LE MY LE 1984 AND V4 IN ('H','S') AND V5='U' AND V6='0' AND V7 IN ('1','5') THEN DO; MM2=3539; CG=3517; RETURN; END; IF MY=1982 AND V4='H' AND V5='B' AND V6='1' AND V7 IN ('1','2','4','5') THEN DO; MM2=3543; CG=3518; RETURN; END; IF 1983 LE MY LE 1986 AND V4 IN ('H','P','S') AND V5='B' AND V6='1' AND V7 IN ('1','2','4','5') THEN DO; MM2=3543; CG=3518; RETURN; END; IF 1982 LE MY LE 1986 AND V5='T' AND V6='1' AND V4='H' THEN DO; MM2=3542; CG=3519; RETURN; END; IF 1983 LE MY LE 1986 AND V4 IN ('C','M') AND V5='N' AND V6='2' THEN DO; MM2=3544; CG=3520; RETURN; END; IF 1984 LE MY LE 1988 AND V5='S' AND V6='2' AND V4 IN ('C','P','V') AND V1='J' THEN DO; MM2=3532; CG=3521; RETURN; END; IF 1985 LE MY LE 1988 AND V5='U' AND V6='1' AND V4='H' AND V7 IN ('1','5') THEN DO; MM2=3539; CG=3522; RETURN; END; IF 1987 LE MY LE 1989 AND V5='T' AND V6='2' AND V4='H' THEN DO; MM2=3542; CG=3522; RETURN; END; IF 1990 LE MY LE 1992 AND V5='U' AND V6='2' AND V4='F' THEN DO; MM2=3542; CG=3522; RETURN; END; IF 1986 LE MY LE 1989 AND V4='H' AND V5='M' AND V6='0' THEN DO; MM2=3542; CG=3523; RETURN; END; IF 1987 LE MY LE 1990 AND V5='B' AND V6='2' AND V4 IN ('G','P') THEN DO; MM2=3543; CG=3524; RETURN; END; IF 1991 LE MY LE 1994 AND V4 IN ('E','G') AND V5='B' AND V7 IN ('1','2') AND V6='3' THEN DO; MM2=3543; CG=3524; RETURN; END; IF 1987 LE MY LE 1990 AND V5='N' AND V6='3' AND V7='4' THEN DO; MM2=3544; CG=3524; RETURN; END; IF 1991 LE MY LE 1993 AND V4 IN ('E','G') AND V5='B' AND V7 IN ('4','6') AND V6='3' THEN DO; MM2=3546; CG=3524; RETURN; END; IF 1989 LE MY LE 1994 AND V4 IN ('E','F','H') AND V5='J' AND V6='0' AND V7='1' THEN DO; MM2=3539; CG=3525; RETURN; END; IF 1989 LE MY LE 1994 AND V5='S' AND V6='3' AND V4 IN ('H','M') AND V1='J' THEN DO; MM2=3532; CG=3526; RETURN; END; IF 1990 LE MY LE 1996 AND V5='Z' AND V7 IN ('4','7') AND V6='2' AND V4 IN ('C','R') THEN DO; MM2=3534; CG=3527; RETURN; END; IF 1990 LE MY LE 1996 AND V5='Z' AND V7='6' AND V6='2' AND V4 IN ('C','R') THEN DO; MM2=3534; CG=3528; RETURN; END; IF 1990 LE MY LE 1991 AND V4='H' AND V5='M' AND V6='1' AND V7='5' THEN DO; MM2=3548; CG=3531; RETURN; END; IF 1993 LE MY LE 1997 AND V5='U' AND V6='3' AND V4='B' AND V7='1' THEN DO; MM2=3547; CG=3532; RETURN; END; IF MY GE 1998 AND V5='L' AND V6='0' AND V4='D' AND V7='1' THEN DO; MM2=3547; CG=3532; RETURN; END; IF 1995 LE MY LE 1999 AND V4='C' AND V5='A' AND V6='2' AND V7='1' THEN DO; MM2=3539; CG=3534; RETURN; END; IF 1995 LE MY LE 1998 AND V4='A' AND V5='S' AND V6='4' AND V1='J' THEN DO; MM2=3532; CG=3535; RETURN; END; IF MY=1995 AND V5='B' AND V7 IN ('1','2') AND V6='4' THEN DO; MM2=3543; CG=3536; RETURN; END; IF 1996 LE MY LE 1999 AND V5='B' AND V6='4' AND V7='1' THEN DO; MM2=3543; CG=3536; RETURN; END; IF MY GE 2000 AND V5='B' AND V6='5' AND V7='1' THEN DO; MM2=3543; CG=3536; RETURN; END; IF MY GE 1996 AND V5='B' AND V6='4' AND V7='2' AND V1='1' THEN DO; MM2=3532; CG=3536; RETURN; END; IF MY GE 2000 AND V4='C' AND V5='A' AND V6='3' THEN DO; MM2=3539; CG=3539; RETURN; END; CG=9999; MM2=9999; RETURN; FIAT: V4=TRANSLATE(V4,'OIZSGB','012568'); V5=TRANSLATE(V5,'S','5'); IF 1981 LE MY LE 1982 AND V4='A' THEN DO; MM2=3632; CG=3602; RETURN; END; IF MY=1983 AND V4='A' THEN DO; MM2=3632; CG=3602; MMP=9999; CGP=9999; RETURN; END; IF 1981 LE MY LE 1982 AND V4='D' THEN DO; MM2=3637; CG=3604; RETURN; END; IF 1981 LE MY LE 1982 AND V4='B' AND V5='S' THEN DO; MM2=3636; CG=3606; RETURN; END; IF MY=1983 AND V4='B' AND V5='S' THEN DO; MM2=3636; CG=3606; MMP=9999; CGP=9999; RETURN; END; IF 1981 LE MY LE 1982 AND V4='C' THEN DO; MM2=3633; CG=3607; RETURN; END; CG=9999; MM2=9999; RETURN; HONDA: V4=TRANSLATE(V4,'OIZSGB','012568'); V5=TRANSLATE(V5,'OIZSGB','012568'); V6=TRANSLATE(V6,'012568','OIZSGB'); V8=TRANSLATE(V8,'012568','OIZSGB'); V45=V4||V5; V46=V45||V6; IF MY=1981 AND V45='SM' AND V7 IN ('3','4') THEN DO; MM2=3732; CG=3704; RETURN; END; IF 1981 LE MY LE 1983 AND ((V45='ST' AND V7='4') OR (V45='WD' AND V7='5') OR (V45='VG' AND V7='5')) THEN DO; MM2=3731; CG=3705; RETURN; END; IF 1981 LE MY LE 1982 AND V45='SN' AND V7='2' THEN DO; MM2=3733; CG=3705; RETURN; END; IF 1981 LE MY LE 1983 AND V45 IN ('SL','SR') AND V7='3' THEN DO; MM2=3731; CG=3706; RETURN; END; IF 1984 LE MY LE 1986 AND V45='AK' AND V7='4' THEN DO; MM2=3731; CG=3707; RETURN; END; IF 1984 LE MY LE 1986 AND V45 IN ('VN','AN','AR') AND V7='5' THEN DO; MM2=3731; CG=3707; RETURN; END; IF MY=1987 AND V46 IN ('EC4','EC5','EC6') THEN DO; MM2=3731; CG=3707; RETURN; END; IF MY=1987 AND V46='EY1' THEN DO; MM2=3731; CG=3707; RETURN; END; IF 1982 LE MY LE 1983 AND V45='SZ' AND V7 IN ('3','4') THEN DO; MM2=3732; CG=3707; RETURN; END; IF MY=1984 AND V45='AD' AND V7 IN ('3','4') THEN DO; MM2=3732; CG=3707; RETURN; END; IF MY=1985 AND V45 IN ('AC','AD') AND V7 IN ('3','4') THEN DO; MM2=3732; CG=3707; RETURN; END; IF 1983 LE MY LE 1986 AND V45 IN ('AB','BB') AND V7='2' AND V1='J' THEN DO; MM2=3733; CG=3707; RETURN; END; IF MY=1987 AND V46 IN ('BA3','BA6') AND V1='J' THEN DO; MM2=3733; CG=3707; RETURN; END; IF 1984 LE MY LE 1986 AND V45 IN ('AE','AF') AND V7='3' THEN DO; MM2=3735; CG=3708; RETURN; END; IF MY=1987 AND V46='EC1' THEN DO; MM2=3735; CG=3708; RETURN; END; IF 1984 LE MY LE 1986 AND V45 IN ('AG','AH') AND V1='J' AND V7='3' THEN DO; MM2=3731; CG=3709; RETURN; END; IF MY=1987 AND V46 IN ('EC2','EC3') THEN DO; MM2=3731; CG=3709; RETURN; END; IF MY=1986 AND V45='BA' AND V7 IN ('3','4') THEN DO; MM2=3732; CG=3710; RETURN; END; IF 1987 LE MY LE 1989 AND V46 IN ('CA5','CA6') THEN DO; MM2=3732; CG=3710; RETURN; END; IF 1988 LE MY LE 1991 AND V46 IN ('ED8','ED9') AND V1='J' THEN DO; MM2=3735; CG=3714; RETURN; END; IF 1988 LE MY LE 1991 AND ((V46='EC5' AND MY=1988) OR (V46='EC6' AND MY=1988) OR V46='ED3' OR (V46='ED4' AND MY GE 1990) OR V46='ED6' OR (V46='ED7' AND MY GE 1989) OR V46='EE2' OR V46='EE4') THEN DO; MM2=3731; CG=3715; RETURN; END; IF MY=1988 AND V46='EY1' THEN DO; MM2=3731; CG=3715; RETURN; END; IF 1988 LE MY LE 1989 AND V46='EY3' THEN DO; MM2=3731; CG=3715; RETURN; END; IF 1988 LE MY LE 1991 AND V46='BA4' AND V1='J' THEN DO; MM2=3733; CG=3716; RETURN; END; IF 1992 LE MY LE 1996 AND V1='J' AND V46 IN ('BA8','BB1','BB2') THEN DO; MM2=3733; CG=3717; RETURN; END; IF 1990 LE MY LE 1993 AND V46 IN ('CB7','CB9') THEN DO; MM2=3732; CG=3718; RETURN; END; IF 1992 LE MY LE 1995 AND V46 IN ('EH2','EH3') AND V1='2' THEN DO; MM2=3731; CG=3722; RETURN; END; IF 1992 LE MY LE 1995 AND V46 IN ('EG8','EH9','EJ1','EJ2') THEN DO; MM2=3731; CG=3723; RETURN; END; IF 1996 LE MY LE 1997 AND V46 IN ('EJ6','EJ7','EJ8') THEN DO; MM2=3731; CG=3723; RETURN; END; IF MY=1998 AND V46 IN ('EJ6','EJ7','EJ8','EN1') THEN DO; MM2=3731; CG=3723; RETURN; END; IF MY GE 1999 AND V46 IN ('EJ6','EJ7','EJ8','EN1','EM1') THEN DO; MM2=3731; CG=3723; RETURN; END; IF 1993 LE MY LE 1997 AND V1='J' AND V46 IN ('EG1','EG2','EH6') THEN DO; MM2=3735; CG=3725; RETURN; END; IF 1994 LE MY LE 1997 AND V46 IN ('CD5','CD7','CE1','CE6') THEN DO; MM2=3732; CG=3726; RETURN; END; IF MY GE 1998 AND V46 IN ('CF8','CG1','CG5','CG6') THEN DO; MM2=3732; CG=3726; RETURN; END; IF MY GE 1997 AND V46='BB6' THEN DO; MM2=3733; CG=3729; RETURN; END; IF MY GE 1998 AND V46 IN ('CG2','CG3') THEN DO; MM2=3732; CG=3730; RETURN; END; IF 1998 LE MY LE 1999 AND V46='ZA1' THEN DO; MM2=3736; CG=3731; RETURN; END; IF MY GE 2000 AND V46='ZE1' THEN DO; MM2=3737; CG=3731; RETURN; END; IF MY GE 2000 AND V46='AP1' THEN DO; MM2=3735; CG=3733; RETURN; END; CG=9999; MM2=9999; RETURN; ISUZU: V6=TRANSLATE(V6,'012568','OIZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); IF 1981 LE MY LE 1985 AND V5='T' AND V4 IN ('A','R') AND V IN (69,77) THEN DO; MM2=3831; CG=3801; RETURN; END; IF 1983 LE MY LE 1989 AND V5='R' AND V4 IN ('A','B') AND V=7 THEN DO; MM2=3832; CG=3802; RETURN; END; IF MY=1986 AND V5='T' AND V4='R' AND V IN (69,77) THEN DO; MM2=3831; CG=3803; RETURN; END; IF 1987 LE MY LE 1989 AND V5='T' AND V4='R' AND V6 IN ('2','5') THEN DO; MM2=3831; CG=3803; RETURN; END; IF 1990 LE MY LE 1992 AND V4='R' AND V5='T' AND V6 IN ('2','4') THEN DO; MM2=3832; CG=3804; RETURN; END; IF MY=1990 AND V4='R' AND V5='T' AND V6='5' THEN DO; MM2=3833; CG=3804; MMP=9999; CGP=9999; RETURN; END; IF 1991 LE MY LE 1993 AND V4='R' AND V5='T' AND V6='5' THEN DO; MM2=3833; CG=3804; RETURN; END; CG=9999; MM2=9999; RETURN; JAGUAR: V4=TRANSLATE(V4,'OIZSGB','012568'); V6=TRANSLATE(V6,'012568','OIZSGB'); V67=V6||V7; IF MY GE 2000 AND V6='0' AND V7='1' THEN DO; MM2=3934; CG=1241; RETURN; END; IF 1981 LE MY LE 1995 AND V4 IN ('A','B','F','H','K','M','P') AND V6='1' THEN DO; MM2=3932; CG=3903; RETURN; END; IF 1996 LE MY LE 1999 AND V4 IN ('H','P') AND V6='1' THEN DO; MM2=3932; CG=3903; RETURN; END; IF MY GE 2000 AND V67 IN('14','15') THEN DO; MM2=3932; CG=3903; RETURN; END; IF 1981 LE MY LE 1996 AND V4 IN ('N','S','T') AND V6 IN ('2','3','4','5') THEN DO; MM2=3931; CG=3904; RETURN; END; IF 1996 LE MY LE 1997 AND V4 IN ('H','K','M') AND V6 IN('6','7') THEN DO; MM2=3932; CG=3905; RETURN; END; IF 1998 LE MY LE 1999 AND V4 IN ('H','K') AND V6 IN ('6','7') THEN DO; MM2=3932; CG=3905; RETURN; END; IF MY GE 2000 AND V67 IN ('23','24','25') THEN DO; MM2=3932; CG=3905; RETURN; END; IF 1997 LE MY LE 1999 AND V4 IN ('G') THEN DO; MM2=3931; CG=3906; RETURN; END; IF MY GE 2000 AND V67 IN ('41','42') THEN DO; MM2=3931; CG=3906; RETURN; END; CG=9999; MM2=9999; RETURN; MAZDA: V4=TRANSLATE(V4,'OIZSGB','012568'); V8=TRANSLATE(V8,'26','ZG'); V5=TRANSLATE(V5,'OIZSGB','012568'); V6=TRANSLATE(V6,'012568','OIZSGB'); V7=TRANSLATE(V7,'012568','OIZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); V45=V4||V5; IF 1981 LE MY LE 1983 AND V4='B' AND V5='D' AND V=52 THEN DO; MM2=4135; CG=4106; RETURN; END; IF 1981 LE MY LE 1985 AND V4='F' AND V5='B' AND V=33 THEN DO; MM2=4134; CG=4107; RETURN; END; IF 1981 LE MY LE 1982 AND V4='G' AND V5='B' AND V IN (22,41) THEN DO; MM2=4137; CG=4108; RETURN; END; IF 1981 LE MY LE 1985 AND V4='B' AND V5='D' AND V IN (22,23,24) THEN DO; MM2=4135; CG=4109; RETURN; END; IF 1984 LE MY LE 1986 AND V4='B' AND V5='D' AND V=52 THEN DO; MM2=4135; CG=4109; RETURN; END; IF 1983 LE MY LE 1987 AND V4='G' AND V5='C' AND V IN (22,24,31) THEN DO; MM2=4137; CG=4110; RETURN; END; IF 1986 LE MY LE 1989 AND V1='J' AND V4='B' AND V5='F' AND V IN (22,23) THEN DO; MM2=4135; CG=4111; RETURN; END; IF 1987 LE MY LE 1988 AND V1='J' AND V4='B' AND V5='W' AND V=62 THEN DO; MM2=4135; CG=4111; RETURN; END; IF 1986 LE MY LE 1991 AND V1='J' AND V4='F' AND V5='C' AND V IN (33,35) THEN DO; MM2=4134; CG=4112; RETURN; END; IF 1988 LE MY LE 1992 AND V4='G' AND V5='D' AND V IN (22,24) THEN DO; MM2=4137; CG=4113; RETURN; END; IF 1988 LE MY LE 1991 AND V1='J' AND V4='H' AND V5='C' AND V=22 THEN DO; MM2=4143; CG=4114; RETURN; END; IF 1988 LE MY LE 1992 AND V4='G' AND V5='D' AND V=31 THEN DO; MM2=4144; CG=4115; RETURN; END; IF 1990 LE MY LE 1994 AND V1='J' AND V4='B' AND V5='G' AND V=23 THEN DO; MM2=4135; CG=4116; RETURN; END; IF 1990 LE MY LE 1994 AND V1='J' AND V4='B' AND V5='G' AND V=22 THEN DO; MM2=4135; CG=4117; RETURN; END; IF 1990 LE MY LE 1997 AND V1='J' AND V4='N' AND V5='A' AND V=35 THEN DO; MM2=4145; CG=4118; RETURN; END; IF MY GE 1998 AND V1='J' AND V4='N' AND V5='B' AND V=35 THEN DO; MM2=4145; CG=4118; RETURN; END; IF 1992 LE MY LE 1995 AND V1='J' AND V4='E' AND V5='C' AND V=43 THEN DO; MM2=4146; CG=4119; RETURN; END; IF 1992 LE MY LE 1995 AND V1='J' AND V4='H' AND V5='D' AND V=46 THEN DO; MM2=4143; CG=4120; RETURN; END; IF 1993 LE MY LE 1997 AND V1='1' AND V4='G' AND V5='E' AND V=22 THEN DO; MM2=4137; CG=4121; RETURN; END; IF 1993 LE MY LE 1997 AND V1='1' AND V4='G' AND V5='E' AND V=31 THEN DO; MM2=4144; CG=4121; RETURN; END; IF 1993 LE MY LE 1995 AND V1='J' AND V4='F' AND V5='D' AND V=33 THEN DO; MM2=4134; CG=4122; RETURN; END; IF 1995 LE MY LE 1998 AND V1='J' AND V45 IN ('BA','BB','BC') AND V=14 THEN DO; MM2=4135; CG=4123; RETURN; END; IF MY GE 1995 AND V1='J' AND V4='T' AND V5='A' AND V=22 THEN DO; MM2=4147; CG=4124; RETURN; END; IF MY GE 1998 AND V1='1' AND V4='G' AND V5='F' AND V=22 THEN DO; MM2=4137; CG=4125; RETURN; END; IF MY GE 1999 AND V4='B' AND V5='J' AND V=22 THEN DO; MM2=4135; CG=4126; RETURN; END; CG=9999; MM2=9999; RETURN; MEBE: V4=TRANSLATE(V4,'OIZSGB','012568'); V5=TRANSLATE(V5,'OIZSGB','012568'); V6=TRANSLATE(V6,'012568','OIZSGB'); V7=TRANSLATE(V7,'012568','OIZSGB'); V47=V4||V5||V6||V7; V56=V5||V6; V=10*INPUT(V6,1.0)+INPUT(V7,1.0); IF 1981 LE MY LE 1985 AND V4='B' AND V56='A4' THEN DO; MM2=4233; CG=4204; RETURN; END; IF MY=1981 AND V4='B' AND V56='A2' THEN DO; MM2=4234; CG=4205; RETURN; END; IF 1981 LE MY LE 1985 AND V4='A' AND V56 IN ('A3','B2','B3','B9') THEN DO; MM2=4231; CG=4208; RETURN; END; IF 1981 LE MY LE 1985 AND V4='A' AND V56 IN ('A5','B5') THEN DO; MM2=4231; CG=4209; RETURN; END; IF 1981 LE MY LE 1991 AND V4='C' AND ((V5='A' AND (V=32 OR V=24)) OR (V5='B' AND (V=20 OR V=34))) THEN DO; MM2=4237; CG=4210; RETURN; END; IF 1981 LE MY LE 1991 AND V4='C' AND ((V5='A' AND (V=25 OR V=33 OR V=35 OR V=37 OR V=39)) OR (V5='B' AND (V=25 OR V=35))) THEN DO; MM2=4236; CG=4211; RETURN; END; IF 1982 LE MY LE 1991 AND V4='C' AND V56='A4' THEN DO; MM2=4236; CG=4212; RETURN; END; IF 1984 LE MY LE 1993 AND V4='D' AND V56 IN ('A2','B2','A3') THEN DO; MM2=4239; CG=4213; RETURN; END; IF 1986 LE MY LE 1993 AND V4='E' AND V5 IN ('A','B','D') AND V6 IN ('2','3','9') THEN DO; MM2=4231; CG=4214; RETURN; END; IF 1994 LE MY LE 1995 AND V4='E' AND V5 IN ('A','B','D') AND V6 IN ('3','9') THEN DO; MM2=4231; CG=4214; RETURN; END; IF 1986 LE MY LE 1989 AND V4='B' AND V56='A4' THEN DO; MM2=4233; CG=4215; RETURN; END; IF 1988 LE MY LE 1991 AND V4='E' AND V6='5' THEN DO; MM2=4231; CG=4216; RETURN; END; IF 1992 LE MY LE 1995 AND V4='E' AND V6 IN ('5','6') THEN DO; MM2=4231; CG=4216; RETURN; END; IF MY GE 1990 AND V4='F' AND V56 IN ('A6','A7') THEN DO; MM2=4244; CG=4217; RETURN; END; IF MY=1993 AND V4='G' AND V6='7' THEN DO; MM2=4236; CG=4218; RETURN; END; IF 1992 LE MY LE 1993 AND V4='G' AND V6 IN ('3','4') THEN DO; MM2=4243; CG=4218; RETURN; END; IF MY=1994 AND V47='GB34' THEN DO; MM2=4243; CG=4218; RETURN; END; IF 1994 LE MY LE 1999 AND V47='GA32' THEN DO; MM2=4243; CG=4218; RETURN; END; IF 1992 LE MY LE 1993 AND V4='G' AND V6='5' THEN DO; MM2=4243; CG=4219; RETURN; END; IF 1994 LE MY LE 1999 AND V4='G' AND V6 IN ('4','5') THEN DO; MM2=4243; CG=4219; RETURN; END; IF 1995 LE MY LE 1999 AND V47='GA33' THEN DO; MM2=4243; CG=4219; RETURN; END; IF MY GE 1994 AND V4='H' AND V6 IN ('2','3') THEN DO; MM2=4242; CG=4220; RETURN; END; IF MY GE 1998 AND V4='L' AND V6 IN('6','7') THEN DO; MM2=4247; CG=4220; RETURN; END; IF 1994 LE MY LE 1997 AND V4='G' AND V6='7' THEN DO; MM2=4246; CG=4221; RETURN; END; IF 1998 LE MY LE 1999 AND V4='G' AND V6='7' THEN DO; MM2=4246; CG=4221; RETURN; END; IF 1996 LE MY LE 1997 AND V4='J' AND V6 IN ('5','2','7') THEN DO; MM2=4248; CG=4222; RETURN; END; IF MY GE 1998 AND V4='J' AND V5 IN ('F','H') THEN DO; MM2=4248; CG=4222; RETURN; END; IF MY GE 1998 AND V4='K' AND V6='4' THEN DO; MM2=4245; CG=4223; RETURN; END; IF MY GE 2000 AND V47='NG70' THEN DO; MM2=4245; CG=4223; RETURN; END; IF MY GE 2000 AND V4='P' THEN DO; MM2=4245; CG=4223; RETURN; END; CG=9999; MM2=9999; RETURN; PEUGEOT: V4=TRANSLATE(V4,'OIZSGB','012568'); V5=TRANSLATE(V5,'OIZSGB','012568'); V45=V4||V5; IF 1981 LE MY LE 1983 AND V45='CD' THEN DO; MM2=4434; CG=4404; RETURN; END; IF 1981 LE MY LE 1984 AND V45='AA' THEN DO; MM2=4435; CG=4405; RETURN; END; IF 1981 LE MY LE 1989 AND V45='BA' THEN DO; MM2=4434; CG=4406; RETURN; END; IF 1984 LE MY LE 1989 AND V45='BD' THEN DO; MM2=4434; CG=4407; RETURN; END; IF 1988 LE MY LE 1989 AND V45='BF' THEN DO; MM2=4434; CG=4407; RETURN; END; IF 1990 LE MY LE 1992 AND V4 IN ('B','C') AND V6 NE '1' THEN DO; MM2=4434; CG=4407; RETURN; END; IF 1989 LE MY LE 1992 AND V4 IN ('D','E') THEN DO; MM2=4436; CG=4408; RETURN; END; CG=9999; MM2=9999; RETURN; PORSCHE: V7=TRANSLATE(V7,'012568','OIZSGB'); V8=TRANSLATE(V8,'012568','OIZSGB'); V=10*INPUT(V7,1.0)+INPUT(V8,1.0); IF ((1981 LE MY LE 1990 AND V=91) OR (1985 LE MY LE 1990 AND V=93)) AND V5 IN ('A','B') THEN DO; MM2=4531; CG=4501; RETURN; END; IF 1989 LE MY LE 1991 AND V=96 AND V5 IN ('A','B') THEN DO; MM2=4531; CG=4501; RETURN; END; IF MY=1995 AND V=99 AND V5 IN ('A','B') THEN DO; MM2=4531; CG=4501; RETURN; END; IF 1996 LE MY LE 1997 AND V=99 AND V5 IN ('A','B','C') THEN DO; MM2=4531; CG=4501; RETURN; END; IF MY=1998 AND V=99 AND V5 IN ('A','B') THEN DO; MM2=4531; CG=4501; RETURN; END; IF ((1981 LE MY LE 1988 AND V=92) OR (1981 LE MY LE 1982 AND V=93)) AND V4='A' THEN DO; MM2=4534; CG=4503; RETURN; END; IF 1983 LE MY LE 1991 AND 94 LE V LE 95 AND V4 IN ('A','C') THEN DO; MM2=4537; CG=4503; RETURN; END; IF MY=1995 AND V=96 THEN DO; MM2=4539; CG=4503; RETURN; END; IF 1981 LE MY LE 1991 AND V=92 AND V4='J' THEN DO; MM2=4535; CG=4504; RETURN; END; IF MY=1995 AND V=92 THEN DO; MM2=4535; CG=4504; RETURN; END; IF 1992 LE MY LE 1994 THEN DO; MM2=4550; CG=4505; RETURN; END; IF MY GE 1997 AND V=98 THEN DO; MM2=4540; CG=4506; RETURN; END; IF MY GE 1999 AND V=99 THEN DO; MM2=4531; CG=4507; RETURN; END; CG=9999; MM2=9999; RETURN; RENAULT: V6=TRANSLATE(V6,'012568','OIZSGB'); V7=TRANSLATE(V7,'012568','OIZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); IF 1981 LE MY LE 1983 AND V4='A' AND V IN (22,39) THEN DO; MM2=4631; CG=4604; RETURN; END; IF 1981 LE MY LE 1986 AND V IN (34,35) THEN DO; MM2=4637; CG=4605; RETURN; END; IF 1982 LE MY LE 1985 AND V=36 THEN DO; MM2=4638; CG=4605; RETURN; END; IF (1983 LE MY LE 1986 AND 95 LE V LE 97) OR (MY=1987 AND 93 LE V LE 99) THEN DO; MM2=4639; CG=4606; RETURN; END; IF 1984 LE MY LE 1986 AND V IN (93,99) THEN DO; MM2=4640; CG=4606; RETURN; END; IF 1988 LE MY LE 1989 AND V1='V' AND V=45 THEN DO; MM2=4644; CG=4607; RETURN; END; IF 1988 LE MY LE 1989 AND V1='V' AND V=48 THEN DO; MM2=4644; CG=4608; RETURN; END; CG=9999; MM2=9999; RETURN; SAAB: V6=TRANSLATE(V6,'012568','OIZSGB'); IF 1981 LE MY LE 1993 AND V4='A' AND V6 IN ('2','3','4','7') THEN DO; MM2=4731; CG=4704; RETURN; END; IF MY=1994 AND V4='A' AND V6='7' THEN DO; MM2=4731; CG=4704; RETURN; END; IF 1986 LE MY LE 1992 AND V4='C' AND V6 IN ('4','5','6') THEN DO; MM2=4734; CG=4705; RETURN; END; IF 1993 LE MY LE 1998 AND V4='C' AND V6 IN ('4','6') THEN DO; MM2=4734; CG=4705; RETURN; END; IF 1994 LE MY LE 1998 AND V4='D' AND V6 IN ('3','4','5','7') THEN DO; MM2=4731; CG=4706; RETURN; END; IF MY GE 1999 AND V4='D' THEN DO; MM2=4735; CG=4706; RETURN; END; IF MY GE 1999 AND V4='E' THEN DO; MM2=4736; CG=4707; RETURN; END; CG=9999; MM2=9999; RETURN; SUBARU: V4=TRANSLATE(V4,'OIZSGB','012568'); V5=TRANSLATE(V5,'OIZSGB','012568'); V6=TRANSLATE(V6,'012568','OIZSGB'); IF 1981 LE MY LE 1984 AND V4='A' AND V5 IN ('B','M','W') THEN DO; MM2=4831; CG=4804; RETURN; END; IF 1981 LE MY LE 1984 AND V4='A' AND V5='F' THEN DO; MM2=4831; CG=4805; RETURN; END; IF 1985 LE MY LE 1989 AND V1='J' AND V4='A' AND V5 IN ('C','G','K','N') AND V6 IN ('4','5','7') THEN DO; MM2=4831; CG=4806; RETURN; END; IF 1990 LE MY LE 1991 AND V1='J' AND V4='A' AND V5 IN ('C','G','K','N') AND V6 IN ('4','5') THEN DO; MM2=4831; CG=4806; RETURN; END; IF 1992 LE MY LE 1994 AND V1='J' AND V4='A' AND V5 IN ('C','G','K','N') AND V6 IN ('4','5') THEN DO; MM2=4831; CG=4806; RETURN; END; IF 1985 LE MY LE 1991 AND V4='A' AND V5='X' THEN DO; MM2=4835; CG=4806; RETURN; END; IF 1985 LE MY LE 1989 AND V4='A' AND V5='F' AND V6 IN ('2','4','5') THEN DO; MM2=4831; CG=4807; RETURN; END; IF 1987 LE MY LE 1994 AND V1='J' AND V4='K' AND V5 IN ('A','D') AND V6 IN ('7','8') THEN DO; MM2=4836; CG=4808; RETURN; END; IF 1990 LE MY LE 1994 AND V4='B' AND V5 IN ('C','J') AND V6='6' THEN DO; MM2=4834; CG=4809; RETURN; END; IF 1992 LE MY LE 1997 AND V4='C' AND V1='J' AND V5='X' THEN DO; MM2=4837; CG=4810; RETURN; END; IF MY GE 1993 AND V1='J' AND V4='G' AND V5 IN ('C','F','M') THEN DO; MM2=4838; CG=4811; RETURN; END; IF 1995 LE MY LE 1999 AND V1='4' AND V4='B' AND V5 IN ('K','D') AND V6 IN ('4','6') THEN DO; MM2=4834; CG=4812; RETURN; END; IF 1996 LE MY LE 1999 AND V4='B' AND V5= 'G' THEN DO; MM2=4834; CG=4812; RETURN; END; IF MY GE 2000 AND V4='B' THEN DO; MM2=4834; CG=4813; RETURN; END; CG=9999; MM2=9999; RETURN; TOYOTA: V5=TRANSLATE(V5,'OIZSGB','012568'); V4=TRANSLATE(V4,'OIZSGB','012568'); V6=TRANSLATE(V6,'012568','OIZSGB'); V7=TRANSLATE(V7,'012568','OIZSGB'); V8=TRANSLATE(V8,'OIZSGB','012568'); IF V3='5' THEN GOTO TOYOTACV; IF MY=1981 AND V4='R' AND V5='A' AND V6='4' AND V7 IN ('3','4','5') THEN DO; MM2=4933; CG=4911; RETURN; END; IF 1982 LE MY LE 1985 AND V4='R' AND V5='A' AND V6='6' AND V7 IN ('3','4','5') THEN DO; MM2=4933; CG=4911; RETURN; END; IF MY=1986 AND V4='S' AND V5='T' AND V6='6' AND V7 IN ('3','4','5') THEN DO; MM2=4933; CG=4911; RETURN; END; IF 1981 LE MY LE 1984 AND V4='M' AND V5='X' AND V6='6' THEN DO; MM2=4935; CG=4912; RETURN; END; IF 1981 LE MY LE 1982 AND V4='R' AND V5='T' AND V6='3' AND V7 IN ('2','6') THEN DO; MM2=4931; CG=4913; RETURN; END; IF MY=1981 AND V4='M' AND V5='A' AND V6='4' AND V7='7' THEN DO; MM2=4934; CG=4914; RETURN; END; IF 1981 LE MY LE 1982 AND V4='A' AND V5='L' AND V6='2' AND V7 IN ('1','2','5') THEN DO; MM2=4938; CG=4915; RETURN; END; IF 1981 LE MY LE 1982 AND V4='T' AND V5='E' AND V6='7' THEN DO; MM2=4932; CG=4916; RETURN; END; IF MY=1983 AND V4='A' AND V5='E' AND V6='7' THEN DO; MM2=4932; CG=4916; RETURN; END; IF 1984 LE MY LE 1987 AND V4='A' AND V5='E' AND V6='8' AND V8 IN ('C','S') THEN DO; MM2=4932; CG=4916; RETURN; END; IF 1981 LE MY LE 1984 AND V4 IN ('K','U') AND V5='P' AND V6='6' THEN DO; MM2=4939; CG=4917; RETURN; END; IF 1982 LE MY LE 1985 AND V4='M' AND V5='A' AND V6='6' AND V7='7' THEN DO; MM2=4934; CG=4918; RETURN; END; IF MY=1986 AND V4='M' AND V5='A' AND V6='6' AND V7='7' THEN DO; MM2=4934; CG=4918; MMP=4934; CGP=4998; RETURN; END; IF 1984 LE MY LE 1986 AND V1='J' AND V4 IN ('A','C') AND V5='E' AND V6='8' AND V8 IN ('E','L') THEN DO; MM2=4932; CG=4919; RETURN; END; IF MY=1987 AND V1 IN ('J','1') AND V4='A' AND V5='E' AND V6='8' AND V8 IN ('E','L') THEN DO; MM2=4932; CG=4919; RETURN; END; IF 1987 LE MY LE 1988 AND V1 IN ('J','1') AND V4='A' AND V5='E' AND V6='8' AND V8='G' THEN DO; MM2=4932; CG=4919; RETURN; END; IF 1988 LE MY LE 1992 AND V1 IN ('J','1') AND V4='A' AND V5='E' AND V6='9' THEN DO; MM2=4932; CG=4919; RETURN; END; IF 1990 LE MY LE 1992 AND V1='2' AND V4='A' AND V5='E' AND V6='9' THEN DO; MM2=4932; CG=4919; RETURN; END; IF 1983 LE MY LE 1984 AND V4='A' AND V5='L' AND V6='3' THEN DO; MM2=4938; CG=4919; RETURN; END; IF MY=1984 AND V4='A' AND V5='L' AND V6='2' THEN DO; MM2=4938; CG=4919; RETURN; END; IF 1985 LE MY LE 1986 AND V4='A' AND V5='L' AND V6='3' THEN DO; MM2=4938; CG=4919; RETURN; END; IF MY=1987 AND V5='L' AND V8 IN ('V','W') AND V6='3' AND V4='A' THEN DO; MM2=4938; CG=4919; RETURN; END; IF 1983 LE MY LE 1986 AND V1='J' AND V5='V' AND V6='1' AND V4 IN ('C','S') THEN DO; MM2=4940; CG=4920; RETURN; END; IF 1987 LE MY LE 1991 AND V1 IN ('4','J') AND V5='V' AND V6='2' AND V4 IN ('S','V') AND V8 IN ('E','F','J','W') THEN DO; MM2=4940; CG=4920; RETURN; END; IF 1985 LE MY LE 1989 AND V5='W' AND V6='1' AND V4='A' THEN DO; MM2=4941; CG=4921; RETURN; END; IF 1985 LE MY LE 1988 AND V4='M' AND V5='X' AND V6='7' AND V7 IN ('2','3') THEN DO; MM2=4935; CG=4922; RETURN; END; IF MY=1986 AND V5='A' AND V4='M' AND V7 IN ('0','1') AND V6='7' THEN DO; MM2=4934; CG=4923; MMP=4934; CGP=4998; RETURN; END; IF 1987 LE MY LE 1992 AND V5='A' AND V4='M' AND V7 IN ('0','1') AND V6='7' THEN DO; MM2=4934; CG=4923; RETURN; END; IF 1987 LE MY LE 1989 AND V5='T' AND V6='6' AND V4='S' THEN DO; MM2=4933; CG=4924; RETURN; END; IF 1990 LE MY LE 1993 AND V5='T' AND V6='8' AND V4 IN ('A','S') THEN DO; MM2=4933; CG=4924; RETURN; END; IF MY=1987 AND V1='J' AND V4='E' AND V5='L' AND V8 IN ('D','G','H') AND V6='3' THEN DO; MM2=4938; CG=4925; RETURN; END; IF 1988 LE MY LE 1991 AND V1='J' AND V5='L' AND V6 IN ('3','4') AND V4 IN ('A','E') THEN DO; MM2=4938; CG=4925; RETURN; END; IF MY=1992 AND V1='J' AND V4='E' AND V5='L' AND V8 IN ('A','B') AND V6='4' THEN DO; MM2=4938; CG=4925; RETURN; END; IF 1993 LE MY LE 1994 AND V1='J' AND V4='E' AND V5='L' AND V8 IN ('S','T') AND V6='4' THEN DO; MM2=4938; CG=4925; RETURN; END; IF MY=1995 AND V1='J' AND V4='E' AND V5='L' AND V8 IN ('D','E') AND V6='5' THEN DO; MM2=4938; CG=4925; RETURN; END; IF 1996 LE MY LE 1998 AND V1='J' AND V4 IN ('A','B') AND V5='C' AND V6='5' AND V8='L' THEN DO; MM2=4938; CG=4925; RETURN; END; IF MY=1992 AND V1='J' AND V5='L' AND V8='F' AND V6='4' THEN DO; MM2=4942; CG=4925; RETURN; END; IF 1993 LE MY LE 1995 AND V1='J' AND V5='L' AND V8='U' AND V6='4' THEN DO; MM2=4942; CG=4925; RETURN; END; IF 1996 LE MY LE 1997 AND V1='J' AND (V4='C' OR V4='F') AND V5='C' AND V8='H' THEN DO; MM2=4942; CG=4925; RETURN; END; IF 1991 LE MY LE 1995 AND V1='J' AND V5='W' AND V6='2' AND V4='S' THEN DO; MM2=4941; CG=4927; RETURN; END; IF 1992 LE MY LE 1995 AND V1 IN ('4','J') AND V5='K' AND V6='1' AND V4 IN ('G','S','V') THEN DO; MM2=4940; CG=4928; RETURN; END; IF MY=1996 AND V1 IN ('4','J') AND V4 IN ('B','C','E') AND V5 IN ('F','G') AND V6='1' AND V8='K' THEN DO; MM2=4940; CG=4928; RETURN; END; IF 1993 LE MY LE 1995 AND V1 IN ('1','2','J') AND V4='A' AND V5='E' AND V6='0' THEN DO; MM2=4932; CG=4930; RETURN; END; IF 1996 LE MY LE 1997 AND V1 IN ('1','2','J') AND V4 IN ('B','E') AND V5 IN ('A','B') AND V6='0' AND V8='E' THEN DO; MM2=4932; CG=4930; RETURN; END; IF MY GE 1998 AND V1 IN ('1','2','J') AND V4 IN ('B','E') AND V5 IN ('A','B','R') AND V6='1' AND V8='E' THEN DO; MM2=4932; CG=4930; RETURN; END; IF 1993 LE MY LE 1995 AND V4='J' AND V5='A' AND V6='8' THEN DO; MM2=4934; CG=4931; RETURN; END; IF 1996 LE MY LE 1998 AND V4='D' AND V8='A' THEN DO; MM2=4934; CG=4931; RETURN; END; IF 1994 LE MY LE 1995 AND V4 IN ('A','S') AND V5='T' AND V6='0' THEN DO; MM2=4933; CG=4933; RETURN; END; IF 1996 LE MY LE 1999 AND V4 IN ('C','D') AND V8='T' THEN DO; MM2=4933; CG=4933; RETURN; END; IF MY=1995 AND V1='4' AND V4='G' AND V5='B' AND V6='1' THEN DO; MM2=4943; CG=4935; RETURN; END; IF MY GE 1996 AND V1='4' AND V4='B' AND V5='F' AND V8='B' THEN DO; MM2=4943; CG=4935; RETURN; END; IF MY GE 1997 AND V1 IN ('4','J') AND V4='B' AND V5 IN ('F','G') AND V6='2' AND V8='K' THEN DO; MM2=4940; CG=4936; RETURN; END; IF MY GE 1999 AND V1='2' AND V2='T' AND V3='1' AND V4 IN ('C','F') AND V8='P' THEN DO; MM2=4944; CG=4936; RETURN; END; IF 1989 LE MY LE 1992 AND V4='M' AND V5='X' AND V6='8' THEN DO; MM2=4935; CG=4937; RETURN; END; IF MY GE 2000 AND V4='D' AND V8='T' THEN DO; MM2=4933; CG=4939; RETURN; END; IF MY GE 2000 AND V8='3' THEN DO; MM2=4945; CG=4940; RETURN; END; CG=9999; MM2=9999; RETURN; TOYOTACV: IF 1984 LE MY LE 1985 AND V4='R' AND V5='A' AND V6='6' AND V7 IN ('3','4','5') AND V8='K' THEN DO; MM2=4933; CG=4911; RETURN; END; IF 1987 LE MY LE 1989 AND V5='T' AND V6='6' AND V4='S' AND V8='K' THEN DO; MM2=4933; CG=4924; RETURN; END; IF 1990 LE MY LE 1993 AND V5='T' AND V6='8' AND V4 IN ('A','S') AND V8='K' THEN DO; MM2=4933; CG=4924; RETURN; END; IF 1996 LE MY LE 1997 AND V1='J' AND V4='F' AND V5='C' AND V8='H' THEN DO; MM2=4942; CG=4925; RETURN; END; IF 1994 LE MY LE 1995 AND V4 IN ('A','S') AND V5='T' AND V6='0' AND V8='K' THEN DO; MM2=4933; CG=4933; RETURN; END; IF MY GE 1996 AND V4='F' AND V8='T' THEN DO; MM2=4933; CG=4933; RETURN; END; VOLVO: V4=TRANSLATE(V4,'OIZSGB','012568'); IF 1981 LE MY LE 1986 AND V4='A' AND V5='X' AND V6 IN ('4','7','8') AND V8 IN ('2','4','5') THEN DO; MM2=5134; CG=5104; RETURN; END; IF 1987 LE MY LE 1991 AND V4='A' AND V5 IN ('A','X') AND V6 IN ('4','8') AND V8 IN ('2','4','5') THEN DO; MM2=5134; CG=5104; RETURN; END; IF 1992 LE MY LE 1993 AND V4='A' AND V5 IN ('S','W') AND V6 IN ('4','8') THEN DO; MM2=5134; CG=5104; RETURN; END; IF 1981 LE MY LE 1982 AND V4='B' AND V5='X' THEN DO; MM2=5135; CG=5104; RETURN; END; IF 1983 LE MY LE 1984 AND V4 IN ('D','G','H') AND V5='X' AND V8 IN ('2','4','5') THEN DO; MM2=5138; CG=5105; RETURN; END; IF MY=1985 AND V4 IN ('D','F','G') AND V5='X' AND V6 IN ('6','7','8') THEN DO; MMP=5150; CGP=5105; CG=5105; IF V4='G' THEN MM2=5138; ELSE IF V4='F' THEN MM2=5139; ELSE MM2=5150; RETURN; END; IF MY=1986 AND V4 IN ('D','G','H') AND V5='X' AND V6 IN ('6','7','8') AND V8 IN ('2','4','5') THEN DO; MM2=5138; CG=5105; RETURN; END; IF 1987 LE MY LE 1991 AND V4 IN ('D','G','H') AND V5 IN ('A','X') AND V6 IN ('6','7','8') AND V8 IN ('2','4','5') THEN DO; MM2=5138; CG=5105; RETURN; END; IF MY=1986 AND V4='F' AND V5='X' AND (V6='7' OR V6='8') AND V8 IN ('4','5') THEN DO; MM2=5139; CG=5105; RETURN; END; IF 1987 LE MY LE 1991 AND V4='F' AND V5 IN ('A','X') AND V6 IN ('7','8') AND V8 IN ('4','5') THEN DO; MM2=5139; CG=5105; RETURN; END; IF MY=1992 AND V4='F' AND V5 IN ('S','W') AND V6 IN ('7','8') THEN DO; MM2=5139; CG=5105; RETURN; END; IF MY=1991 AND V4 IN ('K','J') AND V5='A' AND V6='8' AND V8 IN ('4','5') THEN DO; MM2=5140; CG=5105; RETURN; END; IF 1992 LE MY LE 1995 AND V4='J' AND V5 IN ('S','W') AND V6='8' THEN DO; MM2=5140; CG=5105; RETURN; END; IF 1992 LE MY LE 1997 AND V4='K' AND V5 IN ('S','W') AND V6='9' THEN DO; MM2=5141; CG=5105; RETURN; END; IF MY=1998 AND V4='K' AND V5 IN ('S','W') THEN DO; MM2=5144; CG=5105; RETURN; END; IF 1993 LE MY LE 1997 AND V4='L' AND V5 IN ('S','W') AND V6='5' THEN DO; MM2=5142; CG=5106; RETURN; END; IF MY GE 1998 AND V4 IN('L','N') THEN DO; MM2=5143; CG=5106; RETURN; END; IF MY GE 1999 AND V4='T' THEN DO; MM2=5145; CG=5107; RETURN; END; IF MY GE 2000 AND V4='V' THEN DO; MM2=5146; CG=5108; RETURN; END; CG=9999; MM2=9999; RETURN; MITS: V5=TRANSLATE(V5,'OIZSGB','012568'); V6=TRANSLATE(V6,'012568','OIZSGB'); V7=TRANSLATE(V7,'012568','OIZSGB'); IF 1985 LE MY LE 1988 AND V1='J' AND V5='A' AND V6 IN ('2','3','4') AND V7 IN ('4','6') THEN DO; MM2=5235; CG=5205; RETURN; END; IF 1987 LE MY LE 1989 AND V1='K' AND V2 IN ('M','P') AND V4='L' AND V5 IN ('A','D') THEN DO; MM2=5236; CG=5205; RETURN; END; IF 1983 LE MY LE 1989 AND V1='J' AND V5='C' AND V6 IN ('4','5') AND V7='4' THEN DO; MM2=5231; CG=5206; RETURN; END; IF 1983 LE MY LE 1987 AND V1='J' AND V5='F' AND V7='6' THEN DO; MM2=5232; CG=5207; RETURN; END; IF 1983 LE MY LE 1988 AND V1='J' AND V5='F' AND V7='4' THEN DO; MM2=5233; CG=5207; RETURN; END; IF 1985 LE MY LE 1988 AND V1='J' AND V5='B' AND V6 IN ('4','5') AND V7='6' THEN DO; MM2=5234; CG=5209; RETURN; END; IF 1989 LE MY LE 1992 AND V1='J' AND V5 IN ('R','X') AND V6 IN ('4','5') AND V7='6' THEN DO; MM2=5234; CG=5209; RETURN; END; IF MY=1993 AND V1='J' AND V5='H' AND V6 IN ('4','5') THEN DO; MM2=5234; CG=5209; RETURN; END; IF 1988 LE MY LE 1990 AND V1='J' AND V5='B' AND V6='4' AND V7='7' THEN DO; MM2=5238; CG=5209; RETURN; END; IF MY=1989 AND V1='J' AND V5='U' AND V7 IN ('4','6') THEN DO; MM2=5235; CG=5210; RETURN; END; IF 1990 LE MY LE 1992 AND V1 IN ('4','J') AND V5='U' AND V7='6' THEN DO; MM2=5235; CG=5210; RETURN; END; IF 1990 LE MY LE 1992 AND V1 IN ('4','J') AND V5='U' AND V7='4' THEN DO; MM2=5235; CG=5211; RETURN; END; IF 1990 LE MY LE 1992 AND V1 IN ('4','J') AND V5 IN ('S','T') AND V7='4' THEN DO; MM2=5237; CG=5212; RETURN; END; IF 1993 LE MY LE 1994 AND V1 IN ('4','J') AND V5 IN ('F','G') AND V7='4' THEN DO; MM2=5237; CG=5212; RETURN; END; IF 1991 LE MY LE 1992 AND V1='J' AND V5 IN ('D','E') AND V7='4' THEN DO; MM2=5239; CG=5213; RETURN; END; IF 1993 LE MY LE 1994 AND V1='J' AND V5 IN ('M','N') AND V7='4' THEN DO; MM2=5239; CG=5213; RETURN; END; IF 1995 LE MY LE 1997 AND V1='J' AND V5 IN ('M','N','V','W') AND V7 IN('4','5') THEN DO; MM2=5239; CG=5213; RETURN; END; IF 1998 LE MY LE 1999 AND V1='J' AND V5 IN ('M','N') AND V7='4' THEN DO; MM2=5239; CG=5213; RETURN; END; IF MY=1992 AND V1 IN ('4','J') AND V5 IN ('V','W') AND V7='0' THEN DO; MM2=5244; CG=5214; RETURN; END; IF 1993 LE MY LE 1994 AND V1='J' AND V5 IN ('B','C') AND V7='0' THEN DO; MM2=5244; CG=5214; RETURN; END; IF MY=1992 AND V5='C' AND V1='J' AND V7 IN ('7','9') THEN DO; MM2=5240; CG=5215; RETURN; END; IF 1993 LE MY LE 1994 AND V1='J' AND V5='P' AND V7 IN ('7','9') THEN DO; MM2=5240; CG=5215; RETURN; END; IF 1993 LE MY LE 1994 AND V1='6' AND V5='C' AND V7 IN ('7','9') THEN DO; MM2=5240; CG=5215; RETURN; END; IF MY GE 1995 AND V5='P' AND V1 IN ('6','J') AND V7 IN ('7','9') THEN DO; MM2=5240; CG=5215; RETURN; END; IF MY=1992 AND V5 IN ('Y','Z') AND V1 IN ('4','J') AND V7='9' THEN DO; MM2=5245; CG=5215; RETURN; END; IF 1993 LE MY LE 1995 AND V5 IN ('D','E') AND V1 IN ('4','J') AND V7='9' THEN DO; MM2=5245; CG=5215; RETURN; END; IF 1993 LE MY LE 1996 AND V1='J' AND V5='A' AND V7='1' THEN DO; MM2=5235; CG=5216; RETURN; END; IF 1993 LE MY LE 1996 AND V1='J' AND V5='A' AND V7='6' THEN DO; MM2=5235; CG=5217; RETURN; END; IF MY GE 1997 AND V1='J' AND V5='Y' AND V7='6' THEN DO; MM2=5235; CG=5217; RETURN; END; IF 1994 LE MY LE 1998 AND V1 IN ('4','J') AND V5='J' AND V6 IN ('4','5') AND V7='6' THEN DO; MM2=5234; CG=5218; RETURN; END; IF MY GE 1999 AND V5='A' THEN DO; MM2=5234; CG=5218; RETURN; END; IF 1995 LE MY LE 1999 AND V5 IN ('K','L','X') AND V7 IN ('4','5') THEN DO; MM2=5237; CG=5219; RETURN; END; IF 1990 LE MY LE 1994 AND V1='K' AND V2='P' AND V4='V' AND V5='D' THEN DO; MM2=5236; CG=5502; RETURN; END; IF MY GE 1997 AND V1='J' AND V5='Y' AND V7='1' THEN DO; MM2=5235; CG=5221; RETURN; END; IF MY GE 2000 AND V5='C' THEN DO; MM2=5237; CG=5222; RETURN; END; CG=9999; MM2=9999; RETURN; SUZUKI: IF 1989 LE MY LE 1994 AND V4='A' AND V5 IN ('A','C') THEN DO; MM2=5334; CG=5303; RETURN; END; IF 1989 LE MY LE 1994 AND V4='A' AND V5 IN ('B','D','E','H') THEN DO; MM2=5334; CG=5304; RETURN; END; IF MY GE 1995 AND V5='B' AND V4='A' THEN DO; MM2=5334; CG=5304; RETURN; END; IF MY GE 1995 AND V1='J' AND V4='G' AND V5='B' THEN DO; MM2=5332; CG=5305; RETURN; END; CG=9999; MM2=9999; RETURN; ACURA: V4=TRANSLATE(V4,'OIZSGB','012568'); V5=TRANSLATE(V5,'OIZSGB','012568'); V6=TRANSLATE(V6,'012568','OIZSGB'); V8=TRANSLATE(V8,'012568','OIZSGB'); V45=V4||V5; V46=V45||V6; IF 1986 LE MY LE 1989 AND V46='DA3' THEN DO; MM2=5431; CG=3707; RETURN; END; IF 1990 LE MY LE 1993 AND V46='DB1' THEN DO; MM2=5431; CG=3710; RETURN; END; IF 1986 LE MY LE 1990 AND V46 IN ('KA2','KA4') THEN DO; MM2=5432; CG=3711; RETURN; END; IF 1986 LE MY LE 1989 AND V46='DA1' THEN DO; MM2=5431; CG=3712; RETURN; END; IF 1987 LE MY LE 1990 AND V46='KA3' THEN DO; MM2=5432; CG=3713; RETURN; END; IF 1990 LE MY LE 1993 AND V46 IN ('DA9','DB2') THEN DO; MM2=5431; CG=3717; RETURN; END; IF 1991 LE MY LE 1996 AND V46='NA1' THEN DO; MM2=5433; CG=3719; RETURN; END; IF MY GE 1997 AND V46 IN ('NA1','NA2') THEN DO; MM2=5433; CG=3719; RETURN; END; IF 1991 LE MY LE 1995 AND V46='KA8' THEN DO; MM2=5432; CG=3720; RETURN; END; IF 1991 LE MY LE 1995 AND V46='KA7' THEN DO; MM2=5432; CG=3721; RETURN; END; IF MY GE 1994 AND V46 IN ('DC2','DC4') THEN DO; MM2=5431; CG=3722; RETURN; END; IF MY=1998 AND V46 IN ('DC3') THEN DO; MM2=5431; CG=3723; RETURN; END; IF MY GE 1994 AND V46 IN ('DB7','DB8') THEN DO; MM2=5431; CG=3723; RETURN; END; IF 1992 LE MY LE 1994 AND V46='CC2' THEN DO; MM2=5434; CG=3724; RETURN; END; IF MY=1997 AND V46 IN ('YA1','YA2') THEN DO; MM2=5437; CG=3726; RETURN; END; IF 1998 LE MY LE 1999 AND V46 IN ('YA2','YA3') THEN DO; MM2=5437; CG=3726; RETURN; END; IF 1995 LE MY LE 1998 AND V1='J' AND V46 IN ('UA2','UA3') THEN DO; MM2=5435; CG=3727; RETURN; END; IF MY GE 1996 AND V1='J' AND V46='KA9' THEN DO; MM2=5436; CG=3728; RETURN; END; IF MY GE 1999 AND V46='UA5' THEN DO; MM2=5435; CG=3732; RETURN; END; CG=9999; MM2=9999; RETURN; HYUNDAI: V6=TRANSLATE(V6,'012568','OIZSGB'); IF 1986 LE MY LE 1989 AND V1='K' AND V4='L' AND V5 IN ('A','D','F') AND V6 IN ('1','2','3') THEN DO; MM2=5532; CG=5205; RETURN; END; IF 1989 LE MY LE 1994 AND V1 IN ('2','K') AND V4='B' AND V5='F' AND V6 IN ('2','3') THEN DO; MM2=5533; CG=5501; RETURN; END; IF 1990 LE MY LE 1994 AND V1='K' AND V4='V' AND V5 IN ('D','F') AND V6 IN ('1','2','3') THEN DO; MM2=5532; CG=5502; RETURN; END; IF 1991 LE MY LE 1995 AND V1='K' AND V4='V' AND V5='E' AND V6 IN ('2','3') THEN DO; MM2=5534; CG=5502; RETURN; END; IF 1992 LE MY LE 1995 AND V1='K' AND V4='J' AND V5='F' AND V6 IN ('2','3') THEN DO; MM2=5535; CG=5503; RETURN; END; IF 1995 LE MY LE 1999 AND V1='K' AND V4='V' AND V5 IN ('D','F') AND V6 IN ('1','2','3') THEN DO; MM2=5536; CG=5504; RETURN; END; IF 1995 LE MY LE 1998 AND V1='K' AND V4='C' AND V5='F' AND V6 IN ('2','3') THEN DO; MM2=5533; CG=5505; RETURN; END; IF MY GE 1999 AND V4='W' THEN DO; MM2=5533; CG=5505; RETURN; END; IF MY GE 1996 AND V1='K' AND V4='J' AND V5 IN ('F','W') AND V6 IN ('2','3') THEN DO; MM2=5535; CG=5506; RETURN; END; IF MY GE 1997 AND V4='J' AND V5='G' THEN DO; MM2=5537; CG=5507; RETURN; END; IF MY GE 2000 AND V4='C' THEN DO; MM2=5536; CG=5508; RETURN; END; CG=9999; MM2=9999; RETURN; MERKUR: V6=TRANSLATE(V6,'012568','OIZSGB'); IF V4='8' THEN V4='B'; V7=TRANSLATE(V7,'012568','OIZSGB'); V=10*INPUT(V6,1.0)+INPUT(V7,1.0); IF 1985 LE MY LE 1989 AND V5 IN ('P','T') AND V=80 THEN DO; MM2=5631; CG=5603; RETURN; END; IF 1988 LE MY LE 1989 AND V5='T' AND V=81 THEN DO; MM2=5632; CG=5604; RETURN; END; MM2=9999; CG=9999; RETURN; YUGO: IF 1986 LE MY LE 1991 AND V4='B' AND V6='1' THEN DO; MM2=5731; CG=5701; RETURN; END; INFINITI: V5=TRANSLATE(V5,'OIZSGB','012568'); V4=TRANSLATE(V4,'OIZSGB','012568'); V6=TRANSLATE(V6,'012568','OIZSGB'); V7=TRANSLATE(V7,'012568','OIZSGB'); IF V8='5' THEN V8='S'; IF 1991 LE MY LE 1996 AND V5='P' AND V4='C' THEN DO; MM2=5833; CG=3522; RETURN; END; IF 1990 LE MY LE 1992 AND V5='F' AND V4='H' THEN DO; MM2=5831; CG=3529; RETURN; END; IF 1990 LE MY LE 1996 AND V5='G' AND V4='N' THEN DO; MM2=5832; CG=3530; RETURN; END; IF 1993 LE MY LE 1997 AND V5='Y' AND V4='A' THEN DO; MM2=5834; CG=3533; RETURN; END; IF 1996 LE MY LE 1999 AND V4='C' AND V5='A' THEN DO; MM2=5835; CG=3534; RETURN; END; IF MY GE 1997 AND V4='B' AND V5='Y' THEN DO; MM2=5832; CG=3537; RETURN; END; IF MY GE 1999 AND V5='P' THEN DO; MM2=5833; CG=3538; RETURN; END; IF MY GE 2000 AND V4='C' AND V5='A' THEN DO; MM2=5835; CG=3539; RETURN; END; CG=9999; MM2=9999; RETURN; LEXUS: V5=TRANSLATE(V5,'OIZSGB','012568'); V4=TRANSLATE(V4,'OIZSGB','012568'); V6=TRANSLATE(V6,'012568','OIZSGB'); V46=V4||V5||V6; IF 1990 LE MY LE 1991 AND V5='V' AND V4='V' THEN DO; MM2=5931; CG=4920; RETURN; END; IF 1990 LE MY LE 1994 AND V5='F' AND V4='U' AND V6='1' THEN DO; MM2=5932; CG=4926; RETURN; END; IF 1992 LE MY LE 1995 AND V5='K' AND V4 IN ('G','V') THEN DO; MM2=5931; CG=4928; RETURN; END; IF MY=1996 AND V4='B' AND V5='F' AND V6='1' THEN DO; MM2=5931; CG=4928; RETURN; END; IF 1992 LE MY LE 1995 AND V5='Z' AND V6='3' AND V4 IN ('J','U') THEN DO; MM2=5933; CG=4929; RETURN; END; IF MY GE 1996 AND V4='C' AND V5 IN ('D','H') AND V6='3' THEN DO; MM2=5933; CG=4929; RETURN; END; IF 1993 LE MY LE 1995 AND V5='S' AND V6='4' THEN DO; MM2=5934; CG=4932; RETURN; END; IF 1996 LE MY LE 1997 AND V4='B' AND V5='D' AND V6='4' THEN DO; MM2=5934; CG=4932; RETURN; END; IF MY=1995 AND V5='F' AND V4='U' AND V6='2' THEN DO; MM2=5932; CG=4934; RETURN; END; IF MY GE 1996 AND V4='B' AND V5='H' AND V6='2' THEN DO; MM2=5932; CG=4934; RETURN; END; IF MY GE 1997 AND V4='B' AND V5='F' AND V6='2' THEN DO; MM2=5931; CG=4936; RETURN; END; IF MY GE 1998 AND V46 IN('BD6','BH6') THEN DO; MM2=5934; CG=4938; RETURN; END; CG=9999; MM2=9999; RETURN; DAIHATSU: IF 1988 LE MY LE 1992 AND V4 IN ('E','F','H','J') AND V5='G' AND V6='1' THEN DO; MM2=6031; CG=6001; RETURN; END; CG=9999; MM2=9999; RETURN; STERLING: IF 1987 LE MY LE 1991 AND V4='X' AND V5='S' THEN DO; MM2=6131; CG=3711; RETURN; END; CG=9999; MM2=9999; RETURN; KIA: IF 1993 LE MY LE 1997 AND V4='F' AND V5='A' AND V6='1' AND V7='2' THEN DO; MM2=6331; CG=6302; RETURN; END; IF MY GE 1998 AND V4='F' AND V5='B' AND V6='1' AND V7='2' THEN DO; MM2=6331; CG=6305; RETURN; END; /* KIA SPECTRA NOT IN 2000 VIN BOOK IF MY GE 2000 AND V=??? THEN DO; MM2=6332; CG=6305; RETURN; END; */ CG=9999; MM2=9999; RETURN; DAEWOO: IF MY GE 1999 AND V4='T' THEN DO; MM2=6431; CG=6401; RETURN; END; IF MY GE 1999 AND V4='J' THEN DO; MM2=6432; CG=6402; RETURN; END; IF MY GE 1999 AND V4='V' THEN DO; MM2=6433; CG=6403; RETURN; END; CG=9999; MM2=9999; RETURN; RUN;