使用z/OS和JCL运行IBM MQ队列管理器

本示例代码演示了如何在z/OS操作系统上使用JCL（Job Control Language）和IBM MQ队列管理器进行消息传递。该示例代码能够创建、打开和关闭队列管理器，并将消息发送到队列和从队列接收消息。

//JOBNAME JOB (ACCT#),'MQ EXAMPLES',CLASS=A,MSGCLASS=H
//CREATE EXEC PGM=DEFINE,QMGR='QAMGR'
//STEPLIB DD DSN=IBM.MQ.V8R0M0.SCSQAUTH,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUT2 DD SYSOUT=*
//SYSIN DD *
DEFINE QMGR QAMGR
/*
//STARTQMGR EXEC PGM=AMQSSTART,PARM='QAMGR'
//STEPLIB DD DSN=IBM.MQ.V8R0M0.SCSQAUTH,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSIN DD *
*
//*
//PUTMSG EXEC PGM=amqsput
//STEPLIB DD DSN=IBM.MQ.V8R0M0.SCSQAUTH,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
PUT QUEUE(SAMPLEQ) DATA('Hello World')
/*
//*
//GETMSG EXEC PGM=amqsget
//STEPLIB DD DSN=IBM.MQ.V8R0M0.SCSQAUTH,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
GET QUEUE(SAMPLEQ)
/*
//*
//STOPQMGR EXEC PGM=AMQSSLS0,PARM='QAMGR'
//STEPLIB DD DSN=IBM.MQ.V8R0M0.SCSQAUTH,DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSIN DD *
STOP QMGR(QAMGR)
/*

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com