Re: Scanning for numerics in a comment field

Steve,

It seems we're now getting into the realm of writing the program for
you.  There are plenty of consultants here who would be happy to do
that for a fee, but then you wouldn't learn much from that.

start here:
http://publib.boulder.ibm.com/infocenter/iseries/v5r3/index.jsp?topic=/books/c092508502.htm

look at these string handling built-in-functions:  %scan() and
%subst() - with these two bifs, you probably don't need to use array
processing.

there are plenty of looping techniques as well - look for the
operation codes DO / ENDDO or FOR / NEXT - both of which will be
adequate for looping until you've found the data you're scanning for.

Then, search the archives for examples of using these functions. 
there should be plenty there:

http://archive.midrange.com/rpg400-l/index.htm

I'm not trying to be an a** about this, but I think this is an
exercise that would strengthen your coding and logic skills and it
would be unfair for us to write it for you.

Rick

On 1/30/06, steema@xxxxxxxxxxxxx <steema@xxxxxxxxxxxxx> wrote:
> 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.
> >
> >
>
> --
> 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.
>
>