That submits one job per DEFINE ALIAS. My solution and the awk solution submits a single job with multiple DEFINE commands. A matter, in my eyes, of "elegance". I use that word a lot. I prefer "elegant" solutions. I'm still in the "CPU is precious" camp. Which is important here because we want to decrease software license costs. Which we can only do by decreasing CPU usage (MSUs). We've pretty much eliminated any "excess" software and don't pay any maintenance which is not required in order to continue running critical software.
-- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * [email protected] * www.HealthMarkets.com Confidentiality Notice: This e-mail message may contain confidential or proprietary information. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. HealthMarkets(r) is the brand name for products underwritten and issued by the insurance subsidiaries of HealthMarkets, Inc. -The Chesapeake Life Insurance Company(r), Mid-West National Life Insurance Company of TennesseeSM and The MEGA Life and Health Insurance Company.SM > -----Original Message----- > From: IBM Mainframe Discussion List > [mailto:[email protected]] On Behalf Of Paul Gilmartin > Sent: Thursday, October 27, 2011 7:22 PM > To: [email protected] > Subject: Re: HFS sharing and rolling product upgrades > > On Thu, 27 Oct 2011 16:09:49 -0500, Kirk Wolf wrote: > > > >PS> consider using awk to build job to do the whole thing in > a pipeline > >without temp files. > >*Something* like: > > > Hardly any need for awk. sh can do much the same (untested): > > catsearch cicsts*.** | > cut -d '.' -f 2- | > sort -u | > while read name; do cat <<end-of-job > //JOBNAME JOB (ACCT),PGMR,CLASS=A,MSGCLASS=H > //IDCAMS EXEC PGM=IDCAMS > //SYSPRINT DD SYSOUT=* > //SYSIN DD * > DEFINE ALIAS(NAME(CICSTS.$Name) - > SYMBOLICRELATE(&CICSVER..$Name)) > // > end-of-job > done | > submit -j > > (sh does not require '\' after '|' and awk does not require > ';' at end of line.) > > (But this ignores the fact that sh _probably_ writes > here-documents to temp > file and reads them back.) > > -- gil > > ---------------------------------------------------------------------- > 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
