• Subject: Re: Extract number from character field
  • From: Jim Langston <jlangston@xxxxxxxxxxxxxxxx>
  • Date: Mon, 08 Nov 1999 11:20:36 -0800
  • Organization: Conex Global Logistics Services, Inc.

D                         DS
D NumberString                       14 A
D NumberHund                   12 14 A
D NumberThou                     8  10 A
D NumberMil                        4   6  A
D NumberBil                         1   3  A

D                           DS
D NumberValue                    1  12 0S
D NumberHund                   10 12   A
D NumberThou                     7   9    A
D NumberMil                        4   6    A
D NumberBil                         1   3    A

C*** SomeString = '123,456'
C               MOVER   SomeString      NumberString
C               EVAL        SomeNumber = NumberValue

Regards,

Jim Langston

Jeff Crosby wrote:

> From: Jim Langston <jlangston@conexfreight.com>
> > Actually, I've never found the need for a %value BIF, since all I have
> > to do is create a DS of type A and type S.  I move the number string
> > to the string variable, and pull the value out of the number variable.
> >
> > Although I agree a %value BIF would make things simpler, it is not
> > absolutely necessary.
> >
> > D                        DS
> > D NumberString                   15 A
> > D NumberValue                   15 S
> >
> > C*** NumberString contains '12345'
> > C                  EVAL NumberString = SomeString
> > C                  EVAL SomeNumber = NumberVal
> > C*** Now SomeNumber contains the value 12345
>
> But what if the source string was "12,435"?
>
> -Jeff
> jlcrosby@fwi.com
> Voice: 219-422-7531  Fax: 219-426-0212
>
> +---
> | 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
+---

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].