/* @mostrarDatosBD_directorio */

SET LINESIZE 60
SET PAGESIZE 20

-- para que no muestre la salida generada por un fichero de órdenes
-- SET TERMOUT OFF

-- guardar la fecha en la variable fecha_informe
COLUMN fechaHoy NEW_VALUE fecha_informe

/* mostrar la fecha actual
*/
SELECT TO_CHAR(SYSDATE,'dd-Mon-yyyy') fechaHoy FROM DUAL;

BTITLE LEFT "fecha de informe: " fecha_informe

column idDoc       heading "id|doc"        format 999b;
column idDir       heading "id|dir"        format 999;
column nombre      heading "nombre"        format a30;
column dirPadre    heading "dir|Padre"     format b99;
column Path        heading "Path"          format a80;

/* se pueden mostrar mensajes directamente (desde un procedure, trigger, etc.) :
DBMS_OUTPUT.PUT_LINE('listado de DOCUMENTOS:'); */

TTITLE CENTER 'listado de DOCUMENTOS:' SKIP 2

-- espera confirmacion antes de mostrar una nueva página
-- set pause on

SELECT * FROM documento;

TTITLE LEFT 'listado de DIRECTORIOS:' SKIP 2

SELECT * FROM Directorio;

SET LINESIZE 132
TTITLE LEFT 'listado de todos DOCUMENTOS y su ubicación:' SKIP 2

SELECT idDoc, nombre, (SELECT SYS_CONNECT_BY_PATH(nombre, '/')
                        FROM Directorio WHERE idDir=D.dirPadre
                        START WITH dirPadre IS NULL
                        CONNECT BY dirPadre = PRIOR idDir) "Path"
 FROM Documento D;

TTITLE OFF
BTITLE OFF

-- para que no espere al final de cada página
-- set pause off