I-O-CONTROL 段落
入出力セクションの I-O-CONTROL 段落は、チェックポイントをいつ取るべきかを指定し、また、いろいろなファイルが共用するストレージ域を指定します。
この段落は、COBOL プログラムではオプショナルです。
キーワード I-O-CONTROL は、この段落の冒頭に一度だけ使用することができます。I-O-CONTROL というワードは、領域 A で開始し、分離文字ピリオドを後に付けなければなりません。
I-O-CONTROL 段落の中に文節を記述する場合、その順序は任意です。
I-O-CONTROL 段落は、分離文字ピリオドによって終わります。
| フォーマット: 順次 I-O-CONTROL 項目 |
 >>-+-RERUN--+----+--+-割り当て名-1-+--+-------+--| 句 1 |-------------------------------+-><
| '-ON-' '-ファイル名-1-' '-EVERY-' |
+-SAME--+--------+--+------+--+-----+--ファイル名-3--+------------------+------------+
| '-RECORD-' '-AREA-' '-FOR-' | .--------------. | |
| | V | | |
| '---ファイル名-4-+-' |
| .------------------------------------. |
| (1) V | |
+-MULTIPLE FILE-------+------+--+----------+----ファイル名-5--+------------------+-+-+
| '-TAPE-' '-CONTAINS-' '-POSITION--整数-2-' |
| .--------------. |
| (1) V | |
'-APPLY WRITE-ONLY-------+----+----ファイル名-2-+------------------------------------'
'-ON-'
句 1:
|--+-整数-1--RECORDS-------+--+----+--ファイル名-1--------------|
'-END--+----+--+-REEL-+-' '-OF-'
'-OF-' '-UNIT-'
|
注:
- MULTIPLE FILE 文節および APPLY WRITE-ONLY 文節は、構文チェックされますが、プログラムの実行には何も影響しません。
| フォーマット: 相対および索引付き I-O-CONTROL 項目 |
 >>-+-RERUN--+----+--+-割り当て名-1-+--+-------+--| 句 1 |--------------------+-><
| '-ON-' '-ファイル名-1-' '-EVERY-' |
'-SAME--+--------+--+------+--+-----+--ファイル名-3--+------------------+-'
'-RECORD-' '-AREA-' '-FOR-' | .--------------. |
| V | |
'---ファイル名-4-+-'
句 1:
|--整数-1--RECORDS--+----+--ファイル名-1------------------------|
'-OF-'
|
| フォーマット: 行順次 I-O-CONTROL 項目 |
 .--------------.
V |
>>---SAME--+--------+--+------+--+-----+--ファイル名-3----ファイル名-4-+---><
'-RECORD-' '-AREA-' '-FOR-'
|
| フォーマット: ソート・マージ I-O-CONTROL 項目 |
 >>-+-----------------------------+------------------------------>
'-RERUN--+----+--割り当て名-1-'
'-ON-'
.---------------------------------------------------.
V |
>----SAME--+-RECORD-----+--+------+--+-----+--| 句 1 |-+-------><
+-SORT-------+ '-AREA-' '-FOR-'
'-SORT-MERGE-'
句 1:
|--ファイル名-3--+----------------------+-----------------------|
| .------------------. |
| V | |
'---+--------------+-+-'
'-ファイル名-4-'
|
|