Nous recherchons une solution simple pour capter les messages destinés à qsysopr du style Fichier plein , ou Fichier en cours d'utilisation( verrouillé par notre logiciel de BACKUP défectueux (PMEDH de TRADERS)) , qui sont émis par des batchs. Ca doit etre simple , mais on n'a jamais cherché.
Cordialement
C TALHOUET
02 97 61 66 21
Groupe JEAN FLOCH
Messages dans QSYSOPR
-
luc.marionneau
- Messages : 2
- Enregistré le : lun. 22 sept. 2008, 10:06:59
- Localisation : nantes
Réponse automatique à un message
Avez vous testé la réponse automatique à un message
Ajouter poste liste de réponse (ADDRPYLE)
Luc Marionneau
Ajouter poste liste de réponse (ADDRPYLE)
Luc Marionneau
-
cmasse
- Site Admin
- Messages : 813
- Enregistré le : mer. 14 févr. 2007, 18:00:03
- Localisation : Nantes
- Contact :
QSYSOPR et MONITEURS dans gestion centralisée
Il existe aussi une option très sympa dans Iseries Navigator/gestion centralisée : les moniteurs.
Vous pouvez définir les moniteurs suivants avec notion d'alerte :
- système, pour surveiller les perf. (si ma CPU dépasse x%-> alerte)
- travaux (si j'ai moins de n travaux dans sbs/QAUTO -> alerte)
- message (si j'ai le message CPFxxxx dans QSYSOPR,-> alerte)
- fichier , qui surveille essentiellement QHST (DSPLOG)
Les exemples que j'ai mis entre parenthèses ne sont qu'un petit extrait des possibilités.La notion d'alerte donne la possibilité de passer une commande OS/400.
Enfin, même si votre PC est éteint, la surveillance continue de se faire sur le serveur, mais il y a un paramètre pour que le moniteur redémarre suite à IPL !!
Il faut vraiment redécouvrir l'option Gestion centralisée d'iSeries Navigator.
Vous pouvez définir les moniteurs suivants avec notion d'alerte :
- système, pour surveiller les perf. (si ma CPU dépasse x%-> alerte)
- travaux (si j'ai moins de n travaux dans sbs/QAUTO -> alerte)
- message (si j'ai le message CPFxxxx dans QSYSOPR,-> alerte)
- fichier , qui surveille essentiellement QHST (DSPLOG)
Les exemples que j'ai mis entre parenthèses ne sont qu'un petit extrait des possibilités.La notion d'alerte donne la possibilité de passer une commande OS/400.
Enfin, même si votre PC est éteint, la surveillance continue de se faire sur le serveur, mais il y a un paramètre pour que le moniteur redémarre suite à IPL !!
Il faut vraiment redécouvrir l'option Gestion centralisée d'iSeries Navigator.
Christian Massé (Volubis.fr)
-
claude.mahe
- Messages : 44
- Enregistré le : ven. 22 juin 2007, 17:11:26
- Localisation : SAINT BRIEUC( 22002)
- Contact :
Re: QSYSOPR et MONITEURS dans gestion centralisée
Oui, c'est parfaitement vrai !cmasse a écrit :Il existe aussi une option très sympa dans Iseries Navigator/gestion centralisée : les moniteurs.
.../...
Il faut vraiment redécouvrir l'option Gestion centralisée d'iSeries Navigator.
Par contre, pas toujours facile avec des machines réparties dans des pays ou les réseaux sont disons... un peu fluctuants et de faible capacité !
Pour notre part, nous utilisons une routine légèrement modifiée d'un programme trouvé sur le net :
http://www.rpgiv.org/oprmone.htm
Nota : Pour l'envoi des émails, nous utilisons le package de javamail largement plus souple d'emploi que les SNDDST natifs.
-
cimmelé
- Messages : 34
- Enregistré le : mer. 28 mars 2007, 21:57:59
- Localisation : Rennes(35)
- Contact :
(sans texte)
voici un petit CLP qui vient lire une msgq
Dans la commande Rcvmsg, on récupère des tas d'infos sur les variables messages.
PGM
DCL VAR(&MSGID1) TYPE(*CHAR) LEN(7)
DCL VAR(&MSGID2) TYPE(*CHAR) LEN(7)
DCL VAR(&TEXTE) TYPE(*CHAR) LEN(132)
ALCOBJ OBJ((LIBSYS/QUPS *MSGQ *EXCL))
MONMSG CPF0000 EXEC(GOTO FIN)
CLRMSGQ MSGQ(LIBSYS/QUPS)
MONMSG CPF0000 EXEC(GOTO FIN)
ATT: RCVMSG MSGQ(LIBSYS/QUPS) WAIT(*MAX) RMV(*NO) +
MSG(&TEXTE) MSGID(&MSGID1)
/* ------------------------- */
/* INTERRUPTION ALIMENTATION */
/* ------------------------- */
IF COND(&MSGID1 *EQ 'CPF1816') THEN(DO)
/* ATTENTE RETABLISSEMENT PENDANT 30 SECONDES SINON MESSAGE AUX UTILISATEURS */
SNDMSG MSG(&TEXTE) TOUSR(*SYSOPR)
RET: RCVMSG MSGQ(LIBSYS/QUPS) WAIT(30) RMV(*NO) +
MSGID(&MSGID2)
IF COND(&MSGID2 *EQ 'CPF1817') THEN(GOTO ATT)
SNDBRKMSG MSG('COUPURE DE COURANT PROLONGEE : Veuillez +
arrêter tous vos travaux informatiques en +
cours et REVENIR AU MOT DE PASSE +
IMMEDIATEMENT. Merci.') TOMSGQ(*ALLWS)
GOTO CMDLBL(RET)
ENDDO
GOTO CMDLBL(ATT)
FIN: ENDPGM
Dans la commande Rcvmsg, on récupère des tas d'infos sur les variables messages.
PGM
DCL VAR(&MSGID1) TYPE(*CHAR) LEN(7)
DCL VAR(&MSGID2) TYPE(*CHAR) LEN(7)
DCL VAR(&TEXTE) TYPE(*CHAR) LEN(132)
ALCOBJ OBJ((LIBSYS/QUPS *MSGQ *EXCL))
MONMSG CPF0000 EXEC(GOTO FIN)
CLRMSGQ MSGQ(LIBSYS/QUPS)
MONMSG CPF0000 EXEC(GOTO FIN)
ATT: RCVMSG MSGQ(LIBSYS/QUPS) WAIT(*MAX) RMV(*NO) +
MSG(&TEXTE) MSGID(&MSGID1)
/* ------------------------- */
/* INTERRUPTION ALIMENTATION */
/* ------------------------- */
IF COND(&MSGID1 *EQ 'CPF1816') THEN(DO)
/* ATTENTE RETABLISSEMENT PENDANT 30 SECONDES SINON MESSAGE AUX UTILISATEURS */
SNDMSG MSG(&TEXTE) TOUSR(*SYSOPR)
RET: RCVMSG MSGQ(LIBSYS/QUPS) WAIT(30) RMV(*NO) +
MSGID(&MSGID2)
IF COND(&MSGID2 *EQ 'CPF1817') THEN(GOTO ATT)
SNDBRKMSG MSG('COUPURE DE COURANT PROLONGEE : Veuillez +
arrêter tous vos travaux informatiques en +
cours et REVENIR AU MOT DE PASSE +
IMMEDIATEMENT. Merci.') TOMSGQ(*ALLWS)
GOTO CMDLBL(RET)
ENDDO
GOTO CMDLBL(ATT)
FIN: ENDPGM