プロセス一覧をプログラムで取得する方法
これは InterSystems FAQ サイトの記事です。
%SYS.ProcessQuery クラスの AllFields クエリを使用すると取得できます。
詳細は、ドキュメント「プロセス(ジョブ)について【IRIS】 / プロセス(ジョブ)について」もご参照ください。
ターミナルでの実行例は以下の通りです。
USER>set stmt=##class(%SQL.Statement).%New()
USER>set st=stmt.%PrepareClassQuery("%SYS.ProcessQuery","AllFields")
USER>write st // 1が戻ったら%Execute()を実行できます
1
USER>set rset=stmt.%Execute()
// Job番号-PID-OSユーザ名-カレントデバイス-ルーチン-状態-ユーザ名 を表示しています。
USER>while rset.%Next() { write rset.%Get("JobNumber"),"-",rset.%Get("Pid"),"-",rset.%Get("OSUserName"),"-",rset.%Get("CurrentDevice"),"-",rset.%Get("Routine"),"-",rset.%Get("State"),"-",rset.%Get("UserName"),!}
メソッドで記述した場合は以下の通りです。
ClassMethod ShowJob()
{
set stmt=##class(%SQL.Statement).%New()
set st=stmt.%PrepareClassQuery("%SYS.ProcessQuery","AllFields")
set rset=stmt.%Execute()
// Job番号-PID-OSユーザ名-カレントデバイス-ルーチン-状態-ユーザ名 を表示します。
while rset.%Next() {
write rset.%Get("JobNumber"),$Char(9)
write rset.%Get("Pid"),$Char(9)
write rset.%Get("OSUserName"),$Char(9)
write rset.%Get("CurrentDevice"),$Char(9)
write rset.%Get("Routine"),$Char(9)
write rset.%Get("State"),$Char(9)
write rset.%Get("UserName"),!
}
}