SAS如何读入这样的数据集

1. SAS如何读入这样的数据集？
2. 如何得到第1列非缺失值的上一行第几行？比如aaa2数据集第1列b的上一行为第2行，c的上一行为第4行。根据第1列判断，希望程序能通用。希望得到的数据集为：
var x1 tag
  a  aa   .
     bb   2  
  b aa   .
     bb   4
  c  aa   .
     bb   

并且将2 4放入macro变量。

3. 如何得到第2列非缺失值的上一行第几行？比如aaa1数据集第2列分别为2 4 6 8 10。根据第2列判断，希望程序能通用。
希望得到的数据集：
var  x1  y2 tag2
a    aa    1     .
             2     2
      bb   1     .
             2    4
b    aa   1     .
             2    6
      bb  1     .
            2     8
c     aa  1    .
            2    10
      bb  1     .
            2     .


也可能出现不规则的情况。谢谢！

1. data bbb1;
   
2.     set aaa1;
   
3.     set aaa1 (rename=(var=var_ x1=x1_ y=y_) firstobs=2) end=last;
   
4.     if missing(x1) and ^missing(x1_) then tag=_n_;
   
5.     output;
   
6.     if last then do;
   
7.        var=var_;
   
8.        x1 = x1_;
   
9.         y = y_; output;
   
10.     end; drop var_ x1_ y_;
    
11. run;
    
12. 
    
13. data bbb2;
    
14.     set aaa2;
    
15.     set aaa2 (rename=(var=var_ x1=x1_) firstobs=2) end=last;
    
16.       length macro_tag $50;
    
17.       retain macro_tag;
    
18.     if missing(var) and ^missing(var_) then do;
    
19.        tag = _n_;
    
20.        macro_tag = catx(' ', macro_tag, put(tag, 2.));
    
21.     end;
    
22.     output;
    
23.     if last then do;
    
24.        var = var_;
    
25.         x1 = x1_;
    
26.     call symput('macro_tag', macro_tag); output;
    
27.     end; drop var_ x1_;
    
28. run;

复制代码

有没更简单的方法？谢谢！

上面是按列输入的标准方法. 下面的方法不用数列数.