FaceitWeb.com

A volte nasce l’esigenza di utilizzare una funzione che ritorna un cursore. Basti pensare ad un package centralizzato che gestisce funzionalita’ comuni. Il problema nasce nel momento in cui si voglia fare manutenzione al package comune senza dover modificare chi lo utilizza. Come dobbiamo comportarci con i tipi? Come definiamo la variabile che contiene il cursore di ritorno dalla funzione se tale cursore e’ una join di piu’ tabelle (quindi non possimo fare nome_tabella%rowtype), puo’ variare (per evoluzioni/correzioni) ed e’ dentro una funzione (quindi non possimo fare nome_cursore%rowtype)?

La risposta in breve e’: basta definire un tipo che sara’ il tipo della variabile che conterra’ il cursore e lo stesso tipo sara’ il tipo di ritorno della funzione. Nello specifico:

nell’header del PACKAGE comune definiamo un tipo record:

TYPE ty_tipo_ritorno_rec IS RECORD (
nome       varchar2(100),
cognome    varchar2(100),
dt_nasc    date,
dt_ult_mod date
);

Quindi definiamo subito un’altro tipo che sara’ un cursore generico fatto pero’ come il record appena descritto sopra.

TYPE ty_cursore_ritorno IS REF CURSOR RETURN ty_tipo_ritorno_rec;

La funzione del package comune che ritorna il cursore sara’ cosi’ definita:

FUNCTION get_utente(p_cognome IN VARCHAR2)
RETURN ty_cursore_ritorno IS
/*variabile di ritorno*/
v_result ty_cursore_ritorno;
BEGIN
OPEN v_result FOR
SELECT
U.NOME
,U.COGNOME
,U.DT_NASC
,M.DT_ULT_MOD
FROM UTENTE U
,MODIFICHE M
WHERE U.ID_UTENTE = M.ID_UTENTE
AND U.COGNOME   = p_cognome;
RETURN v_result;
END;

Il package chiamante che utilizza la funzione definita sopra sara’ cosi’ fatto:

definiamo due variabili, una per il tipo cursore di ritorno e l’altra per

fare il fetch delle righe:

v_cursor     SCHEMA.NOME_PACKAGE_COMUNE.ty_cursore_ritorno;
v_cursor_rec SCHEMA.NOME_PACKAGE_COMUNE.ty_tipo_ritorno_rec;

quindi faremo:

v_cursor := SCHEMA.NOME_PACKAGE_COMUNE.get_utente('ROSSI');
LOOP
FETCH v_cursor INTO v_cursor_rec;
/*facciamo le operazioni che ci servono*/
dbms_output.put_line (v_cursor.nome);
EXIT WHEN v_cursor%NOTFOUND;
END LOOP;
CLOSE v_cursor;

Questo ci porta un notevole vantaggio: se il cursore del package comune viene ampliato per far fronte a nuove esigenze, al chiamante il cambiamento e’ trasparente.

L’unica cosa da fare per l’eventuale modifica del cursore e’ l’allineamento del tipo ty_tipo_ritorno_rec con i nuovi campi aggiunti/tolti.

Fonte: [Oracle] – Cursore come tipo di ritorno