RE: Precision??

[Joel Cochran <jrc@xxxxxxxxxx>]

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.
>