RE: Moving data into dynamic storage

["DeLong, Eric" <EDeLong@xxxxxxxxxxxxxxx>]

Rich,

Since no storage is allocated when using Based variables, you can define it
up to its max length without causing problems.
D pentry          s               *
D entry           s          32767    based(pentry)

Just make sure you don't write past your allocated size.....

Eric DeLong
Sally Beauty Company
MIS-Project Manager (BSG)
940-898-7863 or ext. 1863

-----Original Message-----
From: Rich Duzenbury [mailto:rduz@westernmidrange.com]
Sent: Friday, November 22, 2002 1:11 PM
To: rpg400-l@midrange.com
Subject: Moving data into dynamic storage


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.