добрый день, в базе внешние адресаты есть агент UpdatePath. запускается он сам периодически.
после его запуска через 5 минут он начинает занимать 99,9% оперативной памяти, остальные агенты в это время не запускается.
ниже приведен сам скрипт, подскажите что он делает?

Option Public
Sub Initialize
On Error Resume Next

Dim ses As New notesSession
Dim db As notesDatabase
Dim col As notesDocumentCollection
Dim doc As notesDocument
Dim pdoc As notesDocument
Dim path As String, parentSpec As String


Set db = ses.currentDatabase
Set col = db.unprocessedDocuments
If(col.count=0)Then Exit Sub

Set doc = col.getFirstDocument ()
While Not doc Is Nothing
If(doc.getItemValue("Form")(0)="Branch") And doc.isResponse Then
path = ""
Set pdoc = doc
Do While pdoc.parentDocumentUNID<>""
Set pdoc = db.getDocumentByUNID(pdoc.parentDocumentUNID)
If(pdoc.IsValid And Not pdoc.IsDeleted)Then
If Not(pdoc Is Nothing)Then
If(path<>"")Then path = "\" & path
path = pdoc.getItemValue("Company_Name")(0) & path
End If
Else
Exit Do
End If
Loop
If(path<>"")Then
Call doc.replaceItemValue("OrgPath", path)
Call doc.save(True, True)
End If
End If

Set doc = col.getNextDocument(doc)
Wend

End Sub

Изопропилdantist443On Error Resume Next

автора убить на месте

а по точнее можно узнать?
я просто в этом не разбираюсь

нее, мне интересно, что On Error Resume Next выполняет, смысл этой строки?

Изопропилdantist443,

On Error Resume Next - этот код указание игнорировать все ошибки. Правда легко может возникнуть зацикливание.

LotusScript на котором всё это написано - это разновидность бейсика

вот похоже у меня и идет зацикливание.