Re: File Compare Routine

[Joe Teff <joeteff@xxxxxxxxxxxxx>]

Why don't you just use CMPPFM? It works fine on source, but also works
on any file. I use this for analyzing tests. Copy the file to a save
version, run my test and then compare the two files. That way I not
only check the records that should have been added, changed or deleted;
but I also verify nothing happened that shouldn't have.

Joe Teff

Eric Kempter wrote:
> 
> 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
+---