home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / kim21.zip / LOCK.INC < prev    next >
Text File  |  1995-07-07  |  340b  |  26 lines
  1.  
  2.  
  3. rem Locking - Funktionen
  4.  
  5. modul jk_init_net()
  6.  deffloat _db_lock_attempts , _jk_ok
  7.  
  8.  _db_lock_attempts=1
  9.  
  10. endmod
  11.  
  12.  
  13.  
  14. modul jk_lock(float dbnr)
  15.  
  16. deffloat ok
  17. ilock dbnr,_jk_ok
  18. if _jk_ok=50 then
  19.     msgbox "Datensatz gesperrt, Ă„nderungen werden nicht gesichert",0,ok,""
  20.     _jk_ok=-1
  21. else
  22.     _jk_ok=1
  23. endif
  24.  
  25. endmod
  26.