SELECT OBJLIB as bibliotheque ,OBJNAME as objet , OBJTYPE as type , OBJDEFINER as createur, OBJCREATED as date_creation ,OBJTEXT as description FROM TABLE(QSYS2.OBJECT_STATISTICS(‘AXFILE’,’*ALL’))ORDERBY OBJtype, objname
Cette requête SQL permet de mettre en évidence les différences de niveaux entre 2 bibliothèques : SELECT a.SYSTEM_TABLE_NAME as fichier, a.SYSTEM_TABLE_SCHEMA as bib1, a.FORMAT_LEVEL_ID as niv1, b.SYSTEM_TABLE_SCHEMA as bib2, b.FORMAT_LEVEL_ID as niv2, (a.FORMAT_LEVEL_ID <> b.FORMAT_LEVEL_ID) as upgradedFROM sysfiles a , sysfiles b WHERE a.system_table_schema = ‘MABIB1’ and b.system_table_schema = ‘MABIB2’ and a.native_type = ‘PHYSICAL’ and a.SYSTEM_TABLE_NAME = b.SYSTEM_TABLE_NAME … Lire la suite
SELECT * FROM QSYS2.SYSFUNCS Pour tester la présence d’une fonction (par exemple QCMDEXC) :SELECT *FROM QSYS2.SYSFUNCSWHERE ROUTINE_NAME = ‘QCMDEXC’
Votre source a été supprimé? Comment vérifier si il existe une copie de sauvegarde quelque part sur la machine? SELECT * FROM syspartitionstat WHERE system_table_member = ‘MONSOURCE’
SELECT SUM(objsize) FROM TABLE(QSYS2.OBJECT_STATISTICS(‘MABIB’, ‘*ALL’)) Additionner 2 bibliothèques :VALUES (SELECT SUM(objsize) FROM TABLE(QSYS2.OBJECT_STATISTICS(‘MABIB’, ‘*ALL’))) + (SELECT SUM(objsize) FROM TABLE(QSYS2.OBJECT_STATISTICS(‘MABIB2’, ‘*ALL’)))
Lister les bibliothèques :SELECT * FROM sysschemas Par exemple, les 10 plus grosses bibliothèques :SELECT * FROM sysschemas ORDER BY schema_size DESCLIMIT 10 Lister les tables : SELECT * FROM systables Par exemple, lister les tables d’une bibliothèque :SELECT * FROM systables WHERE table_schema =’maBib’ Lister les colonnes :SELECT * FROM syscolumns Lister les colonnes … Lire la suite
Par exemple, supprimer tous les fichiers pdf de plus d’1 an dans un répertoire : SELECT QCMDEXC(‘rmvlnk objlnk( »’ CONCAT TRIM(CAST(path_name AS VARCHAR(200))) CONCAT »’)’) FROM TABLE(qsys2.ifs_object_statistics( ‘/home/monRepertoire’)) WHERE path_name LIKE ‘%.pdf’ AND CREATE_TIMESTAMP < CURRENT_TIMESTAMP – 1 YEARS Explications :– ifs_object_statistics permet de lister les fichiers d’un répertoire de l’IFS exemple : SELECT CAST(path_name AS … Lire la suite
SELECT SUBSTR(table_name, 1 , 12) , last_used_timestamp FROM systablestat WHERE table_schema = ‘MaBibliotheque’
SELECT machine_type, machine_model, serial_number, host_name, partition_idFROM qsys2.system_status_info
SELECT count(*) FROM TABLE(qsys2.spooled_file_info(USER_NAME => ‘ProfilAS400′)) Si besoin, la commande qui permet de supprimer tous les spoules d’un d’utilisateur : DLTSPLF FILE(*SELECT) SELECT(ProfilAS400) Pour avoir le palmarès des utilisateurs avec le plus de spoules :SELECT job_user , count(*) AS nombreFROM TABLE(QSYS2.SPOOLED_FILE_INFO(USER_NAME =>’*’))GROUP BY job_userORDER BY nombre DESC
