/*   The following program generates 1,000,000 observations and    */
   /*   outputs the updated seed value at intervals of 20,000:        */

data a(drop=x);           
   retain seed 39829735;  
   do i=1 to 1000000;     
      call ranuni(seed,x);
      if mod(i,20000)=0 then output;                   
   end;                                                
run;                                                   
                                                       
proc print data=a noobs;                               
   title 'Fifty Random Seeds with Intervals of 20,000';
   title2 '(Initial Seed:  39829735)';                 
run;