《SAS编程与数据挖掘商业案例》学习笔记之十六

《SAS编程与数据挖掘商业案例》学习笔记，本次重点：sas宏变量

内容包含：宏变量、宏函数、宏參数、通配函数、字符函数、计算函数、引用函数、宏语句、宏应用

1.宏触发器：

%name-token:是一个宏语句或宏函数

&name-token:是一个宏变量引用

宏变量不依赖于sas数据集，能够在不论什么一个除数据行以外的地方定义和引用宏变量，一般定义的宏变量为局部变量，除非使用%global，定义宏变量用%let，显示宏变量用%put，调用宏变量用&。

eg：

%let a=xxx;

%put &a;

%put here is &a;

Eg:带引號的文本中引用宏变量

%let var=ddd;

Data a;

X="here is &var.";

run;

假设要正确引用宏变量var值，必须用双引號而不是单引號括住该文本，由于宏处理器仅仅能在双引號中进行替换。

proc sql;

create table temp as

select *

from sashelp.class

where sex like ‘%M%‘

;

quit;

eg：间接引用宏变量

%let mvar=here;

%let x=10;

%put &&mvar.&x ;

当程序读到第一个&时，立马启动宏触发器，因为存在句点号，故宏处理器会接受两个宏变量&mvar和&x

2.宏函数

libname test ‘ f:\data_model\book_data\chapt10‘;

options mstored sasmstore=test;

%macro test
/ store ;   *是定义宏的keyword

data a;

x=1;

run;

%mend test;  是宏定义结束的标识

宏存储，会将宏生成到对应文件夹以下的sasmar文件中面，

调用永久存储的宏：

libname test ‘ f:\data_model\book_data\chapt10‘;

options mstored sasmstore=test;

%test;

3.宏參数

宏功能强大之处在于宏參数，定义宏參数有两种方法，

按值创建宏參数：

%macro value(x=,y=);

data test;

x=&x.;

y=&y.;

run;

%mend value;

调用：

%value(x=10,y=20);

按地址创建宏參数

%macro addr(x,y);

data test;

x=&x.;

y=&y.;

run;

%mend addr;

调用：

?dr(10,20);

4.通配函数

是指可以在sas宏中引用data步的函数，最经常使用的通配函数是%sysfunc

Eg;

%num=10;

%let x=%sysfunc(trim(%sysfunc(left(&num))));

%put &x;

Eg:translate函数应用

%let string1 = v01n01-v01n10;

%let string1 = %sysfunc(translate(&string1,p, n));

%put with n translated to p, v01n01-v01n10 is &string1;

eg：推断数据集是否存在

%let dsn=%sysfunc(exist(sashelp.class));

%put &dsn;

5.计算函数

宏计算函数有两个：

%EVAL:计算算术和逻辑表达式（整数格式）

%SYSEVALF:计算算术和逻辑表达式（浮点格式）

Eg:

%let a=1 2;

%let b=10*3;

%let c=5/3;

%let eval_a=%eval_r(&a);

%let eval_b=%eval_r(&b);

%let eval_c=%eval_r(&c);

%put &a is &eval_a;

%put &b is &eval_b;

%put &c is &eval_c;

Eg:函数累加器

%macro test(finish);

%let i=1;

%do %while (&i<&finish);

%put the value of i is &i;

%let i=%eval_r(&i 1);

%end;

%mend test;

%test(5)

eg：

%sysevalf(1/3,boolean)

%sysevalf(10 .,boolean)

%sysevalf(1 1.1,ceil)

%sysevalf(-1 -2.4,ceil)

%sysevalf(-1 1.e-11,ceil)

%sysevalf(10 .)

%sysevalf(-2.4,floor)

%sysevalf(3,floor)

%sysevalf(1.-1.e-13,floor)

%sysevalf(.,floor)

%put %sysevalf(2.1,integer);

%put %sysevalf(-2.4,integer);

%put %sysevalf(3,integer);

%put %sysevalf(-1.6,integer);

%put %sysevalf(1.-1.e-13,integer);

6.字符函数

Eg:

%macro a;

aaaaaa

%mend a;

%macro b;

bbbbbb

%mend b;

%macro c;

cccccc

%mend c;

%let x=%nrstr(%a*%b*%%c);

%put X: &x;

%put The third word in X, with SCAN: %scan(&x,3,*);

%put The third word in X, with QSCAN: %qscan(&x,3,*);

7.引用函数

eg：

%macro x;

xxxxx;

%mend x;

%put : The result of str is :%str(%x);

%put: The result of nrstr is :%nrstr(%x);

eg：

%macro dept2(state);

%if %quote(&state)=nc %then

%put north carolina department of revenue;

%else %if %quote(&state)=%str(or) %then

%put department of revenue;

%else %put others;

%mend dept2;

?pt2(or)

调用?pt2(or)后，參数state获得值or，因为在sas系统里面or是一个逻辑操作符，所以为了得到纯文本含义的or，仅仅能用%quote

8.宏语句

eg：

%macro obs(parm);

%let parm1 = %upcase(&parm);

%if &parm1 = PRE %then

%do;

data pre_obs;

set sashelp.class(obs=5);

if sex="M" then y=1;

else y=2;

run;

%end;

%else %if &parm1 = POST %then

%do;

data post_obs;

set sashelp.class(firstobs=6);

if sex="M" then y=1;

else y=2;

run;

%end;

%mend obs;

%obs(pre);

eg：

%macro dow();

%let i=1;

%do %while (&i<5) ;

%let i=%eval_r(&i. 1);

%put &i.;

%end;

%mend dow;

%dow;

eg：搜寻子字符串并输出

%macro dw(word);

%let i=1;

data out;

%do %while (%left(%scan(&word.,&i.)) ne %nrbquote(stop));

%let var=%scan(&word.,&i.);

%put &var.;

out="&var";

output;

%let i=%eval_r(&i. 1);

%put &i.;

%end;

run;

%mend dw;

%dw(%str(test1,test2,test3));

9.宏应用

eg：通过sql过程创建多个宏变量

proc sql noprint;

select nvar,nobs

into:nvar , :nobs

from dictionary.tables

where libname = ‘SASHELP‘ and memname = ‘CLASS‘;

quit;

%put &nvar.;

%put &nobs.;

eg：通过sql过程用变量名创建宏变量列表

proc sql noprint;

select name

into :clist1-:clist999

from dictionary.columns

where libname = ‘SASHELP‘ and memname = ‘CLASS‘;

quit;

%put &clist1.;

%put &clist2.;

eg：通过data步接口子程序call
symputx

data _null_;

set sashelp.class nobs=obs;

call symputx(‘m1‘,obs);

call symput(‘m2‘,obs);

Stop;

run;

%put &m1.;

%put &m2.;

注：symputx能消除后面參数的左右空格，而symput仅仅能消除右空格。

eg：重命名指定文件夹下的sas数据集名称

libname chap10 "f:\data_model\book_data\chapt10";

%let rpt=rpt_temp;

proc sql;

create table chap10.change_tb_name as

select

memname

from dictionary.tables

where libname eq "CHAP10";

quit;                                                 *上面主要是产生指定文件夹下全部sas数据集名称

%macro change();

%let dsid=%sysfunc(open(chap10.change_tb_name));                  1)打开数据集，每行执行一次open，并返回id给宏变量dsid

%if &dsid gt 0 %then %do;                                                                   2)对返回的id号推断，若成功打开数据集，则id肯定非0，则运行do语句

%let nobs=%sysfunc(attrn(&dsid,nobs));                                          3)抓取数据集的观測数，返回一个数值

%do i=1 %to &nobs;                                                                              4)运行5次循环

%let rc=%sysfunc(fetchobs(&dsid,&i));                                   5)抓取对于的观測

%let varnume=%sysfunc(varnum(&dsid,memname));         6)找到memname所在的列位置

%let table=%sysfunc(getvarc(&dsid,&varnume));                 7)抓取memname相应位置的值

proc datasets lib=chap10;                                                       8)利用每一个返回的值，运行datasets过程步，改变对应数据集的名称

change &table=&rpt._t&i.;

quit;

%end;                                                                                                     9)结束%do语句

%let dsid=%sysfunc(close(&dsid));                                                 10)关闭数据集

%end;                                                                                                         11)

%mend change;

%change;