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
SELECT SUBSTR(table_name, 1 , 12) , last_used_timestamp FROM systablestat WHERE table_schema = ‘MaBibliotheque’
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
Free RPG : dcl-s dateDuJour char(8);dateDuJour = %char(%date():*ISO0);
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
