RE: worst RPG ever seen?

"Russell Conerly" <rconerly@xxxxxxxxxxx> wrote:

> I've seen and had to maintain the If, else, do something,
> before.  In a System/38 environment I believe.
>
> I think two schools of thought were at play.  Maintain
> positive logic was one reason.

We used to do something similar in COBOL at my first programming shop. We
were still writing spaghetti code in those days too.

IF WAB-FROM < WAB-TO
    NEXT SENTENCE
ELSE
    MOVE '12' TO W-ERROR-CODE
    GOTO X-ERROR-ROUTINE.

--
Dave...


______________________________________________________________________
This message may contain confidential information which may also be legally 
privileged and is intended only for the use of the parties to whom it is 
addressed. If you are not an intended recipient you are hereby notified that 
any disclosure, copying, distribution or use of any information in this e-mail 
is strictly prohibited. If you receive this message in error please notify the 
sender by return e-mail and then destroy it. Further, we make every endeavour 
to keep our network free from viruses. However, you do need to verify that this 
e-mail and any attachments are free of viruses as we can take no responsibility 
for any computer viruses which might be transferred by way of this e-mail. All 
information and attachments remain the property of Acergy Group and should be 
held as confidential.