Afficher la version de l’OS400
DSPDTAARA QUSRSYS/QSS1MRI
Frédéric Huard
Recherche de source sur la machine
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’
Taille d’une bibliothèque
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’)))
Chercher les programmes en erreur de niveau
Permet de repérer les programmes RPG qui vont planter en erreur de niveau suite à une évolution de la base de données. 1) Lister les références des programmes dans un fichier temporaire :DSPPGMREF PGM(BIBPGM/*ALL) OUTPUT(OUTFILE) OBJTYPE(*PGM) OUTFILE(QTEMP/LISTEPGM) 2) Croiser les « format level ID » entre la liste des références des programmes et la liste des fichiersSELECT … Lire la suite
Comparer 2 tables en utilisant EXCEPT
EXCEPT en SQL permet d’extraire les différences entre 2 tables. Exemple : 2 tables article avec des contenus différents 1) Extraire les lignes de ARTICLE qui ne sont pas dans ARTICLE2 :SELECT * FROM articleEXCEPTSELECT * FROM article2Résultat : Casquette jaune 2) Extraire les lignes de ARTICLE2 qui ne sont pas dans ARTICLE :SELECT * … Lire la suite
Lister les bibliothèques, les tables et les colonnes avec SQL
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
Superviser mon AS400 avec Metabase
Metabase est un outil de visualisation des données sous forme d’un dashboard graphique.Exemple d’utilisation : Requêtes utilisées pour cette exemple :1) % occupation disqueSELECT SYSTEM_ASP_USED FROM qsys2.system_status_info 2) Nombre de travaux intéractifsSELECT count(*) FROM TABLE(active_job_info()) where job_type=’INT’ 3) Nombre de travaux en message SELECT count(*) FROM TABLE(active_job_info()) WHERE job_status=’MSGW’ 4) Palmarès du nombre de spoules … Lire la suite
Boucle de lecture en SQLRPGLE
Exemple : Lecture de la table utilisateur en filtrant les habitants de PARIS
Importer un SAVF depuis l’IFS
– Création du savf (par exemple dans qtemp) : CRTSAVF FILE(QTEMP/MONSAVF) – Importation du savf depuis l’IFS :CPYFRMSTMF FROMSTMF(‘/home/monprofil/monsavf’) TOMBR(‘/qsys.lib/qtemp.lib/monsavf.file’) MBROPT(*REPLACE)