Re: Programming by the mathematically challenged

Geez, the same programmer must have worked here too...

c If Fires150 <> *blanks
c sub Sav_Lqty ActQt150
c if ActQt150 < 0
c eval ActQt150 = 0
c endif
c Else
c sub Sav_Lqty ActQt150
c if ActQt150 < 0
c eval ActQt150 = 0
c endif
c endif

Maybe he's paid on a line by line basis....
On Fri, Mar 12, 2010 at 3:12 PM, Peter Dow <petercdow@xxxxxxxxx> wrote:

Hi Everyone,

It's Friday, so I thought I'd share the fun.

I had to work with this vintage 2003 RPG program with the following code:

C $AMT1 IFNE 0
C ADD $AMT1 $AMT
C ENDIF
C $AMT2 IFNE 0
C ADD $AMT2 $AMT
C ENDIF

I just wonder what was going through the programmer's mind: performance
improvement? i.e. an IF is so much faster than an ADD?

*Peter Dow* /
Dow Software Services, Inc.
909 793-9050
pdow@xxxxxxxxxxxxxxx <mailto:pdow@xxxxxxxxxxxxxxx> /
--
This is the RPG programming on the IBM i / System i (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.