Re: ALLOC Question

[MWalter@xxxxxxxxxxxxxxx]

Barbara & Bob,

That's what I thought. What I'm looking to do is to resemble a recordset
via a MODS. Instead of passing the entire MODS just passing a pointer to
the MODS. I assume it works the same way with an OCCURS clause as it does
with a DIM.


Thanks,

Mark


Mark Walter
Sr. Programmer/Analyst
Hanover Wire Cloth a div of CCX, Inc.
mwalter@hanoverwire.com
http://www.hanoverwire.com
717.637.3795 Ext.3040



                    bmorris@ca.ibm.co
                    m                        To:     rpg400-l@midrange.com
                    Sent by:                 cc:
                    rpg400-l-admin@mi        Subject:     Re: ALLOC Question
                    drange.com


                    04/09/02 01:25 PM
                    Please respond to
                    rpg400-l






>From: MWalter@hanoverwire.com
>Date: Tue, 9 Apr 2002 10:44:55 -0400
>
>My question is regarding dynamically allocating storage. Say you have an
>array defined as based and dimensioned with 1000 elements. Can you
allocate
>more than the 1000 elements or is that the limit?

Mark, you can allocate as much as you want (within the system's limits).
ALLOC doesn't know or care what you're going to use the pointer for.

But you can only get to the first 1000 elements using RPG's array(x)
syntax.  If you wanted to get to the next 1000 elements, you'd have to
move the pointer.  (If you do this, make sure you save the original pointer
so you can deallocate the storage.)

But why would you want to allocate more than you define?  Why not just
define it with the maximum size you need?

Barbara Morris


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