* В этом примере в трех таблицах находятся все вхождения, для которых
* значения первых полей совпадают. Это производится просмотром
* первой таблицы, которая связана со второй, которая, в свою очередь,
* связана с третьей. В первой таблице задается SET SKIP для остальных
* двух. Заметим, что задание SET SKIP во второй таблице не оказывает
* влияния. Это затрагивает только таблицы при поиске (замене и т.д.). В
* данном примере находятся восемь записей.

CLOSE DATABASES

CREATE TABLE Parent FREE (Name C(1), Val C(10))
&& The parent table has an a and b.

INSERT INTO Parent VALUES ('a', 'Parent.a1')

INSERT INTO Parent VALUES ('b', 'Parent.b1')

SELECT 0 && Child1 will have two a's and two b's

CREATE TABLE Child1 FREE (Name1 C(1), Val C(10))

INSERT INTO Child1 VALUES ('a', 'Child1.a1')

INSERT INTO Child1 VALUES ('b', 'Child1.b1')

INSERT INTO Child1 VALUES ('b', 'Child1.b2')

INSERT INTO Child1 VALUES ('a', 'Child1.a2')

INDEX ON Name1 TAG tagName && The tag name is irrelevant

SELECT 0 && Child2 will have two a's and two b's

CREATE TABLE Child2 FREE (Name2 C(1), Val C(10))

INSERT INTO Child2 VALUES ('b', 'Child1.b1')

INSERT INTO Child2 VALUES ('b', 'Child1.b2')

INSERT INTO Child2 VALUES ('a', 'Child1.a1')

INSERT INTO Child2 VALUES ('a', 'Child1.a2')

INDEX ON Name2 TAG tagName && The tag name is irrelevant

SELECT Child1

SET RELATION TO Name1 INTO Child2

SELECT Parent

SET RELATION TO Name INTO Child1

SET SKIP TO Child1, Child2 && Notice that the parent gets both skips.

&& Otherwise, only four record triplets would be listed.

SCAN ALL && There will be eight triplets: four a's and four b's

? Parent.Val, Child1.Val, Child2.Val

ENDSCAN