# -*-c-*-
#
# $Id: 35MQPUT1-v2,v 25.1 2004/01/14 19:10:09 biersma Exp $
#
# (c) 1999-2004 Morgan Stanley Dean Witter and Co.
# See ..../src/LICENSE for terms of distribution.
#

void
MQPUT1(Hconn,ObjDesc,MsgDesc,PutMsgOpts,Msg,CompCode,Reason)
	MQHCONN	Hconn
	MQOD	ObjDesc
	MQMD	MsgDesc
	MQPMO	PutMsgOpts
	SV *	Msg
	MQLONG	CompCode
	MQLONG	Reason

	CODE:
	{
	PMQCHAR Buffer = SvPV(Msg,na);
	MQPUT1(Hconn,&ObjDesc,&MsgDesc,&PutMsgOpts,SvCUR(Msg),Buffer,&CompCode,&Reason);
	}
	OUTPUT:
	ObjDesc
	MsgDesc
	PutMsgOpts
	CompCode
	Reason