如何根据第一个表格生成第二个表格？

obs	code	date	n
1	1	20010101
2	1	20010102
3	1	20010104	0
4	1	20010106
5	1	20010107
6	2	20010101
7	2	20010102
8	2	20010104
9	2	20010106	0
10	2	20010107
obs	code	date	n
1	1	20010101	-2
2	1	20010102	-1
3	1	20010104	0
4	1	20010106	1
5	1	20010107	2
6	2	20010101	-3
7	2	20010102	-2
8	2	20010104	-1
9	2	20010106	0
10	2	20010107	1

高手帮忙！！谢谢


向各位前辈致以最崇高的敬意！

1. proc sql;
   
2.         create table result as
   
3.                 select
   
4.                         a.obs
   
5.                         ,a.code
   
6.                         ,a.date
   
7.                         ,a.obs-b.obs as n
   
8.                 from a a
   
9.                 inner join a b
   
10.                 on        a.code=b.code
    
11.                 where b.n=0
    
12.         ;
    
13. quit;

复制代码

a是原表
result为结果表
希望是对的......

我也不会呢

data raw;
        input code date n;
datalines;
1 20010101 .
1 20010102 .
1 20010104 0
1 20010106 .
1 20010107 .
2 20010101 .
2 20010102 .
2 20010104 .
2 20010106 0
2 20010107 .
;

data out (drop=pos);
        do _n_=1 by 1 until(last.code);
                set raw;
                by code;
                if missing(n)=0 then pos=_n_;
        end;
        do _n_=1 to _n_;
                set raw;
                by code;
                if first.code then m=-pos+1;
                else m+1;
                output;
        end;
run;

参考：http://www.pinggu.org/bbs/viewthread.php?tid=859941&page=2&from^^uid=64785#pid6541838

1. proc sort; by code; run;
   
2. data have1;
   
3. do until(last.code);
   
4.   set have; by code;
   
5.   n_ = sum(n_, 1); if n = 0 then m =n_;
   
6.   end;
   
7. do until(last.code);
   
8.   set have; by code;
   
9.   _n = sum(_n, 1); n = _n-m;
   
10.   output;
    
11.   end;
    
12. drop _n n_ m;
    
13. run;

复制代码

很雷同啊：

1. 
   
2. data have1;
   
3. do _n_ = 1 by 1 until(last.code);
   
4.   set have; by code;
   
5.   if n = 0 then m =_n_;
   
6.   end;
   
7. do _n_ = 1 by 1 until(last.code);
   
8.   set have; by code;
   
9.   n = _n_-m;
   
10.   output;
    
11.   end;
    
12. drop m;
    
13. run;

复制代码

1. data out(drop=zero);
   
2.         do _n_=1 by 1 until(last.code);
   
3.                 set raw;
   
4.                 by code;
   
5.                 if n=0 then zero=_n_;
   
6.         end;
   
7.         do _n_=1 to _n_;
   
8.                 set raw;
   
9.                 n=_n_-zero;
   
10.                 output;
    
11.         end;
    
12. run;

复制代码

6# hopewell
我俩咋一样了呢？你是猫，我是老虎

牛人迭出啊

7# jingju11
真不适应,我就吃个早点的工夫,这楼噌噌的就盖起来了

hopewell 发表于 2010-7-27 10:05
7# jingju11
真不适应,我就吃个早点的工夫,这楼噌噌的就盖起来了

他有悬赏呢。