× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. August 2006

Re: SELECT & WHENEQ Question

Hi Terri,

I'd replace it with something like

K@FAC = '30';
exsr $100;
if W@GOOD = *blank;
   K@FAC = '10';
   exsr $100;
   if W@GOOD = *blank;
       K@FAC = '20';
       exsr $100;
       if W@GOOD = *blank;
           W@GOOD = 'NO';
       endif;
   endif;
endif;
Or you could make subroutine $100 into a procedure that accepts a single parm like K@FAC, and returns an indicator value (on=good,off=bad). Then you could have 

W@GOOD = *blank;
if not TestFAC('30')
  and not TestFAC('10')
  and not TestFAC('20');
   W@GOOD = 'NO';
endif;




*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
pdow@xxxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxxx> /

THarteau@xxxxxxxxxxxxxxxxxx wrote:

Hi,
      Thanks for the sharp eyes. I missed the missing DO loop.  Now a
related question, since I am trying to modernize this program a bit, what
would be the best way to rewrite this?
      Just add the DO loop
      Change it to a series of IF statements
      Come other way

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Replies:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.