SAS-一些有用的语句

SAS-一些有用的语句

今天本想继续介绍 summary过程的，但是发现别人整理的比我更好，于是周末再更，好好整理一下描述性统计分析及评分卡建模，今天给大家介绍一些sas有用的语句吧。

1.如果在同一程序中需要多次调用print语句，用%str可以节省程序书写;

%let print=%str(proc print data=sashelp.class;run;);

&print;

2.查看变量类型；

data a;

  set sashelp.class;

  w=vtype(age);

run;

3.结构查询语言；

 select语句用来检索数据(order从句，format选项) ；

create语句创建表格；

update语句增加或修改表格中列的数值（insert和delete语句插入和删除行，用alter语句增加、修改、删去列）

例子：

data employee;

  input empname $ empcity $ empyears emptitle $ sales;

  cards;

aa   beijing   3   engineer 2300

bb   shangqiu  2   teacher  3000

cc   changsha  32  worker   4000

dd   changsha  20  salesrep 1000

;

proc sql;

  create table changsha as  

  select empname,

         empcity,

         empyears format=yymmdd8.,

         sales*2 as totalsales,

        

        

         emptitle

  from employee

  where empcity='changsha'

  order by empyears asc; 

  alter table changsha add gender char(1);

  update changsha

     set gender='f'

     where empname in ('aa','cc');

  update changsha

     set gender='m'

     where gender is missing;

  insert into changsha   

     values('ff', 'changsha',10, 8000,'teacher','m');

  delete from changsha   

    where empyears>20;

quit;

proc print data=changsha;

run;

4.计算行数；

%let dsid=%sysfunc(open(sashelp.class,i));  

%let n=%sysfunc(attrn(&dsid,nobs));

%let rc=%sysfunc(close(&dsid));

%put obsnum=&n;

 5.scan()用法：

data a;

  arg='ABC.DEF(X=Y)';

  word=scan(arg,-3);



run;

data c;

arg='ABC.DEF(X=Y)';

word=scan(arg,-20);

put word;

run;

data d;

input Arr $ & 22.;

ArrivalGate=scan(Arr,1,' ');

DepartureGate = scan(Arr,2,' ');

put  DepartureGate  ArrivalGate arr;

cards;

Arrival DepartureGates

;

run;

6.sysfunc()用法；

data a;

input group $ number point;

cards;

A 1 85

A 2 66

B 1 69

C 3 55

D 4 24

;

run;

%macro macro_name(group,number,point);

data out_&group.;

group="&group";

number=&number.;

point=&point.;

run;

%mend;

%macro test;

*打开存放参数的数据集;

%let dsid=%sysfunc(open(work.a,i));

%put &dsid;        *%put是在日志输出改宏变量的值;

*fetch是为了判断是否读取完数据集记录，若已读完，则返回-1，否则返回0，赋给宏变量rc;

%let rc=%sysfunc(fetch(&dsid));

        %do %while(&rc=0);

            *trim是去掉字符右边的空格，left是去掉字符左边的空格，getvarc(&dsid,1)是读取数据集的第一列，

                读取第二列则为getvarc(&dsid,2),getvarc是针对字符，若该列是数值型的则为getvarn(&dsid,2);

                %let group=%sysfunc(trim(%sysfunc(left(%sysfunc(getvarc(&dsid,1))))));

                %let number=%sysfunc(trim(%sysfunc(left(%sysfunc(getvarn(&dsid,2))))));

                %let point=%sysfunc(trim(%sysfunc(left(%sysfunc(getvarn(&dsid,3))))));

                %put &group;     %put &number;     %put &point;

                %macro_name(&group,&number,&point);*将参数传给调用你所需要运行的宏macro_name;

                %let rc=%sysfunc(fetch(&dsid));        *同上fetch;

                %put &rc;

        %end;
                %let rc=%sysfunc(close(&dsid));        *关闭数据集;

                %put &rc;

%mend;

%test;