home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Spezial
/
SPEZIAL2_97.zip
/
SPEZIAL2_97.iso
/
ANWEND
/
ONLINE
/
IMPRO
/
INETMAIL.ZIP
/
Bin
/
AppendLock.cmd
next >
Wrap
OS/2 REXX Batch file
|
1997-08-07
|
1KB
|
44 lines
/* ------------------------------------------------------------------ */
TRUE = 1
FALSE = 0
AppendLock:
parse arg SrcFile DestFile
rc = LockOpen(SrcFile 'READ')
if rc = FALSE then
return FALSE
rc = LockOpen(DestFile 'WRITE')
if rc = FALSE then do
rc = UnLock(SrcFile)
return FALSE
end
action = 'SEEK <0' /*wfs 7-Aug-1997*/
IF IsOREXX() THEN /*wfs 7-Aug-1997*/
action = action 'WRITE' /*wfs 7-Aug-1997*/
rc = stream(DestFile, 'C', action) /* go to end of file */
do while lines(SrcFile) <> 0 /* until end of file */
Line = linein(SRcFile) /* get a line of the file */
rc = lineout(DestFile, Line, )
end
rc = LockClose(SrcFile)
rc = LockClose(DestFile)
return TRUE
/* ------------------------------------------------------------------ */
IsOREXX: PROCEDURE /*wfs 7-Aug-1997*/
PARSE VERSION rx ver dt
RETURN rx = 'OBJREXX'
/* ------------------------------------------------------------------ */