Advanced Queuing - Oracle

char subject[30]; /* components of */
char txt[80]; /* Message_typ */
char correlation1[30]; /* message correlation */
char correlation2[30];
int status; /* code returned by the OCI calls */
/* Dequeue by correlation and msgid */
/* Connect to the database: */
EXEC SQL CONNECT :user;
EXEC SQL WHENEVER SQLERROR DO sql_error("Oracle Error :");
/* Allocate space in the object cache for the host variable: */
EXEC SQL ALLOCATE :message;
/* Get the OCI Env handle: */
if (SQLEnvGet(SQL_SINGLE_RCTX, &oeh) != OCI_SUCCESS)
{
printf(" error in SQLEnvGet \n");
exit(1);
}
/* Get the OCI Error handle: */
if (status = OCIHandleAlloc((dvoid *)oeh, (dvoid **)&err,
(ub4)OCI_HTYPE_ERROR, (ub4)0, (dvoid **)0))
{
printf(" error in OCIHandleAlloc %d \n", status);
exit(1);
}
/* Assign memory for msgid:
Memory needs to be allocated explicitly to OCIRaw*: */
if (status=OCIRawAssignBytes(oeh, err, msgmem, 16, &msgid))
{
printf(" error in OCIRawAssignBytes %d \n", status);
exit(1);
}
/* First enqueue */
Enqueuing and Dequeuing Of Messages
strcpy(correlation1, "1st message");
strcpy(subject, "NORMAL ENQUEUE1");
strcpy(txt, "The Enqueue was done through PLSQL embedded in PROC");
/* Initialize the components of message: */
Oracle Advanced Queuing by Example A-39