04g - Varie sistemistica

Controllo File (Tabelle) più grosse in una lista di librerie

Last Updated on 17 Agosto 2022 by Roberto De Pedrini

Supponiamo di voler tenere sotto controllo i file (dovremmo abituarci a chiamarle Tabelle, come il resto del mondo!) di un elenco di librerie di dati, di volerne vedere le dimensioni, il numero di record e il numero di record cancellati (calcolando una eventuale dimensione dell’oggetto dopo una eventuale reorganize (RGZPFM)).

Con un semplice query come questo possiamo avere l’elenco delle top 100 tabelle che “mangiano” più spazio di tre liberie indicate in una temporary table da mettere in Cross Join Lateral con la UDTF object_statistics e la systablestat:

SELECT *
FROM (
  VALUES('FAQ400'),('QGPL'),('SAMPLEDB')
) t(LibraryToCheck)
cross join lateral
(select objlongschema, objname, objlongname, objtype, objattribute, objowner, objcreated, cast(objsize/1000000 as integer) as ObjSizeMB,
int(objsize/(NUMBER_ROWS + NUMBER_DELETED_ROWS)*NUMBER_ROWS/1000000) as AfterReorgize, b.last_used_timestamp, number_rows, number_deleted_rows,  objtext  FROM TABLE(QSYS2.OBJECT_STATISTICS(t.LibraryToCheck, '*ALL')) a 
left join qsys2.systablestat b on a.objname=b.system_table_name and a.objlongschema=b.table_schema
)
order by objsizeMB  desc
fetch first 100 rows only;
Related Posts
Alternativa a OVRDBF nelle specifiche F (dcl-f free)

Non è una novità di RPG ma ogni tanto è utile ricordare che se vogliamo utilizzare, all'interno dei nostri programmi Read more

ILE Debugger (STRDBG) e Dimensioni Schermo

Quando usiamo l'ILE Debugger da interfaccia 5250 (in attesa di un Debugger per VsCode o di una versione più veloce Read more

Pillole di sicurezza: Controllo utenti con default password

Accolgo il suggerimento di Steve Pitcher di Itech Solution, che in questo Post Linkedin suggerisce un semplice statement SQL per Read more

RPG IV free cheatsheet

RPG IV free cheatsheet

--- Roberto De Pedrini Faq400.com
About author

Founder di Faq400 Srl, IBM Champion, ideatore del sito Faq400.com e del Blog blog.faq400.com. Sviluppatore RPG da quando avevo i pantaloni corti, forte sostenitore della piattaforma IBM i (ex AS400), ho sempre cercato di convididere le mie conoscenze con gli altri tramite forum, eventi e corsi. Oggi, tramite Faq400 Srl, cerchiamo di aiutare le aziende a sfruttare al meglio questa fantastica piattaforma IBM i.

Lascia un commento

Il tuo indirizzo email non sarà pubblicato.