プログラムでロック情報を取得するには2つの方法があります。
%SYS.LockQuery クラスの使用 と SSVN 構造化システム変数の使用です。
1. %SYS.LockQuery クラスの使用。
より詳細なロック情報を取得する場合には List クエリではなく Detail クエリを使用します。
set st=stmt.%PrepareClassQuery("%SYS.LockQuery","List") を set st=stmt.%PrepareClassQuery("%SYS.LockQuery","Detail") に変更します。
その他 条件を指定してロック情報を取得する事が出来ます。
詳細については以下クラスリファレンスをご参照ください。
クラスリファレンス(%SYS.LockQuery)【IRIS】
クラスリファレンス(%SYS.LockQuery)
2. SSVN 構造化システム変数の使用
以下のサンプルは現在のネームスペースにあるロックを検索し、表示します、またLOCKET というローカル配列にあるロック名を格納します。
^$LOCKについては、以下ドキュメントをご参照ください。