単一レコード ロックの例

次は、手動レコード ロックを使用して、単一レコードをロックする例です。

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

次は、自動レコード ロックを使用して、単一レコードをロックする例です。

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