× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.




Hi Booth
Thanks for your replies
I was looking for an answer of 18.00, and now that I've had my 21st cup of
24oz 7-11 coffee, the brain cells are beginning to stir

Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill



Booth Martin
<booth@xxxxxxxxxx
om> To
Sent by: RPG programming on the IBM i /
rpg400-l-bounces@ System i <rpg400-l@xxxxxxxxxxxx>
midrange.com cc

Subject
11/10/2010 10:15 Re: I thought I knew how %dec
AM worked


Please respond to
RPG programming
on the IBM i /
System i
<rpg400-l@midrang
e.com>






Does he want an answer of 1800.00 or an answer of 180.00? I read it to
mean he wanted it as 180.00



On 11/10/2010 8:41 AM, Charles Wilt wrote:
So you've got this
d Bxwegt s 5 inz('01800')
D Bywegt s 7p 2
*-------------------------------------------------
* Stand Alone Fields - BOTTOM
*-------------------------------------------------

**************************************************
/FREE
Bywegt = %dec(Bxwegt: 7: 2);

*inlr = '1';
return;
/END-FREE

And it doesn't through an error...

But that gives you 1800.00 in bywegt and you wanted 18.00.

%dec() expects explicit decimal points in strings, it doesn't deal
with implied decimals in a string.

You're going to need something like so:

d Bxwegt s 5 inz('01800')
D Bywegt s 5p 2
*-------------------------------------------------
* Stand Alone Fields - BOTTOM
*-------------------------------------------------

**************************************************
/FREE
Bywegt = %dec(Bxwegt: 5: 0) / 100;

*inlr = '1';
return;
/END-FREE

HTH,
Charles




On Wed, Nov 10, 2010 at 9:07 AM, Alan Shore<AlanShore@xxxxxxxx> wrote:

Thanks Joep
Its finally sunk in

Sometimes, being a lovable idiot doesn't pay
This is one them
Happy Moron day, to me

Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill



J.Beckeringh@pant
heon-automatiseri
ng.nl
To
Sent by: RPG programming on the IBM i /
rpg400-l-bounces@ System i<rpg400-l@xxxxxxxxxxxx>
midrange.com
cc


Subject
11/10/2010 09:03 Re: I thought I knew how %dec
AM worked


Please respond to
RPG programming
on the IBM i /
System i
<rpg400-l@midrang
e.com>






Alan,

The field is not the problem; the parameters to %dec are. If you change
the field to 7p2, you should also change the call to %dec(Bxwegt: 7: 2).

Joep Beckeringh


rpg400-l-bounces@xxxxxxxxxxxx wrote on 10-11-2010 14:42:14:

Alan Shore


Thanks for your reply Joep
I'm still scratching my head
The field
d Bxwegt s 5 inz('01800')
Is really the value 18.00

I changed the code to
D Bywegt s 7p 2

with the same result

Alan Shore
Programmer/Analyst, Direct Response
E:AShore@xxxxxxxx
P:(631) 200-5019
C:(631) 880-8640
"If you're going through Hell, keep going" - Winston Churchill
--
This is the RPG programming on the IBM i / System i (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 / System i (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 / System i (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.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.