IF RLOCK () *-- Record not in use by another. We have the lock on it ELSE *-- Record locked by someone else ENDIF