Кстати, все-таки странно, что для команды EXECUTE параметр PROCEDUREBLOCK наследуется из текущей функции.
Было бы логичнее для уровня стека EXECUTE ставить его = 0.
Хотя, потестил и понял, что вообще ничего не понимаю: при процедуреблок=1 переменная изолируется с обоих сторон стека, но при при этом программы процедуреблок=0 видят переменные через уровень с процедуреблок=1
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.
26.
27.
28.
29.
Class User.Test
{
Classmethod T0() [ ProcedureBlock = 0 ]
{
s x= 1
w !,"T0,x=",x
d ..T1()
w !,"T0,x=",x
}
Classmethod T1() [ ProcedureBlock = 1 ]
{
s x= 2
w !,"T1,x=",x
d ..X("s x=3")
w !,"T1,x=",x
}
Classmethod X(code as %String) [ ProcedureBlock = 0 ]
{
w !,"X,x=",x
x code
w !,"X,x=",x
q
}
}
1.
2.
3.
4.
5.
6.
7.
TEST>d ##class(User.Test).T0()
T0,x= 1
T1,x= 2
X,x= 1
X,x= 3
T1,x= 2
T0,x= 3
Я, кстати, до этого думал, что Procedureblock должна изолировать только от предыдущего уровня стека, а все вызываемые программы с процедуреблок=0 должны работать с тем контекстом переменных, откуда они вызваны.
