VS_RLock()           Locks the currently selected record

Description:

  VS_RLock() locks the currently selected record or notifies the user if
  unsuccessful.

Syntax:     

  l_Success = VS_RLock()

Pass:       

  Nothing

Return:     

  l_Success is a logical expression that will be set to .T. if
  successful, otherwise .F.

Notes:      


Example:    

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

Usage:      

  VS_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
  VS_RLock() will continue attempting to lock the currently selected
  file. If the user aborts the operation by pressing a key, VS_RLock()
  will return a logical value of false.  If VS_RLock() returns a value
  of false, it is your job as the programmer to abort the operation and
  recover properly.