SNDPGMMSG dans un sous-programme

Version imprimable

03/08/2022, 14h30
Nombre pi

SNDPGMMSG dans un sous-programme
Bonjour,

J'ai écrit un programme SNDSTS comme suit :
Code:

1 2 3 4 5 PGM PARM(&MSG) DCL VAR(&MSG) TYPE(*CHAR) LEN(70) SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA(&MSG) TOPGMQ(*PRV) MSGTYPE(*STATUS) RETURN
Quand Je fais un CALL SNDSTS PARM('Mon message') le message apparait dans la 25ème ligne de l'écran.
Par contre quand j'appelle ce programme à partir d'un autre programme le message n'apparait pas ou plutôt il disparait rapidement.

C'est quoi le problème ?
04/08/2022, 08h05
dgayte

Bonjour,

Est-ce que tu n'affiches pas un autre écran (ou un format) à la suite ?

Si c'est le cas, il me semble normal que la ligne de message soit réinitialisée.

Dominique.
04/08/2022, 09h10
pwrdwnsys

Je pense qu'il est mieux de faire un envoi de message vers TOPGMQ(*EXT) plutôt que TOPGMQ(*PRV). En tout cas, c'est comme ça que je procède.
04/08/2022, 10h15
Nombre pi
Citation:

Envoyé par dgayte

Bonjour,

Est-ce que tu n'affiches pas un autre écran (ou un format) à la suite ?

Si c'est le cas, il me semble normal que la ligne de message soit réinitialisée.

Dominique.

Au fait dans un programme PGM1 (CLLE)
Code:

1 2 3 4 5 6 7 8 9 10 11 PGM DCL &MSG *CHAR 70 ... CHGVAR &MSG 'Mon message.' ... CALL SNDSTS PARM(&MSG) ... Command 1 Command 2 ...
Au fait à l'exécution du CALL (ligne 6) il y'a affichage du message mais immédiatement après, en passant aux lignes suivante le message disparait.