82 lines
2.3 KiB
Plaintext
82 lines
2.3 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
sx_TagInfo() on NTX
|
|
*/
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL cFile := "sixtest.dbf"
|
|
LOCAL aStruct := { ;
|
|
{ "FIRST", "C", 25, 0 }, ;
|
|
{ "LAST", "C", 25, 0 }, ;
|
|
{ "HIREDATE", "D", 8, 0 } }
|
|
LOCAL j, n := seconds(), nArea, i
|
|
LOCAL aGet, nTagCount, aTagInfo
|
|
|
|
SET RDD SDENTX
|
|
SET CENTURY ON
|
|
SET DATE ANSI
|
|
SET TRIM ON
|
|
|
|
CREATE DBF cFile STRUCT aStruct
|
|
USE cFile ALIAS MYALIAS VAR nArea EXCLUSIVE
|
|
APPEND BLANK
|
|
|
|
sx_IndexTag ( "MYTEST_1", "FIRST_TAG", "FIRST", 0, .F. , "LEFT(FIRST,1)='A'" )
|
|
sx_IndexTag ( "MYTEST_2", "LAST_TAG", "LAST", 0, .T. , "RIGHT(LAST,1)='Z'" )
|
|
sx_IndexTag ( "MYTEST_3", "DATE_TAG", "DTOS(HIREDATE)", 0, .T. , )
|
|
?
|
|
? 'sx_TagCount() =', sx_TagCount()
|
|
?
|
|
? 'aTagInfo := sx_TagInfo()'
|
|
aTagInfo := sx_TagInfo()
|
|
for j := 1 TO len( aTagInfo )
|
|
? 'TagName :', aTagInfo[ j, 1 ]
|
|
? 'Index Expression :', aTagInfo[ j, 2 ]
|
|
? 'Index Condition :', aTagInfo[ j, 3 ]
|
|
? 'Index Type :', aTagInfo[ j, 4 ]
|
|
? 'Descending :', aTagInfo[ j, 5 ]
|
|
? 'RYO :', aTagInfo[ j, 6 ]
|
|
? 'Index File Name :', aTagInfo[ j, 7 ]
|
|
? 'Index Key Field :', aTagInfo[ j, 8 ]
|
|
?
|
|
next
|
|
|
|
? 'aTagInfo := sx_TagInfo(2)'
|
|
aTagInfo := sx_TagInfo( 2 )
|
|
for j := 1 TO len( aTagInfo )
|
|
? 'TagName :', aTagInfo[ j, 1 ]
|
|
? 'Index Expression :', aTagInfo[ j, 2 ]
|
|
? 'Index Condition :', aTagInfo[ j, 3 ]
|
|
? 'Index Type :', aTagInfo[ j, 4 ]
|
|
? 'Descending :', aTagInfo[ j, 5 ]
|
|
? 'RYO :', aTagInfo[ j, 6 ]
|
|
? 'Index File Name :', aTagInfo[ j, 7 ]
|
|
? 'Index Key Field :', aTagInfo[ j, 8 ]
|
|
?
|
|
next
|
|
|
|
// !!! WILL NOT WORK IN NON-COMPOUND INDEX !!!
|
|
? 'aTagInfo := sx_TagInfo( "FIRST_TAG" )'
|
|
aTagInfo := sx_TagInfo( "FIRST_TAG" )
|
|
for j := 1 TO len( aTagInfo )
|
|
? 'TagName :', aTagInfo[ j, 1 ]
|
|
? 'Index Expression :', aTagInfo[ j, 2 ]
|
|
? 'Index Condition :', aTagInfo[ j, 3 ]
|
|
? 'Index Type :', aTagInfo[ j, 4 ]
|
|
? 'Descending :', aTagInfo[ j, 5 ]
|
|
? 'RYO :', aTagInfo[ j, 6 ]
|
|
? 'Index File Name :', aTagInfo[ j, 7 ]
|
|
? 'Index Key Field :', aTagInfo[ j, 8 ]
|
|
?
|
|
next
|
|
|
|
FUNCTION TagInfo( nTag )
|
|
|
|
RETURN sx_TagInfo( nTag )
|