RE: Precision??

["Wilt, Charles" <CWilt@xxxxxxxxxxxx>]

How about.......

/free

  EVAL(r)  results = oprand1 * operand2;

/end-free


<grin>

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 RPower@xxxxxxxxxx
> Sent: Wednesday, February 09, 2005 2:48 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Precision??
> 
> 
> 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?
> 
> 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.
> 
>