I wanted to write an MVS Batch COBOL program that updates an MVS
(OS/390) MQSeries queue and have it trigger a MDB on an Orion server. To do
this, my MVS MQSeries has a remote queue definition pointing to an NT Server
running MQSeries and Orion 1.5.2.
Next I followed the Resource Providers documentation on
www.orionserver.com and used the ContextScanningResourceProvider without any
changes to be my MQSeries resource provider. I compiled this class and
created a jar file, which I added to Orion/Lib, along with the various IBM
MQSeries jars and the Sun JNDI File System provider jars.
I then made the necessary Orion xml file updates and to my amazement
it works. I can update an MVS MQSeries queue and have it trigger a Orion MDB
on an NT server.
The zip file contains all source code.
<<mdb_orion_jms.ZIP>>
Below is the sample output from the Orion DOS prompt. I tried
writting to the MDB queue via a jsp => servlet => SLSB and from an MVS
Batch COBOL program.
Auto-unpacking C:\TEMP\orion\applications\mdb-orion.ear... done.
Auto-unpacking C:\TEMP\orion\applications\mdb-orion\mdb-orion-web.war...
done.
Auto-deploying mdb-orion-web (Assembly had been updated)...
Auto-deploying mdb-orion-ejb.jar (ejb-jar.xml had been touched since the
previou
s deployment)... done.
Orion/1.5.2 initialized
Auto-deploying ejb - servlet mdb test (Assembly had been updated)...
SampleBeanSLSB: message => msg via jsp to servlet
InitialDirContext ctx done: javax.naming.InitialContext@470b0d
ctx QCF done: com.ibm.mq.jms.MQQueueConnectionFactory@bd614064
queueFactory.createQueueConnection() done:
com.ibm.mq.jms.MQQueueConnection@3ef361
queueConnection.createQueueSession() done:
(Queue)ctx.lookup() done:
queueSession.createSender(queue) done:
queueSession.createTextMessage() done:
message.setText(msg) done:
queueSender.send(queue, message) done:
Bean got message: msg via jsp to servlet
queueConnection.close() done:
Bean got message: TEST MVS-TO-NT TALKING
mdb_orion_jms.ZIP
Description: Binary data
