MQPUT Through JCL

JCL to LOAD the Data into MQ(Message Queue) channels from a sequential data set.

With CSQUTIL MQPUT can be done in batch.

//MQLOAD1  JOB (ABCDEFGH),'ABCDEFG',

//         MSGCLASS=T,SCHENV=DB2DBJB,

//         NOTIFY=&SYSUID,TIME=90

//*

//MKCMDS   EXEC PGM=CSQUTIL,PARM='Queue Manger Name'

//STEPLIB   DD DSN=MQM.M***.SCSQAUTH,DISP=SHR

//INFILE   DD DISP=SHR,DSN=TEST.RSS.XCI0500.STRGTEST.INPUT

//SYSPRINT DD SYSOUT=*

//CSQUOUT  DD SYSOUT=*

//SYSIN    DD *

LOAD QUEUE ( PK01) DDNAME(INFILE)

/*