MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » May 1999

RE: Q2CLE (was: "X-Spec")


  • Subject: RE: Q2CLE (was: "X-Spec")
  • From: Joel Fritz <JFritz@xxxxxxxxxxxxxxxx>
  • Date: Thu, 13 May 1999 13:18:30 -0700

fixed

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






Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot 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 here. If you have questions about this, please contact