如何使数据集中变量保留最大长度。

1. data a;
   
2. length x $20. y$20.;
   
3. input x$ y$;
   
4. cards;
   
5. a b
   
6. aaa bbbbbbbbbbbbbbbbbb
   
7. ;
   
8. run;

复制代码

如何使数据集保留字符变量的最长长度？比如： x的长度为3，y的长度为18.
数据集很多，如何批量实现？谢谢！

/*just for reference*/
data a;
length x $20. y$20.;
input x$ y$;
cards;
a b
aaa bbbbbbbbbbbbbbbbbb
;
run;

%macro maxlen(lib=,mem=,out=);
proc sql noprint;
        select name into: varlist separated by ' '
        from dictionary.columns
        where libname=%upcase("&lib.") and memname=%upcase("&mem.");
quit;

%let nvar=%sysfunc(countw(&varList));

%let varlast=%scan(&varList, &nvar.);

proc sql;
        create table &out. as
        select
                 %do i =1 %to %eval(&nvar.-1);
                             %let var =%scan(&varList, &i);
                                        max(length(&var.)) as &var.len,
                 %end;

          max(length(&varlast.)) as  &varlast.len
        from a;
quit;
%mend maxlen;

%maxlen(lib=work,mem=a,out=test)

Eternal0601 发表于 2013-12-15 12:16
/*just for reference*/
data a;
length x $20. y$20.;

你误会我的意思啦，我希望得到的数据集变量x的长度为3，y的变量长度为18。
proc contents data=a;
run;
                                 #    变量    类型    长度

                                    1    x       字符      3
                                    2    y       字符      18

dxystata 发表于 2013-12-15 12:39
你误会我的意思啦，我希望得到的数据集变量x的长度为3，y的变量长度为18。
proc contents data=a;
run; ...

哈哈，感觉直接在data-input-cards中实现不了，但可以先定义一个大长度，然后再改属性

继续求助！

1. data a;
   
2. length x $20. y$20.;
   
3. input x$ y$;
   
4. cards;
   
5. a b
   
6. aaa bbbbbbbbbbbbbbbbbb
   
7. ; run;
   
8. 
   
9. data _null_;
   
10.     set a;
    
11.    retain x_length y_length 0;
    
12.    if length(x) > x_length then x_length = length(x);  
    
13.       call symput('x_length', x_length);
    
14.    if length(y) > y_length then y_length = length(y);  
    
15.       call symput('y_length', y_length);
    
16. run;
    
17. 
    
18. data a;
    
19.    length x $&x_length y $&y_length;
    
20.    set a;
    
21. run;
    
22. proc contents data=a; run;

复制代码

proc sql;
  select count(name) into: num from (select name,type from dictionary.columns where libname='WORK' and memname='A') where type='char';
  quit;

data _null_;
  set A end=last;
  array var _character_;
  array var_length(&num) $;
  array _var(&num) $;
  retain var_length:;
  length varlist $50;
do i=1 to #
  if length(var(i))>var_length(i) then var_length(i)=length(var(i));
end;
if last then do;
  do i=1 to #
    _var(i)=vname(var(i))||' $'||trim(left(var_length(i)));

        varlist=catx(' ', varlist,_var(i));
  end;
call symput('length_change',varlist);
end;
run;

data a;
  length &length_change;
  set a;
  run;

大家的方法太复杂了。

1. data a;
   
2.        
   
3.         infile datalines pad _infile_=rec;
   
4.         input x $ : @;
   
5.         y=substr(rec,length(x)+2);
   
6. 
   
7.     /* xlength=length(x);  */
   
8.     /* ylength=length(y) ; */
   
9. 
   
10. datalines;
    
11. a b
    
12. aaa bbbbbbbbbbbbbbbbbb
    
13. ;

复制代码

求币。

zhengbo8 发表于 2013-12-17 20:09
大家的方法太复杂了。求币。

没达到要求啊！

yongyitian 发表于 2013-12-16 10:47

变量很多时，就不适用啦！