自動レコード ロック

自動レコード ロックを使用している場合、READ 文はレコード ロックを自動的に取得します。レコード ロックを回避するには、READ 文で WITH NO LOCK 句を指定します。

自動ロックを指定するには、次のようにファイルに対して SELECT 句で LOCK MODE IS AUTOMATIC 句を使用します。

 select fd-name
     assign to "muser.dat"
     lock mode is automatic
   ...
     read fd-name