Advanced Queuing - Oracle

#include
#endif
#include
static void checkerr(OCIError *errhp, sword status);
static void deqmesg(text *buf, ub4 *buflen);
LNOCIEnv *envhp;
LNOCIError *errhp;
LNOCISvcCtx *svchp;
struct message
{
OCINumber id;
OCIString *data;
};
typedef struct message message;
struct null_message
{
OCIInd null_adt;
OCIInd null_id;
OCIInd null_data;
};
typedef struct null_message null_message;
AQ and Memory Usage
static void deqmesg(buf, buflen)
text *buf;
ub4 *buflen;
{
OCIType *mesgtdo = (OCIType *)0; /* type descr of SCOTT.MESSAGE */
message *mesg = (dvoid *)0; /* instance of SCOTT.MESSAGE */
null_message *mesgind = (dvoid *)0; /* null indicator */
OCIAQDeqOptions *deqopt = (OCIAQDeqOptions *)0;
ub4 wait = 60; /* timeout after 60 seconds */
ub4 navigation = OCI_DEQ_FIRST_MSG;/* always get head of q */
/* Get the type descriptor object for the type SCOTT.MESSAGE: */
checkerr(errhp, OCITypeByName(envhp, errhp, svchp,
(CONST text *)"SCOTT", strlen("SCOTT"),
(CONST text *)"MESSAGE", strlen("MESSAGE"),
(text *)0, 0, OCI_DURATION_SESSION,
OCI_TYPEGET_ALL, &mesgtdo));
Oracle Advanced Queuing by Example A-73