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

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.