# -*-c-*-
#
# $Id: 50MQCRTMH-v7,v 33.2 2010/04/01 16:24:45 anbrown Exp $
#
# (c) 2009-2010 Morgan Stanley & Co. Incorporated
# See ..../src/LICENSE for terms of distribution.
#

MQHMSG
MQCRTMH(Hconn,CrtMsgHOpts,CompCode,Reason)
        MQHCONN         Hconn
        MQCMHO          CrtMsgHOpts
        MQLONG          CompCode = NO_INIT
        MQLONG          Reason = NO_INIT

    CODE:
        MQCRTMH(Hconn,&CrtMsgHOpts,&RETVAL,&CompCode,&Reason);
    OUTPUT:
        RETVAL
        CompCode
        Reason
