Re: SELECT & WHENEQ Question

Joe Pluta wrote:

Barbara, if none of the entries pass the $100 test, then won't this code get
an array index error?

Yep, blush.  "Do not pass Go, do not collect $100"

...
But HERE'S a fun one.  Change W@GOOD to Boolean, and then do this:

W@GOOD = (CheckFac(30) OR CheckFac(10) OR CheckFac(20));

CheckFac procedure:

If (code to check facility is true);
   K@FAC = facility;
   Return *ON;
Endif;
Return *OFF;

That's clever, but the secret setting of K@FAC makes it _almost_ as
mysterious as the original.