Syntax

── ? ── END ───────────────────────────────────────────────────────────%

Explanation

The ?END command signals end-of-file action to the program that has an input or I/O remote file open.

The ?END and ?DENY commands differ in that ?END causes end-of-file action only on the input or I/O file. ?DENY also acts on output files.

Example

GET DON1
#WORKFILE DON1: ALGOL,8 RECORDS,SAVED
#OBJECT FILE PRESENT,SAVED

LIST
100 $SET ERRLIST LINEINFO RESET LIST
200 BEGIN
300 FILE RMT(KNID=REMOTE,MYUSE=IO,MAXRECSIZE=1920,FRAMESIZE=8
400 BLOCKSTRUCTURE=EXTERNAL);
500 EBCDIC ARRAY RMTREC [0:1919];
600 WHILE NOT READ(RMT,1920,RMTREC) DO
700 WRITE (RMT,1920,RMTREC);
800 END
#

RUN
#RUNNING 7087
#?

?END
#
#ET=24.7 PT=0.1 IO=0.0