Click above to get retro games delivered to your door ever month!

 rlock()             Lock current record in current database
------------------------------------------------------------------------------
 Declaration
   database.hdr

 Syntax
   func logical rlock extern

 Arguments
   None.

 Return
   A logical indicating the success of operation.

 Description
   The rlock() function attempts to lock the current record in the current
   database. If the lock is successful, rlock() returns .t. Any record or
   file lock assigned to the current alias is released, and if rlock()
   is unsuccessful, the locks are not restored.

   Once an rlock() is applied to a process, no other process can write to
   the record or lock the record. However, rlock() does not prevent another
   process from reading the locked record.

   The use of rlock() or arlock() is recommended when updating a record
   with the get/read, delete, recall, or replace (:=) commands.

 Example
   #define EXAMPLE_DATABASE
   #include example.hdr

   proc Test_rlock
   open sTest
   if .not. rlock()
      ? "Unable to access record..."
   endif
   unlock
   goto 1
   rlock()              // locks record 1
   goto 2
   rlock()              // releases lock on record 1 and locks record 2
   endproc

   proc main
   Test_rlock()
   endproc