1.先把list转置一下
proc transpose data=s_list out=list(drop=_NAME_);                                                                                       
        by type;                                                                                                                        
run;                                                                                                                                    

2.俩表连一块儿 （其实还是用natural left join 比较好）                                                                                                                                       
proc sql;                                                                                                                              
create table mergedata as                                                                                                               
select provid, code, type                                                                                                               
from drug left join list                                                                                                               
on list.col1=drug.code;                                                                                                                 
quit;                                                                                                                                   
run;                                                                                                                                    

3.新建三列判断type                                                                                                                                       
data final;                                                                                                                             
set mergedata;                                                                                                                          
if type='a' then do;                                                                                                                    
type_a=1;                                                                                                                              
type_b=0;                                                                                                                              
type_c=0;                                                                                                                              
end;                                                                                                                                    
else if type='b' then do;                                                                                                               
type_a=0;                                                                                                                              
type_b=1;                                                                                                                              
type_c=0;                                                                                                                              
end;                                                                                                                                    
else if type='c' then do;                                                                                                               
type_a=0;                                                                                                                              
type_b=0;                                                                                                                              
type_c=1;                                                                                                                              
end;                                                                                                                                    
else do;                                                                                                                                
type_a=0;                                                                                                                              
type_b=0;                                                                                                                              
type_c=0;                                                                                                                              
end;                                                                                                                                    
run;   
         
不知道是不是你想要的哈                                                                                                                        

建议先用proc sql合并数据库，在用proc transpose达到你要的结果

proc sql;
create table test as
select a.*,b.*
from 表一 as a inner join 表二 as b
on a.code=b.code
;
quit;

/*生成新code变量来自这4列code1,code2,code3,code4所有信息*、

data s_list2;
   set s_list;
   code=code1;
   output;
   code=code2;
   output;
   code=code3;
   output;
   code=code4;
run;

/* 与你的drug 数据合并*/
proc sort data=s_list2 nodupkey;
by code;
run;
proc sort data=drug;
  by code;
run;

/*生成3个哑变量dummy variable即可*/
data drug2;
   merge drug s_list2;
   by code;
   if type='a' then do;
   type_a=1;
   type_b=0;
   type_c=0;
   end;
   
  else if type='b' then do;
   type_a=0;
   type_b=1;
   type_c=0;
   end;

   else if type='c' then do;
   type_a=0;
   type_b=0;
   type_c=1;
   end;
run;