Compileert alle persistente klasse die een bepaalde enumerator als property hebben. 1 %RegisteredObject 0 Do ##class(Tools.CompileEnumerator).Compile("DOM.PM.enu.Variant") 1 EnumeratorKlasse:%String,VraagBevestiging:%Boolean=1 $L(EnumeratorKlasse_".cls")) { If (VraagBevestiging) { Set Input = "" While (Input '= "Y") && (Input '= "N") { w !,"Wilt u de boven vernoemde klassen hercompileren? (Y/N)",! read Input } } If (Input = "Y") { w !!,"Compileren ...",!! Do $SYSTEM.OBJ.CompileList(ToCompile,"cfvko1",.ErrorLog) } } Else { w !!,"Niks gevonden ...",!! } ]]> 1 ClassDefinition:%Dictionary.ClassDefinition,EnumeratorKlasse:%String 1