COBOL Manual for TNS/E Programs (H06.03+)

Procedure Division Verbs
HP COBOL Manual for TNS/E Programs—520347-003
9-277
WRITE for Sequential Files
imperative-statement
is an imperative statement to be executed when an invalid-key condition arises
because alternate keys are defined for the sequential file, and the write
operation would create a duplicate key when the file definition did not specify
that duplicates are allowed. If no INVALID KEY phrase is present, a USE
procedure must be present for the file or files to be opened in OUTPUT mode.
not-invalid-key-phrase
executes imperative-statement when the write operation does not encounter
the invalid-key condition. The file description cannot include a LINAGE clause.
imperative-statement
is an imperative statement to be executed when an invalid-key condition does
not arise.
END-WRITE
ends the scope of the WRITE statement, causing the WRITE to be a delimited-
scope statement. If the WRITE statement does not end with an END-WRITE
phrase, the presence of the AT END-OF-PAGE, the NOT AT END-OF-PAGE, the
INVALID KEY, or the NOT INVALID KEY phrase causes the WRITE statement to
be a conditional statement, which ends at the next period separator.
Usage Considerations:
•
Action of the WRITE Statement
The write operation releases a logical record to the run-time routines for inclusion
in the file. For a file of sequential organization, the order of the records in the file
therefore corresponds to the order in which they are released.
In general, the logical record consists of the value of the data item specified by
record-name ; however, when the file has fixed-length records, and the record-
name item contains fewer than the defined number of character positions, the
logical record is extended with arbitrary character values.
•
Printer or Spooler Files
Release of a logical record does not necessarily imply immediate transmission to
the file. The record can be held in an internal buffer.The logical record is always
transmitted to the file or spooler buffer immediately.
KEY
imperative-statementINVALID
VST239.vsd