トランザクション中に任意のテーブル更新だけ先にCommitを確定させたい。

Ohataさん
こんにちは。
残念ながら、ミラーリングですと、%NOJOURNキーワードは無視されるようです。

その他の方法を探してみたところ、ObjectScriptから実行することになりますが、
$SYSTEM.Process.TransactionsSuspended()でトランザクションを一時停止すると、その間の更新はバックアップサーバに値は転送されますし、ロールバックしても戻らなくなりました。

例

まず、JRNTEST.Testテーブルに２行追加します。
USER>s r=##class(%SQL.Statement).%ExecDirect(,"insert jrntest.test set p1=1")
USER>s r=##class(%SQL.Statement).%ExecDirect(,"insert jrntest.test set p1=1")
トランザクションを開始します
USER>s r=##class(%SQL.Statement).%ExecDirect(,"start transaction")
トランザクションを一時停止します。
TL1:USER>d $SYSTEM.Process.TransactionSuspended(1)
ID=1のレコードのカラムP1の値をインクリメントします。
TL1:USER>s r=##class(%SQL.Statement).%ExecDirect(,"update jrntest.test set p1=p1+1 where id=1")
トランザクションを再開します
TL1:USER>d $SYSTEM.Process.TransactionSuspended(0)
ID=2のレコードのカラムP1の値をインクリメントします。
TL1:USER>s r=##class(%SQL.Statement).%ExecDirect(,"update jrntest.test set p1=p1+1 where id=2")
現在値を確認します。
TL1:USER>do ##class(%SQL.Statement).%ExecDirect(,"select * from jrntest.test").%Display()
ID      p1
1       2
2       2

2 Row(2) Affected
ロールバックします
TL1:USER>s r=##class(%SQL.Statement).%ExecDirect(,"rollback")
現在値を確認します。
USER>do ##class(%SQL.Statement).%ExecDirect(,"select * from jrntest.test").%Display()
ID p1
1 2
2 1

2 Row(s) Affected

よろしくお願いします。