RE: File Compare Routine

[Eric Kempter <eric.kempter@xxxxxxxxxxxxxxxxx>]

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