Advanced Queuing - Oracle

Deploying AQ with XA
} else
/* check if OCI operation succeeded */
static void checkOCIerr(errhp, status)
LNOCIError *errhp;
sword status;
{
text errbuf[512];
ub4 buflen;
sb4 errcode;
if (status == OCI_SUCCESS) return;
if (status == OCI_ERROR)
{
OCIErrorGet((dvoid *) errhp, 1, (text *)0, &errcode, errbuf,
(ub4)sizeof(errbuf), OCI_HTYPE_ERROR);
printf("Error - %s\n", errbuf);
}
else
printf("Error - %d\n", status);
exit (-1);
}
void main(argc, argv)
int argc;
char **argv;
{
int msgno = 0; /* message being enqueued */
OCIEnv *envhp; /* OCI environment handle */
OCIError *errhp; /* OCI Error handle */
OCISvcCtx *svchp; /* OCI Service handle */
char message[128]; /* message buffer */
ub4 mesglen; /* length of message */
OCIRaw *rawmesg = (OCIRaw *)0; /* message in OCI RAW format */
OCIInd ind = 0; /* OCI null indicator */
dvoid *indptr = (dvoid *)&ind; /* null indicator pointer */
OCIType *mesg_tdo = (OCIType *) 0; /* TDO for RAW datatype */
XID xid; /* XA's global transaction id */
ub4 i; /* array index */
checkXAerr(xafunc->xa_open_entry(xaoinfo, 1, TMNOFLAGS), "xaoopen");
svchp = xaoSvcCtx((text *)0); /* get service handle from XA */
A-70 Oracle9i Application Developer’s Guide - Advanced Queuing