MVSFORUMS.com :: View topic - Trigger CICS program

through

[^/[Print]\]

MVSFORUMS.com -> CICS and Middleware

#1: Trigger CICS program Author: SK2007,

Posted: Fri Apr 23, 2010 4:00 pm
—
Hi,
I am very new to MQ series. Please help me.

My requirement is to trigger a program when there is a message in Queue. The triggered program will read the message from Queue and send message to another program for validation.

But in trigeered program, I am not getting any response after calling
MQGET. I dont know why??
My statements are

Code:

compute ws-mq-options = mqoo-input-shared +
mqoo-save-all-context +
mqoo-fail-if-quiescing.
call ws-mqopen using ws-mq-hconn
mqod
ws-mq-options
ws-mq-hobj
ws-mq-compcode
ws-mq-reason.

Code:

compute mqgmo-options = mqgmo-no-syncpoint
call ws-mqget using ws-mq-hconn
ws-mq-hobj
mqmd
mqgmo
ws-mq-bufflen
ws-mq-message
ws-mq-compcode
ws-mq-reason.

I captured mqget dump.

Code:

CALL MQGET(
Hconn = '00000000' MQ Connection handle
Hobj = '00000001' MQ Object handle
MsgDesc = . 19608AE0 MQ Formatted Message Descriptor (MQMD)
GetMsgOpts = . 19608C28 MQ Formatted Get Message Options (MQGMO)
BufferLength = '00000566' MQ Message buffer length in hex
Buffer Address = + 196083E0 MQ Message buffer address
DataLength = '00000064' MQ Message data length in hex
CompCode = '0' MQ Completion Code in decimal
= MQCC_OK
Reason = '0' MQ Reason Code in decimal
= MQRC_NONE
)

It is saying ASRA abend with program CSQCTRUE
I am not what is wrong with this program. Thanks for your help as always.
SK2007

#2: Author: kolusu, Location: San Jose

Posted: Fri Apr 23, 2010 5:20 pm
—
SK2007,

ASRA abend is too generic. It can be caused for n number of reasons. Take a look at this topic

http://www.mvsforums.com/helpboards/viewtopic.php?t=1812

Kolusu

#3: Author: SK2007,

Posted: Sat Apr 24, 2010 9:45 pm
—
Thanks Kolusu.
I looked at the pdf given in the link. But I felt it is difficult to solve my situation. This ASRA caused SOC4.
I got connection handle as zeros after MQOPEN. Is it correct??zeors is the valid value for connection handle??

Thanks
SK2007.

MVSFORUMS.com -> CICS and Middleware

output generated using printer-friendly topic mod. All times are GMT - 5 Hours

Page 1 of 1