READ - Format 5b - Transaction (Subfile Random)

1 READ SUBFILE file-name
2? RECORD
3? INTO identifier-1
4? FORMAT
4.1? IS
4.2 identifier-2
4.2 literal-1
5? TERMINAL
5.1? IS
5.2 identifier-3
5.2 literal-2
6? 
6.0 INDICATOR
6.0 INDICATORS
6.0 INDIC
6.1? 
6.1 IS
6.1 ARE
6.2 identifier-4
7? INVALID
7.1? KEY
7.2 imperative-statement-1
8? NOT INVALID
8.1? KEY
8.2 imperative-statement-2
9? END-READ