Format 1: WRITE statement for sequential files

1 WRITE record-name-1
2? FROM identifier-1 (1) 
3.0? 
3.0.0 BEFORE
3.0.0 AFTER
3.0.1? ADVANCING
3.0.2.0 identifier-2
3.0.2.0 integer-1
3.0.2.1? 
3.0.2.1 LINE
3.0.2.1 LINES
3.0.2 mnemonic-name-1
3.0.2 PAGE
3.1 %phrase 1
3 %invalid_key
3.1 %not_invalid_key
4? END-WRITE

phrase 1

1? AT
1.1 END-OF-PAGE
1.1 EOP
1.2 imperative-statement-3
2? NOT
2.1? AT
2.2 END-OF-PAGE
2.2 EOP
2.3 imperative-statement-4

invalid_key

1? INVALID
1.1? KEY
1.2 imperative-statement-1

not_invalid_key

1? NOT INVALID
1.1? KEY
1.2 imperative-statement-2