easytrieve matching prog

[kitty_83]

Hi,

I have 3 files say File a, file b, file c. The requirement is to match file a and file b on 4 fields say p,q,r,s. The matched records should be matched with file c on p, q. here if the rec is not found... it should be written to error file. I implemented the below code after getting matched recs from file a and file b

DO WHILE NOT EOF file c
IF field p frm matched rec EQ field p on file c AND +
field q frm matched rec EQ field q on file c
write outfile
ELSE
write error file
END-IF
GET filec
END-DO

but the problem is with ELSE loop, records present only in FILE C are also written to error file. But i want only matched recs which donot have a corresponding record in file c to be written to error file. How do i achieve it??

[Natarajan]

Hi Kitty,

If file sorted on keys P and q fields, you can do this.

Let us assume, your file sorted ascending on P and q fields.
then you can implement below logic.

if field p frm matched rec < file p from on file c
GO out of do while loop.
end-if