RE: Testing An Array

["Bill Hopkins" <bhopkins@xxxxxxxx>]

n = %LOOKGT('      ':arrayname);

If n > 0;

"Found one and "n" is the element where found" 

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