Closing a queue

This example demonstrates how to use the MQCLOSE call. This extract is not taken from the sample applications supplied with WebSphere(R) MQ.


%INCLUDE SYSLIB(CMQP);
%INCLUDE SYSLIB(CMQEPP);
:
/*********************************************************/
/* WORKING STORAGE DECLARATIONS                          */
/*********************************************************/
DCL COMPCODE                  BINARY FIXED (31);
DCL REASON                    BINARY FIXED (31);
DCL HCONN                     BINARY FIXED (31);
DCL HOBJ                      BINARY FIXED (31);
DCL OPTIONS                   BINARY FIXED (31);

  ·
  ·
  ·
/*********************************************************/ /* SET CLOSE OPTIONS */ /*********************************************************/ OPTIONS=MQCO_NONE; /*********************************************************/ /* CLOSE QUEUE */ /*********************************************************/ CALL MQCLOSE (HCONN, /* CONNECTION HANDLE */ HOBJ, /* OBJECT HANDLE */ OPTIONS, /* CLOSE OPTIONS */ COMPCODE, /* COMPLETION CODE */ REASON); /* REASON CODE */ /*********************************************************/ /* TEST THE COMPLETION CODE OF THE CLOSE CALL. */ /* IF THE CALL HAS FAILED ISSUE AN ERROR MESSAGE */ /* SHOWING THE COMPLETION CODE AND THE REASON CODE. */ /*********************************************************/ IF COMPCODE ¬= MQCC_OK THEN DO;
  ·
  ·
  ·
CALL ERROR_ROUTINE; END;