REWRITE ステートメント - 形式 2 - トランザクション (サブファイル)

1 REWRITE SUBFILE レコード名-1
2? FROM ID-1
3? FORMAT
3.1? IS
3.2 ID-2
3.2 リテラル-1
4? TERMINAL
4.1? IS
4.2 ID-3
4.2 リテラル-2
5? 
5.0 INDICATOR
5.0 INDICATORS
5.0 INDIC
5.1? 
5.1 IS
5.1 ARE
5.2 ID-4
6? INVALID
6.1? KEY
6.2 命令ステートメント-1
7? NOT INVALID
7.1? KEY
7.2 命令ステートメント-2
8? END-REWRITE