ValeriuГоспода Всем здравствуйте !!!
Простой маленький код программы глушит сервер наповал !!!
В чем моя ошибка ???


Спасибо.
Валерий ,
у меня Ваш код выполнялся невыносимо долго - 13 секунд
видимо так медленно работает $o(^$GLOBAL..
но это не зависание :)
-------------

ValeriuВсе O' Key !!!

Спасибо Дмитрию Зюльманову подсказал !!!

[src]GlbList() N Val,Nacop,Return
d GetDir^%GD($zu(5),"GDir")


?
Валерий,
Дмитрий,

а для чего
d GetDir^%GD($zu(5),"GDir")
?
-------------------

ValeriuКонкретно для меня, этот код возвращает пользовательскому приложению (VB,Delphi etc.) список глобалей содержащихся в области.

Это типа D ^%GD....
это понятно
а каким способом он там быстро бежит по списку глобов
как мы видим прохождение по $o(^$GLOBALS..
идет очень тоскливо - медленно

нет ли у Вас исходника ^%GD ?

LittleCatЛюди, да вы что ! При установке поставьте галку "Исходники утилит управления" и любуйтесь на исходный текст %GD !! Интересующий кусок :
%GDGetDir(NSP,save) ; gets global directory for a dataset (implied namespace)
i $zbitget($zversion(0),21) g bigdb
n DIR,DIRINFO,GDBLOCK,BYTEPTR,LOC,remnode,remlock,t,name ;HYY072
s remlock=0,$zt="errdir" g:$p(NSP,"^",2)]"" remote
s DIR=$p(NSP,"^",3),DIRINFO=$zu(49,DIR),GDBLOCK=+$p(DIRINFO,",",7)
; s DIR="MINE",DIRINFO="MINE",GDBLOCK=+$p(DIRINFO,",",7)
o 63:NSP
f v GDBLOCK d s GDBLOCK=$v(2040,0,"3O") q:'GDBLOCK
. f BYTEPTR=0:9:$v(2046,0,2)-1 d
. . f LOC=BYTEPTR:1 q:'$v(LOC,0)
. . s name=$v(BYTEPTR,0,BYTEPTR-LOC),BYTEPTR=LOC+1
. . s @save@(name)=$v(BYTEPTR+2,0)_"^"_$V(BYTEPTR+3,0,"3O")_"^"_$V(BYTEPTR+6,0,"3O")_"^"_$V(BYTEPTR,0)_"^"_$V(BYTEPTR+1,0)
q
т.е. ничего интересного, работа через VIEW и парсинг блоков глобального каталога...
спасибо за наводку
установлен CACHE-5.1 - там какой то портал - ничего не понятно
раньше был MSM - все понятно
и все равно интересно как удалось добится чтобы проход в цикле
по списку глобалей по $o(^$GLOBALS.. тянулся 13 секунд

LittleCat MX - ALEX
и все равно интересно как удалось добится чтобы проход в цикле
по списку глобалей по $o(^$GLOBALS.. тянулся 13 секунд
А чего уж тут непонятного... Все силы ИС брошены на модные передовые технологии, а поддержку стандарта языка поручили каким-нибудь студентам, наверное... В MSM так вперед не рвались, зато за качеством следили :-)

убью, студент ! ...

кстати не подскажете как в CACHE перебросить узел глобали в другой КИП
?

LittleCat MX - ALEX
кстати не подскажете как в CACHE перебросить узел глобали в другой КИП
?
А по полной ссылке, как и раньше ;-) Например так...

s ^["SAMPLES"]a=1

точно ! спасибо

а все-таки у кого за сколько секунд ползет сотня глобалей
в цикле по $o(^$GLOBALS(..
ведь вопрос не сам по себе - а возможно и в других случаях
будет тормоз по схожей причине -
лучше знать заранее где слабое звено
- или у меня лыжи не смазаны ?