How to run a program after receiving a message in MSGQ ?

[francoisf]

Hi,

i want a program to be run (immediatly and automatically) when a message arrives in a MSGQ.

I tried this :

CRTMSGQ MSGQ(MYLIB/MYMSGQ)
CHGMSGQ MSGQ(MYLIB/MYMSGQ) DLVRY(*BREAK) PGM(MYLIB/MYPGM)

but it doesn't work : the program is not called.

Thank if you can help !

 

[Mercury2]

francoisf,
Just create a message queue and submit a CL program that runs continuously for the program to wait indefinitely for an incoming message.
e.g.

...
Loop:
Rcvmsg msgq(MYLIB/MYMSGQ) wait(*MAX) rmv(*YES) msg(&MSG) +
msgdta(&MSGDTA) msgid(&MSGID)
If (&MSGID *EQ 'AAAnnnn') CALL MYLIB/MYPGM ...
If (&MSG = 'STOP') RETURN /* End */
GoTo Loop
...

When any message arrives in MYLIB/MYMSGQ, the cl continues sequentially after the RCVMSG command.
if the retrieved &MSGID variable equals to 'AAAnnnn" MYLIB/MYPGM program is fired, though you could suppress the condition.
If the retrieved &MSG variable equals to STOP, the program ends.

HTH

 

[iSeriesCodePoet]

I believe there is also an API if you would rather have it written in RPG, but TalkTurkey's idea is easy.

iSeriesCodePoet
iSeries Programmer/Lawson Software Administrator

http://www.koldark.net