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 0) { If (VraagBevestiging) { Set Input = "" While (Input '= "Y") && (Input '= "N") { w !,"Wilt u de boven vernoemde klassen hercompileren? (Y/N)",! read Input } } w !!,"Compileren ...",!! Do $SYSTEM.OBJ.CompileList(ToCompile,"cfvko1",.ErrorLog) } Else { w !!,"Niks gevonden ...",!! } ]]>