Yes sir, we have routine that also does the IEANTRT first, typo on my part for order.
The way Peter and Ed pointed out was my thinking. Thank you guys Much appreciated.. Scott On Monday, April 18, 2016, Ed Jaffe <edja...@phoenixsoftware.com> 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. > > -- > Edward E Jaffe > Phoenix Software International, Inc > 831 Parkview Drive North > El Segundo, CA 90245 > http://www.phoenixsoftware.com/ >
