Re: Weird RNX0103 error with no apparent cause

[Rob Berendt <robertowenberendt@xxxxxxxxx>]

Oops.  Just switched from O365 to gmail and just starting to get how these
appear as threads.

On Wed, Jan 18, 2023 at 12:55 PM Rob Berendt <robertowenberendt@xxxxxxxxx>
wrote:

> I too am curious as to what the dump showed in  xRecordID21.
> Like, did it get ill trying to convert spaces or characters to numeric?
>
> On Wed, Jan 18, 2023 at 12:10 PM James H. H. Lampert via RPG400-L <
> rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:
>
> > Not wanting to actually touch the source member, I recompiled with
> > "*SRCSTMT" as a compiler option in the command.
> >
> > The exception showed up today, and this time, the statement number was
> > 21 lines down from what it was telling me yesterday (I'm guessing that
> > somebody changed an include member).
> >
> > Now, it's a statement that can actually throw the exception, and yet it
> > still puzzles me.
> >
> > We have a variable, EnterpriseID, defined thusly:
> >
> >      EnterpriseID    s              9  0
> >
> > and then the exception is thrown here
> >
> >       monitor;
> >         EnterpriseID = %dec(xRecordID21:9:0);
> >       on-error;
> >       endmon;
> >
> > The fact that it's /FREE code tells me that it's not mine, and the
> > monitor/on-error/endmon certainly explains why the exception is not
> > crashing the program.
> >
> > It's looking more and more like it's completely harmless; nobody catches
> > exceptions and ignores them unless they're harmless.
> >
> > xRecordId21 is a 21-character field in a data structure. So what's
> > throwing the exception? the call to %dec(), or the assignment of the
> > result to EnterpriseID?
> >
> > --
> > JHHL
> > --
> > This is the RPG programming on IBM i (RPG400-L) mailing list
> > To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> > To subscribe, unsubscribe, or change list options,
> > visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> > or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> > Before posting, please take a moment to review the archives
> > at https://archive.midrange.com/rpg400-l.
> >
> > Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> > questions.