Create random number using call ranuni

retain seed 111618;
call ranuni(seed, ranno);