>else
>   replace key with key && lock record so no one else can get it
>   lnretval = key + 1
>   replace key with lnretval
>endif

IF RLOCK()
   lnRetVal = key + 1
   REPLACE key WITH lnRetVal
   UNLOCK
ENDif