Re: target too small but dump says not?

If I'm wrong in my thinking, please take it easy on me as I'm still new to RPG.

However, during my study, I ran into the same error; and looking at the program dump, I was stumped as are you while looking over the contents of the variables.

The problem was that my variable still had the previous value in it, and I didn't figure that out until doing all the math by hand and seeing that it should contain a different number than what was reported in the dump. The number that was supposed to be in there was 1 digit longer...

Good luck, and I hope this helps.

Clay Carley
Sonic.net/ Sonic Telecom

dpcmarion@xxxxxxxxxxxxxxxxx wrote:

What is the value of pkgcounter? I would think it is 2 in your example,
but if the problem is not with the other values... perhaps it didn't like
the index?



Rich
------ Original Message ------

From : Buck Calabro<kc2hiz@xxxxxxxxx>
To : rpg400-l@xxxxxxxxxxxx;
Sent : 8/9/2013 11:11
Subject : Re: target too small but dump says not?


On 8/9/2013 10:01 AM, James Franz wrote:
> RNQ0103 error message - target too small
> dumped the program and wondering why value -026960399 does not fit in a 9,0 field ?
>
> what am I missing? This has been running many years, and not new code (2008), but recent compile v6r1)
> fixed format eval
>
> Eval WPkgID(PkgCounter) = WorkPackageID
>
> values from dump
>
> WPKGID ZONED(9,0) DIM(10)
> (1) 005864648.
> (2-10) 000000000.
>
> (one of many fields in a DS)
> WORKPACKAGEID BIN(9,0) -026960399. 'C2C9D3F1'X
>
> jim
>

Not sure what's missing; the dump looks reasonable from here. I tried
the following test program on 7.1 to see what I got, and it was as expected:

d binary s 9b 0
d zoned s 9s 0 dim(2)

/free
binary = *hival;
zoned(1) = binary;
dump;
binary = *loval;
zoned(2) = binary;
dump;
*inlr = *on;
/end-free

NAME ATTRIBUTES VALUE
BINARY BIN(9,0) 999999999. '3B9AC9FF'X
ZONED ZONED(9,0) DIM(2)
(1) 999999999. 'F9F9F9F9F9F9F9F9F9'X
(2) 000000000. 'F0F0F0F0F0F0F0F0F0'X

BINARY BIN(9,0) -999999999. 'C4653601'X
ZONED ZONED(9,0) DIM(2)
(1) 999999999. 'F9F9F9F9F9F9F9F9F9'X
(2) -999999999. 'F9F9F9F9F9F9F9F9D9'X

1) How are you on PTFs?
2) If you run this little sample, do you get the same results? If so,
there must be something else going on and we might need to see some
source code.
--buck
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (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.