%macro creat; /*创建数据集宏*/
data z2;set z1;
%do i=1 %to 12;
ind&i=0;
select;
when (num=%eval(&i)) ind&i=1;/*看不懂什么意思？？*/
otherwise ind&i=0;
end;
%end;
;
run;
%mend;
options mprint;
%creat;