Re: Testing An Array

Consider building a procedure in a service program


if ARRAY_isAllBlank(MyArray
:%elem(MyArray)
:%size(MyArray);

might be easier to have
if ARRAY_isAllBlank(%addr(MyArray)
:%elem(MyArray)
:%size(MyArray);

ARRAY_IsAllBlanks can use pointer arithmetic to loop through the array
looking at each element.

Or perhaps just a based variable....

HTH,
Charles

On Thu, Jul 14, 2011 at 10:04 AM, Robert Munday <rwmunday@xxxxxxxxxxxxx> wrote:

  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
--
This is the RPG programming on the IBM i / System i (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.