RE: Dynamic Array as return/output parameter in export procedure

["Kurt Anderson" <kjanderson@xxxxxxxxxxxxx>]

So myDynaArray_p is global?  myDynaArray is local and not Static so it
would be cleaned up when the procedure ends.  So the address of
myDynaArray_p would end up NULL right?  Which would defeat the entire
purpose of the procedure.

If you got around that issue, I'd say that you'd also want to pass the
number of elements, otherwise the caller has no idea how many elements
there are to access and could attempt to access an elements beyond the
memory allocated.


Kurt Anderson
Application Developer
Highsmith

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Lim Hock-Chai
Sent: Friday, September 19, 2008 9:14 AM
To: RPG programming on the AS400 / iSeries
Subject: Dynamic Array as return/output parameter in export procedure

is there a way to safely return a dynamic array from an export procedure
to the caller?  Something like below just doesn't look very safe for me.

 
P getListInDynaArray...            
D                 pi               
D  piKey                         4 
D  piRtnListDynaArray...           
D                                 *

D myDynaArray     s             20    dim(32767) based(myDynaArray_p)


 /free

  myDynaAry_p = %alloc(200);
  . . . 

  piRtnListDynaArray = myDynaArray_p

 /end-free


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