Ouch. Doing that sort of polling makes me cringe. And inspires an idea (perhaps insane). Write an APF authorized TSO command which can do an ISGENQ on any QNAME / RNAME (even a restricted one) with the WAIT option. When acquired, immediately release the ENQ and exit. It might even have a "timeout" option. Yes, I know that the interval between the ending of this command and the ALLOCATE introduces a "race" condition. But you can then loop back to the ISGENQ command if the ALLOCATE fails due to "in use".
I know, I'm complicating things in order to save CPU. In most shops, this might be foolishness. In my shop, it is expected and even necessary to help maintain the viability of the z system in an environment which desperately wants to be MS-Windows only. -- 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 Dana Mitchell > Sent: Monday, June 04, 2012 7:34 AM > To: [email protected] > Subject: Re: How to suppress Message in REXX App (SAMPLE) > > On Sun, 3 Jun 2012 11:47:23 -0500, Paul Gilmartin > <[email protected]> wrote: > > > >Should I infer from this that conversely it runs concurrently > >in background and does not tie up the terminal if output is > >directed to SYSOUT or ODS? If so the above EXEC needs a > >WAIT to guarantee that the output is complete. (Or does > >ENQ SHR handle this?) > > > >-- gil > > > > ENQ does not handle this. I wrote a rexx a long time ago > that would issue any HSM command and trap the output as > suggested earlier in this thread. Long running commands > would cause the ALLOCATE command to fail due to dataset in > use. I had to add a loop issuing: > > Address ispexec 'LMINIT DATAID(TRAP) Dataset('dsname') ENQ(SHR)' > > until it returned RC =0. Crude, but effective. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
