Re: compile error on %lookup where array is thereturn valueof aprocedure

Someone else will have to answer.  This is way beyond my limited skill set.

Lim Hock-Chai wrote:

GetArray is a procedure that return an array with 8 elements.

You should be able to cut and paste below on your SEU/wdsc editor and

compile the program. D getArray pr 3 dim(8) C if %lookup(' ' :getArray) > 0 C endif C eval *inlr = *On ******************************************************** P getArray B D pi 3 dim(8) D prArray s 3 dim(8) C return prArray P getArray E

-----Original Message-----
From: rpg400-l-bounces+lim.hock-chai=usamobility.com@xxxxxxxxxxxx
[mailto:rpg400-l-bounces+lim.hock-chai=usamobility.com@xxxxxxxxxxxx] On
Behalf Of Booth Martin
Sent: Friday, January 13, 2006 11:08 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: compile error on %lookup where array is thereturn valueof
aprocedure

I went back and looked at the original post.  (It formatted badly on my
e-mail.) What is the name of your array?  Is it named prArray, not
GetArray?  I have to admit I couldn't figure out what is supposed to
happen here  -  thats my shortcoming, not the programs shortcoming.