>>> create cursor parent ; >>> ( p_id I, ; >>> p_name c(32) ; >>> ) >>> >>> insert into parent values (1, 'Father Tom') >>> insert into parent values (2, 'Father Mike') >>> >>> create cursor Child ; >>> ( c_id I, ; >>> c_p_id I, ; >>> p_name c(30) ; >>> ) >>> >>> insert into Child values (1, 2, 'Daniel') >>> insert into Child values (2, 2, 'David') >>>>>>
>>> select * ; >>> from Parent ; >>> where ( exists ; >>> ( select 1 from Child where c_p_id == p_id ) ; >>> ) ; >>> into cursor ParentsWithChildren >>>>>>