I have found that for performance, name/token is not that good. If the code is for homegrown stuff, I would recommend hanging the pointer somewhere off of the CVTUSER or something similar.
If this is vendor code, you should hang it off of the vendor block pointed to by the ECVT (IBM controls providing those slots). On Mon, 18 Apr 2016 22:21:13 -0400 Scott Ford <[email protected]> wrote: :>Yes sir, we have routine that also does the IEANTRT first, typo on my part :>for ord :>The way Peter and Ed pointed out was my thinking. Thank you guys :>Much appreciated.. :>Scott :>On Monday, April 18, 2016, Ed Jaffe <[email protected]> wrote: :>> On 4/18/2016 7:38 AM, Peter Relson wrote: :>>> Loop :>>> IEANTRT to retrieve the token :>>> If RC indicates "token exists" then :>>> Leave loop :>>> Else if bad-RC then :>>> error-exit :>>> Obtain and fill in storage :>>> Set up 16 byte token to locate that storage :>>> IEANTCR to create the name/token :>>> If RC indicates "name/token already exists" then :>>> Free the obtained storage :>>> Else if bad-RC then :>>> error-exit :>>> EndLoop :>> This is exactly what we do. :>> It avoids the overhead and hassle of explicit serialization in exchange :>> for a _very, very tiny chance_ of briefly acquiring 2X storage. -- Binyamin Dissen <[email protected]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies.
