• Subject: Re: File Compare Routine
  • From: "Peter Dow" <pcdow@xxxxxxxxx>
  • Date: Tue, 18 Jan 2000 14:00:30 -0800

Hi Eric,

Matching record does not require a record-to-record match. Use a
record-identifying indicator along with *INMR to determine whether the
records match or not. For example, if FILEA has ind.01 and FILEB has ind.02
then if 01 & MR are on, you are processing a record from FILEA that has a
matching record from FILEB; if 02 & MR are on, you are processing a record
from FILEB that has a matching record from FILEA.

If 01 is on and MR is off, that FILEA record does not have a match in FILEB.
And so on.

HTH

Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax

----- Original Message -----
From: Eric Kempter <eric.kempter@RobertMondavi.com>
To: <MIDRANGE-L@midrange.com>
Sent: Tuesday, January 18, 2000 9:30 AM
Subject: RE: File Compare Routine


> Booth,
> I must correct myself.  FILEA is a non-keyed physical file.  FILEB is a
keyed logical file.  They are the same in that the fields are identical in
both files.  So I read FILEA and us the FILEA fields as keys to do a on
FILEB which is successful but DS4114 does not get populated.
>
> I can't do a matching record program because it is not a record to record
match.  Record 1 in FILEA may be Record 37 in FILEB.
>
> Thank you,
>
> Eric Kempter
> *4107
> * Eric.Kempter@robertmondavi.com
>
>
>
> > -----Original Message-----
> > From: boothm@earth.Goddard.edu [SMTP:boothm@earth.Goddard.edu]
> > Sent: Tuesday, January 18, 2000 4:51 PM
> > To: MIDRANGE-L@midrange.com
> > Subject: Re: File Compare Routine
> >
> > Eric, you say the files are identical excepting for the data?  In that
> > case wouldn't the READE fail to retrieve data as there is no identical
> > data?  What happens if you use READ?
> >
> > May we assume the files are keyed in like fashion, too?  If so, for your
> > compare why not process the files with InputPrimary and InputSecondary
> > with MR on the key fields?  The files will then feed the records in from
> > the two files in key field sequence from the files.  Of course you can
get
> > fancier with the MR indicators but that would be a sort of heresy I
> > suppose.
> >
> > _______________________
> > Booth Martin
> > boothm@earth.goddard.edu
> > http://www.spy.net/~booth
> > _______________________
> >
> >
> >
> >
> > Eric Kempter <eric.kempter@RobertMondavi.com>
> > Sent by: owner-midrange-l@midrange.com
> > 01/17/2000 06:43 PM
> > Please respond to MIDRANGE-L
> >
> >
> >         To:     "'midrange-l@midrange.com'" <midrange-l@midrange.com>
> >         cc:
> >         Subject:        File Compare Routine
> >
> >
> > I am writing a file comparison routine to determine the differences
> > between two files.  The two files are identical with the exception of
the
> > data.  I am attempting to use external data structures.  FILEA is a
> > physical file, FILEB is a logical (over FILEX (which is not included in
> > the program)).  The data structures are described as follows:
> >
> > D DS4111        E DS                  EXTNAME(FILEA)
> > D DS4114        E DS                  EXTNAME(FILEB)
> > D                                            PREFIX($)
> >
> > FILE is read and DS4111 is populated.  I then do a SETLL and READE on
> > FILEB, the indicator signifies a match, but DS4114 never gets populated.
> >
> > I have scoured the manuals, but I do not see what the problem is.  Any
> > assistance is appeciated.
> >
> > Thank you,
> >
> > Eric Kempter
> > *4107
> > * Eric.Kempter@robertmondavi.com
> >
> >
> >
> > +---
> > | This is the Midrange System Mailing List!
> > | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> > | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> > | To unsubscribe from this list send email to
> > MIDRANGE-L-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator:
> > david@midrange.com
> > +---
> >
> >
> >
> >
> > +---
> > | This is the Midrange System Mailing List!
> > | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> > | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> > | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
> > | Questions should be directed to the list owner/operator:
david@midrange.com
> > +---
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---


__________________________________________________
Do You Yahoo!?
Talk to your friends online with Yahoo! Messenger.
http://im.yahoo.com

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---

This thread ...

Replies:

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

This mailing list archive is Copyright 1997-2019 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].