RE: OPEN in RPGIII

The "result field is too small" error is one that I seriously doubt that a tool could catch, though it might be able to give a warning.

I have an RPG IV program that ran flawlessly for years. Then management decided that, instead of doing what amounted to a bin inventory for certain items, we would count discrete items. I understood why they wanted to do this, but it went right over my head until the report was run at the end of the next month - and crashed and burned (in-line printer fields). The on-hand inventory quantity fields were not increased so maybe that's why no alarm bells went off. The program was, by the way, originally an RPG II program until I converted it and changed the ADD's to EVAL's and made it /free format as well. As I said, even though most of the changes were done by me (with just a little help from CVTRPGSRC), the best that I think a tool could do would be to say, "Hey, you might want to check those EVAL's" (ADD's even in RPG IV will still overflow "properly").

I have another program that has been ILE RPG from the beginning. It blew off with the "result field too small" error (even though the logical was flawless, I might add) because someone miss keyed a price (missed the '.' and hit the '0' instead). After that, I added MONITOR's around just about every EVAL, logged the exceptions, notified the user, and printed a report of the errors immediately (you might have guessed that it's a critical program). It keeps getting reinforced into my thick skull that a good defense (in this case, MONITORing) will beat a good offense (brilliant (?) design/coding).

Jerry C. Adams
IBM System i Programmer/Analyst
--
B&W Wholesale
office: 615-995-7024
email: jerry@xxxxxxxxxxxxxxx


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of M. Lazarus
Sent: Monday, February 08, 2010 1:03 PM
To: RPG programming on the IBM i / System i
Subject: Re: OPEN in RPGIII

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.