1 WRITE record-name-1
2? FROM identifier-1
3.0? 
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 PAGE
4? END-WRITE