John, Thanks for your kind words. Much of what we offer owes large success to pesky users who send us feedback and suggestions :-)
Your example reminds me that eventually we would like to add an "idcams" shell command, which would allow: catsearch cicsts*.** |\ cut -d '.' -f 2- |\ sort -u |\ while read i;do echo " DEFINE ALIAS(NAME(CICSTS.$i) -" echo " SYMBOLICRELATE(&CICSVER..$i))" done | idcams Of course, if you like batch, this would easily run under COZBATCH :-) FWIW, you may have noticed that there is a com.ibm.jzos.AccessMethodServices class that provides a callable IDCAMS interface from Java. Cheers, Kirk Wolf Dovetailed Technologies http://dovetail.com PS> consider using awk to build job to do the whole thing in a pipeline without temp files. *Something* like: catsearch cicsts*.** |\ cut -d '.' -f 2- |\ sort -u |\ awk ' BEGIN { print "//JOBNAME JOB (ACCT),PGMR,CLASS=A,MSGCLASS=H"; print "//IDCAMS EXEC PGM=IDCAMS"; print "//SYSPRINT DD SYSOUT=*"; print "//SYSIN DD *"; } { print " DEFINE ALIAS(NAME(CICSTS.",$1,") -"; print " SYMBOLICRELATE(&CICSVER..",$1,"))"; } END { print "//" }' |\ submit -j On Thu, Oct 27, 2011 at 9:08 AM, McKown, John <[email protected] > wrote: > If you run multiple releases of CICS on a single image, you might want to > change that slightly: > > cd /usr/lpp/cicsts > mkdir cicsts32-RSU1109 > mkdir cicsts32-RSU1110 > mkdir cicsts41-RSU1109 #assuming there is an RSU1109 for CICS/TS 4.1 > mkdir cicsts41-RSU1110 #similar to above > ln -s '$SYSSYMR/cicsts32-&CICSVER.' cicsts32 > ln -s '$SYSSYMR/cicsts41-&CICSVER.' cicsts41 > > What might be even more interesting would be if the > release-to-use-on-this-image of CICS were in &CICVER and the RSU for that > release was in &CICSRSU. Now, if you run multiple versions/RSUs on one > image, make some more static symbols. One for the desired RSU for each CICS > release. Examples: &RSUCV32 and &RSUCV41. > > mkdir CICSTS32-RSU1109 > mkdir CICSTS32-RSU1110 > mkdir CICSTS41-RSU1109 > mkdir CICSTS41-RSU1110 > ln -s '$SYSSYMR/&CICSVER.-&CICSRSU.' local > ln -s '$SYSSYMR/CICSTS32-&RSUCV32' cicsts32 > ln -s '$SYSSYMR/CICSTS41-&RSUCV41' cicsts41 > > and then use /usr/lpp/cicsts/local instead of /usr/lpp/cicsts/cicsts32. > That gets you the recommended CICS version and RSU for this z/OS image. If > you use /usr/lpp/cicsts/cicsts32, you get the desired RSU for release 3.2 on > this z/OS image. If you use /usr/lpp/cicsts/cicsts41, you get the desired > RSU for release 4.1 on this z/OS image. > > In BPXPRMxx: > > MOUNT FILESYSTEM('OMVS.&CICSRSU..&CICSVER.') > MOUNTPOINT('/usr/lpp/cicsts/&CICSVER.-&CICSRSU.') > TYPE(HFS) MODE(READ) AUTOMOVE(INCLUDE,*) > > If you wanted to, you could simply have one MOUNT for every existant > CICS-RSU that you have > > MOUNT FILESYSTEM('OMVS.RSU1109.CICSTS32') > MOUNTPOINT('/usr/lpp/cicsts/CICSTS32-RSU1109') > TYPE(HFS) MODE(READ) AUTOMOVE(INCLUDE,*) > > and duplicate the above for each CICS/RSU combination you have. > > In IEASYMxx: > > SYMDEF(&CICSVER='CICSTS32') > SYMDEF(&CICSRSU='RSU1110') > SYMDEF(&RSUCV32='RSU1110') > SYMDEF(&RSUCV41='RSU1109') > > Now, combine this with some nifty catalog SYMBOLICRELATE type ALIASes, you > could do: > > DEFINE ALIAS(NAME('CICSTS.rest.of.dsn') - > SYMBOLICRELATE('&CICSVER..rest.of.dsn')) > > But I hear your complaint. "Oh, damn! I have to do a LISTCAT and then code > up all those DEFINEs. What a PITA!" I agree. So why bother? Do it the easy > way. Install Dovetailed Technologies set of "free to download and use" Co:Z > products. They are excellent and did I mention you can download and use them > FOR NO COST or signed license? You don't even need to fill out a form to be > approved. Did you know that the JZOS currently distributed by IBM with their > Java was originally from Dovetailed? Brilliant people. Nice people, too! > (Hi, Kirk!) So, once you've installed at least the dataset pipes portion of > Co:Z, you can run a simple UNIX shell script to create the DEFINE ALIAS > commands for you! > > catsearch cicsts*.** |\ > cut -d '.' -f 2- |\ > sort -u |\ > while read i;do > echo " DEFINE ALIAS(NAME(CICSTS.$i) -" > echo " SYMBOLICRELATE(&CICSVER..$i))"; > done>idcams.sysin > cat >idcams.jcl <<EOJ > //JOBNAME JOB (ACCT),PGMR,CLASS=A,MSGCLASS=H > //IDCAMS EXEC PGM=IDCAMS > //SYSPRINT DD SYSOUT=* > //SYSIN DD * > EOJ > cat >null.jcl <<EOJ > // > EOJ > cat idcams.jcl idcams.sysin null.jcl | submit -j > #end of script > > Feel free to use TSO and REXX or ISPF EDIT to do the same. But I doubt that > it will be quite as easy as I've shown above. That took me about 5 minutes > to write an debug. Repeat the above script for each CICS release high level > qualifier, if they don't all start with the characters 'cicsts...' . If you > repeat the script, you might (most likely will) get some duplicate aliases. > But that should be OK. You could probably work the RSU into the DSN similar > to what was done in the UNIX aliases. > > > > > -- > 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 > > ---------------------------------------------------------------------- > 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
