Re: Comparing two records of a file -- RPG400-L

Gopal,

Vincent is right about numerics not being a factor, even packed orbinary. He's method will work fine - if you're comparing the record 1 :2, record 3 :4, etc. If you want to compare record 1 :2, record 2 : 3,etc., you would have to code it a bit differently.

However, you never defined the basis on which you want to do thiscomparison. If you are comparing sequentially, either by key orarrival, a method like Vincent outlined would work. If it's a randomcompare based upon a criteria you haven't shown, then the access wouldbe different and may even mean defining with table twice in yourF-specs. More specifics might be helpful in this regard.



Thanks.


        * Jerry C. Adams
*iSeries/i5 Programmer/Analyst
B&W Wholesale Distributors, Inc.* *
voice
        615.893.8633x152
fax
        615.995.1201
email
        jerry@xxxxxxxxxxxxxxx <mailto:jerry@xxxxxxxxxxxxxxx>



Forbes, Vincent wrote:

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 NSI 1 10Key1I 11 256

Data1

I File2 NSI 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 2005http://mail.yahoo.com