DCL F FILE
RECORD OUTPUT UNBUFFERED
ENV(BLKSIZE(80) RECSIZE(80) F);
ON RECORD(F) BEGIN;
WAIT(E);
END;
WRITE FILE(F) FROM (X) EVENT(E);
WAIT(E); (this statement raises the
record condition)
The ONCODE associated with this message is 3911.
The ERROR condition is raised.
Remove the WAIT statement from the ON-unit for the input/output condition.
IBM0HN