RPGの中でレコード・ロックを検査する方法は良く知られている。

1つめの結果の標識標識は Not-Chain標識であるが、2つめの結果の標識が

レコード・ロック検査である。

しかし、ここではもう一歩進んで 誰がレコードをロックしているのかを知りたいものである。

コマンド操作では、WRKOBJLCK によって調べることができるがRPG内部では、

プログラム情報データ構造で知ることができる。

0001.00      I           SDS
0002.00      I                                       91 170 MSGTXT
0003.00      C                     SETOF                     99
0004.00      C           KEY       CHAINFILE                 9990
0005.00      C           *IN90     IFEQ *ON
0006.00      C                     MOVELMSGTXT    ERRMSG
0007.00      C                     END