Re: RNQ0103 Error

[Michael Ryan <michaelrtr@xxxxxxxxx>]

Sigh...of course Scott...and I was doing the same type of thing for a 2
byte decimal field. Of course, when I tried the divide by 10000, I was
still using %Dec with 4 decimals. Thanks!


On Mon, Apr 14, 2014 at 2:17 PM, Scott Mildenberger <
SMildenberger@xxxxxxxxxxxxxxxxxx> wrote:

> It is too much to ask for the way you coded it :)
>
> %dec doesn't assume where the decimal point is, it converts the text
> directly to a number.  When you used the 13,4 number you probably got
> 412800 but that overflows a 9,4.  I think this will work:
>
> WkTax94 = %dec(WkTax : 9 : 0) / 10000;
>
> Scott
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Michael Ryan
> Sent: Monday, April 14, 2014 12:08 PM
> To: RPG programming on the IBM i / System i
> Subject: RNQ0103 Error
>
> Geez...I must be losing it. I'm trying to take a character string and put
> it into a numeric field, and I'm getting an RNQ0103 target error.
>
> Here's the value of WkTax:
> 000412800
> And here's the line of code:
> WkTax94              = %Dec(WkTax:9:4);
> And here's the definition of the fields:
> D WkTax            S              9
> D WkTax94         S              9  4
>
> I want WkTax94 to have a value of 00041.2800.
>
> Is that too much to ask?
>
> p.s. I've also tried to put the same string value into a 13.4 field.
> --
> 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.
>
>
> --
> 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.