RE: SELECT & WHENEQ Question

From: Barbara Morris

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

Oh absolutely, side effects are nasty and I would beat with a wet noodle
anybody who put this into production.  I suppose I COULD have passed K@FAC
to CheckFac; you'd have at least seen it in the parameter list, but even
that wouldn't make it clear.  But it WAS a fun bit of programming <grin>.

Joe