哪位能帮我把下面这段程序生成的分位数表通过编程存为文本文件?

shiyiming

哪位能帮我把下面这段程序生成的分位数表通过编程存为文本文件呢?就在这个程序里加进去.3x!!!
data problem;
array t(100);
do p=0.001,0.002,0.005,0.01,0.02,0.05,0.10,0.20;
  do j=1 to 100;
   a=tinv(1-p/2,j);
   t(j)=round(a,0.001);
  end;
output;
drop a j;
end;
run;

proc print data=problem noobs;
var p t1-t100;
run;

shiyiming

<!-- l --><a class="postlink-local" href="http://www.mysas.net/forum/viewtopic.php?p=8061">viewtopic.php?p=8061</a><!-- l -->
不是告诉过你怎么做吗？别总是发重复的问题，为什么自己不先搜一下！
[code:143df]data _null_;
file 'c&#58;\test&#46;txt' lrecl=1000;
set problem;
put p t1-t100;
run;[/code:143df]

shiyiming

filename s "d:\res.txt";

proc printto new print=s;
run;

proc print data=problem noobs;
var p t1-t100;
run;

proc printto;
run;