Set and Get Table Properties

Let us say we want to set 'Caption' table property to a Sample Table

......................................................

static void setTableProperty(Args _args)
{
str Property;
TreeNode TreeNode;
str Name;
;

Name = "aa_primval";
TreeNode = TreeNode::findNode("Data Dictionary\\Tables\\" + Name);
if (TreeNode)
{
Property = TreeNode.AOTgetProperties();
Property = SetProperty(Property, "Label", "RaghuSample");
TreeNode.AOTsetProperties(Property);
TreeNode.AOTcompile();
TreeNode.AOTsave();
}
}

---------------

Get table properties
Let us say we want to get 'Security key' table property for all tables. Here is a sample code -

......................................................

static void getTableProperty(Args _args)
{
#AOT
str Property;
TreeNode TreeNode;
identifiername identifiername;
str Name;
;

TreeNode = TreeNode::findNode(#TablesPath);
TreeNode = TreeNode.AOTfirstChild();
while (TreeNode)
{
Name = TreeNode.AOTname();
Property = TreeNode.AOTgetProperties();
identifiername = findproperty(Property, 'SecurityKey');
info (strfmt("%1, %2", Name, identifiername));
treenode = TreeNode.AOTnextSibling();
}
}