1 %RegisteredObject 0 %String TECH.ClassInfo.ClassDefinition %String Do ##class(zTryout.CSC.TestClassDefs).%New().Do() Do ##class(zTryout.CSC.TestClassDefs).%New().VerwerkClass(##class(%Dictionary.ClassDefinition).%OpenId("vhUnitTest.DOM.PM.Maatwerk.Kost.impl.KostItemBuilderA")) ClassDefinition:%Dictionary.ClassDefinition 0 ) { w "::"_Method.GeefType() } w ! Set Implementation = Method.GeefImplementatie() While ('Implementation.AtEnd) { Set Lijn = Implementation.ReadLine() If Lijn [ "##class(" { //w Lijn,! } } } ]]>