Mike,
We do this all of the time - here is some basic COBOL code - missing half
of the IF statements, but you can get the gist of what we do:
MQM-TRIGGER-MESSAGE is a standard copybook structure that is just part of
the source code delivered from IBM.
EXEC CICS ASSIGN
STARTCODE (WS-STARTCODE)
END-EXEC.
IF WS-STARTCODE = 'SD'
MOVE LENGTH OF MQM-TRIGGER-MESSAGE TO WS-START-LENGTH
EXEC CICS RETRIEVE
INTO (MQM-TRIGGER-MESSAGE)
LENGTH (WS-START-LENGTH)
RESP (CICS-RESP)
END-EXEC
IF (MQM-TRIGGER-MESSAGE(1:4) = 'TMC ') OR
(MQM-TRIGGER-MESSAGE(1:4) = 'TM ')
MOVE MQTMC-USERDATA TO WS-STARTUP-DATA
MOVE MQTMC-QNAME TO WS-STARTUP-QUEUE
Thanks,
David Corbett
IBM Certified Solution Designer - WebSphere MQ V7.0
IBM Certified System Administrator - WebSphere MQ V7.0
From: "Coombs, Lawrence" <Lawrence.Coombs-***@public.gmane.org>
To: MQSERIES-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org,
Date: 02/26/2014 08:56 PM
Subject: Re: MQ Documentation
Sent by: MQSeries List <MQSERIES-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org>
It is either MQTMC or MQTMC2 structure. It?s been awhile.
From: MQSeries List [mailto:MQSERIES-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org] On Behalf
Of Coombs, Lawrence
Sent: Wednesday, February 26, 2014 8:43 PM
To: MQSERIES-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org
Subject: Re: MQ Documentation
If you are triggered I think you can do an EXEC CICS RETRIEVE into the
MQTMC structure. You can get the queue name from there.
From: MQSeries List [mailto:MQSERIES-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org] On Behalf
Of Barry Lamkin
Sent: Wednesday, February 26, 2014 7:41 PM
To: MQSERIES-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org
Subject: Re: MQ Documentation
Hi Mike,
You are getting away from MQ Systems Programming and into the Application
Programming area. There are a number of ways to set the CICS program to
read from the specified queue. The simplest example is to hard code the
Queue to be read from in the program. Take a look at this.
http://publib.boulder.ibm.com/infocenter/wmqv7/v7r0/topic/com.ibm.mq.csqzal.doc/fg18105_.htm
Barry D. Lamkin
Executive IT Specialist
IBM System z Software
Cloud & Smarter Infrastructure
ITIL Foundation Certified
SWAN
zChampion
178 Old Oaken Bucket Road
Norwell, MA 02061
email: blamkin-r/Jw6+rmf7HQT0dZR+***@public.gmane.org
office: 617-693-6104
mobile: 617-510-6072
[IMAGE]
Sent from my iPad
On Feb 26, 2014, at 3:02 PM, "Ward, Mike S" <mward-C+***@public.gmane.org> wrote:
Thanks, I will try looking for them.
-----Original Message-----
From: MQSeries List [mailto:MQSERIES-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org] On Behalf
Of Richard Tsujimoto
Sent: Wednesday, February 26, 2014 4:59 PM
To: MQSERIES-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org: Re: MQ Documentation
IIRC, there are sample programs (Cobol, PL/1 and BAL) in one of the SMP
source libraries.
-----Original Message-----
From: MQSeries List [mailto:MQSERIES-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org] On Behalf
Of Ward, Mike S
Sent: Wednesday, February 26, 2014 5:45 PM
To: MQSERIES-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org: Re: MQ Documentation
Thanks, but I'm most interested in programming the trigger program for
z/OS CICS. I can't seem to find the information readily in the Infocenter.
I have opened an IBM service request asking them to detail the information
for me.
-----Original Message-----
From: MQSeries List [mailto:MQSERIES-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org] On Behalf
Of Stone, Sandy
Sent: Wednesday, February 26, 2014 4:22 PM
To: MQSERIES-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org: Re: MQ Documentation
Check out the 'process' option of the trigger on the queue definition,
Mike.
We use 'process' extensively here. The value is a CICS program or
transaction which, of course, executes a program. The program would read
the queue and perform whatever business function is required.
The 'process' option also has a batch feature, referencing JCL.
hth,
shttp://www.medmutual.com/Visit http://www.medmutual.com/CONFIDENTIALITY
NOTICE:
This message is intended only for the use of the individual or entity to
which it is addressed and may contain information that is privileged,
confidential or exempt from disclosure by law. If the reader of this
message is not the intended recipient, or the employee or agent
responsible for delivering the message to the intended recipient, you are
hereby notified that you are strictly prohibited from printing, storing,
disseminating, distributing or copying this message. If you have received
this message in error, please notify us immediately by replying to the
message and deleting it from your computer. Neither this information
block, the typed name of the sender, nor anything else in this message is
intended to constitute an electronic signature, unless a specific
statement to the contrary is included in this message.
Thank you, Medical Mutual.
-----Original Message-----
From: MQSeries List [mailto:MQSERIES-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org] On Behalf
Of Ward, Mike S
Sent: Wednesday, February 26, 2014 5:02 PM
To: MQSERIES-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org: Re: MQ Documentation
No, I'm in the V7.1 Infocenter.
-----Original Message-----
From: MQSeries List [mailto:MQSERIES-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org] On Behalf
Of Tim Zielke
Sent: Wednesday, February 26, 2014 3:55 PM
To: MQSERIES-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org: Re: MQ Documentation
Hi Mike,
Are you in the MQ 7.5 infocenter? I noticed that it looked like they
pulled the z/OS information out of 7.5. We are at 7.1 on z/OS, and I have
been using the 7.1 infocenter for z/OS needs.
Thanks,
Tim
-----Original Message-----
From: MQSeries List [mailto:MQSERIES-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org] On Behalf
Of Ward, Mike S
Sent: Wednesday, February 26, 2014 3:50 PM
To: MQSERIES-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org: MQ Documentation
Hello all, I have been looking through the MQ information center for about
an hour, and I can't find what I'm looking for. I'm for how a CICS program
is triggered via MQ, and what the cics program should do once triggered. I
try search for trigger z\OS and CICS, but it seems that all the CICS
references are of txseries distributed. Can someone point me in the right
direction for z/OS CICS triggered programs?
Thanks in advance. Very frustrating.
==========================
This email, and any files transmitted with it, is confidential and
intended solely for the use of the individual or entity to which it is
addressed. If you have received this email in error, please notify the
system manager. This message contains confidential information and is
intended only for the individual named. If you are not the named
addressee, you should not disseminate, distribute or copy this e-mail.
Please notify the sender immediately by e-mail if you have received this
message by mistake and delete this e-mail from your system. If you are not
the intended recipient, you are notified that disclosing, copying,
distributing or taking any action in reliance on the contents of this
information is strictly prohibited.
To unsubscribe, write to LISTSERV-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org and, in the
message body (not the subject), write: SIGNOFF MQSERIES Instructions for
managing your mailing list subscription are provided in the Listserv
General Users Guide available at http://www.lsoft.comArchive:
http://listserv.meduniwien.ac.at/archives/mqser-l.htmlTo unsubscribe,
write to LISTSERV-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org and, in the message body (not
the subject), write: SIGNOFF MQSERIES Instructions for managing your
mailing list subscription are provided in the Listserv General Users Guide
available at http://www.lsoft.comArchive:
http://listserv.meduniwien.ac.at/archives/mqser-l.html
==========================
This email, and any files transmitted with it, is confidential and
intended solely for the use of the individual or entity to which it is
addressed. If you have received this email in error, please notify the
system manager. This message contains confidential information and is
intended only for the individual named. If you are not the named
addressee, you should not disseminate, distribute or copy this e-mail.
Please notify the sender immediately by e-mail if you have received this
message by mistake and delete this e-mail from your system. If you are not
the intended recipient, you are notified that disclosing, copying,
distributing or taking any action in reliance on the contents of this
information is strictly prohibited.
To unsubscribe, write to LISTSERV-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org and, in the
message body (not the subject), write: SIGNOFF MQSERIES Instructions for
managing your mailing list subscription are provided in the Listserv
General Users Guide available at http://www.lsoft.comArchive:
http://listserv.meduniwien.ac.at/archives/mqser-l.html
==========================
This email, and any files transmitted with it, is confidential and
intended solely for the use of the individual or entity to which it is
addressed. If you have received this email in error, please notify the
system manager. This message contains confidential information and is
intended only for the individual named. If you are not the named
addressee, you should not disseminate, distribute or copy this e-mail.
Please notify the sender immediately by e-mail if you have received this
message by mistake and delete this e-mail from your system. If you are not
the intended recipient, you are notified that disclosing, copying,
distributing or taking any action in reliance on the contents of this
information is strictly prohibited.
To unsubscribe, write to LISTSERV-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org and, in the
message body (not the subject), write: SIGNOFF MQSERIES Instructions for
managing your mailing list subscription are provided in the Listserv
General Users Guide available at http://www.lsoft.comArchive:
http://listserv.meduniwien.ac.at/archives/mqser-l.html
==========================
This email, and any files transmitted with it, is confidential and
intended solely for the use of the individual or entity to which it is
addressed. If you have received this email in error, please notify the
system manager. This message contains confidential information and is
intended only for the individual named. If you are not the named
addressee, you should not disseminate, distribute or copy this e-mail.
Please notify the sender immediately by e-mail if you have received this
message by mistake and delete this e-mail from your system. If you are not
the intended recipient, you are notified that disclosing, copying,
distributing or taking any action in reliance on the contents of this
information is strictly prohibited.
List Archive - Manage Your List Settings - Unsubscribe
Instructions for managing your mailing list subscription are provided in
the Listserv General Users Guide available at http://www.lsoft.com
This message, including any attachments, is the property of Sears Holdings
Corporation and/or one of its subsidiaries. It is confidential and may
contain proprietary or legally privileged information. If you are not the
intended recipient, please delete it without reading the contents. Thank
you.
List Archive - Manage Your List Settings - Unsubscribe
Instructions for managing your mailing list subscription are provided in
the Listserv General Users Guide available at http://www.lsoft.com
This message, including any attachments, is the property of Sears Holdings
Corporation and/or one of its subsidiaries. It is confidential and may
contain proprietary or legally privileged information. If you are not the
intended recipient, please delete it without reading the contents. Thank
you.
List Archive - Manage Your List Settings - Unsubscribe
Instructions for managing your mailing list subscription are provided in
the Listserv General Users Guide available at http://www.lsoft.com
U.S. BANCORP made the following annotations
---------------------------------------------------------------------
Electronic Privacy Notice. This e-mail, and any attachments, contains information that is, or may be, covered by electronic communications privacy laws, and is also confidential and proprietary in nature. If you are not the intended recipient, please be advised that you are legally prohibited from retaining, using, copying, distributing, or otherwise disclosing this information in any manner. Instead, please reply to the sender that you have received this communication in error, and then immediately delete it. Thank you in advance for your cooperation.
---------------------------------------------------------------------
To unsubscribe, write to LISTSERV-0lvw86wZMd9k/bWDasg6f+***@public.gmane.org and,
in the message body (not the subject), write: SIGNOFF MQSERIES
Instructions for managing your mailing list subscription are provided in
the Listserv General Users Guide available at http://www.lsoft.com
Archive: http://listserv.meduniwien.ac.at/archives/mqser-l.html