>I am happy to take your advice. What I am doing now is generating the number
>and , in a DO WHILE loop, SEEKing it and re-generating it until !FOUND(). If I put
>the primary key in a table, how do I generate it? By just adding 1 to its existing
>value? In a busy network, am I liable to face contention problems?

USE KeyTable
IF Seek(lcAlias, 'cTableName')
    RLOCK()
    liRetVal = iKeyVal
    REPLACE iKeyVal WITH iKeyVal + 1
    UNLOCK
ENDif

RETURN liRetVal