Re: Scanning for numerics in a comment field

Booth, I wasn't able to make use of your excellent idea. is the string to
be a CONSTANT?
I am coding it now the slow way, but can always change.

> The array that you would do your lookup against would be "#0123456789"
> then. Every time you read a '#' you would start a new record, and
> continue that record until you received a blank.
>
> steema@xxxxxxxxxxxxx wrote:
>> On further review, I need to look for the character # that follows
>> the word 'invoice', then take the string that follows this, as in this
>> case:
>> INVOICE # XKC02G146L
>>
>> that is the standard, then I can code for the deviant cases.
>>
>> if it is easier I guess I can just look for '#' and forget about
>> 'invoice'
>>
>>
>>> http://tinyurl.com/9ehns
>>>
>>> This is from 1998, so there are no doubt better ways today, but it
>>> shows
>>> a way to eliminate all of the characters except the ones you list in a
>>> constant.
>>>
>>> Essentially you can define a 40-element array of 1-character each.
>>> Then
>>>   do a for/endfor loop, reading and saving digits. When I find a digit
>>> I
>>> start a new record.  If i am reading digits and find anything but a
>>> digit, then the record is done.  That way I can have several invoice
>>> numbers per 40-char. comment.
>>>
>>>
>>>
>>> steema@xxxxxxxxxxxxx wrote:
>>>> On further relection, it is ok if there are 'wrong' invoice numbers in
>>>> this mix.
>>>> I have a comment field of 40 that will have some valid invoice
>>>> numbers,
>>>> and maybe non-valids like a phone number.
>>>>
>>>> I just want to wade through this 40 pos. field and pick up all
>>>> contiguous
>>>> numerics. I won't even be concerned about the X before it, I can add
>>>> this
>>>> if I want.
>>>>
>>>> The purpose here is to speed up a process by aggregating these invoice
>>>> numbers.
>>>>
>>>> I am seeking the most elegant and efficient way to do this.
>>>>
>>>> Thanks,
>>>> Steve
>>> --
>>> -----------------------------------
>>> Booth Martin
>>> http://martinvt.com
>>> -----------------------------------
>>> --
>>> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
>>> list
>>> To post a message email: RPG400-L@xxxxxxxxxxxx
>>> To subscribe, unsubscribe, or change list options,
>>> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
>>> or email: RPG400-L-request@xxxxxxxxxxxx
>>> Before posting, please take a moment to review the archives
>>> at http://archive.midrange.com/rpg400-l.
>>>
>>>
>>
>
> --
> -----------------------------------
> Booth Martin
> http://martinvt.com
> -----------------------------------
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>