RE: SELECT & WHENEQ Question

From: Barbara Morris

W@GOOD = *blank;
i = 1;
dow W@GOOD = *blank;
   K@FAC = candidate(i);
   exsr $100;
   i = i + 1;
enddo;
if W@GOOD = *blank;
   W@GOOD = 'NO';
endif;

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

Anyway, I'd definitely subprocedure this.  The following would be one
choice, and an array would be the other.
 
SELECT;
  When CheckFac( 30);
    K@FAC = 30;
  When CheckFac( 10);
    K@FAC = 10;
  When CheckFac( 20);
    K@FAC = 20;
  Other;
    W@GOOD = 'NO';
ENDSL;

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;