SERIAL

プログラムをシリアル プログラムとして指定します。

構文:

>>-.---.-.----.--SERIAL-----------------><
   +-/-+ +-NO-+

パラメーター:

なし

プロパティ:

デフォルト: NOSERIAL
段階: 構文チェック
$SET: 最初の行

説明:

この指令を指定すると、プログラムがスレッド内でアクティブであるかどうかをランタイム システムが確認し、他のスレッドがアクティブなプログラムに入らないように防ぎます。この指令は、指定したスレッド上で最初に実行する COBOL プログラムに使用する必要があります。

これを確認するコードには時間がかかり、すべてのプログラムのエントリで呼び出されることに注意してください。この指令を設定してプログラムをコンパイルするのは、マルチスレッド環境で実行する場合だけにしてください。