6 résultats trouvés

par Larry57500
mar. 14 déc. 2021, 15:55:09
Forum : Système
Sujet : Capter un message de programme d'autre utilisateur
Réponses : 5
Vues : 11676

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),...
par Larry57500
jeu. 22 juil. 2021, 14:40:50
Forum : langages
Sujet : Chain et choix d'affichage
Réponses : 5
Vues : 7636

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
par Larry57500
ven. 16 juil. 2021, 11:06:07
Forum : langages
Sujet : Débutant AS400 : RPG IV
Réponses : 15
Vues : 15212

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
par Larry57500
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 : 18622

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
par Larry57500
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 : 18622

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))...
par Larry57500
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 : 18622

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...