Paul Clarke
2014-03-17 15:10:27 UTC
Hi everyone,
MQGem Software is pleased to announce the start of an open Beta of the second release of the MQSCX program, known as version 7.5.1.
As many of you will remember MQSCX provides an extension to the standard MQSC interface by providing much greater filtering capability and a much improved interactive experience. Version 7.5.1 builds on this in two areas:
· CCDT Editing
MQSCX now allows you to create and edit CCDT files without requiring any MQ installation.
In addition you can even merge CCDT files together.
· MQSCX Control Language
Until now the MQSC language has been very static. You define a file containing a set of commands and you can run them. However, suppose you want to have that file responds to the answers and make decisions based on those responses. MQSCX now allows the user to define a set of MQSCX commands which allow you to put some intelligence in the control files, this opens up a huge range of uses:
o Augment or modify the current set of command responses
o Display the consolidated result of multiple commands
o Perform health checking of your Queue Manager
o Perform monitoring of your Queue Manager
o Write a report file with the data from your Queue Manager
o Check your object definitions against your naming standards
o Run a quick security check against your Queue Manager definitions
o and moreâŠ
To give you an idea of the kind of commands which are supported, here are a couple of sample control files.
Display Transmission Queues
This simple script will show the status of all channels processing transmission queues with a non-zero depth.
* Get all the transmission queues
foreach(DISPLAY QUEUE(*) curdepth WHERE(USAGE EQ XMITQ))
* Is the depth non-zero ?
if (curdepth > 0)
@qname = QUEUE
@depth = curdepth
* Read channel status for this queue
foreach(DIS CHSTATUS(*) WHERE(XMITQ EQ <@qname>))
print @qname,"depth",@depth, channel,"is",STATUS
endfor
if (_matches = 0)
print @qname,"depth",@depth,"No channel status"
endif
endif
endfor
Display Queue Information
A script which will show the basic queue information and who is using the queue
* Check we've been given a parameter
if (!exists(@_Parm[1]))
print "Please enter a queue name, something like qinfo(Q1)"
leave
endif
* Switch off command echoes
=echo cmds(no) resp(no)
* The parameter is the queue name
@q = @_Parm[1]
* Issue a display on that name
DIS Q(<@q>) ALL
if (_matches<1)
* Did we get an answer ?
@msg = "Unknown queue '" + @q + "'"
print @msg
else
* So, we had an answer
@bq = @q
* Construct an output and print it out
@msg = "QUEUE("+queue+")"
if (ipprocs) @msg = @msg + " IPPROCS("+str(ipprocs)+")"; endif
if (opprocs) @msg = @msg + " OPPROCS("+str(opprocs)+")"; endif
if (type = "QLOCAL") @msg = @msg + " CURDEPTH(" + str(curdepth) + ")"; endif
print @msg
if (target)
@bq = target;
print "Alias queue - displaying usage of target",@bq
endif
* Now, let's see whether anyone is using the queue
foreach(DIS QSTATUS(<@bq>) TYPE(HANDLE) ALL)
if (channel)
print :7:pid,appltag,"over",channel,"from",CONNAME
else
print :7:pid,appltag
endif
endfor
endif
The Beta program is available on Windows and Linux 64bit Intel and can be downloaded by following the links on http://www.mqgem.com/mqscx_download.html
Needless to say I welcome all comments and suggestions.
Cheers,
Paul.
Paul Clarke
www.mqgem.com
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
MQGem Software is pleased to announce the start of an open Beta of the second release of the MQSCX program, known as version 7.5.1.
As many of you will remember MQSCX provides an extension to the standard MQSC interface by providing much greater filtering capability and a much improved interactive experience. Version 7.5.1 builds on this in two areas:
· CCDT Editing
MQSCX now allows you to create and edit CCDT files without requiring any MQ installation.
In addition you can even merge CCDT files together.
· MQSCX Control Language
Until now the MQSC language has been very static. You define a file containing a set of commands and you can run them. However, suppose you want to have that file responds to the answers and make decisions based on those responses. MQSCX now allows the user to define a set of MQSCX commands which allow you to put some intelligence in the control files, this opens up a huge range of uses:
o Augment or modify the current set of command responses
o Display the consolidated result of multiple commands
o Perform health checking of your Queue Manager
o Perform monitoring of your Queue Manager
o Write a report file with the data from your Queue Manager
o Check your object definitions against your naming standards
o Run a quick security check against your Queue Manager definitions
o and moreâŠ
To give you an idea of the kind of commands which are supported, here are a couple of sample control files.
Display Transmission Queues
This simple script will show the status of all channels processing transmission queues with a non-zero depth.
* Get all the transmission queues
foreach(DISPLAY QUEUE(*) curdepth WHERE(USAGE EQ XMITQ))
* Is the depth non-zero ?
if (curdepth > 0)
@qname = QUEUE
@depth = curdepth
* Read channel status for this queue
foreach(DIS CHSTATUS(*) WHERE(XMITQ EQ <@qname>))
print @qname,"depth",@depth, channel,"is",STATUS
endfor
if (_matches = 0)
print @qname,"depth",@depth,"No channel status"
endif
endif
endfor
Display Queue Information
A script which will show the basic queue information and who is using the queue
* Check we've been given a parameter
if (!exists(@_Parm[1]))
print "Please enter a queue name, something like qinfo(Q1)"
leave
endif
* Switch off command echoes
=echo cmds(no) resp(no)
* The parameter is the queue name
@q = @_Parm[1]
* Issue a display on that name
DIS Q(<@q>) ALL
if (_matches<1)
* Did we get an answer ?
@msg = "Unknown queue '" + @q + "'"
print @msg
else
* So, we had an answer
@bq = @q
* Construct an output and print it out
@msg = "QUEUE("+queue+")"
if (ipprocs) @msg = @msg + " IPPROCS("+str(ipprocs)+")"; endif
if (opprocs) @msg = @msg + " OPPROCS("+str(opprocs)+")"; endif
if (type = "QLOCAL") @msg = @msg + " CURDEPTH(" + str(curdepth) + ")"; endif
print @msg
if (target)
@bq = target;
print "Alias queue - displaying usage of target",@bq
endif
* Now, let's see whether anyone is using the queue
foreach(DIS QSTATUS(<@bq>) TYPE(HANDLE) ALL)
if (channel)
print :7:pid,appltag,"over",channel,"from",CONNAME
else
print :7:pid,appltag
endif
endfor
endif
The Beta program is available on Windows and Linux 64bit Intel and can be downloaded by following the links on http://www.mqgem.com/mqscx_download.html
Needless to say I welcome all comments and suggestions.
Cheers,
Paul.
Paul Clarke
www.mqgem.com
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