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
Découvrez comment renforcer la cyber-résilience de Microsoft 365 grâce à une approche Zero-Trust, une administration granulaire et une automatisation avancée. La technologie Virtual Tenant de CoreView permet de sécuriser et simplifier la gestion des environnements complexes, tout en complétant vos stratégies IAM, y compris dans les secteurs réglementés.
Communes, entreprises ? Non, face au RGAA 5, l’IA seule ne rendra pas vos sites accessibles
DevX Summit EMEA : les développeurs au cœur de la révolution de l’IA
Adapter la sécurité OT aux réalités de l’industrie
Coder vite, mais coder juste : trouver l’équilibre à l’ère de l’IA
Mixité dans la Tech : en 2026, un choix de souveraineté stratégique
