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


************************************************;
***  Use of CALL statement to control Random   *;
***    numbers                                **;
************************************************;
DATA d3;
  seed1=3322;
  seed2=3322;
  seed3=3322;
  seed4=22;
  DO m=1 TO 10;
    CALL RANUNI(seed1,a1);
    CALL RANUNI(seed2,b2);
      x= RANUNI(seed3);
      y=RANUNI(22);
      z=RANUNI(22);
    CALL RANUNI(seed4,z4);
    IF m=5 THEN
      DO;
        seed2=22;
        seed3=22;
      END;
    OUTPUT;
  END;
PROC PRINT;
  TITLE2 "Table 3.1.  Illustration of controlling the starting points with a CALL statement";
RUN;