これは、InterSystems FAQ サイトの記事です。
管理ポータルの [システムオペレーション] > [ジャーナル]のページで実行できる、 整合性チェックの実行や、サマリーの表示は、%SYS.Journal.File クラスのメソッドやクエリでも実行することができます。
以下、実行例です。
※全て、％SYSネームスペースで実行します。
(1) 整合性チェック
set status = ##class(%SYS.Journal.File).CheckIntegrity(<ジャーナルファイルパス>,1)
// 整合性チェックで問題なければ status=1
// 整合性チェックで問題なければ status=1
(2）サマリー
set status = ##class(%SYS.Journal.File).Summary(<ジャーナルファイルパス>,.info) (実行結果の表示)
zwrite info
---------------------------------------------------
info("CreationTime")="2023-01-25 08:02:29"
info("FileCount")=49
info("FileGUID")="AFA2FDD7-63C4-4F28-BFB7-183F4B219ED8"
info("MaxSize")=1073741824
info("MinTransFileCount")=47
info("MinTransFileIndex")=337795332
info("PrevFile")="c:\intersystems\irishealth202211\mgr\journal\20230125.001"
info("PrevFileEnd")=263504
info("PrevFileGUID")="AFF93919-F5EA-4F9A-B5E7-C6E86834E619"
zwrite info
---------------------------------------------------
info("CreationTime")="2023-01-25 08:02:29"
info("FileCount")=49
info("FileGUID")="AFA2FDD7-63C4-4F28-BFB7-183F4B219ED8"
info("MaxSize")=1073741824
info("MinTransFileCount")=47
info("MinTransFileIndex")=337795332
info("PrevFile")="c:\intersystems\irishealth202211\mgr\journal\20230125.001"
info("PrevFileEnd")=263504
info("PrevFileGUID")="AFF93919-F5EA-4F9A-B5E7-C6E86834E619"
(3) ジャーナルファイルに含まれるデータベースのリストの取得
set rset = ##class(%ResultSet).%New("%SYS.Journal.File:DatabaseList")
set sc = rset.Execute(ジャーナルファイルパス)
while (rset.Next()) { write rset.%GetData(1),"-", rset.%GetData(2),! } do rset.Close()
set sc = rset.Execute(ジャーナルファイルパス)
while (rset.Next()) { write rset.%GetData(1),"-", rset.%GetData(2),! } do rset.Close()
