envoi et réception de message à l'écran

[scorpion]

Bjr,

J'ai écrit un petit programme qui me permet la surveillance en boucle de l'activité d'une qbatch à chaque passage je transmet les jobs actifs par SNDMSG ce qui me donne comme résultat

De  . . . . :   USERPROD        02/16/11   14:01:44
JOB ACTIF EN QBATCH : PGM-PMRT11                   
De  . . . . :   USERPROD        02/16/11   14:01:44
JOB ACTIF EN QBATCH : PGM-MDT256                       
De  . . . . :   USERPROD        02/16/11   14:02:14
JOB ACTIF EN QBATCH : PGM-ART259
[...]

Pour mettre fin au job je fais monter un flag à oui à partir d'une dtaara puis je test la valeur à travers le programme

Ce pgm fonctionne parfaitement par contre je recherche à transmettre le résultat par une autre commande que SNDMSG afin de ne pas avoir la ligne   De  . . . . :   USERPROD        02/16/11   14:01:44  histoire d'esthétique

Y a t-il une commande pour cela ou avez-vous une autre idée pour retourner mon résultat à l'écran

Les SNDMSG sont formatés de la façon suivante :

ANALYSE:    RCVF       OPNID(FILE1)                               
            MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(CLOSE))   
CHGVAR     VAR(&JOBACT) VALUE(%SST(&FILE1_GESTQBATCH +
             100 14))                                   
SNDMSG     MSG('JOB ACTIF EN QBATCH : ' *CAT &JOBACT) +
             TOUSR(USERPROD)

[Didier]

Bonjour,
Il y a aussi les DTAQ, pour connaitre les commandes, faire un GO CMDTAQ sur une ligne de commande 
Amicalement
Didier

[scorpion]

Slt Didier et merci pour ta réponse

Par contre je crois que j'ai pas bien tout compris tu me dis "il y a aussi les DTAQ" heu ouai mais dans mon besoin j'en fais quoi et je le gère comment tu peux préciser stp.

Au faite j'ai essayé de faire mes messages avec la commande SNDPGMMSG mais le problème c'est que le programme me transmet 1 message maximum et arrête la boucle de mon programme y at-il une option pour que le programme ne soit pas arrêté après le 1er message je vous donnes les paramètres de ma commande

SNDPGMMSG  MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('JOB ACTIF : ' *CAT  &JOBACT) TOPGMQ(*PRV) MSGTYPE(*ESCAPE)           
                                             
               

[jmpenasse]

Bjr,

C'est le '*escape' qui force l'arrêt du programme.
De tête (je n'ai pas le moyen de vérifier pour l'instant) il faudrait plutôt indique *INFO ou *DIAG ou peut-être *COMP

[scorpion]

Slt Jmp

Oui c'est tout à fait ça le *Escape fait l'arrêt de mon programme j'ai effectué la même commande avec *info et la le programme ne s'arrête pas

Par contre tu n'aurais pas une idée pour transmettre le résultat de ma boucle avec autre chose que le sndmsg ou sndpgmmsg

[ropa]

pour des échanges asynchrones entre programme
il y a les MSGQ  et les commandes (SNDPGMMSG, RCVMSG, ..)et API associés 
il y a les DTAQ et les commandes (CRTDTAQ) et API associés (QSNDDTAQ, QRCVDTAQ..)
ou les USRQ et USRIDX pour ceux qui maitrisent la programmation MI
il y aussi Websphere MQ pour ceux qui venulenet des échanges entre machines...
le plus simple (à mon avis)  c'est d'utiliser les data queues...