| Author |
Message
|
| MQFard |
 Posted: Wed Apr 12, 2006 12:16 pm Post subject: MA01 z/OS Q-pgm |
 |
|
Novice
Joined: 07 Oct 2004
Posts: 17
Location: VSP.COM
|
I am trying to get messages from a z/OS queue and put them to a sequential or PDS file and vise versa. This utility says that it will do this, but when I code the PARM member in the JCL according to the so-called documentation it sends the messages to SYSOUT and bypasses the file processing. Has anyone used this utility? Or dose anyone have something that I can use to perform this function?
Confused, discouraged and searching for something better!
_________________
To Fard
WebSphere MQ Administrator |
|
| Back to top |
|
 |
| DryHeatDave |
| Posted: Wed Apr 12, 2006 12:24 pm Post subject: |
|
|
Apprentice
Joined: 21 Mar 2006
Posts: 28
Location: Phoenix, AZ
|
It won't get the utility working - but if your SYSOUT lands on the HELD queue in SDSF, go into the SYSOUT & issue the following primary commands -
PT ODSN dataset.name * MOD
PRINT 1 1234
PRINT CLOSE
substitute a destination dataset name & replace 1234 with the relevant number of messages. ThIs will route the messages to a dataset for you.
_________________
SCJP2
IBM Cert. Solutions Designer for Websphere MQ 5.3
Not a certified mainframer - just been doing it a real long time. |
|
| Back to top |
|
|
| javagate |
| Posted: Thu Apr 13, 2006 3:37 am Post subject: |
|
|
Disciple
Joined: 15 Nov 2004
Posts: 159
|
you do not have to use 1234, better you can use
PRINT ODSN 'hlq.xxxxxxxx' * NEW
print
print close
However,
What do you want to do with the messages once in a seq data set?
I used MA13 as samples a while ago but you will have to modify the program.
_________________
WebSphere Application Server 7.0 z/OS &
MQ 6.0. I work with WebSphere in the real world not in some IBM lab. |
|
| Back to top |
|
|
| JT |
| Posted: Thu Apr 13, 2006 5:23 am Post subject: |
|
|
Padawan
Joined: 27 Mar 2003
Posts: 1564
Location: Hartford, CT.
|
| Excuse my inexperience with z/OS, but what's wrong with the CSQUTIL command COPY/SCOPY ? |
|
| Back to top |
|
|
| MQFard |
| Posted: Thu Apr 13, 2006 6:39 am Post subject: More info |
|
|
Novice
Joined: 07 Oct 2004
Posts: 17
Location: VSP.COM
|
Hello everyone thanks for replying. What I’d like to do is copy messages from, say Q1 configured in QM “A” on z/OS and put them to Q1 in QM “B” on z/OS. From the documentation in MA01 I got the impression that this utility could get messages, put them in a PDS and put them back to a queue. This is what I’m trying to do.
JT do you have an example of how to use CSQUTIL to perform what I’m trying to do?
_________________
To Fard
WebSphere MQ Administrator |
|
| Back to top |
|
|
| kevinf2349 |
| Posted: Thu Apr 13, 2006 7:18 am Post subject: |
|
|
Grand Master
Joined: 28 Feb 2003
Posts: 1311
Location: USA
|
| Code: |
//*********************************************************************
//* DISABLE - DISABLE QUEUE FOR PUTS *
//*********************************************************************
//DISABLE EXEC PGM=CSQUTIL,PARM=('MQDV'),
//STEPLIB DD DSN=SYS1.SCSQLOAD,DISP=SHR
// DD DSN=SYS1.SCSQANLE,DISP=SHR
// DD DSN=SYS1.SCSQAUTH,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COMMAND DDNAME(INPUT)
//INPUT DD *
ALT QL('YOUR_Q') -
PUT(DISABLED)
//*********************************************************************
//* BACKUP - PERFORM FUZZY BACKUP OF QUEUE *
//*********************************************************************
//BACKUP EXEC PGM=CSQUTIL,PARM=('MQDV')
//STEPLIB DD DSN=SYS1.SCSQLOAD,DISP=SHR
// DD DSN=SYS1.SCSQANLE,DISP=SHR
// DD DSN=SYS1.SCSQAUTH,DISP=SHR
//SYSPRINT DD SYSOUT=*
//BACKUP DD UNIT=SYSALLDA,VOL=SER=SYSMQ1,
// DISP=(,CATLG),SPACE=(CYL,(3,4),RLSE),
// DSN=QUEUE.BACKUP,
//* DCB=(RECFM=VBS,BLKSIZE=23200)
//SYSIN DD *
COPY Q('YOUR_Q') DDNAME(BACKUP)'
//*********************************************************************
//* ENABLE - REENABLE QUEUE FOR PUTS *
//*********************************************************************
//ENABLE EXEC PGM=CSQUTIL,PARM=('MQDV')
//STEPLIB DD DSN=SYS1.SCSQLOAD,DISP=SHR
// DD DSN=SYS1.SCSQANLE,DISP=SHR
// DD DSN=SYS1.SCSQAUTH,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COMMAND DDNAME(INPUT)
//INPUT DD *
ALT QL('YOUR_Q') -
PUT(ENABLED) |
That will copy messages from your queue to a backup dataset. To reload use :
| Code: |
//STEPBACK EXEC PGM=CSQUTIL,PARM='MQXX'
//STEPLIB DD DSN=SYS1.SCSQLOAD,DISP=SHR
// DD DSN=SYS1.SCSQANLE,DISP=SHR
// DD DSN=SYS1.SCSQAUTH,DISP=SHR
//SYSIN DD *
LOAD QUEUE('YOUR_Q') DDNAME(INPUT)
//INPUT DD DSN=QUEUE.BACKUP,DISP=SHR
//SYSPRINT DD SYSOUT=* |
Have fun....remember to change your names and stuff to match your site standards.
If you get stuck do what I did....read the manual.  |
|
| Back to top |
|
|
| MQFard |
| Posted: Thu Apr 13, 2006 7:35 am Post subject: To Kevinf2349 |
|
|
Novice
Joined: 07 Oct 2004
Posts: 17
Location: VSP.COM
|
I want to thank you for the code; I did not appreciate the comment about reading the manual. I’ve been in this business for 25 years and have read a lot of manuals. I monitor several different softwares and thought I could save some time by receiving some help. If you want to help that great but if you feel a need to reticule then your help is not valued. Remember no one knows it all.
_________________
To Fard
WebSphere MQ Administrator |
|
| Back to top |
|
|
| jefflowrey |
| Posted: Thu Apr 13, 2006 7:39 am Post subject: |
|
|
Grand Poobah
Joined: 16 Oct 2002
Posts: 19981
|
Is it quicker to search the manuals yourself, or to wait for someone else to search the manual, and copy/paste?
_________________
I am *not* the model of the modern major general. |
|
| Back to top |
|
|
| kevinf2349 |
| Posted: Thu Apr 13, 2006 8:00 am Post subject: |
|
|
Grand Master
Joined: 28 Feb 2003
Posts: 1311
Location: USA
|
| Quote: |
| if you feel a need to reticule then your help is not valued. |
I take it you won't be using the code then? If I really wanted to ridicule you, trust me, you would know it and I wouldn't have taken time to copy and paste the JCL for you.
I too have been in this business a long time (28 years) and I have read a lot of manuals, but when I get 'stuck' on an issue I read even more manuals and try to learn from them. There is no statute of limitations on opening manuals.
Peace out  |
|
| Back to top |
|
|
| MQFard |
| Posted: Thu Apr 13, 2006 8:10 am Post subject: Apology |
|
|
Novice
Joined: 07 Oct 2004
Posts: 17
Location: VSP.COM
|
You’re right. I apologize for my comments. Thank you for the help. Just under a little pressure.
_________________
To Fard
WebSphere MQ Administrator |
|
| Back to top |
|
|
|
|
