RE: Testing An Array

[Robert Munday <rwmunday@xxxxxxxxxxxxx>]

Mark,


That compiled.  Will be testing soon.  Thanks for the tip.



Robert Munday
Munday Software Consultants
Montgomery, AL


-----Original Message-----
From: Mark Walter <mwalter@xxxxxxxxxxxxxxx>
Sent: Jul 14, 2011 9:27 AM
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Subject: RE: Testing An Array

You could do something like this.

dmyArray          S              5    dim(10)                        
Dp_myArray        S               *   inz(%addr(myArray))            
Dmyfield          S             50    based(p_myArray)               
DcharField        S             20    inz('blanks')                  
 /free                                                               
    if myField = *blanks;                                            
    dsply charField;                                                 
    endif;                                                           
    *inlr = *on;                                                     
 /end-free                                                           

Mark D. Walter
Business to Business Data Integration Specialist
Certified IBM System I Specialist
Paragon Consulting Services, Inc. 
mwalter@xxxxxxxxxxxxxxx
717-764-7909 Ext. (1)26


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Robert Munday
Sent: Thursday, July 14, 2011 10:05 AM
To: RPG400
Subject: Testing An Array

   Greetings from the sunny south.

   I need to test an array to determine if there are any non-blank elements.
   In fixed format I recall that I could test the whole array.  That seems
   not to work in /Free format.

   What would I need to make this concept work:

   If MyArray <> *Blanks;


   I don't want to spin through the numerous individual elements.  Any
   suggestions on how to make this happen?

   Thanks,


   Robert Munday
   Munday Software Consultants
   Montgomery, AL