如何合成多个数据集为1个数据集

请教达人：
       已经有多个数据结构一样的数据集，并且数据集名称都是“com”开头的，比如数据集名称分别为comzhangsan，comlisi，comzhaowu；想把这3个数据集合并成一个数据集并在各个数据集后面增加一列和数据集名称一样的字段以便区分，如comzhangsan里面增加一列type都等于"comzhangsan",comlisi里增加一列type都等于“comlisi”等，
       由于数据集较多，想弄个程序实现一下，该怎么写呢？如果不是com开头没有规律又该咋写呢？谢谢大家啦

libname a 'd:\';
data a.m;
        x=1;
        run;
data a.n;
        x=1;
        run;


%macro ds_union(libnm);
proc sql;
        create table dict_dsnm(where=(libnm=upcase("&libnm."))) as select distinct
                memname as dsnm, libname as libnm
        from dictionary.members        where memtype='DATA';
        select count(distinct dsnm) into :ds_n from dict_dsnm;
        quit;
%do i=1 %to &ds_n.;
    data dsnm;
        set dict_dsnm;
        if _N_=&i.;
        call symput('dsnm',dsnm);
        run;
    data ds;
        set &libnm..&dsnm;
        length type $50;
        type='&dsnm.';
        run;

    data dsnm;
        set &libnm..&dsnm.;
        length type $50;
        type="&dsnm.";
        run;
        proc append base=ds_union data=dsnm force; quit;
%end;
%mend ds_union;

%ds_union(a);

试一试set,利用指示变量新建type变量

楼上的能说的具体点么？俺是菜鸟弄不懂啊

试一下用这个宏参数，
看能不能实现

1. %let n=3;
   
2. %macro data(new=, old=);
   
3. 
   
4. data &new;
   
5. set &old;
   
6. group=&old;
   
7. run;
   
8. 
   
9. data all;
   
10. set data1-data&n;
    
11. run;
    
12. %mend data;
    
13. 
    
14. %data(new=data1, old=comzhangsan)
    
15. %data(new=data2, old=comlisi)
    
16. %data(new=data3,old=comzhaowu)

复制代码

priss111 发表于 2011-9-8 15:32
试一下用这个宏参数，
看能不能实现

谢谢你，提供了一个较好地解决方案
只是如果不是3个数据集，而是10个的话，感觉就要执行10个宏。
就没有什么函数或者什么方法的获取数据集名称么

yumenderen 发表于 2011-9-8 15:44
谢谢你，提供了一个较好地解决方案
只是如果不是3个数据集，而是10个的话，感觉就要执行10个宏。
就没有 ...

这个我就不会了
得请高手们指教了

priss111 发表于 2011-9-8 16:10
这个我就不会了
得请高手们指教了

呵呵，非常感谢你的帮助

假设逻辑库a下有n个数据集；
%macro ds_union(libnm);
proc sql；
    create table dict_dsnm as select distinct
         memname as dsnm
    from dictionary.members
    where memtype='DATA' and libname="&libnm.";
    select count(distinct dsnm) into :ds_n from dict_dsnm;
    quit;
%do i=1 %to &ds_n.;
    data dsnm;
        set dict_dsnm;
        if _N_=&i.;
        call symput('dsnm',dsnm);
        run;
    data ds;
        set &dsnm;
        length type $50;
        type='&dsnm.';
        run;
    %if &i.=1 %then %do;
    data ds_union;
        set &dsnm.;
        length type $50;
        type="&dsnm.";
        run;
    %end;
    %else %do;
    proc sql;
        create table ds_union as
        select "&dsnm." as type, * from ds_union
        union       
        select "&dsnm." as type, * from &dsnm;
        quit;
    %end;
%end;
%mend ds_union;

%ds_union(a);

yzzhang 发表于 2011-9-8 16:57
假设逻辑库a下有n个数据集；
%macro ds_union(libnm);
proc sql；

达人，好像搞不定呀