SAS代码－运用宏做分类变量热独编码

%let lib=weier;
%let target=y;
%let id=uid;

%macro oh_class(dsin,dsout);/*one-hot for var of class*/
data credit_model;
set &lib..&dsin;
run;

proc sql noprint;
 select name into :vard separated by ' '
    from sashelp.vcolumn 
    where libname='WORK' and memname=Upper("credit_model") and type="char" and name~="&target" and name~="&id";
quit;
data credit_temp;
set credit_model;
run;
%let num=%sysfunc(countc(&vard,' '));
    %let num=%eval(&num+1);
        %do i=1 %to #
            %let var_&i=%scan(&vard,&i,' ');
ods listing close;
ods output onewayfreqs=onefreq_&&var_&i(keep=&&var_&i);
proc freq data=&dsin;
tables &&var_&i/nocol norow nocum nopercent nofreq;
run;
ods listing;
data null;
set onefreq_&&var_&i nobs=nobs;
call symput('n