• Subject: Re: string to numeric?
  • From: Tim Truax <truax@xxxxxxxxx>
  • Date: Mon, 03 Nov 1997 19:09:05 -0500

>Rick wrote:
>Does anyone know of a built-in-function or operation code (RPGIV) to
>convert a string variable to a numeric?

Just do a little DO LOOP with this as the meat of the LOOP:
Using the CHECK Op code.

 *...1....+....2....+....3....+....4....+....5....+....6....+....7...
  I..............Namedconstant+++++++++C.........Fldnme......... ....
  I*
  I* After the following example, N=6 and the found indicator 90
  I* is on.  Because the start position is 2, the first nonnumeric
  I* character found is the '.'.
  I*
  I              '0123456789'          C         DIGITS
  *...1....+....2....+....3....+....4....+....5....+....6....+....7...
  CL0N01N02N03Factor1+++OpcdeFactor2+++ResultLenDHHiLoEqComments++++++
  C*
  C                     MOVE '$2000.'  SALARY
  C           DIGITS    CHECKSALARY:2  N              90


Straight out of the fabulous Softcopy CD's.
-- 
''''''''''''''''''''
:-Tim & Dana Truax-:
....................
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 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].