Aunque actualmente existen herramientas como OAT, que nos permiten visualizar graficamente la ocupación de los Dbspaces definidos en nuestra base de datos Informix, es conveniente poder obtener esta información por SQL por si queremos incluir está información en un registro para hacer un seguimiento detallado. Para obtener información de nuestros Dbspaces, asi como de los Chunks que los forman debemos recurrir a dos tablas de la Base de datos sysmaster:
sysdbspaces
syschunks
La forma de calcular el espacio que ocupan, asi como el espacio libre varía en función de si es un dbspace normal, o es un blobspace o es un sbspace. Lo he resuelto haciendo tres querys unidas por la clausula UNION:
DATABASE sysmaster;
--
-- Dbspace 'normal'
--
SELECT d.name[1,10] Name, d.nchunks Chunks, SUM(k.chksize*2/1024) Total, SUM(k.nfree*2/1024) Free, 100-(SUM(k.nfree*2/1024)*100)/(SUM(k.chksize*2/1024)) Perc FROM sysdbspaces d, syschunks k WHERE d.dbsnum=k.dbsnum AND d.is_blobspace=0 AND d.is_sbspace=0 GROUP BY 1,2
UNION
--
-- Blobspaces
--
SELECT d.NAME[1,10] Name, d.nchunks Chunks, SUM(k.chksize*2/1024) Total, SUM(k.nfree*8/1024)Free, 100-(SUM(k.nfree*8/1024)*100)/(SUM(k.chksize*2/1024)) Perc FROM sysdbspaces d, syschunks k WHERE d.dbsnum=k.dbsnum AND d.is_blobspace=1 GROUP BY 1,2
UNION
--
-- Sbspaces
--
SELECT d.NAME[1,10] Name, d.nchunks Chunks, SUM(k.chksize*2/1024) Total, SUM(k.udfree*2/1024) Free, 100-(SUM(k.udfree*2/1024)*100)/(SUM(k.chksize*2/1024)) Perc FROM sysdbspaces d, syschunks k WHERE d.dbsnum=k.dbsnum AND d.is_sbspace=1 GROUP BY 1,2 ORDER BY 1
Como hemos visto en entradas anteriores, la declaración de un cursor, ya sea en 4GL o en SPL, esta intimamente ligada a una query SQL que nos proporciona los resultados deseados. Pues bien, tambien podemos ligar la declaración de un cursor a los resultados proporcionados por un procedimientotanto en r4GL como en SPL. Imaginemos un procedimiento que nos proporcione una lista de los clientes de un determinado pais. Si deseamos obtener información detallada de todos los paises haremos lo siguiente: * En R4GL:
##
## Lo primero que debemos hacer es preparar el procedimiento que vamos a
## utilizar.
## En la definición del procedimiento incluimos un interrogante por cada
## parámetro de entrada, en nuestro ejemplo recibirá el id del país
## y nos proporcionará el id y nombre de cada uno de los clientes.
## PREPARE procClientes FROM "EXECUTE PROCEDURE procClientes(?)"
##
## A continuación declaramos un cursor de la tabla de paises tal como hemos visto en entradas anteriores:
## DECLARE cursorPais CURSOR FOR SELECT id_pais, nombre_pais FROM paises ORDER BY nombre_pais
FOREACH cursorPais INTO idPais, nombrePais
##
## Le paso el idPais al procedimiento y nos devuelve una lisa de clientes
## FOREACH procClientes USING idPais INTO idCliente, nombreCliente
----
---- END FOREACH;
END FOREACH
* En SPL: FOREACH SELECT id_pais, nombre_pais INTO idPais, nombrePais FROM paises ORDER BY nombre_pais
--
-- En Spl no hace falta preparar el procedimiento.
-- Lo utilizamos directamente pasandole los parámetros
-- de entrada entre parentesis
-- FOREACH
EXECUTE PROCEDURE procCLientes (idPais) INTO idCliente, nombreCliente;
RETURN nombrePais, nombreCliente WITH RESUME;
END FOREACH;
END FOREACH; Espero que os sea de utilidad. Hasta la próxima.
Una de las herramientas mas potentes en Informix 4gl es el uso de cursores para obtener información de la base de datos. Voy a comentaros cómo se declaran y las formas que conozco de explotarlos. La forma de declararlos es muy sencilla:
DECLARE myCursor CURSOR FROM SELECT * FROM tabla WHERE condiciones
Es decir, definimos un CURSOR con el nombre que queramos (myCursor en el ejemplo) asociado a una query que nos aportará los datos que necesitamos. Existen dos formas distintas de abrir el cursor y empezar a explotar la informacion aportada:
* Uso de FOREACH:
DEFINE datosCliente RECORD LIKE clientes.*
DECLARE myCursor CURSOR FOR SELECT * FROM clientes WHERE condiciones
FOREACH myCursor INTO datosCliente --- --- --- END FOREACH FREE myCursor
* Uso de OPEN - CLOSE
DEFINE datosCliente RECORD LIKE clientes.*
DECLARE myCursor CURSOR FOR SELECT * FROM clientes WHERE condiciones
OPEN myCursor FETCH myCursor INTO datosCliente IF STATUS = 0 THEN WHILE TRUE --- --- --- FETCH myCursor INTO datosCliente IF STATUS = NOTFOUND THEN EXIT WHILE END IF END WHILE END IF CLOSE myCursor FREE myCursor
No hay diferencias en cuanto al uso de uno u otro método, pero yo recomiendo usar OPEN - CLOSE para realizar REPORTS por una razón muy sencilla, al realizar el primer FETCH podemos averiguar si el cursor nos va a devolver alguna información. De esta forma podemos hacer el START REPORT seguros de que al menos va a tener una linea.
DECLARE myCursor CURSOR FOR SELECT * FROM clientes WHERE condiciones
OPEN myCursor FETCH myCursor INTO datosCliente IF STATUS = 0 THEN ## ## Inicio el Report cuando sé que va a tener contenido ## START REPORT myReport TO printer WHILE TRUE OUTPUT TO REPORT miReport (datosCliente) FETCH miCursor INTO datosCliente IF STATUS = NOTFOUND THEN EXIT WHILE END IF END WHILE ## ## Finalizo el Report cuando salgo del while ## FINISH REPORT myReport END IF CLOSE myCursor FREE myCursor
Espero que os sea de utilidad... hasta la próxima.