ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Не пойму как получается ошибка <NOROUTINE>
13 сообщений из 13, страница 1 из 1
Не пойму как получается ошибка <NOROUTINE>
    #36494313
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Не пойму как получается ошибка <NOROUTINE>CopyBD+39^rgAUTO
в этом коде...

Код: plaintext
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.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
CopyBD(dirto) ; копирование файла БД с удаленного сервера в dirto
 n serv,port,login,ns,rc,res,pass,err
 s err= 1 
 try{
     ;s par=##class(adm.Nast).%OpenId("REGAUTO")
     s serv=par.Get("adrsrc")
     s port=par.Get("portsrc")
     s login=par.Get("logsrc")
     i login="" s login="_SYSTEM"
     s pass=par.Get("parsrc")
     i pass="" s pas="SYS"
     s bd=par.Get("bdsrc")
     s bddir=par.Get("bddir")
     s rc=##class(%Net.RemoteConnection).%New()
     s res=rc.Connect(serv,"%SYS",port,login,pass)
     i '+res D LOG("Ошибка подключения к удаленному Cache") q
     S res=rc.OpenObjectId("SYS.Database",bd,.per)
     i '+res!(per="") {
         D LOG("Ошибка подключения к удаленной БД")
         d LOG($System.Status.GetErrorText(res))
         q
     }   
     D LOG("Подключился к удаленному серверу")
     //
     Set res=rc.GetProperty(per,"Mounted",.mounted)
     If (res)||('mounted) { 
	     Set res=rc.InvokeInstanceMethod(per,"Mount")
	     D LOG("Монтирование Unmounted БД "_bd)
     }
     //
     s res=rc.InvokeInstanceMethod(per,"Dismount")
     h 5
     s lck=##class(%File).Exists(bddir_"\"_"cache.lck")
     i '+res!(lck) { 
        D LOG("Ошибка отмонтирования удаленнной БД")  
        d LOG($System.Status.GetErrorText(res))
        q
     }   
     D LOG("Удаленная БД отмонтирована")
     s res=$$Dismount(dirto)
     i '+res D LOG("Ошибка отмонтирования локальной БД") q
     D LOG("Локальная БД отмонтирована") 
     
     s res=##class(%File).Exists(dirto_"\"_"cache.dat")
     i res {
        D LOG("Удаление локальной БД")
        s res=##class(%File).Delete(dirto_"\"_"cache.dat")
        i '+res D LOG("Ошибка удаления локальной БД") q
     }
     D LOG("Копирование удаленной БД")
     s res=##class(%File).CopyFile(bddir_"\"_"cache.dat",dirto_"\"_"cache.dat") 
     i '+res D LOG("Ошибка копирования удаленнной БД") q
     D LOG("Выполнено копирование удаленной БД")
     
     s res=rc.InvokeInstanceMethod(per,"Mount")
     i '+res D LOG("Ошибка монтирования удаленнной БД") q
     D LOG("Выполнено монтирование удаленной БД")
     s res=$$Mount(dirto)
     i '+res D LOG("Ошибка монтирования локальной БД") q
     D LOG("Выполнено монтирование локальной БД")
     s err=0
 }
 catch
 {
    D ERROR 
 }
 i err d LOG($System.Status.GetErrorText(res))
 q 'err
Dismount(bd) ; Отмонтировать БД
 n o
 zn "%SYS"
 s res= 1 
 s o=##class(SYS.Database).%OpenId(bd)
 s:o'="" res=$$Dsmnt
 d o.%Close()
 zn spset
 i 'res q  0 
 q  1 
Dsmnt() ; Собственно отмонтирование
 n res
 s:'o.Mounted res=o.Mount()
 q:'res  0 
 s res=o.Dismount()
 q res

Какой там программки не т? Обычная функция... Есть и стек всей ошибки (см.вложение)...
----------
Cache for Windows (x86-32) 2007.1.3 (Build 607) Wed Oct 17 2007 02:12:09 EDT
...
Рейтинг: 0 / 0
01.03.2010, 12:03
| Ответить | Цитировать | Написать  
Не пойму как получается ошибка <NOROUTINE>
    #36495090
Игорь Сойников
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Сойников
Участник
возможно не определена переменная spset в выражении:
zn spset
иногда встречал что ошибка в вызываемом модуле дает ошибку на вызове
...
Рейтинг: 0 / 0
01.03.2010, 15:42
| Ответить | Цитировать | Написать  
Не пойму как получается ошибка <NOROUTINE>
    #36495097
Игорь Сойников
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Сойников
Участник
или
s:o'="" res=$$Dsmnt
надо писать
s:o'="" res=$$Dsmnt()
...
Рейтинг: 0 / 0
01.03.2010, 15:44
| Ответить | Цитировать | Написать  
Не пойму как получается ошибка <NOROUTINE>
    #36495244
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Игорь Сойниковвозможно не определена переменная spset в выражении:
Код: plaintext
zn spset
иногда встречал что ошибка в вызываемом модуле дает ошибку на вызове
Это M6 как правило...
...
Рейтинг: 0 / 0
01.03.2010, 16:28
| Ответить | Цитировать | Написать  
Не пойму как получается ошибка <NOROUTINE>
    #36495248
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Игорь Сойниковили
Код: plaintext
 s:o'="" res=$$Dsmnt
надо писать
Код: plaintext
 s:o'="" res=$$Dsmnt()

Это вообще далеко... Да и параметров у этой функции нет, должно работать. Т.к. ранее такое всегда (!) работало...
...
Рейтинг: 0 / 0
01.03.2010, 16:30
| Ответить | Цитировать | Написать  
Не пойму как получается ошибка <NOROUTINE>
    #36501155
neznau
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
neznau
Участник
krvsa,

метка ERROR вроде не определена в блоке catch{}, хотя может и не в этом дело.

ps: я бы переписал код без меток (если это весь модуль, то переписывать не много, минут на 20 :))
...
Рейтинг: 0 / 0
03.03.2010, 23:00
| Ответить | Цитировать | Написать  
Не пойму как получается ошибка <NOROUTINE>
    #36501157
neznau
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
neznau
Участник
ой, там LOG'а не видно, скорее всего не весь код выложили.
...
Рейтинг: 0 / 0
03.03.2010, 23:04
| Ответить | Цитировать | Написать  
Не пойму как получается ошибка <NOROUTINE>
    #36501406
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
neznauой, там LOG'а не видно, скорее всего не весь код выложили.
Да... Это только часть.

Дело в том что вот это

Код: plaintext
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.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
CopyBD(dirto) ; копирование файла БД с удаленного сервера в dirto
 n serv,port,login,ns,rc,res,pass,err
 s err= 1 
 try{
     ;s par=##class(adm.Nast).%OpenId("REGAUTO")
     s serv=par.Get("adrsrc")
     s port=par.Get("portsrc")
     s login=par.Get("logsrc")
     i login="" s login="_SYSTEM"
     s pass=par.Get("parsrc")
     i pass="" s pas="SYS"
     s bd=par.Get("bdsrc")
     s bddir=par.Get("bddir")
     s rc=##class(%Net.RemoteConnection).%New()
     s res=rc.Connect(serv,"%SYS",port,login,pass)
     i '+res D LOG("Ошибка подключения к удаленному Cache") q
     S res=rc.OpenObjectId("SYS.Database",bd,.per)
     i '+res!(per="") {
         D LOG("Ошибка подключения к удаленной БД")
         d LOG($System.Status.GetErrorText(res))
         q
     }   
     D LOG("Подключился к удаленному серверу")
     s res=rc.InvokeInstanceMethod(per,"Dismount")
     h  5 
     s lck=##class(%File).Exists(bddir_"\"_"cache.lck")
     i '+res!(lck) { 
        D LOG("Ошибка отмонтирования удаленнной БД")  
        d LOG($System.Status.GetErrorText(res))
        q
     }   
     D LOG("Удаленная БД отмонтирована")
     s res=$$Dismount(dirto)
     i '+res D LOG("Ошибка отмонтирования локальной БД") q
     D LOG("Локальная БД отмонтирована") 
     
     s res=##class(%File).Exists(dirto_"\"_"cache.dat")
     i res {
        D LOG("Удаление локальной БД")
        s res=##class(%File).Delete(dirto_"\"_"cache.dat")
        i '+res D LOG("Ошибка удаления локальной БД") q
     }
     D LOG("Копирование удаленной БД")
     s res=##class(%File).CopyFile(bddir_"\"_"cache.dat",dirto_"\"_"cache.dat") 
     i '+res D LOG("Ошибка копирования удаленнной БД") q
     D LOG("Выполнено копирование удаленной БД")
     
     s res=rc.InvokeInstanceMethod(per,"Mount")
     i '+res D LOG("Ошибка монтирования удаленнной БД") q
     D LOG("Выполнено монтирование удаленной БД")
     s res=$$Mount(dirto)
     i '+res D LOG("Ошибка монтирования локальной БД") q
     D LOG("Выполнено монтирование локальной БД")
     s err= 0 
 }
 catch
 {
    D ERROR 
 }
 i err d LOG($System.Status.GetErrorText(res))
 q 'err
Dismount(bd) ; Отмонтировать БД
 n o
 zn "%SYS"
 s res=1
 s o=##class(SYS.Database).%OpenId(bd)
 s:o'="" res=o.Dismount()
 d o.%Close()
 zn spset
 i '+res q  0 
 q  1

Нормально работало в 2007... Но при переходе на 2009 выяснилось () что у БД теперь три (!) состояния:
- Не подмонтировано
- Монтировано
- Отмонтировано

И при ситуации "Не подмонтировано", хотя в Портале четко написано "монтировать при старте", наша програмка не может отмонтировать БД...
По совету ИС нужно проверить состояние БД и если оно "Не подмонтировано" - примонтировать её.
Модернизирую код (пока для локальной БД)

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dismount(bd) ; Отмонтировать БД
 n o,res
 zn "%SYS"
 s o=##class(SYS.Database).%OpenId(bd)
 s res=$$Dsmnt
 d o.%Close()
 zn spset
 i 'res q 0
 q 1
Dsmnt() ; Собственно отмонтирование
 n res
 q:o="" 0
 s:'o.Mounted res=o.Mount()
 s res=o.Dismount()
 q res

Все! Таже ошибка. Нет программы... Куда чего девается я х/з...
...
Рейтинг: 0 / 0
04.03.2010, 09:12
| Ответить | Цитировать | Написать  
Не пойму как получается ошибка <NOROUTINE>
    #36501666
Turk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Turk
Гость
krvsa
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dismount(bd) ; Отмонтировать БД
 n o,res
 zn "%SYS"
 s o=##class(SYS.Database).%OpenId(bd)
 s res=$$Dsmnt
 d o.%Close()
 zn spset
 i 'res q 0
 q 1
Dsmnt() ; Собственно отмонтирование
 n res
 q:o="" 0
 s:'o.Mounted res=o.Mount()
 s res=o.Dismount()
 q res

Вы не убиваете объект базы данных. Метода %Close() недостаточно, нужно принудительно выполнить kill (у вас неявно вызывается kill при выходе из Dismount, но объект создан в другой области, поэтому его этот kill не затрагивает).
В итоге код будет выглядеть примерно так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dismount(bd) ; Отмонтировать БД
 n o,res,spset
 s spset=$zu( 5 )
 zn "%SYS"
 s o=##class(SYS.Database).%OpenId(bd)
 s res=$$Dsmnt
 k o
 zn spset
 i 'res q  0 
 q  1
PS: Я так понимаю, в методе Mount() у вас аналогичный код, поэтому там тоже не забудьте исправить ошибки.
...
Рейтинг: 0 / 0
04.03.2010, 10:52
| Ответить | Цитировать | Написать  
Не пойму как получается ошибка <NOROUTINE>
    #36501680
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Turk , сейчас спробанём...
...
Рейтинг: 0 / 0
04.03.2010, 10:55
| Ответить | Цитировать | Написать  
Не пойму как получается ошибка <NOROUTINE>
    #36502336
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
Вроде "он".
Пока клиент говорит что все нормально...
----------
Cache for Windows (x86-32) 2007.1.3 (Build 607) Wed Oct 17 2007 02:12:09 EDT
...
Рейтинг: 0 / 0
04.03.2010, 13:46
| Ответить | Цитировать | Написать  
Не пойму как получается ошибка <NOROUTINE>
    #36503993
neznau
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
neznau
Участник
в 2008-ой по-моему %Close() вообще ничего не делает :)
...
Рейтинг: 0 / 0
05.03.2010, 00:11
| Ответить | Цитировать | Написать  
Не пойму как получается ошибка <NOROUTINE>
    #36504796
Фотография krvsa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
krvsa
Участник
neznau , это пока нет какого-то переопределения на это самое закрытие...
...
Рейтинг: 0 / 0
05.03.2010, 12:50
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Caché, Ensemble, DeepSee, MiniM, IRIS, GT.M [игнор отключен] [закрыт для гостей] / Не пойму как получается ошибка <NOROUTINE>
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]