RE: Precision??

Don't think so Joel.

There's a difference between
 evalr - evaluate expression, with right adjust

and

 eval(r) - evaluate expression, respect decimal.

Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Joel Cochran
> Sent: Wednesday, February 09, 2005 11:13 AM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Precision??
> 
> 
> On Wed, 2005-02-09 at 19:48, RPower@xxxxxxxxxx wrote:
> > On my quest to do more /free programming.  I decided to 
> convert this 
> > program to free format.
> > What is the free format equivalent to the EVAL(r) opcode?
> 
> evalr
> 
> psuedo-code example:
> 
> d myString                  s                       10a
> d myStringRt              s                       10a
> 
>  /free
>      myString = "ABCD" ;
>     evalr myString = "ABCD"
>  /end-free
> 
> myString: "ABCD******"
> myStringRt: "******ABCD"
> 
> Obviously, where "*" represents a blanks space.
> 
> Joel
> http://www.rpgnext.com
> 
> 
> > 
> > Ron Power
> > Programmer
> > Information Services
> > City Of St. John's, NL
> > P.O. Box 908
> > St. John's, NL
> > A1C 5M2
> > Tel: 709-576-8132
> > Email: rpower@xxxxxxxxxx
> > Website: http://www.stjohns.ca/
> > 
> ______________________________________________________________
> _____________
> > Success is going from failure to failure without a loss of 
> enthusiasm. - 
> > Sir Winston Churchill
> > 
> > 
> > 
> > 
> > RPower@xxxxxxxxxx 
> > Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> > 02/02/2005 10:53 AM
> > Please respond to
> > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> > 
> > 
> > To
> > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> > cc
> > 
> > Subject
> > RE: Precision??
> > 
> > 
> > 
> > 
> > 
> > 
> > Thanks,
> > 
> > Ron Power
> > Programmer
> > Information Services
> > City Of St. John's, NL
> > P.O. Box 908
> > St. John's, NL
> > A1C 5M2
> > Tel: 709-576-8132
> > Email: rpower@xxxxxxxxxx
> > Website: http://www.stjohns.ca/
> > 
> ______________________________________________________________
> _____________
> > Success is going from failure to failure without a loss of 
> enthusiasm. - 
> > Sir Winston Churchill
> > 
> > 
> > 
> > 
> > "Barton, Mike" <Mike.Barton@xxxxxxxxxxxxxxxxx> 
> > Sent by: rpg400-l-bounces@xxxxxxxxxxxx
> > 02/02/2005 10:32 AM
> > Please respond to
> > RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
> > 
> > 
> > To
> > "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
> > cc
> > 
> > Subject
> > RE: Precision??
> > 
> > 
> > 
> > 
> > 
> > 
> > >I'm confused with how the precision works in RPG right 
> now?  I'm creating 
> > 
> > 
> > >a program to convert Miles Per Gallon, to Litres Per 100 
> Km, for my own 
> > >snip...
> > 
> > Ron
> >                  When using eval in calcs, best it you 
> specify an (r) 
> > In the extended op-code section (there is also an H-spec 
> > Level one) to Respect decimal places.
> > 
> > HTH 
> > 
> > Mike
> > ###########################################
> > 
> > This message has been scanned by F-Secure Anti-Virus for Microsoft 
> > Exchange.
> > For more information, connect to http://www.F-Secure.com/
> > 
> > 
> **********************************************************************
> > This communication and the information it contains: - (a) 
> Is intended for 
> > the person(s) or organisation(s) named above and for no 
> other person(s) or 
> > 
> > organisation(s). Access to this mail by anyone else is 
> unauthorised. (b) 
> > Is confidential, and may be legally privileged or otherwise 
> protected in 
> > law. Unauthorised use, circulation, copying or disclosure 
> of any part of 
> > this communication may be unlawful. (c) May be susceptible to 
> > interference, and should not be assumed that it has come in 
> its original 
> > form and/or from the stated sender or PinkRoccade UK accepts no 
> > responsibility for information, errors or omissions in this 
> e-mail or use 
> > or misuse thereof or any act done or omitted to be done in 
> connection with 
> > 
> > this communication. If you are not the intended recipient, 
> please inform 
> > postmaster@xxxxxxxxxxxxxxxxx immediately and delete it and 
> all copies from 
> > 
> > your system.
> > 
> > www.pinkroccade.co.uk
> > 
> **********************************************************************
> > 
> > -- 
> > 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.
> 
>