Table and field Finding

static void testing(Args _args)
{
    TreeNode            node;
    TreeNode            childNode;
    TreeNodeIterator    nodeIt;
    FilePath            path;
    str             Property;
    identifiername  Type,Mandatory;
    ;


    path        = @'\Data dictionary\Tables\PFSComponentTypes\Fields';
    node        = TreeNode::findNode(path);
    nodeIt      = node.AOTiterator();
    childNode   = nodeIt.next();


    while(childNode)
    {
        //info(childNode.treeNodeName());
        ///info(childNode.AOTname());
        Property    = childNode.AOTgetProperties();
        Type        = findproperty(Property, 'Type');
        Mandatory   = findproperty(Property, 'Mandatory');
        info(strFmt("-%1-%2-%3",childNode.AOTname(),Type,Mandatory));
        childNode = nodeIt.next();
    }
}