Inquiring about the attributes of an object

This example demonstrates how to use the MQINQ call to inquire about the attributes of a queue. 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);
     DCL SELECTORCOUNT             BINARY FIXED (31);
     DCL INTATTRCOUNT              BINARY FIXED (31);
     DCL 1 SELECTOR_TABLE,
         3 SELECTORS(5)            BINARY FIXED (31);
     DCL 1 INTATTR_TABLE,
         3 INTATTRS(5)             BINARY FIXED (31);
     DCL CHARATTRLENGTH            BINARY FIXED (31);
     DCL CHARATTRS                 CHAR(100);
     
  ·
  ·
  ·
/*********************************************************/ /* SET VARIABLES FOR INQUIRE CALL */ /* INQUIRE ON THE CURRENT QUEUE DEPTH */ /*********************************************************/ SELECTORS(01) = MQIA_CURRENT_Q_DEPTH; SELECTORCOUNT = 1; INTATTRCOUNT = 1; CHARATTRLENGTH = 0; /*********************************************************/ /* */ /* HCONN WAS SET BY PREVIOUS MQCONN REQUEST. */ /* HOBJ WAS SET BY PREVIOUS MQOPEN REQUEST. */ /* */ /*********************************************************/ CALL MQINQ (HCONN, HOBJ, SELECTORCOUNT, SELECTORS, INTATTRCOUNT, INTATTRS, CHARATTRLENGTH, CHARATTRS, COMPCODE, REASON);
/*********************************************************/
/* TEST THE COMPLETION CODE OF THE INQUIRE 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;