Re: Matching Records

Hi Joe -

On Wed, 7 Nov 2007 10:42:24 -0600, "Joe Pluta"
<joepluta@xxxxxxxxxxxxxxxxx> wrote:

I think that's all the more reason to put all the comparison fields from
each file (if they're the same types and lengths) into a data structure for
that file and then compare the two data structures:

if (not *inmr) or (*in02 and (datads1 <> datads2)));

MUCH simpler.

I used data structures in the program that I made reference to
previously, and a select. The old snapshot is the primary file and
the new snapshot is the secondary file.

select
when *in01 and (not *inmr)
write a delete record to the interface file
when *in02 and (not *inmr)
write an add record to the interface file
when *in02 and (oldds <> newds)
write a change record to the interface file
endsl

If it's *in01 and *inmr, do nothing. The secondary record has to be
read before the comparison can be made.

If it's *in02 and *inmr and the data structures are identical, no
interface record is needed.

The third select doesn't need "and *inmr" because if the program
executes that when and *in02 is on, *inmr must of necessity be on.
Otherwise the second when would have been true and the third when
won't be checked.

Ken
Opinions expressed are my own and do not necessarily represent the views
of my employer or anyone in their right mind.