/* @tstBD_directorio */

SET ECHO ON
SET PAGESIZE 20
-- SET PAUSE "pulsar <CR> "

/* crea la BD de directorios, añade datos de prueba, y muestra la BD
   después se ejecutan algunas operaciones con la BD (eliminar algun
   subdirectorio, etc.)
   Para terminar, se restaura el estado inicial
*/

-- creacion de la BD de directorios
@crearBD_directorio

PAUSE Press RETURN to continue

-- mostrar información de las tablas creadas
describe Directorio
describe Documento

-- la sentencia ACCEPT se utiliza para asignar valores a variables interactivamente
-- ACCEPT esperar CHAR PROMPT "pulsar <CR>"

-- PAUSE Press RETURN to continue

-- rellenar las tablas con los datos de ejemplo
@ponerDatosBD_directorio

PAUSE Press RETURN to continue

-- mostrar el contenido de la BD
@mostrarDatosBD_directorio

PAUSE Press RETURN to continue

-- añadir el procedimiento de eliminación de directorio
@borrarDirBD_directorio

-- probar el procedimiento de eliminación de directorio. Para ello, se
-- solicita al usuario que introduzca el id del directorio a eliminar.
execute borrar_Directorio(&dir_a_borrar)

-- probar el procedimiento de eliminación de directorio eliminando todo
execute borrar_Directorio(1)

-- eliminar el procedimiento creado
DROP PROCEDURE borrar_Directorio;

-- eliminar las tablas de la BD (por si acaso, primero la de Documento)
DROP TABLE Documento;
DROP TABLE Directorio;