func reclok
PARAMETERS nrecord
tries=0
do while !rlock()
	IF !EMPTY(nrecord)
		MESSAGEBOX("The record ("+ALLTRIM(STR(nrecord))+") you are trying to access is locked, and may be in use by another user.;
	 	If this isn't the case, please contact your systems administrator...",64,'Record locking information...')
	ELSE 
		MESSAGEBOX("The record you are trying to access is locked, and may be in use by another user.;
	    If this isn't the case, please contact your systems administrator...",64,'Record locking information...')
	ENDIF 
	tries=tries+1
	IF tries=3
		UNLOCK all
		return
	endi
enddo