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

@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

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

Сам агент

Код

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 **[ТС]**

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

Код

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"

Код

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

@SOFTOBZOR.ru 0 / 0 / 0 Регистрация: 21.02.2006 Сообщений: 267
		1
	Не работает агент после переноса сервера 25.12.2006, 08:05. Показов 16310. Ответов 6 Метки нет (Все метки) На днях перетащили сервер на новое железо. Конфигурация сервера (Domino) осталась неизменной, все сетевые протоколы остались тоже без изменений. Отличие только в названии машины (локальное название) Было ServerDomono1 стало ServerDomino01 - насколько мне известно это не принципиально. Проблема в следующем, на сервере в одной из ДБ крутится агент по расписанию. Но работать он не хочет, при тестовом запуске агента (В дизайнере -> Test) ошибок нет, при запуске не в тестовом режиме Выдает окно "Overflow", начинает работать и затыкается. В логах идет это 26.12.2006 06:55:22 AMgr: Agent (MyAgent in Demo\basez.nsf) error message: Overflow Ни как не могу понять что произошло, из-за чего агент может корячится. Сам агент Код 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 Важно то что раньше он работал без сбоев 0

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

@morphyus 1 / 1 / 0 Регистрация: 04.08.2006 Сообщений: 2,950
	25.12.2006, 09:34	4
	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. 0

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

@SOFTOBZOR.ru 0 / 0 / 0 Регистрация: 21.02.2006 Сообщений: 267
	25.12.2006, 12:35 [ТС]	6
	Попробовал замел на 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	7
	<!--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