If you have a Parallel Sysplex (you have a Coupling Facility), you might want to consider using a new CICS facility called "named counter". It would require no special coding on your part at all.
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DFHP4B06/1.50 -- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * john.mck...@healthmarkets.com * 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:ibm-m...@bama.ua.edu] On Behalf Of Lorne Dudley > Sent: Wednesday, December 15, 2010 5:25 PM > To: IBM-MAIN@bama.ua.edu > Subject: Re: Batch program to update CVTUSER > > To Chris and others > > I'm looking for a quick and dirty mechanism for three CICS regions > performing the same function to check a value and then > determine whether > to present a busy screen or allow sign-on based on the number > of current > tasks in each region. > > CVTUSER (or some other global variable) will be set with the > "max-task" > value at which a busy screen will be presented. > > I can use CVTUSER because I'm the system programmer and no > one else has > access to the system in this mode. I'd love to use > NAMETOKENs pointing > to a control variable if anyone has code to share. > > As has been obvious to a number of observers, it's been years since I > have dabbled in assembler code. Yes, I do have a test LPAR > to try all > of this stuff out. > > Regards > > Lorne > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@bama.ua.edu 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 lists...@bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
