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 -- scary statistics...
From:
"Emerson, Tom" <[log in to unmask]>
Reply To:
Emerson, Tom
Date:
Fri, 12 Mar 2004 09:33:05 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (30 lines) 
> -----Original Message-----
> From: Tracy Pierce [mailto:[log in to unmask]]
> 
> Got a weird bug in a COBOL program?  1st item: look for GO 
> TO, a very sure signpost of crummy if not quite ancient code.

%print @.livesrce;search=cl"go to";out=$null;page=0
[...]
%showvar @print@
MPEXPRINTLINESFOUND = 15181

%showvar @num@
MPEXNUMSUCCEEDED = 711
MPEXNUMFAILED = 0

%calc 15181//711
 21.351618

so we're AVERAGING 21 GO TO's per program :(

%listf @.livesrce(not fcontains("GO TO")),6
[...]
%SHOWVAR @NUMS@
MPEXNUMSUCCEEDED = 59

and the ratio of programs-with-goto vs. programs-without is about 12:1 -- double :(

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2