RPG

342. RPGのレコード・ロックをかけないようにするには

RPG で更新ファイルを読取れば自動的に最後に読取った更新対象のレコードは
更新用としてシステム(OS)によってレコードがロックされてしまう。

しかし場合によっては本当に更新するときだけにロックしたい場合がある。
例えば 先の「341. RPGのレコード・ロック」で紹介したような
READ命令で SFL表示する場合である。
EOF になったときはレコード・ロックは自動的に外れるのだが
EOFにならない場合は最後に読み込んだレコードが自動的にロックされて
排他制御となる。

このことを避けるには ILE-RPG では命令コードの直後に (N)を付加すると
レコード・ロックを外すことができる。

[例]


  0209.00 C                   READ(N)   BUHINM                                 50

 0209.00 C        RRN        CHAIN(N)  BUHINM                                 50

  0209.00 C        KEY        READE(N)  BUHINM                                 50