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


  • Subject: Re: Is there ROUND OFF Function in RPG/400?
  • From: Jerry Keppler <kepplerj@xxxxxxxxxxxxxxxxxxxxx>
  • Date: Thu, 27 Aug 1998 10:29:53 -0500
  • Organization: Pattonville School District

prakash subramanian wrote:
> 
> Sir,
> 
> I've got a program wherein, I want to calculate the rounded money value
> to the nearest currency(Rupee in India) value. Without much coding, is
> there any readily available opcode or utility for doing round off to the
> nearest value? Please help me, as I want to complete this application.

In RPG/400 place an H in Column 53 on the instruction you want to
round.  H means half adjust.  If you are prompting it, it will be the
field between the decimal positions and the Hi indicator.  It is marked
by H/N/P.

In RPGLE Place an H in parenthesis after the instruction.  For a
multiply instruction it would look like this.
 

     C     ABC           MULT(H)   DEF           GHI                    
 

-- 
___________________________________________________________
Jerry R. Keppler      Pattonville School District
Computer Programmer   11097 St. Charles Rock Road
(314) 213-8045 Voice  St. Ann, MO 63074-1509
(314) 213-8650 Fax    mailto:kepplerj@pattonville.k12.mo.us
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

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.