如何将变量的label作为第一行

1. data aaa;
   
2. input x$ z$ y$;
   
3. label y="sex";
   
4. cards;
   
5. a b m
   
6. d e f
   
7. ;
   
8. run;

复制代码

如何将变量的label作为第一行，如果没有label则以变量名代替。希望得到的数据集为：
x z sex
a b m
d e f
保持变量的顺序不变。
谢谢！

data bbb;
   if 0 then set aaa;
   array tmp $ _ALL_;
   if _N_=1 then do;
     do i=1 to dim(tmp);
        tmp(i)=vlabel(tmp(i));
         end;
         output;
   end;
   set aaa;
   output;
   drop i;
run;

pobel 发表于 2014-1-26 11:26
data bbb;
   if 0 then set aaa;
   array tmp $ _ALL_;

pebel 大师，想跟您请教一下”if 0 then set aaa"这个语句，因为默认值应该是1，所以if 0，这样就得到false，所以应该不会执行后面的set aaa语句，那这句的意义在哪里呢？还望赐教

tangliang0905 发表于 2014-1-28 10:06
pebel 大师，想跟您请教一下”if 0 then set aaa"这个语句，因为默认值应该是1，所以if 0，这样就得到fal ...

这个问题我也不曾理解，

其用途只知道是在data步之前用set的数据集所有变量属性进行铺垫。

我的个人理解是：if 0，说明后面的语句在数据执行阶段被否定不执行；而这句语句仅仅是在data步编译阶段进行了属性预读。

大概是这样。

pobel 发表于 2014-1-26 11:26
data bbb;
   if 0 then set aaa;
   array tmp $ _ALL_;

1. data aaa1;
   
2. input x z$ y$;
   
3. cards;
   
4. 1 b m
   
5. 2 e f
   
6. ;
   
7. run;
   
8. 
   
9. proc format;
   
10.     value xfmt 1="是" 2="否";
    
11. run;
    
12. 
    
13. data aaa;
    
14. set aaa1;
    
15. x1=compress(put(x,xfmt.));
    
16. drop x;
    
17. label x1="性别";
    
18. run;

复制代码

针对这个数据集呢？问题就是如果变量label长度大于变量本身长度，如何更好的实现呢？

1. data aaa;
   
2. input x $ z $ y $ ;
   
3. label y="sex-label is longer than variable-length";
   
4. cards;
   
5. a b m
   
6. d e f
   
7. ;
   
8. run;
   
9. 
   
10. proc sql noprint;
    
11.    select distinct strip(name)||" $"||cats(max(length,length(label)))
    
12.       into: length separated by " "
    
13.           from dictionary.columns
    
14.           where libname="WORK" and upcase(memname)="AAA"
    
15.       order by varnum;
    
16. quit;
    
17. 
    
18. data bbb;
    
19.    length &length;
    
20.    if 0 then set aaa;
    
21.    array tmp $ _ALL_;
    
22.    if _N_=1 then do;
    
23.      do i=1 to dim(tmp);
    
24.         tmp(i)=vlabel(tmp(i));
    
25.          end;
    
26.          output;
    
27.    end;
    
28.    set aaa;
    
29.    output;
    
30.    drop i;
    
31. run;

复制代码

pobel 发表于 2014-1-26 11:26
data bbb;
   if 0 then set aaa;
   array tmp $ _ALL_;

如果没有label，如果用空代替呢？谢谢！

谢谢...