Re: Checking indicators

[Vernon Hamberg <vhamberg@xxxxxxxxxxx>]

Barbara - that is very cool.

I tried the following, and thought it should work

char10 = %subarr(*in : 1 : 10);

but i get the following message

RNF5343 30      5 000500  Array has too many omitted indexes;

The second level text is not helpful - nothing about that message is 
helpful, or I at least have no idea what I can do about it. Wait, is 
it that i had set only *IN(10) - which i had - so it thinks it is a 
sparse array?

I had first tried

if %subarr(*in : 1 : 10) = *zeros;

and received the same message.

Should the %subarr work on the *IN array in the same way your %lookup does?

I am running V5R3 - probably not completely up to date on PTFs

Thanks
Vern

At 06:24 PM 11/8/2006, you wrote:

> Douglas Palme wrote:
> >
> > I have a need to check whether 20 indicators are on or off and I'd like to
> > find a way if possible to check them all without having to use multiple if
> > statements.
> >
>
> If they are contiguous, say 21-40:
>
>    if %lookup (*on : *in : 21 : 20) = 0;
>      // they are all off
>    endif;
>
>    if %lookup (*off : *in : 21 : 20) = 0;
>      // they are all on
>    endif;
>
> or
>    n = %lookup (*off : *in : 21 : 20);
>    if n <> 0;
>       first one that is off is *in(n)
>    else;
>       they are all on
>    endif;
>
> --
> This is the RPG programming on the AS400 / iSeries (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.