Self diagnostics

this Script will check if all tables have

• Primary index


• Cluster index


• Caching

//NOTE: temp tables are skipped

static void TableTuningTest(Args _args)

{

boolean skipEmptyTables = true;

boolean result;

treeNode treeNode;

SysDictTable sdt;

str TableAndCound;

int recordCount;

boolean skipEmptyrecordCount = false;

treeNodeIterator treeNodeIterator =TreeNode::findNode("\\Data Dictionary\\Tables").AOTiterator();

;

treeNode = treeNodeIterator.next();

setPrefix("Tuning");

while (treeNode)

{

sdt = new SysDictTable(tablename2id(treeNode.AOTname()));

recordCount = sdt.recordCount();

if(!sdt.isTmp() && (!skipEmptyTables || (recordCount != 0)) )

{

TableAndCound = treeNode.AOTname()+ ' ('+ int2str(sdt.recordCount())+')';

setPrefix(TableAndCound);

result = false;

result = result || sdt.treeNode().AOTgetProperty("CreatedDateTime") == "yes" ? true : false;

result = result || sdt.treeNode().AOTgetProperty("ModifiedDateTime")== "yes" ? true : false;

if(result && sdt.treeNode().AOTgetProperty("CreateRecIdIndex") == "No" )

{

setPrefix(TableAndCound);

info("RecIdIndex");

}

if(sdt.treeNode().AOTgetProperty("CacheLookup") == "None")

{

setPrefix(TableAndCound);

info("CacheLookup");

}

if(sdt.treeNode().AOTgetProperty("ClusterIndex") == "")

{

setPrefix(TableAndCound);

Warning("ClusterIndex");

}

if(sdt.treeNode().AOTgetProperty("PrimaryIndex") == "")

{

setPrefix(TableAndCound);

Error("PrimaryIndex");

}

}

treeNode = treeNodeIterator.next();

}

}