Re: Automatic based variables

[Barbara Morris <bmorris@xxxxxxxxxx>]

Joe Pluta wrote:
> 
> If I declare a based data structure (EXTNAME and BASED) in a procedure,
> what is allocated when I call the procedure?  Common sense tells me it's
> just the room for the pointer; that all references to the field are done
> via pointer arithmetic.
> 

Indeed, no storage is allocated for the structure.  Even the storage for
the pointer might not be allocated in the subprocedure, for example in
the case that Bob mentioned where the pointer is passed in as a
parameter.

You can verify that this is so by compiling the following module with
and without the BASED keyword and then doing a DSPMOD OPTION(*SIZE) and
paging down to the Procedure Size section.  It should show different
values for the Current Size of the automatic storage allocation.

h nomain
D proc            pr
P proc            b
D dsAuto          ds          1000    based(p)
P proc            e