稍等，洗个澡，马上回来给你解决。

如果我没有理解错你的意思，你所提问题里面，i列没有值的地方应该是缺失值，是吗？如果这样，那根本不需要动用array这个洲际导弹，retain语句足矣，代码如下：

data a;
input id i ;
cards;
1 .
2 .
3 1
4 .
5 .
6 .
7 2
8 .
9 3
;
run;

data final;
set a;
retain rt 0;
rt+1;
if i ne . then do q=rt-1;rt=0;end;
run;

结果太对了,就是我要的!  程序也好简单，容我先看看，还没太明白。。

把rt-1付赋给q的时候，rt值是0,q不是等于-1了么?这个叠代始终看不出明白呢

看来你还没有IT的思维.SAS是逐行编译执行语言.在上面的语句中,q=rt-1语句在前,rt=0语句在后,而最开始的rt+1又保证了rt的值不会等于0,除非你给它一个假定(就是这里的if语句).所以,q值永远不可能等于-1.
你可以看看SAS的PDV.如果不介意,我自己写的书<SAS编程与数据挖掘商业案例>里面有很详细的介绍.

好的  不知道怎么说感谢 书已经买啦

版主，就这个数据我其实还有个问题。。今天又琢磨一天，不知道哪里错了。。
我又加了一组数，主要是这个按照数来判断的，
如图中画的，如果出现相同的数，则q值应该跟前一个一样。。但是结果就是出不来呢。

data a;
input id x i ;
cards;
1 900 .
2 800 .
3 750  1
4 600 .
5 650 .
6 500 .
7 300 2
8 300 3
9 300 4
9 200 .
10 150 5
11 140 6
;
run;

data final;
set a;
retain rt 0;
rt+1;
if i ne . then do q=rt-1;rt=0;end;
drop rt;  /*用你之前写的，求q值的*/
if i ne . then do;
if x=lag(x)  /*把x与x的前一个数值比较*/
then q=lag(q);end;  /*如果相等，q等于上一个q值，并循环倒下一个*/
run;

觉得求的这个q值还是有点复杂，其实就是如果左边的数相等，右边的数就应该相等。

data a;
input id x i ;
cards;
1 900 .
2 800 .
3 750  1
4 600 .
5 650 .
6 500 .
7 300 2
8 300 3
9 300 4
9 200 .
10 150 5
11 140 6
;
run;

data final;
set a;
retain rt qq 0;
rt+1;
ii=lag(i);
if i ne . then do q=rt-1;rt=0;end;
if i ne . then if ii eq . then qq=q;
if i eq . then qq=.;
keep id x i qq;
run;

多谢！
只是变量x的最后两个数字不一样，q值还得是1和0。
这个程序都变成1了。

我做出来了！
终于有点明白retain的含义了，不满足条件时保留上一个值是把。。
data final;
set a;
retain rt qq  0;
rt+1;
if i ne . then x1=lag(x);
if i ne . then do q=rt-1;rt=0;end;
if x ne x1 then qq=q;
run;

版主好强大啊！！！

15# basswawa
retain函数可以保留循环步的上一步的数值，如果是第一步的话，就是赋初始值。灵活运用retain函数，可以在DATA步生成一些滞后数列。详情参考SAS帮助文档retain函数。

又碰上问题不会了，还是这组数，
现在我想生成一个新变量qq2，利用到rt ，qq和qq1 列里的数，qq2=rt/qq+qq1，对应于缺省的位置也就是:
1/2+0.667  
2/2+0.667  
1/3+1
2/3+1
3/3+1
1/1+0.333
但我不知道怎么用怎么两个不同行的值呢


data a;
input id x i ;
cards;
1 900 .
2 800 .  
3 750  1 .
4 600 .  
5 650 .  
6 500 .  
7 300 2 .
8 300 3 .
9 300 4 .
9 200 .  
10 150 5 .
11 140 6 .
;
run;
data final;
set a; drop x1 q;
retain rt qq  0;
rt+1;
if i ne . then x1=lag(x);
if i ne . then do q=rt-1;rt=0;end;
if x ne x1 then qq=q;
qq1=qq/3;    /*rt,qq,qq1的数值都已经算好了的*/
run;

今天好热闹阿