# -*-c-*- 
#
# $Id: 30MQCONN,v 33.3 2011/01/03 15:04:39 anbrown Exp $
#
# (c) 1999-2011 Morgan Stanley & Co. Incorporated
# See ..../src/LICENSE for terms of distribution.
#

MQHCONN
MQCONN(Name,CompCode,Reason)
        MQCHAR48 Name
        MQLONG   CompCode = NO_INIT
        MQLONG   Reason = NO_INIT

    CODE:
        MQCONN(Name,&RETVAL,&CompCode,&Reason);
    OUTPUT:
        RETVAL
        CompCode
        Reason

