Je souhaite synchroniser 1 jobs avec X jobs soumis.
J'ai réussi à le faire de manière pas idéale, c'est à dire que le job parent soumet X jobs, les compte pour mémoriser dans une variable ce nbre, et attend de recevoir les messages *COMP sur une MSGQ.
Ca fonctionne sauf que rien ne me dit, que les X jobs qui se sont terminés sur cette MSGQ sont bien les X qui ont été soumis...
J'ai trouvé un autre exemple ici : https://www.volubis.fr/news/liens/AF4SR ... GEXEMP.htm
Mais je n'arrive pas à le faire fonctionner :
CL TESTSYNC1 :
Code : Tout sélectionner
SNDPGMMSG MSG('question') TOMSGQ(ARCAD_FRA/INTEGARC) +
MSGTYPE(*INQ) RPYMSGQ(ARCAD_FRA/INTEGARC) +
KEYVAR(&CLE)
SBMJOB CMD(CALL PGM(TESTSYNC2)) +
JOB(TESTSYNC2) MSGQ(ARCAD_FRA/INTEGARC)
RCVMSG MSGQ(ARCAD_FRA/INTEGARC) MSGTYPE(*RPY) +
MSGKEY(&CLE) +
WAIT(*MAX) MSG(&REPONSE)
Code : Tout sélectionner
DLYJOB DLY(10)
RCVMSG MSGQ(ARCAD_FRA/INTEGARC) MSGTYPE(*INQ) +
WAIT(*MAX) KEYVAR(&CLE)
SNDRPY MSGKEY(&CLE) MSGQ(ARCAD_FRA/INTEGARC) +
RPY(&REPONSE)
Merci de votre aide.