> Tech > Recevoir des messages sur les jobs effectués

Recevoir des messages sur les jobs effectués

Tech - Par iTPro - Publié le 24 juin 2010
email

Pour voir les messages sur les jobs effectués, on peut utiliser DLVRY(*BREAK). Mais, c'est parfois agaçant. Mieux vaut recourir à  ce programme de traitement des messages, qui affiche chaque message sur la dernière ligne de l'écran :

PGM         PARM(&msgq &msgqlib &msgkey)
DCL         VAR(&msgq) TYPE(*CHAR) LEN(10)
DCL         VAR(&msgqlib) TYPE(*CHAR) LEN(10)

DCL VAR(&msgkey) TYPE(*CHAR) LEN(4)
DCL VAR(&msgdta) TYPE(*CHAR) LEN(132)
RCVMSG MSGQ(&msgqlib/&msgq)
MSGKEY(&msgkey)
RMV(*NO) MSG(&msgdta)
SNDPGMMSG MSGID(CPF9897) MSGF(QCPFMSG)
MSGDTA(&msgdta) TOPGMQ(*EXT)
MSGTYPE(*STATUS)
ENDPGM

Pour cela, il faut modifier la file d’attente des messages en ajoutant ce qui suit au programme initial :

CHGMSGQ	MSGQ(*USRPRF) PGM(MONMSG)
CHGMSGQ	MSGQ(*WRKSTN) PGM(MONMSG)

Rob Freeling, AS/400 Consultant
Gap Gemini Information
Delft, Pays-Bas

Téléchargez gratuitement cette ressource

Guide des Services Managés pour se moderniser et se sécuriser

Guide des Services Managés pour se moderniser et se sécuriser

À l’heure où les talents du numérique sont rares et difficiles à séduire, comment bénéficier des meilleures compétences en infrastructure Cloud ou en cybersécurité pour gagner en agilité et en cyber-résilience ? Découvrez le Guide des Services managés dédiés aux PME.

Tech - Par iTPro - Publié le 24 juin 2010