Re: Testing An Array

[Luis Rodriguez <luisro58@xxxxxxxxx>]

Had thought about that. The only caveat is that the array must be sorted
beforehand (and defined with either ASCEND or DESCEND).

Regards,

Luis Rodriguez
IBM Certified Systems Expert — eServer i5 iSeries
--



On Thu, Jul 14, 2011 at 10:16 AM, Bill Hopkins <bhopkins@xxxxxxxx> wrote:

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