03ac58b17b
* bin/commit.hb
* config/detect.mk
* config/detfun.mk
* config/detplat.mk
* config/dir.mk
* config/dirsh.mk
* config/global.mk
* config/globsh.mk
* config/instsh.mk
* config/lang.hb
* config/lang2po.hb
* config/po2lang.hb
* config/postinst.hb
* contrib/hbexpat/tests/tohash.prg
* contrib/hbformat/utils/hbformat.ini
* contrib/hbmisc/hbedit.prg
* contrib/hbmxml/tests/testmxml.prg
* contrib/hbnetio/utils/hbnetio/_console.prg
* contrib/hbnetio/utils/hbnetio/_winsvc.prg
* contrib/hbnetio/utils/hbnetio/hbnetio.prg
* contrib/hbnetio/utils/hbnetio/netiomgm.hb
* contrib/hbwin/tests/ole.prg
* contrib/hbwin/tests/oletst2.js
* contrib/hbwin/tests/oletst2.vbs
* contrib/hbxpp/doc/en/binnumx.txt
* contrib/hbxpp/doc/en/dbcmdx.txt
* contrib/xhb/htmutil.prg
* contrib/xhb/tfile.prg
* contrib/xhb/tframe.prg
* contrib/xhb/thtm.prg
* ChangeLog.txt
* debian/copyright
* doc/class_tp.txt
* doc/hdr_tpl.txt
* doc/xhb-diff.txt
* LICENSE.txt
* package/harbour-wce.spec.in
* package/harbour-win.spec.in
* package/harbour.spec
* package/mpkg_rpm_wce.sh
* package/mpkg_rpm_win.sh
* package/mpkg_rpm.sh
* package/mpkg_src.sh
* package/mpkg_ver.sh
* src/rtl/achoice.prg
* src/rtl/getsys53.prg
* src/rtl/tgetlist.prg
* src/rtl/tlabel.prg
* src/rtl/tmenusys.prg
* tests/hbdoc.prg
* tests/langmsg.prg
* tests/rto_get.prg
* tests/rto_tb.prg
+ doc/en/ati.txt
+ doc/en/dirdrive.txt
+ doc/en/hashfunc.txt
+ doc/en/hbtoken.txt
+ doc/en/left.txt
+ doc/en/proc.txt
+ doc/en/strtran.txt
+ doc/en/transfrm.txt
+ doc/en/typefile.txt
* doc/en/*
* more partial sync with 3.4 fork
994 lines
23 KiB
Plaintext
994 lines
23 KiB
Plaintext
/* $DOC$
|
|
$AUTHOR$
|
|
Copyright 1999 Luiz Rafael Culik <culik@sl.conex.net>
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
AFields()*
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Fills referenced arrays with database field information
|
|
$SYNTAX$
|
|
AFields( <aNames>, [<aTypes>], [<aLen>], [<aDecs>] ) --> nFields
|
|
$ARGUMENTS$
|
|
<aNames> Array of field names
|
|
|
|
<aTypes> Array of field names
|
|
|
|
<aLens> Array of field names
|
|
|
|
<aDecs> Array of field names
|
|
$RETURNS$
|
|
<nFields> Number of fields in a database or work area
|
|
$DESCRIPTION$
|
|
This function will fill a series of arrays with field
|
|
names, field types, field lengths, and number of field
|
|
decimal positions for the currently selected or designed
|
|
database. Each array parallels the different descriptors
|
|
of a file's structure. The first array will consist of the
|
|
names of the fields in the current work area. All other arrays
|
|
are optional and will be filled with the corresponding data.
|
|
This function will return zero if no parameters are specified
|
|
or if no database is available in the current work area. Otherwise,
|
|
the number of fields or the length of the shortest array argument,
|
|
whichever is smaller, will be returned.
|
|
|
|
AFields() is a compatibility function, it is superseded by
|
|
dbStruct() which returns one multidimensional array.
|
|
|
|
NOTE: The destination arrays must be initialized to a given size,
|
|
usually FCount(), before calling this function.
|
|
|
|
$EXAMPLES$
|
|
PROCEDURE Main()
|
|
|
|
LOCAL nCount
|
|
|
|
USE test
|
|
|
|
nCount := FCount()
|
|
? "Number of fields:", nCount
|
|
PrintFields( nCount ) // Information for all fields
|
|
PrintFields( 4 ) // Information for first 4 fields
|
|
|
|
RETURN
|
|
|
|
STATIC PROCEDURE PrintFields( nCount )
|
|
|
|
LOCAL aNames := Array( nCount )
|
|
LOCAL aTypes := Array( nCount )
|
|
LOCAL aLens := Array( nCount )
|
|
LOCAL aDecs := Array( nCount )
|
|
|
|
LOCAL nFields := AFields( aNames, aTypes, aLens, aDecs ), i
|
|
|
|
? "Number of items:", nFields
|
|
FOR tmp := 1 TO nFields
|
|
? tmp, ;
|
|
PadR( aNames[ tmp ], 12 ), ;
|
|
aTypes[ tmp ], ;
|
|
aLens[ tmp ], ;
|
|
aDecs[ tmp ]
|
|
NEXT
|
|
|
|
RETURN
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
dbStruct()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
Alias()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Returns the alias name of a work area
|
|
$SYNTAX$
|
|
Alias( [<nWorkArea>] ) --> cWorkArea
|
|
$ARGUMENTS$
|
|
<nWorkArea> Number of a work area
|
|
$RETURNS$
|
|
<cWorkArea> Name of alias
|
|
$DESCRIPTION$
|
|
This function returns the alias of the work area indicated by <nWorkArea>.
|
|
If <nWorkArea> is not provided, the alias of the current work area is
|
|
returned.
|
|
$EXAMPLES$
|
|
USE test
|
|
SELECT 0
|
|
? iif( Alias() == "", "No Name", Alias() )
|
|
? test->( Alias() )
|
|
? Alias( 1 )
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
Dbf()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
Bof()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Test for the beginning-of-file condition
|
|
$SYNTAX$
|
|
Bof() --> lBegin
|
|
$RETURNS$
|
|
Bof() Logical true (.T.) or false (.F.)
|
|
$DESCRIPTION$
|
|
This function determines if the beginning of the file marker has been
|
|
reached. If so, the function will return a logical true (.T.); otherwise,
|
|
a logical false (.F.) will be returned.
|
|
By default, Bof() will apply to the currently selected database unless
|
|
the function is preceded by an alias
|
|
$EXAMPLES$
|
|
USE test NEW
|
|
? "Is Bof()", Bof()
|
|
dbGoTop()
|
|
DO WHILE ! Bof()
|
|
dbSkip( -1 )
|
|
ENDDO
|
|
? "Is Bof()", Bof()
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
Eof(), Found(), LastRec()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Command
|
|
$NAME$
|
|
ZAP
|
|
$CATEGORY$
|
|
Command
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Remove all records from the current database file
|
|
$SYNTAX$
|
|
ZAP
|
|
$ARGUMENTS$
|
|
(This command has no arguments)
|
|
$DESCRIPTION$
|
|
This command removes all of the records from the database in the
|
|
current work area. This operation also updates any index file in
|
|
use at the time of this operation. In addition, this command removes
|
|
all items within an associated memo file.
|
|
In a network environment, any file that is about to be ZAPped must
|
|
be used exclusively.
|
|
$EXAMPLES$
|
|
USE test
|
|
? LastRec() // --> 500
|
|
ZAP
|
|
? LastRec() // --> 0
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$SEEALSO$
|
|
DELETE, PACK, USE
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
Deleted()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Tests the record's deletion flag.
|
|
$SYNTAX$
|
|
Deleted() --> lDeleted
|
|
$ARGUMENTS$
|
|
(This command has no arguments)
|
|
$RETURNS$
|
|
Deleted() return a logical true (.T.) or false (.F.).
|
|
$DESCRIPTION$
|
|
This function returns a logical true (.T.) if the current record in the
|
|
selected or designated work area has been marked for deletion. If not,
|
|
the function will return a logical false (.F.).
|
|
$EXAMPLES$
|
|
USE test NEW
|
|
dbGoto( 10 )
|
|
dbDelete()
|
|
? "Is Record Deleted", test->( Deleted() )
|
|
dbRecall()
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
dbDelete()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
Eof()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Test for end-of-file condition.
|
|
$SYNTAX$
|
|
Eof() --> lEnd
|
|
$ARGUMENTS$
|
|
(This command has no arguments)
|
|
$RETURNS$
|
|
<lEnd> A logical true (.T.) or false (.F.)
|
|
$DESCRIPTION$
|
|
This function determines if the end-of-file marker has been reached.
|
|
If it has, the function will return a logical true (.T.); otherwise
|
|
a logical false (.F.) will be returned
|
|
$EXAMPLES$
|
|
USE test NEW
|
|
dbGoTop()
|
|
? "Is Eof()", Eof()
|
|
dbGoBottom()
|
|
DO WHILE ! Eof()
|
|
dbSkip()
|
|
ENDDO
|
|
? "Is Eof()", Eof()
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
Bof(), Found(), LastRec()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
FCount()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Counts the number of fields in an active database.
|
|
$SYNTAX$
|
|
FCount() --> nFields
|
|
$RETURNS$
|
|
<nFields> Return the number of fields
|
|
$DESCRIPTION$
|
|
This function returns the number of fields in the current or designated
|
|
work area. If no database is open in this work area, the function will
|
|
return 0.
|
|
$EXAMPLES$
|
|
USE test NEW
|
|
? "This database has", hb_ntos( test->( FCount() ) ), "field(s)"
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
FieldName(), Type()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
FieldGet()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Obtains the value of a specified field
|
|
$SYNTAX$
|
|
FieldGet( <nField> ) --> ValueField
|
|
$ARGUMENTS$
|
|
<nField> Is the numeric field position
|
|
$RETURNS$
|
|
<ValueField> Any expression
|
|
$DESCRIPTION$
|
|
This function returns the value of the field at the <nField>th location
|
|
in the selected or designed work area. If the value in <nField> does not
|
|
correspond to n available field position in this work area, the function
|
|
will return a NIL data type.
|
|
$EXAMPLES$
|
|
USE test NEW
|
|
? test->( FieldGet( 1 ) )
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
FieldPut()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
FieldName()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Return the name of a field at a numeric field location.
|
|
$SYNTAX$
|
|
FieldName()/Field( <nPosition> ) --> cFieldName
|
|
$ARGUMENTS$
|
|
<nPosition> Field order in the database.
|
|
$RETURNS$
|
|
<cFieldName> returns the field name.
|
|
$DESCRIPTION$
|
|
This function return the name of the field at the <nPosition>th position.
|
|
If the numeric value passed to this function does not correspond to an
|
|
existing field in the designated or selected work area, this function
|
|
will return a NULL byte.
|
|
$EXAMPLES$
|
|
LOCAL nField
|
|
USE test NEW
|
|
FOR nField := 1 TO test->( FCount() )
|
|
? "Field Name:", FieldName( nField )
|
|
NEXT
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
dbStruct(), FCount(), Len(), ValType()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
FieldPos()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Return the ordinal position of a field.
|
|
$SYNTAX$
|
|
FieldPos( <cFieldName> ) --> nFieldPos
|
|
$ARGUMENTS$
|
|
<cFieldName> Name of a field.
|
|
$RETURNS$
|
|
<nFieldPos> is ordinal position of the field.
|
|
$DESCRIPTION$
|
|
This function return the ordinal position of the specified field <cField>
|
|
in the current or aliased work area. If there isn't field under the name
|
|
of <cField> or of no database is open in the selected work area, the
|
|
function will return a 0.
|
|
$EXAMPLES$
|
|
USE test NEW
|
|
? test->( FieldPos( "LAST" ) )
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
FieldGet(), FieldPut()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
FieldPut()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Set the value of a field variable
|
|
$SYNTAX$
|
|
FieldPut( <nField>, <expAssign> ) --> ValueAssigned
|
|
$ARGUMENTS$
|
|
<nField> The field numeric position
|
|
|
|
<expAssign> Expression to be assigned to the specified field
|
|
$RETURNS$
|
|
<ValueAssigned> Any expression
|
|
$DESCRIPTION$
|
|
This function assigns the value in <expAssing> to the <nField>th
|
|
field in the current or designated work area. If the operation is
|
|
successful, the return value of the function will be the same value
|
|
assigned to the specified field. If the operation is not successful,
|
|
the function will return a NIL data type
|
|
$EXAMPLES$
|
|
USE test NEW
|
|
? FieldPut( 1, "Mr. Jones" )
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
FieldGet()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
FLock()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Locks a file
|
|
$SYNTAX$
|
|
FLock() --> lSuccess
|
|
$RETURNS$
|
|
<lSuccess> A true (.T.) value, if the lock was successful; otherwise
|
|
false (.F.)
|
|
$DESCRIPTION$
|
|
This function returns a logical true (.T.) if a file lock is
|
|
attempted and is successfully placed on the current or designated
|
|
database. This function will also unlock all records locks placed
|
|
by the same network station.
|
|
$EXAMPLES$
|
|
LOCAL nSum
|
|
USE test NEW
|
|
IF FLock()
|
|
SUM test->age TO nSum
|
|
? nSum
|
|
ENDIF
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
RLock()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
Found()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Determine the success of a previous search operation.
|
|
$SYNTAX$
|
|
Found() --> lSuccess
|
|
$ARGUMENTS$
|
|
(This function has no arguments)
|
|
$RETURNS$
|
|
<lSuccess> A logical true (.T.) is successful; otherwise, false (.F.)
|
|
$DESCRIPTION$
|
|
This function is used to test if the previous SEEK, LOCATE, CONTINUE,
|
|
or FIND operation was successful. Each work area has its own Found()
|
|
flag, so that a Found() condition may be tested in unselected work
|
|
areas by using an alias.
|
|
$EXAMPLES$
|
|
LOCAL nAge := 40
|
|
USE test NEW
|
|
INDEX ON field->age TO test
|
|
SEEK nAge
|
|
IF Found()
|
|
? test->first
|
|
ENDIF
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
Eof()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
Header()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Return the length of a database file header
|
|
$SYNTAX$
|
|
Header() --> nBytes
|
|
$RETURNS$
|
|
<nBytes> The numeric size of a database file header in bytes
|
|
$DESCRIPTION$
|
|
This function returns the number of bytes in the header of the
|
|
selected database of the database in the designated work area.
|
|
|
|
If used in conjunction with the LastRec(), RecSize() and DiskSpace()
|
|
functions, this functions is capable of implementing a backup and
|
|
restore routine.
|
|
$EXAMPLES$
|
|
USE test NEW
|
|
? Header()
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
DiskSpace(), LastRec(), RecSize()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
LastRec()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Returns the number of records in an active work area or database.
|
|
$SYNTAX$
|
|
LastRec() | RecCount()* --> nRecords
|
|
$RETURNS$
|
|
<nRecords > The number of records
|
|
$DESCRIPTION$
|
|
This function returns the number of records present in the database
|
|
in the selected or designated work area. If no records are present
|
|
the value of this function will be 0. Additionally, if no database is
|
|
in use in the selected or designated work area, this function will
|
|
return a 0 value as well.
|
|
$EXAMPLES$
|
|
USE test NEW
|
|
? LastRec(), RecCount()
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$PLATFORMS$
|
|
All
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
Eof()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
LUpdate()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Yields the date the database was last updated.
|
|
$SYNTAX$
|
|
LUpdate() --> dModification
|
|
$ARGUMENTS$
|
|
(This function has no arguments)
|
|
$RETURNS$
|
|
<dModification> The date of the last modification.
|
|
$DESCRIPTION$
|
|
This function returns the date recorded by the OS when the selected
|
|
or designated database was last written to disk. This function will
|
|
only work for those database files in USE.
|
|
$EXAMPLES$
|
|
USE test NEW
|
|
? LUpdate()
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$PLATFORMS$
|
|
All
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
FieldName(), LastRec(), RecSize()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
NetErr()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Tests the success of a network function
|
|
$SYNTAX$
|
|
NetErr( [<lNewError>] ) --> lError
|
|
$ARGUMENTS$
|
|
<lNewError> Is a logical Expression.
|
|
$RETURNS$
|
|
<lError> A value based on the success of a network operation or
|
|
function.
|
|
$DESCRIPTION$
|
|
This function return a logical true (.T.) is a USE, dbAppend(), or
|
|
a `USE...EXCLUSIVE` command is issue and fails in a network environment.
|
|
In the case of USE and `USE...EXCLUSIVE` commands, a NetErr() value
|
|
of .T. would be returned if another node of the network has the
|
|
exclusive use of a file. And the case of the dbAppend() command,
|
|
NetErr() will return a logical true (.T.) if the file or record
|
|
is locked by another node or the value of LastRec() has been advanced
|
|
The value of NetErr() may be changed via the value of <lNewError>.
|
|
This allow the run-time error-handling system to control the way
|
|
certain errors are handled.
|
|
$EXAMPLES$
|
|
USE test NEW
|
|
IF ! NetErr()
|
|
INDEX ON field->first TO test
|
|
SET INDEX TO test
|
|
test->first := "Harbour"
|
|
IF dbSeek( "Harbour" )
|
|
? test->first
|
|
ENDIF
|
|
ENDIF
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
FLock(), RLock()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
RecCount()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Counts the number of records in a database.
|
|
$SYNTAX$
|
|
RecCount()* | LastRec() --> nRecords
|
|
$ARGUMENTS$
|
|
(This function has no arguments)
|
|
$RETURNS$
|
|
<nRecords> The number of records
|
|
CRIPTION$*
|
|
This function returns the number of records present in the database
|
|
in the selected or designated work area. If no records are present
|
|
the value of this function will be 0. Additionally, if no database is
|
|
in use in the selected or designated work area, this function will
|
|
return a 0 value as well.
|
|
$EXAMPLES$
|
|
USE test NEW
|
|
? RecCount()
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
Eof(), LastRec(), RecNo(), dbGoBottom()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
RecNo()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Returns the current record number or identity.
|
|
$SYNTAX$
|
|
RecNo() --> Identity
|
|
$ARGUMENTS$
|
|
(This function has no arguments)
|
|
$RETURNS$
|
|
RecNo() The record number or identity
|
|
$DESCRIPTION$
|
|
This function returns the position of the record pointer in the
|
|
currently selected of designated work area.
|
|
|
|
If the database file is empty and if the RDD is the traditional .dbf
|
|
file, the value of this function will be 1.
|
|
$EXAMPLES$
|
|
USE test NEW
|
|
dbGoTop()
|
|
? RecNo() // --> 1
|
|
dbGoto( 50 )
|
|
? RecNo() // --> 50
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
dbGoto(), dbGoTop(), dbGoBottom(), LastRec(), Eof(), Bof()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
RecSize()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Returns the size of a single record in an active database.
|
|
$SYNTAX$
|
|
RecSize() --> nBytes
|
|
$ARGUMENTS$
|
|
(This function has no arguments)
|
|
$RETURNS$
|
|
<nBytes> The record size.
|
|
$DESCRIPTION$
|
|
This function returns the number of bytes used by a single record
|
|
in the currently selected or designated database file. If no database
|
|
is in use in this work area, the return value from this function
|
|
will be 0.
|
|
$EXAMPLES$
|
|
USE test NEW
|
|
dbGoTop()
|
|
? RecSize() // --> 1
|
|
dbGoto( 50 )
|
|
? RecSize()
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
DiskSpace(), FieldName(), Header(), LastRec()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
RLock()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Lock a record in a work area
|
|
$SYNTAX$
|
|
RLock() --> lSuccess
|
|
$ARGUMENTS$
|
|
(This function has no arguments)
|
|
$RETURNS$
|
|
RLock() True (.T.) if record lock is successful; otherwise, it
|
|
returns false (.F.).
|
|
$DESCRIPTION$
|
|
This function returns a logical true (.T.) if an attempt to lock a
|
|
specific record in a selected or designated work area is successful.
|
|
It will yield a false (.F.) if either the file or the desired record
|
|
is currently locked.
|
|
A record that is locked remains locked until another RLock() is issued
|
|
or until an UNLOCK command is executed.
|
|
On a Network environment the follow command need that the record is
|
|
locked:
|
|
|
|
`@...GET`
|
|
|
|
DELETE (single record)
|
|
|
|
RECALL (single record)
|
|
|
|
REPLACE (single record)
|
|
$EXAMPLES$
|
|
LOCAL nAge := 50
|
|
USE test NEW
|
|
INDEX ON field->age TO test
|
|
IF dbSeek( nAge ) .AND. RLock()
|
|
dbDelete()
|
|
ENDIF
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
FLock()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
Select()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Returns the work area number for a specified alias.
|
|
$SYNTAX$
|
|
Select( [<cAlias>] ) --> nWorkArea
|
|
$ARGUMENTS$
|
|
<cAlias> is the target work area alias name.
|
|
$RETURNS$
|
|
Select() returns the work area number.
|
|
$DESCRIPTION$
|
|
This function returns the work area number for the specified alias
|
|
name <cAlias>. If no parameter is specified, the current work area will
|
|
be the return value of the function.
|
|
$EXAMPLES$
|
|
LOCAL cOldArea
|
|
USE test NEW
|
|
USE names NEW
|
|
cOldArea := Select( "names" )
|
|
SELECT test
|
|
LIST
|
|
SELECT cOldArea
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
Alias(), Used()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Function
|
|
$NAME$
|
|
Used()
|
|
$CATEGORY$
|
|
API
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Checks whether a database is in use in a work area
|
|
$SYNTAX$
|
|
Used() --> lDbfOpen
|
|
$ARGUMENTS$
|
|
(This function has no arguments)
|
|
$RETURNS$
|
|
<lDbfOpen> True is a database is Used;otherwise False
|
|
$DESCRIPTION$
|
|
This function returns a logical true (.T.) if a database file is in
|
|
USE in the current or designated work area. If no alias is specified
|
|
along with this function , it will default to the currently selected
|
|
work area.
|
|
$EXAMPLES$
|
|
USE test NEW
|
|
USE names NEW
|
|
? Used() // --> .T.
|
|
? test->( Used() ) // --> .T.
|
|
dbCloseArea()
|
|
? Used() // --> .F.
|
|
SELECT test
|
|
? Used() // --> .T.
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$FILES$
|
|
Library is rdd
|
|
$SEEALSO$
|
|
Alias(), Select()
|
|
$END$
|
|
*/
|
|
|
|
/* $DOC$
|
|
$TEMPLATE$
|
|
Command
|
|
$NAME$
|
|
PACK
|
|
$CATEGORY$
|
|
Command
|
|
$SUBCATEGORY$
|
|
Database
|
|
$ONELINER$
|
|
Remove records marked for deletion from a database
|
|
$SYNTAX$
|
|
PACK
|
|
$ARGUMENTS$
|
|
(This command has no arguments)
|
|
$DESCRIPTION$
|
|
This command removes records that were marked for deletion from the
|
|
currently selected database. This command does not pack the contents
|
|
of a memo field; those files must be packed via low-level functions.
|
|
|
|
All open index files will be automatically reindexed once PACK command
|
|
has completed its operation. On completion, the record pointer is placed
|
|
on the first record in the database.
|
|
$EXAMPLES$
|
|
USE test
|
|
dbGoto( 10 )
|
|
DELETE NEXT 10
|
|
? LastRec()
|
|
PACK
|
|
? LastRec()
|
|
$STATUS$
|
|
R
|
|
$COMPLIANCE$
|
|
C
|
|
$SEEALSO$
|
|
dbEval(), DELETE, Deleted(), ZAP, RECALL
|
|
$END$
|
|
*/
|