|
Rick Baird wrote: > > Kahn, David wrote: > > > > Here's a standard problem in data processing. We need to match 2 files which > > are read in ascending sequence by matching key and do not have duplicate > > field names. We need to have processing for unmatched records from FILEA, > .... > > OOOOOhhhhhhhh Boy, am I gonna get flack for this......<G> > > FFILEA IP AE K DISK > FFILEB IS AE K DISK > > IRECA 01 > I KEYA1 M1 > I KEYA2 M2 > IRECB 02 > I KEYB1 M1 > I KEYB2 M2 > > C SELEC > > C *INMR WHEQ *ON > C *IN02 ANDEQ*ON > C EXSR PRCAB > > C *INMR WHEQ *OFF > C *IN01 ANDEQ*ON > C EXSR PRCA > > C *INMR WHEQ *OFF > C *IN02 ANDEQ*ON > C EXSR PRCB > C ENDSL > > C PRCA BEGSR > * <.... Process unmatched A ....> > C ENDSR > * > C PRCB BEGSR > * <.... Process unmatched B ....> > C ENDSR > * > C PRCAB BEGSR > * <.... Process matched A,B ....> > C ENDSR > * > > I know, it isn't a DOW. Just thought I'd have a little fun. > Also, this wouldn't work if both files were to be updated. but a few > minor changes and it could work. Hey - I like it. Nice, short, to the point, and EASY to understand. AND - it must be structured code because I don't see a GOTO ! ;-) -- ... Neil Palmer AS/400~~~~~ ... NxTrend Technology - Canada ____________ ___ ~ ... Markham, Ontario, Canada |OOOOOOOOOO| ________ o|__||= ... Phone: (905) 731-9000 x238 |__________|_|______|_|______) ... url:http://www.nxtrend.com oo oo oo oo OOOo=o\ ... mailto:npalmer@nxtrend.com ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * This is the Midrange System Mailing List! To submit a new message, * * send your mail to "MIDRANGE-L@midrange.com". To unsubscribe from * * this list send email to MAJORDOMO@midrange.com and specify * * 'unsubscribe MIDRANGE-L' in the body of your message. Questions * * should be directed to the list owner / operator: david@midrange.com * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
As an Amazon Associate we earn from qualifying purchases.
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.