Lister les tables d’une bibliothèque avec la dernière date d’utilisation
SELECT SUBSTR(table_name, 1 , 12) , last_used_timestamp FROM systablestat WHERE table_schema = ‘MaBibliotheque’
Frédéric Huard
Trouver le numéro du jour de la semaine sans calendrier
Permet d’affecter à la variable jour le numéro du jour de la semaine du jour comme suit :1:Lundi 2:Mardi 3:Mercredi 4:Jeudi 5:Vendredi 6:Samedi 7:Dimanche(et sans s’appuyer sur un calendrier!) en SQLRPGLE :EXEC SQL SET :jour= (CASE WHEN DAYOFWEEK(CURRENT_DATE) = 1 THEN 7 ELSE DAYOFWEEK(CURRENT_DATE)-1 END); Explications : la fonction SQL DAYOFWEEK permet de récupérer le … Lire la suite
Récupérer la date du au format AAAAMMJJ
Free RPG : dcl-s dateDuJour char(8);dateDuJour = %char(%date():*ISO0);
Obtenir le type, le modèle, le n° de série, le nom de la machine et le n° de partition
SELECT machine_type, machine_model, serial_number, host_name, partition_idFROM qsys2.system_status_info
Compter le nombre de spoules par utilisateur
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