× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Gopal

The internally described method will still work & it does not mater whether
the data is character or numeric.  It is just a string of data.  Printing it
out means that you would have to define the printed fields.

For one file you can...

Read file1
Temp1 = Data1
Read file1
If Data1 <> Temp1
Etc.

Or you can create a logical over the file & have it as file2.

\Vincent

 -----Original Message-----
From:   rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of gopal barnwal
Sent:   November 10, 2005 11:40 AM
To:     RPG programming on the AS400 / iSeries
Subject:        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

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.