data test;
input id x y;
cards;
1 1000 0
2 2000 0
3 3000 3000
4 4000 3500
5 5000 4000
;
run;

data test1;
        set test nobs=last;
        result=0;
        do i=1 to last;
                set test(keep=x rename=(x=x_inner)) point=i;
                if x_inner<=y then result+1;
        end;
        drop x_inner;
run;