Re: Upgrade to V4R3

The problem is most likely related to an upgrade of the compiler and the
way it handles uninitialized fields or the Z-ADD op.  On a virtual
machine level it is probably trying to load the number to be initialized
into a numeric register before zeroing it and this is causing the error.

If the LDA area has blanks you should not be moving that into a numeric
field anyway.
It's a cheat that worked in the past. 

A possible solution would be to load the LDA into a character Field and
test for blanks before proceding.  Or a Move 0 instead - but this would
still be a cheat.

In the past blank was equal to 0 (S36 days) but it seems that IBM is
getting stricter on the data rules within the RPG compiler.  I believe I
ran into a few similar problems going from V3R2 to V4R2 about a year
ago.

John Hall


Mark Willett wrote:
> 
> This is the wierd thing.  I have a version of the program running on a
> different machine that has not been compiled since the upgrade.  It doesn't
> have IGNDECERR set and it runs fine.
> 
> I was really sure that my mod wasn't the cause of the problem...but, just to
> be sure, I took the mod out, and tried it again.  Freekin thing doesn't
> work, it's not the modification doing it.
> 
> Any thoughts...anybody....
> 
> Thanks chaps.
> 
> Mark.
> 
> -----Original Message-----
> From: owner-midrange-l@midrange.com
> [mailto:owner-midrange-l@midrange.com]On Behalf Of
> david.kahn@gbwsh.mail.abb.com
> Sent: Tuesday, March 30, 1999 6:44 AM
> To: MIDRANGE-L@midrange.com
> Subject: Re: Upgrade to V4R3
> 
> "Mark Willett" <oleblighty@home.com> wrote:
> 
> >This program ran successfully after the upgrade with blanks
> >being passed in the LDA positions.  I had to make a change
> >a recompile it last night and when it ran, it failed with a decimal
> >data error on the Z-ADD command.
> 
> Mark,
> 
> It ran OK after you upgraded, then failed after you recompiled. It's
> therefore almost certainly not a V4R3 problem, but something you introduced
> when you re-compiled. You also know you are trying to do arithmetic on an
> invalid numeric field. In all probability the program was originally
> compiled with IGNDECERR(*YES). If you recompile with this setting the
> problem will go away, or rather remain hidden as it was previously.
> 
> Dave Kahn, ABB Steward Ltd.
>
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---