|
Use two data structures with the fields you need to compare. Numeric fields work in data structures. A shortcut might be to define the data structures with the EXTNAME keyword. --------------------------------- Booth Martin http://www.martinvt.com --------------------------------- -------Original Message------- From: RPG programming on the AS400 / iSeries Date: 11/10/05 10:44:38 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 -- 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. .
As an Amazon Associate we earn from qualifying purchases.
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.