如何将变量长度改为变量取值的最大长度

比如附件SAS数据集yyy： 字符变量x取值的最大长度为9，字符变量y取值的最大长度为18。就是将变量x的长度改为9，变量y的长度改为18。

数据集中变量很多，全为字符型变量，如何批量实现？谢谢！


yyy.rar (560 Bytes) 本附件包括：

• yyy.sas7bdat

2014-10-30 20:30:25 上传

数据集

1. data xxx;
   
2. length x y $25.;
   
3.    do i = 1 to 20;
   
4.       j = ceil(ranuni(12345)*20);
   
5.       k = ceil(ranuni(1234)*22);
   
6.     x = repeat('a', j);
   
7.     y = repeat('b', k);
   
8.     output;
   
9.     end; drop i j k;
   
10. run;
    
11. proc contents data=xxx; run;
    
12. 
    
13. proc sql;
    
14.     select max(length(trim(x))), max(length(trim(y))) into :maxLX, : maxLY
    
15.     from xxx;
    
16. quit;
    
17. %put maxLX=&maxlx;
    
18. %put mzxLY=&maxLy;
    
19. 
    
20. proc sql;
    
21.    alter table xxx modify x char(&maxlx);
    
22.    alter table xxx modify x char(&maxly);
    
23. quit;
    
24. proc contents data=xxx; run;

复制代码

yongyitian 发表于 2014-10-30 21:56

这位坛友，22行有一点小bug……。

sniperhgy 发表于 2014-10-30 22:01
这位坛友，22行有一点小bug……。

Yes, the above result is not correct. Here is another way.
The first variable in the cats() is a dollar sign.

1. proc sql;
   
2.     select cats('$',max(length(trim(x)))), cats('$', max(length(trim(y)))) into :maxLX, : maxLY
   
3.         from xxx;
   
4. quit;
   
5. data zzz;
   
6. length x &maxlx y &maxly;
   
7.    set xxx (rename=(x=x_ y=y_));
   
8.    x = x_;
   
9.    y = y_;
   
10.    keep x y;
    
11. run;
    
12. proc contents data=zzz; run;

复制代码

下面的代码没有用楼主的数据集测试：中间的“[        DISCUZ_CODE_3        ]amp;” 是“$&”.

1. %let libname=WORK;
   
2. %let dsname=yyy;
   
3. data _null_;
   
4.     set sashelp.vcolumn end=last;
   
5.         where libname=upcase("&libname") and upcase(memname)=upcase("&dsname");
   
6. 
   
7.         ** codes;
   
8.     length b_into a_into setlength  $1000;
   
9.         retain b_into a_into setlength;
   
10.         b_into=catx(",", b_into, "cats(max(length("||strip(name)||"))) length=4");
    
11.         a_into=catx(",", a_into, " :"||strip(name));
    
12.     setlength=catx(" ",setlength,name,'[        DISCUZ_CODE_3        ]amp;'||strip(name));
    
13. 
    
14.         ** Call to execute the code;
    
15.         if _n_=1 then
    
16.       call execute("Proc sql noprint; select distinct ");
    
17.         if last then do;
    
18.       call execute(strip(b_into)||" into "||strip(a_into)
    
19.                   ||" from "||strip(libname)||"."||strip(memname)
    
20.                    ||";quit;");
    
21.           call symputx('setlength', setlength);
    
22.         end;
    
23. run;
    
24. 
    
25. data &libname..&dsname;
    
26.     length &setlength;
    
27.      set &libname..&dsname;
    
28. run;

复制代码

1. data _null_;
   
2.   set yyy end=last;
   
3.   array char_vars _character_;
   
4.   array max_len[1000] _temporary_;
   
5.   length string $10000;
   
6.   do i=1 to dim(char_vars);
   
7.      max_len(i)=max(length(char_vars(i)),max_len(i));
   
8.   end;
   
9.   if last then do;
   
10.      do i=1 to dim(char_vars);
    
11.       string=catx(' ', string,vname(char_vars(i)), catt(',max _len(i)));
    
12.    end;
    
13.   call symput('vars',string);
    
14. run;
    
15. 
    
16. data want;
    
17. length &vars;
    
18. set yyy;
    
19. run;

复制代码

farmman60 发表于 2014-10-31 09:51

data _null_;
  set yyy end=last;
  array char_vars _character_;
  array max_len[1000] _temporary_;
  length string $10000;
  do i=1 to dim(char_vars);
     max_len(i)=max(length(char_vars(i)),max_len(i));
  end;
  if last then do;
     do i=1 to dim(char_vars);
            string=catx(' ', string,vname(char_vars(i)),catt('$',max_len(i)));
         end;
   end;
  call symput('vars',string);
run;

data want;
length &vars;
set yyy;
run;

%macro change(dsn);                                         
data _null_;                                               
  set &dsn;                                                
  array qqq(*) _character_;                                
  call symput('siz',put(dim(qqq),5.-L));                  
  stop;                                                   
run;                                                        
data _null_;                                               
  set &dsn end=done;                                       
  array qqq(&siz) _character_;                             
  array www(&siz.);                                       
  if _n_=1 then do i= 1 to dim(www);                       
    www(i)=0;                                             
  end;                                                     
  do i = 1 to &siz.;                                       
    www(i)=max(www(i),length(qqq(i)));                     
  end;                                                     
  retain _all_;                                            
  if done then do;                                         
    do i = 1 to &siz.;                                    
      length vvv $50;                                      
      vvv=catx(' ','length',vname(qqq(i)),'$',www(i),';');
      fff=catx(' ','format ',vname(qqq(i))||' '||         
          compress('$'||put(www(i),3.)||'.;'),' ');        
      call symput('lll'||put(i,3.-L),vvv) ;               
      call symput('fff'||put(i,3.-L),fff) ;               
    end;                                                   
  end;                                                     
run;                                                        
data &dsn._;                                               
  %do i = 1 %to &siz.;                                    
    &&lll&i                                                
    &&fff&i                                                
  %end;                                                   
  set &dsn;                                                
run;                                                        
%mend;                                                      
%change(work.kyle);               

摘自：http://support.sas.com/kb/35/230.html