The WRITE statement releases a logical record for an output or
input-output file. It also is used for vertical positioning of lines within
a logical page.
WRITE { record-name-1 } [ RECORD ] [ FROM { identifier-1 } ]
{ FILE file-name-1 } { literal-1 }
{ { identifier-2 } [ LINES ] }
{ { literal-2 } [ LINE ] }
[ { BEFORE } [ ADVANCING { }
{ AFTER } { { mnemonic-name-1 } }
{ { PAGE } }
[ [ AT ] { END-OF-PAGE } imperative-statement-1 ]
{ EOP }
[ NOT [ AT ] { END-OF-PAGE } imperative-statement-2 ]
{ EOP }
WRITE { record-name-1 } [ RECORD ] [ FROM { identifier-1 } ]
{ FILE file-name-1 } { literal-1 }
[ INVALID KEY imperative-statement-1 ]
[ NOT INVALID KEY imperative-statement-2 ]
[ END-WRITE ]