# -*-c-*- 
#
# $Id: 30MQCONN,v 23.1 2003/04/10 19:07:11 biersma Exp $
#
# (c) 1999-2003 Morgan Stanley Dean Witter and Co.
# See ..../src/LICENSE for terms of distribution.
#

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

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

