如何根据数据库的变量数产生一个宏变量

比如我的数据有7个变量，我要产生一个宏变量，其内容为 "ccccccc"。也就是说，这个宏变量里的“c”的个数是由数据的变量数决定的。当然，这段程序要是动态的。碰到一个10个变量的数据，那么这个宏变量的内容就应该是"cccccccccc"。

例子：

data have;
input v1-v7;
cards;
1 1 1 1 1 1 1
;
run;

现在要定义一个宏变量， want，其内容为 "ccccccc"。

%put &want.;

输出的结果应该是
ccccccc

1. data have;
   
2.     input v1 $ v2-v6 v7 $;
   
3. cards;
   
4. 1 1 1 1 1 1 1
   
5. ;
   
6. proc sql noprint;
   
7.     select case type
   
8.                 when 'char' then 'l'
   
9.                 else 'c'
   
10.            end into :want separated by ''
    
11.         from sashelp.vcolumn
    
12.         where libname='WORK' and memname='HAVE';
    
13. quit;
    
14. %put NOTE: *** &want ***;

复制代码

相关问题：如果这个数据有2个字符变量，5个数字变量，产生一下宏变量：“llccccc”。“l”的个数是由字符变量的个数决定的，而“c”的个数是由数字变量的个数来决定的。如何实现？

data have;
input v1-v9;
cards;
1 1 1 1 1 1 1 1 1
;
run;
proc contents data=have out=out noprint;run;
data _null_;
set out end=eof;
if eof then call symput ('num',varnum);
run;
%put #
data c;
c='c';
do i=1 to #
output;
end;
run;
proc sql noprint;select c into:c separated by '' from c;quit;
%put &c;

仅供参考

data have;
input v1 $ v2 $ v3 $ v4-v6 v7 $ v8-v10;
cards;
a b c 1 1 1 d 1 1 1
;
run;
proc contents data=have out=out noprint;run;
data var1 var2;
set out;
if type=1 then output var1;
else output var2;
run;
data var1;
set var1 end=eof;
n=_n_;
if eof then call symput ('numn',n);
run;
data var2;
set var2 end=eof;
n=_n_;
if eof then call symput ('numc',n);
run;
%put numn=&numn numc=&numc;
data c;
var='c';
do i=1 to &numn;
output;
end;
run;
data l;
var='l';
do i=1 to &numc;
output;
end;
run;
data t;
set l c;
run;
proc sql noprint;select var into:t separated by '' from t;quit;
%put &t;

仅供参考

hopewell 发表于 2011-1-15 19:15

1. data have;
   
2.     input v1 $ v2-v6 v7 $;
   
3. cards;
   
4. 1 1 1 1 1 1 1
   
5. ;
   
6. proc sql noprint;
   
7.     select case type
   
8.                 when 'char' then 'l'
   
9.                 else 'c'
   
10.            end into :want separated by ''
    
11.         from sashelp.vcolumn
    
12.         where libname='WORK' and memname='HAVE';
    
13. quit;
    
14. %put NOTE: *** &want ***;

复制代码

你这段似乎有问题，出来的是'lcccccl', 不是'llccccc'。

1. data have;
   
2.     input v1 $ v2-v6 v7 $ ;
   
3. cards;
   
4. 1 1 1 1 1 1 1
   
5. ;
   
6. run;
   
7. 
   
8. data _null_;
   
9.         set have;
   
10.         array _n _numeric_;
    
11.         array _c _character_;
    
12.         call symputx("want",compress(repeat("l",dim(_c)-1)||repeat("c",dim(_n)-1)));
    
13.         stop;
    
14. run;
    
15. %put &want;

复制代码

不忌讳NOTE和WARNING的话这样写
否则将两个dim按是否为0分开处理

1. data have;
   
2.         input v1-v7 v8 $;
   
3. cards;
   
4. 1 1 1 1 1 1 1 2
   
5. ;
   
6. run;
   
7. 
   
8. 
   
9. /* 不分类  */
   
10. data _null_;
    
11.         length num $ 32767;
    
12.         retain num "";
    
13.         set sashelp.vcolumn;
    
14.         by memname notsorted;
    
15.         if upcase(libname)="WORK" and upcase(memname)="HAVE" then num=cats(num,"c");
    
16.         if last.memname then call symputx ("want",num);
    
17. run;
    
18. 
    
19. %put &want.;
    
20. 
    
21. 
    
22. /* 分类  */
    
23. data _null_;
    
24.         length num char $ 32767;
    
25.         retain num char "";
    
26.         set sashelp.vcolumn;
    
27.         by memname notsorted;
    
28.         if upcase(libname)="WORK" and upcase(memname)="HAVE" then do;
    
29.                 typetmp=ifc(type="char","l","c");
    
30.                 if type="num" then num=cats(num,typetmp);
    
31.                 else char=cats(char,typetmp);
    
32.         end;
    
33.         if last.memname then call symputx ("want",cats(char,num));
    
34. run;
    
35. 
    
36. %put &want.;

复制代码

456852 发表于 2011-1-15 19:49

hopewell 发表于 2011-1-15 19:15

1. data have;
   
2.     input v1 $ v2-v6 v7 $;
   
3. cards;
   
4. 1 1 1 1 1 1 1
   
5. ;
   
6. proc sql noprint;
   
7.     select case type
   
8.                 when 'char' then 'l'
   
9.                 else 'c'
   
10.            end into :want separated by ''
    
11.         from sashelp.vcolumn
    
12.         where libname='WORK' and memname='HAVE';
    
13. quit;
    
14. %put NOTE: *** &want ***;

复制代码

你这段似乎有问题，出来的是'lcccccl', 不是'llccccc'。

1. proc sql noprint;
   
2.     select case type
   
3.                 when 'char' then 'l'
   
4.                 else 'c'
   
5.            end into :want separated by ''
   
6.         from sashelp.vcolumn
   
7.         where libname='WORK' and memname='HAVE'
   
8.                 order by type asc;
   
9. quit;
   
10. %put NOTE: *** &want ***;

复制代码

向各位高手致敬了！