Set result=##class(%ResultSet).%New("%ClassDefinition.ClassInfo")
 Do result.Execute()
 For  Quit:!result.Next()  Do
  .Write result.GetDataByName("Name") Write,!
 Do result.%Close()

Set cdef = ##class(%Dictionary.ClassDefinition).%OpenId("Sample.Person")
 Write cdef.Name,!

 // get list of properties
 Set count = cdef.Properties.Count()
 For i =  1 : 1 :count {
     Write cdef.Properties.GetAt(i).Name,!
 }