Create(Nam)                            ; Создание класса
 n nc
 D TXT^ASYS("Создание класса")
 s nc=##class(%Dictionary.ClassDefinition).%New()
 s nc.Name=Nam
 s nc.ProcedureBlock= 1 
 s nc.ClassType="persistent"
 s nc.Super="%Persistent"
 q nc
CREATE(Class,NamSv,Nam)                ; Создание свойства
 ; Class - объект класса
 ; NamSv - Наименование свойства
 ; Nam   - имя класса
 n err,pr,val,i
 s pr=##class(%Dictionary.PropertyDefinition).%New()
 I NamSv["_" s NamSv=$$Trans^zfunc(NamSv,"_","o")
 s pr.Name=NamSv
 s pr.Type=$$GetTyp(NamSv)
 s err=pr.Type
 s pr.parent=Class
 i pr.%Close()
 s i=##class(%Dictionary.IndexDefinition).%New()
 s i.Name=NamSv_"Index"
 s i.parent=Class
 s i.Properties=NamSv
 D TXT^ASYS("Добавление свойства "_NamSv)
 q

...
 s nc=$$Create(obl)
 s nam=""
 D PREFLD
 f  s nam=$O(@buffld@(nam)) q:nam=""  D CREATE(nc,nam,obl)
 D %SAVE(nc)
 D %COMPILE(obl)
...
%SAVE(Class)                           ; Сохранение класса
 n val
 s val=Class.%Save()
 q
%COMPILE(Nam)                          ; Компиляция класса
 n err
 k err 
 D TXT^ASYS("Компиляция класса")
 i $system.OBJ.Compile(Nam,"cf-d",.err)
 q