Re: OPEN in RPGIII -- RPG400-L

Charles,

"Safe" is relative. On one project I used their tool. The result was much prettier than IBM's (which is safe, but can get messy), but it did not handle cases where there was numeric overflow in the calcs. RPG/400 techniques often relied on overflow being ignored. In that case, that behavior was acceptable to the client, but the hard halt was not, even though the high order digit might have gotten truncated.

It's possible that their newer version of the software handles this more cleanly, but the version I was using wreaked a bit of havoc.

-mark

At 2/4/10 03:29 PM, you wrote:

I have to second the recommendation of Linoma's tool.

It's not that expensive, it's just as safe as IBM's CVTRPGSRC but it
does a heck of a lot more. You won't have what I would call an ILE
RPG program, but you will have a full fledged RPG IV program.

Charles

On Thu, Feb 4, 2010 at 2:22 PM, Vern Hamberg <vhamberg@xxxxxxxxxxx> wrote:
> Agreed - CVTRPGSRC is a pretty "stupid" line by line converter - the
> work comes when you try to move all your data definitions out of
> C-specs. No need for that to get the %open() functionality.
>
> And that's why they should get Linoma's tool to take care of more
> advanced conversion.
>
> There is also a free tool called JCR4MAX by Craig Rutledge that does
> more with the result of CVTRPGSRC - and you get the source, so you can
> tailor it to your liking. I forget the URL - just Google on JCR4MAX. He
> has other tools, too - very nice.
>
> Vern
>
> Charles Wilt wrote:
>> David,
>>
>> I've never had CVTRPGSRC leave me with hours of work. Honestly, I
>> can't remember it ever leaving me with _ANY_ work to do.
>>
>> Charles
>>
>> On Thu, Feb 4, 2010 at 9:59 AM, David FOXWELL <David.FOXWELL@xxxxxxxxx> wrote:
>>
>>> Guys, guys, lets be reasonable here. Surely we're not the only shop with a load of RPGIII that still need to be maintained. I only ever used CVTRPGSRC once and it left me with hours of work to get the program running correctly.
>>>
>>> What noone has replied to is, why can't I just do this?
>>>
>>>
>>>> C OPEN MYFILE 10
>>>> C KEY CHAINMYFILE 10
>>>>
>>> Isn't it like
>>> monitor;
>>> open myfile;
>>> on-error;
>>> // do nothing
>>> endmon;
>>>
>>> ??
>>>
>>>
>>>
>>>> -----Message d'origine-----
>>>> De : rpg400-l-bounces@xxxxxxxxxxxx
>>>> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de rob@xxxxxxxxx
>>>> Envoyé : jeudi 4 février 2010 14:23
>>>> À : RPG programming on the IBM i / System i
>>>> Objet : Re: OPEN in RPGIII
>>>>
>>>> First you take the RPGIII and run CVTRPGSRC on it. Then you
>>>> have your way with it.
>>>>
>>>>
>>>> Rob Berendt
>>>> --
>>>> Group Dekko Services, LLC
>>>> Dept 01.073
>>>> Dock 108
>>>> 6928N 400E
>>>> Kendallville, IN 46755
>>>> http://www.dekko.com
>>>>
>>>>
>>>>
>>>>
>>>>
>>>> From: David FOXWELL <David.FOXWELL@xxxxxxxxx>
>>>> To: RPG programming on the IBM i / System i
>>>> <rpg400-l@xxxxxxxxxxxx>
>>>> Date: 02/04/2010 05:52 AM
>>>> Subject: OPEN in RPGIII
>>>> Sent by: rpg400-l-bounces@xxxxxxxxxxxx
>>>>
>>>>
>>>>
>>>> Hi all,
>>>>
>>>> How do I write the equivalent of
>>>>
>>>> /FREE
>>>>
>>>> IF NOT %OPEN(MYFILE);
>>>> %OPEN(MYFILE);
>>>>
>>>> ENDIF;
>>>>
>>>> /END-FREE
>>>>
>>>> for RPGIII ?
>>>>
>>>>
>>>> At the moment, I have
>>>> C OPEN MYFILE 10
>>>> C KEY CHAINMYFILE 10 >
>>>> Thanks
>>>> --
>>>> 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.
>>>>
>>>>
>>>> --
>>>> 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.
>>>>
>>>>
>>>>
>>> --
>>> 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.
>>>
>>>
>>>
> --
> 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.
>
>
--
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.