RE: Replace minus sign

Good call. I only tested with an integer.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Michael_Schutte@xxxxxxxxxxxx
Sent: Friday, October 31, 2008 10:14 AM
To: RPG programming on the AS400 / iSeries
Subject: RE: Replace minus sign

No I'm going to pick on your code.. LOL

If amount equaled 100.59 you would return 10059. :-P

wrap amount with %Abs() then you'll get the correct result. or multiply
by
-1


Michael Schutte
Admin Professional
Bob Evans Farms, Inc.
3776 South High Street, Columbus, OH 43207
Phone: 614/492-7419 Fax: 614/409-2017
Visit us on the web! www.bobevans.com



Bob Evans NEW! Farmhouse Philly Knife & Fork Sandwich: It's No Ordinary
Sandwich!
Try all four Knife & Fork Sandwiches, starting at 5.99.
For more information, visit www.NoOrdinarySandwich.com


rpg400-l-bounces@xxxxxxxxxxxx wrote on 10/31/2008 11:09:34 AM:

Actually if the number was -5 the result of your code would be (-5).

Using the same condition as Michael provided, you can use this

statement

to get the number in parentheses.
strAmount = '(' + %trimL( %editC( Amount: 'Z' ) ) + ')';

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Michael_Schutte@xxxxxxxxxxxx
Sent: Friday, October 31, 2008 9:55 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Replace minus sign

If Amount < 0;
strAmount = '(' + %Char(Amount) + ')';
Else;
strAmount = %Char(Amount);
EndIf;



Michael Schutte

rpg400-l-bounces@xxxxxxxxxxxx wrote on 10/31/2008 07:23:48 AM:

Hi all,,

Can i replace minus sign so i can display it inside bracket like in

MS

Excel.
Example -100 display as (100)

--
Salam,

ab.annas
--
This is the RPG programming on the AS400 / 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 AS400 / 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 AS400 / 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.