[学习贴] 根据SET的变量值输出到不同文件中去,目标文件不定.

shiyiming

继续学习MACRO中
大家看看。
data ok;
input id;
cards;
2
5
6
9
3
;
run;
我要set ok,然后把每一条记录output到相应的 out2 out5 out6 out9 out3中去。
我用了一个笨办法解决了。不知道大家有好办法没有。
没在这里发过新贴，今天开

shiyiming

data ok;
input id;
cards;
2
5
6
9
3
;
run;
%macro createout(line,id ) ;
data out&id ;
set ok(firstobs=&line obs=&line);
run;
%mend createout;
data _null_;
set ok;
call execute('%createout('||trim(put(_n_,8.)) ||','||trim(put(id,8.)) ||')');
run;

shiyiming

data ok;
input id;
cards;
2
5
6
5
9
.
9
3
;
run;

%macro createout(fobs,lobs,id ) ;
data out&id ;
set ok(firstobs=&fobs obs=&lobs);
run;
%mend createout;

proc sort data=ok;
by id;
run;

data _null_;
set ok(where=(id is not missing));
by id;
retain fobs lobs;
if first.id then fobs=_n_;
if last.id then lobs=_n_;
else return;
if last.id then
call execute('%createout('||trim(put(fobs,8.)) ||','||trim(put(lobs,8.))||',' ||trim(put(id,8.)) ||')');
run;

shiyiming

我运行了一下你的程序。
结果好象不对。
比如，我的out2中的记录应该是一条id=2的记录
可是你的是缺失值。
你的out3里面是2
你的out5里面是3,5
....
这些都不符合条件
可能你还得想一下。

shiyiming

data _null_;
[u:618bb]set ok ;
if id ne . ;[/u:618bb]
by id;
retain fobs lobs;
if first.id then fobs=_n_;
if last.id then lobs=_n_;
else return;
if last.id then
call execute('%createout('||trim(put(fobs,8.)) ||','||trim(put(lobs,8.))||',' ||trim(put(id,8.)) ||')');
run;

shiyiming

嗯，对了。不过和我的做法不一样。
看来我们想法和思维方向还是有区别的
我最后的输出是在一个DATA步中完成的，所以要多两个技术难点。
呵呵，也好，多点经验。多了点认识。
再看看有没有别人用别的方法吧

shiyiming

或者说一下技术难点在那里