× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.  Once upon a time it was used to speed the compile of the
program.

Russell Conerly

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Mike the Code Poet
Sent: Tuesday, February 28, 2006 10:14 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: worst RPG ever seen?

Hey... I do that... too lazy to clean up the code after I have find I don't
need it.

How about:

if x = y;
else;
 // do something
endif;

Bad thing is, I am sure I wrote it in my first years as a programmer. I
didn't know about NOT.

On 2/28/06, Bob.Voltz@xxxxxxxxxx <Bob.Voltz@xxxxxxxxxx> wrote:
>
>
> EXSR       XYZ
> .
> .
> .
> .
> XYZ   BEGSR
>             ENDSR
>
>
>
>
>
>
> The information transmitted is intended only for the person or entity to
> which it is addressed and may contain confidential, proprietary, and/or
> privileged material. Any review, retransmission, dissemination or other
> use
> of, or taking of any action in reliance upon this information by persons
> or
> entities other than the intended recipient is prohibited. If you received
> this in error, please contact the sender and delete the material.
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>


--
Mike Wills
koldark@xxxxxxxxx
http://mikewills.name
http://theriverbendpodcast.com -- A rockin' music podcast.

"There are 10 types of people in the world: those who understand binary, and
those who don't." -Unknown

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.