-- MOSTRAR DATOS EN PANTALLA
SET serveroutput ON

-- ACTIVIDAD 1.1 Crea el tipo de objetos "MiembroEscolar" con los siguientes atributos:
CREATE OR REPLACE TYPE MiembroEscolar AS OBJECT ( codigo INTEGER, dni VARCHAR2(10), nombre VARCHAR2(30), apellidos VARCHAR2(30), sexo VARCHAR2(1), fecha_nac DATE
) NOT FINAL;
/

-- ACTIVIDAD 1.2 Crea, como tipo heredado de "MiembroEscolar", el tipo de objeto "Profesor" con los siguientes atributos:
CREATE OR REPLACE TYPE Profesor UNDER MiembroEscolar ( especialidad VARCHAR2(20), antiguedad INTEGER,
-- Declaración método constructor (actividad 2)
CONSTRUCTOR FUNCTION Profesor( codigo INTEGER, nombre VARCHAR2, apellido1 VARCHAR2, apellido2 VARCHAR2, especialidad VARCHAR2)
RETURN …ver más…

Crea un método "getNombreCompleto" para el tipo de objetos "Profesor" que permita obtener su nombre completo con el formato "apellidos nombre". */
MEMBER FUNCTION getNombreCompleto RETURN VARCHAR2 IS
BEGIN
RETURN apellidos||' '||nombre;
END;
END;
/

/* 4. Crea un tabla "Profesorado" de objetos "Profesor". Inserta en dicha tabla dos objetos "Profesor". El primero de ellos con los datos: */
CREATE TABLE Profesorado OF Profesor;
INSERT INTO Profesorado VALUES (2, '51083099F', 'MARIA LUISA', 'FABRE VERDUN', 'F', '31/03/1975', 'TECNOLOGIA', 4);
INSERT INTO Profesorado VALUES (Profesor(3, 'JAVIER', 'JIMENEZ', 'HERNANDO', 'LENGUA'));
SELECT * FROM Profesorado;
/

/* ACTIVIDAD 5. Crea una colección VARRAY llamada "ListaCursos" en la que se puedan almacenar hasta 10 objetos "Cursos".
Guarda en una instancia "listaCursos1" de dicha lista, los dos cursos siguientes: */
CREATE OR REPLACE TYPE ListaCursos IS VARRAY(10) OF Cursos;
/
DECLARE
ListaCursos1 ListaCursos; refProfe REF Profesor; unAlumno Alumno;
BEGIN
ListaCursos1 := ListaCursos (NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL);
SELECT REF(p) INTO refProfe FROM Profesorado p WHERE p.codigo = 3;
ListaCursos1 (1) :=