RE: Comparing two records of a file

Thanks for the reply guys.

But I think there is some misunderstanding.  Actually
there is only one file and in that file two records
needs to be compared.  Please note that the fields of
the file are numeric in between.  I don't really want
to compare field by field and I am looking for
something better.

Please let me know if there is still any confusion.

Thanks,

Gopal

--- "Forbes, Vincent" <Vincent.Forbes@xxxxxxxx> wrote:

> Gopal
> 
> You can define the file as internally described &
> use the "I" specs like
> this.
> 
> Ffile1  IF  F     256    k   DISK
> Ffile2  IF  F     256    k   DISK
> 
> I File1   NS      
> I                                          1   10
> Key1 
> I                                        11 256
> Data1
> 
> I File2   NS      
> I                                          1   10
> Key2
> I                                        11 256
> Data2
> 
> Or you can define all the fields in a DS.
> 
> D Rec1    DS
> D   Field1
> ...
> D   Field200
> 
> 
> \Vincent
> 
>  -----Original Message-----
> From:         rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of gopal barnwal
> Sent: November 10, 2005 7:07 AM
> To:   RPG400-L@xxxxxxxxxxxx
> Subject:      Comparing two records of a file
> 
> Hi,
> 
> There is a scenario where I have to compare two set
> of
> records of a file which has got 200 fields.  Out of
> these 200 fields other than the key field if the
> value
> of any field is different then I have to print it. 
> Something like Rec1 is compared with Rec2 of FileA.
> It won't be wise to compare each field with a CASxx
> or
> IFxx in the RPG program for each field.  Is there a
> way where this can be done in a efficient way.
> 
> Early response will really be appreciated.
> 
> Thanks,
> 
> Gopal
> 
> 
>               
> __________________________________ 
> Start your day with Yahoo! - Make it your home page!
> 
> http://www.yahoo.com/r/hs
> -- 
> This is the RPG programming on the AS400 / iSeries
> (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit:
> http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the
> archives
> at http://archive.midrange.com/rpg400-l.
> -- 
> This is the RPG programming on the AS400 / iSeries
> (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit:
> http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the
> archives
> at http://archive.midrange.com/rpg400-l.
> 
> 



        
                
__________________________________ 
Yahoo! Mail - PC Magazine Editors' Choice 2005 
http://mail.yahoo.com