Open Watcom FORTRAN 77 Language Reference

Language Reference
2.30 ENDFILE Statement
ENDFILE u
ENDFILE (alist)
where:
u
alist
is an external unit identifier.
is a list of endfile specifiers separated by commas:
[UNIT =] u
IOSTAT = ios
ERR = s
Execution of an ENDFILE statement causes an endfile record to be written to the file connected to the
specified unit. The file is then positioned after the endfile record. If the file may be connected for direct
access, only those records before the endfile record are considered to have been written. Thus, only those
records before the endfile record may be read during subsequent direct access connections to the file.
Endfile Specifiers
[UNIT =] u
IOSTAT = ios
ERR = s
u is an external unit identifier. An external unit identifier is a non-negative integer
expression. If the optional UNIT= specifier is omitted then the specifier must be the first
item in the list of specifiers.
is an input/output status specifier. The integer variable or integer array element ios is
defined with zero if no error condition exists or a positive integer value if an error condition
exists.
is an error specifier and s is a statement label. When an error occurs, execution is
transferred to the statement labelled by s.
Example:
LOOP
READ( UNIT=7, END=100, FMT=200 )RECORD
WRITE( UNIT=8, FMT=200 )RECORD
ENDLOOP
100 ENDFILE( UNIT=8 )
In the previous example, we illustrate how one might read all the records from one file (unit 7), write them
to another file (unit 8) and then write an endfile record to the end of the file on unit 8.
60 ENDFILE Statement