*------------------------------------ * Function...: UniqueID * Author.....: MARTIN * Date.......: 18/02/1998 * Notes......: Generates a unique name. As SYS(3) can generate the same value * : when issues in the same millisecond, this function throws the first * : one and returns the second. * Parameters.: None * Returns....: A unique ID name * See Also...: * local lcRetVal lcRetVal = sys(3) && Takes the first value do while lcRetVal = sys(3) && Waits for a different one enddo lcRetVal = sys(3) && Returns the safe one (or the next!) return lcRetVal *-------------------------------* FinHope this helps,