OPTIONS LINESIZE=88 PAGESIZE=53 NOCENTER NODATE NONUMBER NOFMTERR;
********************************************************************* ***;
* PROJECT NAME: Learning to Use SAS                                      ;
*             PROGRAM NAME        DATE                    PROGRAMMER     ;
TITLE1 "Source:lec24p2.sas   C:\ed\web\be691f\webready  11/30/98  EJS "  ;
* Description:  Illustration of how a seed works with random numbers     ;
*     INPUT:  none                                                       ;
*    Output:  none                                                       ;
*************************************************************************;

***********************************************;
*** Function of SEED in Random Number Generators;
************************************************;
DATA d1;
  seed=3322;
  DO m=1 TO 7;
    x=RANUNI(seed);
    y=RANUNI(seed);
    z=RANUNI(3322);
    OUTPUT;
  END;



PROC PRINT;
  ID m;
  TITLE2 "Table 2.1.  Illustration of SEED for Random Number Generator";
  TITLE3 "              The effect of initiating the seed";

DATA d2;
  seed=3322;
  DO m=1 TO 14;
    xx=RANUNI(seed);
    OUTPUT;
  END;

PROC PRINT;
  ID m;
  TITLE2 "Table 2.2.  Illustration of SEED for Random Number Generator";
  TITLE3 "              The effect of initiating the seed";

RUN;