Re: Help with %Dec

[Vern Hamberg <vhamberg@xxxxxxxxxxx>]

This solution would be problematic with negative numbers, by the way.

Vern

On 3/24/2011 10:04 AM, paultherrien@xxxxxxxxxxxxxxxxxx wrote:
> One way would be to use a data structure:
>
> Thedata   DS
> Char                  11 a
> Zone                  11 s 0 4  overlay(char)
>
> Or :
>
> 	New_value = %dec(char : 11 : 4) / 10000
>
> Paul Therrien
> Andeco Software, LLC
> 932 Saint Johns Dr
> Maryville, TN 37801
> 225-229-2491
> paultherrien@xxxxxxxxxxxxxxxxxx
> www.andecosoftware.com
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Jeff Young
> Sent: Thursday, March 24, 2011 10:30 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Help with %Dec
>
> Given an 11 char field with the value of '00000639000', I am attempting to
> use
> %Dec to convert it to an 11.4 position numeric field.
> new_value = %dec(char : 11 : 4).
> I *want* the result to be 63.9000, but am getting 639000.0000 as my result.
> What am I not understanding about how this works, and what would be the best
> way
> to get the desired result.
>
> TIA,
>   
> Jeff Young
> Sr. Programmer Analyst
> IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions
> V5R2 
> IBM  Certified Specialist- e(logo) server i5Series Technical Solutions
> Designer V5R3
> IBM  Certified Specialist- e(logo)server i5Series Technical
> Solutions Implementer V5R3