代碼：
%macro search(w0by,delby,sigby,sig1,sig2,need);
data ;
do w0 =0 to 80 by &w0by;
do delta10 =15 to 30 by &delby;
re: do sigma10 =&sig1 to &sig2 by &sigby;
*循環(huán)體;
if abs(nc)<&need then do;
/* put w0= delta10= sigma10= nc=;*/
leave; *本段用于結(jié)束最內(nèi)層循環(huán);
end;

if nc<0 then do;
put w0= delta10= sigma10= nc=;
call symputx("sig1",sigma10-&sigby);
call symputx("sig2",sigma10);
call symputx("sigby",&need);
go to re; *本段試圖修改內(nèi)層循環(huán)的約束條件，并重做內(nèi)層循環(huán);
end;
end;
end;
end;
run;
%mend;
%search(10,5,10,50,150,0.1);
問各位老師一個(gè)問題，代碼如上，描述如下：
我想做最內(nèi)層的循環(huán)迭代，從而得出最優(yōu)結(jié)果，我試圖利用宏變量去修改最內(nèi)層循環(huán)的約束條件，但是失敗了，似乎do循環(huán)不允許這樣修改；請(qǐng)問我的這種思路可行嗎？
另外，我干脆把改成宏do循環(huán)如下，但是中間有個(gè)squt要出問題：
%macro search(w0by,delby,sigby,sig1,sig2,need);
%let w0=0;%let delta10=15;%let sigma10=&sig1;
%do %until(&w0=80);
%do %until(&delta10=30);
%re:%do %until(&sigma10=&sig2);
data a;
w=&w0/100;wp=1-w;delta1=&delta10/100;sigma1=&sigma10/100;
*%do循環(huán)體;*循環(huán)體中的sqrt方法報(bào)錯(cuò)，方法中的所有值都是未缺失的，方法得出的結(jié)果缺失;
callsymputx("w0",w0); *這幾句試圖提取關(guān)鍵變量結(jié)果至宏變量;
callsymputx("delta10",delta10);
callsymputx("sigma10",sigma10);
callsymputx("nc",nc);%put %sysfunc(abs(%sysevalf(&nc)));
%if %sysfunc(abs(%sysevalf(&nc)))<&need %then %do;
%put w0=&w0 delta10=&delta10 sigma10=&sigma10 nc=&nc;
/*leave;*/
%end; *未做好的結(jié)束條件;

%if &nc<0 %then %do;
%put w0=&w0 delta10=&delta10 sigma10=&sigma10 nc=&nc;
%let sig1=%sysevalf(&sigma10-&sigby);
%let sig2=&sigma10;
%let sigby=&need;
%goto re; *本段試圖修改%do的約束條件;
%end;
%let sigma10=%sysevalf(&sigma10+&sigby);%end;
%let delta10=%sysevalf(&delta10+&delby);%end;
%let w0=%sysevalf(&w0+&w0by);%end;
run;
%mend;
%search(10,5,10,50,150,0.1);
請(qǐng)求幫助，謝謝啊。