Re: Anybody have an RPGIII program they could send me?

Hi Charles,

I'll send you a couple of text files to your GMAIL address.

I used Craigs code just as an excercise to see if I could get this code to convert 100% and I did eventually.

I had to build make modifications to convert the file I/O to free format, ASSET was using some 'now' reserved words - so they had to be replaced, some of the standard routines I changed to /copy and put them outside the code.

The *LDA code was restructured, all GOTO's were converted to LEAVESR - as they only ever went to the end of the current code.(an issue if you still used GOTO's in ASSET)

All indicator coding was restructured and the main line code changed to use select..

This was all done in a couple of passes to take the code form III to IV to Free..but it seemd to work

I am in the process of bagging these changes up - at some point I'll make them available to anybody who whats to try it on their old ASSET code. Free open source code of course!

Regards

Kevin


On 08/11/2017 02:00, Charles Wilt wrote:

Kevin,

Might be useful, yo be honest I've never seen ASSET generated code.

Thank you,

On Nov 7, 2017 18:22, "Kevin Passey" <kevin@xxxxxxxxxxxxxxxxx> wrote:

Hi Charles

I have some old ASSET generated RPGIII you can have a look at - I can even
give you copies of the RPGIV and /free versions I converted using a
modified version of Craig Rutledge’s open source conversion code if you
like?

Regards

Kevin Passey

On 7 Nov 2017, at 23:55, Charles Wilt <charles.wilt@xxxxxxxxx> wrote:

All,

I don't have access to any RPGIII code, anybody have a reasonable size one
they can send me for use as an example; something with a mainline of 100+
lines...with deeply nested IFs preferred.

Yeah, I could dummy something up...but I'd prefer to have something real.

I'm going to use it in a presentation before & after CVTRPGSRC and even
using Arcad/Linoma to move it all the way to free form.

Point being, at most, the results is RPGIV, and not ILE RPG.

Thanks!
Charles
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)

mailing list

To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related

questions.

Help support midrange.com by shopping at amazon.com with our affiliate

link: http://amzn.to/2dEadiD

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD