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

[Booth Martin <booth@xxxxxxxxxxxx>]

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.