diff --git a/1/GBD/t6-ex-nortega.sql b/1/GBD/t6-ex-nortega.sql new file mode 100644 index 0000000..ec4779c --- /dev/null +++ b/1/GBD/t6-ex-nortega.sql @@ -0,0 +1,105 @@ +SET SERVEROUTPUT ON; + +-- ej1 + +/* Declara una variable departamento que tenga como tipo de dato una fila + * completa de la tabla dept. + * + * Después, mediante un cursor implícito, guarda en esa variable departamento la + * fila de la tabla dept cuyo campo loc vale CHICAGO. Para terminar, utiliza un + * bucle FOR que recorra todas las letras del nombre (dname) de la fila guardada + * en la variable departamento y vaya mostrando en cada iteración, cada letra + * de dname. + */ + +DECLARE +    departamento dept%ROWTYPE; +BEGIN +    SELECT * INTO departamento FROM dept WHERE loc='CHICAGO'; +    FOR i IN 1..LENGTH(departamento.dname) +    LOOP +        dbms_output.put_line(SUBSTR(departamento.dname,i,1)); +    END LOOP; +END; +/ + +-- ej2 + +/* + * Crea un tipo de dato registro con los campos id (tipo de dato igual a deptno de + * la tabla dept) y nombre (tipo de dato igual a dname de la tabla dept) y declara + * una variable departamento del tipo de ese registro. Ahora usa un cursor + * implícito para guardar en esa variable departamento el deptno y el dname de la + * fila de la tabla dept cuyo deptno vale 10. Para terminar, muestra por pantalla + * el id y el nombre de la variable departamento obtenido. + */ + +DECLARE +    TYPE DEPT_DATA IS RECORD( +        id dept.deptno%type, +        nombre dept.dname%type); +    departamento DEPT_DATA; +BEGIN +    SELECT deptno, dname INTO departamento +        FROM dept WHERE deptno=10; +    dbms_output.put_line(departamento.id || ' ' || +        departamento.nombre); +END; +/ + +-- ej3 + +/* + * Se necesita un registro para los empleados y otro para las localidades. + * + * El registro de empleados debe tener los siguientes campos: id (tipo de dato + * igual que el campo empno de la tabla emp), nombre (tipo de dato igual que el + * campo ename de la tabla emp), sueldo (tipo de dato igual que el campo sal de la + * tabla emp), localidad (tipo de dato igual que el registro de localidades). + * + * El registro de localidades debe tener los siguientes campos: ref (varchar + * tamaño 3 con valor MAI), localidad varchar tamaño 50 con valor MAIRENA, + * provincia (varchar tamaño 50 con valor SEVILLA) y cp (int tamaño 5 con valor + * 41927). + * + * Se quiere declarar una variable del tipo registro empleado y un cursor + * explícito que se traiga los campos empno, ename y sal de la tabla emp. + * + * Recorre todas las filas del cursor declarado con un bucle LOOP, guardando los + * datos extraídos en la variable del tipo registro empleado. + * + * En cada iteración del bucle LOOP muestra por pantalla id, nombre, sueldo, ref + * de localidad, localidad de localidad, provincia de localidad y cp de + * localidad. + */ + +DECLARE +    TYPE LOC_DATA IS RECORD( +        ref VARCHAR(3) := 'MAI', +        localidad VARCHAR(50) := 'MAIRENA', +        provincia VARCHAR(50) := 'SEVILLA', +        cp INT(5) := 41927); +    TYPE EMP_DATA IS RECORD( +        id emp.empno%type, +        nombre emp.ename%type, +        sueldo emp.sal%type, +        loc LOC_DATA); +    empl EMP_DATA; +    CURSOR empls IS SELECT empno, ename, sal FROM emp; +BEGIN +    OPEN empls; +    LOOP +        FETCH empls INTO empl.id, empl.nombre, empl.sueldo; +        EXIT WHEN empls%notfound; +        dbms_output.put_line('-----'); +        dbms_output.put_line('Empleado número ' || empl.id); +        dbms_output.put_line('Nombre: ' || empl.nombre); +        dbms_output.put_line('Sueldo: ' || empl.sueldo); +        dbms_output.put_line('Referencia de localidad: ' || empl.loc.ref); +        dbms_output.put_line('Nombre de localidad: ' || empl.loc.localidad); +        dbms_output.put_line('Provincia de localidad: ' || empl.loc.provincia); +        dbms_output.put_line('Código postal de localidad: ' || empl.loc.cp); +    END LOOP; +    CLOSE empls; +END; +/