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
