| View previous topic :: View next topic |
| Author |
Message |
SK2007
Beginner
Joined: 25 Jan 2007
Posts: 40
Topics: 17
|
 Posted: Fri Apr 23, 2010 4:00 pm Post subject: Trigger CICS program |
 |
|
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 |
|
| Back to top |
|
 |
kolusu
Site Admin
Joined: 26 Nov 2002
Posts: 12366
Topics: 75
Location: San Jose
|
|
| Back to top |
|
|
SK2007
Beginner
Joined: 25 Jan 2007
Posts: 40
Topics: 17
|
| Posted: Sat Apr 24, 2010 9:45 pm Post subject: |
|
|
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. |
|
| Back to top |
|
|
|
|
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
