Re: Value in field does not match database????

[Charles Wilt <charles.wilt@xxxxxxxxx>]

I think you're missing something...

What's the actual error message?

Are you sure about the line#?

The line you've shown is apparently trying to replace the 3409th character
of PSQ with an 'X'...

So ODSEQ# in the program is named WWSEQ5 in the DB?

Assuming you expect ODSEQ# to be 8...

I'd verify that's it's an 8 when the record is read...and wherever WWSEQ5
gets loaded to ODSEQ#.

Then I agree with Jon, memory corruption.  Check the parms of any programs
called by the failing one, and any programs they call...and so forth.

Might give this thread a read...
https://archive.midrange.com/rpg400-l/201907/msg00191.html


Charles






On Thu, Sep 5, 2019 at 2:10 PM Greg Wilburn <
gwilburn@xxxxxxxxxxxxxxxxxxxxxxx> wrote:

> A program that is well over 4 years old failed today... When I view the
> suspect field value in debug (or do a PGM DUMP and view in spool file), I
> see a DIFFERENT value than what is actually in the database file.
>
> How could this be??
>
> The field in question ODSEQ# is packed (5,0) - it is the line sequence
> number for our Order Entry Detail file.
>
> In debug (and in the dump) the value in this field is 03409.
> In the database file, the value is 8.
>
> I verified the database record using SQL select by
>
> 1.      Keyed values, and
>
> 2.      Relative Record Number (got this from WRKJOB)
>
> The field inside the program is not manipulated or referenced anywhere in
> the code, other than the failing line:
> EVAL      %SUBST(PSQ:ODSEQ#:1) = 'X'
>
> This is from the dump:
> ODSEQ#                PACKED(5,0)          03409.           '03409F'X
>
> This is from SQL select:
> COMPANY  ORDER  WWSEQ5
>   014      10001831         8
>
> Any ideas???
>
> Greg
> --
> 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@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com