在线坐等热心人解答

Here is a simple macro.

****generate sample data sets***;
libname s 'c:\temp';
  data s.t1 s.t2 s.t3;
     do i=1 to 20;
            x=ranuni(123);
                if x<=0.3 then output s.t1;
                else if x<=0.6 then output s.t2;
                else  output s.t3;
         end;
  run;


%macro patchitall(lib=);
  proc sql noprint;
    select memname into: dsn1 -: dsn30000
        from dictionary.tables
        where libname="%upcase(&lib)"
        ;
        %let n=&sqlobs;
        quit;

        %do i=1 %to &n;
          data &lib..&&dsn&i;
             set &lib..&&dsn&i;
                 *****define your operation here***;
                 y=1+x;
          run;
         %end;



%mend;
options mprint;
%patchitall(lib=s)

顺便说一句，可以利用软件如ACDSEE等将数据库批量命名，再做上述处理

假设libname是lib。先用下面程序获得该library下所有SAS datasets名字。
proc sql;
        create table dsn as
        select memname
        from dictionary.tables
        where lowcase(libname) = "lib"
        and lowcase(memtype) = "data";
quit;
然后将这些datasets 名字附到macro variables里。
data _null_;
        set dsn end = eof;
        call symput(compress("dataName"||_n_), memname);
        if (eof) then call symput('N_data', compress(_n_)); run;
调用你的macro：
%do i = 1 %to &N_data;
        %usrdefineMacro(inputData = lib.&&dataName&i)
%end;