ＭＱ定義サンプル


　


AS400側定義

@ ADDLIBLE QMQM
CHGJOB CCSID(5035)
A サブシステム開始
　STRSBS SBSD(QMQM/QMQM)
B キューマネージャー作成
　CRTMQM MQMNAME(A_MQMG)
C キューマネージャー開始
　STRMQM MQMNAME(A_MQMG)
D 伝送キュー（トランスミッションキュー）作成
　CRTMQMQ QNAME(A_TMMQ ) QTYPE(*LCL) MQMNAME(A_MQMG) TRGENBL(*YES) USAGE(*TMQ)
E レシーブキュー作成
　CRTMQMQ QNAME(A_RCVQ) QTYPE(*LCL) MQMNAME(A_MQMG) USAGE(*NORMAL)
F リモートキュー作成
　CRTMQMQ QNAME(A_RMTQ) QTYPE(*RMT) MQMNAME(A_MQMG) RMTQNAME(B_RCVQ) RMTMQMNAME(B_MQMG) TMQNAME(A_TMMQ )
G 送信チャネル作成
　CRTMQMCHL CHLNAME(A_TO_B) CHLTYPE(*SDR) MQMNAME(A_MQMG) CONNAME('192.168.10.11(9419)') 　TMQNAME(A_TMMQ ) DSCITV(0) CVTMSG(*YES) NPMSPEED(*NORMAL) LOCLADDR（192.168.1.50）
NPMSPEED *NORMAL同期を取ってくれる為、回線切断しても欠落は無い
*FAST　一方通行で通信速度は速くなります。回線切断時に欠落する場合有り
　　　　但し、パシステントに依存する。
　　　　　　　メッセージ持続性 . . : NOT PERSISTENT （この場合は確認なし）
　　　　　　　メッセージ持続性 . . : PERSISTENT（これが＊ＮＯＲＭＡＬど同じ）
　　　　　　　　　MQMDヘッダーにて指定する。
LOCLADDR 仮想ＩＰを使用している場合にこれを指定しない場合は、接続中の物理ＬＡＮが切れた場合に片方の物理ＩＰから瞬時にメッセージが流れない
H 受信チャネル作成
　CRTMQMCHL CHLNAME(B_TO_A) CHLTYPE(*RCVR) MQMNAME(A_MQMG)
　

JRNRCV削除可能検索は?
　　　MQLOGの中を参照してください（WRKMQM オプション23）
　　　　AMQ7460,AMQ7462を参照し、レシーバー表示前を削除可能です

MQ実行方法
　　　　　　　

　@ CCSID変更
　　　　CHGJOB CCSID(5035)
　

　A MQサブシステム起動
　　　　STRSBS SBSD(QMQM/QMQM)
　

　B キュー・マネージャーの開始
　　　　STRMQM MQMNAME(A_MQMG)
　

　C 起動までの待ち時間（5秒以内に起動されます）
　　　　DLYJOB DLY(5)
　

　D MQ リスナーの始動
　　　　STRMQMLSR PORT(9400) MQMNAME(A_MQMG)
　　　　　ポート：デフォルト1414
　

　E MQ チャネルのリセット
　　　　RSTMQMCHL CHLNAME(A_TO_B) MQMNAME(A_MQMG)
　　　　RSTMQMCHL CHLNAME(B_TO_A) MQMNAME(A_MQMG)
　

　F MQ チャネルの開始
　　　　STRMQMCHL CHLNAME(A_TO_B) MQMNAME(A_MQMG)
　　　　STRMQMCHL CHLNAME(B_TO_A) MQMNAME(A_MQMG)

プログラムの実行
　　　STRCMTCTL LCKLVL(*ALL) CMTSCOPE(*JOB)
　　　CALL MQPUTプログラム
　　　ENDCMTCTL

ＨＯＭＥ　　　戻る