Add the &ref to the del1 and del2 member name. This would accomplish what you desire.
Regards Otto Schumacher Technical Support, CICS EDS, an HP Company Ahold Account 2000 Wade Hampton Blvd. LC1-302 Greenville, South Carolina, 29615 Tel: 864 987-1417 Fax: 864 987-4500 E-mail: [email protected] We deliver on our commitments so you can deliver on yours. -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Rick Fochtman Sent: Monday, July 06, 2009 3:29 PM To: [email protected] Subject: Re: Symbolic parameters inside SYSIN ---------------------------------------<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 ---------------------------------------------------------------------- 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
