RE: Testing for valid numeric in an alpha field

There is no good reason for changing old WORKING programs, just to bring 
in END-IF, of course, but you have to admit that END-IF's can make the 
logic more available to the reader...

Perform thru? OK, if you are looking for trouble....


Mvh.

Geir Kildal

 




"Mark Villa" <markvilla@xxxxxxxxxxx>
Sent by: cobol400-l-bounces@xxxxxxxxxxxx
19.06.2003 21:07
Please respond to COBOL Programming on the iSeries/AS400

 
        To:     "'COBOL Programming on the iSeries/AS400'" 
<cobol400-l@xxxxxxxxxxxx>
        cc: 
        Fax to: 
        Subject:        RE: Testing for valid numeric in an alpha field


~~~         End-If

Well, for really complicated processes, I like to see a lot of perform 
thru
exit (and goto) verbs.
Maybe just because GOTO was forbidden in so many scenarios - goto goto
goto.....

Never used the End-if in Cobol...
Since I never knew when I was going to get a compiler that does not honor
it...just didn't get too comfy with it.
A shop full of old Cobol will break anyone from using ending scope
delimiters.
Its like fighting a tide.
I don't think I am an old fogie, but I always seem to work on old code 
more
days than not.

Just kidding about the goto's but PERFORM THRU is my best friend.
Just some thoughts....
Mark in Charleston SC.

_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing 
list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.