New post
Article
· Sep 13, 2018 1m read

Find a table given its name

#Code Snippet #InterSystems IRIS #ObjectScript #Caché

The following code snippet includes a class method "test" that runs code to find a class based on the class's name. "test" takes one argument, which is the name of the table:


Class objectscript.findTable Extends %RegisteredObject
{
    classmethod test(name as %String="mytable")  
    {
            #Dim result as %ResultSet
            #Dim tName as %String
            #Dim contain as %Integer
     
            Set contain=0
            Set result = ##class(%ResultSet).%New("%Dictionary.ClassDefinition:Summary")
            Do result.Execute()

            While(result.Next()) 
            {
                Set tName=$get(result.Data("Name"))
                &sql(select position (:name in :tName) into :contain)
                Write:contain'=0 tName, " ... ", name, " (", contain,")", !
            }
            Return $$$OK
     }
}

Here's a link to the code on GitHub

Discussion (6)2
Log in or sign up to continue
Vitaliy Serdtsev · Sep 14, 2018

I have a few comments.:

  1. your code finds by the class name, not the table name, which is confusing

    For example, for the next class, the method finds nothing:

    Class dc.test Extends %Persistent [ SqlTableName = aaa ]
    {
    ...
    }

    USER>d ##class(objectscript.findTable).test("aaa")
?
  2. according to the documentation, your code uses the deprecated API:
    proof
    The Caché Library set of class definitions classes has been superseded by the %Dictionary package. The %Library classes described here are maintained for compatibility with existing applications.

    New code should make use of the classes within the %Dictionary package.

  3. in fact, the search is done elementary:

    select ClassName from %Dictionary.ClassDefinition_ClassIndex() where ClassName [ 'test'

    or

    select ClassName from %Dictionary.ClassDefinition_ClassIndex() where nvl(SqlTableName,ClassName) [ 'aaa'

2 0