> if OPEN honors your request for buffers above the 16 MB line, you should > either avoid the FREEPOOL macro ...
What crappy design! If OPEN *honors* your request ... So in other words they are saying that you still need a FREEPOOL in your code, and it now has to have *more* code added to it (either by you or in the newer FREEPOOL macro) to see whether it is appropriate. A much better design would have been to say "if you request buffers above the line, then CLOSE will free them whether they are actually above the line or not" -- in other words, if you code RMODE31=BUFF you can eliminate the FREEPOOL. This oddity may explain my having been burned by omitting FREEPOOL -- for some reason the buffers may at least once have ended up below the line and not been freed. Charles -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Charles Mills Sent: Wednesday, January 20, 2010 6:29 PM To: [email protected] Subject: Re: Getmain Freemain? > you can request an automatic FREEPOOL with a parameter in the DCBE I've got code that is commented as follows: FREEPOOL (R4) NOT NEEDED WITH BUFFS ABOVE LINE ??? * SO DOC CLAIMS BUT I GET GETBUF * FAILURES ON SUBSEQUENT OPENS It's one of those classic programming things. I suspect I cloned this code from some other piece of code. Perhaps the GETBUF failure was unrelated but who wants to take a chance and debug it again? Once burned, twice shy. The doc for DCBE RMODE31=BUFF says In releases prior to DFSMS/MVS 1.1, FREEPOOL is typically issued after CLOSE since CLOSE does not free the QSAM 24-bit buffers. However, if OPEN honors your request for buffers above the 16 MB line, you should either avoid the FREEPOOL macro, or reassemble the program with the FREEPOOL macro. At DFSMS/MVS 1.1, the FREEPOOL expansion tests whether the buffer pool exists before attempting to free it. Charles ---------------------------------------------------------------------- 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
