I think this should not be an exercise in using other forms of logic. The
CASE construct is actually pretty self documenting.
----- Original Message -----
From: "Manu Fernandes" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Wednesday, July 25, 2007 12:44 PM
Subject: Re: [U2] [u2] : Cleaner Case Statement


> Try this
>
> ON index('AB2',Ans,1) GOSUB Check.A, Check.B, Check.B
>
> Manu
> ----- Original Message -----
> From: "Brutzman, Bill" <[EMAIL PROTECTED]>
> To: <[email protected]>
> Sent: Wednesday, July 25, 2007 5:48 PM
> Subject: [U2] [u2] : Cleaner Case Statement
>
>
> > How can this structure be cleaned-up?
> >
> >  begin case
> >        case Ans = 'A'  ;  gosub Check.A
> >        case Ans = 'B'  ;  gosub Check.B
> >        case Ans = '2'  ;  gosub Check.B
> >  end   case
> >
> > The following is more difficult to read.
> >
> >  begin case
> >        case Ans = 'A'               ;  gosub Check.A
> >        case Ans = 'B' or Ans = '2'  ;  gosub Check.B
> >  end   case
> >
> > I would like something like...
> >
> >  begin case
> >        case Ans = 'A'  ;  gosub Check.A
> >        case Ans = 'B'
> >        case Ans = '2'  ;  gosub Check.B
> >  end   case
> >
> > so that the "gosub Check.B" command is not repeated.  I have tried a few
> > alternatives without a victory.
> >
> > Suggestions would be appreciated.
> >
> > --Bill
> > -------
> > u2-users mailing list
> > [email protected]
> > To unsubscribe please visit http://listserver.u2ug.org/
> -------
> u2-users mailing list
> [email protected]
> To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to