HP3000-L Archives

March 2004, Week 2

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: GO TO
From:
"Shahan, Ray" <[log in to unmask]>
Reply To:
Shahan, Ray
Date:
Fri, 12 Mar 2004 09:25:06 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (82 lines) 
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 *

ATOM RSS1 RSS2