Re: Convert from free to fixed

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

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