Re: iSeries sql send msg/reply problem

On 17/09/2008, at 11:59 PM, Aaron Abreu wrote:

SNDPGMMSG MSG('IS FILE NAME OK? 1=YES 5=NO') +
TOPGMQ(*EXT) MSGTYPE(*INQ) RPYMSGQ(*PGMQ) +
KEYVAR(&NAMEOK)
RCVMSG MSGTYPE(*RPY) MSGKEY(&NAMEOK) WAIT(120)

IF COND(&NAMEOK *NE '1') +

&NAMEOK is message key NOT the response. You need to specify the MSGKEY of the message you sent in order to get the associated response but nowhere do you define where you expect to receive the response.

Also, why are you not using SNDUSRMSG? It will do all this and save you from getting the plumbing correct.

Regards,
Simon Coulter.
--------------------------------------------------------------------
FlyByNight Software OS/400, i5/OS Technical Specialists

http://www.flybynight.com.au/
Phone: +61 2 6657 8251 Mobile: +61 0411 091 400 /"\
Fax: +61 2 6657 8251 \ /
X
ASCII Ribbon campaign against HTML E-Mail / \
--------------------------------------------------------------------