>DO WHILE NOT RLOCK()
>ENDDO
>REPLACE CLE WITH CLE+1
>UNLOCK

Uh, Michel -- I don't think so. :-) This doesn't allow for the fact that you might not be able to get a lock at all -- you'll be hung here forever.

Try this way:

SET REPROCESS TO AUTOMATIC
IF RLOCK()
    liReturnValue = cle
    REPLACE cle WITH cle+1
    UNLOCK
ELSE
    liReturnValue = -1    && or something else that isn't a real value
ENDif

My blog
My consulting page
My home page

Member of the Trim Your Auto-Quote Campaign!
What's another word for thesaurus?