index 問題求助

shiyiming

各位大大,以下是在下写的程式内容,利用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;

RUN;