On 3/6/2012 1:18 AM, Fred van der Windt wrote:
I have an assembler module that reads files and needs storage below the 16M
line to store the DCB an DCBE. Previously I allocated this storage using a
STORAGE macro. Because the module is always invoked by COBOL programs I figured
I could also use LE services to allocate this storage. If I code a CEEV#GTS call
Do you mean CEEGTST?
to allocate this storage on LE's CEEEDBBEHP (LE Below Heap) I get occasional
U4038 abends with a CEE0802C (Heap storage control information was damaged) when
I try to free the allocated storage with a CEEV#FRS call even though the control
information seems to be ok.
I'm not sure what I'm doing wrong: should I just not meddle with the LE's
Below Heap (CEEEDBBEHP)?
LE's below heap is for LE support routines, not
user heap. Yes: you should not meddle with it.
If I use a CEEVGTSB (Get Storage Below) call to allocate the memory on the
User Heap (with heap id 0) I'm also able get storage below the line. This
storage can be freed without any problems. Is the the only viable route to have
LE allocate storage below the line?
thanks for any input,
Fred!
I'm not sure what services you are really using, but I
suspect you're using some of the APIs from the Vendor
Interfaces doc. While a few of these are useful, they
are really intended to be used by creators of products
that use LE internal services under their covers, not
part of the end user interface.
I think you should create a user heap below the line
using CEECRHP with an options value of 73, 74, or 76
then use CEEGTST from that heap for your DCB/DCBE blocks.
--
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-355-2752
http://www.trainersfriend.com
* To get a good Return on your Investment, first make an investment!
+ Training your people is an excellent investment
* Try our tool for calculating your Return On Investment
for training dollars at
http://www.trainersfriend.com/ROI/roi.html
--
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: INFO IBM-MAIN