data a;
do i= 1 to 10000;
    x=round(ranuni(123));
      output;
    end;
run;

data b;
set a;
    where x NE 0;
        drop x;
  run;

data c;
set b;
y=ifn(i>1, ( i-lag(i) -1), 0);
run;

data d;
merge a c;
by i;
run;

谢谢你的回复!