RE: Testing An Array

[Mark Walter <mwalter@xxxxxxxxxxxxxxx>]

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