Re: Testing An Array

[Charles Wilt <charles.wilt@xxxxxxxxx>]

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.