メッセージ格納ファイルとしてデータベースを使用する場合、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.
|
