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

["Goodbar, Loyd (AFS-Water Valley)" <LGoodbar@xxxxxxxxxxxxxx>]

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