Re: File Compare Routine

Interesting. How about John Taylor's 2nd option - READ with DS4114 in the
result field?

----- Original Message -----
From: Eric Kempter <eric.kempter@RobertMondavi.com>
To: <MIDRANGE-L@midrange.com>
Sent: Monday, January 17, 2000 5:35 PM
Subject: RE: File Compare Routine


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


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