home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Spezial
/
SPEZIAL2_97.zip
/
SPEZIAL2_97.iso
/
ANWEND
/
ONLINE
/
IMPRO
/
INETMAIL.ZIP
/
Bin
/
LockClose.cmd
< prev
next >
Wrap
OS/2 REXX Batch file
|
1996-04-03
|
470b
|
30 lines
/* ------------------------------------------------------------------ */
/*
* LockClose
*
* Close the locked file deleting the lock.
*
*/
TRUE = 1
FALSE = 0
LockClose:
parse arg FileName Mode
/* first close the lock file */
rc = UnLock(FileName)
if rc = FALSE then return FALSE
/* Now close the date file */
rc = stream(FileName, 'C', 'CLOSE')
parse var rc state ':' code
if state = 'NOTREADY' then
return FALSE
return TRUE