home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Database / CLIPR502.DOS / SOURCE / SYS / NTXERR.PRG < prev    next >
Encoding:
Text File  |  1993-02-15  |  1.2 KB  |  51 lines
  1. /***
  2. *
  3. *   Ntxerr.prg
  4. * 
  5. *   Replaceable DBFNTX error handler error handler.
  6. *
  7. *   Copyright (c) 1993, Computer Associates International, Inc.
  8. *   All rights reserved.
  9. *
  10. *   Contains the error handler for lock time-outs.  The default behavior
  11. *   is to just retry forever (backwards compatible).
  12. *
  13. *   A better behavior would be to warn the user to notify the Network 
  14. *   Administrator that some other user may have hung with an active lock
  15. *   on the index.  (Or they have it in a window that doesn't have any 
  16. *   background ticks assigned to it.)
  17. *
  18. *   Warning: changing the behavior to allow a lock to failure to be 
  19. *   ignored will produce different results depending on the operation
  20. *   that is in progress at the time the lock failed.  The index will 
  21. *   most likely be left in an invalid state and should be recreated.
  22. *
  23. */
  24.  
  25. #include "error.ch"
  26.  
  27.  
  28. ANNOUNCE _ntxerr
  29.  
  30.  
  31.  
  32. INIT PROCEDURE InitHandler()
  33.    LOCAL bDefError
  34.  
  35.     bDefError := ErrorBlock( { |err| LockErrHandler( err, bDefError ) } )
  36.  
  37.    return
  38.  
  39.     
  40.  
  41. STATIC FUNCTION LockErrHandler( oErr, bDefError )
  42.  
  43.    if ( oErr:genCode == EG_LOCK )
  44.    
  45.       return ( .T. )
  46.  
  47.     end
  48.  
  49.    return ( eval( bDefError, oErr ) )  // chain back to default error handler
  50.         
  51.