Is the 'XDCBL ' value a multiple of 8? The STORAGE OBTAIN will round up to
multiple of 8; the STORAGE RELEASE might be using the actual 'XDCBL' length.
Why don't you get a dump of the 878 and try to debug? Maybe you can find 1900
chunks of the same storage eye-catchers.
Tony Harminc writes:
>One of the cache attributes that can be extracted is the
>"set-associativity level of the cache". On my zPDT this is 4
>(for the one and only combined cache, which is pretty much
>virtual in any case). On a z12BC it is 6 (for the 1st level
>data cache). But what does this numb
> If the same DCB is closed and reopened,
Which is not the case in the OP's code.
> When 31-bit buffers were implemented, they did not perpetuate this design.
Correct; if the DCBE requests buffers above the line then CLOSE will free the
buffers.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.ed
If the same DCB is closed and reopened, the 24-bit buffers left behind from
the previous OPEN that were not FREEPOOLed will be reused. So if the same DCB
is closed and reopened, there is no storage lost (until the last CLOSE).
If the DCB is being refreshed each time (in a work area or the progr
FREEPOOL has always been a requirement for a straight QSAM DCB; with a DCBE you
can make it automatic on CLOSE.
--
Shmuel (Seymour J.) Metz
http://mason.gmu.edu/~smetz3
From: IBM Mainframe Assembler List on behalf
of Jon Perryman
Sent: Thursday, July
Just to be clear. When a DCBE with RMODE31 specified, QSAM does free the
buffers at CLOSE. This has only been available for maybe 20-30 years.
It's so hard to keep up with changing technology.
sas
On Thu, Jul 11, 2019 at 8:18 AM Mike Shaw wrote:
> On Thu, Jul 11, 2019 at 1:46 AM Jon Perryman
On Thu, Jul 11, 2019 at 1:46 AM Jon Perryman wrote:
> <...snip> When did freepool become a requirement?<.snip..>
QSAM does not free the buffer pool. The user has to issue a FREEPOOL;
AFAIK, it has been that way since OS/MVT. You can get away without doing a
FREEPOOL until you issue thousands of
I would restructure to open/close the DCB once
Here using -ve value to indicate open has failed, or could use flags to track
DCB status
* Message is in WORKMSG on arrival here
LTR4,MYDCB@ Get DCB address
BM WRITTEN Previous open failed, skip