Do you have any OPEN's for DCBs using QSAM? That will acquire buffers, I think that they're in SP0. You need to do a FREEPOOL immediately after you CLOSE the DCB to release them.
-- John McKown Systems Engineer IV IT Administrative Services Group HealthMarkets(r) 9151 Boulevard 26 * N. Richland Hills * TX 76010 (817) 255-3225 phone * (817)-961-6183 cell [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 Jeffrey Deaver > Sent: Tuesday, January 19, 2010 1:34 PM > To: [email protected] > Subject: Re: Getmain Freemain? > > ST R5,SAVER5 > GETMAIN EC,LV=(5),A=TABLADDR,SP=2 > > L R5,SAVER5 > FREEMAIN R,LV=(5),A=TABLADDR,SP=2 > > SAVER5 DC F'0' > > So I think I have the form right, its not complaining about > the FREEMAIN > being invalid anymore, but its also not working as I would expect it. > Initially, it was complaining because I did not have a > subpool specified, > and SP0 was being used, and my program can not free subpool 0 space. > Watching the job execute in the landmark activity monitor, the storage > being consumed is still from SP0 and the freemain is > obviously not doing > what its suppose to. I know I get to the statement, because > if I screw up > the form, it complains when it is executed, but the storage > in SP0 keeps > heading up. > > So - any ideas why it isn't grabbing storage from SP2, and > why the FREEMAIN > isn't working? Mmmmm..... > > On the flip side. I was thinking there might be a way in > the REXX script > that calls this thing in a loop to 'reset' itself each time - > like its a > step end, but not really since I can't lose the other REXX > variables I'm > using in there. > > Thanks. > > Jeffrey Deaver, Engineer > Systems Engineering > [email protected] > 651-665-4231(v) > IS - "Creating competitive advantage with technology. > Providing service > that excels." > OSS - " Where Innovation Happens" > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] 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 [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
