As ever, you use this free program at your own risk.

Feel free to use the software on this site but please honor the copyright.


MQERROR is a little assembler program that can be called whenever an MQ enabled program detects a MQ Reason code of 2161 (Queue Manager is Quiescing) is returned from a MQ API (Application Program Interface) call.

All well-behaving MQ enabled programs must handle non-zero return codes in a manner that applies to the application requirements, but a retrun code of 2161 requires special handling.

MQERROR will issue a write to operator with reply (WTOR) letting the opertor know that the calling job is trying to access a queue manager that is quiescing (closing down). However, if you don't want a WTOR to be issued in can issue a non-delete write to operator (WTO) instead.

The options available are:
  • RETRY
  • WAIT
  • WAIT nnn
  • CANCEL
Assembly details of the program, MQERROR can be found here.

MQERROR is also packaged with QMGRWAIT along with some sample Cobol programs that will demonstrate how to use both QMGRWAIT and MQERROR. All the programs are fully functional and are included both as source code and as load modules.

If you choose to install MQERROR without QMGRWAIT then you need to follow the steps below.

A document detailing how to use the MQERROR program can be found here or in the PDS that is received.
 
 
  Step 1

Download The MQERROR Program's XMI file

The MQERROR facility is distributed as a binary XMI file.

Download the XMI file from here.
 
 
 
  Step 2

Upload The MQERROR Facility to the Target z/OS System

File transfer the XMI file downloaded in Step 3 up to the target z/OS system as a binary file. The XMI file must be transferred as a binary file otherwise the file will be corrupt.
 
 
 
  Step 1

RECEIVE the Transferred File

Issue the TSO RECEIVE command for the file that was transferred to the target system.

RECEIVE your.uploaded.file.XMI

 
 
 
  Step 4

Run the UNPACK member of the Received Dataset

The UNPACK member of the received dataset will extract the two datasets that comprise the MQERROR facility.

Follow the prompts issued by the UNPACK member and all the required datasets and a PDF dataset will be allocated and populated with of the required components.

To execute the UNPACK member either put an EX next to the member i.e.


Executing the UNPACK member
   Menu  Functions  Confirm  Utilities  Help                                    
 ------------------------------------------------------------------------------
 EDIT              ABBYDALE.MQERROR.PDS                      Row 00001 of 00012
 Command ===>                                                  Scroll ===> CSR 
            Name     Prompt       Size   Created          Changed          ID
 _________ $$$INDEX ⇐(Click here to see the $$$INDEX member)
 _________ $$INSTAL          
 _________ COPYRITE          
 _________ DISCLAIM          
 _________ JCL               
 _________ LOADLIB           
 _________ PDF               
 _________ PROGINFO          
 _________ README            
 _________ SOURCE            
 _________ UNPACK            
           **End**  

Alternatively issue the execute as you would any other REXX exec. i.e.

TSO EX 'your.received.dataset(UNPACK)'

 
 
 
  Step 5

Read the $$INSTAL Member to Complete the Installation

The $$INSTAL member of the received dataset contains instructions of how to complete the installation of the MQERROR program.

The implementation will differ depending on the site standards but essentially you need to make the load library available to the users.
 
 
 
  Step 6

(Optionally) Download the PDF

To download the PDF file transfer it to a Windows based operating system as a binary file with a .PDF extension.

Once it is on the Windows system it should be able to be read as a PDF.

Alternatively you can download the PDF directly from here.
 
 
 


If you need any support or assistance with any of the code on this site
or
if you would like to contact us, please click here

follow us on facebook
Follow us on Facebook

 

Number of unique visitors 409

Copyright © Abbydale Systems LLC 2015-2024

Abbydale Systems LLC Lic. 802696149. All rights reserved.

Last modified : Wednesday 31st of August 2022