RE: File Compare Routine

[Eric Kempter <eric.kempter@xxxxxxxxxxxxxxxxx>]

Peter,
        Thanks but this doesn't work.  I checked the compile.  The fields in 
the FILEB and in the DS4114 are identical - pre-fixed with a $, however, a read 
on FILEB does not populate the DS4114.  

Thank you,

Eric Kempter
*4107
* Eric.Kempter@robertmondavi.com



> -----Original Message-----
> From: Peter Dow [SMTP:pcdow@yahoo.com]
> Sent: Monday, January 17, 2000 4:27 PM
> To:   MIDRANGE-L@midrange.com
> Subject:      Re: File Compare Routine
> 
> In order for DS4114 to get populated, the field names have to match,
> including the prefix you added. Try putting a prefix on the FILEB F-spec.
> 
> 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: Monday, January 17, 2000 3:43 PM
> 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
> > +---
> 
> 
> __________________________________________________
> 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 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
+---