程序中如何调用数据表的数据？我有一个例子，麻烦大家帮忙看一下，是关于遗传算法的！
proc ga seed=5555 maxiter = 30;
function y(selected );
array x[6] /nosym;
call ReadMember(selected,1,x);
x1=x[1];
x2=x[2];
x3=x[3];
x4=x[4];
x5=x[5];
x6=x[6];
set float_time;
sum1[j]=0;
do i=1 to 38;
sum1[j]=sum1[j]+c*exp(-t*(x1+(x2+x3)*((1-exp(-t/x5))/(t/x5)-x3*ex(-t/x5)+x4*((1-exp(-t/x6))/(t/x6)-exp(-t/x6)));
end;
sum2=0;
do j=1 to 22;
sum2=sum2+(p[j]-sum1[j])**2*w[j];
end;
result=sum2;
      return(result);
   endsub;
call SetEncoding('R2');
array LowerBound[6] /nosym (0.086 -0.086 -0.109 0.042 9 2.2);
array UpperBound[6] /nosym (0.094 -0.076 -0.098 0.054 12 4);
call SetBounds(LowerBound, UpperBound);
call SetObjFunc('y',0);
call SetCrossProb(0.65);
call SetCrossHeuristic();
call SetMutProb(0.15);
array delta[2] /nosym (0.2 0.2);
call SetMutDelta(delta, 1);
call SetSelTournament(2);
call SetElite(2);
call Initialize('DEFAULT',120);
run;
quit;
其中的p[j]和w[j]要在其他数据表中按顺序使用，这一步应该怎么做？麻烦再指点一下！