le forum IBM i

Bonjour, J'ai créé un job qui check les messages dans le système et qui envoi un mail à l'équipe Iseries dès qu'il y a un soucis. SELECT A.JOB_NAME, COALESCE( A.SUBSYSTEM, ''), CAST(COALESCE(concat(TRIM(B.MESSAGE_TEXT) , TRIM(B.MESSAGE_SECOND_LEVEL_TEXT)), '') AS CHAR(400)), DATE(MESSAGE_TIMESTAMP),...

bonjour, Un exemple de code avec un readc : readc WECRAN1S; Dow not %eof() and not %error(); select; when choix = '2'; wecran = '01'; chain (a:b) monfichier; exsr montraitement; choix =''; update WECRAN1S; Other; choix =''; update WECRAN1S; Endsl; readc WECRAN1S; enddo; larry57

Bonjour,

Il n'y a personne dans la société qui puisse t'expliquer les bases de la programmation sur Ibm i ?

Larry57

Bonjour,

J'y suis finalement arrivé, mais pas en sql natif, via une chaine de caractère, tout fonctionne bien.

Merci.

Stéphane

Bonjour Christian, Si je remplace par une chaine de caractère, c'est OK. //Exec SQL // DECLARE C1 CURSOR WITHOUT HOLD FOR // SELECT CAST(path_name AS CHAR(100)) // FROM TABLE(QSYS2.IFS_OBJECT_STATISTICS('/home/stephane','NO')) // where OBJECT_TYPE <> '*DIR'; sql ='SELECT CAST(path_name AS CHAR(100))...

Bonjour, J'ai un petit soucis pour reprendre via sql le dir d'un répertoire avec la nouvelle commande : QSYS2.IFS_OBJECT_STATISTICS Je fait un CHGJOB CCSID(1147) D repertoire s 100a Exec SQL DECLARE C1 CURSOR WITHOUT HOLD FOR SELECT CAST(path_name AS CHAR(100)) FROM TABLE(QSYS2.IFS_OBJECT_STATISTICS...