Re: Scanning for numerics in a comment field

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.

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.