RT，有如下程序，需要在满足条件（is=1）的情况下跳出宏循环，不知道哪里写错了，恳请高手指点，不甚感激啊！

%macro data(i);
data c&i;
a=3;
is=(a>2);
%mend data;

%macro bn;
%do i=1 %to 5;
%data(&i);
%if is=1 %then %goto ok;
%end;
%ok: put 'Yes';
run;
%mend bn;
%bn;