Creates Fama & French 48 Industry Classification Variable
Example
/* ********************************************************************************* */
/* ******************** W R D S R E S E A R C H M A C R O S ******************** */
/* ********************************************************************************* */
/* WRDS Macro: FFI48 */
/* Summary : Creates Fama & French 48 Industry Classification Variable */
/* Date : April 14, 2009 */
/* Author : Rabih Moussawi, WRDS */
/* Variables : - SIC_CODE: SIC 4-digit Industry Code */
/* ********************************************************************************* */
%MACRO FFI48(sic_code);
do; format FFI48_desc $5.;
if missing(&SIC_Code) then FFI48=.;
else if 0100<=&SIC_Code<=0199 then do; FFI48=1; FFI48_desc='Agric'; end;
else if 0200<=&SIC_Code<=0299 then do; FFI48=1; FFI48_desc='Agric'; end;
else if 0700<=&SIC_Code<=0799 then do; FFI48=1; FFI48_desc='Agric'; end;
else if 0910<=&SIC_Code<=0919 then do; FFI48=1; FFI48_desc='Agric'; end;
else if 2048<=&SIC_Code<=2048 then do; FFI48=1; FFI48_desc='Agric'; end;
else if 2000<=&SIC_Code<=2009 then do; FFI48=2; FFI48_desc='Food'; end;
else if 2010<=&SIC_Code<=2019 then do; FFI48=2; FFI48_desc='Food'; end;
else if 2020<=&SIC_Code<=2029 then do; FFI48=2; FFI48_desc='Food'; end;
else if 2030<=&SIC_Code<=2039 then do; FFI48=2; FFI48_desc='Food'; end;
else if 2040<=&SIC_Code<=2046 then do; FFI48=2; FFI48_desc='Food'; end;
else if 2050<=&SIC_Code<=2059 then do; FFI48=2; FFI48_desc='Food'; end;
else if 2060<=&SIC_Code<=2063 then do; FFI48=2; FFI48_desc='Food'; end;
else if 2070<=&SIC_Code<=2079 then do; FFI48=2; FFI48_desc='Food'; end;
else if 2090<=&SIC_Code<=2092 then do; FFI48=2; FFI48_desc='Food'; end;
else if 2095<=&SIC_Code<=2095 then do; FFI48=2; FFI48_desc='Food'; end;
else if 2098<=&SIC_Code<=2099 then do; FFI48=2; FFI48_desc='Food'; end;
else if 2064<=&SIC_Code<=2068 then do; FFI48=3; FFI48_desc='Soda'; end;
else if 2086<=&SIC_Code<=2086 then do; FFI48=3; FFI48_desc='Soda'; end;
else if 2087<=&SIC_Code<=2087 then do; FFI48=3; FFI48_desc='Soda'; end;
else if 2096<=&SIC_Code<=2096 then do; FFI48=3; FFI48_desc='Soda'; end;
else if 2097<=&SIC_Code<=2097 then do; FFI48=3; FFI48_desc='Soda'; end;
else if 2080<=&SIC_Code<=2080 then do; FFI48=4; FFI48_desc='Beer'; end;
else if 2082<=&SIC_Code<=2082 then do; FFI48=4; FFI48_desc='Beer'; end;
else if 2083<=&SIC_Code<=2083 then do; FFI48=4; FFI48_desc='Beer'; end;
else if 2084<=&SIC_Code<=2084 then do; FFI48=4; FFI48_desc='Beer'; end;
else if 2085<=&SIC_Code<=2085 then do; FFI48=4; FFI48_desc='Beer'; end;
else if 2100<=&SIC_Code<=2199 then do; FFI48=5; FFI48_desc='Smoke'; end;
else if 0920<=&SIC_Code<=0999 then do; FFI48=6; FFI48_desc='Toys'; end;
else if 3650<=&SIC_Code<=3651 then do; FFI48=6; FFI48_desc='Toys'; end;
else if 3652<=&SIC_Code<=3652 then do; FFI48=6; FFI48_desc='Toys'; end;
else if 3732<=&SIC_Code<=3732 then do; FFI48=6; FFI48_desc='Toys'; end;
else if 3930<=&SIC_Code<=3931 then do; FFI48=6; FFI48_desc='Toys'; end;
else if 3940<=&SIC_Code<=3949 then do; FFI48=6; FFI48_desc='Toys'; end;
else if 7800<=&SIC_Code<=7829 then do; FFI48=7; FFI48_desc='Fun'; end;
else if 7830<=&SIC_Code<=7833 then do; FFI48=7; FFI48_desc='Fun'; end;
else if 7840<=&SIC_Code<=7841 then do; FFI48=7; FFI48_desc='Fun'; end;
else if 7900<=&SIC_Code<=7900 then do; FFI48=7; FFI48_desc='Fun'; end;
else if 7910<=&SIC_Code<=7911 then do; FFI48=7; FFI48_desc='Fun'; end;
else if 7920<=&SIC_Code<=7929 then do; FFI48=7; FFI48_desc='Fun'; end;
else if 7930<=&SIC_Code<=7933 then do; FFI48=7; FFI48_desc='Fun'; end;
else if 7940<=&SIC_Code<=7949 then do; FFI48=7; FFI48_desc='Fun'; end;
else if 7980<=&SIC_Code<=7980 then do; FFI48=7; FFI48_desc='Fun'; end;
else if 7990<=&SIC_Code<=7999 then do; FFI48=7; FFI48_desc='Fun'; end;
else if 2700<=&SIC_Code<=2709 then do; FFI48=8; FFI48_desc='Books'; end;
else if 2710<=&SIC_Code<=2719 then do; FFI48=8; FFI48_desc='Books'; end;
else if 2720<=&SIC_Code<=2729 then do; FFI48=8; FFI48_desc='Books'; end;
else if 2730<=&SIC_Code<=2739 then do; FFI48=8; FFI48_desc='Books'; end;
else if 2740<=&SIC_Code<=2749 then do; FFI48=8; FFI48_desc='Books'; end;
else if 2770<=&SIC_Code<=2771 then do; FFI48=8; FFI48_desc='Books'; end;
else if 2780<=&SIC_Code<=2789 then do; FFI48=8; FFI48_desc='Books'; end;
else if 2790<=&SIC_Code<=2799 then do; FFI48=8; FFI48_desc='Books'; end;
else if 2047<=&SIC_Code<=2047 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 2391<=&SIC_Code<=2392 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 2510<=&SIC_Code<=2519 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 2590<=&SIC_Code<=2599 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 2840<=&SIC_Code<=2843 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 2844<=&SIC_Code<=2844 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3160<=&SIC_Code<=3161 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3170<=&SIC_Code<=3171 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3172<=&SIC_Code<=3172 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3190<=&SIC_Code<=3199 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3229<=&SIC_Code<=3229 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3260<=&SIC_Code<=3260 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3262<=&SIC_Code<=3263 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3269<=&SIC_Code<=3269 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3230<=&SIC_Code<=3231 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3630<=&SIC_Code<=3639 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3750<=&SIC_Code<=3751 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3800<=&SIC_Code<=3800 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3860<=&SIC_Code<=3861 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3870<=&SIC_Code<=3873 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3910<=&SIC_Code<=3911 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3914<=&SIC_Code<=3914 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3915<=&SIC_Code<=3915 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3960<=&SIC_Code<=3962 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3991<=&SIC_Code<=3991 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 3995<=&SIC_Code<=3995 then do; FFI48=9; FFI48_desc='Hshld'; end;
else if 2300<=&SIC_Code<=2390 then do; FFI48=10; FFI48_desc='Clths'; end;
else if 3020<=&SIC_Code<=3021 then do; FFI48=10; FFI48_desc='Clths'; end;
else if 3100<=&SIC_Code<=3111 then do; FFI48=10; FFI48_desc='Clths'; end;
else if 3130<=&SIC_Code<=3131 then do; FFI48=10; FFI48_desc='Clths'; end;
else if 3140<=&SIC_Code<=3149 then do; FFI48=10; FFI48_desc='Clths'; end;
else if 3150<=&SIC_Code<=3151 then do; FFI48=10; FFI48_desc='Clths'; end;
else if 3963<=&SIC_Code<=3965 then do; FFI48=10; FFI48_desc='Clths'; end;
else if 8000<=&SIC_Code<=8099 then do; FFI48=11; FFI48_desc='Hlth'; end;
else if 3693<=&SIC_Code<=3693 then do; FFI48=12; FFI48_desc='MedEq'; end;
else if 3840<=&SIC_Code<=3849 then do; FFI48=12; FFI48_desc='MedEq'; end;
else if 3850<=&SIC_Code<=3851 then do; FFI48=12; FFI48_desc='MedEq'; end;
else if 2830<=&SIC_Code<=2830 then do; FFI48=13; FFI48_desc='Drugs'; end;
else if 2831<=&SIC_Code<=2831 then do; FFI48=13; FFI48_desc='Drugs'; end;
else if 2833<=&SIC_Code<=2833 then do; FFI48=13; FFI48_desc='Drugs'; end;
else if 2834<=&SIC_Code<=2834 then do; FFI48=13; FFI48_desc='Drugs'; end;
else if 2835<=&SIC_Code<=2835 then do; FFI48=13; FFI48_desc='Drugs'; end;
else if 2836<=&SIC_Code<=2836 then do; FFI48=13; FFI48_desc='Drugs'; end;
else if 2800<=&SIC_Code<=2809 then do; FFI48=14; FFI48_desc='Chems'; end;
else if 2810<=&SIC_Code<=2819 then do; FFI48=14; FFI48_desc='Chems'; end;
else if 2820<=&SIC_Code<=2829 then do; FFI48=14; FFI48_desc='Chems'; end;
else if 2850<=&SIC_Code<=2859 then do; FFI48=14; FFI48_desc='Chems'; end;
else if 2860<=&SIC_Code<=2869 then do; FFI48=14; FFI48_desc='Chems'; end;
else if 2870<=&SIC_Code<=2879 then do; FFI48=14; FFI48_desc='Chems'; end;
else if 2890<=&SIC_Code<=2899 then do; FFI48=14; FFI48_desc='Chems'; end;
else if 3031<=&SIC_Code<=3031 then do; FFI48=15; FFI48_desc='Rubbr'; end;
else if 3041<=&SIC_Code<=3041 then do; FFI48=15; FFI48_desc='Rubbr'; end;
else if 3050<=&SIC_Code<=3053 then do; FFI48=15; FFI48_desc='Rubbr'; end;
else if 3060<=&SIC_Code<=3069 then do; FFI48=15; FFI48_desc='Rubbr'; end;
else if 3070<=&SIC_Code<=3079 then do; FFI48=15; FFI48_desc='Rubbr'; end;
else if 3080<=&SIC_Code<=3089 then do; FFI48=15; FFI48_desc='Rubbr'; end;
else if 3090<=&SIC_Code<=3099 then do; FFI48=15; FFI48_desc='Rubbr'; end;
else if 2200<=&SIC_Code<=2269 then do; FFI48=16; FFI48_desc='Txtls'; end;
else if 2270<=&SIC_Code<=2279 then do; FFI48=16; FFI48_desc='Txtls'; end;
else if 2280<=&SIC_Code<=2284 then do; FFI48=16; FFI48_desc='Txtls'; end;
else if 2290<=&SIC_Code<=2295 then do; FFI48=16; FFI48_desc='Txtls'; end;
else if 2297<=&SIC_Code<=2297 then do; FFI48=16; FFI48_desc='Txtls'; end;
else if 2298<=&SIC_Code<=2298 then do; FFI48=16; FFI48_desc='Txtls'; end;
else if 2299<=&SIC_Code<=2299 then do; FFI48=16; FFI48_desc='Txtls'; end;
else if 2393<=&SIC_Code<=2395 then do; FFI48=16; FFI48_desc='Txtls'; end;
else if 2397<=&SIC_Code<=2399 then do; FFI48=16; FFI48_desc='Txtls'; end;
else if 0800<=&SIC_Code<=0899 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 2400<=&SIC_Code<=2439 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 2450<=&SIC_Code<=2459 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 2490<=&SIC_Code<=2499 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 2660<=&SIC_Code<=2661 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 2950<=&SIC_Code<=2952 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3200<=&SIC_Code<=3200 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3210<=&SIC_Code<=3211 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3240<=&SIC_Code<=3241 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3250<=&SIC_Code<=3259 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3261<=&SIC_Code<=3261 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3264<=&SIC_Code<=3264 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3270<=&SIC_Code<=3275 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3280<=&SIC_Code<=3281 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3290<=&SIC_Code<=3293 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3295<=&SIC_Code<=3299 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3420<=&SIC_Code<=3429 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3430<=&SIC_Code<=3433 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3440<=&SIC_Code<=3441 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3442<=&SIC_Code<=3442 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3446<=&SIC_Code<=3446 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3448<=&SIC_Code<=3448 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3449<=&SIC_Code<=3449 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3450<=&SIC_Code<=3451 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3452<=&SIC_Code<=3452 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3490<=&SIC_Code<=3499 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 3996<=&SIC_Code<=3996 then do; FFI48=17; FFI48_desc='BldMt'; end;
else if 1500<=&SIC_Code<=1511 then do; FFI48=18; FFI48_desc='Cnstr'; end;
else if 1520<=&SIC_Code<=1529 then do; FFI48=18; FFI48_desc='Cnstr'; end;
else if 1530<=&SIC_Code<=1539 then do; FFI48=18; FFI48_desc='Cnstr'; end;
else if 1540<=&SIC_Code<=1549 then do; FFI48=18; FFI48_desc='Cnstr'; end;
else if 1600<=&SIC_Code<=1699 then do; FFI48=18; FFI48_desc='Cnstr'; end;
else if 1700<=&SIC_Code<=1799 then do; FFI48=18; FFI48_desc='Cnstr'; end;
else if 3300<=&SIC_Code<=3300 then do; FFI48=19; FFI48_desc='Steel'; end;
else if 3310<=&SIC_Code<=3317 then do; FFI48=19; FFI48_desc='Steel'; end;
else if 3320<=&SIC_Code<=3325 then do; FFI48=19; FFI48_desc='Steel'; end;
else if 3330<=&SIC_Code<=3339 then do; FFI48=19; FFI48_desc='Steel'; end;
else if 3340<=&SIC_Code<=3341 then do; FFI48=19; FFI48_desc='Steel'; end;
else if 3350<=&SIC_Code<=3357 then do; FFI48=19; FFI48_desc='Steel'; end;
else if 3360<=&SIC_Code<=3369 then do; FFI48=19; FFI48_desc='Steel'; end;
else if 3370<=&SIC_Code<=3379 then do; FFI48=19; FFI48_desc='Steel'; end;
else if 3390<=&SIC_Code<=3399 then do; FFI48=19; FFI48_desc='Steel'; end;
else if 3400<=&SIC_Code<=3400 then do; FFI48=20; FFI48_desc='FabPr'; end;
else if 3443<=&SIC_Code<=3443 then do; FFI48=20; FFI48_desc='FabPr'; end;
else if 3444<=&SIC_Code<=3444 then do; FFI48=20; FFI48_desc='FabPr'; end;
else if 3460<=&SIC_Code<=3469 then do; FFI48=20; FFI48_desc='FabPr'; end;
else if 3470<=&SIC_Code<=3479 then do; FFI48=20; FFI48_desc='FabPr'; end;
else if 3510<=&SIC_Code<=3519 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3520<=&SIC_Code<=3529 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3530<=&SIC_Code<=3530 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3531<=&SIC_Code<=3531 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3532<=&SIC_Code<=3532 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3533<=&SIC_Code<=3533 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3534<=&SIC_Code<=3534 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3535<=&SIC_Code<=3535 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3536<=&SIC_Code<=3536 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3538<=&SIC_Code<=3538 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3540<=&SIC_Code<=3549 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3550<=&SIC_Code<=3559 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3560<=&SIC_Code<=3569 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3580<=&SIC_Code<=3580 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3581<=&SIC_Code<=3581 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3582<=&SIC_Code<=3582 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3585<=&SIC_Code<=3585 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3586<=&SIC_Code<=3586 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3589<=&SIC_Code<=3589 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3590<=&SIC_Code<=3599 then do; FFI48=21; FFI48_desc='Mach'; end;
else if 3600<=&SIC_Code<=3600 then do; FFI48=22; FFI48_desc='ElcEq'; end;
else if 3610<=&SIC_Code<=3613 then do; FFI48=22; FFI48_desc='ElcEq'; end;
else if 3620<=&SIC_Code<=3621 then do; FFI48=22; FFI48_desc='ElcEq'; end;
else if 3623<=&SIC_Code<=3629 then do; FFI48=22; FFI48_desc='ElcEq'; end;
else if 3640<=&SIC_Code<=3644 then do; FFI48=22; FFI48_desc='ElcEq'; end;
else if 3645<=&SIC_Code<=3645 then do; FFI48=22; FFI48_desc='ElcEq'; end;
else if 3646<=&SIC_Code<=3646 then do; FFI48=22; FFI48_desc='ElcEq'; end;
else if 3648<=&SIC_Code<=3649 then do; FFI48=22; FFI48_desc='ElcEq'; end;
else if 3660<=&SIC_Code<=3660 then do; FFI48=22; FFI48_desc='ElcEq'; end;
else if 3690<=&SIC_Code<=3690 then do; FFI48=22; FFI48_desc='ElcEq'; end;
else if 3691<=&SIC_Code<=3692 then do; FFI48=22; FFI48_desc='ElcEq'; end;
else if 3699<=&SIC_Code<=3699 then do; FFI48=22; FFI48_desc='ElcEq'; end;
else if 2296<=&SIC_Code<=2296 then do; FFI48=23; FFI48_desc='Autos'; end;
else if 2396<=&SIC_Code<=2396 then do; FFI48=23; FFI48_desc='Autos'; end;
else if 3010<=&SIC_Code<=3011 then do; FFI48=23; FFI48_desc='Autos'; end;
else if 3537<=&SIC_Code<=3537 then do; FFI48=23; FFI48_desc='Autos'; end;
else if 3647<=&SIC_Code<=3647 then do; FFI48=23; FFI48_desc='Autos'; end;
else if 3694<=&SIC_Code<=3694 then do; FFI48=23; FFI48_desc='Autos'; end;
else if 3700<=&SIC_Code<=3700 then do; FFI48=23; FFI48_desc='Autos'; end;
else if 3710<=&SIC_Code<=3710 then do; FFI48=23; FFI48_desc='Autos'; end;
else if 3711<=&SIC_Code<=3711 then do; FFI48=23; FFI48_desc='Autos'; end;
else if 3713<=&SIC_Code<=3713 then do; FFI48=23; FFI48_desc='Autos'; end;
else if 3714<=&SIC_Code<=3714 then do; FFI48=23; FFI48_desc='Autos'; end;
else if 3715<=&SIC_Code<=3715 then do; FFI48=23; FFI48_desc='Autos'; end;
else if 3716<=&SIC_Code<=3716 then do; FFI48=23; FFI48_desc='Autos'; end;
else if 3792<=&SIC_Code<=3792 then do; FFI48=23; FFI48_desc='Autos'; end;
else if 3790<=&SIC_Code<=3791 then do; FFI48=23; FFI48_desc='Autos'; end;
else if 3799<=&SIC_Code<=3799 then do; FFI48=23; FFI48_desc='Autos'; end;
else if 3720<=&SIC_Code<=3720 then do; FFI48=24; FFI48_desc='Aero'; end;
else if 3721<=&SIC_Code<=3721 then do; FFI48=24; FFI48_desc='Aero'; end;
else if 3723<=&SIC_Code<=3724 then do; FFI48=24; FFI48_desc='Aero'; end;
else if 3725<=&SIC_Code<=3725 then do; FFI48=24; FFI48_desc='Aero'; end;
else if 3728<=&SIC_Code<=3729 then do; FFI48=24; FFI48_desc='Aero'; end;
else if 3730<=&SIC_Code<=3731 then do; FFI48=25; FFI48_desc='Ships'; end;
else if 3740<=&SIC_Code<=3743 then do; FFI48=25; FFI48_desc='Ships'; end;
else if 3760<=&SIC_Code<=3769 then do; FFI48=26; FFI48_desc='Guns'; end;
else if 3795<=&SIC_Code<=3795 then do; FFI48=26; FFI48_desc='Guns'; end;
else if 3480<=&SIC_Code<=3489 then do; FFI48=26; FFI48_desc='Guns'; end;
else if 1040<=&SIC_Code<=1049 then do; FFI48=27; FFI48_desc='Gold'; end;
else if 1000<=&SIC_Code<=1009 then do; FFI48=28; FFI48_desc='Mines'; end;
else if 1010<=&SIC_Code<=1019 then do; FFI48=28; FFI48_desc='Mines'; end;
else if 1020<=&SIC_Code<=1029 then do; FFI48=28; FFI48_desc='Mines'; end;
else if 1030<=&SIC_Code<=1039 then do; FFI48=28; FFI48_desc='Mines'; end;
else if 1050<=&SIC_Code<=1059 then do; FFI48=28; FFI48_desc='Mines'; end;
else if 1060<=&SIC_Code<=1069 then do; FFI48=28; FFI48_desc='Mines'; end;
else if 1070<=&SIC_Code<=1079 then do; FFI48=28; FFI48_desc='Mines'; end;
else if 1080<=&SIC_Code<=1089 then do; FFI48=28; FFI48_desc='Mines'; end;
else if 1090<=&SIC_Code<=1099 then do; FFI48=28; FFI48_desc='Mines'; end;
else if 1100<=&SIC_Code<=1119 then do; FFI48=28; FFI48_desc='Mines'; end;
else if 1400<=&SIC_Code<=1499 then do; FFI48=28; FFI48_desc='Mines'; end;
else if 1200<=&SIC_Code<=1299 then do; FFI48=29; FFI48_desc='Coal'; end;
else if 1300<=&SIC_Code<=1300 then do; FFI48=30; FFI48_desc='Oil'; end;
else if 1310<=&SIC_Code<=1319 then do; FFI48=30; FFI48_desc='Oil'; end;
else if 1320<=&SIC_Code<=1329 then do; FFI48=30; FFI48_desc='Oil'; end;
else if 1330<=&SIC_Code<=1339 then do; FFI48=30; FFI48_desc='Oil'; end;
else if 1370<=&SIC_Code<=1379 then do; FFI48=30; FFI48_desc='Oil'; end;
else if 1380<=&SIC_Code<=1380 then do; FFI48=30; FFI48_desc='Oil'; end;
else if 1381<=&SIC_Code<=1381 then do; FFI48=30; FFI48_desc='Oil'; end;
else if 1382<=&SIC_Code<=1382 then do; FFI48=30; FFI48_desc='Oil'; end;
else if 1389<=&SIC_Code<=1389 then do; FFI48=30; FFI48_desc='Oil'; end;
else if 2900<=&SIC_Code<=2912 then do; FFI48=30; FFI48_desc='Oil'; end;
else if 2990<=&SIC_Code<=2999 then do; FFI48=30; FFI48_desc='Oil'; end;
else if 4900<=&SIC_Code<=4900 then do; FFI48=31; FFI48_desc='Util'; end;
else if 4910<=&SIC_Code<=4911 then do; FFI48=31; FFI48_desc='Util'; end;
else if 4920<=&SIC_Code<=4922 then do; FFI48=31; FFI48_desc='Util'; end;
else if 4923<=&SIC_Code<=4923 then do; FFI48=31; FFI48_desc='Util'; end;
else if 4924<=&SIC_Code<=4925 then do; FFI48=31; FFI48_desc='Util'; end;
else if 4930<=&SIC_Code<=4931 then do; FFI48=31; FFI48_desc='Util'; end;
else if 4932<=&SIC_Code<=4932 then do; FFI48=31; FFI48_desc='Util'; end;
else if 4939<=&SIC_Code<=4939 then do; FFI48=31; FFI48_desc='Util'; end;
else if 4940<=&SIC_Code<=4942 then do; FFI48=31; FFI48_desc='Util'; end;
else if 4800<=&SIC_Code<=4800 then do; FFI48=32; FFI48_desc='Telcm'; end;
else if 4810<=&SIC_Code<=4813 then do; FFI48=32; FFI48_desc='Telcm'; end;
else if 4820<=&SIC_Code<=4822 then do; FFI48=32; FFI48_desc='Telcm'; end;
else if 4830<=&SIC_Code<=4839 then do; FFI48=32; FFI48_desc='Telcm'; end;
else if 4840<=&SIC_Code<=4841 then do; FFI48=32; FFI48_desc='Telcm'; end;
else if 4880<=&SIC_Code<=4889 then do; FFI48=32; FFI48_desc='Telcm'; end;
else if 4890<=&SIC_Code<=4890 then do; FFI48=32; FFI48_desc='Telcm'; end;
else if 4891<=&SIC_Code<=4891 then do; FFI48=32; FFI48_desc='Telcm'; end;
else if 4892<=&SIC_Code<=4892 then do; FFI48=32; FFI48_desc='Telcm'; end;
else if 4899<=&SIC_Code<=4899 then do; FFI48=32; FFI48_desc='Telcm'; end;
else if 7020<=&SIC_Code<=7021 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7030<=&SIC_Code<=7033 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7200<=&SIC_Code<=7200 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7210<=&SIC_Code<=7212 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7214<=&SIC_Code<=7214 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7215<=&SIC_Code<=7216 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7217<=&SIC_Code<=7217 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7219<=&SIC_Code<=7219 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7220<=&SIC_Code<=7221 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7230<=&SIC_Code<=7231 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7240<=&SIC_Code<=7241 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7250<=&SIC_Code<=7251 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7260<=&SIC_Code<=7269 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7270<=&SIC_Code<=7290 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7291<=&SIC_Code<=7291 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7292<=&SIC_Code<=7299 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7395<=&SIC_Code<=7395 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7500<=&SIC_Code<=7500 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7520<=&SIC_Code<=7529 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7530<=&SIC_Code<=7539 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7540<=&SIC_Code<=7549 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7600<=&SIC_Code<=7600 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7620<=&SIC_Code<=7620 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7622<=&SIC_Code<=7622 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7623<=&SIC_Code<=7623 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7629<=&SIC_Code<=7629 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7630<=&SIC_Code<=7631 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7640<=&SIC_Code<=7641 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7690<=&SIC_Code<=7699 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 8100<=&SIC_Code<=8199 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 8200<=&SIC_Code<=8299 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 8300<=&SIC_Code<=8399 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 8400<=&SIC_Code<=8499 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 8600<=&SIC_Code<=8699 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 8800<=&SIC_Code<=8899 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 7510<=&SIC_Code<=7515 then do; FFI48=33; FFI48_desc='PerSv'; end;
else if 2750<=&SIC_Code<=2759 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 3993<=&SIC_Code<=3993 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7218<=&SIC_Code<=7218 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7300<=&SIC_Code<=7300 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7310<=&SIC_Code<=7319 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7320<=&SIC_Code<=7329 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7330<=&SIC_Code<=7339 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7340<=&SIC_Code<=7342 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7349<=&SIC_Code<=7349 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7350<=&SIC_Code<=7351 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7352<=&SIC_Code<=7352 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7353<=&SIC_Code<=7353 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7359<=&SIC_Code<=7359 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7360<=&SIC_Code<=7369 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7370<=&SIC_Code<=7372 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7374<=&SIC_Code<=7374 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7375<=&SIC_Code<=7375 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7376<=&SIC_Code<=7376 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7377<=&SIC_Code<=7377 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7378<=&SIC_Code<=7378 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7379<=&SIC_Code<=7379 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7380<=&SIC_Code<=7380 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7381<=&SIC_Code<=7382 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7383<=&SIC_Code<=7383 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7384<=&SIC_Code<=7384 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7385<=&SIC_Code<=7385 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7389<=&SIC_Code<=7390 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7391<=&SIC_Code<=7391 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7392<=&SIC_Code<=7392 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7393<=&SIC_Code<=7393 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7394<=&SIC_Code<=7394 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7396<=&SIC_Code<=7396 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7397<=&SIC_Code<=7397 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7399<=&SIC_Code<=7399 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 7519<=&SIC_Code<=7519 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 8700<=&SIC_Code<=8700 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 8710<=&SIC_Code<=8713 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 8720<=&SIC_Code<=8721 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 8730<=&SIC_Code<=8734 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 8740<=&SIC_Code<=8748 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 8900<=&SIC_Code<=8910 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 8911<=&SIC_Code<=8911 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 8920<=&SIC_Code<=8999 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 4220<=&SIC_Code<=4229 then do; FFI48=34; FFI48_desc='BusSv'; end;
else if 3570<=&SIC_Code<=3579 then do; FFI48=35; FFI48_desc='Comps'; end;
else if 3680<=&SIC_Code<=3680 then do; FFI48=35; FFI48_desc='Comps'; end;
else if 3681<=&SIC_Code<=3681 then do; FFI48=35; FFI48_desc='Comps'; end;
else if 3682<=&SIC_Code<=3682 then do; FFI48=35; FFI48_desc='Comps'; end;
else if 3683<=&SIC_Code<=3683 then do; FFI48=35; FFI48_desc='Comps'; end;
else if 3684<=&SIC_Code<=3684 then do; FFI48=35; FFI48_desc='Comps'; end;
else if 3685<=&SIC_Code<=3685 then do; FFI48=35; FFI48_desc='Comps'; end;
else if 3686<=&SIC_Code<=3686 then do; FFI48=35; FFI48_desc='Comps'; end;
else if 3687<=&SIC_Code<=3687 then do; FFI48=35; FFI48_desc='Comps'; end;
else if 3688<=&SIC_Code<=3688 then do; FFI48=35; FFI48_desc='Comps'; end;
else if 3689<=&SIC_Code<=3689 then do; FFI48=35; FFI48_desc='Comps'; end;
else if 3695<=&SIC_Code<=3695 then do; FFI48=35; FFI48_desc='Comps'; end;
else if 7373<=&SIC_Code<=7373 then do; FFI48=35; FFI48_desc='Comps'; end;
else if 3622<=&SIC_Code<=3622 then do; FFI48=36; FFI48_desc='Chips'; end;
else if 3661<=&SIC_Code<=3661 then do; FFI48=36; FFI48_desc='Chips'; end;
else if 3662<=&SIC_Code<=3662 then do; FFI48=36; FFI48_desc='Chips'; end;
else if 3663<=&SIC_Code<=3663 then do; FFI48=36; FFI48_desc='Chips'; end;
else if 3664<=&SIC_Code<=3664 then do; FFI48=36; FFI48_desc='Chips'; end;
else if 3665<=&SIC_Code<=3665 then do; FFI48=36; FFI48_desc='Chips'; end;
else if 3666<=&SIC_Code<=3666 then do; FFI48=36; FFI48_desc='Chips'; end;
else if 3669<=&SIC_Code<=3669 then do; FFI48=36; FFI48_desc='Chips'; end;
else if 3670<=&SIC_Code<=3679 then do; FFI48=36; FFI48_desc='Chips'; end;
else if 3810<=&SIC_Code<=3810 then do; FFI48=36; FFI48_desc='Chips'; end;
else if 3812<=&SIC_Code<=3812 then do; FFI48=36; FFI48_desc='Chips'; end;
else if 3811<=&SIC_Code<=3811 then do; FFI48=37; FFI48_desc='LabEq'; end;
else if 3820<=&SIC_Code<=3820 then do; FFI48=37; FFI48_desc='LabEq'; end;
else if 3821<=&SIC_Code<=3821 then do; FFI48=37; FFI48_desc='LabEq'; end;
else if 3822<=&SIC_Code<=3822 then do; FFI48=37; FFI48_desc='LabEq'; end;
else if 3823<=&SIC_Code<=3823 then do; FFI48=37; FFI48_desc='LabEq'; end;
else if 3824<=&SIC_Code<=3824 then do; FFI48=37; FFI48_desc='LabEq'; end;
else if 3825<=&SIC_Code<=3825 then do; FFI48=37; FFI48_desc='LabEq'; end;
else if 3826<=&SIC_Code<=3826 then do; FFI48=37; FFI48_desc='LabEq'; end;
else if 3827<=&SIC_Code<=3827 then do; FFI48=37; FFI48_desc='LabEq'; end;
else if 3829<=&SIC_Code<=3829 then do; FFI48=37; FFI48_desc='LabEq'; end;
else if 3830<=&SIC_Code<=3839 then do; FFI48=37; FFI48_desc='LabEq'; end;
else if 2520<=&SIC_Code<=2549 then do; FFI48=38; FFI48_desc='Paper'; end;
else if 2600<=&SIC_Code<=2639 then do; FFI48=38; FFI48_desc='Paper'; end;
else if 2670<=&SIC_Code<=2699 then do; FFI48=38; FFI48_desc='Paper'; end;
else if 2760<=&SIC_Code<=2761 then do; FFI48=38; FFI48_desc='Paper'; end;
else if 3950<=&SIC_Code<=3955 then do; FFI48=38; FFI48_desc='Paper'; end;
else if 2440<=&SIC_Code<=2449 then do; FFI48=39; FFI48_desc='Boxes'; end;
else if 2640<=&SIC_Code<=2659 then do; FFI48=39; FFI48_desc='Boxes'; end;
else if 3220<=&SIC_Code<=3221 then do; FFI48=39; FFI48_desc='Boxes'; end;
else if 3410<=&SIC_Code<=3412 then do; FFI48=39; FFI48_desc='Boxes'; end;
else if 4000<=&SIC_Code<=4013 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4040<=&SIC_Code<=4049 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4100<=&SIC_Code<=4100 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4110<=&SIC_Code<=4119 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4120<=&SIC_Code<=4121 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4130<=&SIC_Code<=4131 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4140<=&SIC_Code<=4142 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4150<=&SIC_Code<=4151 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4170<=&SIC_Code<=4173 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4190<=&SIC_Code<=4199 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4200<=&SIC_Code<=4200 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4210<=&SIC_Code<=4219 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4230<=&SIC_Code<=4231 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4240<=&SIC_Code<=4249 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4400<=&SIC_Code<=4499 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4500<=&SIC_Code<=4599 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4600<=&SIC_Code<=4699 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4700<=&SIC_Code<=4700 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4710<=&SIC_Code<=4712 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4720<=&SIC_Code<=4729 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4730<=&SIC_Code<=4739 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4740<=&SIC_Code<=4749 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4780<=&SIC_Code<=4780 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4782<=&SIC_Code<=4782 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4783<=&SIC_Code<=4783 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4784<=&SIC_Code<=4784 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4785<=&SIC_Code<=4785 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 4789<=&SIC_Code<=4789 then do; FFI48=40; FFI48_desc='Trans'; end;
else if 5000<=&SIC_Code<=5000 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5010<=&SIC_Code<=5015 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5020<=&SIC_Code<=5023 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5030<=&SIC_Code<=5039 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5040<=&SIC_Code<=5042 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5043<=&SIC_Code<=5043 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5044<=&SIC_Code<=5044 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5045<=&SIC_Code<=5045 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5046<=&SIC_Code<=5046 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5047<=&SIC_Code<=5047 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5048<=&SIC_Code<=5048 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5049<=&SIC_Code<=5049 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5050<=&SIC_Code<=5059 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5060<=&SIC_Code<=5060 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5063<=&SIC_Code<=5063 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5064<=&SIC_Code<=5064 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5065<=&SIC_Code<=5065 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5070<=&SIC_Code<=5078 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5080<=&SIC_Code<=5080 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5081<=&SIC_Code<=5081 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5082<=&SIC_Code<=5082 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5083<=&SIC_Code<=5083 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5084<=&SIC_Code<=5084 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5085<=&SIC_Code<=5085 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5086<=&SIC_Code<=5087 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5088<=&SIC_Code<=5088 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5090<=&SIC_Code<=5090 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5091<=&SIC_Code<=5092 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5093<=&SIC_Code<=5093 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5094<=&SIC_Code<=5094 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5099<=&SIC_Code<=5099 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5100<=&SIC_Code<=5100 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5110<=&SIC_Code<=5113 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5120<=&SIC_Code<=5122 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5130<=&SIC_Code<=5139 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5140<=&SIC_Code<=5149 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5150<=&SIC_Code<=5159 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5160<=&SIC_Code<=5169 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5170<=&SIC_Code<=5172 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5180<=&SIC_Code<=5182 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5190<=&SIC_Code<=5199 then do; FFI48=41; FFI48_desc='Whlsl'; end;
else if 5200<=&SIC_Code<=5200 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5210<=&SIC_Code<=5219 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5220<=&SIC_Code<=5229 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5230<=&SIC_Code<=5231 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5250<=&SIC_Code<=5251 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5260<=&SIC_Code<=5261 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5270<=&SIC_Code<=5271 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5300<=&SIC_Code<=5300 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5310<=&SIC_Code<=5311 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5320<=&SIC_Code<=5320 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5330<=&SIC_Code<=5331 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5334<=&SIC_Code<=5334 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5340<=&SIC_Code<=5349 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5390<=&SIC_Code<=5399 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5400<=&SIC_Code<=5400 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5410<=&SIC_Code<=5411 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5412<=&SIC_Code<=5412 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5420<=&SIC_Code<=5429 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5430<=&SIC_Code<=5439 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5440<=&SIC_Code<=5449 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5450<=&SIC_Code<=5459 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5460<=&SIC_Code<=5469 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5490<=&SIC_Code<=5499 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5500<=&SIC_Code<=5500 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5510<=&SIC_Code<=5529 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5530<=&SIC_Code<=5539 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5540<=&SIC_Code<=5549 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5550<=&SIC_Code<=5559 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5560<=&SIC_Code<=5569 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5570<=&SIC_Code<=5579 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5590<=&SIC_Code<=5599 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5600<=&SIC_Code<=5699 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5700<=&SIC_Code<=5700 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5710<=&SIC_Code<=5719 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5720<=&SIC_Code<=5722 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5730<=&SIC_Code<=5733 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5734<=&SIC_Code<=5734 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5735<=&SIC_Code<=5735 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5736<=&SIC_Code<=5736 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5750<=&SIC_Code<=5799 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5900<=&SIC_Code<=5900 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5910<=&SIC_Code<=5912 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5920<=&SIC_Code<=5929 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5930<=&SIC_Code<=5932 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5940<=&SIC_Code<=5940 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5941<=&SIC_Code<=5941 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5942<=&SIC_Code<=5942 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5943<=&SIC_Code<=5943 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5944<=&SIC_Code<=5944 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5945<=&SIC_Code<=5945 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5946<=&SIC_Code<=5946 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5947<=&SIC_Code<=5947 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5948<=&SIC_Code<=5948 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5949<=&SIC_Code<=5949 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5950<=&SIC_Code<=5959 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5960<=&SIC_Code<=5969 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5970<=&SIC_Code<=5979 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5980<=&SIC_Code<=5989 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5990<=&SIC_Code<=5990 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5992<=&SIC_Code<=5992 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5993<=&SIC_Code<=5993 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5994<=&SIC_Code<=5994 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5995<=&SIC_Code<=5995 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5999<=&SIC_Code<=5999 then do; FFI48=42; FFI48_desc='Rtail'; end;
else if 5800<=&SIC_Code<=5819 then do; FFI48=43; FFI48_desc='Meals'; end;
else if 5820<=&SIC_Code<=5829 then do; FFI48=43; FFI48_desc='Meals'; end;
else if 5890<=&SIC_Code<=5899 then do; FFI48=43; FFI48_desc='Meals'; end;
else if 7000<=&SIC_Code<=7000 then do; FFI48=43; FFI48_desc='Meals'; end;
else if 7010<=&SIC_Code<=7019 then do; FFI48=43; FFI48_desc='Meals'; end;
else if 7040<=&SIC_Code<=7049 then do; FFI48=43; FFI48_desc='Meals'; end;
else if 7213<=&SIC_Code<=7213 then do; FFI48=43; FFI48_desc='Meals'; end;
else if 6000<=&SIC_Code<=6000 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6010<=&SIC_Code<=6019 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6020<=&SIC_Code<=6020 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6021<=&SIC_Code<=6021 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6022<=&SIC_Code<=6022 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6023<=&SIC_Code<=6024 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6025<=&SIC_Code<=6025 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6026<=&SIC_Code<=6026 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6027<=&SIC_Code<=6027 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6028<=&SIC_Code<=6029 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6030<=&SIC_Code<=6036 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6040<=&SIC_Code<=6059 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6060<=&SIC_Code<=6062 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6080<=&SIC_Code<=6082 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6090<=&SIC_Code<=6099 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6100<=&SIC_Code<=6100 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6110<=&SIC_Code<=6111 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6112<=&SIC_Code<=6113 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6120<=&SIC_Code<=6129 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6130<=&SIC_Code<=6139 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6140<=&SIC_Code<=6149 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6150<=&SIC_Code<=6159 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6160<=&SIC_Code<=6169 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6170<=&SIC_Code<=6179 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6190<=&SIC_Code<=6199 then do; FFI48=44; FFI48_desc='Banks'; end;
else if 6300<=&SIC_Code<=6300 then do; FFI48=45; FFI48_desc='Insur'; end;
else if 6310<=&SIC_Code<=6319 then do; FFI48=45; FFI48_desc='Insur'; end;
else if 6320<=&SIC_Code<=6329 then do; FFI48=45; FFI48_desc='Insur'; end;
else if 6330<=&SIC_Code<=6331 then do; FFI48=45; FFI48_desc='Insur'; end;
else if 6350<=&SIC_Code<=6351 then do; FFI48=45; FFI48_desc='Insur'; end;
else if 6360<=&SIC_Code<=6361 then do; FFI48=45; FFI48_desc='Insur'; end;
else if 6370<=&SIC_Code<=6379 then do; FFI48=45; FFI48_desc='Insur'; end;
else if 6390<=&SIC_Code<=6399 then do; FFI48=45; FFI48_desc='Insur'; end;
else if 6400<=&SIC_Code<=6411 then do; FFI48=45; FFI48_desc='Insur'; end;
else if 6500<=&SIC_Code<=6500 then do; FFI48=46; FFI48_desc='RlEst'; end;
else if 6510<=&SIC_Code<=6510 then do; FFI48=46; FFI48_desc='RlEst'; end;
else if 6512<=&SIC_Code<=6512 then do; FFI48=46; FFI48_desc='RlEst'; end;
else if 6513<=&SIC_Code<=6513 then do; FFI48=46; FFI48_desc='RlEst'; end;
else if 6514<=&SIC_Code<=6514 then do; FFI48=46; FFI48_desc='RlEst'; end;
else if 6515<=&SIC_Code<=6515 then do; FFI48=46; FFI48_desc='RlEst'; end;
else if 6517<=&SIC_Code<=6519 then do; FFI48=46; FFI48_desc='RlEst'; end;
else if 6520<=&SIC_Code<=6529 then do; FFI48=46; FFI48_desc='RlEst'; end;
else if 6530<=&SIC_Code<=6531 then do; FFI48=46; FFI48_desc='RlEst'; end;
else if 6532<=&SIC_Code<=6532 then do; FFI48=46; FFI48_desc='RlEst'; end;
else if 6540<=&SIC_Code<=6541 then do; FFI48=46; FFI48_desc='RlEst'; end;
else if 6550<=&SIC_Code<=6553 then do; FFI48=46; FFI48_desc='RlEst'; end;
else if 6590<=&SIC_Code<=6599 then do; FFI48=46; FFI48_desc='RlEst'; end;
else if 6610<=&SIC_Code<=6611 then do; FFI48=46; FFI48_desc='RlEst'; end;
else if 6200<=&SIC_Code<=6299 then do; FFI48=47; FFI48_desc='Fin'; end;
else if 6700<=&SIC_Code<=6700 then do; FFI48=47; FFI48_desc='Fin'; end;
else if 6710<=&SIC_Code<=6719 then do; FFI48=47; FFI48_desc='Fin'; end;
else if 6720<=&SIC_Code<=6722 then do; FFI48=47; FFI48_desc='Fin'; end;
else if 6723<=&SIC_Code<=6723 then do; FFI48=47; FFI48_desc='Fin'; end;
else if 6724<=&SIC_Code<=6724 then do; FFI48=47; FFI48_desc='Fin'; end;
else if 6725<=&SIC_Code<=6725 then do; FFI48=47; FFI48_desc='Fin'; end;
else if 6726<=&SIC_Code<=6726 then do; FFI48=47; FFI48_desc='Fin'; end;
else if 6730<=&SIC_Code<=6733 then do; FFI48=47; FFI48_desc='Fin'; end;
else if 6740<=&SIC_Code<=6779 then do; FFI48=47; FFI48_desc='Fin'; end;
else if 6790<=&SIC_Code<=6791 then do; FFI48=47; FFI48_desc='Fin'; end;
else if 6792<=&SIC_Code<=6792 then do; FFI48=47; FFI48_desc='Fin'; end;
else if 6793<=&SIC_Code<=6793 then do; FFI48=47; FFI48_desc='Fin'; end;
else if 6794<=&SIC_Code<=6794 then do; FFI48=47; FFI48_desc='Fin'; end;
else if 6795<=&SIC_Code<=6795 then do; FFI48=47; FFI48_desc='Fin'; end;
else if 6798<=&SIC_Code<=6798 then do; FFI48=47; FFI48_desc='Fin'; end;
else if 6799<=&SIC_Code<=6799 then do; FFI48=47; FFI48_desc='Fin'; end;
else if 4950<=&SIC_Code<=4959 then do; FFI48=48; FFI48_desc='Other'; end;
else if 4960<=&SIC_Code<=4961 then do; FFI48=48; FFI48_desc='Other'; end;
else if 4970<=&SIC_Code<=4971 then do; FFI48=48; FFI48_desc='Other'; end;
else if 4990<=&SIC_Code<=4991 then do; FFI48=48; FFI48_desc='Other'; end;
label FFI48 ="Fama and French 48 Industries";
label FFI48_desc ="Fama and French 48 Industries - Description";
end;
%MEND FFI48;
/* ********************************************************************************* */
/* ************* Material Copyright Wharton Research Data Services *************** */
/* ****************************** All Rights Reserved ****************************** */
/* ********************************************************************************* */