Capter un message de programme d'autre utilisateur

[LeMouton]

Bonjour,

Je cherche a capter les messages de programmes sur l'ensemble des utilisateurs. J'ai certains utilisateurs qui répondent C, d'autres qui spam le clavier avec espoir et conviction.

J'aimerais pouvoir bloquer un utilisateur qui serait sur un écran de ce type, ou encore pouvoir garder les traces et les insérer dans une table ou dans un spool et analyser ceci afin de régler les soucis par la suite.

Je suis en V7r4, j'ai RDI et system I navigator.
Je n'ai pas encore les PTF pour navigator for I mais c'est en projet dans un ou deux mois, et je ne sais pas si cet outil pourrait m'aider dans mon projet.

Merci d'avance

[LeMouton]

Grâce a un message du forum, j'ai aperçu les moniteurs dans la gestions centralisée de système I navigator.

Est ce que les personnes qui utilise système I ou navigator for I ont une préférences pour un des deux ? et pour pourquoi ?

Bonne journée

[plberthoin]

pour répondre aux messages

sur des interactifs c'est compliqué

Sur des batchs c'est simple les messages arrivent dans qsysopr , avec un watcher par exemple

Par contre tu as les informations des réponse dans la log du système dsplog ou la FT SQL correspondante QSYS2.HISTORY_LOG_INFO

tu extrais par exemple toutes lé réponses tous les soirs

PS
La meilleur solution est quand même de corriger les plantages et pas d'investir sur la non qualité !

Sincères salutations

[LeMouton]

Merci pour la réponse

Pour le moment je me fait ping dès qu'un user a une gravité 90+ avec system i navigator. Je vais voir du coté de HISTORY_LOG_INFO, merci

PS : Nouvelle mission, on s'adapte a l'existant...

Bonne journée

[Larry57500]

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),TIME(MESSAGE_TIMESTAMP)
FROM TABLE(QSYS2.ACTIVE_JOB_INFO(JOB_NAME_FILTER
=> '*ALL')) A
CROSS JOIN TABLE(QSYS2.HISTORY_LOG_INFO()) B
WHERE A.JOB_NAME = B.FROM_JOB
AND A.JOB_STATUS = 'MSGW'
AND B.MESSAGE_SECOND_LEVEL_TEXT is not null
AND MESSAGE_TIMESTAMP > (CURRENT TIMESTAMP - 5 MINUTES)
ORDER BY B.ORDINAL_POSITION DESC;

Il manque juste un bout de la requête, car je stock aussi les messages déjà traités.

Juste faire un CHGJOB CCSID(1147) avant.

Larry57

[LeMouton]

Merci beaucoup @Larry57500.

Je regarde ça avec bien plus de précision début janvier, c'est un peu le feu en fin d'année ici.

Bonne journée et bonne fête