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
Notices |
Downloads |
Library |
Support |
Feedback
![]() ![]() |
csq035k |