Re: New machine, Critical storage condition exists.

This may get truncated on the list because I think the list software
truncates emails after two adjacent minus signs.

-- Replace all occurances of QAEZD0053 with QAEZDwhatever
-- Replace all occurances of ROUTINES with the library specified in
RTVDIRINF.

-- You can read the help on RTVDIRINF on more information about the QAEZD*
files.
-- List QAEZD* files
select system_table_schema as Library, system_table_name as file
from qsys2.systables
where system_table_schema='ROUTINES' and system_table_name like 'QAEZD%'
order by system_table_name desc;

-- List of objects by biggest directory
With t1 as(
select distinct d.qezdirnam1 as ParentDirectory,
qezdiridx
from routines.QAEZD0053d d
where locate('/',d.qezdirnam1,2)=0
and d.qezdirnam1<>'/'
),
T2 as (
Select ParentDirectory, qezdirnam1,o.qezdtasize as size
from T1, routines.qaezd0053d d left outer join
routines.qaezd0053o o on d.qezdiridx=o.qezdiridx
where qezdirnam1 like trim(ParentDirectory) concat '%'
and (qezdirnam1 = ParentDirectory or
substr(qezdirnam1,1,max(locate('/',qezdirnam1,2)-1,1)) =
ParentDirectory)
)
select ParentDirectory, sum(size) as dirsize

From T2

Group by ParentDirectory
order by 2 desc
;


-- Biggest items on the system, stream files or "traditional"
-- Combined QAEZDISK with QAEZD... to sum up tables with multiple members.
With T1 as (
Select
diobsz as size,
diobli as DirectoryName,
diobnm as ObjectName

From qusrsys.qaezdisk

where diobli <> ' '
UNION ALL
Select o.qezdtasize as size, qezdirnam1 as DirectoryName, qezobjnam as
ObjectName
from routines.qaezd0053d d left outer join
routines.qaezd0053o o on d.qezdiridx=o.qezdiridx
where qezdirnam1 not like '/QSYS.LIB%')
Select size, DirectoryName, ObjectName

From T1

Order by size desc



Rob Berendt