ＳＱＬ／ＸＭＬ

　東京は桜も３分咲き程で、いよいよ春到来という感じですね。
　「春眠暁を覚えず」と言われますが、まさにそのとおりで、朝起きるのが辛いこの頃です。

　さて、前回まではＸＭＬデータベースの作成手順まで説明してきました。いよいよ今回はＸＱｕｅｒｙを使った検索処理です。
　ＸＱｕｅｒｙとは、ＸＭＬデータベース用のクエリー言語のことを言います。ＳＱＬデータベース用のクエリー言語がＳＱＬであるのと同様に考えると分かり易いかもしれません。
　ＤＢ２　９は、ＸＱｕｅｒｙをＳＱＬ言語でＸＭＬを扱うための拡張仕様であるところの「ＳＱＬ／ＸＭＬ標準」もサポートしており、これによってＳＱＬからＸＱｕｅｒｙを実行することが可能です。
　つまり、同じ行（レコード）上のＸＭＬ型の列のデータに対しては、ＳＱＬ／ＸＭＬ関数を使うことができ、従来のＳＱＬデータについてはＳＱＬでクエリー処理を行うことができます。これが他のリレーショナルデータベースやＸＭＬ専用データベースと異なる大きな点です。
　当然ながら、通常のカラムとＸＭＬ型のカラムの両者を指定した複合的なクエリー処理を行うこともできるわけです。
　ＭＡＧＩＣ　Ｖ１０でＤＢ２　９を使用する場合は、このＳＱＬ／ＸＭＬを利用します。
　逆な言い方をすると、ＭＡＧＩＣのいわゆる「ＳＱＬタイプ」のタスクで定義できるＳＱＬ文は、「SELECT文」（＝ＳＱＬ／ＸＭＬ）のみなので、この方法しかありません。例えば「FLWOR」形式を使用したxquery文等の処理ができるのかどうか試みたのですが、私が試した限りではエラーが出て使えませんでした。このあたりは、ＤＢ２のゲートウェイのバージョンアップに期待したいところです。
　そう言えば、書き忘れていたのですが、データベース特性のオプションにある「開発モードでのテーブル変換」ですが、これはチェックを外しておいてください。ＸＭＬタイプのカラムがあると変換に失敗してしまうので、テーブルの定義を変更するときなどは、現状は別個に修正する必要があります。

SELECT文の実際・・・

　例えば、コメントに「プログラム」　と記述されたプログラムの一覧を取得することを考えて見ましょう。コメントはプログラムにも、タスクにも、項目やフォームにもつけることが可能ですが、リポジトリ上は、「Comment」というタグの「val」属性に付きます。

プログラムに付いたコメントの場合は、XPATHで記述すると「/Application/ProgramsRepository/Programs/Task/Header/Comment」となりますが、そのサブタスクに付く場合は、「/Application/ProgramsRepository/Programs/Task/Task/Header/Comment」となります。更にそのサブタスク（孫タスク）の場合は、「/Application/ProgramsRepository/Programs/Task/Task/Task/Header/Comment」となるでしょう。
　プログラムやタスクではなく、例えば、あるイベントに付加されたコメントの場合はどうなるでしょうか？　答えは、「/Application/ProgramsRepository/Programs/Task/.../TaskLogic/LogicUnit/Comment」となります。
　ＭＡＧＩＣ V10では、いろいろな場所にコメントを付けられますが、いずれの場合も「Comment」という名前のタグで検索することが可能です。
　どんな場所に付けられたコメントでも構わずに検索する場合は「/Application//Comment」と表すことが可能です。つまり「//」は間にどんなＰＡＴＨが入ってもいいよという意味です。
　
　SELECT文は次のようになります。

select c.DATAID from DB2ADMIN.XMLDBTEST c where 
 xmlexists('$i/Application[//Comment/@val[contains(.,"プログラム")]]'
 passing c.DATAXML as "i")

　ちょっと複雑に見えるかもしれませんが、構文はお馴染みのSELECT文「SELECT ... FROM ... WHERE ... ORDER BY ... 」です。
　XMLEXISTS関数は、存在すればTrueを返すもので、WHERE句に使用することが可能です。
　「//Comment」で階層下の任意のコメントを表すことはすでに書いたとおりですが、プログラムのコメントのみを対象とするなら「/ProgramsRepository/Programs/Task/Header/Comment」とします。
　「[contains(.,"文字列")] 」は、「文字列」を含むという条件を意味します。
　もし、上記の検索に「かつ、ルートタスクがバッチタスクのプログラム」という条件を加えるなら次のようになります。（"[" と "]" の中でAND条件を加えます。）

select c.DATAID from DB2ADMIN.XMLDBTEST c where 
 xmlexists('$i/Application[//Comment/@val[contains(.,"プログラム")] 
 and /ProgramsRepository/Programs/Task/Header/TaskType/@val="B"]'
 passing c.DATAXML as "i")

　さて、今度は返るデータについてみてみましょう。
　上の例では、該当レコードの「DATAID」カラムの一覧が返ります。
　例えば、ここに「xmlquery」関数を使用することにより、該当するＸＭＬノードの結果をＸＭＬで返すことも可能です。例えば、次のような例です。

select c.DATAID, xmlquery('$i/Application/ProgramsRepository
/Programs/Task/Header' passing c.DATAXML as "i")
 from DB2ADMIN.XMLDBTEST c where 
 xmlexists('$i/Application[//Comment/@val[contains(.,"プログラム")]]'
 passing c.DATAXML as "i")

　DATAIDに続いてカンマとxmlquery関数を使った項目が指定されています。

MAGIC V10でのコーディング

　実際にＶ１０でコーディングしてみます。
　プログラムは２種類作ってみます。最初は、テスト用のプログラムです。

1. プログラムの定義
   「SQL/XMLサンプル１」というプログラムを追加します。（タスクタイプはオンライン）
   
2. データビューの定義
   メインソースなしで、変数を３つ定義します。
   
   1. 「SQL文」
      文字タイプ、書式512、代入で式「'select c.DATAID, xmlquery(''$i/Application/ProgramsRepository/Programs/Task/Header'' passing c.DATAXML as "i") from DB2ADMIN.XMLDBTEST c where xmlexists(''$i/Application[//Comment/@val[contains(.,"プログラム")]]'' passing c.DATAXML as "i")'」を定義します。
   2. 「出力ＸＭＬﾌｧｲﾙ」
      文字タイプ、書式256、代入で式「'C:\V10HACKS.XML'」を定義します。
   3. 「データ有り」
      論理タイプ、書式5
3. ロジックの定義
   イベントテーブルに「処理実行」というユーザイベントを追加しておきます。
   イベントハンドラを定義し、コールサブタスク
   エラーで、'データが見つかりませんでした.'、条件は「NOT(データ有り)」
   
4. フォームの定義
   ＳＱＬ文を編集できるように「複数行編集」可能なエディットコントロールを配置します。
   ユーザイベント「処理実行」を実行するためのプッシュボタンを配置します。
5. 子タスクの定義
   ロジックでコールした子タスクを作成します。（タスクタイプは同じくオンライン）
6. データビューの定義（子タスク）
   変数を３つ追加します。
   
   1. DATAID
      文字タイプ、書式20、
   2. HEADER
      ＢＬＯＢタイプ
   3. プログラムＩＤ
      数値タイプ、書式5、代入に式「Val(Del(DATAID,1,3),'5')」
   「Ｍ＝メインソース」と表示されたコンボボックスを「Ｑ＝ＳＱＬコマンド」に変更します。
   
   
   
   ＴＡＢキーを押して表示されるダイアログに下記のものをセットします。
   
   1. データベースは「DB2XML」を選択します。
   2. 結果データベースは「Memory」を選択します。
   3. ＳＱＬコマンドには、「:1」を入力します。
   4. 入力パラメータには、親タスクの「SQL文」項目を指定します。
   5. 出力パラメータは、追加した変数のDATAIDとHEADERを定義します。
   照会リンクを追加します。（データソース：XMLDBTEST）
   
   1. DATAID
      位置付けに変数「DATAID」を指定します。
   2. DATAXML
      XMLデータの格納されたカラムをリンクしておきます。
7. ロジックの定義（子タスク）
   ユーザイベントを４つ（「ブラウザ(QUERY)」、「ブラウザ(DATAXML)」、「ＸＭＬ解読」、「タスク一覧」）追加しておきます。
   タスク前処理に親タスクの変数「データ有り」を'FALSE'LOGで更新を定義します。
   レコード前処理に親タスクの変数「データ有り」を'TRUE'LOGで更新を定義します。
   イベント「ブラウザ(QUERY)」にアクション「Blb2File (HEADER,出力ＸＭＬﾌｧｲﾙ)」と、ＯＳコマンド「出力ＸＭＬﾌｧｲﾙ)」を定義します。
   イベント「ブラウザ(DATAXML)」にアクション「Blb2File (DATAXML,出力ＸＭＬﾌｧｲﾙ)」と、ＯＳコマンド「出力ＸＭＬﾌｧｲﾙ)」を定義します。
   イベント「ＸＭＬ解読」に、コールサブタスクを定義します。
   イベント「タスク一覧」に、コールプログラム「タスク構造取得」を定義し、パラメータに「プログラムＩＤ」を指定します。更に、条件式「DbRecs ('5'DSOURCE,'')>0」なら、コールプログラム「タスク一覧表示」を定義します。
8. フォームの定義（子タスク）
   テーブルコントロールに、変数「DATAID」、「プログラムＩＤ」、「HEADER」、リンク項目「DATAXML」を配置します。更に定義したイベントを起動するためのプッシュボタンを配置します。
   
9. 孫タスクの定義
   取得したＸＭＬ（HEADER）を解析する子タスクを追加します。
   詳細な説明は省略しますが、データビューに定義した変数に、XMLGET関数を使用して、親タスクの変数「HEADER」に格納された情報から、プログラム名、タスクタイプ、更新日付、更新時刻などの値をそれぞれ取得し画面に表示します。
   このとき、XPATHが、「/Header」で始まることに注目して下さい。
   
   

   変数名	値の取得方法（代入する式の値）
   プログラム名	XMLGet (0,1,'/Header','Description')
   タスクタイプ	XMLGet (0,1,'/Header/TaskType','val')
   更新日付	Val(XMLGet (0,1,'/Header/LastModified','_date'),'10')
   更新時刻	Val(XMLGet (0,1,'/Header/LastModified','_time'),'10')

   
   
   

プログラムの実行

　作成したプログラムを実行してみましょう。
　

1. プログラムの起動
   起動すると、ダイアログにＳＱＬ／ＸＭＬのSELECT文が表示されます（編集も可能です）。
   
   
   
   「ＳＱＬの実行」ボタンを押すと、ＤＢ２によるデータの検索が行われます。
   
2. SQL/XML検索結果
   画面の例では、2件のプログラムが検索されました。
   
   
   
   ＤＢ２から返る値は、出力パラメータに指定した「DATAID」と「HEADER」ですが、プログラムのＩＤを判別し前回作成したタスク一覧プログラムを呼び出すことが可能です。また、BLOBに格納されたXMLデータは、いずれも「Blb2File」関数でＸＭＬに出力することが可能です。（残念ながら、「File2Blb」関数を使って、ＸＭＬをXMLタイプのカラムに挿入することはできません。）
3. xmlquery関数で取得したXMLデータ
   ブラウザにxmlquery関数で取得したXMLデータを表示させてみます。
   
   
   
   指定したパス以下の部分的なＸＭＬデータが出力されることが分かります。
   
4. ＭＡＧＩＣでの解析
   ＤＢ２に格納されたＸＭＬデータや、検索で取得したＸＭＬデータは、ＭＡＧＩＣのXML関連の関数によって任意のノードの値を取得することが可能です。BLOB項目を直接指定してＸＭＬの値の取得が可能なので、不要なＩＯも発生しません。
   
   
   

ソース公開

　例によって、今回も作成したプログラムのソースを公開しておきます。