options ls=80;

data sim;
   do group = 1 to 1000;
      do i = 1 to 100;
         x = rannor(0);
	 y = rannor(0);
	 output;
	 end;
      end;
drop i;
run;

proc corr noprint out=corrout data=sim;
  by group;
  var x y;
run;

data use(rename= y=corr);
  set corrout;
  if _type_ = 'CORR' and _name_ = 'x' then output;
  drop _type_  _name_ x;
run;

proc univariate plot data=use;
title 'using groups';
   var corr;
run;