Ptn2. В наследуемых классах (прямые наследники) индексы не должны пересекаться по именам среди ВСЕХ потомков.
Попробовал воспроизвести - не компилируется такая ситуация в 2009.1 - говорит, что такой индекс уже занят другим наследником.
Также не компилируются переопределенные индексы. (если в следующем далее примере в классе а.В переопределить индекс (вот так: Index NameIndex On Name [ Data = Age ];) то класс перестает компилиться с ошибкой в духе "невозможно переопределить определение Index".
Ptn
#; индексы перестраиваем в обратном порядке
#; из-за наследования - сначала дети потом родители
Позволим себе небольшой эксперимент:
Возьмем 3 класса:
1.
2.
3.
4.
5.
6.
7.
8.
Class a.A Extends (%Persistent, %Populate)
{
Property Name As %String;
Index NameIndex On Name;
}
1.
2.
3.
4.
5.
6.
7.
Class a.B Extends a.A
{
Property Age As %Integer;
Index AgeIndex On Age;
}
1.
2.
3.
4.
5.
6.
7.
Class a.C Extends a.A
{
Property DogAge As %Integer;
Index DogAgeIndex On DogAge;
}
Выполним
>d ##class(a.A).Populate(5)
>d ##class(a.B).Populate(5)
>d ##class(a.C).Populate(5)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
1 : ^a.AI("AgeIndex", 66790836 , 8 ) = "~a.B~"
2 : ^a.AI("AgeIndex", 428408320 , 7 ) = "~a.B~"
3 : ^a.AI("AgeIndex", 615925956 , 9 ) = "~a.B~"
4 : ^a.AI("AgeIndex", 647579749 , 10 ) = "~a.B~"
5 : ^a.AI("AgeIndex", 883157847 , 6 ) = "~a.B~"
6 : ^a.AI("DogAgeIndex", 349144970 , 11 ) = "~a.C~"
7 : ^a.AI("DogAgeIndex", 408282601 , 15 ) = "~a.C~"
8 : ^a.AI("DogAgeIndex", 475077891 , 13 ) = "~a.C~"
9 : ^a.AI("DogAgeIndex", 935942734 , 12 ) = "~a.C~"
10 : ^a.AI("DogAgeIndex", 946521295 , 14 ) = "~a.C~"
11 : ^a.AI("NameIndex"," ALTON,VALERY P.", 14 ) = "~a.C~"
12 : ^a.AI("NameIndex"," CHESIRE,IMELDA B.", 3 ) = ""
13 : ^a.AI("NameIndex"," DUQUESNOY,SAM T.", 13 ) = "~a.C~"
14 : ^a.AI("NameIndex"," ENO,ASHLEY V.", 4 ) = ""
15 : ^a.AI("NameIndex"," FAUST,YAN I.", 1 ) = ""
16 : ^a.AI("NameIndex"," FRITH,WOLFGANG D.", 9 ) = "~a.B~"
17 : ^a.AI("NameIndex"," GIBBS,TERRY J.", 8 ) = "~a.B~"
18 : ^a.AI("NameIndex"," JOHNSON,LAURA R.", 7 ) = "~a.B~"
19 : ^a.AI("NameIndex"," KELVIN,KEVIN P.", 2 ) = ""
20 : ^a.AI("NameIndex"," KLEIN,YAN L.", 12 ) = "~a.C~"
21 : ^a.AI("NameIndex"," KOENIG,CHRISTINE S.", 10 ) = "~a.B~"
22 : ^a.AI("NameIndex"," NOVELLO,VALERY I.", 5 ) = ""
23 : ^a.AI("NameIndex"," RAGON,DAN Q.", 15 ) = "~a.C~"
24 : ^a.AI("NameIndex"," RAMSAY,WILLIAM E.", 6 ) = "~a.B~"
25 : ^a.AI("NameIndex"," XENIA,NORBERT V.", 11 ) = "~a.C~"
Далее выполняем d ##class(a.C).%PurgeIndices() - удаляется только ^a.AI("DogAgeIndex"), а ^a.AI("NameIndex") остается нетронутым(!).
Сделаем еще хуже - поправим ручками глобаль.
Было
^a.AD( 12 ) = $lb("~a.C~","Klein,Yan L.")
Стало
^a.AD( 12 ) = $lb("~a.C~","Vasya Pupkin Jr.")
Выполняем
>d ##class(a.C).%BuildIndices(,1)
И смотрим, что получилось:
^a.AI("NameIndex"," KLEIN,YAN L.", 12 ) = "~a.C~"
Очевидно, не врет документация, когда говорит:
ИСBeginning with version 2009.1, %PurgeIndices validates the name of the indices it is passed. If the index does not originate in the current class then it cannot be purged.
Note:
There is an exception to this rule; if the current class is the extent root class and the index is inherited or originates here, it is valid for building and purging.
Заходим с тыла:
