Advanced Queuing - Oracle

void sql_error(msg)
char *msg;
{
EXEC SQL WHENEVER SQLERROR CONTINUE;
printf("%s\n", msg);
printf("\n% .800s \n", sqlca.sqlerrm.sqlerrmc);
EXEC SQL ROLLBACK WORK RELEASE;
exit(1);
}
main()
{
LNOCIEnv *oeh; /* OCI Env handle */
LNOCIError *err; /* OCI Err handle */
LNOCIRaw *message= (OCIRaw*)0; /* payload */
ub1 message_txt[100]; /* data for payload */
char user[60]="aq/AQ"; /* user logon password */
int status; /* returns status of the OCI call */
/* Enqueue and dequeue to a RAW queue */
/* Connect to database: */
EXEC SQL CONNECT :user;
/* On an oracle error print the error number: */
EXEC SQL WHENEVER SQLERROR DO sql_error("Oracle Error :");
/* 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);
}
/* Enqueue */
/* The bytes to be put into the raw payload:*/
strcpy(message_txt, "Enqueue to a Raw payload queue ");
Enqueuing and Dequeuing Of Messages
Oracle Advanced Queuing by Example A-23