Re: target too small but dump says not?

[Clay B Carley <cbc@xxxxxxxxx>]

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.