> 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 de Cloud Privé Hébergé

Guide de Cloud Privé Hébergé

Comment permettre aux entreprises de se focaliser sur leur cœur de métier, de gagner en agilité, réactivité et résilience en s’appuyant sur un socle informatique performant, évolutif et sécurisé ? Découvrez les avantages des solutions de Cloud Privé hébergé de la CPEM.

Tech - Par iTPro - Publié le 24 juin 2010