RE: Humorous Enhancements

["Brian Stapleton" <Brian.Stapleton@xxxxxxxxxxxxxxxxx>]

Here's one for you, an IF statement testing *in99 and all of the lines inside
of the IF statement with left hand indicators using *in99.


Brian Stapleton
Information Services
AmeriClean Systems
A Div of DiverseyLever
Brian.Stapleton@diverseylever.com
(248) 304-3553



-----Original Message-----
From:   Jerry Feador [SMTP:JLF@valley-media.com]
Sent:   Thursday, August 05, 1999 12:56 PM
To:     RPG400-L@midrange.com; RPGIV@onelist.com
Subject:        Humorous Enhancements

Buck made the below comment which reminded me of a "unique" enhancement I saw
recently:

<snip>
"Programmers sprinkling a few SELEC statements into the code won't
magically create new (modern) logic out of 20 year old code, that's for
sure." 
<snip>

I guess this one programmer was told to rewrite a certain program and
"modernize" it specifically by removing the "go to's"...

So, throughout the entire program was the following line of code: 

1     CABEQ     1          (tag name)

Was this programmer ingenious, lazy, pushed for time??? 

Just thought you all might get a kick out of this...

Anybody seen any other "things" that make you stop and say "WHAT???"

                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                               !
                                                                               
                                                                               
                                                                               
                
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---END
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---END