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

Recevoir des messages sur les jobs effectués

Tech - Par Renaud ROSSET - Publié le 24 juin 2010

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 cette ressource

Construire une infrastructure cloud optimisée pour l’IA avec Microsoft Azure

Construire une infrastructure cloud optimisée pour l’IA avec Microsoft Azure

Les managers IT ont besoin d’une stratégie claire et de solutions concrètes pour préparer leur infrastructure cloud à l'adoption de l'IA, tout en optimisant les coûts, renforçant la sécurité et développant les compétences internes. Découvrez tous les conseils dans ce guide Insight.

Les plus consultés sur iTPro.fr

A lire aussi sur le site

À la une de la chaîne Tech