SYNC 文

SYNC 文は、所定のオブジェクトの相互排除ロックを取得し、文のブロックを実行してロックを解除することで、文のブロックを重要な節として指定する。

一般形式

構文規則

identifier-1 は参照型とする。

一般規則

identifier-1 は、ロック対象のオブジェクトを指定する。通常 identifier-1 は、インスタンス変数を保護する場合は SELF キーワードであり、静的変数を保護する場合は (または所定のクラスの静的メソッドに重要な節が含まれる場合は) 型となる。
statement- block-1 は、重要な節の文を表す。
オブジェクトをロックすると、同じ実行スレッド内で実行中のコードもそのロックを取得して解放できる。ただし、他のスレッドで実行中のコードは、ロックを取得および解放できない。そのロックは、解除されるまでブロックされる。

例

次の例では、SYNC 文が重要な文のセットをロックする。

method-id Withdraw. procedure division using by value amount as binary-long returning ret as binary-long. sync on self if balance >= amount display "In critical section" compute balance = balance - amount set ret to amount else display "In critical section" set ret to 0 end-if end-sync end method.