Не работает агент после переноса сервера

@SOFTOBZOR.ru · Регистрация: 21.02.2006

Author24 — интернет-сервис помощи студентам

На днях перетащили сервер на новое железо.
Конфигурация сервера (Domino) осталась неизменной, все сетевые протоколы остались тоже без изменений. Отличие только в названии машины (локальное название)
Было ServerDomono1 стало ServerDomino01 - насколько мне известно это не принципиально.

Проблема в следующем, на сервере в одной из ДБ крутится агент по расписанию.
Но работать он не хочет, при тестовом запуске агента (В дизайнере -> Test) ошибок нет, при запуске не в тестовом режиме Выдает окно "Overflow", начинает работать и затыкается.

В логах идет это

26.12.2006 06:55:22 AMgr: Agent (MyAgent in Demo\basez.nsf) error message: Overflow

Ни как не могу понять что произошло, из-за чего агент может корячится.

Сам агент

Code
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
Sub Initialize
 
Dim s As New NotesSession
Dim doc As NotesDocument
Dim nextdoc As NotesDocument
Dim coll As NotesDocumentCollection
Dim i As Integer
Dim Deldocs As Integer
Dim agentLog As NotesLog
Set agentLog = New NotesLog("MyAgent")
Call agentLog.OpenAgentLog
Call agentLog.LogAction("Начало")
Let deldocs=0
Set col = s.CurrentDatabase.UnprocessedDocuments
Set doc = col.GetFirstDocument
For i = 1 To col.count
Set nextdoc = col.GetNextDocument(doc)
If doc.form(0)="TempApprDoc"    Then
Call doc.Remove(True)
Let deldocs=deldocs+1
End If
Set doc = nextdoc
Next
Call agentLog.LogAction("Удалено док: " & Cstr(Deldocs))
Call agentLog.LogAction("Конец")
Call agentLog.Close
End Sub

Важно то что раньше он работал без сбоев

@morphyus · 25.12.2006, 09:18

Для: SOFTOBZOR.ru
Overflow - это переполнение... значить где то слишком много значений , возможно Dim Deldocs As Integer, зделать его Long? имхо переполнение идёт в строке Let deldocs=deldocs+1...

Проверяли вручную?может Print накидайте

@SOFTOBZOR.ru · 25.12.2006, 09:24 **[ТС]**

Вот тест запуск агента:

Code
1
2
3
4
5
6
7
8
9
10
11
12
The following will occur when thys agent is run:
 
Warning: Tester id (CN=AdministratorLN/OU=DOMEN/O=WOR) and agent signer id (CN=SERVER01/OU=NAME/OU=DOMEN/O=WOR) are different.
CN=SERVER01/OU=NAME/OU=DOMEN/O=WOR has unrestricted rights to run LotusScript/Java agents on CN=SERVER01/OU=NAME/OU=DOMEN/O=WOR.
Allow restricted operations flag is selected. Restriction operations will be allowed.
Agent scheduled to run on CN=SERVER01/OU=NAME/OU=DOMEN/O=WOR.
 
Started running agent MyAgent on 26.12.2006 10:05:52
Running on new or modified documents: 33488 total
Found 33488 document(s) that match search criteria
Testing: Ran LotusScript code
Done running agent MyAgent on 26.12.2006 10:05:52

То есть в тесте все ок.

А если не в тест т.е. Run то

Сначало оконко "Overflow"

Code
1
2
3
4
5
6
Started running agent MyAgent on 26.12.2006 10:09:45
Running on new or modified documents: 33490 total
Found 33490 document(s) that match search criteria
26.12.2006 10:09:45: --- Начало
Ran LotusScript code
Done running agent DeleteTempDocs on 26.12.2006 10:09:46

@morphyus · 25.12.2006, 09:34

Found 33490 document(s) that match search criteria [/b] - Ну канечно, читаем хэлп

Specifies a variable that contains a signed 2-byte integer.
An Integer value is a whole number in the range -32768 to 32767, inclusive.

Integer не может содержать число больше 32767, тоесть Вам необходимо задекларировать deldocs как Long или ещё как похлеще, хотя думаю этого хватить

Specifies a variable that contains a signed 4-byte integer.
Usage
The Long suffix character is &.
Long variables are initialized to 0.
A Long value is a whole number in the range -2,147,483,648 to 2,147,483,647 inclusive.

@SOFTOBZOR.ru · 25.12.2006, 10:19 **[ТС]**

ЁПРСТ :D

Спасибо! Буду сейчас лечить.

@SOFTOBZOR.ru · 25.12.2006, 12:35 **[ТС]**

Попробовал замел на Long беда таже, "Overflow"
Хотя есть еще подозрение на Dim i As Integer

Но по логике кода (как я понима) в эту переменную заносится число документов удовлетворяющих требованию s.CurrentDatabase.UnprocessedDocuments.

Не совсем понимаю что такое UnprocessedDocuments.
И может ли их быть так много что нужен Long?

@morphyus · 25.12.2006, 12:40

<span class="vbquote">(SOFTOBZOR.ru @ 26:12:2006, 12:22 )</span>Не совсем понимаю что такое UnprocessedDocuments.
[snapback]51757" rel="nofollow" target="_blank[/snapback]?[/quote] это NotesDocumentCollection, нет там вроде ограничений нету.


<span class="vbquote">(SOFTOBZOR.ru @ 26:12:2006, 12:22 )</span>Попробовал замел на Long беда таже, "Overflow"
Хотя есть еще подозрение на Dim i As Integer
[snapback]51757" rel="nofollow" target="_blank[/snapback]?[/quote]
ТОЧНО... колво доков в коллекции больше чем может быть значение i - его в обязательном порядке Long

Новые блоги и статьи Все статьи Все блоги /
Kanban или Scrum - что выбрать? EggHead 27.04.2025 Kanban и Scrum — уже много лет удерживают лидирующие позиции среди гибких подходов. Руководители проектов и команды разработчиков то и дело сталкиваются с дилеммой: какой из этих двух методов выбрать. . .	Кастомные Middleware на C# в ASP.NET Core UnmanagedCoder 27.04.2025 Разработка веб-приложений сегодня мало напоминает монолитное программирование прошлых лет. На смену громоздким блокам кода пришла модульная архитектура, где каждый компонент выполняет строго. . .	Анализ и линтинг кода JavaScript: ESLint, Prettier и JSHint run.dev 26.04.2025 JavaScript прошёл долгий путь от простого языка для анимации веб-страниц до основы современной веб-разработки. С ростом сложности приложений, увеличением кодовых баз и масштабированием команд. . .	Паттерны в Python: Singleton, Factory и Observer py-thonny 26.04.2025 Паттерны проектирования — это проверенные временем решения типовых проблем разработки программного обеспечения. Их история берёт начало с книги "Приёмы объектно-ориентированного проектирования. . . .	Исключения в C#: Stack Overflow, Access Violation и Out of memory stackOverflow 26.04.2025 Исключения в C# — это не только механизм оповещения о проблемах, а целое искусство управления потоком выполнения программы в экстремальных ситуациях. Обычное исключение, например,. . .
Логирование в C# ASP.NET Core с помощью Serilog, ElasticSearch, Kibana stackOverflow 25.04.2025 Помните те времена, когда для анализа проблемы приходилось подключаться к серверу, искать нужный лог-файл среди десятков других и вручную фильтровать тысячи строк в поисках ошибки? К счастью, эти дни. . .	Структура "железный OnKeyUp" вместо антидребезга. Полностью асинхронный счётчик. Hrethgir 25.04.2025 Программа для симуляции схемы - Logisim Evolution В общем какое-то время отвлёкся, так было надо, теперь когда запилю это на verilog и FPGA , досоставлю заявку в ФИПС на полезную модель - не готов. . .	Автоматизация Amazon Web Services (AWS) с Boto3 в Python py-thonny 25.04.2025 Облачные вычисления стали неотъемлемой частью современной ИТ-инфраструктуры, а Amazon Web Services (AWS) занимает лидирующие позиции среди провайдеров облачных услуг. Управление многочисленными. . .	Apache Kafka vs RabbitMQ в микросервисной архитектуре ArchitectMsa 25.04.2025 Современная разработка ПО всё чаще склоняется к микросервисной архитектуре — подходу, при котором приложение разбивается на множество небольших, автономных сервисов. В этой распределённой среде. . .	Параллельное программирование с OpenMP в C++ NullReferenced 24.04.2025 Параллельное программирование — подход к созданию программ, когда одна задача разбивается на несколько подзадач, которые могут выполняться одновременно. Оно стало необходимым навыком для. . .

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	25.12.2006, 09:18
	Для: SOFTOBZOR.ru Overflow - это переполнение... значить где то слишком много значений , возможно Dim Deldocs As Integer, зделать его Long? имхо переполнение идёт в строке Let deldocs=deldocs+1... Проверяли вручную?может Print накидайте 0

@SOFTOBZOR.ru 0 / 0 / 0 Регистрация: 21.02.2006 Сообщений: 267
	25.12.2006, 10:19 [ТС]
	ЁПРСТ :D Спасибо! Буду сейчас лечить. 0

@SOFTOBZOR.ru 0 / 0 / 0 Регистрация: 21.02.2006 Сообщений: 267
	25.12.2006, 12:35 [ТС]
	Попробовал замел на Long беда таже, "Overflow" Хотя есть еще подозрение на Dim i As Integer Но по логике кода (как я понима) в эту переменную заносится число документов удовлетворяющих требованию s.CurrentDatabase.UnprocessedDocuments. Не совсем понимаю что такое UnprocessedDocuments. И может ли их быть так много что нужен Long? 0

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	25.12.2006, 12:40
	<!--QuoteBegin-SOFTOBZOR.ru+26:12:2006, 12:22 --> <span class="vbquote">(SOFTOBZOR.ru @ 26:12:2006, 12:22 )</span><!--QuoteEBegin-->Не совсем понимаю что такое UnprocessedDocuments. [snapback]51757" rel="nofollow" target="_blank[/snapback]?[/quote] это NotesDocumentCollection, нет там вроде ограничений нету. <!--QuoteBegin-SOFTOBZOR.ru+26:12:2006, 12:22 --> <span class="vbquote">(SOFTOBZOR.ru @ 26:12:2006, 12:22 )</span><!--QuoteEBegin-->Попробовал замел на Long беда таже, "Overflow" Хотя есть еще подозрение на Dim i As Integer [snapback]51757" rel="nofollow" target="_blank[/snapback]?[/quote] ТОЧНО... колво доков в коллекции больше чем может быть значение i - его в обязательном порядке Long 0

Опции темы