IRISでシャドウイングの代わりにミラーリングを構成する方法－プログラム編

記事

Megumi Kakechi · 2024年7月10日 5m read

#Mirroring #システム管理 #ヒントとコツ #InterSystems IRIS #InterSystems IRIS for Health

こちらの記事では、「IRISでシャドウイングの代わりにミラーリングを構成する方法」を紹介しました。

今回は、「プログラムでシャドウイングの代わりにミラーリングを構成する方法（Windows版）」を紹介します。

【今回のサンプル・ミラー構成について】

	正サーバ（ミラー・プライマリ）	副サーバ（ミラー・非同期）
ミラー名	MIRRORSET	MIRRORSET
ミラーメンバ名	MACHINEA	MACHINEC
IPアドレス	35.77.84.159	54.248.39.237

では、ミラーの構成手順をご紹介します。手順は以下になります。

＜ミラーリングのプライマリ設定＞ // MACHINEA（正サーバ）

1. ISCAgentの自動起動設定および起動 ※Windowsコマンドプロンプトで実行

C:\Users\Administrator>sc config ISCAgent start=auto
C:\Users\Administrator>sc start ISCAgentShell Session
Shell Session

2. [システム管理] > [構成] > [ミラーサービスの有効化] ※IRISターミナルで実行

zn "%SYS"
set status=##class(Security.Services).Get("%Service_Mirror", .svcProps)
set svcProps("Enabled") = 1
set status=##class(Security.Services).Modify("%Service_Mirror", .svcProps)ObjectScript
ObjectScript

3. [システム管理] > [構成] > [ミラーの作成] ※IRISターミナルで実行

zn "%SYS"
set MirrorSetName="MIRRORSET"
set SystemName = "MIRRORA"     // 任意で設定。設定しない場合、既定で$sysytem 変数の内容を利用（例：<デバイス名>/IRIS）
set MirrorInfo("UseSSL") = 0
set MirrorInfo("ECPAddress") = "xxx.xxx.xxx.xxx"      // this is the SuperServer Address, default value is result of $System.INetInfo.LocalHostName().
set sc = ##class(SYS.Mirror).CreateNewMirrorSet(MirrorSetName, SystemName, .MirrorInfo)
write $system.Mirror.GetMemberType()
// (出力) Failover
write $system.Mirror.GetStatus()
// (出力) PRIMARY、TRANSITIONの場合は少し待って再度実行ObjectScript
ObjectScript

4. ローカルデータベースの作成（ミラー属性の追加） ※IRISターミナルで実行

zn "%SYS"
/// ローカルデータベースの作成
Set Directory="c:\intersystems\iris\mgr\mirrordb\"
Set x=$ZF(-100, "/shell", "mkdir", Directory)
Set db=##Class(SYS.Database).%New()
Set db.Directory=Directory
Set status=db.%Save()
Set DBName="MIRRORDB"
Set status=##class(Config.Configuration).AddDatabase(DBName,Directory)
Set NSName=DBName
Set status=##class(Config.Configuration).AddNamespace(NSName,DBName)

/// ミラー属性の追加（プライマリフェイルオーバーメンバのみ）
set status=##class(SYS.Mirror).AddDatabase(Directory)
set db=##Class(SYS.Database).%OpenId(Directory)
write db.Mirrored
// (出力) 1           ; Mirror DB の場合1
killObjectScript
ObjectScript

＜ミラーリングのDR非同期設定＞ // MACHINEC（副サーバ）

1. ISCAgentの自動起動設定および起動 ※Windowsコマンドプロンプトで実行

C:\Users\Administrator>sc config ISCAgent start=auto
C:\Users\Administrator>sc start ISCAgentShell Session
Shell Session

2. ミラーサービスの有効化
　＊[システム管理] > [構成] > [ミラーサービスの有効化] ※IRISターミナルで実行

zn "%SYS"
set status=##class(Security.Services).Get("%Service_Mirror", .svcProps)
set svcProps("Enabled") = 1
set status=##class(Security.Services).Modify("%Service_Mirror", .svcProps)ObjectScript
ObjectScript

3. 非同期としてミラーに参加
　＊[システム管理] > [構成] > [非同期として参加] ※IRISターミナルで実行

zn "%SYS"
set MirrorSetName="MIRRORSET"
set InstanceName="IRIS"            // primary instanace name
set AgentAddress="xxx.xxx.xxx.xxx" // primary member DNS name or IPaddress
set AsyncMemberType=0              // DR:0, Reporting R only:1, Reporting R/W:2
set SystemName = "MIRRORC"         // 任意で設定。設定しない場合、既定で$sysytem 変数の内容を利用
set LocalInfo("ECPAddress") = "yyy.yyy.yyy.yyy" // this is the SuperServer Address, default value is result of $System.INetInfo.LocalHostName().
set status=##class(SYS.Mirror).JoinMirrorAsAsyncMember(MirrorSetName,SystemName  ,InstanceName,AgentAddress,,AsyncMemberType,.LocalInfo)
write $system.Mirror.GetMemberType()
// (出力) Disaster Recovery
write $system.Mirror.GetStatus()
// (出力) CONNECTED、TRANSITIONの場合は少し待って再度実行ObjectScript
ObjectScript

4. ミラーデータベースの準備

非同期の副サーバ：MACHINEC に、正サーバ：MACHINEA のバックアップファイルをリストアします。

【補足】
データベースファイル（IRIS.DAT）のコピーによるバックアップの場合は（＝正サーバで Backup.Generalクラスの ExternalFreeze()/ExternalThaw() を利用してバックアップを取っている場合）、非同期データベースをディスマンとした状態でデータベースファイル（IRIS.DAT）を置換します。

※ローカルデータベースの作成手順は、正サーバ：MACHINEAと同じです。
（４の「ローカルデータベースの作成」、ミラー属性の追加以外を行います）

※外部／オンラインバックアップ・リストアについては、以下の記事で詳細手順を説明していますので、参考になさってください。
・外部バックアップについて
・オンラインバックアップについて

5. ミラーモニターでのジャーナルの有効化、キャッチアップ ※IRISターミナルで実行

zn "%SYS"
set Directory="c:\intersystems\iris\mgr\mirrordb\"
set status=##class(SYS.Mirror).ActivateMirroredDatabase(Directory)  // 有効化
set db=##class(SYS.Database).%OpenId(Directory)
set sfn= db.SFN  // sfn system file number データベーステーブル(内部情報)内の番号
kill db
set status=##class(SYS.Mirror).CatchupDB($lb(sfn))  // キャッチアップ
write status     // 1 でキャッチアップ成功。それ以外の場合は write $SYSTEM.Status.DisplayError(status) でエラーの内容を確認ObjectScript
ObjectScript

6. 管理ポータルで、キャッチアップしたことを確認（こちらで構成は終了です）
　＊[システムオペレーション] > [ミラーモニタ]

各種設定の詳細は以下のドキュメントをご覧ください。
Security.Services
SYS.Mirror
$SYSTEM.Mirror

【ご参考】
Cache Mirroring 101：簡単なガイドとよくある質問
 ミラーリングの機能について
 ミラージャーナルファイルの削除のタイミングと要件
 IRISでシャドウイングの代わりにミラーリングを構成する方法