home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / steward8.zip / CopyLock.cmd < prev    next >
OS/2 REXX Batch file  |  1996-03-11  |  457b  |  29 lines
  1. /* ------------------------------------------------------------------ */
  2.  
  3. TRUE = 1
  4. FALSE = 0
  5.  
  6. CopyLock: 
  7.  
  8. parse arg SrcFile DestFile
  9.  
  10.  
  11. rc = Lock(SrcFile)
  12. if rc = FALSE then
  13.   return FALSE
  14.  
  15. rc = Lock(DestFile)
  16. if rc = FALSE then do
  17.   rc = UnLock(SrcFile)
  18.   return FALSE
  19.   end
  20.  
  21. copy SrcFile DestFile
  22.  
  23. rc = UnLock(SrcFile)
  24. rc = UnLock(DestFile)
  25.  
  26. return TRUE
  27.  
  28. /* ------------------------------------------------------------------ */
  29.