dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19243
Location: Inside the Matrix
|
|
|
|
Hi Charles,
Thanks for the reply 
The following is what i (thanks to the suppport from Robert and Vasanth) have running now:
| Code: |
DATA SEEDFILE;
INFILE SEEDFILE;
INPUT @014 SEEDVAL;
SEED = INT(MOD (TIME(), SUBSTR(SEEDVAL,1)+0)) ;
RANVAL = INT(RANUNI(SEED)*SEEDVAL) + 1 ;
FILE RANOUT;
PUT ' RANDACT ' RANVAL Z7. ; |
This does not use the "parm" but rather an input file and the random number is written to the RANOUT DD statement. |
|
