48 lines
1.2 KiB
Plaintext
48 lines
1.2 KiB
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
/*
|
|
sx_DbInfo() Without Arguments
|
|
*/
|
|
|
|
#include "sixapi.ch"
|
|
|
|
#include "simpleio.ch"
|
|
|
|
PROCEDURE MAIN()
|
|
|
|
LOCAL aInfo, i, j
|
|
LOCAL s, t
|
|
LOCAL aStruct1 := { { "PART_NO","C",10,0 }, { "PRICE","N",10,2 }, { "NOTES","M",10,0 } }
|
|
LOCAL aStruct2 := { { "CUST_NAME","C",20,0 }, { "AMOUNT","N",12,0 }, { "DUEDATE","D",8,0 }, { "PAID","L",1,0 } }
|
|
|
|
SET RDD SDEFOX
|
|
SET DATE ANSI
|
|
CREATE TABLE "TEST1" STRUCT aStruct1
|
|
CREATE TABLE "TEST2" STRUCT aStruct2
|
|
USE "test1" ALIAS ONE readonly
|
|
USE "test2" ALIAS two exclusive
|
|
|
|
aInfo := sx_DbInfo()
|
|
? 'SX_DBINFO() ....'
|
|
?
|
|
FOR j := 1 TO LEN( aInfo )
|
|
? REPL( "-", 76 )
|
|
? "Work Area :", aInfo[j][1]
|
|
? "DBF Name :", aInfo[j][2]
|
|
? "Alias :", aInfo[j][3]
|
|
? "Shared :", aInfo[j][4]
|
|
? "Readonly :", aInfo[j][5]
|
|
? "RDE Type :", aInfo[j][6]
|
|
? "Open Mode :", aInfo[j][7]
|
|
? "RDD :", aInfo[j][8]
|
|
? "CommitLevel :", aInfo[j][9]
|
|
? "RecSize :", aInfo[j][10]
|
|
? "No of Fields:", aInfo[j][11]
|
|
? "Field Properties:"
|
|
FOR s := 1 TO LEN ( aInfo[j][12] )
|
|
? " ", padr( aInfo[j][12][s][1], 20 ), aInfo[j][12][s][2], aInfo[j][12][s][3], aInfo[j][12][s][4]
|
|
NEXT
|
|
NEXT
|
|
CLOSE ALL
|