RPG1218はレコードを割り振ることができないというエラーのようです。
これは更新用としてレコードを(恐らくは)CHAINしにいったところ
他のユーザーも更新用として同じレコードを開いていたため
90秒待った結果解放されなかったということてエラーとなっています。
RPG　では

　　　KEY　　　　CHAIN　FILE　　　　　　　　　　　　　　9099

　　のように記述すると標識90=NOT　CHAINのときにオンになり
　　99=今回のエラーとして割り振ることができなかったときにオンになる。

　のように標識99を割り振ることによってRPG1218の発生を防ぐことができます。
　　なお今回のCHAINが必ずしも更新用としてのCHAINでないのであれば

　　KEY　　　CHAIN(N)　FILE

　　のようにするとCHAIN(N)はCHAINが成功しても直ちにレコードを解放することが
　　できます。
　　RPG1218が出てしまうとプログラムは異常終了しますので
　エンド・ユーザーに異常終了を見せてしまうのはよくありません。
　　ご参考までに。