/* it depends on the maximum value of the random number generated each time */
/* be carefull when changing the value of a or b. */
/* the program may not stop if the value of a is too small or the value of b is too big */

data random6;
    j=0;
    a=4.5;    /* the maximum value of the random number generated */
    b=3;
     do until (mean6 > b);
         sum=0;
         mean6=0;
         do i = 1 to 6;
            n =j+i;
         seed = 100+j+i;
            x = ranuni(seed)*a;
                sum+x;
         mean6 = sum/6;
         output;
         end;
         j+6;
      end;
run;

谢谢您的即时回复，再问一下为什么
data raw; do x=1 to 30;output;end;group=int((_n_-1)/6);run;
这个代码的结果group为缺失值？？
十分感谢!

1.output改变了data步默认的输出数据方式，在do--end循环中没有group的出现，自然就是默认为空值；当跳出这个循环后，x就变31，再执行group这个语句，此时_n_=1，group的值就为0，由于前面output的出现，所以这条记录不会输出数据集中，如果在group这句后面加上output就可以输出了
data raw;
do x=1 to 30;
output;
end;
group=int((_n_-1)/6);
output;
run;

2._N_ is initially set to 1. Each time the DATA step loops past the DATA statement, the variable _N_ increments by 1. The value of _N_ represents the number of times the DATA step has iterated.你改的这段code过程中data步循环只有一次，所以_n_一直都为1，为了达到效果，就只能采用下面这段code
data raw2;
set raw;
group=int( (_n_ - 1)/6);
run;

十分感谢，

十分感谢，在您代码的帮助下，我应该达到目的了，代码如下：
data a;
do until ((mean>3) or (mean<-3));
s=0; y=0;do j=1 to 6;x=rannor(0); y=0.7*y+x;s+y;mean=s/6;output;end;
end;
run;

mark

data c;
input x y $;
cards;
1990             x
1990            y
1990             z
1991             m
1991             s
1992               n
1992          o
1993           p
1993           q
1993           r
1994            s
;
run;
proc sort data=c;
by x;
run;
data want;
set c;by x;
retain id 0;
id+1;
if first.x then id=1;
run;

data d;
input x @@;
cards;
1 2 3 4 5 6
7 8 9 10 11
12 13 14 15
16 17 18
;
run;
data want;
set d;
n=_n_;
retain id 0;
if mod(n,6)=1 then id=(n-1)/6+1;
run;
proc sql;
create table mydata as
select x,n,id,mean(x) as meanx
from want
group by id
;
quit;run;
proc sort data=mydata;
by n;
run;
data mydata;
set mydata;
keep x meanx;
run;