SAS数据集规则的自动生成_Andy的原创帖25

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

假设有一个数据集t1:

id	Var	low	up	cls
1	age	3	5	c1
2	age	5	8	c2
3	age	8	11	c3

[/table]我们希望给到任意一个数据集t2，比如：

[table=50%]
idage
123
23
34
48
510 可以用t1的上下限给t2的数据集标记类（cls）.

简单一点，宏的循环我直接指定了，看官如果需要可以自己改。

第一步：生成if语句 （autop）
%macro autop;
data ot;
length sen $ 1000 ;
sen='';
stop;
run;
%do i=1 %to 3;
data tem;
set t1;
if _n_ = &i ;
call symput('var',var);
call symput('low',low);
call symput('up',up);
call symput('cls',cls);
run;
data tem1;
length sen $ 1000;
/*sen='if '||compress(symget('low'))||' < '||compress(symget('var'))||' <= '||compress(symget('up'))||' then '||"%sysfunc(cats(&var,_c))"||'='||"'"||compress(symget('cls'))||"'"||';';*/
sen=catx(' ','if',compress(symget('low')),'lt',compress(symget('var')),'le',compress(symget('up')),'then',
"%sysfunc(cats(&var,_c))",'=',"'",compress(symget('cls')),"'",';');
run;
proc append base=ot data=tem1 force;
run;
%end;
%mend;
%autop;

结果：


第二步：生成一个外部sas文件 （ppp）
%let set=t2;
filename test 'e:\test.sas';
%macro ppp;
data _null;
set ot end=last;
file test;
if _n_=1 then put "data new; set t2;";
put sen;
if last then put 'run;';
run;
%mend;
%ppp


第三步：引用生成的文件
%include "e:\test.sas";


结果：

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：sas数据集 自动生成 Andy 数据集 compress sas 规则生成 间接编程

收藏