Re: Extract number from character field

[Jim Langston <jlangston@xxxxxxxxxxxxxxxx>]

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