RIO_ASSOC - Create/open a direct access file associated with a parameter

Description:

Open the direct access file specified by parameter PNAME and return a file descriptor for it.

Invocation:

CALL RIO_ASSOC( PNAME, ACMODE, FORM, RECSZ, FD, STATUS )

Arguments:

PNAME = CHARACTER $*$ ( $*$ ) (Given)

Expression giving the name of a file parameter.

ACMODE = CHARACTER $*$ ( $*$ ) (Given)

Expression giving the required access mode. Valid modes are:
'READ' - Open the file READONLY. The file must exist.
'WRITE' - Create a new file and open it to write/read.
'UPDATE' - Open a file to read/write. The file must exist.
'APPEND' - Open a file to write/read. If the file does not already exist, create it. (APPEND has no other effect for direct access)

FORM = CHARACTER $*$ ( $*$ ) (Given)

Expression giving the required record formatting. Valid options are 'FORMATTED' or 'UNFORMATTED'

RECSZ = INTEGER (Given)

Expression giving the record size in bytes. RECSZ is only used if ACMODE is 'WRITE' or 'APPEND'. If ACMODE is 'APPEND' and the file already exists, RECSZ must agree with the existing record size.

FD = INTEGER (Returned)

Variable to contain the file descriptor.

STATUS = INTEGER (Given and returned)

Global status

External Routines Used

CHR: CHR_SIMLR