标题: index 問題求助 [打印本页] 作者: shiyiming 时间: 2009-11-9 17:57 标题: index 問題求助 各位大大,以下是在下写的程式内容,利用index来作索引,但是加上do while end 后,会变成无穷回圈
,结果我检查之后,才发现,索引的功能只有第一次有效果,回圈之后就没有在去索引,请问我的程式
有什么问题吗
data fileb;
input group_id $ cnt dudate
cards;
a1 1 4/5
a1 1 4/9
a1 2 4/25
a1 3 4/30
;
group_id_cnt=group_id || cnt;
run;
data b4(keep=group_id_cnt dudatb);
input group_id cnt dudatb
cards;
a1 1 4/10
a1 2 4/27
a1 3 4/29;
group_id_cnt=group_id || cnt;
run;
DATA DAT3 (INDEX=(GROUP_ID_CNT));
SET B4;
RUN;
DATA DAT4;
SET fileb;
DK = group_id_cnt;
DO WHILE (DUDATE > DUDATB) ;
set dat3 key=group_id_cnt;
IF _ERROR_ EQ 0 THEN
DO;
IF DK NE group_id_cnt THEN
DO;
DUDATB=" ";
END;
END;
IF DUDATE > (DUDATB) THEN BOF_CNT=BOF_CNT+1;
DK=GROUP_ID || BOF_CNT;
END;