RE: %LOOKUP BIF causing MCH1210

["Bramley, Stu" <stu.bramley@xxxxxxxxxxxxx>]

The compile is always fine - it falls over when it is executed....

The example code below has been tweaked to initialise Idx to 1 -
unfortunately this doesn't fix the problem when executed though. Does this
tweak matter? I have never had a problem passing in zero as a starting index
to %LOOKUP... 

Cheers
Stu

----------------------------------------------------------------------------
-----------

D DynamicArr@     S               *                                        
D DynamicArr      S             10A   DIM(32767) BASED(DynamicArr@)        
                                                                           
D ArrayEntry      S             10A   INZ('ABCDEF')                        

D Idx             S              3  0 INZ(1)

                                                                           
 * Initial number of entries in the array                                  
D ArraySizeLimit  S              3  0 INZ(50)                              
                                                                           
C                   EVAL      DynamicArr@ =                                
C                                %ALLOC(%SIZE(DynamicArr) * ArraySizeLimit)

 * The following line causes MCH1210


C                   IF        %LOOKUP(ArrayEntry:DynamicArr:1:Idx) = 0     
 

C                   ENDIF                                                  
                                                                           
C                   EVAL      *INLR = *ON                                  
C                   RETURN       


-----Original Message-----
From: Brian Parkins [mailto:PARKIB@xxxxxxxxxx] 
Sent: Wednesday 28 May 2003 11:55
To: RPG programming on the AS400 / iSeries
Subject: Re: %LOOKUP BIF causing MCH1210



Compiles fine for me on both V5R1 and V5R2 machines.

I would not wish to run it, though .... the IDX variable is set to zero.

Brian Parkins

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


If you are not the intended recipient, please notify the sender by return email 
and then delete the message from your computer.  The Skandia UK Group reserves 
the right to monitor e-mail communications through its networks.  

No contract may be concluded on behalf of the Skandia UK Group by email.

Skandia Life Assurance (Holdings) Limited  Skandia Life Assurance Company 
Limited  Skandia MultiFUNDS Limited

Registered Nos: 1606702, 1363932, 1680071, England
Registered Office : Skandia House, Portland Terrace, Southampton  SO14 7EJ, 
United Kingdom

Royal Skandia Life Assurance Limited  Registered No : 24916 Isle of Man
Registered Office : Skandia House, King Edward Road, Onchan, Isle of Man  IM99 
1NU, British Isles

Skandia Life Assurance Company Limited, Skandia MultiFUNDS Limited and Royal 
Skandia Life Assurance Limited are authorised by the FSA for UK investment 
business.

Internet: www.skandia.co.uk