12 lines
561 B
Text
12 lines
561 B
Text
! The "scratch" option opens a file exclusively for the current process.
|
|
! A scratch file is automatically deleted upon process termination.
|
|
|
|
OPEN( FIle='TemporaryAndExclusive', SCRatch, IOStat=ErrNr)
|
|
WRITE(FIle='TemporaryAndExclusive') "something"
|
|
WRITE(FIle='TemporaryAndExclusive', CLoSe=1) ! explicit "close" deletes file
|
|
|
|
! Without "scratch" access can be controlled by "denyread", "denywrite", "denyreadwrite" options.
|
|
|
|
OPEN( FIle='DenyForOthers', DenyREAdWRIte, IOStat=ErrNr)
|
|
WRITE(FIle='DenyForOthers') "something"
|
|
WRITE(FIle='DenyForOthers', DELETE=1)
|