Frédéric Huard – Page 2 – Consultant IBMi AS400

Superviser mon AS400 avec Metabase

septembre 30, 2025septembre 29, 2025 par Frédéric Huard

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

septembre 28, 2025septembre 25, 2025 par Frédéric Huard

Exemple : Lecture de la table utilisateur en filtrant les habitants de PARIS

Importer un SAVF depuis l’IFS

septembre 25, 2025septembre 25, 2025 par Frédéric Huard

– 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)

Remplacer des caractères dans une chaîne de caractères

septembre 28, 2025septembre 24, 2025 par Frédéric Huard

Utilisation de %SCANRPL( from : to : source { : start } )

Agrégation de données avec LISTAGG

septembre 4, 2025septembre 3, 2025 par Frédéric Huard

SELECT item ,LISTAGG(TRIM(couleur), ‘,’) WITHIN GROUP(ORDER BY couleur)AS couleursFROM articleGROUP BY item Explications :LISTAGG permet de lister dans une colonne les données issues de plusieurs lignes.LISTAGG(colonne_à_concaténer , ‘séparateur’) WITHIN GROUP(ORDER BY colonne_de_tri) Dans l’exemple donné, le SQL transforme le fichier article suivant en 2 lignes composées de la colonne item et d’une colonne de couleurs … Lire la suite

Agrandir la ligne de commande

septembre 3, 2025septembre 2, 2025 par Frédéric Huard

Sur une ligne de commande : CALL QCMD On obtient 4 lignes : Et pour avoir encore plus grand : F11=Plein écran

Faire du ménage dans l’IFS selon la date des fichiers

avril 7, 2026août 16, 2025 par Frédéric Huard

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

Trouver le programme appelant dans un RPG

août 31, 2025août 12, 2025 par Frédéric Huard

Permet dans un RPG d’identifier son programme appelant. Cela peut servir par exemple pour conditionner certaines actions ou laisser une trace dans un fichier log. en SQLRPGLE :dcl-ds N PSDS; nom_du_pgm CHAR(10) POS(1);end-ds; dcl-s appelant char(10); EXEC SQL SELECT program_name INTO :appelant FROM TABLE(stack_info(‘*’)) WHERE program_name not in (‘ ‘ , :nom_du_pgm) AND ordinal_position < … Lire la suite

Trouver le FQDN de la machine

août 12, 2025 par Frédéric Huard

CHGTCPDMN + F4

Supprimer les doublons dans un fichier

septembre 3, 2025août 9, 2025 par Frédéric Huard

DELETE FROM monfichier aWHERE RRN(a) NOT IN ( SELECT MAX(RRN(b)) FROM monfichier b WHERE (a.cle1, a.cle2) = (b.cle1, b.cle2) ) Explications :La fonction RRN permet de récupérer le numéro d’enregistrement de la ligne. Le SQL supprime donc les doublons (clé1+clé2 dans l’exemple) qui ne correspondent pas au dernier numéro d’enregistrement. Si on veut conserver le … Lire la suite