Closing a queue

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



  ·
  ·
  ·
* * ISSUE MQI CLOSE REQUEST USING REENTRANT FROM OF * CALL MACRO * * HCONN WAS SET BY A PREVIOUS MQCONN REQUEST * HOBJ WAS SET BY A PREVIOUS MQOPEN REQUEST * R5 = WORK REGISTER * CLOSE DS 0H LA R5,MQCO_NONE NO SPECIAL CLOSE OPTIONS ST R5,OPTIONS ARE REQUIRED. * CALL MQCLOSE, X (HCONN, X HOBJ, X OPTIONS, X COMPCODE, X REASON), X VL,MF=(E,CALLLST) * LA R5,MQCC_OK C R5,COMPCODE BNE BADCALL *
  ·
  ·
  ·
BADCALL DS 0H
  ·
  ·
  ·
* CONSTANTS * CMQA * * WORKING STORAGE (REENTRANT) * WEG4 DSECT * CALLLST CALL ,(0,0,0,0,0,0,0,0,0,0,0),VL,MF=L * HCONN DS F HOBJ DS F OPTIONS DS F COMPCODE DS F REASON DS F * * LEG4 EQU *-WKEG4 END