Re: Convert from free to fixed

Personally, _I_ don't consider it RPG IV code...

Maybe RPGIII+ (yes I made that up)

While it may technically be IV, since it compiles with the RPGIV
compiler... the only thing that makes it so is the spacing!
The syntax and style are pure RPGIII.

In my mind, the RPGIV compiler handles three type of code
RPGIII+ -- RPGIII code run through CVTRPGSRC
RPGIV -- code using d-specs, long names, and RPGIV only op-codes
like EVAL, IF, WHEN
ILE RPG -- code that uses sub procedures out of service programs.

Heck, there probably ought to be a forth listed
RPGIV+ -- RPGIV code that uses local sub procedures.

Call it a pet peeve....but running your RPGIII code through CVTRPGSRC
doesn't mean you're doing ILE RPG!!!!!

Charles

On Tue, Sep 28, 2010 at 2:36 PM, Scott Klement
<rpg400-l@xxxxxxxxxxxxxxxx> wrote:

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

--
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.