From 9a78fa20593c0237c28c497b1eb1051ed606eb2a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Nicol=C3=A1s=20Ortega=20Froysa?= <nicolas@ortegas.org>
Date: Wed, 27 Apr 2022 17:30:15 +0200
Subject: [PATCH] Add GBD/t6-ex exam solutions.

---
 1/GBD/t6-ex-nortega.sql | 105 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 105 insertions(+)
 create mode 100644 1/GBD/t6-ex-nortega.sql

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;
+/