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
Guide de technologie 5G pour l’entreprise
Le livre blanc "The Big Book of Enterprise 5G" vous fournit les informations stratégiques dont vous avez besoin pour prendre des décisions éclairées et préparer votre entreprise à prospérer dans l'ère de la 5G. Cradlepoint, part of Ericsson est le leader mondial des solutions de réseau sans fil 4G LTE et 5G fournies via le cloud. Connectez vos employés, lieux et objets avec la 4G LTE et la 5G pour un WAN sans fil d'entreprise.