RE: Matching Records

Joep,

You're missing another set of parentheses:

if not *inmr or
(*in02 and ((file1data1 <> file2data1) or
(file1data2 <> file2data2) or
(file1data3 <> file2data3) or
(file1data4 <> file2data4)));

-mark

At 11/7/07 10:50 AM, you wrote:

> From: Joep Beckeringh
>
> Actually it should be:
>
> if not *inmr or
> (*in02 and (file1data1 <> file2data1) or
> (file1data2 <> file2data2) or
> (file1data3 <> file2data3) or
> (file1data4 <> file2data4));
>
> Otherwise your program will fire for every record in the primary file.

Yup, you're right Joep. It has been a while <sheepish grin>. At 01NMR time
the secondary file hasn't been read yet. I don't know what I was thinking.
So you can only check for differences on the secondary record.


> In your example, which is very concise, I remember
> that you need to specify end of file processing on
> both the primary and secondary files or the program
> will end once all records are read from the primary
> file regardless if more records remain in the
> secondary file. So the file spec would be IPE for the
> primary and ISE for the secondary. Maybe someone else
> remembers this subtlety or has additional light to
> shine on the topic.

As Joep pointed out, when all the EOF fields are blank, all records are
processed. I tested it with my little program after adding data to the file
(and realizing that Joep was dead-on about adding the *IN02 qualification).

Joe