PL/I example: Connecting to a queue manager

This extract is not taken from the sample applications supplied with IBM® MQ.

For the names and locations of the sample applications, see Using the sample procedural programs for z/OS.

     %INCLUDE SYSLIB(CMQP);
     %INCLUDE SYSLIB(CMQEPP);
     :
     /****************************************************/
     /* STRUCTURE BASED ON PARAMETER INPUT AREA (PARAM)  */
     /****************************************************/
     DCL 1 INPUT_PARAM      BASED(ADDR(PARAM)),
           2 PARAM_LENGTH   FIXED BIN(15),
           2 PARAM_MQMNAME  CHAR(48);
           ⋮
     /****************************************************/
     /* WORKING STORAGE DECLARATIONS                     */
     /****************************************************/
     DCL MQMNAME                   CHAR(48);
     DCL COMPCODE                  BINARY FIXED (31);
     DCL REASON                    BINARY FIXED (31);
     DCL HCONN                     BINARY FIXED (31);
     ⋮
     /****************************************************/
     /* COPY QUEUE MANAGER NAME PARAMETER                */
     /* TO LOCAL STORAGE                                 */
     /****************************************************/
     MQMNAME = ' ';
     MQMNAME = SUBSTR(PARAM_MQMNAME,1,PARAM_LENGTH);
     ⋮
     /****************************************************/
     /* CONNECT FROM THE QUEUE MANAGER                   */
     /****************************************************/
     CALL MQCONN (MQMNAME,     /* MQM SYSTEM NAME        */
                  HCONN,       /* CONNECTION HANDLE      */
                  COMPCODE,    /* COMPLETION CODE        */
                  REASON);     /* REASON CODE            */
 
     /****************************************************/
     /* TEST THE COMPLETION CODE OF THE CONNECT 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;