× 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: Q2CLE (was: "X-Spec")
  • From: "Goodbar, Loyd (AFS-Water Valley)" <LGoodbar@xxxxxxxxxxxxxx>
  • Date: Thu, 13 May 1999 14:41:48 -0400

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


As an Amazon Associate we earn from qualifying purchases.

This thread ...


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.