sas试题课笔记一.doc

/●宏编程技术●/

●怎样显示宏变量的值？解释下面的程序;

/●注意在解释程序时每一句需要解释且结果要解释●/

data_null_; /●通过数据步处理数据，但不建立数据集●/

%let a=first; /●建立宏变量a，值为first●/

%let b=macro variable; /●用宏程序语句%let定义宏变量,一个%let语句只

能定义一个宏变量;

%put &a !!! &b !!!; /●‘&宏变量名’引用宏变量的值；%put语句显示

宏变量的值，将文本输出到 SAS的日志窗口;

/●在log窗口输出 first !!! macro variable !!!●/ run; /●提交程序●/

●答 %put是显示宏变量最简单的方法;

/●9——解释并调用下面一段宏●/

%macro names(name, number); ●定义含参数的宏,宏参数是一种特殊的宏变

量;

%do n=1%to &number; /●利用宏循环语句循环生成一系列字符串，循环

宏变量n从1到&number●/

&name&n /●调用宏变量name和宏变量n,生成字符串●/

%end; /●结束宏循环语句●/

%mend names; /●结束宏names的定义●/

%names(sas,6); /●调用宏names●/

/●11.在数据步中变量x的值赋于给宏变量A时这两种程序都可以吗●/

call symput('A',x); ●将变量的值赋于宏变量，一个子程序只

能将一个变量的值赋于宏变量;

%let A=x; ●%let语句定义的是宏变量的值，调用宏变量A时，相当于

调用了字符串x;

●答：不可以，应该用call symput('A',x)%let定义的宏变量，其值为赋值

符号后面的字符串'X',不会进行变量运算;

data a;

set data.class nobs=nobs;

call symput ('b',nobs);

%let a=nobs;

%put &a &b; ●从下面的日志窗口的结果可以看出宏变量a的值被定义

为字符串‘nobs’而宏变量b的定义为变量nobs的值; run;

/● data a;

26 set data.class nobs=nobs;

27 call symput ('b',nobs);

28 %let a=nobs;

29 %put &a &b;

nobs 19

30 run;

NOTE: 数字值已转换为字符值，位置:（行:列）。

●/

/●12.解释下面语句的结果●/

%let x=5;

%let y=%eval(&x+200);●%eval()宏计算函数可以将整数文本暂时转换为一

个数值并对整数值的表达式进行计算，结果也取整数; %let z=&x+200; ●只是将一个字符串赋予宏变量z，将宏变量x的值＋200

形成的表达式赋给Z;

%put &y &z;

●205 5+200——日志窗口的结果;

data%substr(&sysday,1,3);●创建了空数据集/临时数据集work.wed

数据集的名字为系统宏变量sysday的值的前三个字符形成

的字符串,sysday的值为今天星期几的英文单词;

run;

●宏字符函数%substr()——提取字符串中的字串

produce a substring of argument, beginning at position, for length number of characters.

syntax: %SUBSTR (argument, position<, length>);

●自动宏变量sysday——Contains the day of the week that a SAS job or session began executing

Details

You can use SYSDAY to check the current day before executing code that

you want to run on certain days of the week, provided you initialized your SAS session today.

(1,9)wednesday,

(2,9)EDNESDAY

(3,9)DNESDAY——不明白;

/●17——使用%include语句将一个大数据集拆分成多个小数据集

根据数据集resdat.qttndist中的变量stkcd将其拆分成多个数据集，其中stkcd的格式为$6.;●/

data a;

set data.qttndist;

by stkcd;

if last.stkcd;

keep stkcd;

put n;/●有什么作用？●/

run;

data_null_;

set a nobs=n;/●什么意思？●/

file'd:\dc\number.txt';

a=right('%a(');

b=',stk)';

put a $stkcd $b $;

run;

%macro a(name,s);

data ex.&s&name;

set data.qttndist;

if stkcd=&name;

run;

%mend a;

%include"d:\dc\number.txt";

/●老师的方法●/

proc sort data=data.qttndist out=stkcd(keep=stkcd);

by stkcd;/●运行出错为什么？●/

run;

data stkcd(keep=stkcd);

set data.qttndist;

by stkcd;

if last.stkcd;/●选取每个by组中的最后一条记录，以去掉重复的股票名称●/ run;

data_null_;

set stkcd;

file'd:\dc\split.txt';

a='%split(';

b=');';

put a $ stkcd $ b $;

run;

%macro split(stkcd);

data stk&stkcd; /●stk是所有数据集都相同的的故不需要设为

宏参数——体会宏程序的本质及其构造思路——由一至多●/ set data.qttndist;

if stkcd=&stkcd;

run;

%mend split;

%include'd:\dc\split.txt';

/●18●/●利用上一题生成的数据集。。SAS数据集导出多个TXT文本。设数据集名称为resdat.qttndist,

要求导出3个文本000001.txt,000002.txt,000003.txt,变量名及变量格式

如表14.9所示。;;

%macro txt(name);

data _null_;

format stkcd $6. lstknm $12. stkcdotrd $6. stknmotrd $12.

date yymmdd10. oppr 8.2 hipr 8.2 lopr 8.2 clpr 8.2 trdvol 15.

trdsum 20.2 ;

set ex.stk&name;

file "d:\dc\&name._00.txt"; /●此处要多加注意——宏变量

只能在双引号内引用●/

put stkcd $ lstknm $ stkcdotrd $ stknmotrd $ date oppr hipr lopr clpr trdvol trdsum;

run;

%mend txt;

%txt(000001);/●如何在所生成的文本中加上标题●/

%txt(000002);

%txt(000004);

/●老师的做法●//●好好理解●/

%macro export_txt;

%do i=1%to3;

data _null_;

file "d:\dc\00000&i..txt";

set data.qttndist;

if stkcd='00000'||trim(left(&i));

/●left函数左对齐同时trim去掉右面的空格●/

title '股票代码最新股票名称交易时股票名称';

put stkcd lstknm stkcdotrd stknmotrd date oppr

hipr lopr clpr trdvol trdsum;

run;

%end;

%mend export_txt;

%export_txt;

●20. 设宏变量已由%let x=10给出，用一句SAS语句将

宏变量X与100相加的和写到log中。;

%let x=10;/●老师的做法●/

%put%eval(&x+100);

%let x=10;

%put a=%eval(&x+100);

/●21 接例4.21，计算data.idx00001中1999年到2004年间的指数日百分比收

益率。将4.21中获得的个股日

百分比收益率与指数日百分比收益率按照日期匹配，计算匹配日期的超额百分比收益率

超额百分收益率=个股百分比收益率－指数的百分比收益率。

每个个股的收益率存储到一个数据集，保留变量：date, stk_r, idx_r,extra_r 四个变量，分别表示：

日期，个股日百分收益率，指数日百分比收益率，超额百分比收益率。●/ /●先计算指数收益率●/

data ex.idx_r;

set data.idx000001;

where1999<=year(date)<=2004;/●自己做时漏掉了这一句●/

idx_r=dif(clpr)/lag(clpr);

if idx_r^=.;

keep date idx_r;

run;

/●计算个股收益率●/

options noxwait;

x cd d:\;

x cd data;

x dir stk●.s as7bdat/b>d:\dc\stk.txt;

data https://www.360docs.net/doc/cd17424195.html,;

infile"d:\dc\stk.txt";

input name $9.;

run;

data_null_;

set https://www.360docs.net/doc/cd17424195.html,;

file"d:\dc\honga.txt";

a='%per_r(';

b=',1995,2004)';

put a $ name $ b$;

run;

%macro per_r(data,begin_y,end_y);

data &data._per;

set data.&data;

if 1999<=year(date)<=2004;

run;

data &data._per;

set &data._per;

stk_r=dif(clpr)/lag(clpr);

if stk_r^=.;

keep stkcd date clpr stk_r;

run;

%mend per_r;

%include"d:\dc\honga.txt";

data_null_;

set https://www.360docs.net/doc/cd17424195.html,;

file"d:\dc\honga2.txt";

a='%combine(';

b='_per,';

c=')';

put a $ name$ b$ name $ c $;

/●出现这种情况——%combine( stk000001 _per, stk000001 )●/ run;

%macro combine(name1,name);

data &name._extra;

merge &name1(in=id2) ex.idx_r(in=id1);

by date;

extra_r=stk_r-idx_r;

if id1=1 and id2=1;

/●各个语句的顺序是由要求的，自己做时因为顺序错误导致结果不对●/

keep date stk_r idx_r extra_r;

run;

%mend combine;

%include"d:\dc\honga2.txt";

/●老师的做法——先利用例4.21已经计算的个股收益率，计算指数收益率再用merge语句●/

data idx000001_per;

set data.idx000001;

where1999<=year(date)<=2004;

idx_r=dif(clpr)/lag(clpr);

keep date idx_r;

if idx_r^=.;

run;

data_null_;

set https://www.360docs.net/doc/cd17424195.html,;

file"d:\dc\extra_r.txt";

a='%extra_r(';

b=',idx000001_per);';

put a $ name $ b$;

run;

%macro extra_r(stk_r,idx_r);

data &stk_r._extra;

merge &stk_r._per(keep=date stk_r in=id1)

&idx_r (in=id2);

by date;

extra_r=stk_r-idx_r;

if id1 and id2;

keep date stk_r idx_r extra_r;

run;

%mend extra_r;

%include'd:\dc\extra_r.txt';