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


  1.  Home
  2. RPG400-L
  3. August 2009

EVAL(H) Question

I have the following instruction in my program:
Eval(H) Current_SRP_Value =                    
    Current_Base / (1 - (SRP_Value_Rate / 100));

ATTR current_srp_value                
TYPE = PACKED(9,2), LENGTH = 5 BYTES  
ATTR current_base                     
TYPE = PACKED(11,4), LENGTH = 6 BYTES 
ATTR srp_value_rate                   
TYPE = PACKED(5,2), LENGTH = 3 BYTES  

EVAL SRP_Value_Rate       
SRP_VALUE_RATE = 040.00   
EVAL Current_Base         
CURRENT_BASE = 0000002.7938

The result being returned is 4.00.
When using a calculator, I get the value 4.6563333333333333.

I would expect the result to be 4.66.

Do I need to specify Eval(RH) to get the desired result?
I am on V5R4.

Thanks,
Jeff Young
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions V5R2 
IBM  Certified Specialist- e(logo) server i5Series Technical Solutions Designer V5R3
IBM  Certified Specialist- e(logo)server i5Series Technical Solutions Implementer V5R3

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.