num	theta	scale	shape	n
71	3.276474	6.701457	3.334546	136
71	3.269065	8.125614	3.228867	131
81	3.297221	8.83398	1.945232	29
81	3.082251	9.436416	2.037437	34
81	3.03653	11.52078	2.135424	37
106	3.138993	9.489567	2.297989	30
106	3.157247	12.18411	2.39831	32

比如，我在excel 中有如上一个表单数据，每次输进去一行值，就会输出一个表，也就是说我这上面有7行数，应该产生7个表的数据(你可以用第二个程序试试)。第一个代码不能成功，能帮我解答吗？谢谢！
1、
dm 'log;clear;output;clear';
proc import datafile="c:\example.xls"
out=one;
data one;set one;
x=n;
run;
data one;
do k=1 to 7;
do m=1 to x;
  y=theta+scale*(-log(ranuni(123321)))**(1/shape);
  output;
  end;
  end;
run;

2、

data one;
theta=3.2765;
scale=6.7015;
shape=3.3345;
do n=1 to 136;
  y=theta+scale*(-log(ranuni(123321)))**(1/shape);
  output;
  end;
run;