WRITE - Format 4 - TRANSACTION (Nonsubfile)

1 WRITE record-name-1
2? FROM identifier-1
3 FORMAT
4? IS
5 identifier-2
5 literal-1
6? TERMINAL
6.1? IS
6.2 identifier-3
6.2 literal-2
7? STARTING
7.1? AT
7.2? LINE
7.3 identifier-4
7.3 literal-3
8? %Rolling Phrase
9? 
9.0 INDICATOR
9.0 INDICATORS
9.0 INDIC
9.1? 
9.1 IS
9.1 ARE
9.2 identifier-8
10? END-WRITE

Rolling Phrase:

1 BEFORE
1 AFTER
2 ROLLING
3? 
3 LINES
3 LINE
4 identifier-5
4 literal-4
5? 
5 THROUGH
5 THRU
6 identifier-6
6 literal-5
7 UP
7 DOWN
8 identifier-7
8 literal-6
9? 
9 LINES
9 LINE