rand(-1) create cursor randvals (rnd b(2)) for ix=1 to 1000 insert into randvals values (round(CertainRand(2,8),0)) endfor locate brow * random values * E.g. between -2147483647 and +2147483647 (int datatype range) function CertainRand lParameter nLowerLimit, nUpperLimit DO CASE CASE nLowerLimit>nUpperLimit RETURN null CASE nLowerLimit=nUpperLimit RETURN nLowerLimit otherwise return rand()*(nUpperlimit-nLowerLimit)+nLowerLimit ENDCASECetin