如何用macro来自动生成文件命

shiyiming

data a;
input sc $ pt map;
cards;
a 1 62
b 3 9
b 2 7
c 1 12
d 2 6
e 1 9
f 3 7
g 0 4
h 3 83
i 1 2
。。。
;
run;
我有个data如上所示，现在想得到n个data,把具有相同SC值的record存在一起，并起名:
a_a      (if sc='a'),
a_b      (if sc='b'),
a_c      (if sc='c'),
a_d      (if sc='d'),
...

谢谢！

shiyiming

[code:21h1g9wf]data a;
    input sc $ pt map;
cards;
a 1 62
b 3 9
b 2 7
c 1 12
;
proc sql noprint;
    create table _temp as select distinct sc from a;
    select cats('ds_',sc) into :dslist separated by ' ' from _temp;
quit;
data _null_;
    set _temp end=last;
    if _n_=1 then call execute("data &dslist; set a;");
    call execute(cat('if sc=',quote(trim(sc)),' then output ds_',trim(sc),';'));
    if last then call execute('run; proc delete data=_temp; run;');
run;[/code:21h1g9wf]

shiyiming

so great!!!
3x a lot.

shiyiming

我自己用MACRO写了一段程序，却无法运行，请高手指点一二。
谢谢！！！

data a;
input sc $ pt map;
cards;
a 1 62
b 3 9
b 2 7
c 1 12
;
run;
%macro na;
proc sql;
select count(*) into :n from a;
select sc into :va separated by ' ' from a;
quit;
%do i=1 %to &n.;
proc sql;
create table a_&va. as
select * from a
where sc=%scan(&va.,&i.);
quit;
%end;
%mend;
%na

shiyiming

上面有个笔误，以下面的为准。
谢谢！！！


data a;
input sc $ pt map;
cards;
a 1 62
b 3 9
c 2 7
d 1 12
;
run;
%macro na;
proc sql;
select count(*) into :n from a;
select sc into :va separated by ' ' from a;
quit;
%do i=1 %to &n.;
proc sql;
create table a_&va. as
select * from a
where sc=%scan(&va.,&i.);
quit;
%end;
%mend;
%na

shiyiming

你把va %put，看看输出，就应该会发现一个问题的
其实程序报错就能发现问题所在