WRITE - Format 2 - Indexed and Relative Files

1 WRITE record-name-1
2? FROM identifier-1
3? FORMAT (1) 
3.1? IS
3.2 identifier-2
3.2 literal-1
4? NULL-KEY-MAP (1) 
4.1? IS
4.2 identifier-8
5? NULL-MAP (1) 
5.1? IS
5.2 identifier-9
6? INVALID
6.1? KEY
6.2 imperative-statement-1
7? NOT INVALID
7.1? KEY
7.2 imperative-statement-2
8? END-WRITE