MessageQueueDirector説明書

6.6.2 業務用データベースのコネクション切替え

　メッセージ格納ファイルとしてデータベースを使用する場合、MQDではデータベースに対して各種SQL文を発行します。したがって、一つのアプリケーションで業務用データベースとMQDを使用する場合には、業務用データベースに対するデータ操作を行う前に、必ず、SQLのSET CONNECTION文で業務用データベースのコネクションに切り替える必要があります。

　以下に、コネクション切替えのCOBOLコーディング例を示します。

  
  EXEC SQL CONNECT  TO 'DB01' AS 'C1' END-EXEC.
  MOVE "MQD001"      TO    MQD-SYSNAME.
  CALL "MQDCONNECT"  USING MQD-SYSNAME MQD-ENVIRONMENT MQD-RESULT.
  MOVE "QUE001"      TO    MQD-QUENAME.
  CALL "MQDCONNECTQ" USING MQD-SYSADDR MQD-QUENAME MQD-ENVIRONMENT MQD-RESULT.
      ・
      ・
  EXEC SQL SET CONNECTION 'C1' END-EXEC.
  EXEC SQL SELECT 在庫数量 ・・ END-EXEC.
  EXEC SQL COMMIT END-EXEC.
      ・
      ・
  CALL "MQDPUTMSG"  USING MQD-QUEADDR MQD-UNITFLG MQD-MESSAGEHEADER
                          MQD-MSGBODY MQD-ENVIRONMENT MQD-RESULT.
      ・
      ・
  EXEC SQL SET CONNECTION 'C1' END-EXEC.
  EXEC SQL SELECT 在庫数量 ・・ END-EXEC.
  EXEC SQL COMMIT END-EXEC.