Re: Moving data into dynamic storage

Let me take a shot

      * define the based parameter. 32767 is the max although because
      *  it is based, no memory is allocated.
     Dentry            S          32767    based(pEntry)
      * stuffToAdd could be anything up to 32767
     DstuffToAdd       S            100
      * size is the memory requirement of stuffToAdd
     DSize             S             10i 0
      * determine how much memory to allocate
     C                   eval      size = %size(stuffToAdd)
      * allocate it
     c                   alloc     size          pEntry
      * move your data
     c                   eval      Entry = stuffToAdd

OK, Gurus let me know what I did wrong.

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
/"\
\ /
 X
/ \




                    Rich Duzenbury
                    <rduz@westernmidr        To:     rpg400-l@midrange.com
                    ange.com>                cc:
                    Sent by:                 Subject:     Moving data into 
dynamic storage
                    rpg400-l-admin@mi
                    drange.com


                    11/22/2002 02:10
                    PM
                    Please respond to
                    rpg400-l






Hello,

I've ALLOC'd some variable amount of storage, and now I want to move some
data into it.  I currently use the following idiom to base a character
variable onto a pointer:

D pentry          s               *
D entry           s            100    based(pentry)

Now, I can MOVEL some data into entry (up to 100 bytes), and it goes where
the pointer is pointing to quite nicely.

My problem is that since the amount of storage is variable, I don't want to
have to declare a fixed length for the 'entry' variable.

How can I copy data into the contents of pentry while avoiding a fixed
length restriction?

Regards,
Rich

_______________________________________________
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.