data ods;
set dictionary_table;
keep memname;
where upcase(substr(memname,1,6))="ERROR_";
proc print data=ods;run;
%macro cc(ods=);
data _null_; set &ods;call symput("num_var",_n_);run;
%put &num_var;
%do i=1 %to %eval(&num_var);
data _null_;
set &ods;
if _n_=&i.;
call symput('dsn',trim(memname));
%put &dsn;
run;
ods tagsets.excelxp file="C:\Documents and Settings\Administrator\桌面\x.xls"
/*options(sheet_name="sheet&i.")*/ style=analysis;
proc print data=error20161101;run;
ods tagsets.excelxp ;
proc print data=&dsn;run;
ods tagsets.excelxp close;
dm 'output;close';
%end;
%mend cc;
%cc(ods=ods)



雷达卡




京公网安备 11010802022788号







