Disconnecting from a queue manager
This example demonstrates how to use the MQDISC call to disconnect a program from a queue manager in z/OS batch. The variables used in this code extract are those that were set in Connecting to a queue manager. This extract is taken from the Browse sample application (program CSQ4BVA1) supplied with WebSphere MQ for z/OS. For the names and locations of the sample applications on other platforms, see Sample programs (all platforms except z/OS).
⋮ * * Disconnect from the queue manager * CALL 'MQDISC' USING W03-HCONN W03-COMPCODE W03-REASON. * * Test the output of the disconnect call. If the * call fails, print an error message showing the * completion code and reason code. * IF (W03-COMPCODE NOT = MQCC-OK) THEN ⋮ END-IF. ⋮
Parent topic:
COBOL examples
fg18950_