Indexing for Table Joins - Relational Database Index Design and the Optimizers - page 139

ProgramA:OuterTableCUST

SQL 8.3

DECLARE CURSORC CURSOR FOR Program A

SELECT CNO, CNAME, CTYPE

FROM CUST

WHERE CCTRY = :CCTRY

DECLARE CURSORI CURSOR FOR
SELECT INO, IEUR

FROM INVOICE

WHERE IEUR > :IEUR

AND
CNO = :CNO

OPEN CURSORC
FETCH CURSORC while CCTRY = :CCTRY

OPEN CURSORI
FETCH CURSORI while IEUR > :IEUR

CLOSE CURSORI
CLOSE CURSORC

SORT THE RESULT ROWS BY IEUR DESC

ProgramB:OuterTableINVOICE

SQL 8.4

DECLARE CURSORI CURSOR FOR Program B

SELECT CNO, INO, IEUR
FROM INVOICE
WHERE IEUR > :IEUR
ORDER BY IEUR DESC

OPEN CURSORI
DO

FETCH CURSORI while IEUR > :IEUR

SELECT CNAME, CTYPE

FROM CUST

WHERE CNO = :CNO

AND
CCTRY = :CCTRY

DO END
CLOSE CURSORI