Manipulating VARRAYS

Question

Can anyone send me an example of varray manipulation (reading and writing) using C/OCI ?
I'm a beginner.
Thank's in advance.

Answer 1

Here is a sample routine :-
static CONST text CONST_W_PTR selar = (text )
"SELECT * from customer_va";
** execute "selar" statement which select an array column from a table.
void selectar(envhp, svchp, stmthp, stmthp1, errhp, recurse)
OCIEnv *envhp;
OCISvcCtx *svchp;
OCIStmt *stmthp;
OCIStmt *stmthp1;
OCIError *errhp;
boolean recurse;
OCIType *names_ar_tdo;
OCIDefine defn1p, defn2p;
OCIColl names_ar = (OCIColl ) 0;
sword custno =0;
sword status;
dvoid *elem;
sb4 index;
OCIString OCIInd names_null = (OCIInd ) 0;
boolean exist, eoc, boc;
OCIIter itr = (OCIIter ) 0;
OCIBind bnd1p, bnd2p;
int amount;
OCIInd ind = -1;
OCIInd *indp = &ind;
sb4 collsiz;
DISCARD printf("\n******** Entering selectar *********\n");
/* define the application request */
checkerr(errhp, OCIStmtPrepare(stmthp, errhp, (text *) selar,
(ub4) strlen((const char *) selar),
(ub4) OCI_NTV_SYNTAX, (ub4) OCI_DEFAULT));
*names;
/* bind the input variable */
checkerr(errhp, OCIDefineByPos(stmthp, &defn1p, errhp, (ub4) 1, (dvoid *) &custno,
(sb4) sizeof(sword), SQLT_INT, (dvoid *) 0, (ub2 *)0,
(ub2 *)0, (ub4) OCI_DEFAULT));
checkerr(errhp, OCIDefineByPos(stmthp, &defn2p, errhp, (ub4) 2, (dvoid *) 0,
(sb4) 0, SQLT_NTY, (dvoid *) 0, (ub2 *)0,
(ub2 *)0, (ub4) OCI_DEFAULT));
checkerr(errhp, OCITypeByName(envhp, errhp, svchp, (const text *) "",
(ub4) strlen((const char *) ""),
(const text *) "CHAR_TAB",
(ub4) strlen((const char *) "CHAR_TAB"),
(CONST text *) 0, (ub4) 0,
OCI_DURATION_SESSION, OCI_TYPEGET_HEADER,
&names_ar_tdo));
checkerr(errhp, OCIDefineObject(defn2p, errhp, names_ar_tdo, (dvoid **) &names_ar,
(ub4 *) 0, (dvoid **) &indp, (ub4 *) 0));
checkerr(errhp, OCIStmtExecute(svchp, stmthp, errhp, (ub4) 0, (ub4) 0,
(OCISnapshot *) NULL, (OCISnapshot *) NULL,
(ub4) OCI_DEFAULT));
/* execute and fetch */
DISCARD printf(" Execute and fetch.\n");
while ((status = OCIStmtFetch(stmthp, errhp, (ub4) 1, (ub4) OCI_FETCH_NEXT,
(ub4) OCI_DEFAULT)) == OCI_SUCCESS | |
status == OCI_SUCCESS_WITH_INFO)
/* print the customer number */
DISCARD printf("\nThe customer number is : %d.\n", custno);
if (*indp == -1)
DISCARD printf("The varray is NULL.\n\n");
continue;
/* check how many elements in the typed table */
checkerr(errhp, OCICollSize(envhp, errhp, (CONST OCIColl *) names_ar,
&collsiz));
DISCARD printf("---> There are %d elements in the varray.\n", collsiz);
DISCARD printf("\n---> Dump the array from the top to the bottom.\n");
checkerr(errhp, OCIIterCreate(envhp, errhp, names_ar, &itr));
for(eoc = FALSE;!OCIIterNext(envhp, errhp, itr, (dvoid **) &elem,
(dvoid **) &names_null, &eoc) && !eoc;)
names = *(OCIString **) elem;
DISCARD printf(" The names is %s\n", OCIStringPtr(envhp, names));
DISCARD printf(" atomic null indicator is %d\n", *names_null);
DISCARD printf("\n---> Dump the array from the bottom to the top.\n");
checkerr(errhp, OCIIterGetCurrent(envhp, errhp, itr, (dvoid **) &elem,
(dvoid **) &names_null));
names = *(OCIString **) elem;
DISCARD printf(" The names is %s\n", OCIStringPtr(envhp, names));
DISCARD printf(" atomic null indicator is %d\n", *names_null);
for(boc = FALSE;!OCIIterPrev(envhp, errhp, itr, (dvoid **) &elem,
(dvoid **) &names_null, &boc) && !boc;)
names = *(OCIString **) elem;
DISCARD printf(" The names is %s\n", OCIStringPtr(envhp, names));
DISCARD printf(" atomic null indicator is %d\n", *names_null);
checkerr(errhp, OCIIterDelete(envhp, errhp, &itr));
/* insert into the same table, then dump the info again */
if (recurse)
custno = custno * 10;
checkerr(errhp, OCIStmtPrepare(stmthp1, errhp, (text *) insar,
(ub4) strlen((const char *) insar),
(ub4) OCI_NTV_SYNTAX, (ub4) OCI_DEFAULT));
/* bind the input variable */
checkerr(errhp, OCIBindByName(stmthp1, &bnd1p, errhp, (text *) ":custno",
(sb4) -1, (dvoid *) &custn o,
(sb4) sizeof(sword), SQLT_INT,
(dvoid *) 0, (ub2 *)0, (ub2 *)0, (ub4) 0, (ub4 *) 0,
(ub4) OCI_DEFAULT));
checkerr(errhp, OCIBindByName(stmthp1, &bnd2p, errhp, (text *) ":names",
(sb4) -1, (dvoid *) 0,
(sb4) 0, SQLT_NTY, (dvoid *) 0, (ub2 *)0, (ub2 *)0,
(ub4) 0, (ub4 *) 0, (ub4) OCI_DEFAULT));
/* if custno == 20, then insert null nested table */
*indp = -1;
checkerr(errhp, OCIBindObject(bnd2p, errhp, names_ar_tdo,
(dvoid **) &names_ar,
(ub4 *) 0, (custno == 20) ? (dvoid **) &indp :
(dvoid **) 0, (ub4 *) 0));
checkerr(errhp, OCIStmtExecute(svchp, stmthp1, errhp, (ub4) 1,
(ub4) 0, (OCISnapshot *) NULL,
(OCISnapshot *) NULL, (ub4) OCI_DEFAULT));
checkerr(errhp, OCITransCommit(svchp, errhp, (ub4) 0));
null