如何将第1列变量非缺失值所在行的上一行赋值为T

1. data aaa1;
   
2. infile cards missover;
   
3. input var$ x1$ y2;
   
4. cards;
   
5. a aa 1
   
6. . .  2
   
7. . bb 1
   
8. . .  2
   
9. . cc 1
   
10. b aa 1
    
11. . .  2
    
12. . bb 1
    
13. . .  2
    
14. . cc 1
    
15. . cc 2
    
16. c aa 1
    
17. . .  2
    
18. . bb 1
    
19. . .  2
    
20. ;
    
21. run;

复制代码

如何将第1列变量非缺失值所在行的上一行赋值为T,



得到的数据集：

1. data want;
   
2.   merge aaa1 aaa1(firstobs=2 keep=var rename=var=_var);
   
3.   if missing(var) and not missing(_var) then var='T';
   
4.   drop _:;
   
5.   run;

复制代码

farmman60 发表于 2014-11-1 11:19

1. data aaa1;
   
2.         set aaa1;
   
3.                 if ^missing(var) and _n_^=1 then call symput('tag',_n_-1);
   
4.                 if _n_=&tag then var="T";
   
5. run;

复制代码

如何能使call symput循环呢？

请pobel兄帮忙！

请pobel兄帮忙！

dxystata 发表于 2014-11-1 21:48
请pobel兄帮忙！

我想不到比沙发更好的方法

pobel 发表于 2014-11-2 09:17
我想不到比沙发更好的方法

用call symput或proc sql可以实现吗？

dxystata 发表于 2014-11-2 09:57
用call symput或proc sql可以实现吗？

不用data步的话，我实现不了。
proc sql noprint;
   select  (^missing(var))*(monotonic()-1) into:tobs separated by "*"
     from aaa1;
quit;

data want;
    set aaa1;
        if index(cats("*","&tobs","*"),cats("*",_n_,"*")) then var="T";
run;

dxystata 发表于 2014-11-2 09:57
用call symput或proc sql可以实现吗？

用call symput() 肯定也不如沙发的程序更清晰。
为什么非得用call symput 或proc sql？

pobel 发表于 2014-11-2 10:39
用call symput() 肯定也不如沙发的程序更清晰。
为什么非得用call symput 或proc sql？

你说得有理，谢谢啦！