Laboratorio#5- Procedimientos

Ejemplo 1:

SET SERVEROUTPUT ON;

SET VERIFY OFF;

CREATE OR REPLACE PROCEDURE

Escribir(texto VARCHAR)

IS

BEGIN

DBMS_OUTPUT.PUT_LINE(texto);

END;

· Para ejecutar:

SQL> execute Escribir('HOLA');

Ejemplo 2:

Tabla empresas, los dos varchar 5 y 60

• Creacion de la tabla:

create table empresas(cif varchar2(5), direccion varchar2(60), nombre varchar2(40));

SET SERVEROUTPUT ON;

SET VERIFY OFF;

CREATE OR REPLACE PROCEDURE consultarEmpresa

(v_Nombre VARCHAR2, v_CIF OUT VARCHAR2, v_dir OUT VARCHAR2)

IS

BEGIN

SELECT cif, direccion INTO v_CIF, v_dir

FROM EMPRESAS

WHERE nombre LIKE '%'||v_Nombre||'%';

EXCEPTION

WHEN NO_DATA_FOUND THEN

DBMS_OUTPUT.PUT_LINE('No se encontraron datos');

WHEN TOO_MANY_ROWS THEN

DBMS_OUTPUT.PUT_LINE ('Hay más de una fila con esos’||‘ datos');

END;