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

Kevin,

You don't have to change the names to avoid "reserved" names in free-form.

On data declarations in DS for example you simply add dcl-subj in front of the name.

So this:

D myDS DS
D chain 1a

Becomes:

Dcl-ds myDS;
def-subf chain char(1);
end-ds;

Similar options exist for procedure interface and prototype parameters. It is basically the same scenario as being able to omit EVAL in cals. You can omit it if the filed name does not match an opcode name. So you have to code:

EVAL chain = 'Y';


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Nov 8, 2017, at 5:05 AM, Kevin <kevin@xxxxxxxxxxxxxxxxx> wrote:

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

--
Kevin Passey

*KDP Software Limited*
http://www.kdpsoftware.co.uk
Tel:08450 604123
Linkedin: https://www.linkedin.com/pub/kevin-passey/12/807/890
IBM i Development <https://www.kdpsoftware.co.uk/about-us/our-services>
IBM i Security & Audit <https://www.kdpsoftware.co.uk/ibm-i-products/ibm-i-security>
IBM i Change Management & application security <https://www.kdpsoftware.co.uk/ibm-i-products/ibm-i-change-management>
--
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