SERIAL

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

構文:

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

パラメータ:

なし

属性:

省略値:	NOSERIAL
段階:	構文チェック
$SET:	初期

説明:

この指令を指定すると、ランタイムシステムが、スレッドでプログラムがアクティブかどうかを確認し、他のスレッドがアクティブなプログラムに入らないようにする。本指令は、任意のスレッド上で最初に実行されるCOBOLプログラムに対し使用する。

スレッドをチェックするコードは時間がかかり、プログラムがエントリされるたびに呼び出される。プログラムがマルチスレッド環境で実行される場合に限り、この指令を用いてコンパイルすること。

他参照: