home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / autorep3.zip / LockClose.cmd < prev    next >
OS/2 REXX Batch file  |  1996-04-03  |  470b  |  30 lines
  1. /* ------------------------------------------------------------------ */
  2. /*
  3.  * LockClose
  4.  *
  5.  * Close the locked file deleting the lock.
  6.  *
  7.  */
  8.  
  9. TRUE = 1
  10. FALSE = 0
  11.  
  12. LockClose: 
  13.  
  14. parse arg FileName Mode
  15.  
  16. /* first close the lock file */
  17. rc = UnLock(FileName)
  18.  
  19. if rc = FALSE then return FALSE
  20.  
  21. /* Now close the date file */
  22. rc = stream(FileName, 'C', 'CLOSE')
  23.  
  24. parse var rc state ':' code
  25. if state = 'NOTREADY' then
  26.   return FALSE
  27.  
  28. return TRUE
  29.  
  30.