COBOL Manual for TNS and TNS/R Programs

Procedure Division
HP COBOL Manual for TNS and TNS/R Programs—522555-006
43-57
USE AFTER EXCEPTION
USE AFTER EXCEPTION
WRITE for Sequential Files
Note. If you are using the NMCOBOL compiler, do not use GLOBAL in a USE AFTER
EXCEPTION statement in the declaratives-portion
.
GLOBAL
USE
ON
file-name
EXTEND
I-O
PROCEDURE
INPUT
.
AFTER
STANDARD
EXCEPTION
ERROR
OUTPUT
VST235.vsd
WRITE record-name
FROM from-name
ADVANCING clause
END-WRITE
end-of-page clause
invalid-key-phrase
not-end-of-page clause
not-invalid-key-phrase
NOT
NOT
VST236.vsd