InterSystems FAQ Database Seach Result Detail

以下の2つの手順で可能です。

(1) インポート対象のクラスを%XML.Adaptorからも継承するように設定

例えば

Class ISJ.Class1 Extends (%Persistent, %Populate)

↓

Class ISJ.Class1Extends (%Persistent, %Populate, %XML.Adaptor)

とします。

(2) プログラム中で%XML.Readerクラスを使用し、出力対象のインスタンスについてタグとクラスを関連付け、reader.Nextで取り込みます。

 set sc=reader.OpenFile(filename)
 do reader.Correlate(tag,class)
 while reader.Next(.x,.sc) { do x.%Save() }

詳細はサンプルをご覧ください。