Bill Brutzman asked:
How can this structure be cleaned-up?
<snip>
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.
Dunno if it's cleaner, but this is how I would code it...
Begin Case
Case Ans eq "A"
gosub Check.A:
Case ((Ans EQ "B") OR (Ans EQ "2"))
gosub Check.B:
Case 1
* Do nothing
End Case
--
Allen Egerton
aegerton at pobox dot com
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
