SE47499 - RPGLE-CMPL-MSGRNF0571 MISSING FOR %LOOKUP WITH INDEXED ARRAY FOR 2ND PARM

 APAR (Authorized Program Analysis Report)

Abstract

RPGLE-CMPL-MSGRNF0571 MISSING FOR %LOOKUP WITH INDEXED ARRAY
FOR 2ND PARM

Error Description

The ILE RPG program is failing to issue compile time message    
msgRNF0571 when an indexed array is coded as the second        
parameter of the %LOOKUP() built-in function. The second        
parameter of %LOOKUP() must be an unindexed array.              
                                                               
The following code will demonstrate the problem:                
d arr             s              1a   dim(10)                  
d i               s              5i 0 inz(1)                    
 /Free                                                          
i = %Lookup('a':arr(i));                                        
                ****** should get msgRNF0571                    
       return;                                                  
 /end-free                                                      

Problem Summary

****************************************************************
* USERS AFFECTED: All ILE RPG programmers who use the          *
*                 %LOOKUP() built-in function.                 *
****************************************************************
* PROBLEM DESCRIPTION: The ILE RPG program is failing to issue *
*                      compile time message msgRNF0571 when an *
*                      indexed array is coded as the second    *
*                      parameter of the %LOOKUP() built-in     *
*                      function. The second parameter of       *
*                      %LOOKUP() must be an unindexed array.   *
****************************************************************
* RECOMMENDATION:                                              *
****************************************************************
The ILE RPG program is failing to issue compile time message    
RNF0571 when an indexed array is coded as the second            
parameter of the %LOOKUP() built-in function. The second        
parameter of %LOOKUP() must be an unindexed array.              
                                                               
The following code will demonstrate the problem:                
d arr             s              1a   dim(10)                  
d i               s              5i 0 inz(1)                    
 /Free                                                          
   i = %Lookup('a':arr(i));                                    
                   ****** should get msgRNF0571                
   return;                                                      
 /end-free                                                      

Problem Conclusion

The ILE RPG compiler will be changed such that compile-time    
message msgRNF0571 is issued when compiling a source member    
that codes the %LOOKUP() built-in function with an indexed      
array specified for the second argument.                        

Temporary Fix

Comments

Circumvention


                                                               

PTFs Available

R610 SI43156 PTF Cover Letter   1256

Affected Modules

         
         

Affected Publications

Summary Information

Status............................................ CLOSED PER
HIPER........................................... No
Component.................................. 5761WDS30
Failing Module.......................... NONE
Reported Release................... R610
Duplicate Of..............................




System i Support

    IBM disclaims all warranties, whether express or implied, including, but not limited to, the implied warranties of merchantability and fitness for a particular purpose. By furnishing this document, IBM grants no licenses to any related patents or copyrights. Copyright © 1996,1997,1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011 IBM Corporation. Any trademarks and product or brand names referenced in this document are the property of their respective owners. Consult the Terms of use link for trademark information.

Rate this page:

(0 users)Average rating

Add comments

Document information


More support for:

i family

Software version:

V6R1M0

Operating system(s):

OS/400

Reference #:

SE47499

Modified date:

2011-12-31

Translate my page

Machine Translation

Content navigation