Re: Checking indicators

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;

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.