6 résultats trouvés
- mar. 14 déc. 2021, 15:55:09
- Forum : Système
- Sujet : Capter un message de programme d'autre utilisateur
- Réponses : 5
- Vues : 15793
Re: Capter un message de programme d'autre utilisateur
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),...
- jeu. 22 juil. 2021, 14:40:50
- Forum : langages
- Sujet : Chain et choix d'affichage
- Réponses : 5
- Vues : 8994
Re: Chain et choix d'affichage
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
- ven. 16 juil. 2021, 11:06:07
- Forum : langages
- Sujet : Débutant AS400 : RPG IV
- Réponses : 15
- Vues : 18299
Re: Débutant AS400 : RPG IV
Bonjour,
Il n'y a personne dans la société qui puisse t'expliquer les bases de la programmation sur Ibm i ?
Larry57
Il n'y a personne dans la société qui puisse t'expliquer les bases de la programmation sur Ibm i ?
Larry57
- jeu. 28 janv. 2021, 09:59:20
- Forum : Questions, suggestions, vie du forum, divers
- Sujet : QSYS2.IFS_OBJECT_STATISTICS en RPGLE
- Réponses : 4
- Vues : 25251
Re: QSYS2.IFS_OBJECT_STATISTICS en RPGLE
Bonjour,
J'y suis finalement arrivé, mais pas en sql natif, via une chaine de caractère, tout fonctionne bien.
Merci.
Stéphane
J'y suis finalement arrivé, mais pas en sql natif, via une chaine de caractère, tout fonctionne bien.
Merci.
Stéphane
- mer. 27 janv. 2021, 12:15:15
- Forum : Questions, suggestions, vie du forum, divers
- Sujet : QSYS2.IFS_OBJECT_STATISTICS en RPGLE
- Réponses : 4
- Vues : 25251
Re: QSYS2.IFS_OBJECT_STATISTICS en RPGLE
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))...
- mer. 27 janv. 2021, 10:33:53
- Forum : Questions, suggestions, vie du forum, divers
- Sujet : QSYS2.IFS_OBJECT_STATISTICS en RPGLE
- Réponses : 4
- Vues : 25251
QSYS2.IFS_OBJECT_STATISTICS en RPGLE
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...