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

filloc()


Syntax:     filloc(<expN>)

Purpose:    Lock database file

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

Returns:    A Logical Value

Note:       If 0 is used as a parameter filloc() will function
            like flock()

Library:    TC_SYS.LIB

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

   nDbf := select()

   if( !dbopen("tc_mas",.t.) )
       use
       qout("Unable to open master file!")
       select(nDbf)
       retu(.f.)
   else
       if( !filloc(3) )
           use
           qout("Unable to lock master file!")
           select(nDbf)
           retu(.f.)
       else
           ..........
           ..........
           ..........
           ..........
       endi
   endi