RE: Allocated Storage Size

["Steve Richter" <srichter@xxxxxxxxxxxxx>]

Duane,

this ILE accessible MI may help:

http://publib.boulder.ibm.com/iseries/v5r1/ic2924/tstudio/tech_ref/mi/MATHSA
T.htm

"...If operand 3 is equal to hex 02, then the allocation template
information is added to the heap space attributes and mark template
information. The allocation template information is repeated for current
number of outstanding allocations. This information follows the mark
information template. ..."


Dec  Hex   Field Name   Data Type and Length
0  0   Allocation template [*] Char(48)
0  0   Allocation address Space pointer
16  10   Mark identifier Space pointer
32  20   Allocation size UBin(4)
36  24   Reserved Char(12)

-Steve


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Christen, Duane J.
Sent: Thursday, February 05, 2004 2:38 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: Allocated Storage Size


Hans;

Statement: In a HLL that allows direct allocation of storage
(%alloc/malloc....) the basing pointer value, the size of storage allocated
and other(?) information about the allocation is stored in a system "table".

Question: If this is true why is there not a function that, given a pointer
it returns the size of the allocation and any other information about the
allocation?

Duane Christen



NOTICE: This electronic mail transmission may contain confidential
information and is intended only for the person(s) named.  Any use, copying
or disclosure by any other person is strictly prohibited. If you have
received this transmission in error, please notify the sender via e-mail.



_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.