Re: Scanning for numerics in a comment field

[steema@xxxxxxxxxxxxx]

So I load 0-9 into an array (ARN)

Then the scan
is it

ARN SCAN COMMENT_FIELD

or do the ARN(I) 10 times?



> If I just would like all words, is that where you use
> FOR
> ENDFOR
>
> I would want everything bet. each blanks, every word.
>
> Rather than to do lookups. this is new to me.
>
>
>> OK This is really what is needed. If I can just take every word in the
>> comments, that is either only numbers, or a combo (alpha and numerals).
>>
>> Bec. invoices sometimes have letters in them.
>>
>> SO in your idea, I would have to load 26 letters and 0-9.
>>
>> But then I'll get other words.
>>
>> That may not be so bad already since this is used to chain against in a
>> later process. But for esthetics, I would be interested to do it more
>> correct.
>>
>>
>>> As I said, the method is old.  I am sure there are better ways today.
>>>
>>> Essentially,
>>> 1) define an array of 11 elements.  The elements are "#012356789"
>>> 2) define an array of 40 elements.
>>>
>>> Fill the 40 element array with the comment.  Use those elements, one at
>>> a time, to do a lookup in the 11 element.
>>>
>>> steema@xxxxxxxxxxxxx wrote:
>>>> 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.
>>>>>
>>>>>
>>>>
>>>
>>> --
>>> -----------------------------------
>>> 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.
>>>
>>>
>>
>> --
>> 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.
>>
>>
>
> --
> 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.
>
>