home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Spezial
/
SPEZIAL2_97.zip
/
SPEZIAL2_97.iso
/
ANWEND
/
ONLINE
/
IMPRO
/
INETMAIL.ZIP
/
Bin
/
CopyLock.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-04-13
|
457b
|
29 lines
/* ------------------------------------------------------------------ */
TRUE = 1
FALSE = 0
CopyLock:
parse arg SrcFile DestFile
rc = Lock(SrcFile)
if rc = FALSE then
return FALSE
rc = Lock(DestFile)
if rc = FALSE then do
rc = UnLock(SrcFile)
return FALSE
end
copy SrcFile DestFile
rc = UnLock(SrcFile)
rc = UnLock(DestFile)
return TRUE
/* ------------------------------------------------------------------ */