RE: Same procedure different problem

["Joel R. Cochran" <jrc@xxxxxxxxxxxxx>]

I don't know, like I said it was a shot in the dark.  I wonder if performing
the RESET has anything to do with the pointer address?

Also, since your Array is only single dimension, and all 12 dimensions are
populated by your FOR loop, what does the DOU/READE get you?  Why not a
chain?  The only possible benefit I see is if there are multiple matching
records you would be guaranteed to get the last one which you could get
through SETGT and a single READPE...

If the read initially failed, wouldn't the array still have it's initialized
values?

One last, Pointer ignorant question... when the sub-procedure ends, what
happens to the memory allocation for plan?  If that memory was released,
would the pointer you pass back to th calling program still be valid?  Maybe
this is an activation group problem?

Again, I don't know if any of this would have anything to do with your
problem, just friendly comments

:-)


Joel R. Cochran
Director of Internet Services
VamaNet.com
(800)480-8810
mailto:webmaster@vamanet.com


> -----Original Message-----
> From: MWalter@hanoverwire.com [mailto:MWalter@hanoverwire.com]
> Sent: Friday, April 26, 2002 4:47 PM
> To: rpg400-l@midrange.com
> Subject: RE: Same procedure different problem
>
>
>
> Joel,
>
> Could be but it is failing on the first record read. The
> address in p_plan
> in the subproc is the same that is returned to the main procedure.
>
>
> 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
>
> _______________________________________________
> 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.
>