下面的代码如何解读 谢了各位

data b;set a;by NPERMNO date type date1;
retain car1;if first.type then car1=ri;else car1=car1*ri;
retain car1_MV;if first.type then car1_MV=rmv;else car1_MV=car1_MV*rmv;
retain car1_ME;if first.type then car1_ME=rme;else car1_ME=car1_ME*rme;
if last.type then output;run;/*

仅供参考下,感觉可以优化

1. data b;/*数据b*/
   
2. set a;/*读取a,依npermno date type date1排序*/
   
3. by NPERMNO date type date1;
   
4. retain car1;/*声明car1,在条件语句结束后保持car1的值*/
   
5. if first.type then car1=ri;/*条件语句,first.type指排序后的第一个type*/
   
6.    else car1=car1*ri;/*不满足first.type的条件*/
   
7. retain car1_MV;
   
8. if first.type then car1_MV=rmv;
   
9.    else car1_MV=car1_MV*rmv;
   
10. retain car1_ME;
    
11. if first.type then car1_ME=rme;
    
12.    else car1_ME=car1_ME*rme;
    
13. if last.type then output;/*最后type,则输出*/
    
14. run;/*

复制代码

yugao1986 发表于 2011-8-23 16:20
仅供参考下,感觉可以优化

谢谢你的解读了，我想问一下，这段程序retain car1;if first.type then car1=ri;else car1=car1*ri;，如果有5个type=1观测，那最后显示的结果格式是三个还是五个？谢谢

orainman 发表于 2011-8-23 16:57
谢谢你的解读了，我想问一下，这段程序retain car1;if first.type then car1=ri;else car1=car1*ri;，如果 ...

应该是最后的一个累计结果,你试一试看看.