RE: Decimal Place in Character String

Have you tried playing with Return %EditC or %EditW instead of %Char ?


-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Vernon Hamberg
Sent: Tuesday, March 3, 2020 14:42
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Decimal Place in Character String

OK, this is getting weird - I compiled mine with your declarations - I got the same result I did with the 9 and 3 lengths!

Any chance it works differently using just the RETURN vs assigning to a variable?

Vern

On 3/3/2020 1:24 PM, dlclark@xxxxxxxxxxxxxxxx wrote:

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> wrote on 03/03/2020
01:30:15 PM:

I tested this a bit - let me know if my declarations are the same -

**free
dcl-s packed_data packed(9 : 0) inz(-123456789); dcl-s d_shift
zoned(3 : 0) inz(100); dcl-s result char(256); result =
%char(packed_data / d_shift); *inlr = *on;

The result was '-1234789.890000000000000000000'

This is on a 7.3 box.

What's different for you compared to me?

As I am creating a generic procedure to work with all kinds
of data, I was using the following equivalent definitions.


dcl-s packed_data packed(46 : 0) inz(-123456789); dcl-s d_shift
zoned(15 : 0) inz(100);


Sincerely,

Dave Clark

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com