Пример возвращения курсора

TYPE tcursor IS REF CURSOR ;

PROCEDURE lst_link_sp
(
p_id IN udd.ud_id,
p_rs1 OUT tcursor
)
AS
BEGIN

if(p_id is NULL) then

OPEN p_rs1 FOR
SELECT link_id AS r_id ,
.....