プログラム内でロック情報を取得する方法

これは、InterSystems FAQサイトの記事です。

プログラムでロック情報を取得するには以下2種類の方法があります。

1. %SYS.LockQuery クラス を使用する方法
2. SSVN（構造化システム変数）を使用する方法

1.  %SYS.LockQuery クラス を使用する方法

 #dim rset As %SQL.StatementResult
 set stmt=##class(%SQL.Statement).%New()
 set st=stmt.%PrepareClassQuery("%SYS.LockQuery","List")
 set rset=stmt.%Execute()
 while rset.%Next() {
   write !,rset.%Get("FullReference")
   write !,rset.%Get("Owner")
   write !,rset.%Get("DelKey"),!
 }

より詳細なロック情報を取得する場合には List クエリではなく Detail クエリを使用します。

set st=stmt.%PrepareClassQuery("%SYS.LockQuery","List")  を

set st=stmt.%PrepareClassQuery("%SYS.LockQuery","Detail") に変更します。
 

その他 条件を指定してロック情報を取得する事が出来ます。詳細についてはクラスリファレンス（%SYS.LockQuery）【IRIS】をご参照ください。
（クラスリファレンス（%SYS.LockQuery））

2. SSVN（構造化システム変数）を使用する方法

以下サンプルは、現在のネームスペースにあるロックを検索し表示します。またローカル変数 LOCKET の配列に検索で見つかったロック名を設定しています。

 SET lname=""
 FOR I=1:1 {
    SET lname=$ORDER(^$LOCK(lname))
    IF lname="" { QUIT }
    SET LOCKET(I)=lname
    WRITE !,"the lock name is: ",lname
 }
 WRITE !,"All lock names listed"
 QUIT

詳細は、^$LOCKについて【IRIS】のドキュメントをご参照ください。

（^$LOCKについて ）