Re: Extract number from character field

[Jim Langston <jlangston@xxxxxxxxxxxxxxxx>]

I don't believe so.  Or rather, I never have gotten a decimal data error
this way.

Regards,

Jim Langston

End of the Trail wrote:

> What happens to the blanks in the alpha field?  I believe you will get a
> data decimal error!
>
> -----Original Message-----
> From: Jim Langston <jlangston@conexfreight.com>
> To: MIDRANGE-L@midrange.com <MIDRANGE-L@midrange.com>
> Date: Monday, November 08, 1999 1:33 PM
> Subject: Re: Extract number from character field
>
> >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
> >
> >
> >
> >boldt@ca.ibm.com wrote:
> >
> >> Eurrat wrote:
> >> >If you are reading...  This is another plug for that %value function
> that
> >> I
> >> >have been asking for.  Something like the value statement of basic,
> return
> >> >any numbers that are in the char field.
> >> >
> >> >Just a friendly reminder, and to point out, that this is the third are
> >> forth
> >> >case that has been posted on the list in less than 3 months or so.
> >> >
> >>
> >> Yes, I'm reading.
> >>
> >> Have you written a procedure for extracting numbers from a
> >> character field?  If not, why not?  If so, when will you
> >> make that procedure available to other RPG programmers?
> >>
> >> Let's say we agreed that a %VALUE BIF would be useful in
> >> the language.  Considering current schedules and
> >> commitments, this new function won't be in the language
> >> for, say, another two years (more or less).  And it will
> >> be another two or three years before all of your systems
> >> are running that release, so chances are that you wouldn't
> >> get to use the new BIF for another five years!  But, if
> >> you wrote a procedure now to do this, and offered it to
> >> others, everyone could be doing this now.
> >>
> >> ...
> >>
> >> Or, you could learn Perl.  To get all numbers out of a
> >> character string, you could code that in Perl as:
> >>
> >>      @nums = $str =~ /\d+/g;
> >>
> >> Cheers!  Hans
> >
> >+---
> >| 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 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
+---