critical impact:

FIND statement - unavailable (CrUn313)

Problem description

The FIND statement exists on Tru64 UNIX, but not on HP-UX.

The FIND statement positions a direct access file at a particular record and sets the associated variable of the file to that record number. It is comparable to a direct access READ statement with no I/O list, and it can open an existing file. No data transfer takes place.

The FIND statement takes one of the following forms:

FIND ([UNIT=]io-unit, REC=r [, ERR=label] [, IOSTAT=i-var]) 

FIND (io-unit'rec [, ERR=label] [, IOSTAT=i-var]) 

• io-unit - Is a logical unit number. It must refer to a relative organization file (see Section 10.2.1.1).

• r - Is the direct access record number. It cannot be less than one or greater than the number of records defined for the file (see Section 10.2.1.4).

• label - Is the label of the executable statement that receives control if an error occurs.

• i-var - Is a scalar integer variable that is defined as a positive integer if an error occurs, and as zero if no error occurs.

Identifiers

FIND

See also

• Background information on Fortran 90 compiler impacts
• FIND(3F)

Solution description

Support for the FIND statement is not currently planned for the next release of Fortran compiler for HP-UX.

Monitor the release notes for the Fortran compiler for information on the availability of this statement.

Problem summary