Thanks, I think I understand better now. I take it you have a single buffer in [E]CSA that you append data to the end of (poor sentence construction, -5 points!). I've never done it that way. I've always done a STORAGE OBTAIN for just enough [E]CSA to contain the record + 8 bytes. I then chained that buffer onto a linked list using CDS. Back in the days that I did this, I anchored this chain in an SSVT. In today's environment, I'd likely use NAME/TOKEN services to create a global NAME whose token value was a pointer to the head of chain in ECSA. For me, this was simpler to code than suballocating a single buffer. Of course, it also has more overhead due to the STORAGE OBTAIN and RELEASE sequences to get and free the individual SMF records. I guess you are using some sort of "wrap around" buffer, adding to the "end" and taking from the "beginning"?
-- 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-MAIN@bama.ua.edu] On Behalf Of Donald Likens > Sent: Tuesday, August 09, 2011 6:57 AM > To: IBM-MAIN@bama.ua.edu > Subject: Re: SETLOCK in IEFU85 > > I am not familure with FWIW? > > I think I need the CMS lock because I am updating CSA. > > If there are more than one CMS locks how do you tell the > system which lock to obtain. > > I was planning about issuing the following commands: > > SETLOCK OBTAIN, > TYPE=LOCAL, LOCAL LOCK > MODE=UNCOND, > REGS=USE DO NOT CHANGE R11-R13 > > SETLOCK OBTAIN, > TYPE=CMS, CROSS-MEMORY SERVICES > MODE=UNCOND, > REGS=USE DO NOT CHANGE R11-R13 > > > ---------------------------------------------------------------------- > 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