Re: Actual Used space
Posted in 1996
Use it, who ever want.
Store procedure follows.
Any q?, just mail me
Bjarne /Alm. Brand Denmark
********* Store Procedure *******************
CREATE DBA PROCEDURE sp_dbspaces (kol char(18) default NULL)
RETURNING char(18), char(18), integer, integer, integer;DEFINE o_name char(18);
DEFINE o_path char(18);
DEFINE o_offset integer;
DEFINE o_chksize integer;
DEFINE o_nfree integer;
IF kol is NULL THEN
FOREACH
select a.name, b.fnameA10,28?, b.offset*4, b.chksize*4, b.nfree*4
into o_name, o_path, o_offset, o_chksize, o_nfree
from sysmaster:sysdbspaces a, sysmaster:syschunks b
where a.dbsnum = b.dbsnum
order by a.nameRETURN o_name, o_path, o_offset, o_chksize, o_nfree WITH RESUME;
END FOREACH;
ELSE
FOREACH
select a.name, b.fnameA1,18?, b.offset, b.chksize, b.nfree
into o_name, o_path, o_offset, o_chksize, o_nfree
from sysmaster:sysdbspaces a, sysmaster:syschunks b
where a.dbsnum = b.dbsnum --- and
order by b.fnameA1,18?, b.offsetRETURN o_name, o_path, o_offset*4, o_chksize*4, o_nfree*4 WITH RESUME;
END FOREACH;
END IF;
END PROCEDURE;
;