*定义接收队列QLA
def ql(QLA) maxdepth(10000) defpsist(yes) maxmsgl(1048576) replace
*定义传输队列TO.QMB
def ql(TO.QMB) usage(xmitq) defpsist(yes) maxdepth(10000) maxmsgl(1048576) +
trigger trigtype(first) trigdata(QMA.QMB) initq(system.channel.initq) replace
*定义发送通道QMA.QMB
def chl(QMA.QMB) CHLTYPE(SDR) discint(1800) +
XMITQ(TO.QMB) CONNAME(‘11.193.9.74(1415)’) trptype(tcp) +
shortrty(10000) shorttmr(30) longtmr(300) longrty(999999999) +
batchsz(50) replace
*定义接收通道QMA.QMB
def chl(QMB.QMA) CHLTYPE(RCVR) replace
*定义远程队列
def qr(QRB) rname(QLB) rqmname(QMB) xmitq(TO.QMB) defpsist(yes) replace
*定义死信队列
def ql(DEADQ) defpsist(yes) maxdepth(20000) replace
alter qmgr deadq(DEADQ)
*
alter ql(system.cics.initiation.queue) defpsist(yes)
*修改first触发间隔时间
alter qmgr trigint(5000)