Discussion :

[Nombre pi]

Bonjour,


J'ai écrit un programme SNDSTS comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[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.

[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.

[Nombre pi]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.