|
This is why calculations involving money are usually done with binary coded decimal numbers.<g> -----Original Message----- From: Goodbar, Loyd (AFS-Water Valley) [mailto:LGoodbar@afs.bwauto.com] Sent: Thursday, May 13, 1999 11:42 AM To: 'MIDRANGE-L@midrange.com' Subject: RE: Q2CLE (was: "X-Spec") Uh, hmmm. I ran that program and got: Display Program Messages Job 362470/GOODBAR/QPADEV0020 started on 05/13/99 at 12:57:18 in subsystem Q DSPLY -123.45 = -123.449 I don't want the atof changing the value of my numbers, even if they are character! :) However, using C functions is worth investigating. Loyd > -----Original Message----- > From: dhandy@isgroup.net [SMTP:dhandy@isgroup.net] > Sent: Thursday, 13 May, 1999 11:53 AM > To: MIDRANGE-L@midrange.com > Subject: Re: Q2CLE (was: "X-Spec") > > Here is a sample program from Barbara Morris of the IBM Toronto Lab, > which should give you some ideas: > > H bnddir('QC2LE') > D atof pr 8f extproc('atof') > D ptr_to_char * value options(*string) > > D char s 10a inz('-123.45') > D num s 7p 3 > D msg s 52a > > C eval num = atof(%trimr(char)) > C eval msg = char + '=' + %editc(num:'N') > C msg dsply > C return > > Barbara Morris, IBM Toronto Lab, RPG Compiler Development > +--- | 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 +--- +--- | 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 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.