LOCAL lcError, llErr
lcError = ON("ERROR")
ON ERROR llErr = .T.
USE MyFile EXCLUSIVE
IF llErr
   * Error couldn't get it opne exclusive
ELSE
   * It is open exclusively
ENDIF
IF NOT EMPTY( lcError)
   ON ERROR &lcError
ELSE
   ON ERROR
ENDIF