RE: Checking indicators

["Douglas Palme" <dpalme@xxxxxxxxxxx>]

I like that Barbara.....thanks....that's something to add to the code
library


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Barbara Morris
Sent: Wednesday, November 08, 2006 6:24 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Checking indicators

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;