*******************************************
*    DISCRETE RANDOM VARIABLE SIMULATION  *
*                                         *
*     DSN= DSIM.SAS                       *
*******************************************;

data dsim;
  seed=45 ;
  do i=1 to 1000;
     x1=int(ranuni(seed)*100);
     output;
  end;
  proc print;
     id i;
     var seed x1;
 proc means;
     var x1 ;
 run;