Putting the messgaes from the Sequential file to MQ Queue.

Find the below JCL(Job Control Language) to put the messgaes from the Sequential file to MQ Queue.
//PUTTOMQ@ JOB (acct#),’MQ PUT’,CLASS=0,MSGCLASS=J
//*MOVING THE MESSAGES FROM SEQUENTIAL FILE TO MQ QUEUE
//PS010 EXEC PGM=MqUtility
//STEPLIB DD DSN=Programlib,
// DISP=SHR
// DD DSN=Loadlib,
// DISP=SHR
// DD DSN=Mqlibraries,
// DISP=SHR
//AGPARMS DD *
QueueManager
QueueName
//MQOUTPUT DD DSN=Inout.dsn,
// DISP=SHR
//MQERRORS DD *
ERROR CODE-1
ERROR CODE-2
|
|
|
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
If you have any doubts, please get back to me. Above JCL was tested and it is working fine.