RE: Convert from free to fixed

Scott,
I appreciate that. My problem is not the new code, but package I work on has
been very slow to update their code. When I go to a client, Some of them
have no problem with new code, and others do not understand it. I am
currently working on a project where the code is very early RPG III. It is
hard to go back and forth between that and /free. Out of the 125 programs
that I had to fix, only one was written in free and it took longer than any
of them to fix. That is probably my fault I know.
I wish there was a better answer. I don't think Microsoft's method of not
making the compilers backward compatible is a very good way of forcing
programmers to upgrade their code.

Thanks
Tom

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Scott Klement
Sent: Tuesday, September 28, 2010 1:37 PM
To: RPG programming on the IBM i / System i
Subject: Re: Convert from free to fixed

Hi Tom,

This code (quoted below) is actually still RPG IV code. Many RPG shops
out there today have still not learned to bring their code up to _this_
level... and some are just learning it now.

Food for thought!


On 9/28/2010 12:38 PM, Tom Armbruster wrote:

Secondly, one of the tongue-in-cheek examples that I saw didn't just
revert to fixed format, it reverted to some pre-RPG IV styles:

C *like define xmlfield temp
C len subst(p) bighunkdata:gttemp
C z-add 1 fnd
C temp lookup xmlfield(fnd)
10
C *in10 ifeq *off
C z-add 0 fnd
C endif