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


This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].