3 Plsql

I.E.S. TRASSIERRA Córdoba http://www.iestrassierra.com

APUNTES DE PL/SQL Etapa: Ciclo: Nivel: Módulo: Profesor:

Formación Profesional Específica. “Desarrollo de Aplicaciones Web”. Superior. “Bases de Datos”. Juan Carlos Pérez Jorge

INDICE: Tema 1.- PL/SQL ................................ ................ ................................ ................................ ................................ ................................ ................ 1 Tema 2.- Disparadores (Triggers) .............................. ............... ............................... ............................... ................... .... 27 Tema 3.- Procedimientos, Funciones y Paquetes ............................... ................ .......................... ........... 38

I.E.S. TRASSIERRA - Córdoba

PL/SQL

TEMA 1.- PL/SQL.-

1.1.- Introducción. 1.2.- El bloque PL/SQL. 1.3.- Tipos de datos, conversiones, ámbito y visibilidad. 1.4.- Zona de declaraciones: DECLARE. 1.4.1.- Declaración de variables y constantes. 1.4.2.- Declaración de registros. 1.4.3.- Declaración de cursores. 1.4.4.- Declaración de excepciones. 1.5.- Zona de proceso: BEGIN. 1.5.1.- Sentencias propias de PL/SQL. 1.5.2.- Sentencias DML. 1.5.3.- Sentencias transaccionales. 1.6.- Zona de excepciones: EXCEPTION. 1.6.1.- Control de errores. 1.6.2.- Excepciones predefinidas. 1.6.3.- Excepciones definidas por el usuario 1.6.4.- Ejecución de excepciones: RAISE 1.6.5.- SQLCODE.1.6.6.- SQLERRM.1.6.7.- Algunos ejemplos de tratamiento de excepciones.1.7.- Ejercicios. 1.7.1.- Ejercicios resueltos. 1.7.2.- Ejercicios propuestos.

1.1.- INTRODUCCIÓN.PL/SQL es un lenguaje de programación procedural estructurado en bloques que amplía el lenguaje estándar SQL, uniendo la potencia de éste, con la capacidad de los lenguajes de programación tradicionales. De esta forma, PL/SQL no sólo nos permite manipular los datos de la base de datos ORACLE, sino que dispone de técnicas procedurales como los bucles o el control condicional. Una de las mayores limitaciones del SQL es la imposibilidad de tratar de forma independiente las filas devueltas por una consulta. Esto se consigue con PL/SQL mediante el uso de cursores que ORACLE abre para ejecutar una sentencia SELECT. También nos permite controlar los errores que se pudieran producir (excepciones), como por ejemplo que una consulta no devuelva filas. Existen errores propios de Oracle (excepciones predefinidas) y errores que puede provocar y definir el usuario. El motor PL/SQL se encuentra en el Núcleo de Oracle (RDBMS)

Dep. Informática

1


PL/SQL

Por extensión al SQL, PL/SQL puede acceder a la base de Datos ORACLE porque soporta: • • • • •

Sentencias LMD de SQL (SELECT, INSERT, UPDATE, DELETE) Sentencias transaccionales (COMMIT, ROLLBACK, SAVEPOINT) Todas las funciones SQL (numéricas, de caracteres, de fechas, de grupos...) Todos los tipos de predicados (sentencia WHERE) Las propias sentencias de PL/SQL.

Además de la capacidad procedural, el soporte a SQL, y la integración con Oracle ya comentadas, PL/SQL presenta las siguientes ventajas:

1



Mejora del rendimiento. Sin PL/SQL, Oracle tendría que procesar las instrucciones una a una. Cada llamada produciría un overhead1 considerable, sobre todo si consideramos que estas consultas viajan a través de la red. Por el contrario, con PL/SQL, un bloque completo de sentencias puede ser enviado de una vez, lo que reduce la comunicación con la base de datos. Los procedimientos almacenados son compilados una vez y almacenados en la base en formato ejecutable, consiguiéndose mayor rapidez y eficiencia en las llamadas. Además, ya que los procedimientos almacenados se ejecutan en el propio servidor, el tráfico por la red se reduce a la simple llamada y el envío de los parámetros necesarios para su ejecución. El código ejecutable se almacena en caché y se comparte con todos los usuarios, lo que reduce los requerimientos de memoria y disminuye el overhead.



Portabilidad. Las aplicaciones escritas con PL/SQL son portables a cualquier sistema operativo y plataforma en la cual se encuentre corriendo Oracle. En otras palabras, PL/SQL corre dondequiera que se encuentre corriendo Oracle. Esto significa que se pueden codificar librerías que podrán ser reutilizadas en otros entornos.



Seguridad. Los procedimientos almacenados habilitan la división lógica entre cliente y servidor, de forma que se previene que se manipulen los datos desde el cliente. Además permite a los usuarios ejecutar solo aquellos procedimientos para los cuales tengan privilegios.

Información adjuntada a un aviso de la red para garantizar un envío correcto al destino

Dep. Informática

2


PL/SQL

1.2.- EL BLOQUE PL/SQL.PL/SQL es un lenguaje estructurado en bloques. Un bloque es un conjunto de sentencias procedurales y SQL. Un bloque PL/SQL consta de tres zonas:

Declaraciones: donde se definen las variables, cursores y excepciones de usuario que se necesiten. Proceso: donde se escriben todas las sentencias ejecutables. Excepciones: zona donde se define el control de errores.

DECLARE

Declaración de variables variables y ctes ; Declaración de cursores ; Declaración de excepciones ; BEGIN

Sentencias ejecutables ; EXCEPTION

Control de excepciones ; END ;

DECLARE .......... BEGIN .... DECLARE BEGIN .... EXCEPTION .... END ; ..... EXCEPTION ............ END ;

Los bloques PL/SQL se pueden anidar tanto en la zona BEGIN como en la EXCEPTION, pero no en la zona DECLARE, que es única para cada bloque. Cada bloque debe acabar con el carácter '/' como único de la última línea.

1.3.- TIPOS DE DATOS, CONVERSIONES, ÁMBITO Y VISIBILIDAD.1.3.1.- Tipos de datos.Cada constante y variable posee un tipo de dato el cual especifica su forma de almacenamiento, restricciones y rango de valores válidos. Con PL/SQL se proveen diferentes tipos de datos predefinidos. Un tipo escalar no tiene componentes internas. Un tipo compuesto tiene otras componentes internas que pueden ser manipuladas individualmente. Un tipo referencia almacena valores, llamados punteros, que designan a otros elementos de programa. Un tipo lob (large object) especifica la ubicación de un tipo especial de datos que se almacenan de manera diferente. En la siguiente figura se muestran los diferentes tipos de datos predefinidos.

Dep. Informática

3


PL/SQL

Tipos de datos de PL/SQL

Number.- Numérico. PL/SQL tiene predefinidos los siguientes subtipos: DEC DECIMAL NUMERIC DOUBLE PRECISION FLOAT REAL INTEGER INT SMALLINT

Números con punto fijo con precisión máxima de 38 dígitos decimales Números con punto flotante con precisión máxima de 38 dígitos decimales Números con punto flotante con precisión máxima de 18 dígitos decimales Números enteros con una precisión máxima de 38 dígitos

Binary_integer.- binario con desbordamiento a number. Usado para almacenar enteros con signo. PL/SQL tiene predefinidos los siguientes subtipos de binary_integer: NATURAL NATURALN POSITIVE POSITIVEN SIGNTYPE

No negativo. No negativo, no admite nulos. Positivo. Positivo, no admite nulos. -1, 0 y 1, usado en lógica trivaluada.

Pls_integer.- binario sin desbordamiento. Es más actualizado que su equivalente binary_integer, el cual se mantiene por razones de compatibilidad. Boléanos.- solo pueden tomar 3 valores TRUE, FALSE y NULL. Usados para lógica trivaluada. Dep. Informática

4


PL/SQL

1.3.2.- Conversiones.Además de las conversiones de tipo de datos realizadas explícitamente por las funciones de conversión, cuando se hace necesario, PL/SQL puede convertir un tipo de dato a otro en forma implícita. Esto significa que la interpretación que se dará a algún dato será la que mejor se adecue dependiendo del contexto en que se encuentre, por ejemplo cuando variables de tipo char se operan matemáticamente para obtener un resultado numérico. Si PL/SQL no puede decidir a qué tipos de dato de destino puede convertir una variable se generará un error de compilación. Hasta Desde BIN_INT CHAR DATE LONG NUMBER PLS_INT RAW ROWID VARCHAR2

BIN_INT CHAR DATE LONG NUMBER X X X X X

X X X X X X X X

X X X

X X

PLS_INT RAW ROWID VARCHAR2 X X

X

X

X

X

X X X

X X

X

X

X

X

X X X X X X X X

X

Tabla de conversiones implícitas

1.3.3.- Ámbito y visibilidad.Dentro de un programa, las referencias a un identificador son resueltas de acuerdo a su ámbito y visibilidad. El ámbito de un identificador (variable o constante) es aquella región de la unidad de programa (bloque, subprograma o paquete) en la que el identificador mantiene su valor sin perderlo. La visibilidad se refiere a las zonas en que se puede referenciar (usar). Los identificadores declarados en un bloque de PL/SQL se consideran locales al bloque y globales a todos sus sub-bloques anidados. Por eso un mismo identificador no puede declararse dos veces en un mismo bloque pero sí en varios bloques diferentes, cuantas veces se desee. La siguiente figura muestra el alcance y visibilidad de la variable x, la cual está declarada en dos bloques cerrados diferentes. Puede observarse que la variable más externa tiene un ámbito más amplio pero cuando es referenciada en el bloque en que se ha declarado otra variable con el mismo nombre, es esta última la que puede ser manipulada y no la primera.

Dep. Informática

5


PL/SQL

1.4.- ZONA DE DECLARACIONES.Es la parte del bloque PL/SQL utilizada cuando es necesario definir variables y/o constantes, cursores o excepciones. Es una zona opcional de forma que si no hacen falta declaraciones se omite la palabra reservada DECLARE.

DECLARE declaración_variables; declaración_cursores; declaración_excepciones;

Sintaxis:

La palabra reservada DECLARE, determina el comienzo de un bloque PL/SQL. Las definiciones realizadas en esta zona son declaraciones locales que solo se reconocerán en el bloque PL/SQL actual y en los bloques anidados que pudiese contener.

1.4.1.- Declaración de variables y constantes.Las variables se utilizan para guardar valores devueltos por una consulta o almacenar cálculos intermedios. Las constantes son campos que se definen y no alteran su valor durante el proceso. Sintaxis: Identificador [CONSTANT] [NOT NULL] [:= ]; dónde: Nombre de la variable o constante. Palabra reservada para la definición de constantes. [CONSTANT] Tipo de dato de la variable. tipo_de_dato identificador%TYPE Declara la variable o constante con el mismo tipo de dato que una variable definida anteriormente o que una columna de una tabla. Identificador es el nombre de la variable PL/SQL definida anteriormente, o el nombre de la tabla y la columna de la base de datos. Identiticador%ROWTYPE Este atributo declara una fila variable con campos con los mismos nombres y tipos que las columnas de una tabla o de una fila recuperada de un cursor. Al declarar una fila %ROWTYPE, no se admite ni la constante, ni la asignación de valores. Obliga a que siempre tenga valor. NOT NULL Asigna a la variable o constante el valor inicial como expresión_plsql / valor_constante resultado de una operación (expresión pl/sql) o con un valor constante. identificador

Ejemplos: varn_dept total respuesta var2 registro1 Dep. Informática

tdepto.numde%TYPE ; number(10,2):=0 ; char(1) ; varn_dept%TYPE ; dept%ROWTYPE ;

6


PL/SQL

1.4.2.- Declaración de registros.Los registros son grupos de variables que pueden recibir la información de un cursor. Se declaran según la siguiente sintaxis:

TYPE nombre_registro campo1 campo2 .... var nombre_registro;

IS RECORD ( tabla.columna%TYPE tabla.columna%TYPE ) ;

Ejemplo: TYPE reg IS RECORD ( empleado temple.nomem%TYPE salario temple.salar% TYPE r_empleado reg;

-- Declaración del tipo de dato reg ); -- Declaración de una variable de tipo reg

1.4.3.- Declaración de cursores.La declaración de un cursor le proporciona un nombre y le asocia una consulta (SELECT). El cursor es un área de trabajo que utiliza ORACLE para consultas que devuelven más de una fila, permitiendo la lectura y manipulación de cada una de ellas. Un cursor tiene tres componentes: La tabla de resultado obtenida al ejecutar la SELECT. •

•

Un orden establecido entre sus filas.

•

Un puntero que señala la posición sobre la tabla resultado.

Tipos de cursores: Estáticos Se declaran en la DECLARE con su cláusula SELECT asociada, y se abren, ejecutan y cierran en la zona BEGÍN. Pueden ser simples o parametrizados. Dinámicos La SELECT asociada al cursor no se especifica en la zona DECLARE, sino en BEGIN, con lo que el resultado de su ejecución es dinámico. Según se declare o no el registro que recibirá los datos de la SELECT, los cursores dinámicos pueden ser prefijados o no prefijados. 

Estático simple Un cursor estático simple se declara en la DECLARE con su cláusula SELECT y se abre, ejecuta y cierra en la zona BEGIN. Sintaxis:

CURSOR

nombre_cursor IS sentencia SELECT ;

Ejemplo: DECLARE CURSOR SELECT Dep. Informática

departa IS numde, nomde FROM tdepto ;

7




PL/SQL

Estático parametrizado Los cursores estáticos parametrizados permiten obtener con el mismo cursor diferentes resultados en función del valor que se le pase al parámetro. Su sintaxis es:

CURSOR nombre_cursor (nombre_parámetro tipo_parámetro) IS sentencia_SELECT_utilizando_los_parámtetros ; Los parámetros son variables únicamente de entrada, nunca para recuperación de datos. Estas variables son locales para el cursor y solo se referencian en la SELECT. Si se definen parámetros, éstos deben especificarse en la SELECT y se utilizan igual que si utilizásemos un valor constante. Al abrir el cursor se sustituyen los parámetros por los valores correspondientes. Ejemplo: ACCEPT valor PROMPT Departamento: DECLARE CURSOR empleados (dept_pl NUMBER) IS SELECT numem, nomem FROM temple WHERE numde = dept_pl ; .......... BEGIN OPEN empleados (&valor) ; -- Apertura del cursor y paso del parámetro

Si en cualquier cursor quisiéramos modificar las filas que nos devuelve, deberíamos añadir a la Select asociada al cursor la cláusula:

FOR UPDATE OF nombre_columna ; Ejemplo: DECLARE CURSOR



empleados IS SELECT numem, nomem FROM temple FOR UPDATE OF nomem ;

Dinámico no prefijado Los cursores dinámicos son aquellos que la SELECT no aparece en la zona DECLARE. En los no prefijados no se concreta la proyección de la SELECT . Sintaxis:

TYPE tipo_cursor IS REF CURSOR ; ... nombre_cursor tipo_cursor ;

Ejemplo: DECLARE TYPE CurEmp IS REF CURSOR .... C_emple1 CurEmp ;

Dep. Informática

-- Declaración del tipo de cursor -- Declaración de un cursor del tipo anterior

8

I.E.S. TRASSIERRA - Córdoba 

PL/SQL

Dinámico prefijado Los cursores dinámicos prefijados declaran el registro que va a recibir los datos del cursor con RETURN . Sintaxis:

TYPE tipo_cursor IS REF CURSOR RETURN tabla%ROWTYPE ; ... nombre_cursor tipo_cursor ;

Ejemplo: DECLARE TYPE .... Datos.emp

Datos IS REF CURSOR RETURN temple%ROWTYPE ; Datos ;

1.4.4.- Declaración de excepciones. Si vamos a utilizar excepciones definidas por el usuario, es necesario declararlas en la zona DECLARE. Las excepciones de usuario se declaran simplemente escribiendo la palabra EXCEPTION detrás del nombre asignado a la excepción que queramos definir: Sintaxis:

nombre_excepción EXCEPTION ;

El tratamiento de las excepciones, tanto las internas de Oracle como las de usuario, se realiza en la zona EXCEPTION, y lo veremos en el apartado 1.6.

1.5.- ZONA DE PROCESO: BEGIN.En esta zona del bloque PL/SQL se escriben todas las sentencias ejecutables. El comienzo del bloque PL/SQL se especifica con la palabra BEGIN. En el bloque se permiten: - Sentencias propias de PL/SQL. - Sentencias DML de SQL (SELECT, INSERT, UPDATE, DELETE) - Sentencias transaccionales (COMMIT, ROLLBACK, SAVEPOINT)

1.5.1.- Sentencias propias de PL/SQL.Las sentencias propias del lenguaje PL/SQL se agrupan en: Asignaciones Manejo de cursores EXIT Control condicional Bucles GOTO NULL Dep. Informática

9


PL/SQL

1.5.1.1.- Asignación.- La asignación de valores a una variable se hace con el operador ":=". Algunos ejemplos son: salario := 2251 ; comision := substr(cod_postal,2 ,3) ; aumento := salario * 0.1 ; total_sueldo := salario + aumento + comision ;

1.5.1.2.- Manejo de Cursores.- Los cursores que vayan a utilizarse deberán haber sido definidos en la zona DECLARE. Para poder realizar una lectura de todas las filas recuperadas en un cursor, es necesario realizar un bucle. Existen bucles ya predefinidos para recorrer cursores, aunque también se pueden utilizar bucles simples y hacer el recorrido de forma más controlada. Para el manejo de los cursores, podemos utilizar los siguientes atributos predefinidos: %NOTFOUND Devuelve TRUE si la última lectura falla porque no hay mas filas disponibles o FALSE si recupera una fila. Se utiliza para detectar el final y romper el bucle de lectura de un cursor. %FOUND Es lo contrario de %NOTFOUND %ROWCOUNT Devuelve el número de fila, procesada por el cursor.

%ISOPEN

Devuelve TRUE si el cursor esta abierto y FALSE si esta cerrado.

Para manejar un cursor primero hay que abrirlo (OPEN), luego leerlo (FETCH) y por último cerrarlo (CLOSE). •

Abrir el cursor: OPEN . La sentencia OPEN, evalúa la SELECT asociada al cursor y lo prepara para permitir su lectura. La sentencia OPEN, abre el cursor y ejecuta la consulta asociada a dicho cursor. Tipo de cursor

Sintaxis

cursor estático simple cursor estático parametrizado cursor dinámico

OPEN nombre_cursor ; OPEN nombre_cursor (parm1 [,parm2] .. ) ; OPEN nombre_cursor FOR sentencia_select ;

Los parámetros se pueden pasar posicionalmente: el primer parámetro sustituye al primero que espera el cursor y así sucesivamente, o por asociación de nombres: DECLARE CURSOR departamentos (dept_pl NUMBER, loc_pl CHAR) IS SELECT dept_no, dname, loc FROM dept WHERE dept_no = dept_pl and loc = loc_pl ; BEGIN OPEN departamentos (10, 'MADRID') ; OPEN departamentos (v_dept, v_loc) ; OPEN departamentos (loc_pl => 'MADRID', dept_pl => 10) ; OPEN departamentos (loc_pl => v_loc, dept_pl => v_dept) ;

Dep. Informática

10


•

PL/SQL

Leer el Cursor: FETCH . La sentencia FETCH, recupera la siguiente fila del cursor hasta detectar el final. Los datos recuperados deben almacenarse en variables o registros. 

Sintaxis para recuperación en variables:

FETCH nombre_cursor INTO var1 [,var2] ; Todas las variables que aparecen en la cláusula INTO deben haber sido definidas previamente en la zona de declaración de variables DECLARE. Será necesario tener tantas variables como columnas estemos recuperando en la SELECT asociada al cursor. La recuperación es posicional, es decir la primera columna seleccionada se almacenará en la primera variable, la segunda en la segunda, y así sucesivamente, por lo tanto, los tipos de las variables deberán ser compatibles con los valores de las columnas que van a almacenar. 

Sintaxis para recuperación en registro:

FETCH nombre_cursor INTO nombre_registro ; Es la sintaxis más usada debido a la facilidad para declarar el registro en la zona DECLARE con la opción de atributo %ROWTYPE/. En la zona BEGIN, y mientras el cursor esté abierto, las columnas del cursor pueden utilizarse haciendo referencia al nombre del registro, del que son variables miembro. En el supuesto del párrafo anterior, y caso de que la select asociada al cursor tenga columnas con expresiones distintas a nombres de columna (SUM(salar), por ejemplo), deberán usarse alias de columna, por cuyo nombre serán referenciadas. Ejemplo: DECLARE CURSOR curdep IS SELECT numde, nomde, presu FROM tdepto ; reg_dept curdep%ROWTYPE ; BEGIN FETCH curdep INTO reg_dept ; IF reg_dep.numde < 150 THEN ... •

Cerrar el Cursor: CLOSE . La sentencia CLOSE cierra el cursor. Una vez cerrado no se puede volver a leer (FETCH), pero si se puede volver a abrir. Cualquier operación que se intenta realizar con un cursor que esta cerrado, provoca la excepción predefinida INVALID_CURSOR. Su sintaxis es: CLOSE Ejemplo:

nombre_cursor ;

CLOSE curdep;

1.5.1.3.- EXIT.EXIT nos permite salir de un bucle de forma radical o evaluando una condición. Su sintaxis es: EXIT [nombre_bucle] [WHEN condición] ; Si se omite el nombre del bucle sale del bucle actual. Si se especifica WHEN, solo sale si se cumple la condición. Si se omiten ambos, sale del bucle actual incondicionalmente. Dep. Informática

11


PL/SQL

1.5.1.4.- Control condicional. Permite ejecutar una o varias sentencias dependiendo de una condición. Su sintaxis es: IF [ELSIF [ELSE END IF ;

condición THEN sentencias ; condición THEN sentencias ;] sentencias ;]

La condición puede ser cualquier expresión PL/SQL de comparación. Al procesar la sentencia, se evalúan una a una todas las condiciones por orden empezando por la que le sigue a la palabra IF. Si alguna de las condiciones se cumple, se ejecutan las sentencias especificadas y se pasa a la siguiente instrucción tras END IF . Si no se cumple ninguna condición, pero existe un ELSE, se ejecutan las sentencias siguientes al ELSE, si no es así, no se ejecuta ninguna sentencia. Sólo una secuencia de sentencias se ejecuta al procesar una instrucción IF. Ejemplos:

IF tipo = 1 ELSIF tipo = 2 ELSE END IF ;

THEN sal := sal * 0.01 ; THEN sal := sal * 0.02 ; sal := sal * 0.03 ;

1.5.1.5.- Bucles. Existen 5 tipos de bucles:      

Bucles básicos Bucles condicionales (WHILE) Bucles numéricos (FOR) Bucles sobre cursores Bucles para una SELECT

Bucles Básicos. Son bucles infinitos que responden a la siguiente sintaxis: LOOP

sentencias ; END LOOP ; Para romper el bucle (salir de él) deberemos utilizar EXIT, GOTO o RAISE. Ejemplo: LOOP FETCH cursor_cl INTO registro ; EXIT WHEN cursor_cl%NOTFOUND ; END LOOP ; 

Bucles Condicionales (WHILE). La condición se evalúa antes de cada entrada al bucle. Si la condición se cumple se ejecutan las sentencias, y si no es así, se pasa el control a la sentencia siguiente al final del bucle. Su sintaxis es: WHILE condición LOOP sentencias; END LOOP;

Dep. Informática

12


PL/SQL

Ejemplo: WHILE



a>0 LOOP a := a - 1 ; END LOOP ;

Bucles Numéricos (FOR). Son bucles que se ejecutan una vez para cada elemento definido dentro del rango numérico. Su sintaxis es: FOR índice IN [REVERSE] exp_n1 .. exp_n2 LOOP Sentencias ; END LOOP ; es la variable numérica de control del bucle, comienza con el valor de exp_n1 y se va incrementando de 1 en 1 hasta el valor de exp_n2. realiza la cuenta al revés, desde exp_n2 hasta exp_n1. REVERSE exp_n1, exp_n2 pueden ser valores constantes o cualquier expresión numérica. índice

Ejemplo: FOR x IN 1 .. 10 LOOP valor:= valor + x ; END LOOP ; 

Bucles sobre Cursores. Son bucles que se ejecutan para cada fila que recupera el cursor. Cuando se inicia un bucle sobre un cursor automáticamente se realizan los siguientes pasos: - Se declara implícitamente el registro especificado como nombre_cursor%ROWTYPE. - Se abre el cursor. - Se realiza la lectura y se ejecutan las sentencias del bucle hasta que no hay mas filas. - Se cierra el cursor. Sintaxis:

FOR nombre_registro IN nombre_cursor LOOP Sentencias ; END LOOP ;

La variable de control del bucle se incrementa automáticamente y no es necesario inicializarla, pues lo está implícitamente como variable local de tipo integer. El ámbito del contador es el bucle y no puede accederse a su valor fuera de él. Dentro del bucle, el contador puede referenciarse como una constante pero no se le puede asignar un valor. También le podemos pasar parámetros al cursor, tal y como se indicó en el apartado de manejo de cursores. En este caso los parámetros se indican entre paréntesis tras el nombre del cursor: FOR nombre_registro IN nombre_cursor(lista_de_parametros) ....... Si se sale del bucle prematuramente (p.e. con EXIT), o se detecta un error (excepción), el cursor se cierra. Dep. Informática

13


PL/SQL

Ejemplo: DECLARE CURSOR curdep IS SELECT numde, nomde FROM tdepto; reg_dept curdep%ROWTYPE ;

-- (*)

BEGIN FOR reg_dept IN curdep LOOP ......; END LOOP; (*) Esta sentencia sobra, pues es declarada implícitamente por este tipo de bucle. 

Bucles para Sentencias SELECT. Es el mismo concepto que el del cursor, excepto que en vez de declarar un cursor con su SELECT, se escribe directamente la sentencia SELECT y Oracle utiliza un cursor interno para hacer la declaración. Su sintaxis es: FOR nombre_registro IN sentencia_SELECT LOOP sentencias ; END LOOP ; Si se sale del bucle prematuramente, o se detecta un error, el cursor se cierra. Hay que resaltar que las columnas del cursor no pueden ser usadas con fuera de estos dos últimos bucles, ya que cierran automáticamente el cursor que tratan. Ejemplo: FOR registro IN SELECT numde FROM tdepto LOOP sentencias ; END LOOP ;

1.5.1.6.- GOTO. Esta sentencia transfiere el control a la sentencia o bloque PL/SQL siguiente a la etiqueta indicada. Su sintaxis es: GOTO etiqueta; La etiqueta se especifica entre los símbolos “<<” y “>>”, por ejemplo: GOTO A ..... <>

La sentencia GOTO puede ir a otra parte del bloque o aun sub-bloque, pero nunca podrá ir a la zona de excepciones. La sentencia siguiente a una etiqueta debe ser ejecutable. En caso de no existir, por ejemplo por ser el final del programa, se puede utilizar la sentencia NULL.

1.5.1.7.- NULL. Significa inacción. El único objeto que tiene es pasar el control a la siguiente sentencia. Su sintaxis es: NULL Ejemplo: IF tipo = 1 THEN vsal := vsal * 0.01 ELSE NULL; END IF; Dep. Informática

14


PL/SQL

1.5.2. Sentencias DML Oracle abre un cursor implícito (no definido por el usuario) por cada sentencia SQL que tenga que procesar. PL/SQL nos permite referimos al cursor implícito mas reciente como "SQL%". Estos cursores los maneja Oracle, por lo que no se pueden abrir, leer o cerrar, pero si podemos utilizar algunos atributos que nos dan información sobre la ejecución de la sentencia SQL (INSERT, UPDATE, DELETE, SELECT) para la que se haya abierto. Estos atributos son:

%NOTFOUND Devuelve TRUE si un INSERT, UPDATE o DELETE no ha procesado ninguna fila o si la SELECT no recupera nada. En este último caso se provoca la excepción predefinida NO_DATA_FOUND %FOUND

Devuelve TRUE si un INSERT, UPDATE o DELETE ha procesado alguna fila o una SELECT recupera datos

%ROWCOUNT Devuelve el número de filas procesadas por un INSERT, UPDATE o DELETE o las recuperadas por una SELECT . 1.5.2.1.- SELECT. La sentencia SELECT recupera valores de la Base de Datos que serán almacenados en variables PL/SQL. La sintaxis completa de la SELECT ya se estudió en la parte de SQL, la única variante en programación es la opción INTO que permite almacenar los valores recuperados en variables. Para poder recuperar valores en variables, la consulta sólo debe devolver una fila (no funciona con predicados de grupo). Su sintaxis es:

SELECT FROM

{* / col1 [,coI2] } INTO {reg / var1 [,var2] } tabla resto_de_la_select ;

Las excepciones predefinidas más comunes son: A.- Si la consulta no devuelve ninguna fila: Se produce la excepción predefinida NO_DATA_FOUND El error Oracle (SQLCODE) ORA-01403 El mensaje de error (SQLERRM) "no data found" SQL%NOTFOUND es TRUE SQL%FOUND es FALSE SQL%ROWCOUNT es 0 B.- Si la consulta devuelve más de una fila: Se produce la excepción predefinida TOO_MANY _ROWS El error Oracle (SQLCODE) ORA-O1422 El mensaje de error (SQLEERM) 'single-row query returns more than one row" SQL%NOTFOUND es FALSE SQL%FOUND es TRUE SQL%ROWCOUNT es 1 (solo puede devolver 0 o 1 fila) Dep. Informática

15


PL/SQL

1.5.2.2.- INSERT. INSERT crea filas en la tabla o vista especificada. Su sintaxis es idéntica a la de SQL. Se puede realizar el INSERT con valores de las variables PL/SQL o con los datos de una SELECT. En este caso hay que tener en cuenta que ésta última no lleva cláusula INTO. En ambos casos el número de columnas a insertar deberá ser igual al número de valores y/o variables o a las columnas especificadas en la SELECT. En caso de omitir las columnas de la tabla en la que vamos a insertar, se deberán especificar valores para todas las columnas de la tabla y en el mismo orden en el que esta haya sido creada. Su sintaxis es la misma de SQL:

INSERT INTO tabla [ (col1 [,col2] .....) ] { VALUES (exp1 [,exp2]..... ) / Sentencia_Select }; VALUES Sentencia_Select

permite insertar una tupla indicando expresiones constantes o variables. permite insertar varias tuplas a la vez.

Si no se inserta ninguna fila los atributos devuelven los siguientes valores: SQL%NOTFOUND es TRUE SQL%FOUND es FALSE SQL%ROWCOUNT es 0 Si se dan de alta una o mas filas los atributos devuelven los siguientes valores: SQL%NOTFOUND es FALSE SQL%FOUND es TRUE SQL%ROWCOUNT es número de filas insertadas Ejemplo: DECLARE x number(2) := 80; y char(14) := 'INFORMATICA'; c char(13) := 'MADRID'; BEGIN INSERT INTO dept (loc, dep_no, dname) VALUES (c, x, y); x := 90; y := 'PERSONAL' c := 'MALAGA' INSERT INTO dept (loc, dep_no, dname) VALUES (c, x, y); INSERT INTO dept (loc, dep_no, dname) VALUES (92, 'ADMINISTRACION', 'SEVILLA') ; END;

Dep. Informática

16


PL/SQL

1.5.2.3.- UPDATE La sentencia UPDA TE permite modificar los datos almacenados en las tablas o vistas. Sintaxis:

UPDATE tabla SET columna = { sentencia select / expresión_plsql / constante / variable_plsql } [ WHERE { condición / CURRENT OF nombre_cursor} ] ;

La cláusula WHERE CURRENT OF debe ser utilizada después de haber realizado la lectura del cursor que debe haber sido definido con la opción FOR UPDATE OF. Esta cláusula no es admitida en cursores cuya select utilice varias tablas (obtenidos con select con yunción). Si no se actualiza ninguna fila los atributos devuelven los siguientes valores: SQL%NOTFOUND es TRUE SQL %FOUND es FALSE SQL %ROWCOUNT es 0 Si se actualizan una o más filas los atributos devuelven los siguientes valores: SQL %NOTFOUND es FALSE SQL%FOUND es TRUE SQL%ROWCOUNT el número de filas actualizadas Ejemplo: UPDATE temple SET salar = salar * 0.1 WHERE numde = 110 ;

1.5.2.4.- DELETE. La sentencia DELETE permite borrar filas de la tabla o vista especificada. Sintaxis:

DELETE

[ FROM] [ WHERE

tabla {condición / CURRENT OF nombre_cursor} ] ;

Al igual que con UPDATE, la cláusula WHERE CURRENT OF debe ser utilizada después de haber leído el cursor que debe haber sido definido con la opción FOR UPDATE OF. Si no se borra ninguna fila los atributos devuelven los siguientes valores: SQL%NOTFOUND es TRUE SQL%FOUND es FALSE SQL%ROWCOUNT es 0

Dep. Informática

17


PL/SQL

Si se borran una o más filas los atributos devuelven los siguientes valores: SQL%NOTFOUND es FALSE SQL%FOUND es TRUE SQL%ROWCOUNT es número de filas borradas Ejemplo: DELETE WHERE

FROM temple numde = 110;

1.5.3. Sentencias transaccionales Como sabemos, una transacción o Unidad Lógica de Trabajo (ULT) es una secuencia de operaciones de actualización que forman un todo, de forma que o se ejecutan todas o no se ejecuta ninguna, debiendo dejar la base de datos en estado coherente. Una transacción comienza en la primera sentencia SQL tras: una sentencia COMMIT, una sentencia ROLLBACK o una conexión a la base de datos. Una transacción termina con: una sentencia COMMIT, una sentencia ROLLBACK o una desconexión, intencionada o no, a la base de datos. El SGBD realiza un COMMIT implícito antes de ejecutar cualquier sentencia de LDD (create, alter, ..) o al realizar una desconexión que no haya sido precedida de un error. A continuación veremos las sentencias SQL que permiten gestionar explícitamente las transacciones:

1.5.3.1.- SAVEPOINT. Los puntos de salvaguarda son marcas que va poniendo el usuario durante la transacción. Estas marcas permiten deshacer los cambios por partes en vez de deshacer toda la transacción. Sintaxis:

SAVEPOINT ;

Los nombres de los puntos de salvaguarda pueden reutilizarse durante la transacción. Al reutilizarlo el anterior punto se pierde. Al ejecutar un ROLLBACK sin parámetros o un COMMIT, se eliminan todos los puntos de salvaguarda. ROLLBACK TO hace que solo se borren los puntos posteriores al indicado. Así, por ejemplo: INSERT INTO ... SAVEPOINT A; DELETE ... ROLLBACK TO SAVEPOINT A;

deshace solo el borrado, permaneciendo pendiente la inserción realizada con INSERT .

Dep. Informática

18


PL/SQL

1.5.3.2.- COMMIT. Señala el final de una transacción y el principio de otra indicándole al sistema que se deben validar los cambios que se produjeron desde el principio de la transacción que se da por concluida, haciéndolos visibles para los demás usuarios. Su sintaxis es:

COMMIT [WORK] ; La palabra reservada WORK es opcional, y no tiene ninguna trascendencia. Al hacer un COMMIT, se liberan todos los SAVEPOINT indicados hasta el momento. Si se hace el COMMIT cuando tenemos abierto un cursor declarado con la opción FOR UPDATE OF, el siguiente FETCH provoca un error, por lo que se debe cerrar el cursor.

1.5.3.3.- ROLLBACK. Señala el final de una transacción y el principio de otra indicándole al sistema que se deben restaurar el estado de la base de datos tal y como estaba al comenzar la transacción, es decir, deshace todos los cambios pendientes de validación de la transacción actual. Su sintaxis es:

ROLLBACK [WORK] [TO SAVEPOINT punto_salvaguarda] ; WORK es

opcional, y no tiene ninguna trascendencia. TO SAVEPOINT punto_salvaguarda deshace sólo los cambios efectuados desde el punto de salvaguarda indicado.

1.5.3.4.- SET TRANSACTION READ ONLY. Permite establecer una transacción de solo lectura Sintaxis:

SET TRANSACTION READ ONLY ;

Una vez especificado este comando, las siguientes consultas que se realicen, solo verán los cambios efectuados antes de que comenzase la transacción. SQL*Plus dispone de un comando para controlar las validaciones de forma automática. Su sintaxis es: SET AUTOCOMMIT ON/OFF Si se especifica ON los cambios se validarán automáticamente después de cada operación de actualización de datos. La opción por defecto es OFF y permite que sea el usuario el que controle la validación de los cambios con los comandos anteriores. Las sentencias del LMD y la desconexión de Oracle llevan implícita una validación (commit). Si se produce la caída del sistema o la terminación anormal de una aplicación, se llevará a cabo una restauración automática, mediante la consulta al fichero diario o log. Oracle almacena temporalmente, en los llamados segmentos de rollback , la información necesaria para deshacer los cambios si se ejecuta un ROLLBACK y dejar la información en estado consistente. Dep. Informática

19


PL/SQL

Puede comprobarse que el propietario de la tabla modificada, tiene constancia al instante de las modificaciones que se produzcan. Bastará hacer una consulta y observar el nuevo valor. El DBA Studio es una herramienta del Administrador de la Base de Datos, por lo que al abrir una tabla nos da la visión que de la misma tiene aquél. Si accedemos a una tabla con el DBA Studio, no apreciaremos los cambios hasta que se cierre la sesión del usuario (nos conectemos como otro usuario o salgamos de SQL, por ejemplo), o se ejecute el comando COMMIT.

1.6.- ZONA DE EXCEPCIONES: EXCEPTION.La zona de excepciones es la última parte del bloque PL/SQL y en ella se realiza la gestión y el control de errores. Con las excepciones ser pueden manejar los errores cómodamente sin necesidad de mantener múltiples chequeos por cada sentencia escrita. También provee claridad en el código ya que permite mantener las rutinas correspondientes al tratamiento de los errores en forma separada de la lógica del negocio. Sintaxis:

EXCEPTION control_de_errores ;

Sólo se activa un error de todos los definidos en dicha zona. La zona EXCEPTION termina cuando se detecta la palabra reservada END (fin de la zona y fin del bloque PL/SQL). La ejecución de las sentencias asignadas a un error se produce:

Automáticamente Oracle detecta un error, para el proceso y pasa el control a la zona EXCEPTION, buscando si existe tratamiento al error detectado. Manualmente En el proceso llega un punto en el que nos interesa realizar lo mismo que si se hubiese detectado un error y ejecutamos la excepción. La zona EXCEPTION es opcional y se puede omitir. En este caso, si se detecta algún error, el bloque PL/SQL termina incorrectamente, terminando el proceso y devolviendo el control al punto de partida. Existen dos variables para poder recuperar los errores Oracle que se pueden producir: SQLCODE y SQLERRM.

1.6.1.- Control de errores. Cuando en el proceso se detecta un error, el proceso se para, pasando el control a la zona EXCEPTION. Sintaxis:

WHEN nombre_excepción THEN sentencias ;

nombre_excepción sentencias Dep. Informática

es el nombre de la que se quiere controlar (predefinida o de usuario). es el conjunto de sentencias que se ejecutan si se produce el error.

20


PL/SQL

1.6.2.- Excepciones predefinidas. En Oracle existen las siguientes excepciones predefinidas: Nombre de excepción CURSOR_ALREADY_OPEN DUP_VAL_ON_INDEX INVALID_CURSOR INVALID_NUMBER LOGIN_DENIED NO_DATA_FOUND NOT_LOGGED_ON PROGRAM_ERROR STORAGE_ERROR TIMEOUT_ON_RESOURCE TOO_MANY_ROWS VALUE_ERROR ZERO_DIVIDE OTHERS

Tipo de error indicado Cursor abierto previamente Valor duplicado en índice Cursor no válido Número no válido Denegada la conexión a Oracle La consulta no recupera ninguna fila No conectado a Oracle Problema interno Fuera de memoria o error de memoria Exceso de recursos consumidos La consulta devuelve más de una fila Valor incorrecto División por cero Cualquier otro error no especificado

SQLCODE -6511 -1 -1001 -1722 -1017 +100 -1012 -6501 -6500 -51 -1422 -6502 -1476

1.6.3.- Excepciones definidas por el usuario Existen dos tipos de excepciones a definir por los usuarios y son: 

Basadas en errores ORACLE (EXCEPTION INIT).Asigna un nombre a un error ORACLE existente. Sintaxis: PRAGMA EXCEPTION_INIT (nombre_excepción, -número_error) nombre_excepción número_error

Deberá estar definida como excepción de usuario. Es el numero del error Oracle que se desea controlar (el que nos devuelve el SQLCODE).

La definición se realiza en la zona del DECLARE y el control de la excepción en la zona EXCEPTION. Solo debe haber una excepción por cada error Oracle. 

Otras excepciones. Se trata de un control de errores para el usuario. Este tipo de excepciones se deben declarar según vimos en el apartado de DECLARE. Una vez declarada la excepción, la podemos provocar cuando sea necesario utilizando la función RAISE que se detalla a continuación. El tratamiento dentro de la zona de excepciones es exactamente igual que el de una excepción predefinida. Sintaxis: DECLARE A EXCEPTION; BEGIN RAISE A; EXCEPTION WHEN A THEN .... ; END;

Dep. Informática

21


PL/SQL

1.6.4. - Ejecución de excepciones: RAISE Para la ejecución del bloque PL/SQL y pasa el control a la zona de excepciones. Sintaxis:

RAISE

nombre_excepción

El nombre_excepción es el nombre de la excepción que se desea ejecutar, pueden ser excepciones predefinidas o excepciones de usuario. Ejemplo:

DECLARE error EXCEPTION; BEGIN RAISE error; RAISE TOO_MANY _ROWS; EXCEPTION WHEN error THEN ...; WHEN TOO_MANY _ROWS THEN ... ; END;

1.6.5.- SQLCODE.La función SQLCODE nos devuelve el número del error que se ha producido. Sólo tiene valor cuando ocurre un error Oracle. Esta función solo se habilita en la zona de Excepciones, ya que es el único sitio donde se pueden controlan los errores. No se puede utilizar directamente, pero si se puede guardar su valor en una variable.

1.6.6.- SQLERRM.La función SQLERRM devuelve el mensaje del error del valor actual del SQLCODE. Al igual que SQLCODE, no se puede utilizar directamente, sino que debemos declarar una variable alfanumérica lo suficientemente grande para contener el mensaje de error.

1.6.7.- Algunos ejemplos de tratamiento de excepciones.1.- Excepciones predefinidas. EXCEPTION WHEN zero_divide THEN Rollback; WHEN value_error THEN INSERT INTO errores VALUES… Commit; WHEN others THEN NULL; END;

Dep. Informática

22


PL/SQL

2.- Excepción de usuario. DECLARE emp_sal temple.salar%TYPE; emp_no temple.numem%TYPE; salario_muy_alto EXCEPTION; BEGIN SELECT numem, salar INTO emp_no, emp_sal FROM temple WHERE nomem = 'DURAN, LIVIA'; IF emp_sal * 1.05 > 4000 THEN RAISE salario_muy_alto ELSE UPDATE temple SET..... END IF; EXCEPTION WHEN NO_DATA_FOUND THEN ROLLBACK; WHEN salario_muy_alto THEN INSERT INTO emp_alto_sal VALUES(emp_no); COMMIT; END;

3.- Cualquier error se graba en el fichero errores. DECLARE err_num NUMBER; err_msg VARCHAR2(100); BEGIN … EXCEPTION WHEN OTHERS THEN err_num := SQLCODE; err_msg := SUBSTR(SQLERRM, 1, 100); INSERT INTO errores VALUES(err_num, err_msg); END;

4.- Ante la inexistencia de cualquier error se manda un mensaje al buffer de salida que será visualizado al final del programa: SET SERVEROUTPUT ON SIZE 5000

-- Parametro de entorno que activa el buffer de salida y le -- asigna un tamaño de 5000 bytes.

DECLARE cur1 IS .......... no_existe EXCEPTION ; BEGIN OPEN cur1; FETCH cur1 INTO registro; IF cur1%NOTFOUND THEN RAISE no_existe; END IF; ........ EXCEPTION WHEN no_existe THEN DBMS_OUTPUT.PUT_LINE('Empleado inexistente'); END;

Dep. Informática

-- Envio al buffer del literal

23


PL/SQL

1.7.- EJERCICIOS.1.7.1.- EJERCICIOS RESUELTOS.1.- Programa que haciendo uso de un bucle simple, inserte sucesivamente tuplas con el valor de un contador entre 1 y 14 en la tabla TEMPORAL, previamente creada y con una sola columna: NUMERO number(2). DROP TABLE temporal ; CREATE TABLE temporal (numero number(2)); DECLARE i number(2):=1; BEGIN LOOP INSERT INTO temporal VALUES (i); i:=i+1; EXIT WHEN i>14; END LOOP; END; / SELECT * FROM temporal ;

2.- Idem al anterior, pero usando un bucle WHILE. DROP TABLE temporal ; CREATE TABLE temporal (numero number(2)); DECLARE i number(2):=1; BEGIN WHILE i < 15 LOOP INSERT INTO temporal VALUES (i); i:=i+1; END LOOP; END; / SELECT * FROM temporal ;

3.- Idem al anterior, pero usando un bucle FOR. DROP TABLE temporal ; CREATE TABLE temporal (numero number(2)); DECLARE i number(2):=1; BEGIN FOR I IN 1 .. 14 LOOP INSERT INTO temporal VALUES (i); END LOOP; END; / SELECT * FROM temporal ;

4.- Programa que crea la tabla TEST, con dos únicas columnas numéricas de longitud 3: NR1 y NR2. Y posteriormente asigna a NR1 un valor decreciente del 19 hasta el cero, y a NR2 el valor de un contador creciente de 1 a 20. Y ello con el uso de un bucle de cursor.

Dep. Informática

24


PL/SQL

DROP TABLE test; CREATE TABLE test (nr1 NUMBER(3), nr2 NUMBER(3)) ; BEGIN -- inserta valores en la tabla TEST FOR i IN 1..20 LOOP INSERT INTO test values( NULL, i) ; END LOOP; COMMIT; END; / DECLARE x NUMBER(4) := 0; CURSOR t_cur IS SELECT * FROM test ORDER BY nr2 desc FOR UPDATE OF nr1; BEGIN FOR t_rec IN t_cur LOOP UPDATE test SET nr1 = x WHERE CURRENT OF t_cur; x := x + 1; END LOOP; COMMIT; END; / SELECT * FROM test ; SET ECHO OFF;

1.7.2.- EJERCICIOS PROPUESTOS.1.- Codificar el programa PL/SQL que permita aumentar en un 10% el salario de un empleado cuyo número se introduce por teclado. 2.- Modificar el anterior programa para controlar la inexistencia del empleado tecleado, no haciendo nada, solo evitando que el programa finalice con error. 3.- Modificar el anterior programa de forma que si el empleado no existe se visualice un mensaje de error. 4.- Codificar el programa PL/SQL que solicite por pantalla un número de departamento y calcule la suma total de los salarios y comisiones de ese departamento. Después inserte la tupla correspondiente en la tabla TOTALES, previamente creada con la siguiente estructura: deptno number(3) total number(10,2) Realizar el ejercicio utilizando un bucle simple y tratando el cursor. 5.- Modificar el programa anterior para que en la tabla TOTALES no se inserten los departamentos inexistentes. 6.- Realizar el mismo ejercicio con un bucle sobre el cursor. 7.- Mejorar el programa anterior para que, tanto en caso de inexistencia del departamento como en caso de que ya haya sido introducido (que exista ya en totales), muestre sendos mensajes de error.

Dep. Informática

25


PL/SQL

8.- A partir de las tablas tdepto y temple, realizar los aumentos de sueldo (columna salar) siguientes: tdepto.nomde % subida FINANZAS 10 PERSONAL 20 RESTO 5 Además, crear la tabla T-DEP, que contendrá, por cada departamento, el número de empleados con comisión y sin comisión, y con la siguiente estructura: deptno number(3) sin_comm number(3) con_comm number(3) Controlar el error de Oracle 'dup_val_on_index' insertando un registro en la tabla errores con el formato siguiente: codigo char(10) mens char(100)

9.- Idem al ejercicio anterior, pero si se produce duplicidad de índices, se acumularán los valores de empleados con comisión y sin comisión al departamento correspondiente de la tabla T_DEP, y cualquier otro error se registrará en la tabla errores.

Dep. Informática

26


PL/SQL

TEMA 2.- DISPARADORES (TRIGGERS) 2.1.- Disparadores. 2.1.1.- Concepto. 2.1.2.- Sintaxis. 2.1.3.- Nombres correlativos. 2.2.- Componentes de un disparador. 2.2.1.- Instrucción. 2.2.2.- Restricción. 2.2.3.- Acción. 2.3.- Tipos de disparadores. 2.4.- Modificar y borrar disparadores. 2.5.- Manejo de errores. 2.6.-Ejercicios. 2.6.1.- Ejercicios resueltos. 2.6.2.- Ejercicios propuestos.

2.1.- DISPARADORES .2.1.1.- Concepto.ORACLE permite definir procedimientos almacenados en la base de datos, que están asociados a una tabla y que son ejecutados implícitamente ("disparados") cuando una instrucción INSERT, UPDATE o DELETE se ejecuta sobre la tabla asociada. Estos procedimientos reciben el nombre de disparadores de la base de datos. Un disparador puede incluir instrucciones SQL e instrucciones PL/SQL y puede invocar a otros procedimientos. Los procedimientos y los disparadores se diferencian en la forma en que son invocados. Mientras un procedimiento lo ejecuta explícitamente un usuario o una aplicación, un disparador es ejecutado (disparado) implícitamente por Oracle cuando se ejecuta una instrucción INSERT , UPDATE o DELETE de un disparador. La siguiente figura muestra una aplicación de la base de datos con algunas instrucciones SQL que implícitamente disparan varios disparadores almacenados en la base de datos. Base de datos Aplica UPDATE ..SET .. INSERT INTO .. DELETE FROM ..

Dep. Informática

Tabla 1

----------------------------------------------

UPDATE TIGGER BEGIN ....

INSERT TIGGER BEGIN ....

DELETE TIGGER BEGIN ....

27


PL/SQL

Los disparadores se almacenan en la base de datos, separados de las tablas asociadas a ellos. Sólo se pueden definir sobre tablas, y no sobre vistas, sin embargo, los disparadores definidos sobre la tabla o tablas base de una vista son disparados si se ejecuta sobre la vista una instrucción INSERT, UPDATE o DELETE. Para crear un disparador se debe usar ORACLE con la opción de procedimiento que se activa al ejecutar los scripts DBMSSTDX.SQL y CATPROC.SQL, que en la versión 10g Express Edition se encuentran en C:\oraclexe\app\oracle\product\10.2.0\server\RDBMS\ADMIN, y son cargados automáticamente al iniciar una sesión. Si no estuvieran cargados, el administrador debe ejecutarlos. También es necesario tener uno de los siguientes privilegios CREATE TRIGGER o CREATE ANY TRIGGER, que permiten a un usuario crear disparadores en una tabla de su esquema, o bien de cualquier (ANY) esquema. Si el disparador usa instrucciones SQL o invoca a procedimientos o funciones, el usuario que define el disparador debe tener los privilegios necesarios para utilizarlos.

2.1.2.- Sintaxis.Un disparador puede crearse con el DBA Studio o el comando CREATE TRIGGER desde alguna herramienta interactiva (como SQL*PLUS, SQL*DBA). Su sintaxis es:

CREATE [OR REPLACE] TRIGGER esquema.disparador {BEFORE / AFTER} { INSERT / DELETE / UPDATE [OF lista_columnas] [ OR INSERT / DELETE / UPDATE [OF lista_columnas] [ OR INSERT / DELETE / UPDATE [OF lista_columnas]]]} ON esquema.tabla [ REFERENCING OLD [AS] antiguo [ NEW [AS] nuevo ] ] [ FOR EACH ROW [WHEN (condición)] ] bloque_pl/sql / OR REPLACE:

Reemplaza el disparador si ya existe. Se usa para cambiar la definición de un disparador que ya existía sin tener que borrarlo antes.

esquema:

Es el nombre del esquema que contiene al disparador. Si se omite, se crea el disparador en el esquema del usuario.

disparador:

Es el nombre del disparador. Ha de ser único con respecto a otros disparadores en el esquema, aunque no tiene porque ser único con respecto a otros objetos del esquema (tablas, vistas y procedimientos).

BEFORE:

Indica que ORACLE dispara el disparador antes de ejecutar la instrucción disparador (INSERT, UPDATE o DELETE).

Dep. Informática

28


PL/SQL

AFTER:

Indica que el disparador se dispara después de ejecutar la instrucción disparador (INSERT, UPDATE o DELETE).

DELETE:

Indica que se dispara cuando con DELETE se borre una fila de la tabla.

INSERT:

Indica que se dispara cuando con INSERT se añada una fila en la tabla.

UPDATE OF:

Indica que se dispara el disparador siempre que con UPDATE se modifique un valor en una de las columnas especificadas en la cláusula OF. Si se omite la cláusula OF, el disparador se dispara siempre que una instrucción UPDATE modifique un valor en alguna columna de la tabla.

ON:

Especifica el esquema y nombre de tabla sobre la que se crea el disparador. No se puede crear un disparador sobre una tabla en el esquema SYS.

REFERENCING: Especifica

correlación de nombres. Se puede usar correlación de nombres en los bloques PL/SQL y en la cláusula WHEN de un disparador para referenciar los valores viejos y nuevos de la fila actual. Los nombres correlativos por defecto son OLD y NEW. Designa que el disparador será un disparador fila. ORACLE dispara un disparador fila una vez por cada fila afectada por el disparador. Si se omite esta cláusula, el disparador será un disparador instrucción. ORACLE dispara un disparador instrucción sólo una vez cuando la instrucción disparador se ejecuta.

FOR EACH ROW:

WHEN :

Indica la restricción disparador. Esta restricción contiene una condición SQL que debe satisfacerse para disparar el disparador. Esta condición debe contener nombres correlativos y no puede contener una consulta. Solo puede especificarse una restricción para un disparador fila. La condición se evalúa para cada fila que se vea afectada por la instrucción disparador.

bloque_Pl/sql:

Es el bloque PL/SQL que ORACLE ejecuta cuando dispara el disparador. El bloque PL/SQL de un disparador no puede contener las siguientes instrucciones SQL: COMMIT , ROLLBACK, y SAVEPOINT.

ADVERTENCIAS: 1.- El comando CREATE TRIGGER debe terminar con una barra oblicua (/). 2.- Crear un disparador cuya sintaxis sea correcta no dando errores al ser compilado, no significa que sea semánticamente correcto. De hecho, el error más frecuente en el uso de disparadores aparece al ejecutarlos y tratar de acceder o referenciar directa o indirectamente con algún tipo de operación a la misma tabla que activó el disparador, cosa que está totalmente prohibida. Las siguientes vistas del diccionario de datos muestran información sobre los disparadores: - USER_TRIGGERS - ALL_TRIGGERS - DBA_TRIGGERS (véase el ejercicio resuelto 1):

Dep. Informática

29


PL/SQL

2.1.3.- Nombres correlativos .En los disparadores de fila, existen dos nombres correlativos, OLD y NEW, para cada columna de la tabla que se está modificando. Para referenciar a los valores nuevos de la columna se utiliza el calificador NEW antes del nombre de la columna, y para los valores antiguos se usa el calificador OLD. Dependiendo del tipo de instrucción disparador puede suceder que algunos nombres correlativos no tengan significado: -

Un disparador disparado por una instrucción INSERT tiene acceso solamente a los valores nuevos de la columna. Los valores viejos son NULL. Un disparador disparado por una instrucción UPDATE tiene acceso a los valores viejos y nuevos de la columna para los disparadores fila BEFORE y AFTER. Un disparador disparado por una instrucción DELETE tiene acceso solamente a los valores viejos de la columna. Los valores nuevos son NULL.

Los nombres correlativos también se pueden usar en el predicado de una cláusula WHEN. Cuando los calificadores NEW y OLD se usan en el cuerpo de un disparador (bloque PL/SQL) deben ir precedidos por dos puntos (:), que no son permitidos cuando se utilizan en la cláusula WHEN o en la opción REFERENCING OLD...

2.2.- COMPONENTES DE UN DISPARADOR.Un disparador consta de tres componentes: - Instrucción disparador, - Restricción disparador, y - Acción disparador.

2.2.1.- Instrucción disparador.Una instrucción disparador es la instrucción SQL que causa que un disparador sea ejecutado. Puede ser una instrucción INSERT, UPDATE o DELETE para una tabla específica. Por ejemplo, la instrucción disparador: UPDATE OF exis ON articulos significa que cuando la columna exis de una fila en la tabla articulos se modifique, se ejecuta el disparador (se dispara). Cuando la instrucción disparador es una instrucción UPDATE se puede incluir una lista de columnas para identificar qué columnas deben ser modificadas para que se dispare el disparador; como las instrucciones INSERT y DELETE afectan a filas completas de la tabla, no es necesario especificar una lista de columnas para estas opciones. Una instrucción disparador puede contener múltiples instrucciones DML: ... INSERT OR UPDATE OR DELETE ON asegurados ... Dep. Informática

30


PL/SQL

Lo que significa que cuando una instrucción INSERT, UPDATE o DELETE se ejecuta sobre la tabla asegurados , se dispara el disparador. Cuando se utilizan múltiples tipos de instrucciones DML en un disparador, se pueden utilizar predicados condicionales (INSERTING, DELETING, y UPDATING) para detectar qué instrucción ha disparado el disparador. Por lo tanto, se pueden crear disparadores que ejecuten distintos fragmentos de código según la instrucción disparador que ha disparado el disparador. En el siguiente ejemplo se supone que la tabla tdepto tiene una nueva columna: total_sal , con el total de salarios (no comisiones) de los empleados de ese departamento. CREATE OR REPLACE TRIGGER total_salario AFTER DELETE OR INSERT OR UPDATE OF numde, salar ON temple FOR EACH ROW BEGIN /* se asume que numde y salar son NO NULOS */ IF DELETING OR (UPDATING AND :old.numde != :new.numde) THEN UPDATE tdepto SET total_sal = total_sal - :old.salar WHERE numde = :old.numde ; END IF ; IF INSERTING OR (UPDATING AND :old.numde != :new.numde) THEN UPDATE tdepto SET total_sal = total_sal + :new.salar WHERE numde = :new.numde ; END IF ; IF (UPDATING AND :old.numde = :new.numde) THEN UPDATE tdepto SET total_sal = total_sal - :old.salar + :new.salar WHERE numde = :new.numde ; END IF ; END; / Nótese que si se modifica el departamento de un empleado se cumplen las dos primeras condiciones.

2.2.2.- Restricción disparador.Una restricción disparador especifica un predicado o condición que debe ser verdadera para que el disparador se dispare. La acción disparador no se ejecuta en caso contrario. La restricción disparador es una opción disponible para los disparadores fila. Se especifica utilizando la cláusula WHEN.

2.2.3.- Acción disparador.Una acción disparador es el procedimiento (bloque PL/SQL) que contiene las instrucciones SQL y el código PL/SQL que se ejecuta cuando una instrucción disparador es ejecutada y la restricción disparador (si existe) se evalúa como verdadera. Una acción disparador puede contener instrucciones SQL y PL/SQL, puede definir elementos del lenguaje PL/SQL (variables, constantes, cursores, excepciones, etc.), y puede llamar a otros procedimientos. Dep. Informática

31


PL/SQL

2.3.- TIPOS DE DISPARADORES.Usando las opciones BEFORE/AFTER y FOR EACH ROW, se pueden crear cuatro tipos básicos de disparadores. El tipo de un disparador determina: - cuándo dispara ORACLE el disparador en relación a la instrucción disparador, y - cuántas veces dispara ORACLE el disparador. La siguiente tabla describe cada tipo de disparador, sus propiedades y las opciones utilizadas para crearlos.

Opción BEFORE

AFTER

FOR EACH STATEMENT ( Instrucción)

FOR EACH ROW (Fila) La acción disparador se ejecuta antes de La acción disparador se ejecuta antes modificar cada fila afectada por la de ejecutar la instrucción disparador. instrucción disparador. La acción disparador se ejecuta después de ejecutar la actualización (instrucción disparador).

La acción disparador se ejecuta después de modificar cada fila afectada por la instrucción disparador.

Los disparadores de tipo BEFORE se usan normalmente en las siguientes situaciones: - Cuando la acción disparador debe determinar si se ejecuta o no la instrucción disparador. - Para obtener valores de columnas específicos antes de ejecutar una instrucción disparador INSERT o UPDATE. Los disparadores de tipo AFTER se usan normalmente en las siguientes situaciones: - Cuando se quiere que la instrucción disparador termine su ejecución antes de ejecutar la acción disparador. - Si hay definido un disparador BEFORE, se puede definir un disparador AFTER que realice acciones diferentes sobre la misma instrucción disparador. El siguiente ejemplo muestra distintas posibilidades de disparador. Aparece una nueva instrucción que permite crear un paquete (objeto que permite agrupar procedimientos, funciones y datos como una unidad y que estudiaremos en el próximo tema) de nombre stat y que solo contiene la declaración pública de la variable numérica stat.rowent . DROP TABLE stat_tab ; CREATE TABLE Stat_tab (utype CHAR(8), rowent INTEGER, uhour INTEGER); CREATE OR REPLACE PACKAGE stat IS rowent INTEGER; END; / CREATE TRIGGER bt BEFORE UPDATE OR DELETE OR INSERT ON sal BEGIN stat.rowent :=0; END; / Dep. Informática

32


PL/SQL

CREATE TRIGGER rt BEFORE UPDATE OR DELETE OR INSERT ON sal FOR EACH ROW BEGIN stat.rowent := stat.rowent + 1 ; END ; / CREATE TRIGGER at AFTER UPDATE OR DELETE OR INSERT ON sal DECLARE typ CHAR(8); hour NUMBER ; BEGlN IF updating THEN typ :='update' ; END IF ; IF deleting THEN typ :='delete' ; END IF ; IF inserting THEN typ :='insert' ; END IF ; Hour := TRUNC( (SYSDATE- TRUNC( SYSDATE ) )*24 ) ; UPDATE stat_tab SET rowent = rowent + stat.rowent WHERE utype = typ AND uhour = hour; IF SQL%ROWCOUNT = 0 THEN INSERT INTO stat_tab VALUES ( typ, stat.rowent, hour ); END IF ; EXCEPTION WHEN dup_val_on_index THEN UPDATE stat_tab SET rowent = rowent + stat.rowent WHERE utype = typ AND uhour = hour ; END ; /

2.4.- MODIFICACIÓN Y BORRADO DE DISPARADORES.Un disparador no se puede modificar explícitamente, debe reemplazarse con una nueva definición de disparador. Para reemplazar un disparador en CREATE TRIGGER se incluye la opción OR REPLACE que permite crear una nueva versión de un disparador que ya existe en la base de datos, sin que se vean afectados los privilegios que tenía el disparador antiguo. En caso de que en vez de usar la opción OR REPLACE, borremos el disparador y posteriormente lo creemos de nuevo con las modificaciones necesarias, todos los privilegios del disparador antiguo se habrán borrado y deberán volverse a otorgar al disparador nuevo. Un disparador se puede encontrar habilitado o inhabilitado. Solo en el caso de estar habilitado, ORACLE lo dispara siempre que se ejecuta una instrucción disparador y la restricción disparador (si existe) es evaluada TRUE. Cuando se crea un disparador, ORACLE automáticamente lo habilita. Es útil inhabilitar temporalmente un disparador cuando: - Se referencia un objeto que no está disponible. - Se va a cargar una gran cantidad de datos y se quiere realizar rápidamente sin que se disparen los disparadores. - Se está recargando datos. Dep. Informática

33


PL/SQL

Para habilitar o inhabilitar disparadores usa el comando ALTER TRIGGER. Su sintaxis es:

ALTER TRIGGER disparador { ENABLE / DISABLE} ; Otra forma es con el comando ALTER TABLE con las cláusulas DISABLE y ENABLE y la opción ALL TRIGGERS de este comando. Ejemplo: ALTER TABLE temple DISABLE ALL TRIGGERS

Para habilitar o inhabilitar disparadores utilizando el comando ALTER TABLE, se debe ser el propietario de la tabla, tener el privilegio de objetos ALTER para la tabla, o tener el privilegio del sistema ALTER ANY TABLE. Para habilitar o inhabilitar disparadores utilizando el comando ALTER TRIGGER, se debe ser el propietario del disparador o tener el privilegio del sistema ALTER ANY TRIGGERS. Para borrar un disparador, éste debe estar en nuestro esquema o disponer del privilegio del sistema DROP ANY TRIGGER. Se usa el comando DROP TRIGGER, cuya sintaxis es:

DROP TRIGGER ;

2.5.- MANEJO DE ERRORES.Si durante la ejecución de un disparador se produce un error predefinido en el sistema o definido por el usuario, entonces se anulan todas las actualizaciones realizadas por la acción disparador así como el evento que la activó. La sentencia RAISE_APPLICATION_ERROR ( num_error, 'mensaje' ) provoca la ocurrencia del error de número interno num_error y envia al usuario el mensaje 'mensaje'. (num_error debe ser un número negativo comprendido entre –20000 y –20999). Un ejemplo de su uso puede verse en el ejercicio resuelto 2.

2.6.-EJERCICIOS.2.6.1.- Ejercicios resueltos.1.- Ejemplo de uso de las tablas del diccionario de datos. La siguiente sentencia crea un disparador llamado DEP_SET_NULL que controla que antes de borrar una fila de la tabla DEPT o modificar la clave primaria (deptno) de DEPT, se pongan a NULL todos los valores relacionados de la tabla EMP: CREATE TRIGGER dep_set_null AFTER DELETE OR UPDATE OF deptno ON dept FOR EACH ROW BEGIN

IF DELETING OR UPDATING AND :old.deptno != :new.deptno THEN UPDATE emp SET emp.deptno = NULL WHERE emp.deptno = :old.deptno ; END IF ;

END ; / Dep. Informática

34


PL/SQL

Las siguientes consultas muestran información sobre el disparador DEP_SET_NULL: SELECT FROM WHERE Rdo:

TRIGGER_TYPE

TRIGGERING_EVENT TABLE_NAME

AFTER EACH ROW

UPDATE OR DELETE

SELECT FROM WHERE Rdo:

trigger_type, triggering_event, table_name user_triggers trigger_name='DEP_SET_NULL' ; .

DEPT

trigger_body user_triggers trigger_name = 'DEP_SET_NULL' ;

TRIGGER_BODY

.

BEGIN IF UPDATING AND :old.deptno != :new.deptno THEN UPDATE emp SET emp.deptno = NULL WHERE emp.deptno = :old.deptno ; END IF ; END ;

El cuerpo del disparador se almacena en la tabla del diccionario en la columna trigger_body de tipo long. Como la longitud de visualización de los campos long está predefinida en 80 caracteres, para ver mejor estos resultados deberíamos aumentarla, bien en el menú Opciones y Entorno del editor de SQL*Plus, o mediante el comando SET LONG 4000, por ejemplo.

2.- Crear el disparador instrucción BEFORE llamado EMP_DATE_CAMBIOS que controlará que las modificaciones en los registros de empleados de la tabla EMP sólo se realicen en horas y días laborables. CREATE TRIGGER scott.emp_date_cambios BEFORE DELETE OR INSERT OR UPDATE ON scott.emp BEGIN

/*Si hoy es sabado o domingo se devuelve un error*/ IF ( TO_CHAR( sysdate, 'DY' ) = 'SÁB' OR TO_CHAR( sysdate, 'DY' ) = 'DOM' ) THEN RAISE_APPLICATION_ERROR( -20501, 'No pueden actualizarse datos de empleados en fin de semana') ; END IF; /* Si la actualización no se hace entre las 8.00 y las 18.00 h, se devuelve un error */ IF ( TO_CHAR( sysdate, 'HH24' )< 8 OR TO_CHAR( sysdate, 'HH24' ) >= 18 ) THEN RAISE_APPLICATION_ERROR( -20502, 'Solo se puede actualizar datos de empleados durante las horas de trabajo') ; END IF;

END ; /

ORACLE dispara el disparador siempre que una instrucción INSERT, UPDATE o DELETE afecte a la tabla EMP del esquema SCOTT. El disparador realiza las siguientes operaciones: 1.- Si la modificación se intenta realizar un sábado o un domingo, el disparador no permite la modificación y da un mensaje de error. 2.- Si la hora en que se intenta modificar no está entre las 8:00 AM y las 6:00 PM, el disparador da un mensaje de error. El/la alumn@ debería adaptar este disparador a las tablas ejemplo, mejorándolo para que también evite las actualizaciones en los días de fiesta. La validación se haría consultando una tabla que se actualizaría anualmente y que contendría las fechas de las fiestas (días no laborables), y que deberá crear el alumnado. Dep. Informática

35


PL/SQL

3.- Este ejemplo crea un disparador fila BEFORE llamado VALIDA_SALARIO en el esquema SCOTT. El disparador garantizará que siempre que un empleado nuevo se añada a la tabla de empleados EMP, o se modifique el salario o el tipo de trabajo de un empleado, el salario del empleado se mantiene dentro del rango establecido en SAL_GUIDE para su categoría. La tabla SAL_GUIDE deberemos crearla: DROP TABLE SAL_GUIDE; CREATE TABLE SAL_GUIDE (JOB VARCHAR2(9) primary key, MINSAL NUMBER(7,2), MAXSAL NUMBER(7,2) ) ; INSERT INTO SAL_GUIDE VALUES ('CLERK', 800, 1300); INSERT INTO SAL_GUIDE VALUES ('ANALYST', 3000, 3500); INSERT INTO SAL_GUIDE VALUES ('SALESMAN', 1250, 1600); INSERT INTO SAL_GUIDE VALUES ('MANAGER', 2450, 2975); INSERT INTO SAL_GUIDE VALUES ('PRESIDENT', 5000, 5500); CREATE OR REPLACE TRIGGER scott.valida_salario BEFORE INSERT OR UPDATE OF sal, job ON scott.emp FOR EACH ROW DECLARE v_minsal sal_guide.minsal%TYPE; v_maxsal sal_guide.maxsal%TYPE; BEGIN /* Calcula en menor y mayor salario de esa categoría de la tabla SAL_GUIDE*/ SELECT minsal, maxsal INTO v_minsal, v_maxsal FROM sal_guide WHERE job = :new.job; /* Si el salario del empleado cae fuera del rango, se provoca un error*/ IF (:new.sal< v_minsal OR :new.sal > v_maxsal) THEN RAISE_APPLICATION_ERROR( -20601, 'Salario ' ||:new.sal || ' fuera de rango de la categoria ' || :new.job || ' para el empleado ' || :new.ename ) ; END IF; END; /

ORACLE dispara el disparador siempre que se ejecute una de las siguientes instrucciones: -

Una instrucción INSERT que añada una fila a la tabla EMP. Una instrucción UPDATE que modifique los valores de las columnas SAL o JOB de la tabla EMP.

El disparador realiza las siguientes operaciones: 1.- Consulta la tabla de salarios para obtener el salario máximo y mínimo. 2.- Compara el salario del empleado con el salario máximo y mínimo. 3.- Si el salario del empleado no está dentro del rango, el disparador dá un mensaje de error y aborta la actualización.

2.6.2.- Ejercicios propuestos.1.- Crear el disparador DIR_SET_NULL, que controle que antes de borrar un empleado que sea director ponga a nulo el campo direc del departamento o departamentos de los que era director, y que si se modifica la clave primaria de un director, actualice automáticamente el campo direc de los departamentos en los que él es director.

Dep. Informática

36


PL/SQL

2.- Crear el disparador DEP_DEL_CASCADE que permita que antes de borrar un departamento se borren todos los empleados del mismo. 3.- Sobre la tabla TDEPTO, codificar el disparador de nombre TDEPTO_PRESU_SAL que impedirá que el presupuesto de un departamento sea inferior a la suma de los salarios y comisiones de los empleados de ese departamento. Si una actualización intenta violar la anterior restricción, el disparador devolverá el código de error número -20112 y el mensaje 'El presupuesto no puede ser inferior a la suma de los sueldos de sus empleados '. 4.- Modificar el disparador VALIDA_SALARIO del ejercicio resuelto nº 3 para que vele por que se cumpla que los salarios de todos los empleados salvo el presidente: - Se encuentren comprendidos entre el valor de minsal y maxsal de su categoría (JOB). - Que no disminuyan. - Que no se vean incrementados en más del 10 % de una vez. El tratamiento de los errores se hará con RAISE_APPLICATION_ERROR.

5.- Crear el disparador before CHEQ_SALGUIDE que velará por que se cumpla: - Que no se borrará ninguna tupla de SAL_GUIDE si hay algún empleado con su salario comprendido entre sus límites. En cuyo caso se lanzará el error –20325 y un mensaje indicativo. - Que una actualización de los valores de minsal o maxsal de SAL_GUIDE no provocará que queden empleados de esa categoría con sus salarios fuera de rango, en cuyo caso se restablecerán los valores antiguos. 6.- Crear el disparador DIRPRO que evite que un director lo sea en propiedad en más de un departamento. Caso de que se intente violar la anterior restricción, el disparador devolverá el código de error -20800, y el mensaje 'El jefe ya lo es en propiedad de otro departamento .'

Dep. Informática

37


PL/SQL

TEMA 3.- PROCEDIMIENTOS, FUNCIONES Y PAQUETES.3.1.- Introducción. 3.2.- Procedimientos. 3.2.1.- Creación y borrado. 3.2.2.- Tipos de argumentos: in, out, in out. 3.2.3.- Polimorfismo. 3.3.- Funciones. 3.3.1.- Creación y borrado. 3.3.2.- Recursividad. 3.3.3.- Funciones PL/SQL en sentencias SQL. 3.4.- Paquetes. 3.4.1.- Creación y borrado. 3.4.2.- La depuración 3.5.- Ventajas de los procedimientos, funciones y paquetes. 3.6.- Manejo de excepciones. 3.7.- Ejercicios. 3.7.1.- Ejercicios resueltos. 3.7.2.- Ejercicios propuestos.

3.1.- INTRODUCCIÓN.Además de los disparadores ya vistos, Oracle permite desarrollar subprogramas, es decir, agrupar una serie de definiciones y sentencias para ejecutarlas bajo un único nombre, estos subprogramas son: procedimientos, funciones y paquetes. Los procedimientos son trozos de código que realizan un trabajo sobre unos argumentos de entrada que son opcionales y depositan unos valores sobre unos argumentos de salida, también opcionales. Las funciones son similares a los procedimientos con la diferencia de que devuelven siempre un valor. Los paquetes son agrupaciones de procedimientos, funciones y definiciones de datos; es lo que en otros entornos de programación se conoce como librería. Tanto los procedimientos como las funciones disponen de la siguiente estructura:

cabecera del procedimiento o función declaración de variables, cursores, sobprocedimientos, etc. BEGIN zona ejecutable EXCEPTION manipuladores de excepciones END [nombre_procedimiento] ; Dep. Informática

38


PL/SQL

Desarrollar un subprograma para almacenar un bloque PL/SQL en la base de datos es muy útil cuando es necesario ejecutarlo repetidamente. Un subprograma puede invocarse desde multitud de entornos: SQL *Plus, Oracle Forms, otro subprograma, y desde cualquier otra herramienta o aplicación Oracle. Para crear un procedimiento o función hay que seguir los pasos siguientes:

1.- Escribir el texto de la sentencia CREATE PROCEDURE / FUNCTION y guardarlo en un fichero de texto con la extensión .SQL. Mientras se compone esta sentencia se debe ir pensando en el manejo de errores de ejecución. Es importante que los ficheros de texto acaben con una línea que contenga el carácter '/' como único carácter de la columna uno. Por ejemplo (la tabla alumnos debe estar creada): CREATE PROCEDURE altalum (v_num number, v_nom varchar2) IS BEGIN INSERT INTO alumnos VALUES (v_num, v_nom); END ; /

2.- Compilar el fichero de texto ejecutándolo con el comando START . La ejecución convierte el código fuente en código compilado y lo almacena en la base de datos. La ejecución se realiza desde SQL*Plus u otro interfaz que permita sentencias LDD. El código fuente se almacena siempre en la B.D. El código compilado solo se almacena si no se han producido errores. En este caso pueden verse los errores de compilación con el comando SHOW ERRORS. 3.- Invocar el procedimiento o función desde un entorno Oracle con el comando EXECUTE. Por ejemplo: EXECUTE altalum (1, 'JOSÉ ANGEL FERNÁNDEZ') ;

La mayoría de las aplicaciones Oracle, entre ellas SQLPlús, permiten el paso de parámetros posicionalmente o por asociación de nombres (de forma similar a la apertura de cursores parametrizados), incluso de forma mixta. Supongamos que tenemos las variables v_a de tipo number y v_b de tipo char: SQL>variable v_a number; SQL>variable v_b varchar2(50); SQL>execute :v_a:=2; SQL>execute :v_b:= 'ANA PALACIOS';

Las siguientes son formas válidas de invocación: EXECUTE altalum(:v_a, :v_b); EXECUTE altalum(:v_a+1 , 'MARIA VALVERDE'); EXECUTE altalum(3, 'JOSE SANTAELLA');

Dep. Informática

39


PL/SQL

3.2.- PROCEDIMIENTOS.Un procedimiento es un subprograma que realiza una acción específica. Pueden recibir parámetros pero que no devuelven ningún valor.

3.2.1.- Creación y borrado.Se crea un nuevo procedimiento con la sentencia CREATE PROCEDURE, que declara una lista de argumentos y define la acción a ejecutar por el bloque PL/SQL estándar. Sintaxis:

CREATE [OR REPLACE] PROCEDURE nombre_proc ( argumento [tipo_arg] tipo_dato [,argumento [tipo] tipo_dato ] .... ) AS [IS] bloque PL/SQL dónde: Es el nombre del procedimiento. Es el nombre del argumento. argumento Indica el tipo de argumento: IN (por defecto), OUT o IN OUT. tipo_arg El tipo de dato del argumento sin precisión. tipo_dato bloque PL/SQL El cuerpo procedural que define la acción a realizar. nombre_proc

La opción REPLACE se especifica cuando se desea reemplazar un procedimiento del mismo nombre sin necesidad de borrarlo previamente. AS e IS son equivalentes. El bloque PL/SQL debe comenzar con la palabra BEGIN o con una declaración de variable local. Nunca debe comenzar con DECLARE. Esta diferencia con los bloques PL/SQL anónimos ocurre porque AS (o IS) llevan implícito el DECLARE. El procedimiento debe finalizar con la palabra END seguida opcionalmente por el nombre del procedimiento y un punto y coma (;). Para borrar un procedimiento usaremos la sentencia:

DROP PROCEDURE nombre_proc ;

3.2.2. Tipos de Argumentos.El número de argumentos y sus tipos de datos deben corresponderse con los de los parámetros que se le pasan al procedimiento, pero los nombres puede ser diferentes. Esto permite que el mismo procedimiento pueda invocarse desde diferentes lugares. Para transferir valores desde y hacia el entorno de llamada a través de argumentos debemos escoger entre uno de los tres tipos de argumento: In, Out e In Out.

Dep. Informática

40


PL/SQL

Tipo IN

Descripción Se usa para pasar parámetros por valor. El parámetro actúa como constante por lo que no se le puede asignar ni cambiar su valor dentro del procedimiento. Este parámetro puede referenciarse en la llamada mediante una constante, variable inicializada o expresión.

OUT

Permite devolver valores desde el procedimiento al entorno de llamada. El argumento correspondiente actúa como una variable no inicializada, por lo que dentro del subprograma solo puede asignársele valores, no pudiendo aparecer en la parte derecha de una expresión. En la invocación del subprograma, este parámetro solo puede sustituirse por una variable.

IN OUT

Se usa para pasar parámetros por referencia y recogerlos del procedimiento o función. El argumento correspondiente actúa como una variable inicializada, por lo que se le puede cambiar su valor y usarse en la parte derecha de las expresiones. En la llamada, este parámetro solo puede sustituirse por una variable.

Los parámetros pueden declararse para que tomen valores por defecto, veamos como: CREATE PROCEDURE prueba(v1 varchar2 default 'Sin Nombre', v2 number default 5) is ..

Las llamadas válidas que podemos hacer a este procedimiento son las siguientes: EXECUTE prueba; EXECUTE prueba ('Paco'); EXECUTE prueba ('Marta', 9);

/* equivalente a execute prueba('Sin Nombre', 5);*/ /* equivalente a execute prueba('Paco', 5); */

Si quisiéramos darle un valor a v2 y tomar el de v1 por defecto, deberíamos usar la notación nominal: EXECUTE prueba(v2=>8);

Es útil y aconsejable declarar argumentos y variables utilizando los atributos %TYPE o %ROWTYPE. Veamos algunos ejemplos del uso de los tipos de argumentos:

Argumentos IN Almacenar información acerca de un nuevo empleado: 

CREATE OR REPLACE PROCEDURE alta_emp (v_emp_numero IN temple.numem%TYPE , v_emp_departa IN temple.numde%TYPE , v_emp_telefono IN temple.extel%TYPE , v_emp_fechanac IN temple.fecna%TYPE , v_emp_fechaing IN temple.fecin%TYPE , v_emp_salario IN temple.salar%TYPE , v_emp_comision IN temple.comis%TYPE , v_emp_hijos IN temple.numhi%TYPE , v_emp_nombre IN temple.nomem%TYPE ) IS Dep. Informática

41


PL/SQL

BEGIN INSERT INTO temple VALUES (v_emp_numero, v_emp_departa, v_emp_telefono, v_emp_fechanac, v_emp_fechaing, v_emp_salario, v_emp_comision, v_emp_hijos, v_emp_nombre) ; COMMIT WORK ; END alta_emp ; /

Recordemos que la orden show errors es muy útil para depurar el código. Si todo va bien nos aparecerá el mensaje de Procedimiento creado. Ahora para ejecutarlo debemos escribir la sentencia execute, por ejemplo: EXECUTE alta_emp(555, 111, 780, '24/06/1979', sysdate, 777, null, 3, 'ARGUDO, MANUEL')

lo que provocará la ejecución del procedimiento y por ende el alta del empleado tecleado. Se pueden eliminar valores innecesarios de entrada a los procedimientos derivando dichos valores internamente dentro del procedimiento o relacionándolos con un valor por defecto de columna al definir la tabla. Por ejemplo para: -

Generar la clave primaria de una tabla utilizando un generador de se secuencia. Registrar el usuario partiendo de la variable USER. Registrar la fecha actual basándose en la variable SYSDATE. Almacenar valores por defecto, cuando sea apropiado. Utilizar reglas de negocio para calcular valores de entrada de forma automática utilizando una fórmula.

El siguiente ejemplo elimina los valores de entrada innecesarios en una rutina de altas de empleados, dejando solo como variables de entrada la información esencial: CREATE OR REPLACE PROCEDURE alta_emp (v_emp_numero v_emp_departa v_emp_telefono v_emp_fechanac v_emp_hijos v_emp_nombre v_emp_fechaing temple.fecin%TYPE ; v_emp_salario temple.salar%TYPE ; v_emp_comision temple.comis%TYPE ; BEGIN v_emp_fechaing := SYSDATE ; IF (v_emp_departa IN (110, 111, 112)) THEN v_emp_comision := 0 ; ELSE v_emp_comision := NULL; END IF;

IN temple.numem%TYPE , IN temple.numde%TYPE , IN temple.extel%TYPE , IN temple.fecna%TYPE , temple.numhi%TYPE , temple.nomem%TYPE ) IS

SELECT min(salar) INTO v_emp_salario FROM temple WHERE numde = v_emp_departa ; INSERT INTO temple VALUES (v_emp_numero, v_emp_departa, v_emp_telefono, v_emp_fechanac, v_emp_fechaing, v_emp_salario, v_emp_comision, v_emp_hijos, v_emp_nombre) ; COMMIT WORK ; END alta_emp ; /

Dep. Informática

42


PL/SQL

Argumentos OUT Recuperar valores desde un procedimiento a el entorno de llamada a través de argumentos OUT. En el siguiente ejemplo, recuperar información sobre un empleado. 

CREATE OR REPLACE PROCEDURE consulta_emp (v_emp_numero IN temple.numem%TYPE , v_emp_nombre OUT temple.nomem%TYPE , v_emp_salario OUT temple.salar%TYPE , v_emp_comision OUT temple.comis%TYPE) IS BEGIN SELECT nomem, salar, comis INTO v_emp_nombre, v_emp_salario, v_emp_comision FROM temple WHERE numem = v_emp_numero; END consulta_emp; /

Para invocar a este procedimiento hay que pasarle todos los parámetros, ya sean IN, OUT o IN OUT. Aunque lo habitual es invocar a un procedimiento desde un bloque PL, el siguiente ejemplo muestra la forma de invocarlo con argumentos IN y OUT desde el prompt de SQL: SQL> var x varchar2(50); SQL> var y number; SQL> var z number; SQL> execute consulta_emp(390, :x, :y, :z);

Incluso podríamos ver el contenido de las variables OUT modificadas por el procedimiento. SQL> PRINT :x; .......

Argumentos IN OUT El siguiente ejemplo transforma una secuencia de nueve dígitos en un numero de teléfono. Recupera valores desde el entorno de trabajo hacia el procedimiento, y devuelve los diferentes valores posibles desde el procedimiento al entorno de llamada utilizando argumentos IN OUT. 

CREATE OR REPLACE PROCEDURE con_guion (v_telf_no IN OUT VARCHAR2 ) IS BEGIN v_telf_no := SUBSTR (v_telf_no, 1, 3) || '-' || SUBSTR(v_telf_no, 4); END con_guion; /

El valor de un argumento tipo IN OUT debe darlo el procedimiento, bien mediante una sentencia de asignación, o bien por mediante una sentencia SELECT .. INTO.

3.2.3.- Polimorfismo.El polimorfismo es una característica que permite definir más de un objeto con el mismo nombre. En PL/SQL podemos definir distintas funciones y procedimientos que compartan un nombre común, pero han de diferenciarse en la cantidad o tipo de los parámetros que reciben o devuelven.

Dep. Informática

43


PL/SQL

Ejemplo: PROCEDURE initialize (tab OUT DateTabTyp, n INTEGER) IS BEGIN FOR i IN 1..n LOOP tab(i) := SYSDATE; END LOOP; END initialize; PROCEDURE initialize (tab OUT RealTabTyp, n INTEGER) IS BEGIN FOR i IN 1..n LOOP tab(i) := 0.0; END LOOP; END initialize;

Estos procedimientos sólo difieren en el tipo de dato del primer parámetro. Para efectuar una llamada a cualquiera de ellos, se puede implementar lo siguiente: DECLARE TYPE DateTabTyp IS TABLE OF DATE INDEX BY BINARY_INTEGER; TYPE RealTabTyp IS TABLE OF REAL INDEX BY BINARY_INTEGER; hiredate_tab DateTabTyp; comm_tab RealTabTyp; indx BINARY_INTEGER; … BEGIN indx := 50; initialize(hiredate_tab, indx); -- llama a la primera versión initialize(comm_tab, indx); -- llama a la segunda versión ... END;

3.3.- FUNCIONES.Las funciones son subprogramas que reciben parámetros y devuelven un único valor. Desde el punto de vista estrictamente sintáctico, un procedimiento conteniendo un argumento OUT puede ser reescrito como una función, y uno que contenga argumentos OUT múltiples puede reescribirse como una función que devuelva un argumento tipo registro. El como de largo será la invocación de la rutina, es lo que determina que su implementación se realice mediante un procedimiento o una función. Lo normal será que sus argumentos sean de tipo IN. Los de tipo OUT o IN OUT, aunque son válidos dentro de las funciones, se utilizan raras veces.

3.3.1.- Creación y borrado.La sentencia CREATE FUNCTION es idéntica a CREATE PROCEDURE, excepto por la cláusula extra RETURN. Con ella se genera una nueva función que declara una lista de argumentos, declara el argumento RETURN y define la acción a realizar por el bloque PL/SQL estándar. Su sintaxis es:

Dep. Informática

44


PL/SQL

CREATE [OR REPLACE] FUNCTION nombre_func (argumento [tipo] tipo_dato [,argumento [tipo] tipo_dato ] ..) RETURN tipo_dato AS [IS] bloque PL/SQL dónde los elementos significan lo mismo que en la sentencia CREATE PROCEDURE, salvo: RETURN tipo_dato

que indica el tipo de dato devuelto por la función. Este tipo de dato no puede incluir escala o precisión.

En una función puede haber varias sentencias RETURN, con la única condición de que al menos haya una.

Ejemplo: recuperar el salario de un empleado. CREATE OR REPLACE FUNCTION tomar_salario (v_emp_numero IN temple.numem%TYPE) RETURN number IS v_emp_salario temple.salar%TYPE := 0; BEGIN SELECT FROM WHERE RETURN END tomar_salario; /

salar INTO v_emp_salario temple numem = v_emp_numero; (v_emp_salario);

Para usar la función podremos hacer: SELECT nomem, tomar_salario(numem) FROM temple;

Al igual que los procedimientos, las funciones pueden invocarse pasándoles los parámetros con notación posicional, nominal o mixta, y se les pueden asignar valores por defecto. Para borrar una función usaremos la sentencia:

DROP FUNCTION nombre_func ; 3.3.2.- Recursividad.Las funciones pueden invocarse recursivamente, tanto en autollamada como en interllamada. Veamos la típica función de factorial (autoinvocación): CREATE FUNCTION factorial (n number) RETURN number IS BEGIN IF n = 0 THEN RETURN 1; ELSE RETURN n* factorial (n-1); END IF; END ; /

Como las funciones devuelven un valor, si queremos llamar a una función desde el prompt de SQL debemos declarar una variable para almacenar dicho valor y posteriormente visualizarlo: Dep. Informática

45


PL/SQL

SQL> variable v number; SQL> EXECUTE :v:=factorial(4); SQL> print v;

La recursividad no es una herramienta considerada fundamental en la programación PL/SQL. Cualquier problema que requiera su utilización también puede ser resuelto utilizando iteración. Una versión iterativa de un programa es usualmente más fácil de diseñar y de entender. Sin embargo, la versión recursiva es más simple, pequeña y más fácil de depurar. A modo de ejemplo, observe las siguientes dos versiones de cómo calcular el número n-ésimo de la serie de Fibonacci: -- Versión recursiva

FUNCTION fib (n POSITIVE) RETURN INTEGER IS BEGIN IF (n = 1) OR (n = 2) THEN RETURN 1; ELSE RETURN fib(n – 1) + fib(n – 2); END IF; END fib; -- Versión iterativa

FUNCTION fib (n POSITIVE) RETURN INTEGER IS pos1 INTEGER := 1; pos2 INTEGER := 0; cum INTEGER; BEGIN IF (n = 1) OR (n = 2) THEN RETURN 1; ELSE cum := pos1 + pos2; FOR i IN 3..n LOOP pos2 := pos1; pos1 := cum; cum := pos1 + pos2; END LOOP; RETURN cum; END IF; END fib;

La versión recursiva es más elegante que la iterativa, sin embargo esta última es más eficiente, corre más rápido y utiliza menos memoria.

3.3.3.- Funciones PL/SQL en sentencias SQL.Dentro de una expresión SQL se pueden referenciar funciones definidas por el usuario. Donde pueda haber una función SQL, puede situarse también una función PL/SQL. Para invocar una función desde una sentencia SQL se debe ser el propietario de la función o tener el privilegio EXECUTE. Las situaciones en que puede invocarse una función de usuario son las siguientes: La lista de expresiones del comando SELECT. Condiciones de las cláusulas WHERE y HAVING. La cláusula VALUES de la sentencia INSERT. La cláusula SET de la sentencia UPDATE. • • •

•

Dep. Informática

46


PL/SQL

NO se puede invocar una función PL/SQL desde la cláusula CHECK de una vista. Para poder invocar desde una expresión SQL, una función PL/SQL definida por el usuario debe cumplir ciertos requerimientos básicos . Debe ser una función almacenada, no una función dentro de un Bloque PL/SQL anónimo o un subprograma. Debe ser una función de fila única y NO una función de columna (grupo). Esto ocurre porque no se puede tomar el valor de todos los datos de una columna como argumento. Todos los argumentos deben ser del tipo IN. No se admiten los tipos OUT o IN OUT. Los tipos de datos de los argumentos deben ser tipos de datos internos del Servidor Oracle, tales como CHAR, DATE o NUMBER, y no tipo PL/SQL como BOOLEAN, RECORD o TABLE. El valor resultante de la función también debe ser un tipo de dato Oracle. •

•

•

•

•

Para ejecutar una sentencia SQL que llama a una función almacenada, el servidor Oracle debe conocer si la función provoca efectos colaterales. Éstos pueden ser cambios en tablas de la base de datos o en variables públicas de paquetes (que se declaran en la zona de especificación del paquete). Los efectos colaterales pueden aplazar la ejecución de una consulta, producir resultados dependientes del orden (por lo tanto indeterminados), o requerir que el estado del paquete se deba mantener a través de las sesiones de usuario (lo cual no está permitido). Por ello, las siguientes restricciones se aplican a funciones almacenadas invocadas desde expresiones SQL: Las funciones no pueden modificar datos en las tablas. No pueden ejecutar INSERT, UPDATE o DELETE. Sólo las funciones locales que se referencian en la lista de la SELECT, en la cláusula , VALUES de un INSERT o en la cláusula SET de un UPDATE pueden actualizar una variable definida en un paquete. No pueden actualizar variables dentro de un paquete las funciones referenciadas en las cláusulas CONNECT BY, START WITH, ORDER BY o GROUP BY. Las funciones remotas no pueden leer, ni escribir el estado de un paquete. Cada vez que se accede aun enlace de base de datos, se establece una nueva sesión en la base de datos remota. Las funciones que leen o escriben en el estado de un paquete no pueden utilizar paralelismo. •

•

•

•

•

3.4.- PAQUETES.Los paquetes son un conjunto de procedimientos, funciones y datos. Un paquete es muy similar a una librería con la ventaja de que podemos ocultar información, ya que se compone de una parte de declaraciones visibles desde el exterior y una serie de implementaciones a las que no puede accederse desde fuera sino es a través del interfaz declarado en la parte pública. Las ventajas que ofrecen los paquetes son: modularidad, facilidad en el diseño de aplicaciones, ocultamiento de la información, añaden funcionalidad al sistema, y mejoran el rendimiento ya que la primera llamada a la librería carga ésta en memoria, de forma que las sucesivas invocaciones se evitan acceder a disco. Dep. Informática

47


PL/SQL

3.4.1.- Creación y borrado.Los paquetes se crean con el comando CREATE PACKAGE, cuya sintaxis es: - Parte de declaraciones: CREATE [OR REPLACE] PACKAGE nombre_paq AS [IS] bloque_pl_sql_paq_decl - Cuerpo del paquete (implementación): CREATE [OR REPLACE] PACKAGE body nombre_paq AS [IS] bloque_pl_sql_paq_body Un paquete puede contener procedimientos, funciones, variables, constantes, cursores y excepciones. Además, siempre que no se cambie la parte de declaraciones, se puede cambiar la implementación de una rutina o el cuerpo de un cursor sin necesidad de volver a compilar las aplicaciones que los usaban, ya que el interfaz no se ha cambiado. Un paquete presenta normalmente el siguiente formato:

create package nombre is / * especificación (parte visible) */ /* declaraciones de tipos y objetos públicos * / /* especificación de procedimientos y funciones */ end; / create package body nombre is /* cuerpo (parte oculta)*/ /*declaraciones de tipos y objetos privados */ /* implementación de procedimientos y funciones */ [ begin /* sentencias de inicialización */ ] end; / En la cabecera del paquete se especifican todos aquellos objetos a los que se puede acceder, y en el cuerpo del paquete se implementan dichos objetos. En el cuerpo podemos declarar e implementar cuantos objetos estimemos oportunos teniendo en cuenta que a ellos solo se va a poder acceder desde el cuerpo del paquete. El cuerpo del paquete puede incluir opcionalmente una zona de inicialización (BEGIN...) que Solo se ejecuta la primera vez que se hace referencia al paquete dentro de una misma sesión. Ya sabemos que los procedimientos y las funciones se declaran con la palabra reservada CREATE y se invocan con EXECUTE. Esto es así cuando los creamos desde el prompt de SQL, pero dentro de un paquete no hay que poner ni CREATE OR REPLACE, ni EXECUTE. Una vez que tenemos un paquete creado y compilado podemos acceder a los objetos declarados en la parte visible desde el prompt de SQL o desde otros procedimientos y funciones; para ello tan solo hay que anteponerle al nombre del procedimiento o función el nombre del paquete que lo contiene separado por un punto. /* para el caso de que la llamada se haga desde el prompt de SQL*/ SQL > execute nombre_paquete.nombre_procedimiento(argumentos); Dep. Informática

48


PL/SQL

Cuando queramos borrar un paquete lo haremos con la sentencia

DROP PACKAGE nombre_paquete ; A continuación se expone un ejemplo de un paquete completo: create or replace package acciones_empleados is type registro_empleado is record (empleado number, salario number); cursor salario_descendente (empleado number) return registro_empleado; procedure alta_empleado (nombre varchar2 , trabajo varchar2 , salario number, dpto number) ; procedure baja_empleado (id_empleado number); end; / create or replace package body acciones_empleados is cursor salario_descendente (empleado number) return registro_empleado is select no_empleado, salario from empleados order by salario desc; procedure alta_empleado ( nombre varchar2 , trabajo varchar2, salario number, dpto number) is begin insert into empleados values (sec_empleado.nextval, nombre, trabajo, salario, dpto); end; procedure baja_empleado (id_empleado number) is begin delete from empleados where empleado = id_empleado ; end; end; /

3.4.2.- La depuración en los paquetes.Al objeto de identificar los errores en tiempo de compilación, en vez de esperar a la ejecución, puede especificarse el nivel de depuración de una función empaquetada cuando se crea el paquete. El nivel de depuración determina que operaciones puede realizar la función en la base de datos. Para especificar en nivel de depuración se utiliza el paquete predefinido RESTRICT_REFERENCES. Sintaxis:

PRAGMA RESTRICT_REFERENCES ( nombre_func, WNDS [,WNPS] [RNDS] [,RNPS] ) ;

Donde: WNDS WNPS RNDS RNPS

Indica que la función no puede modificar tablas de la base de datos. (Writes No Database State). En este paquete es obligatoria. Hace que la función no pueda cambiar los valores de variables de un paquete público. (Writes No Package Status). No permite que la función pueda consultar ninguna tabla de la base de datos. (Reads No Database State). Indica que la función no puede referenciar los valores de las variables de un paquete público. (Reads No Database Status).

Dep. Informática

49


PL/SQL

Este paquete sirve para alertar a los desarrolladores de aplicaciones con código procedural que incumplen las restricciones de las funciones PL/SQL dentro de sentencias SQL. Indica al compilador PL/SQL qué tipo de acciones pueden realizar las funciones. Las sentencias SQL que incumplan estas reglas producen un error de compilación.

Ejemplo: Crear una función llamada COMP, dentro del paquete FINANZAS. La función será invocada desde sentencias SOL en bases de datos remotas. Por lo tanto será necesario indicar los niveles de depuración RNPS y WNPS porque las funciones remotas no pueden nunca escribir o leer el estado del paquete cuando se le invoca desde una sentencia SQL. CREATE PACKAGE finanzas AS interes REAL; FUNCTION comp (anos IN NUMBER cant IN NUMBER porc IN NUMBER) RETURN NUMBER; PRAGMA RESTRICT _REFERENCES(comp, WNDS, RNPS, WNPS); END finanzas; / CREATE PACKAGE BODY finanzas AS FUNCTION comp (anos IN NUMBER cant IN NUMBER porc IN NUMBER) RETURN NUMBER IS BEGIN comp RETURN cant * POWER((porc/100) +1, anos) END comp; END finanzas; /

El nivel de depuración de una función se debe especificar en la zona de especificación del paquete. Si el paquete contiene varias funciones con el mismo nombre, el nivel de depuración se aplica a la última. La invocación a una función empaquetada se hace de la misma forma que si fuera una función SQL. Por ejemplo, para llamar a la función COMP (que se encuentra en el paquete FINANZAS residente enm la BD de Barcelona) desde una sentencia SELECT, dentro de un bloque PL/SQL, haríamos: DECLARE interes NUMBER; BEGIN SELECT finanzas.comp@bcn(anos,cant,porc) INTO interes FROM conta WHERE no_cuenta = cuenta_id END;

Dep. Informática

50


PL/SQL

3.5.- VENTAJAS DE PROCEDIMIENTOS, FUNCIONES Y PAQUETES.El uso de procedimientos, funciones de usuario y paquetes presenta una serie de ventajas:  







Modula el desarrollo de las aplicaciones. Aumenta la seguridad y la integridad en la Base de Datos. - Mayor independencia de los datos, al ser analizados dentro del servidor Oracle en vez de desde dentro de una aplicación. - Control de acceso indirecto a objetos de la B.D. para usuarios no privilegiados. Asegura que las acciones que estén relacionadas se ejecutan conjuntamente. Aumenta del rendimiento - Permite realizar cálculos complejos, lentos o no disponibles en SQL - Preanálisis de sentencias que ejecutan varios usuarios, utilizando el SQL compartido. - Las sentencias PL/SQL se analizan en tiempo de compilación y no en ejecución. - Reducción del número de llamadas a la Base de Datos y el tráfico por la red gracias a la agrupación de comandos. - Posibilidad de manipular nuevos tipos de datos (por ejemplo latitud o longitud), codificando cadenas de caracteres y utilizando funciones para operar con las cadenas. Mejora en la utilización de la memoria - Una única copia del código almacenado en la B.D. en lugar de múltiples copias del mismo código en aplicaciones diferentes. - Utiliza SQL compartido para evitar el exceso de cursores. Fácil mantenimiento - Permite modificar procedimientos on-line sin interferir al resto de los usuarios (que ejecutan una versión anterior). - La modificación de una rutina afecta a todas las aplicaciones que trabajen con ella. Esto implica eliminar la duplicidad de las comprobaciones.

3.6.- MANEJO DE EXCEPCIONES.Los procedimientos y funciones deben prever cualquier tipo de excepción ocurrida mientras se ejecutan, bien propagando el error al entorno de llamada o bien desviándolo a una zona del subprograma. Como sabemos hay dos tipos de exepciones: las de Oracle y las definidas por el usuario. La siguiente tabla muestra como conseguir la comunicación interactiva del error o realizar una operación en la base de datos. Tipo de excepción

Efecto a conseguir

Método de manejo

Comunicar el error interactivamente Oracle

Definida por usuario

Dep. Informática

Omitir en el procedimiento el manejo de errores Realizar una operación en la base de datos Incluir el manejo de excepciones dentro adaptando el mensaje de error. del procedimiento. Comunicar el error interactivamente Llamar al procedimiento RAISE APPLICA TION ERROR. Realizar una operación en la base de datos Incluir el manejo de excepciones dentro adaptando el mensaje de error. del procedimiento

51


PL/SQL

Las excepciones de Oracle pueden ser controladas por el usuario con la sentencia EXCEPTION_INIT ya vista, que permite comunicar el código y el mensaje de error para una excepción de Oracle de forma interactiva omitiendo el manejo de excepciones. Si se omite el manejo de errores y el procedimiento termina con un fallo, devolverá al entorno de llamada el error "UNHANDLED EXCEPTION".

Ejemplo: Propagar una excepción del Servidor Oracle •

Mientras se está almacenando información para un empleado nuevo, comprobar que su jefe existe como empleado: CREATE OR REPLACE PROCEDURE alta_emp (v_emp_no IN emp.empno%TYPE, v_emp_name IN emp.ename%TYPE, v_emp_job IN emp.job%TYPE, v_mgr_no IN emp.mgr%TYPE, v_emp_sal emp.sal%TYPE) IS v_emp_hiredate emp.hiredate%TYPE ; v_emp_comm emp.comm%TYPE ; v_emp_deptno emp.deptno%TYPE ; BEGIN v_emp_hiredate:=sysdate; v_emp_comm:=0; SELECT deptno INTO v_emp_deptno FROM emp WHERE empno = v_mgr_no; INSERT INTO emp (empno, ename, job, mgr, hiredate, sal, comm, deptno) VALUES (v_emp_no, v_emp_name, v_emp_job, v_mgr_no, v_emp_hiredate, v_emp_sal, v_emp_comm, v_emp_deptno); END alta_emp; /

La siguiente sentencia provocaría la respuesta: SQL> EXECUTE alta_emp (1, 'PEPE', 'CLERK', 9999, 1000); BEGIN alta_emp (1, 'PEPE', 'CLERK', 9999, 1000); END; * ERROR en línea 1: ORA-01403: no se han encontrado datos ORA-06512: en "SCOTT.ALTA_EMP", línea 14 ORA-06512: en línea 1

Ejemplo: Propagar una excepción definida por el usuario. Recordemos que el procedimiento RAISE_APPLICATION_ERROR su usa para mostrar una excepción definida por el usuario de forma interactiva devolviendo un código de error no estándar y un mensaje. •

Mientras se intenta borrar a un empleado, comprobar que el empleado especificado existe: CREATE OR REPLACE PROCEDURE baja_emp (v_emp_numero IN temple.numem%TYPE) IS BEGIN DELETE FROM temple WHERE numem = v_emp_numero; IF SQL%NOTFOUND THEN RAISE_APPLICATION_ERROR (-20300, 'Empleado inexistente'); END IF; END baja_emp; /

Dep. Informática

52


PL/SQL

La siguiente sentencia provocaría la respuesta: SQL> EXECUTE baja_emp(9999); BEGIN baja_emp(9999); END; * ERROR en línea 1: ORA-20300: Empleado inexistente ORA-06512: en "SCOTT.BAJA_EMP", línea 6 ORA-06512: en línea 1

Si se omite el manejo de excepciones RAISE_APPLICATION_ERROR para una excepción definida por el usuario y el procedimiento finaliza con un fallo, devolverá un mensaje indicando que la excepción definida por el usuario ha fallado. Si se incluye el manejo de excepciones, el proceso se direcciona a la zona de excepciones. El desvío de excepciones definidas por el usuario actúa de forma similar a las excepciones Oracle, pero incluyendo su correspondiente manejador. Hay dos etapas adicionales: la declaración de la excepción e invocarla de manera explícita con la sentencia RAISE.

Ejemplo: Desviar el flujo del programa a una excepción Oracle predefinida. •

Mientras se almacena información acerca de un nuevo empleado, comprobar que su jefe existe como empleado. CREATE OR REPLACE PROCEDURE alta_emp (v_emp_no IN emp.empno%TYPE, v_emp_name IN emp.ename%TYPE, v_emp_job IN emp.job%TYPE, v_mgr_no IN emp.mgr%TYPE, v_emp_sal emp.sal%TYPE) IS v_emp_hiredate emp.hiredate%TYPE ; v_emp_comm emp.comm%TYPE ; v_emp_deptno emp.deptno%TYPE ; BEGIN v_emp_hiredate:=sysdate; v_emp_comm:=0; SELECT deptno INTO v_emp_deptno FROM emp WHERE empno = v_mgr_no; INSERT INTO emp (empno, ename, job, mgr, hiredate, sal, comm, deptno) VALUES (v_emp_no, v_emp_name, v_emp_job, v_mgr_no, v_emp_hiredate, v_emp_sal, v_emp_comm, v_emp_deptno); EXCEPTION WHEN NO_DATA_FOUND THEN RAISE_APPLICATION_ERROR (-20201, 'El jefe indicado:'|| v_mgr_no||' no es empleado'); END alta_emp; /

La siguiente sentencia provocaría la respuesta: SQL> EXECUTE alta_emp (1, 'PEPE', 'CLERK', 9999, 1000); BEGIN alta_emp (1, 'PEPE', 'CLERK', 9999, 1000); END; * ERROR en línea 1: ORA-20201: El jefe indicado:9999 no es empleado ORA-06512: en "SCOTT.ALTA_EMP", línea 21 ORA-06512: en línea 1

Dep. Informática

53


PL/SQL

Para direccionar el flujo de programa a una excepción Oracle no predefinida, invocándola con la sentencia EXCEPTION_INIT hay que seguir los siguientes pasos: -

Declarar la excepción. Asociar la excepción declarada con un número de error Oracle utilizando la sentencia EXCEPTION_INIT.

Ejemplo: Desviar el flujo del programa a una excepción Oracle NO-PREDEFINIDA. •

Mientras se almacena información acerca de un nuevo empleado, comprobar que su jefe existe como empleado. CREATE OR REPLACE PROCEDURE alta_emp (v_emp_no IN emp.empno%TYPE, v_emp_name IN emp.ename%TYPE, v_emp_job IN emp.job%TYPE, v_mgr_no IN emp.mgr%TYPE, v_emp_hiredate emp.hiredate%TYPE , v_emp_sal emp.sal%TYPE, v_emp_comm emp.comm%TYPE ) IS v_emp_deptno emp.deptno%TYPE ; e_jefe_erroneo EXCEPTION; PRAGMA EXCEPTION_INIT(e_jefe_erroneo, +100); BEGIN SELECT deptno INTO v_emp_deptno FROM emp WHERE empno = v_mgr_no; INSERT INTO emp (empno, ename, job, mgr, hiredate, sal, comm, deptno) VALUES (v_emp_no, v_emp_name, v_emp_job, v_mgr_no, v_emp_hiredate, v_emp_sal, v_emp_comm, v_emp_deptno); EXCEPTION WHEN e_jefe_erroneo THEN RAISE_APPLICATION_ERROR (-20291, 'Jefe '|| v_mgr_no||' no es empleado'); END alta_emp; /

La siguiente sentencia provocaría la respuesta: SQL> EXECUTE alta_emp(1, ‘PEPE', 'CLERK', 9999, '01-JUL-98', 1000, NULL); BEGIN alta_emp(1, 'PEPE', 'CLERK', 9999, '01-JUL-98', 1000, NULL); END; * ERROR en línea 1: ORA-20291: Jefe 9999 no es empleado ORA-06512: en "SCOTT.ALTA_EMP", línea 20 ORA-06512: en línea 1

3.7.- EJERCICIOS.3.7.1.- Ejercicios resueltos.1.- Crear el procedimiento aumento_salario para aumentar el salario de un empleado en una cantidad. El número de empleado y el aumento se le pasarán a la función, la cual deberá controlar los errores producidos por la inexistencia del empleado y del salario (valor nulo). CREATE PROCEDURE aumento_salario (empleado integer, incremento real) IS salario_actual real; Dep. Informática

54


PL/SQL

falta_salario exception; BEGIN SELECT salario INTO salario_actual FROM empleados WHERE no_empleado = empleado; IF salario_actual IS NULL THEN RAISE falta_salario; ELSE UPDATE empleados SET salario = salario + incremento WHERE no_empleado = empleado; END IF EXCEPTION WHEN NO_DATA_FOUND THEN INSERT INTO mensajes VALUES (empleado, 'No existe el empleado'}; WHEN falta_salario THEN INSERT INTO mensajes VALUES (empleado, 'No tiene salario'); END; /

2.- Determinar si un número es par o impar. Recursividad por interinvocación. CREATE OR REPLACE package pq_par IS FUNCTION par(n number) RETURN boolean; FUNCTION impar(n number) RETURN boolean; END pq_par; / CREATE OR REPLACE PACKAGE BODY pq_par IS FUNCTION par (n number) RETURN boolean IS BEGIN IF n = 0 THEN RETURN TRUE; ELSE RETURN impar(n-1); END IF; END; FUNCTION impar (n number) RETURN boolean IS BEGIN IF n = 0 THEN RETURN FALSE; ELSE RETURN par(n-1); END IF; END; END pq_par;

/

3.- Ejemplo completo de paquete: Consideremos el siguiente paquete emp_actions. La parte de especificación del paquete declara los siguientes tipos de datos, variables y subprogramas: • • • • •

Tipos EmpRecTyp y DeptRecTyp Cursor desc_salary Excepción invalid_salary Funciones hire_employee y nth_highest_salary Procedimientos fire_employee y raise_salary

Tras la escritura del paquete, podemos escribir subprogramas que hagan referencia a los tipos que declara, a su cursor y a su excepción, por que el paquete se almacena en la base de datos para uso público.

Dep. Informática

55


PL/SQL

CREATE PACKAGE emp_actions AS /* Declaración pública (visible desde fuera) de tipos, cursor y excepción */ TYPE EmpRecTyp IS RECORD (emp_id INT, salary REAL); TYPE DeptRecTyp IS RECORD (dept_id INT, location VARCHAR2); CURSOR desc_salary RETURN EmpRecTyp; invalid_salary EXCEPTION; /* Declaración de subprogramas. */ FUNCTION hire_employee ( ename VARCHAR2, job VARCHAR2, mgr REAL, sal REAL, comm REAL, deptno REAL) RETURN INT; PROCEDURE fire_employee (emp_id INT); PROCEDURE raise_salary (emp_id INT, grade INT, amount REAL); FUNCTION nth_highest_salary (n INT) RETURN EmpRecTyp; END emp_actions; / CREATE PACKAGE BODY emp_actions AS number_hired INT;

-- visible solo desde este paquete

CURSOR desc_salary RETURN EmpRecTyp IS SELECT empno, sal FROM emp ORDER BY sal DESC; FUNCTION hire_employee (

ename VARCHAR2, job VARCHAR2, mgr REAL, sal REAL, comm REAL, deptno REAL) RETURN INT IS

new_empno INT; BEGIN SELECT empno_seq.NEXTVAL INTO new_empno FROM dual; INSERT INTO emp VALUES (new_empno, ename, job, mgr, SYSDATE, sal, comm, deptno); number_hired := number_hired + 1; RETURN new_empno; END hire_employee; PROCEDURE fire_employee (emp_id INT) IS BEGIN DELETE FROM emp WHERE empno = emp_id; END fire_employee; /* Definiciones locales de funciones accesibles solo desde este paquete. */ FUNCTION sal_ok (rank INT, salary REAL) RETURN BOOLEAN IS min_sal REAL; max_sal REAL; BEGIN SELECT losal, hisal INTO min_sal, max_sal FROM salgrade WHERE grade = rank; RETURN (salary >= min_sal) AND (salary <= max_sal); END sal_ok; PROCEDURE raise_salary (emp_id INT, grade INT, amount REAL) IS salary REAL; BEGIN SELECT sal INTO salary FROM emp WHERE empno = emp_id; IF sal_ok(grade, salary + amount) THEN Dep. Informática

56

3 Plsql

Recommend Documents