RE: Matching Records

From: Ken Sims

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

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.

Teeny quibble... on the second case, you don't need to check *IN02. If
*INMR is off, then either *IN01 is on or *IN02 is on. If *INMR is off and
you've gotten to the second case, you know that *IN01 is off, so *IN02 must
be on.

(I still consider Boolean logic to be the coolest thing I ever learned.
Maybe that's why I am such a computer geek.)

Joe