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
Ce livre blanc répond aux 9 questions clés des entreprises sur l’intégration du Mac : sécurité, compatibilité, gestion, productivité, coûts, attractivité talents, RSE et IA, et l’accompagnement sur mesure proposé par inmac wstore.
Portails développeurs internes : accélérer l’innovation sans alourdir les budgets
Pourquoi Shopify Plus s’impose dans la transformation du e-commerce B2B
Quand l’innovation échappe à ses créateurs: Comment éviter l’effet Frankenstein à l’ère de l’IA
Alliée ou menace ? Comment l’IA redessine le paysage cyber
CES 2026 : l’IA physique et la robotique redéfinissent le futur
