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.


QMGRWAIT 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.

QMGRWAIT 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, QMGRWAIT can be found here.

Included with QMGRWAIT are some sample Cobol programs that will demonstrate how to use QMGRWAIT. The programs are fully functional and are included both as source code and as load modules.

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

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

Download The QMGRWAIT Program's XMI file

The QMGRWAIT facility is distributed as a binary XMI file.

Download the XMI file from here.
 
 
 
  Step 2

Upload The QMGRWAIT 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 datasets that comprise the QMGRWAIT program package.

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.QMGRWAIT.PDS                     Row 00001 of 00013
 Command ===>                                                  Scroll ===> CSR 
            Name     Prompt       Size   Created          Changed          ID
 _________ $$$INDEX ⇐(Click here to see the $$$INDEX member)
 _________ $$INSTAL          
 _________ COPYRITE          
 _________ DISCLAIM          
 _________ JCL               
 _________ LOADLIB           
 _________ PDF1              
 _________ PDF2              
 _________ PROGINF1          
 _________ PROGINF2          
 _________ README            
 _________ SOURCE            
 EX_______ 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 QMGRWAIT 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 416

Copyright © Abbydale Systems LLC 2015-2024

Abbydale Systems LLC Lic. 802696149. All rights reserved.

Last modified : Wednesday 31st of August 2022