× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Thanks Jerry, I've been called worse things!  ;)

No, sadly there will be no foolproof answer to this question, except
for each possible instance being displayed to a human and wait for a
yes/no answer.

depending on volume, you might get something like the glass bird
dipping his beek into water (yes, yes, yes) like on that episode of
'the simpsons'

doh!

On 1/27/06, Jerry Adams <jerry@xxxxxxxxxxxxxxx> wrote:
> Rick,
>
> This is bloody brilliant!  For an insolvable problem it comes very, very
> close.
>
> In addition to the comments about using something other than '#' there
> is the problem that step #5 would retrieve '2107071,' (with the comma)
> as an invoice number.
>
> My guess is that these comments are entered by hand, not by an automated
> system.  Otherwise they would be standardized already.  The chances of
> getting a handle on a foolproof process seems impossible.
>
>        * Jerry C. Adams
> *iSeries Programmer/Analyst
> B&W Wholesale Distributors, Inc.* *
> voice
>        615.995.7024
> fax
>        615.995.1201
> email
>        jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>
>
>
>
> rick baird wrote:
>
> >wow, what a mess.
> >
> >I don't see a foolproof way, but try something like this.    I think
> >this will get you all of the examples you list EXCEPT for the one
> >listing 3 separated by commas.
> >
> >1. move description to a variable length workfield (larger than the original)
> >
> >2. %scan and %replace all instances of ' AND ' or ' & ' with 'INV#'
> >
> >3. %scan and %replace all spaces with #
> >
> >4. scan for 'INV'  tick through the rest of the description byte by
> >byte until you come apon a '#X' or '#0' through '#9'   you have now
> >found the first byte of your invoice.
> >
> >5. continue ticking till you find another #.  this is the end of your
> >invoice number.
> >
> >6. clear out these spaces from # to # and repeat steps 4 and 5. until
> >end of string reached.
> >
> >On 1/27/06, steema@xxxxxxxxxxxxx <steema@xxxxxxxxxxxxx> wrote:
> >
> >
> >>Well this is the picture. Don't ask why, but we get some info
> >>from abroad. They put invoice numbers in a comment field. The comment
> >>field can have normal comment info (not invoice number) but when there is
> >>the invoice there, I need to put this in some other work file.
> >>
> >>The len. of this comment field is 40.
> >>
> >>It is not uniform. The ways it is there are:
> >>
> >>INVOICE# XKC03J143L
> >>INVOICE # XTG05K023L
> >>INVOICE #   XSC06A016L
> >>INV# XKC03G091L
> >>INV. XTC05L053L
> >>INV 5400960
> >>INVOICES XTC05F008L AND XTC05F012L (in this case, I want to write 2 records)
> >>INVOICE XTC05F009L
> >>INVOICE #'S 2107071, 2107073 & 2107079
> >>INVOICE #'S XSC04H008L & XTC04H021L
> >>
> >>IN addition, there are several spelling mistakes on the word Invoice, but
> >>these are not my concern ( I was thinking how to take the file, run it in
> >>Microsoft spell check, perhaps someone has done this?).
> >>
> >>Any thoughts on the coding would be appreciated.
> >>
> >>Thanks,
> >>Steve
> >>
> >>INVOICES SHIPPED AFTER COST CHANGE (an example of a real comment)
> >>
> >>
> >>--
> >>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.
>
>


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.