V_RLOCK()       Locks the currently selected record

Description:
  Locks the currently selected record or notifies the user if
  unsuccessful.


Syntax:     
  V_RLOCK()


Pass:       
  Nothing


Return:     
  <expL>   = .T. if successful, otherwise .F.


Notes:      


Example:    
  DO WHILE whatever
     IF .NOT. V_RLOCK()
        ac_msg[1] = "Unable to lock current record"
        ac_msg[2] = "Operation aborted"
        DISPMSG(ac_msg,2,"","")
        INKEY(5)
        EXIT
     ENDIF
     .
     .
     .
  ENDDO
  .
  .
  .


Usage:      
  V_RLOCK() will try to lock the currently selected record.  If it is
  unsuccessful, a non-screen destructive message stating "Waiting for
  busy network.  Press any key to abort." will appear on the screen and
  V_RLOCK() will continue attempting to lock the currently selected
  file. If the user aborts the operation by pressing a key, V_RLOCK()
  will return a logical value of falso.  If V_RLOCK() returns a value of
  false, it is your job as the programmer to abort the operation and
  recover properly.