【IRIS/Cache】ジャーナル(上級編)

ClassMethod jorStop(mode As %Boolean = 0)
{
	// 出力を停止する
	d:mode DISABLE^%SYS.NOJRN
	
	k ^test
	s ^test = "テスト"_$zdt($now(),3,1,6)
	
	s obj = ##class(developer.data.Patient2).%OpenId(1)
	w obj.漢字氏名
	s obj.漢字氏名 = "埼玉　タケ"_$now()
	d obj.%Save()
	
	// 出力を再開する
	d:mode ENABLE^%SYS.NOJRN
		
	
	k ^sample
	s ^sample=$zdt($now(),3,1,6)
	
	s obj = ##class(developer.data.Patient2).%OpenId(3)
	w obj.漢字氏名
	s obj.漢字氏名 = "栃木　ウメ"_$now()
	d obj.%Save()
}

d STOP^%SYS.NOJRN
w $$STOP^%SYS.NOJRN // 1:ジャーナル停止

d DisableJournal^%SYS.NOJRN
w $$DisableJournal^%SYS.NOJRN

d EnableJournal^%SYS.NOJRN

w $$CURRENT^%SYS.NOJRN // 1:ジャーナル開始, 0:ジャーナル停止

// ジャーナル停止
w $$SetJournal^%SYS.NOJRN(0)

// ジャーナル開始
w $$SetJournal^%SYS.NOJRN(1)

s sts = ##class(%SYS.Journal.File).Purge([NDaysOld],[NBackupsOld])

s sts = ##class(%SYS.Journal.File).PurgeAll()

ClassMethod Progress()
{
	s rs=##class(%ResultSet).%New("%SYS.Journal.System:Progress")
	d rs.Execute()
	while rs.Next() {
		w "Name:",rs.Data("File Name"),!
		w "Count:",rs.Data("File Count"),!
		w "Offset:",rs.Data("Offset"),!
		w "Offset Committed:",rs.Data("Offset Committed"),!
		w "TimeStamp:",$zdt($SYSTEM.Util.UTCtoLocalWithZTIMEZONE(rs.Data("TimeStamp")),3,1,6),!!
		
		h 60
	}
}

ClassMethod Status()
{
	s rs=##class(%ResultSet).%New("%SYS.Journal.System:Status")
	d rs.Execute()
	while rs.Next() {
		w "Main Status:", rs.Data("Main Status"),!
		w "Cause:", rs.Data("Cause"),!
		w "Full Status:", rs.Data("Full Status"),!!
		
		h 60
	}
}

ClassMethod Summary()
{
	new $namespace
	s $namespace = "%SYS"
	
	s rs=##class(%ResultSet).%New("%SYS.Journal.System:Summary")
	d rs.Execute()
	w !,rs.GetColumnHeader(1),?40," ",rs.GetColumnHeader(2),!
	while rs.Next() { w !,rs.Data("Parameter"),?40," ",rs.Data("Value") }
}

w ##class(%SYS.Journal.System).Start()
w ##class(%SYS.Journal.System).Start(curdir, altdir, maxsiz, expsiz, prefix, okshdw)

w ##class(%SYS.Journal.System).Stop()

w ##class(%SYS.Journal.System).SwitchFile()
w ##class(%SYS.Journal.System).SwitchFile(curdir, altdir, maxsiz, expsiz, okshdw, reason)

w ##class(%SYS.Journal.System).RollToNextFile(reason, .newFile),!
w newFile,!

w ##class(%SYS.Journal.System).SwitchDirectory(.newFile),!
w newFile

w ##class(%SYS.Journal.System).GetImageJournalInfo(.JournalFileName, .JournalFileOffset, .JournalFileCount, .OpenTransFileOffset, .OpenTransFileCount)
w JournalFileName,!
w JournalFileOffset,!
w JournalFileCount,!
w OpenTransFileOffset,!
w OpenTransFileCount,!

w ##class(%SYS.Journal.System).GetPrimaryDirectory(.sts),!
w sts

w ##class(%SYS.Journal.System).GetAlternateDirectory(.sts),!
w sts

w ##class(%SYS.Journal.System).GetClusterJournalLog()

s obj = ##class(%SYS.Journal.System).GetCurrentFile()
w obj.Name

w ##class(%SYS.Journal.System).GetCurrentFileCount()

w ##class(%SYS.Journal.System).GetCurrentFileName()

w ##class(%SYS.Journal.System).GetCurrentFileOffset()

w ##class(%SYS.Journal.System).GetFreeSpace()

w ##class(%SYS.Journal.System).GetJournalFilePrefix()

w ##class(%SYS.Journal.System).GetLastFileName()

w ##class(%SYS.Journal.System).Status()

w ##class(%SYS.Journal.System).GetStateString()

w ##class(%SYS.Journal.System).GetTheOtherDirectory(.Directory, .Type)
w Directory,!
w Type,!

w ##class(%SYS.Journal.System).IsDisabled()

w ##class(%SYS.Journal.System).IsFrozen()

w ##class(%SYS.Journal.System).IsGettingIOError()

w ##class(%SYS.Journal.System).IsPaused()

w ##class(%SYS.Journal.System).SetPrimaryDirectory(dir, create)

w ##class(%SYS.Journal.System).SetAlternateDirectory(dir, create)

zn "%SYS"
w $$ADD^JRNMARK([id], [テキスト])

// 例
w $$ADD^JRNMARK(4649, "よろしく！")