paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-04 06:23:50 +02:00
Code Issues Packages Projects Releases Wiki Activity
ad0ac6ef1f
fpc/packages/base/oracle/orl.inc
joost 3574454490 + update of oracle bindings 
git-svn-id: trunk@2540 -
2006-02-12 17:44:14 +00:00

3912 lines
178 KiB
PHP
Raw Blame History

{
Automatically converted by H2Pas 1.0.0 from orl.h
The following command line parameters were used:
-p
-D
-l
jojo.so
orl.h
}
{$PACKRECORDS C}
{ Copyright (c) 1993, 2003, Oracle Corporation. All rights reserved. }
{
Author: Srinath Krishnaswamy
Date: 11/24/93
Source documents: "Functional Specification for C Language Mapping of
OTS Types, Object Management Subsystem", "Oracle C
Coding Standards version 2.2", and the header file
template
Rule sets: the generic and .h file rule sets
Quality status: not exited
Identification tag: [ one or more letters to identify the .h file ]
Revision code: 11/24/93
NAME
ORL - ORacle's external C Language interface to primitive OTS types
DESCRIPTION
This header file contains C langauge interface to the OTS primitive
types. The interface includes C mapping of OTS primitive types and
the prototype of the pre-defined operations on the primitive types.
***********************************************************************
*** NOTE: The OCI functions for objects requires the ***
*** application to be running in OBJECT mode. That is, during ***
*** process initialization OCIInitialize(), the mode ***
*** specified should be OBJECT mode. ***
** OCIInitialize(OCI_OBJECT, ..); ***
***********************************************************************
RELATED DOCUMENTS
[1] Krishnaswamy, Srinath and Nguyen, Tin A., "Functional Specification
for C Language Mapping of OTS Types, Object Management Subsystem",
March 1994.
[2] Nguyen, Tin A., "The Open Type System", Oracle Corporation,
February 1994.
[3] Klein, Jonathan D., "Large Field Management", Oracle Corporation,
October 1993.
PUBLIC FUNCTIONS
OCI - OCI functions to manipulate Oracle Number, float and decimal
ARITHMETIC
OCINumberInc - OCINumber INCrement (optimized)
OCINumberDec - OCINumber DECrement (optimized)
OCINumberAdd - OCINumber ADD numbers
OCINumberSub - OCINumber SUBtract numbers
OCINumberMul - OCINumber MULtiply numbers
OCINumberDiv - OCINumber DIVide numbers
OCINumberMod - OCINumber MODulo division
OCINumberIntPower - OCINumber integer PoWeR
OCINumberShift - OCINumber decimal ShiFT number
OCINumberNeg - OCINumber NEGate number
OCINumberAbs - OCINumber ABSolute value
OCINumberCeil - OCINumber CEiling of number
OCINumberFloor - OCINumber FLooR of number
OCINumberSqrt - OCINumber SQuare Root of number
OCINumberSign - OCINumber get SIGN of number
NATIVE TYPE CONVERSION
OCINumberToInt - OCINumber convert number TO machine-format Integer
OCINumberFromInt - OCINumber convert machine-format Integer TO Number
OCINumberToReal - OCINumber convert number TO machine-format Real
OCINumberToRealArray - OCINumber convert array of numbers TO
machine-format Real
OCINumberFromReal - OCINumber convert machine-format Real TO Number
TEXT STRING CONVERSION
OCINumberToText - OCINumber convert number TO String
OCINumberFromText - OCINumber convert String TO Number
COMPARISON
OCINumberCmp - OCINumber CoMPare numbers
OCINumberIsZero - OCINumber comparison with ZERo
OCINumberIsInt - OCINumber Is an Integer
ASSIGNMENT
OCINumberAssign - OCINumber ASsiGn number
OCINumberSetZero - OCINumber Set number to Zero value
OCINumberSetPi - OCINumber Set number to Pi
ROUNDING
OCINumberTrunc - OCINumber TRUncate an Oracle number
OCINumberRound - OCINumber ROUnd number
OCINumberPrec - OCINumber round to Precision digits
TRANSCENDENTAL
OCINumberSin - OCINumber SINe
OCINumberArcSin - OCINumber Arc SINe
OCINumberHypSin - OCINumber SiNe Hyperbolic
OCINumberCos - OCINumber COSine
OCINumberArcCos - OCINumber Arc COSine
OCINumberHypCos - OCINumber CoSine Hyperbolic
OCINumberTan - OCINumber TANgent
OCINumberArcTan - OCINumber Arc TANgent
OCINumberArcTan2 - OCINumber Arc TaNgent 2
OCINumberHypTan - OCINumber TaNgent Hyperbolic
OCINumberPower - OCINumber arbitrary Base EXponentiation
OCINumberExp - OCINumber EXPonentiation to base e
OCINumberLn - OCINumber Logarithm Natural
OCINumberLog - OCINumber LOGarithm to arbitrary base
OCIDate - OCI functions to manipulate OCI Date
OCIDateToExternal - OCIDate convert date to external form
OCIDateFromExternal - OCIDate convert external form of date into OCIDate
OCIDateAssign - OCIDate Assignment
OCIDateToText - OCIDate convert date TO String
OCIDateFromText - OCIDate convert String TO Date
OCIDateZoneToZone - OCIDate convert date from one time
Zone TO another Zone
OCIDateCompare - OCIDate CoMPare dates
OCIDateAddMonths - OCIDate ADd or subtract Months
OCIDateAddDays - OCIDate ADd or subtract Days
OCIDateLastDay - OCIDate get date of LaST day of month
OCIDateDaysBetween - OCIDate get number of days BeTWeen two dates
OCIDateNextDay - OCIDate get date of Next DaY
OCIDateCheck - OCIDate CHecK if the given date is valid
OCIDateSysDate - OCIDate get current SYStem date and time
OCIString - OCI String functions to manipulate Variable-length string
OCIStringAssign - OCIString Assign string to string
OCIStringAssignText - OCIString Assign Text string to string
OCIStringResize - OCIString ReSiZe string
OCIStringSize - OCIString get String Size
OCIStringPtr - OCIString get String PoinTeR
OCIStringAllocSize - OCIString get Allocated SiZe
OCIRaw - OCI Raw functions to manipulate variable-length raW
OCIRawAssignRaw - OCIRaw Assign Raw (of type OCIRaw*) to raw
(of type OCIRaw*)
OCIRawResize - OCIRaw Resize raw
OCIRawSize - OCIRaw get Raw Size
OCIRawPtr - OCIRaw get Raw data Pointer
OCIRawAllocSize - OCIRaw get Allocated Size
OCIColl - OCI Collection generic functions. These functions can be
used to manipulate both variable-length array (varray) and
nested table.
OCICollSize - OCIColl return current SIZe of the given collection
(in number of elements)
OCICollMax - OCIColl return the MAXimum number of elements in the
collection (i.e. upper-bound)
OCICollGetElem - OCIColl GET pointer to the element at the given
position
OCICollAssignElem - OCIColl assign to element at given index
OCICollAssign - OCIColl ASsiGn collection; perform deep-copy of source
collection to target collection
OCICollAppend - OCIColl aPPend the given element to the end of the
collection
OCICollTrim - OCIColl trim (delete) the given number of elements
from the end of the collection
OCICollIsLocator - OCIColl indicates whether a collection is locator
based or not.
OCIIterCreate - OCIColl Create an ITerator to scan the collection
elements
OCIIterDelete - OCIColl Delete ITerator
OCIIterInit - OCIColl Initialize ITerator to scan the given collection
OCIIterGetCurrent - OCIColl Iterator based, get CURrent
collection element
OCIIterNext - OCIColl Iterator based, get NeXT collection element
OCIIterPrev - OCIColl Iterator based, get PReVious collection element
OCITable - OCI functions to manipulate nested Table. The OCIColl*() and
OCITable*() functions can be used to manipulate nested table
OCITableDelete(i) - OCITable if element(i) exists then the element is
marked as deleted else the function returns false. So
delete's create "holes".
OCITableExists(i) - OCITable return true iff an element at
position i EXIsts
OCITableFirst - OCITable return the smallest value of i for which
exists(i) is true.
OCITableLast - OCITable return the largest value of i for which
exists(i) is true.
OCITableNext(i) - OCITable return pointer to the smallest position j,
greater than i, such that OCITableExists(j) is true
OCITablePrev(i) - OCITable return pointer to the largest position j,
less than i, such that OCITableExists(j) is true
OCITableSize - OCITable return current SIZe of the given nested table not
including deleted elements
OCIRef - OCI functions to manipulate object Reference
OCIRefClear - OCIRef CLeaR or nullify a ref
OCIRefAssign - OCIRef ASsiGn a ref to another
OCIRefIsEqual - OCIRef compare two refs for EQUality
OCIRefIsNull - OCIRef test if a ref is NULl
OCIRefFromHex - OCIRef convert a Hexadecimal string TO a Ref
OCIRefToHex - OCIRef convert a ref to a Hexadecimal string
OCIRefHexSize - OCIRef get size of buffer in bytes to store hexadecimal
string
OBSOLETE: to be replaced by functions from oci.h:
ORLL - ORL functions to manipulate lob Locators
orllasg - ORLL AsiGn one locator to another
orllequ - ORLL compare two locators for EQUality
orlliini - ORLL Is the locator INItialized?
orllgsz - ORLL Get locator SiZe
orllgcid - ORLL Get Character set ID
NOTE: The following are specific to FILE lobs:
orllsnm - ORLL Set directory alias and file NaMe in the locator
orllgnm - ORLL Get directory alias and file NaMe from the locator
EXAMPLES
Examples are given in the description of each function where
relevant.
NOTES
This file has been subsetted to contain ONLY the routines that will
be in the first release.
QUESTIONS
MODIFIED
srseshad 03/12/03 - convert oci public api to ansi
rpingte 11/21/02 - Add OCICollGetElemArray and OCINumberToRealArray
aahluwal 06/03/02 - bug 2360115
gayyappa 02/01/02 - fix 2210776 : change Dom to DOM
whe 09/25/01 - add OCIXMLType & OCIDomDocument opaque types
bpalaval 02/09/01 - Change text to oratext.
rkasamse 09/20/99 - lint changes
whe 09/01/99 - 976457:check __cplusplus for C++ code
hsbedi 08/11/99 - Add macro
rxgovind 10/14/98 - make non exposed calls (OCIRowType etc) private
rxgovind 06/09/98 - update OCIRowTypeCreate
nmantrav 05/11/98 - add OCIRowTypeGetCount
rxgovind 03/29/98 - add OCIRowType and OCIRowData interfaces
jwijaya 05/06/98 - add OCICollIsLocator
rxgovind 03/18/98 - opaque types: move to kolo.h
etucker 02/02/98 - add comments for Dec and Inc
etucker 01/29/98 - Finish core5 integration
rxgovind 11/11/97 - opaque types
etucker 10/28/97 - add ORLN functions for SDK
cxcheng 07/28/97 - remove OCILobLocator #define
skmishra 05/13/97 - stdcc compatibility changes
skrishna 04/25/97 - rename OCINumber*(): Exp Power TanHyp Zero Init
TanToArc Sqr Truncate and Compare
skotsovo 03/31/97 - remove OCILobLocatorSize
skrishna 03/25/97 - remove orld2i and orldi2d
skrishna 03/18/97 - fix ifdef for supporting ansi and k&r proto-types
cxcheng 02/06/97 - take out short name support except with SLSHORTNAME
skrishna 01/06/97 - update OCITableSize() comments
skrishna 12/27/96 - fix OCIDateGet/OCIDateSet
skrishna 12/12/96 - update OCICollGelElem comments
skrishna 11/07/96 - OCICollGetElem: interface change
skrishna 11/05/96 - add OCIDate Get/Set and OCIDateAssign
cxcheng 10/31/96 - change OCINumberTanHyp to OCINumberHypTan
cxcheng 10/30/96 - #define orll short names to long names
dchatter 10/26/96 - fix some OCI file long names
cxcheng 10/24/96 - remove unnecessary comment in front
cxcheng 10/14/96 - disable long name mapping for LOB functions
skrishna 10/13/96 - continue beautification
skotsovo 10/16/96 - update ocilob names
cxcheng 10/09/96 - add structure members in #define for date/time
cxcheng 10/09/96 - more lint fixes
skrishna 10/09/96 - continue beautification
cxcheng 10/09/96 - more fixes
skrishna 10/09/96 - change fixed-char rep. to orlvstr*
jwijaya 10/08/96 - continue beautification
jwijaya 10/07/96 - beautify
cxcheng 10/07/96 - more changes
cxcheng 10/04/96 - replace short names with long names
skrishna 10/01/96 - orlcsiz, orltsiz: change prototype to take errhdl
skrishna 09/23/96 - fix lint errors
skotsovo 09/23/96 - remove orllmkcur().
jwijaya 09/17/96 - comments on null ref
skrishna 09/19/96 - change orlraw format
skotsovo 09/19/96 - add orlliini and remove orllnul
skrishna 08/14/96 - orlvstr: change format to ub4 followed by text
jboonleu 08/06/96 - update comment
skotsovo 08/08/96 - revert to locators instead of descriptors as input t
jboonleu 07/23/96 - remove orlrcur
skrishna 07/06/96 - add orltsiz
skrishna 07/05/96 - add orld2i and orldi2d
jwijaya 07/03/96 - add ANSI prototypes
skrishna 06/27/96 - document default string format in orlds2d & orld2s
skrishna 06/25/96 - change max date value
skrishna 06/18/96 - modify orld2s() comments
skotsovo 06/13/96 - orll functions take lob descriptors instead of locat
rxgovind 06/05/96 - change prototype of orlrcur to take ocienvh
skrishna 05/30/96 - support collection trimming
skrishna 05/30/96 - remove orlralo/fre and orllalo/fre instead use
orionew/fre
skrishna 05/28/96 - add orlt*() and modify orla*()
skotsovo 05/23/96 - add orlbl typedefs for pro*c
jboonleu 05/14/96 - add orlrcur
rxgovind 05/08/96 - changes for 3gl callbacks
skotsovo 05/01/96 - in orllasg, no need to alloc orlbl*
skrishna 04/21/96 - merge changes from 960418 object branch into big
skrishna 04/17/96 - rename orlrcpy to orlrasg
skrishna 04/12/96 - add orlr2h and orlrh2r functions
skotsovo 04/15/96 - add fnt to make the lob locator current
skrishna 04/08/96 - change orl*() to take ocienvh* and ocierrh* instead
of oroenv*
skotsovo 03/22/96 - add locator functions
skotsovo 03/22/96 - add locator functions
skrishna 02/27/96 - remove mlslabel interface
skotsovo 02/20/96 - remove orlbty and use dty type instead.
skotsovo 02/14/96 - add text file lobs.
skrishna 01/31/96 - update comments of orln2r, orldchk, orlds2d & orld2s
skrishna 01/31/96 - change orld2s() and orln2s() to return string length
skrishna 01/21/96 - remove old raw interface
skrishna 12/14/95 - add raw interface
skotsovo 01/03/96 - change LOB offsets and lengths from ub4 to ubig_ora
to support 64 bit machines.
skotsovo 10/30/95 - add orlblsiz() to get lob locator size
skrishna 10/24/95 - move ref functions from ori and update the ref
functions to support variable-length ref
cxcheng 10/20/95 - add more comments on number versions
cxcheng 10/13/95 - add more number functions
cxcheng 08/29/95 - Support for segmented varrays
cxcheng 08/18/95 - modifiy orlmls structure
skrishna 06/06/95 - rename orln, orld, orlvs and orlva to orlnum,
orldat, orlvstr and orlvary respectively
skrishna 11/15/94 - remove orlnget() function
skrishna 09/20/94 - modify orldbtw() to return number of days only
skrishna 08/24/94 - change format string length type from ub4 to ub1
skrishna 07/19/94 - Rename orln2c & orlnc2n to orln2s & orlns2n
skrishna 06/29/94 - Add blob interface; add examples
skrishna 06/23/94 - Update comments and format
skrishna 05/19/94 - update varray append comments
skrishna 05/05/94 - Subsetting
skrishna 11/24/93 - Creation
}
{--------------------------------------------------------------------------- }
{ SHORT NAMES SUPPORT SECTION }
{--------------------------------------------------------------------------- }
{$ifdef SLSHORTNAME}
{ the following are short names that are only supported on IBM mainframes
with the SLSHORTNAME defined.
With this all subsequent long names will actually be substituted with
the short names here }
const
OCIArray = orlvary;
OCIColl = orlcol;
OCICollAppend = orlcapp;
OCICollAssign = orlcasg;
OCICollAssignElem = orlcase;
OCICollGetElem = orlcget;
OCICollGetElemArray = orlcgeta;
OCICollMax = orlcmax;
OCICollSize = orlcsiz;
OCICollTrim = orlctrm;
OCICollIsLocator = orlcilc;
OCIDate = orldat;
OCIDateAddDays = orldadd;
OCIDateAddMonths = orldadm;
OCIDateCheck = orldchk;
OCIDateCompare = orldcmp;
OCIDateDD = day_orldat;
OCIDateDaysBetween = orldbtw;
OCIDateFromText = orlds2d;
OCIDateLastDay = orldlst;
OCIDateMM = mon_orldat;
OCIDateNextDay = orldndy;
OCIDateSysDate = orldsys;
OCIDateTime = time_orldat;
OCIDateYYYY = gye_orldat;
OCIDateZoneToZone = orldz2z;
OCIIter = orlcitr;
OCIIterCreate = orlccit;
OCIIterDelete = orlcdit;
OCIIterGetCurrent = orlcicur;
OCIIterInit = orlciit;
OCIIterNext = orlcinxt;
OCIIterPrev = orlciprv;
OCINumber = orlnum;
OCINumberAbs = orlnabs;
OCINumberAdd = orlnadd;
OCINumberArcCos = orlnacos;
OCINumberArcSin = orlnasin;
OCINumberArcTan = orlnatan;
OCINumberAssign = orlnasg;
OCINumberCeil = orlncel;
OCINumberCos = orlncos;
OCINumberDiv = orlndiv;
OCINumberPower = orlnbex;
OCINumberFloor = orlnflr;
OCINumberFromInt = orlni2n;
OCINumberFromReal = orlnr2n;
OCINumberFromText = orlns2n;
OCINumberHypCos = orlncsh;
OCINumberHypSin = orlnsnh;
OCINumberSetZero = orlnini;
OCINumberSetPi = orlnspi;
OCINumberInc = orlninc;
OCINumberDec = orlndec;
OCINumberIntPower = orlnpwr;
OCINumberLn = orlnln;
OCINumberLog = orlnlog;
OCINumberMod = orlnmod;
OCINumberMul = orlnmul;
OCINumberNeg = orlnneg;
OCINumberPart = orlnpart;
OCINumberExp = orlnexp;
OCINumberRound = orlnrou;
OCINumberPrec = orlnpre;
OCINumberShift = orlnsft;
OCINumberSign = orlnsgn;
OCINumberSin = orlnsin;
OCINumberSqrt = orlnsqr;
OCINumberSub = orlnsub;
OCINumberTan = orlntan;
OCINumberHypTan = orlntnh;
OCINumberArcTan2 = orlnatn2;
OCINumberToInt = orln2i;
OCINumberToReal = orln2r;
OCINumberToRealArray = orln2ra;
OCINumberToText = orln2s;
OCINumberTrunc = orlntru;
OCINumberCmp = orlncmp;
OCINumberIsZero = orlnzer;
OCINumberIsInt = orlnint;
OCIRaw = orlraw;
OCIRawAllocSize = orlwasz;
OCIRawAssignBytes = orlwabr;
OCIRawAssignRaw = orlwarr;
OCIRawPtr = orlwgrp;
OCIRawResize = orlwrsz;
OCIRawSize = orlwgsz;
OCIRefAssign = orlrasg;
OCIRefClear = orlrclr;
OCIRefFromHex = orlrh2r;
OCIRefHexSize = orlrhsz;
OCIRefIsEqual = orlrequ;
OCIRefIsNull = orlrnul;
OCIRefToHex = orlr2h;
OCIString = orlvstr;
OCIStringAllocSize = orlvasz;
OCIStringAssign = orlvass;
OCIStringAssignText = orlvats;
OCIStringPtr = orlvgsp;
OCIStringResize = orlvrsz;
OCIStringSize = orlvgsz;
OCITable = orltbl;
OCITableDelete = orltdel;
OCITableExists = orltexi;
OCITableFirst = orltfst;
OCITableLast = orltlst;
OCITableNext = orltnxt;
OCITablePrev = orltprv;
OCITableSize = orltsiz;
OCITime = orldtm;
OCITimeHH = orldtmhh;
OCITimeMI = orldtmmm;
OCITimeSS = orldtmss;
OCI_LOBMODE_READONLY = ORLBMORO;
OCI_LOBMODE_READWRITE = ORLBMORW;
{$endif}
{ SLSHORTNAME }
{*************************************************************************** }
{ NUMBER/FLOAT/DECIMAL TYPE }
{*************************************************************************** }
const
OCI_NUMBER_SIZE = 22;
type
POCINumber = ^OCINumber;
OCINumber = record
OCINumberPart : array[0..(OCI_NUMBER_SIZE)-1] of ub1;
end;
{
* OCINumber - OCI Number mapping in c
*
* The OTS types: NUMBER, NUMERIC, INT, SHORTINT, REAL, DOUBLE PRECISION,
* FLOAT and DECIMAL are represented by OCINumber.
* The contents of OCINumber is opaque to clients.
*
* For binding variables of type OCINumber in OCI calls (OCIBindByName(),
* OCIBindByPos(), and OCIDefineByPos()) use the type code SQLT_VNU.
}
{
EXAMPLE
The following example shows how to manipulate an attribute of type
oracle number.
struct person
OCINumber sal;
;
typedef struct person person;
OCIError *err;
person* joe;
person* tom;
person* debbie;
OCINumber *joesal;
OCINumber *tomsal;
OCINumber *debsal;
sword status;
int inum;
double dnum;
OCINumber ornum;
char buffer[21];
ub4 buflen;
sword result;
/o See oci.h for an example of how to initialize OCIError.
o For this example, assume the OCIEnv and OCIError has been
o initialized.
o/
/o Pin joe, tom and debbie person objects in the object cache. See ori.h
o for an example on pinning objects. For this example, assume that
o joe, tom and debbie are pointing to pinned objects.
o/
joesal = &joe->sal;
tomsal = &tom->sal;
debsal = &debbie->sal;
/o initialize joe's salary to be $12,000 o/
inum = 12000;
status = OCINumberFromInt(err, &inum, sizeof(inum), OCI_NUMBER_SIGNED,
joesal);
if (status != OCI_SUCCESS)
/o goto to handle error from OCINumberFromInt o/;
/o initialize tom's salary to be same as joe o/
OCINumberAssign(err, joesal, tomsal);
/o initialize debbie's salary to be 20% more than joe's o/
dnum = 1.2;
status = OCINumberFromReal(err, &dnum, sizeof(double), &ornum);
if (status != OCI_SUCCESS)
/o goto to handle error from OCINumberFromReal o/;
status = OCINumberMul(err, joesal, &ornum, debsal);
if (status != OCI_SUCCESS) /o goto to handle error from OCINumberMul o/;
/o give tom a 50% raise o/
dnum = 1.5;
status = OCINumberFromReal(err, &dnum, sizeof(double), &ornum);
if (status != OCI_SUCCESS)
/o goto to handle error from OCINumberFromReal o/;
status = OCINumberMul(err, tomsal, &ornum, tomsal);
if (status != OCI_SUCCESS) /o goto to handle error from OCINumberMul o/;
/o double joe's salary o/
status = OCINumberAdd(err, joesal, joesal, joesal);
if (status != OCI_SUCCESS) /o goto to handle error from OCINumberAdd o/;
/o get joe's salary in integer o/
status = OCINumberToInt(err, joesal, sizeof(inum), OCI_NUMBER_SIGNED,
&inum);
if (status != OCI_SUCCESS)/o goto to handle error from OCINumberToInt o/;
/o inum is set to 24000 o/
/o get debbie's salary in double o/
status = OCINumberToReal(err, debsal, sizeof(dnum), &dnum);
if (status != OCI_SUCCESS)/o goto to handle error from OCINumberToReal o/;
/o dnum is set to 14400 o/
/o print tom's salary as DEM0001`8000.00 o/
buflen = sizeof(buffer);
status = OCINumberToText(err, tomsal, "C0999G9999D99", 13,
"NLS_NUMERIC_CHARACTERS='.`' NLS_ISO_CURRENCY='Germany'", 54,
&buflen, buffer);
if (status != OCI_SUCCESS)/o goto to handle error from OCINumberToText o/;
printf("tom's salary = %s\n", buffer);
/o compare joe and tom's salary o/
status = OCINumberCmp(err, joesal, tomsal, &result);
if (status != OCI_SUCCESS) /o goto to handle error from OCINumberCmp o/;
/o result is positive o/
/o read debbie's new salary from string o/
status = OCINumberFromText(err, "48`000.00", 9, "99G999D99", 9,
"NLS_NUMERIC_CHARACTERS='.`'", 27, debsal);
if (status != OCI_SUCCESS)
/o goto to handle error from OCINumberFromText o/;
/o debbie's salary is now 48000.00 o/
}
{----------------------------- OCINumberInc -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberInc(err:POCIError; number:POCINumber):sword;cdecl;external ocilib name 'OCINumberInc';
{$ELSE}
var OCINumberInc : function (err:POCIError; number:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberInc - OCINumber INCrement numbers
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN/OUT) a positive Oracle number to be incremented
DESCRIPTION:
Increment Oracle number in place. It is assumed that the input is
an integer between 0 and 100^21-2. If the is input too large, it will
be treated as 0 - the result will be an Oracle number 1. If the input
is not a positive integer, the result will be unpredictable.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{----------------------------- OCINumberDec -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberDec(err:POCIError; number:POCINumber):sword;cdecl;external ocilib name 'OCINumberDec';
{$ELSE}
OCINumberDec : function (err:POCIError; number:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberDec - OCINumber DECrement numbers
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN/OUT) - a positive Oracle number to be decremented
DESCRIPTION:
Decrement Oracle number in place. It is assumed that the input is an
integer between 1 and 100^21-2. If the input is too large, it will be
treated as 1 - the result will be an Oracle number 0. If the input is
not a positive integer, the result will be unpredictable.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{-------------------------- OCINumberSetZero ------------------------------- }
{$IFNDEF LinkDynamically}
procedure OCINumberSetZero(err:POCIError; num:POCINumber);cdecl;external ocilib name 'OCINumberSetZero';
{$ELSE}
OCINumberSetZero : procedure (err:POCIError; num:POCINumber);cdecl;
{$ENDIF}
{
NAME: OCINumberSetZero - OCINumber Set number to Zero value
PARAMETERS:
err (IN/OUT) - pointer to OCI error handle
num (OUT) - set to zero value
DESCRIPTION:
Initialize the given number to value 0.
}
{--------------------------- OCINumberSetPi -------------------------------- }
{$IFNDEF LinkDynamically}
procedure OCINumberSetPi(err:POCIError; num:POCINumber);cdecl;external ocilib name 'OCINumberSetPi';
{$ELSE}
OCINumberSetPi : procedure (err:POCIError; num:POCINumber);cdecl;
{$ENDIF}
{
NAME: OCINumberSetPi - OCINumber Set number to Pi
err (IN/OUT) - pointer to OCI error handle
num (OUT) - set to zero value
DESCRIPTION:
Initialize the given number to value Pi.
}
{----------------------------- OCINumberAdd -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberAdd(err:POCIError; number1:POCINumber; number2:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberAdd';
{$ELSE}
OCINumberAdd : function (err:POCIError; number1:POCINumber; number2:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberAdd - OCINumber ADD numbers
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number1, number2 (IN) - numbers to be added
result (OUT) - result of adding 'number1' with 'number2'
DESCRIPTION:
Add 'number1' with 'number2' and return result in 'result'.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{----------------------------- OCINumberSub -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberSub(err:POCIError; number1:POCINumber; number2:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberSub';
{$ELSE}
OCINumberSub : function (err:POCIError; number1:POCINumber; number2:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberSub - OCINumber SUBtract numbers
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number1, number2 (IN) - 'number2' subtracted from 'number1'
result (OUT) - subtraction result
DESCRIPTION:
Subtract 'number2' from 'number1' and return result in 'result'.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{----------------------------- OCINumberMul -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberMul(err:POCIError; number1:POCINumber; number2:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberMul';
{$ELSE}
OCINumberMul : function (err:POCIError; number1:POCINumber; number2:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberMul - OCINumber MULtiply numbers
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number1, number2 (IN) - numbers to be multiplied
result (OUT) - multiplication result
DESCRIPTION:
Multiply 'number1' with 'number2' and return result in 'result'.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{----------------------------- OCINumberDiv -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberDiv(err:POCIError; number1:POCINumber; number2:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberDiv';
{$ELSE}
OCINumberDiv : function (err:POCIError; number1:POCINumber; number2:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberDiv - OCINumber DIVide numbers
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number1 (IN) - pointer to the numerator
number2 (IN) - pointer to the denominator
result (OUT) - division result
DESCRIPTION:
Divide 'number1' by 'number2' and return result in 'result'.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
underflow errorr
overflow errorr
divide by zero errorr
}
{----------------------------- OCINumberMod -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberMod(err:POCIError; number1:POCINumber; number2:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberMod';
{$ELSE}
OCINumberMod : function (err:POCIError; number1:POCINumber; number2:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberMod - OCINumber MODulous
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number1 (IN) - pointer to the numerator
number2 (IN) - pointer to the denominator
result (OUT) - remainder of the result
DESCRIPTION:
Finds the remainder of the division of two Oracle numbers.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
divide by zero errorr
}
{------------------------ OCINumberIntPower -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberIntPower(err:POCIError; base:POCINumber; exp:sword; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberIntPower';
{$ELSE}
OCINumberIntPower : function (err:POCIError; base:POCINumber; exp:sword; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberIntPower - OCINumber takes an arbitary base to an arbitary
integer PoWeR
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
base (IN) - base of the exponentiation
exp (IN) - exponent to which the base is to be raised
result (OUT) - output of exponentiation
DESCRIPTION:
Takes an arbitary base to an arbitary integer power.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{-------------------------- OCINumberShift --------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberShift(err:POCIError; number:POCINumber; nDig:sword; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberShift';
{$ELSE}
OCINumberShift : function (err:POCIError; number:POCINumber; nDig:sword; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberShift - OCINumber multiplies by a power of 10.
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - Oracle Number to be shifted.
nDig (IN) - number of decimal places to shift.
result (OUT) - shift result.
DESCRIPTION:
Multiplies number by 10^NDig and sets product to the result.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{----------------------------- OCINumberNeg -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberNeg(err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberNeg';
{$ELSE}
OCINumberNeg : function (err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberNeg - OCINumber NEGate number
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - number to be negated
result (OUT) - will contain negated value of 'number'
DESCRIPTION:
Negates an Oracle number.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{------------------------- OCINumberToText --------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberToText(err:POCIError; number:POCINumber; fmt:Poratext; fmt_length:ub4; nls_params:Poratext;
nls_p_length:ub4; buf_size:Pub4; buf:Poratext):sword;cdecl;external ocilib name 'OCINumberToText';
{$ELSE}
OCINumberToText : function (err:POCIError; number:POCINumber; fmt:Poratext; fmt_length:ub4; nls_params:Poratext;
nls_p_length:ub4; buf_size:Pub4; buf:Poratext):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberToText - OCINumber convert number TO String
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - Oracle number to be converted
fmt (IN) - conversion format
fmt_length (IN) - length of the 'fmt' parameter
nls_params (IN) - nls format specification, if null string
i.e. (oratext *)0, then the default parameters for the
session is used
nls_p_length (IN) - length of the 'nls_params' parameter
buf_size (IN/OUT) - size of the buffer must be passed as input by
the caller, this function will return the length of the
resulting string in bytes via this parameter. The length
does not include the terminating null ('\0').
buf (OUT) - buffer into which the converted string is placed. The
resulting string is null terminated.
DESCRIPTION:
Converts the given number to a character string
according to the specified format. Refer to "TO_NUMBER" conversion
function described in "Oracle SQL Language Reference Manual" for a
description of format and NLS parameters.
The converted number string is stored in the buffer 'buf', up to
a max of '*buf_size' bytes. Length of the resulting string is
returned via 'buf_size'.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
'number' or 'buf' is null
buffer too small
invalid format
invalid nls format
number to text translation for the given format causes overflow
}
{-------------------------- OCINumberFromText ------------------------------ }
{$IFNDEF LinkDynamically}
function OCINumberFromText(err:POCIError; str:Poratext; str_length:ub4; fmt:Poratext; fmt_length:ub4;
nls_params:Poratext; nls_p_length:ub4; number:POCINumber):sword;cdecl;external ocilib name 'OCINumberFromText';
{$ELSE}
OCINumberFromText : function (err:POCIError; str:Poratext; str_length:ub4; fmt:Poratext; fmt_length:ub4;
nls_params:Poratext; nls_p_length:ub4; number:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberFromText - OCINumber convert String TO Number
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
str (IN) - input string to be converted to Oracle number
str_length (IN) - size of the input string
fmt (IN) - conversion format
fmt_length (IN) - length of the 'fmt' parameter
nls_params (IN) - nls format specification, if null string
i.e. (oratext *)0, then the default parameters for the
session is used
nls_p_length (IN) - length of the 'nls_params' parameter
number (OUT) - given string converted to number
DESCRIPTION:
Converts the given string to a number
according to the specified format. Refer to "TO_NUMBER" conversion
function described in "Oracle SQL Language Reference Manual" for a
description of format and NLS parameters.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
'number' or 'str' is null
'str_length' is 0
invalid format
invalid nls format
invalid input string
}
{-------------------------- OCINumberToInt --------------------------------- }
{ Unsigned type -- ubX }
const
OCI_NUMBER_UNSIGNED = 0;
{ Signed type -- sbX }
OCI_NUMBER_SIGNED = 2;
{$IFNDEF LinkDynamically}
function OCINumberToInt(err:POCIError; number:POCINumber; rsl_length:uword; rsl_flag:uword; rsl:Pdvoid):sword;cdecl;external ocilib name 'OCINumberToInt';
{$ELSE}
var OCINumberToInt : function (err:POCIError; number:POCINumber; rsl_length:uword; rsl_flag:uword; rsl:Pdvoid):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberToInt - OCINumber convert number TO Integer
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - number to be converted
rsl_length (IN) - size of the desired result
rsl_s_flag (IN) - flag denoting the desired sign of the output; valid
values are OCI_NUMBER_UNSIGNED, OCI_NUMBER_SIGNED
rsl (OUT) - pointer to space for the result
DESCRIPTION:
Native type conversion function.
Converts the given Oracle number into an xbx (e.g. ub2, ub4, sb2 etc.)
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
'number' or 'rsl' is null
integer value of 'number' is too big -- overflow
integer value of 'number' is too small -- underflow
invalid sign flag value ('rsl_s_flag')
}
{--------------------------- OCINumberFromInt ------------------------------ }
{$IFNDEF LinkDynamically}
function OCINumberFromInt(err:POCIError; inum:Pdvoid; inum_length:uword; inum_s_flag:uword; number:POCINumber):sword;cdecl;external ocilib name 'OCINumberFromInt';
{$ELSE}
OCINumberFromInt : function (err:POCIError; inum:Pdvoid; inum_length:uword; inum_s_flag:uword; number:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberFromInt - OCINumber convert Integer TO Number
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
inum (IN) - pointer to the integer to be converted
inum_length (IN) - size of the integer
inum_s_flag (IN) - flag that designates the sign of the integer; valid
values are OCI_NUMBER_UNSIGNED, OCI_NUMBER_SIGNED
number (OUT) - given integer converted to Oracle number
DESCRIPTION:
Native type conversion function. Converts any Oracle standard
machine-native integer type (xbx) to an Oracle number.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
'number' or 'inum' is null
integer too BIG -- the number is too large to fit into an Oracle
number
invalid sign flag value ('inum_s_flag')
}
{------------------------- OCINumberToReal --------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberToReal(err:POCIError; number:POCINumber; rsl_length:uword; rsl:Pdvoid):sword;cdecl;external ocilib name 'OCINumberToReal';
{$ELSE}
OCINumberToReal : function (err:POCIError; number:POCINumber; rsl_length:uword; rsl:Pdvoid):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberToReal - OCINumber convert number TO Real
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - number to be converted
rsl_length (IN) - is the size of the desired result,
sizeof( float | double | long double)
rsl (OUT) - pointer to space for storing the result
DESCRIPTION:
Native type conversion function. Converts an Oracle number into a
machine-native real type. This function only converts numbers up to
LDBL_DIG, DBL_DIG, or FLT_DIG digits of precision and removes
trailing zeroes. The above constants are defined in float.h
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
'number' or 'rsl' is null
'rsl_length' is 0
}
{------------------------- OCINumberToRealArray ---------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberToRealArray(err:POCIError; var number:POCINumber; elems:uword; rsl_length:uword; rsl:Pdvoid):sword;cdecl;external ocilib name 'OCINumberToRealArray';
{$ELSE}
OCINumberToRealArray : function (err:POCIError; var number:POCINumber; elems:uword; rsl_length:uword; rsl:Pdvoid):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberToRealArray - OCINumber convert array of numbers TO Real
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - Pointer to array of number to be converted
elems (IN) - Upper bound of number array
rsl_length (IN) - is the size of the desired result,
sizeof( float | double | long double)
rsl (OUT) - pointer to array of space for storing the result
DESCRIPTION:
Native type conversion function. Converts an Oracle number into a
machine-native real type. This function only converts numbers up to
LDBL_DIG, DBL_DIG, or FLT_DIG digits of precision and removes
trailing zeroes. The above constants are defined in float.h
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
'number' or 'rsl' is null
'rsl_length' is 0
}
{-------------------------- OCINumberFromReal ------------------------------ }
{$IFNDEF LinkDynamically}
function OCINumberFromReal(err:POCIError; rnum:Pdvoid; rnum_length:uword; number:POCINumber):sword;cdecl;external ocilib name 'OCINumberFromReal';
{$ELSE}
OCINumberFromReal : function (err:POCIError; rnum:Pdvoid; rnum_length:uword; number:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberFromReal - OCINumber convert Real TO Number
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
rnum (IN) - pointer to the floating point number to be converted
rnum_length (IN) - size of the desired result, i.e.
sizeof(float | double | long double)
number (OUT) - given float converted to Oracle number
DESCRIPTION:
Native type conversion function. Converts a machine-native floating
point type to an Oracle number.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
'number' or 'rnum' is null
'rnum_length' is 0
}
{----------------------------- OCINumberCmp -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberCmp(err:POCIError; number1:POCINumber; number2:POCINumber; result:Psword):sword;cdecl;external ocilib name 'OCINumberCmp';
{$ELSE}
OCINumberCmp : function (err:POCIError; number1:POCINumber; number2:POCINumber; result:Psword):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberCmp - OCINumber CoMPare numbers
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number1, number2 (IN) - numbers to be compared
result (OUT) - 0 if equal, negative if number1 < number2,
positive if number1 > number2
DESCRIPTION:
The function OCINumberCmp compares two numbers.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
'number1' or 'number2' or 'result' is null
}
{---------------------------- OCINumberSign -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberSign(err:POCIError; number:POCINumber; result:Psword):sword;cdecl;external ocilib name 'OCINumberSign';
{$ELSE}
OCINumberSign : function (err:POCIError; number:POCINumber; result:Psword):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberSign - OCINumber obtains SiGN of an Oracle number
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - number whose sign is returned
result (OUT) - 0 if number == 0, -1 if number < 0,
1 if number > 0
DESCRIPTION:
Obtains sign of an Oracle number
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
'number' or 'result' is null
}
{---------------------------- OCINumberIsZero ------------------------------ }
{$IFNDEF LinkDynamically}
function OCINumberIsZero(err:POCIError; number:POCINumber; result:Pboolean):sword;cdecl;external ocilib name 'OCINumberIsZero';
{$ELSE}
OCINumberIsZero : function (err:POCIError; number:POCINumber; result:Pboolean):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberIsZero - OCINumber comparison with ZERo
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - numbers to be compared
result (OUT) - set to TRUE if equal to zero else FALSE
DESCRIPTION:
Test if the given number is equal to zero.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
'number' or 'result' is null
}
{---------------------------- OCINumberIsInt ------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberIsInt(err:POCIError; number:POCINumber; result:Pboolean):sword;cdecl;external ocilib name 'OCINumberIsInt';
{$ELSE}
OCINumberIsInt : function (err:POCIError; number:POCINumber; result:Pboolean):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberIsInt - OCINumber Is Integer value.
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - number to be tested
result (OUT) - set to TRUE if integer value else FALSE
DESCRIPTION:
Test if the given number is an integer value.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
'number' or 'result' is null
}
{-------------------------- OCINumberAssign -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberAssign(err:POCIError; from:POCINumber; cto:POCINumber):sword;cdecl;external ocilib name 'OCINumberAssign';
{$ELSE}
OCINumberAssign : function (err:POCIError; from:POCINumber; cto:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberAssign - OCINumber ASsiGn number
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
from (IN) - number to be assigned
to (OUT) - number copied into
DESCRIPTION:
Assign number 'from' to 'to'.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
'from' or 'to' is null
}
{----------------------------- OCINumberAbs -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberAbs(err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberAbs';
{$ELSE}
OCINumberAbs : function (err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberAbs - OCINumber compute ABSolute value
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - input number
result (OUT) - output which will contain the absolue value of the
input number
DESCRIPTION:
Computes the absolute value of an Oracle number.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{---------------------------- OCINumberCeil -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberCeil(err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberCeil';
{$ELSE}
OCINumberCeil : function (err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberCeil - OCINumber compute the CEiL value of an Oracle number
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - input number
result (OUT) - output which will contain the ceil value of the
input number
DESCRIPTION:
Computes the ceil value of an Oracle number.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{--------------------------- OCINumberFloor -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberFloor(err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberFloor';
{$ELSE}
OCINumberFloor : function (err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberFloor - OCINumber compute the FLooR value of an Oracle number
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - input number
result (OUT) - output which will contain the floor value of the
input number
DESCRIPTION:
Computes the floor value of an Oracle number.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{----------------------------- OCINumberSqrt ------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberSqrt(err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberSqrt';
{$ELSE}
OCINumberSqrt : function (err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberSqrt - OCINumber compute the SQuare Root of an Oracle number
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - input number
result (OUT) - output which will contain the square root of the
input number
DESCRIPTION:
Computes the square root of an Oracle number.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
'number' is negative
}
{--------------------------- OCINumberTrunc -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberTrunc(err:POCIError; number:POCINumber; decplace:sword; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberTrunc';
{$ELSE}
OCINumberTrunc : function (err:POCIError; number:POCINumber; decplace:sword; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberTrunc - OCINumber TRUncate an Oracle number at a
specified decimal place
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - input number
decplace (IN) - number of decimal digits to the right of the
decimal point to truncate at. Negative values are allowed.
result (OUT) - output of truncation
DESCRIPTION:
Truncate an Oracle number at a specified decimal place
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{----------------------------- OCINumberPower ------------------------------ }
{$IFNDEF LinkDynamically}
function OCINumberPower(err:POCIError; base:POCINumber; number:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberPower';
{$ELSE}
OCINumberPower : function (err:POCIError; base:POCINumber; number:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberPower - OCINumber takes an arbitary Base to an
arbitary Power
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
base (IN) - base of the exponentiation
number (IN) - exponent to which the base is to be raised
result (OUT) - output of exponentiation
DESCRIPTION:
Takes an arbitary base to an arbitary power.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{--------------------------- OCINumberRound -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberRound(err:POCIError; number:POCINumber; decplace:sword; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberRound';
{$ELSE}
OCINumberRound : function (err:POCIError; number:POCINumber; decplace:sword; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberRound - OCINumber ROUnds an Oracle number to a specified
decimal place
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - round this number and return result in 'result'
decplace (IN) - number of decimal digits to the right of the
decimal point to round to. Negative values are allowed.
result (OUT) - output of rounding
DESCRIPTION:
Rounds an Oracle number to a specified decimal place
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{--------------------------- OCINumberPrec --------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberPrec(err:POCIError; number:POCINumber; nDigs:eword; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberPrec';
{$ELSE}
OCINumberPrec : function (err:POCIError; number:POCINumber; nDigs:eword; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberPrec - Rounds an Oracle number to a specified number of
decimal digits.
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - number for which to set precision.
nDig (IN) - number of decimal digits desired in the result.
result (OUT) - result.
DESCRIPTION:
Performs a floating point round with respect to the number
of digits.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{----------------------------- OCINumberSin -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberSin(err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberSin';
{$ELSE}
OCINumberSin : function (err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberSin - OCINumber takes the SINe of an Oracle number
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - argument of the sine in radians
result (OUT) - result of the sine
DESCRIPTION:
Takes the sine in radians of an Oracle number.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{-------------------------- OCINumberArcSin -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberArcSin(err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberArcSin';
{$ELSE}
OCINumberArcSin : function (err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberArcSin - OCINumber takes the Arc SINe of an Oracle number
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - argument of the arc sine
result (OUT) - result of the arc sine in radians
DESCRIPTION:
Takes the arc sine in radians of an Oracle number.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
'number' is < -1 or 'number' is > 1.
}
{-------------------------- OCINumberHypSin -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberHypSin(err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberHypSin';
{$ELSE}
OCINumberHypSin : function (err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberHypSin - OCINumber takes the SiNe Hyperbolic of an
Oracle number
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - argument of the sine hyperbolic
result (OUT) - result of the sine hyperbolic
DESCRIPTION:
Takes the hyperbolic sine of an Oracle number.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
NOTES:
An Oracle number overflow causes an unpredictable result value.
}
{----------------------------- OCINumberCos -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberCos(err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberCos';
{$ELSE}
OCINumberCos : function (err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberCos - OCINumber takes the COSine of an Oracle number
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - argument of the cosine in radians
result (OUT) - result of the cosine
DESCRIPTION:
Takes the cosine in radians of an Oracle number.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{-------------------------- OCINumberArcCos -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberArcCos(err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberArcCos';
{$ELSE}
OCINumberArcCos : function (err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberArcCos - OCINumber takes the Arc COSine of an Oracle number
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - argument of the arc cosine
result (OUT) - result of the arc cosine in radians
DESCRIPTION:
Takes the arc cosine in radians of an Oracle number.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
'number' is < -1 or 'number' is > 1.
}
{-------------------------- OCINumberHypCos -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberHypCos(err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberHypCos';
{$ELSE}
OCINumberHypCos : function (err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberHypCos - OCINumber takes the CoSine Hyperbolic of an
Oracle number
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - argument of the cosine hyperbolic
result (OUT) - result of the cosine hyperbolic
DESCRIPTION:
Takes the hyperbolic cosine of an Oracle number.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
NOTES:
An Oracle number overflow causes an unpredictable result value.
}
{----------------------------- OCINumberTan -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberTan(err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberTan';
{$ELSE}
OCINumberTan : function (err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberTan - OCINumber takes the TANgent of an Oracle number
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - argument of the tangent in radians
result (OUT) - result of the tangent
DESCRIPTION:
Takes the tangent in radians of an Oracle number.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{-------------------------- OCINumberArcTan -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberArcTan(err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberArcTan';
{$ELSE}
OCINumberArcTan : function (err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberArcTan - OCINumber takes the Arc TANgent of an Oracle number
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - argument of the arc tangent
result (OUT) - result of the arc tangent in radians
DESCRIPTION:
Takes the arc tangent in radians of an Oracle number.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{------------------------ OCINumberArcTan2 --------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberArcTan2(err:POCIError; number1:POCINumber; number2:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberArcTan2';
{$ELSE}
OCINumberArcTan2 : function (err:POCIError; number1:POCINumber; number2:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberArcTan2 - OCINumber takes the ATan2 of 2 Oracle numbers
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number1 (IN) - first argument of atan2(y,x) function which
corresponds to 'y' parameter in the function
number2 (IN) - second argument of atan2(y,x) function which
corresponds to 'x' parameter in the function
result (OUT) - result of the atan2() in radians
DESCRIPTION:
Takes the atan2(number1, number2).
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
'number2' is 0
}
{----------------------------- OCINumberHypTan ----------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberHypTan(err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberHypTan';
{$ELSE}
OCINumberHypTan : function (err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberHypTan - OCINumber takes the TaNgent Hyperbolic of an Oracle
number
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - argument of the tangent hyperbolic
result (OUT) - result of the tangent hyperbolic
DESCRIPTION:
Takes the hyperbolic tangent of an Oracle number.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
NOTES:
An Oracle number overflow causes an unpredictable result value.
}
{--------------------------- OCINumberExp ---------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberExp(err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberExp';
{$ELSE}
OCINumberExp : function (err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberExp - OCINumber EXPonential
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - e raised to this Oracle number power
result (OUT) - output of exponentiation
DESCRIPTION:
Raises e to the specified Oracle number power
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
}
{----------------------------- OCINumberLn --------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberLn(err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberLn';
{$ELSE}
OCINumberLn : function(err:POCIError; number:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberLn - OCINumber Logarithm Natural
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
number (IN) - logarithm of this number is computed
result (OUT) - logarithm result
DESCRIPTION:
Takes the logarithm of the given Oracle number with respect
to the given base.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
'number' is <= 0
}
{----------------------------- OCINumberLog -------------------------------- }
{$IFNDEF LinkDynamically}
function OCINumberLog(err:POCIError; base:POCINumber; number:POCINumber; result:POCINumber):sword;cdecl;external ocilib name 'OCINumberLog';
{$ELSE}
OCINumberLog : function (err:POCIError; base:POCINumber; number:POCINumber; result:POCINumber):sword;cdecl;
{$ENDIF}
{
NAME: OCINumberLog - OCINumber LOGarithm any base
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
base (IN) - base of the logarithm
number (IN) - opearnd
result (OUT) - logarithm result
DESCRIPTION:
Takes the logarithm with the specified base of an Oracle number.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
any of the number arguments is null
'number' is <= 0
'base' is <= 0
}
{*************************************************************************** }
{ ORACLE DATE TYPE }
{*************************************************************************** }
{ hours; range is 0 <= hours <=23 }
{ minutes; range is 0 <= minutes <= 59 }
{ seconds; range is 0 <= seconds <= 59 }
type
POCITime = ^OCITime;
OCITime = record
OCITimeHH : ub1;
OCITimeMI : ub1;
OCITimeSS : ub1;
end;
{
* OCITime - OCI TiMe portion of date
*
* This structure should be treated as an opaque structure as the format
* of this structure may change. Use OCIDateGetTime/OCIDateSetTime
* to manipulate time portion of OCIDate.
}
{ gregorian year; range is -4712 <= year <= 9999 }
{ month; range is 1 <= month < 12 }
{ day; range is 1 <= day <= 31 }
{ time }
POCIDate = ^OCIDate;
OCIDate = record
OCIDateYYYY : sb2;
OCIDateMM : ub1;
OCIDateDD : ub1;
OCIDateTime : OCITime;
end;
{
* OCIDate - OCI oracle Date representation in C
*
* OCIDate represents the C mapping of Oracle date.
*
* This structure should be treated as an opaque structure as the format
* of this structure may change. Use OCIDateGetDate/OCIDateSetDate
* to access/initialize OCIDate.
*
* For binding variables of type OCIDate in OCI calls (OCIBindByName(),
* OCIBindByPos(), and OCIDefineByPos()) use the type code SQLT_ODT.
}
{
EXAMPLE
The following example shows how to manipulate an attribute of type
oracle date.
#define FMT "Month dd, YYYY, HH:MI A.M."
#define LANG "American"
struct person
OCIDate start_date;
;
typedef struct person person;
OCIError *err;
person *joe;
sword status; /o error status o/
/o See oci.h for an example of how to initialize OCIError.
o For this example, assume the OCIEnv and OCIError has been
o initialized.
o/
/o Pin joe person object in the object cache. See ori.h
o for an example on pinning objects. For this example, assume that
o joe is pointing to the pinned object.
o/
/o set the start date of joe o/
OCIDateSetTime(&joe->start_date, 8, 0, 0);
OCIDateSetDate(&joe->start_date, 1990, 10, 5);
/o check if the date is valid o/
uword invalid;
if (OCIDateCheck(err, &joe->start_date, &invalid) != OCI_SUCCESS)
/o error handling code o/
if (invalid)
/o error handling code o/
/o convert date for display purposes o/
char str[100];
ub4 strlen = sizeof(str);
if (OCIDateToText(err, &joe->start_date, FMT, sizeof(FMT)-1, LANG,
sizeof(LANG)-1, &strlen, str) != OCI_SUCCESS)
/o error handling code o/
}
{--------------------------- OCIDateGetTime -------------------------------- }
{ void OCIDateGetTime(/o_ CONST OCIDate *date, ub1 *hour, ub1 *min,
ub1 *sec _o/); }
(* error
{ \
in declaration at line 1787 *)
(* error
*hour = (date)->OCIDateTime.OCITimeHH; \
error
*min = (date)->OCIDateTime.OCITimeMI; \
in declaration at line 1788
error
*min = (date)->OCIDateTime.OCITimeMI; \
error
*sec = (date)->OCIDateTime.OCITimeSS; \
in declaration at line 1789
error
*sec = (date)->OCIDateTime.OCITimeSS; \
error
} *)
{
NAME: OCIDateGetTime - OCIDate Get Time portion of date
PARAMETERS:
date (IN) - Oracle date whose time data is retrieved
hour (OUT) - hour value returned
min (OUT) - minute value returned
sec (OUT) - second value returned
DESCRIPTION:
Return time inforamtion stored in the given date. The time
information returned is: hour, minute and seconds.
RETURNS:
NONE
}
{--------------------------- OCIDateGetDate -------------------------------- }
{ void OCIDateGetDate(/o_ CONST OCIDate *date, sb2 *year, ub1 *month,
ub1 *day _o/); }
(*in declaration at line 1810 *)
(* error
*year = (date)->OCIDateYYYY; \
error
*month = (date)->OCIDateMM; \
in declaration at line 1811
error
*month = (date)->OCIDateMM; \
error
*day = (date)->OCIDateDD; \
in declaration at line 1812 *)
(* error
*day = (date)->OCIDateDD; \
error
}
{
NAME: OCIDateGetDate - OCIDate Get Date (year, month, day) portion of date
PARAMETERS:
date (IN) - Oracle date whose year, month, day data is retrieved
year (OUT) - year value returned
month (OUT) - month value returned
day (OUT) - day value returned
DESCRIPTION:
Return year, month, day inforamtion stored in the given date.
RETURNS:
NONE
}
{--------------------------- OCIDateSetTime -------------------------------- }
{ void OCIDateSetTime(/o_ OCIDate *date, ub1 hour, ub1 min,
ub1 sec _o/); }
in declaration at line 1832
error
(date)->OCIDateTime.OCITimeHH = hour; \
error
(date)->OCIDateTime.OCITimeMI = min; \
in declaration at line 1833
error
(date)->OCIDateTime.OCITimeMI = min; \
error
(date)->OCIDateTime.OCITimeSS = sec; \
in declaration at line 1834
error
(date)->OCIDateTime.OCITimeSS = sec; \
error
}
{
NAME: OCIDateSetTime - OCIDate Set Time portion of date
PARAMETERS:
date (OUT) - Oracle date whose time data is set
hour (IN) - hour value to be set
min (IN) - minute value to be set
sec (IN) - second value to be set
DESCRIPTION:
Set the date with the given time inforamtion.
RETURNS:
NONE
}
{--------------------------- OCIDateSetDate -------------------------------- }
{ void OCIDateSetDate(/o_ OCIDate *date, sb2 year, ub1 month, ub1 day _o/); }
in declaration at line 1853 *)
(* error
(date)->OCIDateYYYY = year; \
error
(date)->OCIDateMM = month; \
in declaration at line 1854
error
(date)->OCIDateMM = month; \
error
(date)->OCIDateDD = day; \
in declaration at line 1855
error
(date)->OCIDateDD = day; \
error
} *)
{
NAME: OCIDateSetDate - OCIDate Set Date (year, month, day) portion of date
PARAMETERS:
date (IN) - Oracle date whose year, month, day data is set
year (OUT) - year value to be set
month (OUT) - month value to be set
day (OUT) - day value to be set
DESCRIPTION:
Set the date with the given year, month, day inforamtion.
RETURNS:
NONE
}
{--------------------------- OCIDateAssign --------------------------------- }
(*in declaration at line 1873 *)
{
NAME: OCIDateAssign - OCIDate Assignment
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
from (IN) - date to be assigned
to (OUT) - lhs of assignment
DESCRIPTION:
Performs date assignment.
RETURNS:
OCI_SUCCESS
}
{--------------------------- OCIDateToText --------------------------------- }
{$IFNDEF LinkDynamically}
function OCIDateToText(err:POCIError; date:POCIDate; fmt:Poratext; fmt_length:ub1; lang_name:Poratext;
lang_length:ub4; buf_size:Pub4; buf:Poratext):sword;cdecl;external ocilib name 'OCIDateToText';
{$ELSE}
var OCIDateToText : function (err:POCIError; date:POCIDate; fmt:Poratext; fmt_length:ub1; lang_name:Poratext;
lang_length:ub4; buf_size:Pub4; buf:Poratext):sword;cdecl;
{$ENDIF}
{
NAME: OCIDateToText - OCIDate convert date TO String
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
date (IN) - Oracle date to be converted
fmt (IN) - conversion format, if null string pointer (oratext*)0, then
the date is converted to a character string in the
date format "DD-MON-YY".
fmt_length (IN) - length of the 'fmt' parameter
lang_name (IN) - specifies the language in which the names and
abbreviations of months and days are returned;
default language of session is used if 'lang_name'
is null i.e. (oratext *)0
lang_length (IN) - length of the 'nls_params' parameter
buf_size (IN/OUT) - size of the buffer; size of the resulting string
is returned via this parameter
buf (OUT) - buffer into which the converted string is placed
DESCRIPTION:
Converts the given date to a string according to the specified format.
Refer to "TO_DATE" conversion function described in
"Oracle SQL Language Reference Manual" for a description of format
and NLS arguments. The converted null-terminated date string is
stored in the buffer 'buf'.
An error is reported upon overflow, e.g. trying to convert a number
of value 10 using format '9' causes an overflow.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
buffer too small
invalid format
unknown language
overflow error
}
{---------------------------- OCIDateFromText ------------------------------ }
{$IFNDEF LinkDynamically}
function OCIDateFromText(err:POCIError; date_str:Poratext; d_str_length:ub4; fmt:Poratext; fmt_length:ub1;
lang_name:Poratext; lang_length:ub4; date:POCIDate):sword;cdecl;external ocilib name 'OCIDateFromText';
{$ELSE}
OCIDateFromText : function (err:POCIError; date_str:Poratext; d_str_length:ub4; fmt:Poratext; fmt_length:ub1;
lang_name:Poratext; lang_length:ub4; date:POCIDate):sword;cdecl;
{$ENDIF}
{
NAME: OCIDateFromText - OCIDate convert String TO Date
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
date_str (IN) - input string to be converted to Oracle date
d_str_length (IN) - size of the input string, if the length is -1
then 'date_str' is treated as a null terminated string
fmt (IN) - conversion format; if 'fmt' is a null pointer, then
the string is expected to be in 'DD-MON-YY' format.
fmt_length (IN) - length of the 'fmt' parameter
lang_name (IN) - language in which the names and abbreviations of
days and months are specified, if null i.e. (oratext *)0,
the default language of session is used,
lang_length (IN) - length of the 'lang_name' parameter
date (OUT) - given string converted to date
DESCRIPTION:
Converts the given string to Oracle date
according to the specified format. Refer to "TO_DATE" conversion
function described in "Oracle SQL Language Reference Manual" for a
description of format.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
invalid format
unknown language
invalid input string
<to be discovered>
}
{----------------------------- OCIDateCompare ------------------------------ }
{$IFNDEF LinkDynamically}
function OCIDateCompare(err:POCIError; date1:POCIDate; date2:POCIDate; result:Psword):sword;cdecl;external ocilib name 'OCIDateCompare';
{$ELSE}
OCIDateCompare : function (err:POCIError; date1:POCIDate; date2:POCIDate; result:Psword):sword;cdecl;
{$ENDIF}
{
NAME: OCIDateCompare - OCIDate CoMPare dates
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
date1, date2 (IN) - dates to be compared
result (OUT) - comparison result, 0 if equal, -1 if date1 < date2,
1 if date1 > date2
DESCRIPTION:
The function OCIDateCompare compares two dates. It returns -1 if date1
is smaller than date2, 0 if they are equal, and 1 if date1 is greater
than date2.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
invalid date
<to be discovered>
}
{------------------------- OCIDateAddMonths -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIDateAddMonths(err:POCIError; date:POCIDate; num_months:sb4; result:POCIDate):sword;cdecl;external ocilib name 'OCIDateAddMonths';
{$ELSE}
OCIDateAddMonths : function (err:POCIError; date:POCIDate; num_months:sb4; result:POCIDate):sword;cdecl;
{$ENDIF}
{
NAME: OCIDateAddMonths - OCIDate ADd or subtract Months
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
date (IN) - 'num_months' added or subtracted from 'date'
num_months (IN) - number of months to be added or subtracted
(a negative value will be subtracted)
result (IN/OUT) - result of adding or subtracting to 'date'
DESCRIPTION:
The function OCIDateAddDays adds or subtracts num_months from the
date 'date'.
If the input 'date' is the last day of a month, then
appropriate adjustments are made to ensure that the output date is
also the last day of the month. For example, Feb. 28 + 1 month =
March 31, and November 30 - 3 months = August 31. Otherwise the
'result' date has the same day component as 'date'.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
invalid date
<to be discovered>
}
{--------------------------- OCIDateAddDays -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIDateAddDays(err:POCIError; date:POCIDate; num_days:sb4; result:POCIDate):sword;cdecl;external ocilib name 'OCIDateAddDays';
{$ELSE}
OCIDateAddDays : function (err:POCIError; date:POCIDate; num_days:sb4; result:POCIDate):sword;cdecl;
{$ENDIF}
{
NAME: OCIDateAddDays - OCIDate ADd or subtract Days
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
date (IN) - 'num_days' added or subtracted from 'date'
num_days (IN) - number of days to be added or subtracted
(a negative value will be subtracted)
result (IN/OUT) - result of adding or subtracting to 'date'
DESCRIPTION:
The function OCIDateAddDays adds or subtracts num_days from the
date 'date'.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
invalid date
<to be discovered>
}
{--------------------------- OCIDateLastDay -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIDateLastDay(err:POCIError; date:POCIDate; last_day:POCIDate):sword;cdecl;external ocilib name 'OCIDateLastDay';
{$ELSE}
OCIDateLastDay : function (err:POCIError; date:POCIDate; last_day:POCIDate):sword;cdecl;
{$ENDIF}
{
NAME: OCIDateLastDay - OCIDate get date of the LaST day of the month
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
date (IN) - input date
last_day (OUT) - last day of the month in date 'date'
DESCRIPTION:
The function OCIDateLastDay returns the date of the last day of the
month in date 'date'.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
invalid date
<to be discovered>
}
{----------------------- OCIDateDaysBetween -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIDateDaysBetween(err:POCIError; date1:POCIDate; date2:POCIDate; num_days:Psb4):sword;cdecl;external ocilib name 'OCIDateDaysBetween';
{$ELSE}
OCIDateDaysBetween : function (err:POCIError; date1:POCIDate; date2:POCIDate; num_days:Psb4):sword;cdecl;
{$ENDIF}
{
NAME: OCIDateDaysBetween - OCIDate get number of days BeTWeen two dates
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
date1, date2 (IN) - input dates
num_days (OUT) - number of days between date1 and date2
DESCRIPTION:
The function OCIDateDaysBetween returns the number of days between
date1 and date2. The time is ignored in this computation.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
invalid date
<to be discovered>
}
{------------------------ OCIDateZoneToZone -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIDateZoneToZone(err:POCIError; date1:POCIDate; zon1:Poratext; zon1_length:ub4; zon2:Poratext;
zon2_length:ub4; date2:POCIDate):sword;cdecl;external ocilib name 'OCIDateZoneToZone';
{$ELSE}
OCIDateZoneToZone : function (err:POCIError; date1:POCIDate; zon1:Poratext; zon1_length:ub4; zon2:Poratext;
zon2_length:ub4; date2:POCIDate):sword;cdecl;
{$ENDIF}
{
NAME: OCIDateZoneToZone - OCIDate convert date from one Zone TO another Zone
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
date1 (IN) - date to be converted
zon1 (IN) - zone of input date
zon1_length (IN) - length in bytes of string 'zon1'
zon2 (IN) - zone to be converted to
zon2_length (IN) - length in bytes of string 'zon2'
date2 (OUT) - converted date (in 'zon2')
DESCRIPTION:
Converts date from one time zone to another. Given date 'date1'
in time zone 'zon1' returns date 'date2' in time zone 'zon2'.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
invlid date
invald input time zone
invald output time zone
<to be discovered>
}
{--------------------------- OCIDateNextDay -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIDateNextDay(err:POCIError; date:POCIDate; day_p:Poratext; day_length:ub4; next_day:POCIDate):sword;cdecl;external ocilib name 'OCIDateNextDay';
{$ELSE}
OCIDateNextDay : function (err:POCIError; date:POCIDate; day_p:Poratext; day_length:ub4; next_day:POCIDate):sword;cdecl;
{$ENDIF}
{
NAME: OCIDateNextDay - OCIDate get date of Next DaY
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
date (IN) - returned date should be later than this date
day (IN) - first day of week named by this is returned
day_length (IN) - length in bytes of string 'day'
next_day (OUT) - first day of the week named by 'day' later than 'date'
DESCRIPTION:
Returns the date of the first day of the
week named by 'day' that is later than date 'date'.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
invalid date
invalid day
<to be discovered>
}
{----------------------------- OCIDateCheck -------------------------------- }
{ Listing of error bits used by OCIDateCheck() }
{ Bad DAy }
const
OCI_DATE_INVALID_DAY = $1;
{ Bad DAy Low/high bit (1=low) }
OCI_DATE_DAY_BELOW_VALID = $2;
{ Bad MOnth }
OCI_DATE_INVALID_MONTH = $4;
{ Bad MOnth Low/high bit (1=low) }
OCI_DATE_MONTH_BELOW_VALID = $8;
{ Bad YeaR }
OCI_DATE_INVALID_YEAR = $10;
{ Bad YeaR Low/high bit (1=low) }
OCI_DATE_YEAR_BELOW_VALID = $20;
{ Bad HouR }
OCI_DATE_INVALID_HOUR = $40;
{ Bad HouR Low/high bit (1=low) }
OCI_DATE_HOUR_BELOW_VALID = $80;
{ Bad MiNute }
OCI_DATE_INVALID_MINUTE = $100;
OCI_DATE_MINUTE_BELOW_VALID = $200;
{ Bad MiNute Low/high bit (1=low) }
{ Bad SeCond }
OCI_DATE_INVALID_SECOND = $400;
OCI_DATE_SECOND_BELOW_VALID = $800;
{ bad second Low/high bit (1=low) }
OCI_DATE_DAY_MISSING_FROM_1582 = $1000;
{ Day is one of those "missing" from 1582 }
{ Year may not equal zero }
OCI_DATE_YEAR_ZERO = $2000;
{ Bad date format input }
OCI_DATE_INVALID_FORMAT = $8000;
{$IFNDEF LinkDynamically}
function OCIDateCheck(err:POCIError; date:POCIDate; valid:Puword):sword;cdecl;external ocilib name 'OCIDateCheck';
{$ELSE}
var OCIDateCheck : function(err:POCIError; date:POCIDate; valid:Puword):sword;cdecl;
{$ENDIF}
{
NAME: OCIDateCheck - OCIDate CHecK if the given date is valid
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
date (IN) - date to be checked
valid (OUT) - returns zero for a valid date, otherwise
the ORed combination of all error bits specified below:
Macro name Bit number Error
---------- ---------- -----
OCI_DATE_INVALID_DAY 0x1 Bad day
OCI_DATE_DAY_BELOW_VALID 0x2 Bad DAy Low/high bit (1=low)
OCI_DATE_INVALID_MONTH 0x4 Bad MOnth
OCI_DATE_MONTH_BELOW_VALID 0x8 Bad MOnth Low/high bit (1=low)
OCI_DATE_INVALID_YEAR 0x10 Bad YeaR
OCI_DATE_YEAR_BELOW_VALID 0x20 Bad YeaR Low/high bit (1=low)
OCI_DATE_INVALID_HOUR 0x40 Bad HouR
OCI_DATE_HOUR_BELOW_VALID 0x80 Bad HouR Low/high bit (1=low)
OCI_DATE_INVALID_MINUTE 0x100 Bad MiNute
OCI_DATE_MINUTE_BELOW_VALID 0x200 Bad MiNute Low/high bit (1=low)
OCI_DATE_INVALID_SECOND 0x400 Bad SeCond
OCI_DATE_SECOND_BELOW_VALID 0x800 bad second Low/high bit (1=low)
OCI_DATE_DAY_MISSING_FROM_1582 0x1000 Day is one of those "missing"
from 1582
OCI_DATE_YEAR_ZERO 0x2000 Year may not equal zero
OCI_DATE_INVALID_FORMAT 0x8000 Bad date format input
So, for example, if the date passed in was 2/0/1990 25:61:10 in
(month/day/year hours:minutes:seconds format), the erroor returned
would be OCI_DATE_INVALID_DAY | OCI_DATE_DAY_BELOW_VALID |
OCI_DATE_INVALID_HOUR | OCI_DATE_INVALID_MINUTE
DESCRIPTION:
Check if the given date is valid.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
'date' and 'valid' pointers are NULL pointers
}
{--------------------------- OCIDateSysDate -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIDateSysDate(err:POCIError; sys_date:POCIDate):sword;cdecl;external ocilib name 'OCIDateSysDate';
{$ELSE}
OCIDateSysDate : function (err:POCIError; sys_date:POCIDate):sword;cdecl;
{$ENDIF}
{
NAME: OCIDateSysDate - OCIDate get current SYStem date and time
PARAMETERS:
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
sys_date (OUT) - current system date and time
DESCRIPTION:
Returns the current system date and time.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'err' is NULL.
OCI_ERROR if
<to be discovered>
}
{*************************************************************************** }
{ FIXED-LENGTH STRING - CHAR (N) }
{*************************************************************************** }
{
* An ADT attribute declared as "x CHAR(n)" is mapped to "OCIString *x;".
* The representation of OCIString * is shown below.
}
{*************************************************************************** }
{ VARIABLE-LENGTH STRING }
{*************************************************************************** }
{
* The variable-length string is represented in C as a pointer to OCIString
* structure. The OCIString structure is opaque to the user. Functions are
* provided to allow the user to manipulate a variable-length string.
*
* A variable-length string can be declared as:
*
* OCIString *vstr;
*
* For binding variables of type OCIString* in OCI calls (OCIBindByName(),
* OCIBindByPos() and OCIDefineByPos()) use the external type code SQLT_VST.
}
type
POCIString = pointer;
{-------------------------- OCIStringAssign -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIStringAssign(env:POCIEnv; err:POCIError; rhs:POCIString; var lhs:POCIString):sword;cdecl;external ocilib name 'OCIStringAssign';
{$ELSE}
var OCIStringAssign : function (env:POCIEnv; err:POCIError; rhs:POCIString; var lhs:POCIString):sword;cdecl;
{$ENDIF}
{
NAME: OCIStringAssign - OCIString Assign String to String
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
rhs (IN) - RHS of the assignment, the type of rhs is also OCIString
lhs (IN/OUT) - LHS of the assignment
DESCRIPTION:
Assign 'rhs' string to 'lhs' string. The 'lhs' string may be
resized depending upon the size of the 'rhs'. The assigned string is
null-terminated. The 'length' field will not include the extra byte
needed for null termination.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
out of space error
}
{---------------------- OCIStringAssignText -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIStringAssignText(env:POCIEnv; err:POCIError; rhs:Poratext; rhs_len:ub4; var lhs:POCIString):sword;cdecl;external ocilib name 'OCIStringAssignText';
{$ELSE}
OCIStringAssignText : function (env:POCIEnv; err:POCIError; rhs:Poratext; rhs_len:ub4; var lhs:POCIString):sword;cdecl;
{$ENDIF}
{
NAME: OCIStringAssignText - OCIString Assign Text string to String
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
rhs (IN) - RHS of the assignment, the type of rhs is a text string
rhs_len (IN) - length of the 'rhs' string
lhs (IN/OUT) - LHS of the assignment
DESCRIPTION:
Assign 'rhs' string to 'lhs' string. The 'lhs' string may be
resized depending upon the size of the 'rhs'. The assigned string is
null-terminated. The 'length' field will not include the extra byte
needed for null termination.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
out of space error
}
{-------------------------- OCIStringResize -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIStringResize(env:POCIEnv; err:POCIError; new_size:ub4; var str:POCIString):sword;cdecl;external ocilib name 'OCIStringResize';
{$ELSE}
OCIStringResize : function (env:POCIEnv; err:POCIError; new_size:ub4; var str:POCIString):sword;cdecl;
{$ENDIF}
{
NAME: OCIStringResize - OCIString ReSiZe string memory
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
new_size (IN) - new memory size of the string in bytes
str (IN/OUT) - allocated memory for the string is freed from the
OOCI heap
DESCRIPTION:
This function resizes the memory of the given variable-length string in
the object cache. The contents of the string are NOT preserved.
This function may allocate the string in a new memory region in
which case the original memory occupied by the given string will
be freed. If the input string is null (str == NULL), then this
function will allocate memory for the string.
If the new_size is 0, then this function frees the memory occupied
by 'str' and a null pointer value is returned.
NOTE: The caller must compute 'new_size' taking into account space
for the null character ('\0').
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
out of space error
}
{---------------------------- OCIStringSize -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIStringSize(env:POCIEnv; vs:POCIString):ub4;cdecl;external ocilib name 'OCIStringSize';
{$ELSE}
OCIStringSize : function (env:POCIEnv; vs:POCIString):ub4;cdecl;
{$ENDIF}
{
NAME: OCIStringSize - OCIString Get String siZe
PARAMETERS:
env(IN) - pointer to OCI environment handle
vs (IN) - string whose size is returned
DESCRIPTION:
Return the size of the given string.
RETURNS:
size of the string in bytes is returned
}
{----------------------------- OCIStringPtr -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIStringPtr(env:POCIEnv; vs:POCIString):Poratext;cdecl;external ocilib name 'OCIStringPtr';
{$ELSE}
OCIStringPtr : function (env:POCIEnv; vs:POCIString):Poratext;cdecl;
{$ENDIF}
{
NAME: OCIStringPtr - OCIString Get String Pointer
PARAMETERS:
env(IN) - pointer to OCI environment handle
vs (IN) - pointer to the text of this string is returned
DESCRIPTION:
Return the pointer to the text of the given string.
RETURNS:
pointer to the text of the string is returned
}
{----------------------- OCIStringAllocSize -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIStringAllocSize(env:POCIEnv; err:POCIError; vs:POCIString; allocsize:Pub4):sword;cdecl;external ocilib name 'OCIStringAllocSize';
{$ELSE}
OCIStringAllocSize : function (env:POCIEnv; err:POCIError; vs:POCIString; allocsize:Pub4):sword;cdecl;
{$ENDIF}
{
NAME: OCIStringAllocSize - OCIString get Allocated SiZe of string memory
in bytes
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
vs (IN) - string whose allocated size in bytes is returned
allocsize (OUT) - allocated size of string memory in bytes is returned
DESCRIPTION:
Return the allocated size of the string memory in bytes. The
allocated size is >= actual string size.
REQUIRES:
vs is a non-null pointer
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR on error
}
{*************************************************************************** }
{ VARIABLE-LENGTH RAW }
{*************************************************************************** }
{
* The variable-length raw is represented in C as a pointer to OCIRaw
* structure. The OCIRaw structure is opaque to the user. Functions are
* provided to allow the user to manipulate a variable-length raw.
*
* A variable-length raw can be declared as:
*
* OCIRaw *raw;
*
* For binding variables of type OCIRaw* in OCI calls (OCIBindByName(),
* OCIBindByPos() and OCIDefineByPos()) use the external type code SQLT_LVB.
}
type
POCIRaw = pointer;
{-------------------------- OCIRawAssignRaw -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIRawAssignRaw(env:POCIEnv; err:POCIError; rhs:POCIRaw; var lhs:POCIRaw):sword;cdecl;external ocilib name 'OCIRawAssignRaw';
{$ELSE}
var OCIRawAssignRaw : function (env:POCIEnv; err:POCIError; rhs:POCIRaw; var lhs:POCIRaw):sword;cdecl;
{$ENDIF}
{
NAME: OCIRawAssignRaw - OCIRaw Assign Raw (of type OCIRaw*) to
Raw (of type OCIRaw*)
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
rhs (IN) - RHS of the assignment, the type of rhs is also OCIRaw
lhs (IN/OUT) - LHS of the assignment
DESCRIPTION:
Assign 'rhs' raw to 'lhs' raw. The 'lhs' raw may be
resized depending upon the size of the 'rhs'.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
out of space error
}
{------------------------ OCIRawAssignBytes -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIRawAssignBytes(env:POCIEnv; err:POCIError; rhs:Pub1; rhs_len:ub4; var lhs:POCIRaw):sword;cdecl;external ocilib name 'OCIRawAssignBytes';
{$ELSE}
OCIRawAssignBytes : function (env:POCIEnv; err:POCIError; rhs:Pub1; rhs_len:ub4; var lhs:POCIRaw):sword;cdecl;
{$ENDIF}
{
NAME: OCIRawAssignBytes - OCIRaw Assign raw Bytes (of type ub1*) to Raw
(of type OCIRaw*)
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
rhs (IN) - RHS of the assignment, the type of rhs is ub1 *
rhs_len (IN) - length of the 'rhs' raw
lhs (IN/OUT) - LHS of the assignment
DESCRIPTION:
Assign 'rhs' raw to 'lhs' raw. The 'lhs' raw may be
resized depending upon the size of the 'rhs'.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
out of space error
}
{---------------------------- OCIRawResize --------------------------------- }
{$IFNDEF LinkDynamically}
function OCIRawResize(env:POCIEnv; err:POCIError; new_size:ub4; var raw:POCIRaw):sword;cdecl;external ocilib name 'OCIRawResize';
{$ELSE}
OCIRawResize : function (env:POCIEnv; err:POCIError; new_size:ub4; var raw:POCIRaw):sword;cdecl;
{$ENDIF}
{
NAME: OCIRawResize - OCIRaw ReSiZe memory of variable-length raw
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
new_size (IN) - new size of the raw data in bytes
raw (IN) - variable-length raw pointer; the raw is
resized to 'new_size'
DESCRIPTION:
This function resizes the memory of the given variable-length raw in
the object cache.
The previous contents of the raw are NOT preserved.
This function may allocate the raw in a new memory region in
which case the original memory occupied by the given raw will
be freed. If the input raw is null (raw == NULL), then this
function will allocate memory for the raw data.
If the new_size is 0, then this function frees the memory occupied
by 'raw' and a null pointer value is returned.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
out of space error
}
{------------------------------- OCIRawSize -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIRawSize(env:POCIEnv; raw:POCIRaw):ub4;cdecl;external ocilib name 'OCIRawSize';
{$ELSE}
OCIRawSize : function (env:POCIEnv; raw:POCIRaw):ub4;cdecl;
{$ENDIF}
{
NAME: OCIRawSize - OCIRaw Get Raw siZe
PARAMETERS:
env (IN) - pointer to OCI environment handle
raw (INT) - raw whose size is returned
DESCRIPTION:
Return the size of the given raw.
RETURNS:
size of the raw in bytes is returned
}
{--------------------------------- OCIRawPtr ------------------------------- }
{$IFNDEF LinkDynamically}
function OCIRawPtr(env:POCIEnv; raw:POCIRaw):Pub1;cdecl;external ocilib name 'OCIRawPtr';
{$ELSE}
OCIRawPtr : function(env:POCIEnv; raw:POCIRaw):Pub1;cdecl;
{$ENDIF}
{
NAME: OCIRawPtr - OCIRaw Get Raw data Pointer
PARAMETERS:
env (IN) - pointer to OCI environment handle
raw (IN) - pointer to the data of this raw is returned
DESCRIPTION:
Return the pointer to the data of the given raw.
RETURNS:
pointer to the data of the raw is returned
}
{------------------------------ OCIRawAllocSize ---------------------------- }
{$IFNDEF LinkDynamically}
function OCIRawAllocSize(env:POCIEnv; err:POCIError; raw:POCIRaw; allocsize:Pub4):sword;cdecl;external ocilib name 'OCIRawAllocSize';
{$ELSE}
OCIRawAllocSize : function (env:POCIEnv; err:POCIError; raw:POCIRaw; allocsize:Pub4):sword;cdecl;
{$ENDIF}
{
NAME: OCIRawAllocSize - OCIRaw get Allocated SiZe of raw memory in bytes
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
raw (IN) - raw whose allocated size in bytes is returned
allocsize (OUT) - allocated size of raw memory in bytes is returned
DESCRIPTION:
Return the allocated size of the raw memory in bytes. The
allocated size is >= actual raw size.
REQUIRES:
raw is a non-null pointer
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR upon error
}
{*************************************************************************** }
{ OBJECT REFERENCE OPERATIONS }
{*************************************************************************** }
{
* See the definition of OCIRef in oro.h.
*
* For binding variables of type OCIRef* in OCI calls (OCIBindByName(),
* OCIBindByPos() and OCIDefineByPos()) use the code SQLT_REF.
*
}
{---------------------------- OCIRefClear ---------------------------------- }
{$IFNDEF LinkDynamically}
procedure OCIRefClear(env:POCIEnv; ref:POCIRef);cdecl;external ocilib name 'OCIRefClear';
{$ELSE}
OCIRefClear : procedure (env:POCIEnv; ref:POCIRef);cdecl;
{$ENDIF}
{
NAME: OCIRefClear - OCIRef CLeaR or nullify a ref
PARAMETERS:
env (IN) - pointer to OCI environment handle
ref (IN/OUT) - ref to clear
DESCRIPTION:
Clear or nullify the given ref. A ref is considered to be a null ref
if it does not contain a valid OID (and thus doesn't point to an
object). Logically, a null ref is a dangling ref.
Note that a null ref is still a valid SQL value and is not SQL-ly null.
It can be used as a valid non-null constant ref value for NOT NULL
column or attribute of a row in a table.
If a null pointer value is passed as a ref,
then this function is a no-op.
}
{--------------------------- OCIRefAssign ---------------------------------- }
{$IFNDEF LinkDynamically}
function OCIRefAssign(env:POCIEnv; err:POCIError; source:POCIRef; var target:POCIRef):sword;cdecl;external ocilib name 'OCIRefAssign';
{$ELSE}
OCIRefAssign : function (env:POCIEnv; err:POCIError; source:POCIRef; var target:POCIRef):sword;cdecl;
{$ENDIF}
{
NAME: OCIRefAssign - OCIRef CoPY a ref to another
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
source (IN) - ref to copy from
target (IN/OUT) - ref to copy to
DESCRIPTION:
Copy 'source' ref to 'target' ref; both then reference the same
object. If the target ref pointer is null (i.e. *target == NULL)
then the copy function will allocate memory for the target ref
in OOCI heap prior to the copy.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
1) out of memory
}
{-------------------------- OCIRefIsEqual ---------------------------------- }
{$IFNDEF LinkDynamically}
function OCIRefIsEqual(env:POCIEnv; x:POCIRef; y:POCIRef):boolean;cdecl;external ocilib name 'OCIRefIsEqual';
{$ELSE}
OCIRefIsEqual : function (env:POCIEnv; x:POCIRef; y:POCIRef):boolean;cdecl;
{$ENDIF}
{
NAME: OCIRefIsEqual - OCIRef compare two refs for EQUality
PARAMETERS:
env (IN) - pointer to OCI environment handle
x (IN) - ref to compare
y (IN) - ref to compare
DESCRIPTION:
Compare the given refs for equality.
Two refs are equal if and only if:
- they are both referencing the same persistent object, or
- they are both referencing the same transient object.
NOTE THAT TWO NULL REFS ARE CONSIDERED NOT EQUAL BY THIS FUNCTION.
RETURNS:
TRUE if the two refs are equal
FALSE if the two refs are not equal, or X is NULL, or Y is NULL
}
{--------------------------- OCIRefIsNull ---------------------------------- }
{$IFNDEF LinkDynamically}
function OCIRefIsNull(env:POCIEnv; ref:POCIRef):boolean;cdecl;external ocilib name 'OCIRefIsNull';
{$ELSE}
OCIRefIsNull : function (env:POCIEnv; ref:POCIRef):boolean;cdecl;
{$ENDIF}
{
NAME: OCIRefIsNull - OCIRef test if a ref is NULl
PARAMETERS:
env (IN) - pointer to OCI environment handle
ref (IN) - ref to test for null
DESCRIPTION:
Return TRUE if the given ref is null; otherwise, return FALSE.
A ref is null if and only if:
- it is supposed to be referencing a persistent object, but
its OID is null, or
- it is supposed to be referencing a transient object, but it is
currently not pointing to an object.
A ref is a dangling ref if the object that it points to does not
exist.
RETURNS:
TRUE if the given ref is NULL
FALSE if the given ref is not NULL
}
{-------------------------- OCIRefHexSize ---------------------------------- }
{$IFNDEF LinkDynamically}
function OCIRefHexSize(env:POCIEnv; ref:POCIRef):ub4;cdecl;external ocilib name 'OCIRefHexSize';
{$ELSE}
OCIRefHexSize : function (env:POCIEnv; ref:POCIRef):ub4;cdecl;
{$ENDIF}
{
NAME: OCIRefHexSize - OCIRef Hexadecimal buffer SiZe in bytes
PARAMETERS:
env (IN) - pointer to OCI environment handle
ref (IN) - ref whose size in hexadecimal representation in bytes is
returned
DESCRIPTION:
Return the size of the buffer in bytes required for the hexadecimal
representation of the ref. A buffer of at-least this size must be
passed to ref-to-hex (OCIRefToHex) conversion function.
RETURNS:
size of hexadecimal representation of ref
}
{-------------------------- OCIRefFromHex --------------------------------- }
{$IFNDEF LinkDynamically}
function OCIRefFromHex(env:POCIEnv; err:POCIError; svc:POCISvcCtx; hex:Poratext; length:ub4;
var ref:POCIRef):sword;cdecl;external ocilib name 'OCIRefFromHex';
{$ELSE}
OCIRefFromHex : function (env:POCIEnv; err:POCIError; svc:POCISvcCtx; hex:Poratext; length:ub4;
var ref:POCIRef):sword;cdecl;
{$ENDIF}
{
NAME:
OCIRefFromHex - OCIRef convert a Hexadecimal string TO a Ref
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by
calling OCIErrorGet().
svc (IN) - OCI service context handle; if the resulting ref is
initialized with this service context
hex (IN) - hexadecimal string (that was produced by 'OCIRefToHex()"
previously) to be convert into a ref
length (IN) - length of the hexadecimal string
ref (IN/OUT) - ref is initialized with the given value ('hex').
If *ref is null, then space for the ref is allocated in the
object cache, otherwise the memory occupied by the given ref
is re-used.
DESCRIPTION:
Convert the given hexadecimal string into a ref. This function
ensures that the resulting ref is well formed. It does NOT ensure
that the object pointed to by the resulting ref exists or not.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
}
{--------------------------- OCIRefToHex ----------------------------------- }
{$IFNDEF LinkDynamically}
function OCIRefToHex(env:POCIEnv; err:POCIError; ref:POCIRef; hex:Poratext; hex_length:Pub4):sword;cdecl;external ocilib name 'OCIRefToHex';
{$ELSE}
OCIRefToHex : function (env:POCIEnv; err:POCIError; ref:POCIRef; hex:Poratext; hex_length:Pub4):sword;cdecl;
{$ENDIF}
{
NAME:
OCIRefToHex - OCIRef convert ref to a Hexadecimal string
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by
calling OCIErrorGet().
ref (IN) - ref to be converted into a hexadecimal string; if the
ref is a null ref (i.e. OCIRefIsNull(ref) == TRUE) then
a zero hex_length value is returned
hex (OUT) - buffer that is large enough to contain the resulting
hexadecimal string; the contents of the string is opaque
to the caller
hex_length (IN/OUT) - on input specifies the size of the 'hex' buffer,
on output specifies the actual size of the hexadecimal
string being returned in 'hex'
DESCRIPTION:
Convert the given ref into a hexadecimal string, and return the length
of the string. The resulting string is opaque to the caller.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
the given buffer is not big enough to hold the resulting string
}
{*************************************************************************** }
{ COLLECTION FUNCTIONS }
{*************************************************************************** }
{
The generic collection is represented by the type 'OCIColl'. The following
operations OCIColl*() are provided on a generic collection:
- get current size of collection
- get upper bound of collection
- get pointer to an element given its index
- set element at given index (assign element)
- append an element
- trim the given number of elements from the end of the collection
- collection assignment
The following iterator based scanning functions are also provided on a
generic collection. These functions make use of an iterator which is
defined to be of type OCIIter.
- create an iterator for scanning collection
- destroy iterator
- reset iterator to the beginning of collection
- get pointer to current element pointed by iterator
- get pointer to next element
- get pointer to previous element
The collections variable-length array (varray) and nested table
are sub-types of generic collection. This means that the OCIColl*()
functions can also be used to manipulate varray and nested table.
The varray is represented by OCIArray type and nested table by OCITable.
Besides OCIColl*() functions no additional functions are provided for
manipulating varrays. The OCIColl*() functions are a complete set of
functions to manipulate varrays.
Besides OCIColl*() functions, the following functions OCITable*() can be
used to manipulate nested table. The OCITable*() functions operate on
nested tables only and should not be used on a varray.
- delete an element at index i. Note that the position
ordinals of the remaining elements of the table is not changed by the
delete operation. So delete creates "holes" in the table.
- check if an element exists at the given index i
- return the smallest value of i for which exists(i) is true
- return the largest value of i for which exists(i) is true
- return pointer to the smallest position j, greater than i, such that
OCITableExists(j) is true
- return pointer to the largest position j, less than i, such that
OCITableExists(j) is true
For binding variables of type OCIColl* or OCITable* in OCI calls
(OCIBindByName(), OCIBindByPos() and OCIDefineByPos()) use the external
type code SQLT_NTY.
}
{ OCIColl - generic collection type }
type
POCIColl = pointer;
{ OCIArray - varray collection type }
POCIArray = pointer;
// POCIArray = ^OCIArray;
// OCIArray = OCIColl;
{ OCITable - nested table collection type }
POCITable = pointer;
// POCITable = ^OCITable;
// OCITable = OCIColl;
{ OCIIter - collection iterator }
POCIIter = pointer;
{----------------------------- OCICollSize --------------------------------- }
{$IFNDEF LinkDynamically}
function OCICollSize(env:POCIEnv; err:POCIError; coll:POCIColl; size:Psb4):sword;cdecl;external ocilib name 'OCICollSize';
{$ELSE}
var OCICollSize : function (env:POCIEnv; err:POCIError; coll:POCIColl; size:Psb4):sword;cdecl;
{$ENDIF}
{
NAME: OCICollSize - OCIColl return current SIZe of the given collection
PARAMETERS:
env(IN) - pointer to OCI environment handle
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
coll (IN) - collection whose number of elements is returned
size (OUT) - current number of elements in the collection
DESCRIPTION:
Returns the current number of elements in the given collection.
For collections of type nested table wherein 'delete element'
operation is allowed, the count returned by OCICollSize() will
NOT be decremented upon deleting elements. For example:
OCICollSize(...);
// assume 'size' returned is equal to 5
OCITableDelete(...); // delete one element
OCICollSize(...);
// 'size' returned will still be 5
To get the count minus the deleted elements use OCITableSize().
Continuing the above example,
OCITableSize(...)
// 'size' returned will be equal to 4
Note, a trim operation (OCICollTrim) will decrement the count
by the number of trimmed elements. Continuing the above example,
OCICollTrim(..,1..); // trim one element
OCICollSize(...);
// 'size' returned will be equal to 4
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
error during loading of collection into object cache
any of the input parameters is null
}
{------------------------------ OCICollMax --------------------------------- }
{$IFNDEF LinkDynamically}
function OCICollMax(env:POCIEnv; coll:POCIColl):sb4;cdecl;external ocilib name 'OCICollMax';
{$ELSE}
OCICollMax : function (env:POCIEnv; coll:POCIColl):sb4;cdecl;
{$ENDIF}
{
NAME: OCICollMax - OCIColl return MAXimum size (upper-bound) of the
given collection (in number of elements)
PARAMETERS:
env(IN) - pointer to OCI environment handle
coll (IN) - collection whose upper-bound in number of elements
is returned
DESCRIPTION:
Returns the max number of elements that the given collection can hold.
A value 0 indicates that the collection has no upper-bound.
REQUIRES:
coll must point to a valid collection descriptor
RETURNS:
upper-bound of the given collection
}
{-------------------------- OCICollGetElem --------------------------------- }
{$IFNDEF LinkDynamically}
function OCICollGetElem(env:POCIEnv; err:POCIError; coll:POCIColl; index:sb4; exists:Pboolean;
elem:PPdvoid; elemind:PPdvoid):sword;cdecl;external ocilib name 'OCICollGetElem';
{$ELSE}
OCICollGetElem : function (env:POCIEnv; err:POCIError; coll:POCIColl; index:sb4; exists:Pboolean;
elem:PPdvoid; elemind:PPdvoid):sword;cdecl;
{$ENDIF}
{
NAME: OCICollGetElem - OCIColl GET pointer to the element at the given index
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
coll (IN) - pointer to the element in this collection is returned
index (IN) - index of the element whose pointer is returned
exists (OUT) - set to FALSE if element at the specified index does
not exist else TRUE
elem (OUT) - address of the desired element is returned
elemind (OUT) [optional] - address of the null indicator information
is returned; if (elemind == NULL) then the null indicator
information will NOT be returned
DESCRIPTION:
Get the address of the element at the given position. Optionally
this function also returns the address of the element's null indicator
information.
The following table describes for each collection element type
what the corresponding element pointer type is. The element pointer
is returned via the 'elem' parameter of OCICollGetElem().
Element Type *elem is set to
----------------------- ---------------
Oracle Number (OCINumber) OCINumber*
Date (OCIDate) OCIDate*
Variable-length string (OCIString*) OCIString**
Variable-length raw (OCIRaw*) OCIRaw**
object reference (OCIRef*) OCIRef**
lob locator (OCILobLocator*) OCILobLocator**
object type (e.g. person) person*
The element pointer returned by OCICollGetElem() is in a form
such that it can not only be used to access the
element data but also is in a form that can be used as the target
(i.e left-hand-side) of an assignment statement.
For example, assume the user is iterating over the elements of
a collection whose element type is object reference (OCIRef*). A call
to OCICollGetElem() returns pointer to a reference handle
(i.e. OCIRef**). After getting, the pointer to the collection
element, the user may wish to modify it by assigning a new reference.
This can be accomplished via the ref assignment function shown below:
sword OCIRefAssign( OCIEnv *env, OCIError *err, CONST OCIRef *source,
OCIRef **target );
Note that the 'target' parameter of OCIRefAssign() is of type
'OCIRef**'. Hence OCICollGetElem() returns 'OCIRef**'.
If '*target == NULL' a new ref will be allocated by OCIRefAssign()
and returned via the 'target' parameter.
Similarly, if the collection element was of type string (OCIString*),
OCICollGetElem() returns pointer to string handle
(i.e. OCIString**). If a new string is assigned, via
OCIStringAssign() or OCIStringAssignText() the type of the target
must be 'OCIString **'.
If the collection element is of type Oracle number, OCICollGetElem()
returns OCINumber*. The prototype of OCINumberAssign() is shown below:
sword OCINumberAssign(OCIError *err, CONST OCINumber *from,
OCINumber *to);
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
any of the input parameters is null
}
{------------------------- OCICollGetElemArray ----------------------------- }
{$IFNDEF LinkDynamically}
function OCICollGetElemArray(env:POCIEnv; err:POCIError; coll:POCIColl; index:sb4; exists:Pboolean;
elem:PPdvoid; elemind:PPdvoid; nelems:Puword):sword;cdecl;external ocilib name 'OCICollGetElemArray';
{$ELSE}
OCICollGetElemArray : function (env:POCIEnv; err:POCIError; coll:POCIColl; index:sb4; exists:Pboolean;
elem:PPdvoid; elemind:PPdvoid; nelems:Puword):sword;cdecl;
{$ENDIF}
{
NAME: OCICollGetElemArray - OCIColl GET pointers to elements from given index
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
coll (IN) - pointers to the elements in this collection is returned
index (IN) - starting index of the element
exists (OUT) - set to FALSE if element at the specified index does
not exist else TRUE
elem (OUT) - address of the desired elements is returned
elemind (OUT) [optional] - address of the null indicators information
is returned; if (elemind == NULL) then the null indicator
information will NOT be returned
nelems(IN/OUT) - Upper bound of elem and/or elemind array
DESCRIPTION:
Get the address of the elements from the given position. Optionally
this function also returns the address of the element's null indicator
information.
The following table describes for each collection element type
what the corresponding element pointer type is. The element pointer
is returned via the 'elem' parameter of OCICollGetElem().
Element Type *elem is set to
----------------------- ---------------
Oracle Number (OCINumber) OCINumber*
Date (OCIDate) OCIDate*
Variable-length string (OCIString*) OCIString**
Variable-length raw (OCIRaw*) OCIRaw**
object reference (OCIRef*) OCIRef**
lob locator (OCILobLocator*) OCILobLocator**
object type (e.g. person) person*
The element pointer returned by OCICollGetElem() is in a form
such that it can not only be used to access the
element data but also is in a form that can be used as the target
(i.e left-hand-side) of an assignment statement.
For example, assume the user is iterating over the elements of
a collection whose element type is object reference (OCIRef*). A call
to OCICollGetElem() returns pointer to a reference handle
(i.e. OCIRef**). After getting, the pointer to the collection
element, the user may wish to modify it by assigning a new reference.
This can be accomplished via the ref assignment function shown below:
sword OCIRefAssign( OCIEnv *env, OCIError *err, CONST OCIRef *source,
OCIRef **target );
Note that the 'target' parameter of OCIRefAssign() is of type
'OCIRef**'. Hence OCICollGetElem() returns 'OCIRef**'.
If '*target == NULL' a new ref will be allocated by OCIRefAssign()
and returned via the 'target' parameter.
Similarly, if the collection element was of type string (OCIString*),
OCICollGetElem() returns pointer to string handle
(i.e. OCIString**). If a new string is assigned, via
OCIStringAssign() or OCIStringAssignText() the type of the target
must be 'OCIString **'.
If the collection element is of type Oracle number, OCICollGetElem()
returns OCINumber*. The prototype of OCINumberAssign() is shown below:
sword OCINumberAssign(OCIError *err, CONST OCINumber *from,
OCINumber *to);
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
any of the input parameters is null
}
{----------------------- OCICollAssignElem --------------------------------- }
{$IFNDEF LinkDynamically}
function OCICollAssignElem(env:POCIEnv; err:POCIError; index:sb4; elem:Pdvoid; elemind:Pdvoid;
coll:POCIColl):sword;cdecl;external ocilib name 'OCICollAssignElem';
{$ELSE}
OCICollAssignElem : function (env:POCIEnv; err:POCIError; index:sb4; elem:Pdvoid; elemind:Pdvoid;
coll:POCIColl):sword;cdecl;
{$ENDIF}
{
NAME: OCICollAssignElem - OCIColl ASsign Element
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
index (IN) - index of the element whose is assigned to
elem (IN) - element which is assigned from (source element)
elemind (IN) [optional] - pointer to the element's null indicator
information; if (elemind == NULL) then the null indicator
information of the assigned element will be set to non-null.
coll (IN/OUT) - collection to be updated
DESCRIPTION:
Assign the given element value 'elem' to the element at coll[index].
If the collection is of type nested table, the element at the given
index may not exist (i.e. may have been deleted). In this case, the
given element is inserted at index 'index'.
Otherwise, the element at index 'index' is updated with the value
of 'elem'.
Note that the given element is deep-copied and
'elem' is strictly an input parameter.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
any of the input parameters is null
out of memory error
given index is out of bounds of the given collection
}
{--------------------------- OCICollAssign --------------------------------- }
{$IFNDEF LinkDynamically}
function OCICollAssign(env:POCIEnv; err:POCIError; rhs:POCIColl; lhs:POCIColl):sword;cdecl;external ocilib name 'OCICollAssign';
{$ELSE}
OCICollAssign : function (env:POCIEnv; err:POCIError; rhs:POCIColl; lhs:POCIColl):sword;cdecl;
{$ENDIF}
{
NAME: OCICollAssign - OCIColl ASsiGn collection
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
rhs (IN) - collection to be assigned from
lhs (OUT) - collection to be assigned to
DESCRIPTION:
Assign 'rhs' to 'lhs'. The 'lhs' collection may be decreased or
increased depending upon the size of 'rhs'. If the 'lhs' contains
any elements then the elements will be deleted prior to the
assignment. This function performs a deep-copy. The memory for the
elements comes from the object cache.
An error is returned if the element types of the lhs and rhs
collections do not match. Also, an error is returned if the
upper-bound of the lhs collection is less than the current number of
elements in the rhs collection.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
any of the input parameters is null
out of memory error
type mis-match of lhs and rhs collections
upper-bound of lhs collection is less than the current number of
elements in the rhs collection
}
{--------------------------- OCICollAppend --------------------------------- }
{$IFNDEF LinkDynamically}
function OCICollAppend(env:POCIEnv; err:POCIError; elem:Pdvoid; elemind:Pdvoid; coll:POCIColl):sword;cdecl;external ocilib name 'OCICollAppend';
{$ELSE}
OCICollAppend : function (env:POCIEnv; err:POCIError; elem:Pdvoid; elemind:Pdvoid; coll:POCIColl):sword;cdecl;
{$ENDIF}
{
NAME: OCICollAppend - OCIColl APPend collection
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
elem (IN) - pointer to the element which is appended to the end
of the given collection
elemind (IN) [optional] - pointer to the element's null indicator
information; if (elemind == NULL) then the null indicator
information of the appended element will be set to non-null.
coll (IN/OUT) - updated collection
DESCRIPTION:
Append the given element to the end of the given collection.
Appending an element is equivalent to:
- increasing the size of the collection by 1 element
- updating (deep-copying) the last element's data with the given
element's data
Note that the pointer to the given element 'elem' will not be saved
by this function. So 'elem' is strictly an input parameter.
An error is returned if the current size of the collection
is equal to the max size (upper-bound) of the collection prior to
appending the element.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
any of the input parameters is null
out of memory error
current size of collection == max size of the collection
}
{----------------------------- OCICollTrim --------------------------------- }
{$IFNDEF LinkDynamically}
function OCICollTrim(env:POCIEnv; err:POCIError; trim_num:sb4; coll:POCIColl):sword;cdecl;external ocilib name 'OCICollTrim';
{$ELSE}
OCICollTrim : function (env:POCIEnv; err:POCIError; trim_num:sb4; coll:POCIColl):sword;cdecl;
{$ENDIF}
{
NAME: OCICollTrim - OCIColl Trim elements from the end of the collection
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
trim_num (IN) - number of elements to trim
coll (IN/OUT) - 'trim_num' of elements are removed (freed) from the
end of the collection
DESCRIPTION:
Trim the collection by the given number of elements. The elements are
removed from the end of the collection.
An error is returned if the 'trim_num' is greater than the current
size of the collection.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
any of the input parameters is null
'trim_num' is greater than the current size of the collection.
}
{--------------------------- OCICollIsLocator ------------------------------ }
{$IFNDEF LinkDynamically}
function OCICollIsLocator(env:POCIEnv; err:POCIError; coll:POCIColl; result:Pboolean):sword;cdecl;external ocilib name 'OCICollIsLocator';
{$ELSE}
OCICollIsLocator : function (env:POCIEnv; err:POCIError; coll:POCIColl; result:Pboolean):sword;cdecl;
{$ENDIF}
{
Name: OCICollIsLocator - OCIColl indicates whether a collection is locator
based or not.
Parameters:
env(IN) - pointer to OCI environment handle
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
coll (IN) - collection item.
result (OUT) - TRUE if the collection item is a locator, FALSE
otherwise
Description:
Returns TRUE in the result OUT parameter if the collection item is a
locator, otherwise returns FALSE.
Returns:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
}
{---------------------------- OCIIterCreate -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIIterCreate(env:POCIEnv; err:POCIError; coll:POCIColl; var itr:POCIIter):sword;cdecl;external ocilib name 'OCIIterCreate';
{$ELSE}
OCIIterCreate : function (env:POCIEnv; err:POCIError; coll:POCIColl; var itr:POCIIter):sword;cdecl;
{$ENDIF}
{
NAME: OCIIterCreate - OCIColl Create an ITerator to scan the collection
elements
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
coll (IN) - collection which will be scanned; the different
collection types are varray and nested table
itr (OUT) - address to the allocated collection iterator is
returned by this function
DESCRIPTION:
Create an iterator to scan the elements of the collection. The
iterator is created in the object cache. The iterator is initialized
to point to the beginning of the collection.
If the next function (OCIIterNext) is called immediately
after creating the iterator then the first element of the collection
is returned.
If the previous function (OCIIterPrev) is called immediately after
creating the iterator then "at beginning of collection" error is
returned.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
any of the input parameters is null
out of memory error
}
{----------------------------- OCIIterDelete ------------------------------ }
{$IFNDEF LinkDynamically}
function OCIIterDelete(env:POCIEnv; err:POCIError; var itr:POCIIter):sword;cdecl;external ocilib name 'OCIIterDelete';
{$ELSE}
OCIIterDelete : function (env:POCIEnv; err:POCIError; var itr:POCIIter):sword;cdecl;
{$ENDIF}
{
NAME: OCIIterDelete - OCIColl Delete ITerator
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
itr (IN/OUT) - the allocated collection iterator is destroyed and
the 'itr' is set to NULL prior to returning
DESCRIPTION:
Delete the iterator which was previously created by a call to
OCIIterCreate.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
any of the input parameters is null
to be discovered
}
{----------------------------- OCIIterInit --------------------------------- }
{$IFNDEF LinkDynamically}
function OCIIterInit(env:POCIEnv; err:POCIError; coll:POCIColl; itr:POCIIter):sword;cdecl;external ocilib name 'OCIIterInit';
{$ELSE}
OCIIterInit : function (env:POCIEnv; err:POCIError; coll:POCIColl; itr:POCIIter):sword;cdecl;
{$ENDIF}
{
NAME: OCIIterInit - OCIColl Initialize ITerator to scan the given
collection
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
coll (IN) - collection which will be scanned; the different
collection types are varray and nested table
itr (IN/OUT) - pointer to an allocated collection iterator
DESCRIPTION:
Initializes the given iterator to point to the beginning of the
given collection. This function can be used to:
a. reset an iterator to point back to the beginning of the collection
b. reuse an allocated iterator to scan a different collection
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
any of the input parameters is null
}
{------------------------ OCIIterGetCurrent -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIIterGetCurrent(env:POCIEnv; err:POCIError; itr:POCIIter; elem:PPdvoid; elemind:PPdvoid):sword;cdecl;external ocilib name 'OCIIterGetCurrent';
{$ELSE}
OCIIterGetCurrent : function (env:POCIEnv; err:POCIError; itr:POCIIter; elem:PPdvoid; elemind:PPdvoid):sword;cdecl;
{$ENDIF}
{
NAME: OCIIterGetCurrent - OCIColl Iterator based, get CURrent collection
element
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
itr (IN) - iterator which points to the current element
elem (OUT) - address of the element pointed by the iterator is returned
elemind (OUT) [optional] - address of the element's null indicator
information is returned; if (elemind == NULL) then the null
indicator information will NOT be returned
DESCRIPTION:
Returns pointer to the current element and its corresponding null
information.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
any of the input parameters is null
}
{------------------------------ OCIIterNext -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIIterNext(env:POCIEnv; err:POCIError; itr:POCIIter; elem:PPdvoid; elemind:PPdvoid;
eoc:Pboolean):sword;cdecl;external ocilib name 'OCIIterNext';
{$ELSE}
OCIIterNext : function (env:POCIEnv; err:POCIError; itr:POCIIter; elem:PPdvoid; elemind:PPdvoid;
eoc:Pboolean):sword;cdecl;
{$ENDIF}
{
NAME: OCIIterNext - OCIColl Iterator based, get NeXT collection element
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
itr (IN/OUT) - iterator is updated to point to the next element
elem (OUT) - after updating the iterator to point to the next element,
address of the element is returned
elemind (OUT) [optional] - address of the element's null indicator
information is returned; if (elemind == NULL) then the null
indicator information will NOT be returned
eoc (OUT) - TRUE if iterator is at End Of Collection (i.e. next
element does not exist) else FALSE
DESCRIPTION:
Returns pointer to the next element and its corresponding null
information. The iterator is updated to point to the next element.
If the iterator is pointing to the last element of the collection
prior to executing this function, then calling this function will
set eoc flag to TRUE. The iterator will be left unchanged in this
situation.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
any of the input parameters is null
}
{------------------------------ OCIIterPrev -------------------------------- }
{$IFNDEF LinkDynamically}
function OCIIterPrev(env:POCIEnv; err:POCIError; itr:POCIIter; elem:PPdvoid; elemind:PPdvoid;
boc:Pboolean):sword;cdecl;external ocilib name 'OCIIterPrev';
{$ELSE}
OCIIterPrev : function (env:POCIEnv; err:POCIError; itr:POCIIter; elem:PPdvoid; elemind:PPdvoid;
boc:Pboolean):sword;cdecl;
{$ENDIF}
{
NAME: OCIIterPrev - OCIColl Iterator based, get PReVious collection element
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
itr (IN/OUT) - iterator is updated to point to the previous
element
elem (OUT) - after updating the iterator to point to the previous
element, address of the element is returned
elemind (OUT) [optional] - address of the element's null indicator
information is returned; if (elemind == NULL) then the null
indicator information will NOT be returned
boc (OUT) - TRUE if iterator is at Beginning Of Collection (i.e.
previous element does not exist) else FALSE.
DESCRIPTION:
Returns pointer to the previous element and its corresponding null
information. The iterator is updated to point to the previous element.
If the iterator is pointing to the first element of the collection
prior to executing this function, then calling this function will
set 'boc' to TRUE. The iterator will be left unchanged in this
situation.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
any of the input parameters is null
}
{*************************************************************************** }
{ FUNCTIONS WHICH OPERATE ONLY ON NESTED TABLE OCITable*() }
{*************************************************************************** }
{---------------------------- OCITableSize --------------------------------- }
{$IFNDEF LinkDynamically}
function OCITableSize(env:POCIEnv; err:POCIError; tbl:POCITable; size:Psb4):sword;cdecl;external ocilib name 'OCITableSize';
{$ELSE}
OCITableSize : function (env:POCIEnv; err:POCIError; tbl:POCITable; size:Psb4):sword;cdecl;
{$ENDIF}
{
NAME: OCITableSize - OCITable return current SIZe of the given
nested table (not including deleted elements)
PARAMETERS:
env(IN) - pointer to OCI environment handle
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
tbl (IN) - nested table whose number of elements is returned
size (OUT) - current number of elements in the nested table. The count
does not include deleted elements.
DESCRIPTION:
Returns the count of elements in the given nested table.
The count returned by OCITableSize() will be decremented upon
deleting elements from the nested table. So, this count DOES NOT
includes any "holes" created by deleting elements.
For example:
OCITableSize(...);
// assume 'size' returned is equal to 5
OCITableDelete(...); // delete one element
OCITableSize(...);
// 'size' returned will be equal to 4
To get the count plus the count of deleted elements use
OCICollSize(). Continuing the above example,
OCICollSize(...)
// 'size' returned will still be equal to 5
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
error during loading of nested table into object cache
any of the input parameters is null
}
{---------------------- OCITableExists --------------------------------- }
{$IFNDEF LinkDynamically}
function OCITableExists(env:POCIEnv; err:POCIError; tbl:POCITable; index:sb4; exists:Pboolean):sword;cdecl;external ocilib name 'OCITableExists';
{$ELSE}
OCITableExists : function (env:POCIEnv; err:POCIError; tbl:POCITable; index:sb4; exists:Pboolean):sword;cdecl;
{$ENDIF}
{
NAME: OCITableExists - OCITable test whether element at the given index
EXIsts
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
tbl (IN) - table in which the given index is checked
index (IN) - index of the element which is checked for existence
exists (OUT) - set to TRUE if element at given 'index' exists
else set to FALSE
DESCRIPTION:
Test whether an element exists at the given 'index'.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
any of the input parameters is null
}
{--------------------------- OCITableDelete ------------------------------- }
{$IFNDEF LinkDynamically}
function OCITableDelete(env:POCIEnv; err:POCIError; index:sb4; tbl:POCITable):sword;cdecl;external ocilib name 'OCITableDelete';
{$ELSE}
OCITableDelete : function (env:POCIEnv; err:POCIError; index:sb4; tbl:POCITable):sword;cdecl;
{$ENDIF}
{
NAME: OCITableDelete - OCITable DELete element at the specified index
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
index (IN) - index of the element which must be deleted
tbl (IN) - table whose element is deleted
DESCRIPTION:
Delete the element at the given 'index'. Note that the position
ordinals of the remaining elements of the table is not changed by the
delete operation. So delete creates "holes" in the table.
An error is returned if the element at the specified 'index' has
been previously deleted.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
any of the input parameters is null
given index is not valid
}
{--------------------------- OCITableFirst --------------------------------- }
{$IFNDEF LinkDynamically}
function OCITableFirst(env:POCIEnv; err:POCIError; tbl:POCITable; index:Psb4):sword;cdecl;external ocilib name 'OCITableFirst';
{$ELSE}
OCITableFirst : function (env:POCIEnv; err:POCIError; tbl:POCITable; index:Psb4):sword;cdecl;
{$ENDIF}
{
NAME: OCITableFirst - OCITable return FirST index of table
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
tbl (IN) - table which is scanned
index (OUT) - first index of the element which exists in the given
table is returned
DESCRIPTION:
Return the first index of the element which exists in the given
table.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
table is empty
}
{---------------------------- OCITableLast --------------------------------- }
{$IFNDEF LinkDynamically}
function OCITableLast(env:POCIEnv; err:POCIError; tbl:POCITable; index:Psb4):sword;cdecl;external ocilib name 'OCITableLast';
{$ELSE}
OCITableLast : function (env:POCIEnv; err:POCIError; tbl:POCITable; index:Psb4):sword;cdecl;
{$ENDIF}
{
NAME: OCITableFirst - OCITable return LaST index of table
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
tbl (IN) - table which is scanned
index (OUT) - last index of the element which exists in the given
table is returned
DESCRIPTION:
Return the last index of the element which exists in the given
table.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
table is empty
}
{---------------------------- OCITableNext --------------------------------- }
{$IFNDEF LinkDynamically}
function OCITableNext(env:POCIEnv; err:POCIError; index:sb4; tbl:POCITable; next_index:Psb4;
exists:Pboolean):sword;cdecl;external ocilib name 'OCITableNext';
{$ELSE}
OCITableNext : function (env:POCIEnv; err:POCIError; index:sb4; tbl:POCITable; next_index:Psb4;
exists:Pboolean):sword;cdecl;
{$ENDIF}
{
NAME: OCITableNext - OCITable return NeXT available index of table
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
index (IN) - starting at 'index' the index of the next element
which exists is returned
tbl (IN) - table which is scanned
next_index (OUT) - index of the next element which exists
is returned
exists (OUT) - FALSE if no next index available else TRUE
DESCRIPTION:
Return the smallest position j, greater than 'index', such that
exists(j) is TRUE.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
no next index available
}
{---------------------------- OCITablePrev --------------------------------- }
{$IFNDEF LinkDynamically}
function OCITablePrev(env:POCIEnv; err:POCIError; index:sb4; tbl:POCITable; prev_index:Psb4;
exists:Pboolean):sword;cdecl;external ocilib name 'OCITablePrev';
{$ELSE}
OCITablePrev : function (env:POCIEnv; err:POCIError; index:sb4; tbl:POCITable; prev_index:Psb4;
exists:Pboolean):sword;cdecl;
{$ENDIF}
{
NAME: OCITablePrev - OCITable return PReVious available index of table
PARAMETERS:
env (IN/OUT) - OCI environment handle initialized in object mode.
err (IN/OUT) - error handle. If there is an error, it is
recorded in 'err' and this function returns OCI_ERROR.
The error recorded in 'err' can be retrieved by calling
OCIErrorGet().
index (IN) - starting at 'index' the index of the previous element
which exists is returned
tbl (IN) - table which is scanned
prev_index (OUT) - index of the previous element which exists
is returned
exists (OUT) - FALSE if no next index available else TRUE
DESCRIPTION:
Return the largest position j, less than 'index', such that
exists(j) is TRUE.
RETURNS:
OCI_SUCCESS if the function completes successfully.
OCI_INVALID_HANDLE if 'env' or 'err' is NULL.
OCI_ERROR if
no previous index available
}
{------------------------ OCINumberToLnx ----------------------------------- }
{ void OCINumberToLnx(/o_ OCINumber *num _o/); }
{ was #define dname(params) para_def_expr }
{ argument types are unknown }
// function OCINumberToLnx(num : longint) : Plnxnum_t;
{
NAME: OCINumberToLnx
PARAMETERS:
num (IN) - OCINumber to convert ;
DESCRIPTION:
Converts OCINumber to its internal lnx format
This is not to be used in Public interfaces , but
has been provided due to special requirements from
SQLPLUS development group as they require to call
Core funtions directly .
}
type
{ OCI representation of XMLType }
POCIXMLType = pointer;
{ OCI representation of OCIDomDocument }
POCIDOMDocument = pointer;
{implementation
function OCINumberToLnx(num : longint) : Plnxnum_t;
begin
OCINumberToLnx:=Plnxnum_t(num);
end;
end.}
Reference in New Issue View Git Blame Copy Permalink