将aaa1和aaa2根据分开，得到新数据集

1. %let aaa1=m!!c!;
   
2. %let aaa2=!p!q!;
   
3. 
   
4. data aaa;
   
5. input x$ y$ z$;
   
6. cards;
   
7. a b c
   
8. d e f
   
9. ;
   
10. run;

复制代码

将aaa1和aaa2根据！分开然后插在aaa数据集前面，
希望得到的数据集为：
m   c
   p q
a  b c
d  e f

data bbb;
    if 0 then set aaa;
        array tmp $ _all_;
        If _N_=1 then do;
            aaa1=tranwrd("&aaa1","!"," !");
                do i=1 to dim(tmp);
                   tmp(i)=scan(aaa1,i,"!");
                end;
                output;
            aaa2=tranwrd("&aaa2","!"," !");
                do i=1 to dim(tmp);
                   tmp(i)=scan(aaa2,i,"!");
                end;
                output;
        end;
        set aaa;
        output;
        drop aaa1 aaa2 i;
run;

%let aaa1=m! !c!;
%let aaa2=! !p!q!;

data aaa;
input x$ y$ z$;
cards;
a b c
d e f
;
run;
data bbb;
x=scan("&aaa1",1,'!');
y=scan("&aaa1",2,'!');
z=scan("&aaa1",3,'!');
output;
x=scan("&aaa2",1,'!');
y=scan("&aaa2",2,'!');
z=scan("&aaa2",3,'!');
output;
run;
data ccc;
set bbb aaa;
run;

具体问题我不是很清楚，简单的写了下，aaa1和aaa2我加了个空格  不然读不了

程序不通用啊！

1. %let aaa1=m!!c!d!;
   
2. %let aaa2=!p!q!w!;
   
3. 
   
4. data aaa;
   
5. input x$ y$ z$ z1$;
   
6. cards;
   
7. a b c d
   
8. d e f g
   
9. ;
   
10. run;

复制代码

希望得到的数据集为：
m   c d
   p q w
a  b c d
d  e f g

pobel 发表于 2014-1-20 13:20
data bbb;
    if 0 then set aaa;
        array tmp $ _all_;
        If _N_=1 then do;
            aaa1=tranwrd("&aaa1","!"," !");
                do i=1 to dim(tmp);
                   tmp(i)=scan(aaa1,i,"!");
                end;
                output;
            aaa2=tranwrd("&aaa2","!"," !");
                do i=1 to dim(tmp);
                   tmp(i)=scan(aaa2,i,"!");
                end;
                output;
        end;
        set aaa;
        output;
        drop aaa1 aaa2 i;
run;

谢谢pobel兄！

能否再macro中实现
%macro a(dset=,out=);


%end;

如果在macro之前只指定&aaa1，就在数据集前面加1行&aaa1分解的值。
%let aaa1=m!!c!;
%a(dset=aaa,out=bbb);

如果&aaa2也指定，就在数据集前面加2行，其中第1行为&aaa1分解的值，第2行为&aaa2分解的值
%let aaa1=m!!c!;
%let aaa2=!p!q!;
%a(dset=aaa,out=bbb);

=======================================
先运行
%let aaa1=m!!c!;
%let aaa2=!p!q!;
%a(dset=aaa,out=bbb);

再运行
%let aaa1=m!!c!;
%a(dset=ccc,out=ddd);

前一段对后一段的运行没有影响。
=======================================
在调用%a之前，最多会设置4个：
%let aaa1=;
%let aaa2=;
%let aaa3=;
%let aaa4=;

%macro test(dset=aaa,out=bbb);
data &out;
    if 0 then set &dset;
        array tmp $ _all_;
        If _N_=1 then do;
                   %do j=1 %to 4;
                      %if %symexist(aaa&j) %then %do;
                    aaa=tranwrd("&&aaa&j","!"," !");
                        do i=1 to dim(tmp);
                           tmp(i)=scan(aaa,i,"!");
                        end;
                        output;
                                %end;
                   %end;
        end;
        set &dset;
        output;
        drop aaa i;
run;
%mend;

%let aaa1=m!!c!d!;
%let aaa3=!p!q!w!;

data aaa;
input x$ y$ z$ z1$;
cards;
a b c d
d e f g
;
run;

%test()

data aaa;
input x$ y$ z$ z1$;
cards;
a b c d
d e f g
;
run;

option mlogic mprint symbolgen;
%macro merge (aaa1,aaa2,indsn,outdsn);
%let aaa1=m!!c!d!;
%let aaa2=!p!q!w!;

filename myfile 'c:\temp.csv' ;
data _null_;
file myfile;
_file_=" &aaa1   &aaa2 ";
put dummy1 ;
run;

   proc sql noprint;
     select cats(name,'$') into: vars separated by ' ' from dictionary.columns where libname='WORK' and memname=upcase("&indsn");
   quit;

   data &outdsn;
   infile 'c:\temp.csv' dlm='!'  dsd  ;
   input &vars @@;
   run;
   proc append base=&outdsn data=&indsn force;
run;

%mend;

%merge(aaa1,aaa2,aaa,want)

%let aaa1=m!!c!d!;
%let aaa2=!p!q!w!;
放在macro外的！