Portability Function: Sets the file access mode for a specified file.
result = SETFILEACCESSQQ (filename,access)
filename |
(Input) Character*(*). Name of a file to set access for.
|
access |
(Input) INTEGER(4). Constant that sets the access. Can be any combination of the following flags, combined by an inclusive OR (such asIOR or OR): FILE$ARCHIVE - Marked as having been copied to a backup device.
FILE$HIDDEN - Hidden. The file does not appear in the directory list that you can request from the command console.
FILE$NORMAL - No special attributes (default).
FILE$READONLY - Write-protected. You can read the file, but you cannot make changes to it.
FILE$SYSTEM - Used by the operating system.
The flags are defined in module IFPORT.F90.
|
Results
The result type is LOGICAL(4). The result is .TRUE. if successful; otherwise, .FALSE..
To set the access value for a file, add the constants representing the appropriate access.
例
USE IFPORT
INTEGER(4) permit
LOGICAL(4) result
permit = 0 ! clear permit
permit = IOR(FILE$READONLY, FILE$HIDDEN)
result = SETFILEACCESSQQ ('formula.f90', permit)
END