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

recloc()


Syntax:     recloc(<expN>)

Purpose:    Lock database record

Arguments:  <expN> is the number of attempts at locking a record

Returns:    A Logical Value

Note:       If 0 is used as a parameter recloc() will function
            like rlock()

Library:    TC_SYS.LIB

----------------------------------- Example ----------------------------------

   nDbf := select()

   if( dbopen("tc_mas",.t.) )
       dbseek("7139463867")
       if( found() )
           if( !recloc(3) )
               use
               qout("Unable to lock record!")
               select(nDbf)
               retu(.f.)
           else
               ..........
               ..........
               ..........
               ..........
           endi
       else
           ..........
           ..........
           ..........
           ..........
       endi
   else
       ..........
       ..........
       ..........
       ..........
   endi