Re: Finding large objects that are blowing up the system ASP

if you need to look into the IFS the PRTDSKINF will give a % of the IFS but not much else detail wise.

RTVDIRINF is your best be for that.

i keep a library to collect the info so I can run some canned SQL

<cl>
DLTF DIRINFO/QAEZD0001D
DLTF DIRINFO/QAEZD0001O

SBMJOB CMD(RTVDIRINF DIR(/) INFLIB(DIRINFO) +
OMIT('/QOPT' '/qsys.lib' '/qdls')) JOB(RTVDIRINFO)
</cl>

and given the DIRINFO library name:

<sql>
-- objects per directory
SELECT DISTINCT COUNT(Dirinfo.Qaezd0001o.Qezdiridx) AS Tot_In_Dir
,Dirinfo.Qaezd0001o.Qezdiridx
,Dirinfo.Qaezd0001d.Qezdirnam1
FROM Dirinfo.Qaezd0001o
INNER JOIN Dirinfo.Qaezd0001d
ON Dirinfo.Qaezd0001o.Qezdiridx = Dirinfo.Qaezd0001d.Qezdiridx
GROUP BY Dirinfo.Qaezd0001o.Qezdiridx
,Dirinfo.Qaezd0001d.Qezdirnam1
ORDER BY Tot_In_Dir DESC;

--Largest single objects
SELECT dirinfo.Qaezd0001o.Qezalcsize
,CAST(dirinfo.Qaezd0001o.Qezobjnam AS CHAR(30)) AS Objnam
,dirinfo.Qaezd0001d.Qezdirnam1
FROM Dirinfo.Qaezd0001o
INNER JOIN Dirinfo.Qaezd0001d
ON dirinfo.Qaezd0001o.Qezdiridx = dirinfo.Qaezd0001d.Qezdiridx
WHERE dirinfo.Qaezd0001o.Qezalcsize > 1000000
ORDER BY dirinfo.Qaezd0001o.Qezalcsize DESC;




James H. H. Lampert via MIDRANGE-L wrote on 4/23/2025 1:16 PM:

On 4/23/25 11:02 AM, Jack Woehr wrote:

https://www.ibm.com/support/pages/printing-disk-space-reports

Thanks. I've now put it on my bookmarks toolbar under the name "Finding large objects on an AS/400.

I'll run the report once I've finished getting rid of a long-obsolete Tomcat IFS directory. It's amazing just how much <expletive deleted> a Tomcat server can accumulate.

--
JHHL