| Author |
Message
|
| CryptoSixFour |
 Posted: Wed Oct 31, 2012 2:22 pm Post subject: MQPUT JCL. Where to put the actual message? |
 |
|
Novice
Joined: 31 Oct 2012
Posts: 12
|
Alrighty,
I'm editing a JCL i found to put a message on a topic i have.
Here's the JCL:
//MSGS JOB (0000),'MQSERIES V5R3',CLASS=W,
// MSGCLASS=X,REGION=0M,NOTIFY=TECH198
//********************************************************
// SET QMG=QSG1
// SET QNM='MY.FIRST.QUEUE'
// SET P=N
//*
//PUTMSGS EXEC PGM=CSQ4BVK1,REGION=1024K,
// PARM=('&QMG,&QNM,0001,T,0100,&P')
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//CEEOUT DD SYSOUT=*
//CEEMSG DD SYSOUT=*
In the JCL, where I would I put the actual message string(Represents the actual message)? Would i need to put it in a dataset for SYSIN? I'm just confused about what to do at this point as i read through some z/OS documentation but its not quite as clear as i'm trying to find.
Any help would be appreciated. |
|
| Back to top |
|
 |
| bruce2359 |
| Posted: Wed Oct 31, 2012 3:13 pm Post subject: |
|
|
Poobah
Joined: 05 Jan 2008
Posts: 9469
Location: US: west coast, almost. Otherwise, enroute.
|
The supplied JCL (in SCSQPROC, if memory serves) documents the PARM= parameters for this sample program.
Parameter 1 is the qmgr or qsg name
Parameter 2 is the queue name
Parameter 3 (if memory serves) is the number of messages to produce
Parameter 4 is padding character (the message application data payload)
Parameter 5 (if memory serves) is the number of bytes of the padding character (length of message)
Parameter 6 is the persistence attribute (P=persistent, N=non-persistent
In your example, the persistent message produced will have some number of T's.
_________________
I like deadlines. I like to wave as they pass by.
ב''ה
Lex Orandi, Lex Credendi, Lex Vivendi. As we Worship, So we Believe, So we Live. |
|
| Back to top |
|
|
| CryptoSixFour |
| Posted: Wed Oct 31, 2012 4:05 pm Post subject: |
|
|
Novice
Joined: 31 Oct 2012
Posts: 12
|
Just to be sure I understand, so if i wanted a message to be:
('&QMG,&QNM,0001,<event>Test Message</event>,0100,&P')
I would put that in Parameter 4?
Thank you very much for your response  |
|
| Back to top |
|
|
| bruce2359 |
| Posted: Wed Oct 31, 2012 5:35 pm Post subject: |
|
|
Poobah
Joined: 05 Jan 2008
Posts: 9469
Location: US: west coast, almost. Otherwise, enroute.
|
Nope. Parm 4 is a single ebcdic character that will be replicated n times per message. So, if you specify 100 bytes, you get 100 T's:
TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT... and so on.
This utility is to test WMQ functionality.
Run it. Look at the SYSOUT; then look at the message in the queue. An MQGET jobstream is also provided.
_________________
I like deadlines. I like to wave as they pass by.
ב''ה
Lex Orandi, Lex Credendi, Lex Vivendi. As we Worship, So we Believe, So we Live. |
|
| Back to top |
|
|
| CryptoSixFour |
| Posted: Wed Oct 31, 2012 8:05 pm Post subject: |
|
|
Novice
Joined: 31 Oct 2012
Posts: 12
|
| I can't yet since our queue manager is down for a few more days. So the ebcdic character is a character that's converted from the message string? |
|
| Back to top |
|
|
| Mr Butcher |
| Posted: Thu Nov 01, 2012 2:03 am Post subject: |
|
|
Padawan
Joined: 23 May 2005
Posts: 1716
|
converted? message string?
i repeat what bruce already said:
* you can specify 1 character
* you can specify how often that single character is repeated
and that makes the message that is put.
if you want to put a message text of your own, check the other samples if one fits your needs, or modify one of the existing samples, or check the supportpacs, there are quite a few that can deal with "file to queue" - requests..... (e.g. the "q" - programm (ma01 supportpac)).
_________________
Regards, Butcher |
|
| Back to top |
|
|
| Vitor |
| Posted: Thu Nov 01, 2012 5:27 am Post subject: |
|
|
Grand High Poobah
Joined: 11 Nov 2005
Posts: 26093
Location: Texas, USA
|
| CryptoSixFour wrote: |
Just to be sure I understand, so if i wanted a message to be:
('&QMG,&QNM,0001,<event>Test Message</event>,0100,&P')
I would put that in Parameter 4? |
I echo the comments of my worthy associates; you can't do what you're trying to do with the utility you're trying to do it with.
_________________
Honesty is the best policy.
Insanity is the best defence. |
|
| Back to top |
|
|
| bob_buxton |
| Posted: Thu Nov 01, 2012 1:28 pm Post subject: |
|
|
Master
Joined: 23 Aug 2001
Posts: 266
Location: England
|
CSQ4BVK1 is a very simple basic sample program that is intended to be used to show the basics of writing MQ programs in Cobol - it is not intended to be a useful utility program.
You can either edit and compile it to do what you need or find another program that will do what you want.
The MA01 support pack http://www-01.ibm.com/support/docview.wss?uid=swg24000647 is a useful utility that can copy from a file into a queue (among many other things)
_________________
Bob Buxton
Ex-Websphere MQ Development |
|
| Back to top |
|
|
| CryptoSixFour |
| Posted: Wed Nov 14, 2012 11:55 am Post subject: |
|
|
Novice
Joined: 31 Oct 2012
Posts: 12
|
Thank you all for your help.
I realized that was the wrong program. This is the right one:
CSQ4BVP1
Does anyone know how I would put the input topic name, queue manager name, and message content in the SYSIN DD?
I looked for resources everywhere but can't seem to find that. |
|
| Back to top |
|
|
| bruce2359 |
| Posted: Wed Nov 14, 2012 12:03 pm Post subject: |
|
|
Poobah
Joined: 05 Jan 2008
Posts: 9469
Location: US: west coast, almost. Otherwise, enroute.
|
Do a 3.14 search of mq libraries for the program. the jcl will have comments that describe how to use this utility.
I gather that you did not search google for csq4bvp1. If you had, you would have discovered the location of the supplied jcl.
_________________
I like deadlines. I like to wave as they pass by.
ב''ה
Lex Orandi, Lex Credendi, Lex Vivendi. As we Worship, So we Believe, So we Live.
Last edited by bruce2359 on Wed Nov 14, 2012 12:08 pm; edited 1 time in total |
|
| Back to top |
|
|
| Vitor |
| Posted: Wed Nov 14, 2012 12:04 pm Post subject: |
|
|
Grand High Poobah
Joined: 11 Nov 2005
Posts: 26093
Location: Texas, USA
|
| CryptoSixFour wrote: |
| I looked for resources everywhere but can't seem to find that. |
It's only a sample; does the code (or the sample JCL in CSQ4BVPP) offer no assistance?
Also, if you don't understand how the sample work, why not write your own? Which may be better in the long run as it will more accurately meet your site standards and could be used as an actual production-strength program?
_________________
Honesty is the best policy.
Insanity is the best defence. |
|
| Back to top |
|
|
| CryptoSixFour |
| Posted: Wed Nov 14, 2012 12:24 pm Post subject: |
|
|
Novice
Joined: 31 Oct 2012
Posts: 12
|
| bruce2359 wrote: |
Do a 3.14 search of mq libraries for the program. the jcl will have comments that describe how to use this utility.
I gather that you did not search google for csq4bvp1. If you had, you would have discovered the location of the supplied jcl. |
I saw the JCL was located at CSQBVPP but i had no idea how to find that particular JCL either or assistance associated with it. |
|
| Back to top |
|
|
| Vitor |
| Posted: Wed Nov 14, 2012 12:47 pm Post subject: |
|
|
Grand High Poobah
Joined: 11 Nov 2005
Posts: 26093
Location: Texas, USA
|
| CryptoSixFour wrote: |
| I saw the JCL was located at CSQBVPP but i had no idea how to find that particular JCL either or assistance associated with it. |
If you can't do that, or find that out, or work that out, or can obtain assistance for this, how do you plan to run the application?
_________________
Honesty is the best policy.
Insanity is the best defence. |
|
| Back to top |
|
|
| CryptoSixFour |
| Posted: Wed Nov 14, 2012 1:17 pm Post subject: |
|
|
Novice
Joined: 31 Oct 2012
Posts: 12
|
| ^I guess you could say i severely underestimated this. Thank you all for your help. I'm at a stand still at this point...so i'll def try to go for the creating my own program route. |
|
| Back to top |
|
|
| bruce2359 |
| Posted: Wed Nov 14, 2012 3:11 pm Post subject: |
|
|
Poobah
Joined: 05 Jan 2008
Posts: 9469
Location: US: west coast, almost. Otherwise, enroute.
|
Are you a mainframe-trained person?
Do you know how to search google?
According to google... The jcl you are looking for is in the scsqproc dataset, and is named csq4bvpp; the executable is in scsqload.
What more would you like from me?
_________________
I like deadlines. I like to wave as they pass by.
ב''ה
Lex Orandi, Lex Credendi, Lex Vivendi. As we Worship, So we Believe, So we Live. |
|
| Back to top |
|
|
|
|
