---------------------------------------<snip>-------------------------------
Hello,
I am trying to optimize some tasks I perform with my MQ Series. My idea is to
delete a bunch of MQ objects just passing am unique number reference that
identifies our partners.
The JCL would look like this:
//DLPARTNR PROC REF=
//CSQUTIL1 EXEC PGM=CSQUTIL,REGION=0M,
// PARM='BCMH'
//STEPLIB DD DISP=SHR,DSN=SSTP.HZ19.MQS600.SCSQANLE
// DD DISP=SHR,DSN=SSTP.HZ19.MQS600.SCSQAUTH
//SYSPRINT DD SYSOUT=*
//SYSIN DD DISP=SHR,DSN=SSTP.SYSIN(DEL1)
//CSQUCMD DD DISP=SHR,DSN=SSTP.SYSIN(DEL2)
So I have several MQ-delete commands contained inside of the DEL1 and DEL2
SYSIN datasets, somewhat like this:
DELETE CHANNEL(MYCOMPANY.TO.&REF)
I ended up discovering that symbols parameters I submit do not replace the
ones contained on SYSIN data, is this true? Is there any workaround?
------------------------------------<unsnip>--------------------------------------
I have a Assembler program that can help with that. Send me a private
E-Mail address and I'll send you a copy. It will make substitutions in
SYSIN-type control statements, based on parameters provided through JCL,
and has some "special" values as well. You'll need a program to Un-ZIP
the file I send you, unless you tell me otherwise.
Rick
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
