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
+---