SAS代码和宏如何交互使用

1SAS代码，但是没有宏语言元素

%macro mac1;

data one;

x1=11;

x2=22;

x3=33;

run;

%mend mac1;

%mac1

这种类型的宏载经常使用到同样的数据步时就很有作用，避免重复性代码。

2SAS代码和宏元素之间的步骤边界

%macro mac2;

%local blah;

data one;

x=1;

%let blah=11;

%put in DATA step before PUT statement

blah=&blah;

put x=;

%let blah=22;

%put in DATA step after PUT statement

blah=&blah;

run;

%put after DATA step;

%mend mac2;

%mac2

该宏运行的日志：

in DATA step before PUT statement

blah=11

in DATA step after PUT statement

blah=22

x=1

NOTE: The data set WORK.ONE has 1 observations

and 1 variables.

NOTE: DATA statement used (Total process

time):

real time 0.00 seconds

cpu time 0.01 seconds

after DATA

step

3使用宏逻辑条件来产生SAS语句

%let includex2=1;

%macro mac3(macvar=);

data one;

x1=11;

%if &macvar=1 %then

%do;

x2=22;

%end;

x3=33;

run;

%mend mac3;

%mac3(macvar=&includex2)

%let includex2=-999;

%macro mac3(macvar=);

data one;

x1=11;

%if &macvar=1 %then

%do;

x2=22;

%end;

x3=33;

run;

%mend mac3;

%mac3(macvar=&includex2)

4使用宏循环产生SAS语句

%macro mac4;

%local j;

data two;

set one;

rename

%do j = 1 %to 3;

x&j =

y&j

%end;

;

run;

%mend mac4;

%mac4;

这个程序迭代产生SAS语句

5使用宏产生循环的另外一种方法

%macro mac5;

%local j;

%do j = 1 %to 3;

x&j =

y&j

%end;

%mend mac5;

data two;

set one;

rename

%mac5

;

run;

6使用数据驱动代码更改变量名称

proc sql noprint; (1)

select name

into

:var1-:var&sysmaxlong

from dictionary.columns

where libname="WORK"

and memname="ONE"

and upcase(substr(name,1,1))="X";

%let

num_vars=&sqlobs;

quit;

%macro mac6;

%local j;

%do j = 1 %to

&num_vars;

&&var&j =

old_&&var&j

%end;

%mend mac6;

proc datasets library=work nolist;

modify one;

rename

%mac6

;

run; quit;

proc sql noprint;

select name into :var_names separated by '

'

from dictionary.columns

where libname="WORK"

and memname="ONE"

and upcase (substr(name,1,1))="X";

%let

num_values=&sqlobs;

quit;

%macro mac6;

%local j;

%do j = 1 %to

&num_values;

%scan(&var_names,

&j) = old_%scan(&var_names,

&j)

%end;

%mend mac6;

proc datasets library=work nolist;

modify one;

rename

%mac6

;

run; quit;