data mydata (keep = x replicate i seed);
   seed = 1;
   do Replicate = 1 to 500;
   do i = 1 to 100;
      call ranbin(seed, 1, 0.5 ,x);
      output;
   end;
   call symputx('seed', seed);
   end;
run;