Re: Re: target too small but dump says not?

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.