Kent, I'm surprised that a person who stands behind the 'never use a GO TO'
would shut down a program so coldly, and without closing files, error
tracing/tracking statements, etc.
I think your example bears out that bad code is bad code because it's bad
code, and not because it has a GO TO statement in it.
BTW, Kent, I'm picking on your example, not you or your REAL code. ;-)
Ray Shahan
Life is not a journey to the grave with the
intention of arriving safely in a pretty and
well preserved body, but rather to skid in
broadside, thoroughly used up, totally worn out,
and loudly proclaiming:
-- WOW!!! What a Ride! --
> -----Original Message-----
> From: KENT WALLACE [SMTP:[log in to unmask]]
> Sent: Friday, March 12, 2004 9:06 AM
> To: [log in to unmask]
> Subject: Re: [HP3000-L] GO TO
>
> No.
>
> IF IMAGE-ERROR
> CALL INTRINSIC "QUIT" USING \21\.
>
> Kent Wallace
>
>
>
> >>> Jeff Kell <[log in to unmask]> 03/11/04 05:48PM >>>
> KENT WALLACE wrote:
> > Hmmmm
> >
> > I was told in 1986 when I worked at Boeing, never to use "GO TO"'s.
> > I have had this discussion off the list. I have written a few
> > languages and have compiled the following list.
> >
> > Language USE of "GO TO"
> >
> > COBOL It's a sin, some use it to exit paragraph but I won't.
>
> I have one major bone to pick with this one, and that is for error
> handling. Sure, you can check IF NOT SUCCESSFUL PERFORM IMAGE-ERROR
> even though you'll never come back (IMAGE-ERROR might, for example, do a
> DBEXPLAIN then STOP RUN).
>
> In such cases, I think it is much more proper (and sensible) to just
> bite your lip and GO TO IMAGE-ERROR.
>
> I suppose the purist would:
>
> IF NOT SUCCESSFUL
> PERFORM IMAGE-ERROR,
> STOP RUN,
> END-IF.
>
> :-)
>
> Jeff
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
>
> ========================================================================
> This e-mail message has been scanned for Viruses and Content and cleared
> by School Specialty's email filtering solution.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|