×
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.
Thanks Chuck.
CRPence <crp@xxxxxxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
01/16/2008 11:40 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
To
rpg400-l@xxxxxxxxxxxx
cc
Subject
Re: Output 125.56 as 00012556 in REXX
/* REXX */
parse arg TheValue
If Datatype(TheValue,'N') Then Do;
parse value TheValue with i'.'d ;
Amt=Right(i||d, 8, '0') ;
Say TheValue';' Amt
End;
Else return 88
StrRexPrc PARM(125.00)
125.00; 00012500
StrRexPrc PARM(125.56)
125.56; 00012556
StrRexPrc PARM(125)
125; 00000125
Regards, Chuck
--
All comments provided "as is" with no warranties of any kind
whatsoever and may not represent positions, strategies, nor views of my
employer
ewart.desouza@xxxxxxxxxxx wrote:
I know this is an RPG forum but I'm just taking a chance in case some of
you are experienced in REXX. I need the output of a numeric variable to
be
with the leading zeroes & without the decimal. Anyone have any ideas.
If I use Amt = Right(125.56,8,'0') it displays 00125.56
If I use Amt = Right(Format(125.56*100,8,0),8,'0') it displays
bbb12556
Any suggestions for a good REXX forum
--
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.
midrange.com
