自動レコード ロックを使用する場合、READ 文はレコード ロックを自動的に取得します。レコードをロックしない場合は、READ 文で WITH NO LOCK 句を指定してください。
注:RM コンパイラ指令が設定されている場合、自動レコード ロックはデフォルトで有効になります。
自動ロックを指定するには、ファイルに対して SELECT 句で LOCK MODE IS AUTOMATIC 句を使用してください。
select fd-name
assign to "muser.dat"
lock mode is automatic
...
read fd-name