Re: Extract number from character field

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