如何生成一组宏变量？

shiyiming

在一个宏循环中，如何将非宏变量的值，赋值给一组宏变量？
如：
%do i=1 %to 10;
.....
a=...
p=1-probf(a,...);
call symput("P_&i",p);
%end;
这里如何将每次循环改变的p值，赋值给宏变量呢？因为call symput是在最后一个循环才生成宏变量的。本人经常遇到这样问题，都很难解决。谢谢啊。

shiyiming

data _null_;
  do i=1 to 10;
      a=i;
      p=1-probf(a,1,2);
      call symput("P_"||strip(put(i,2.)),put(p,6.4));*2 for max i=99 for better precision p, can change format;
end;
run;

%put _user_
;

shiyiming

%macro vvv;

%do i=1 %to 10;
    %let a=%eval(&i);
    %let p_&i=%sysevalf(1-%sysfunc(probf(&a,1,2)));
%end;
%put _user_;

%mend;

%vvv
;

shiyiming

谢谢楼上的deshengsu ，真的万分感谢！