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