COBOL Manual for TNS and TNS/R Programs

Procedure Division Verbs
HP COBOL Manual for TNS and TNS/R Programs—522555-006
9-294
WRITE for Sequential Files
PAGE
advances the printer to the top of the page before or after the write operation.
PAGE and end-of-page clause cannot appear in the same WRITE
statement.
end-of-page clause
executes imperative-statement when the write operation encounters the
end-of-page condition. The file description must include a LINAGE clause.
not-end-of-page clause
executes imperative-statement when the write operation does not encounter
the end-of-page condition. The file description must include a LINAGE clause.
imperative-statement
is to be executed when the end-of-page condition is satisfied when LINAGE-
COUNTER is either greater than the defined page length or is at a line in the
footing area. In both cases, the line is written before imperative-
statement is executed. If an attempt is made to write beyond the allowable
area on a page, whether at or after the end-of-page condition, the page is
automatically advanced (this is called the page overflow condition).
invalid-key-phrase
executes imperative-statement when the write operation encounters the
invalid-key condition. The file description cannot include a LINAGE clause.
AT
END-OF-PAGE
EOP
imperative-statement
VST238.vsd
AT
END-OF-PAGE
EOP
imperative-statement
VST238.vsd
KEY
imperative-statementINVALID
VST239.vsd