"Too Many Paragraphs" in Lotus Notes DB

this is notes 5.0.6a
i guess i forgot to post n my original that once I click OK on the above error, another comes up that says "User-defined error"

my code:

Sub Click(Source As Button)
' DECLARATIONS GO HERE
      
   AddTestCase=1
   index=0
   MAX_TEST_CASES=100

   Set db = s.CurrentDatabase
   Set NewDoc = New NotesDocument ( db )
   TestCaseList = Evaluate("@DbColumn( '' : 'NoCache' ; '' : '' ; '(TestCaseAndDocID)' ; 1 )")
   NewDoc.ProjectName=CurrentDoc.ProjectName
   NewDoc.CIT_assign_1=CurrentDoc.CIT_assign
   NewDoc.Tester=CurrentDoc.Tester
   NewDoc.Form = "CTPlan"

   Title = w.Prompt(PROMPT_OKCANCELEDIT,"Name Test Plan","What is this Test Plan For? ")
   If Isempty (Title) Then
      Goto Cancelled
   Else
      Call NewDoc.ReplaceItemValue("Title",Title)
   End If

   SelTestCase = w.Prompt(PROMPT_OKCANCELLISTMULT, "Test Case Selection", "Select all test cases to add to this Plan,"", TestCaseList)

   If Isempty (SelTestCase) Then
      Goto Cancelled
   Else
      Forall STC In SelTestCase
         Call NewDoc.ReplaceItemValue("Test_Cases_Included_"+index, STC)
         Set TestCaseAndDocID = DB.GetView("(TestCaseAndDocID)")
         Set TestCaseToPullFrom = TestCaseAndDocID.GetDocumentByKey(STC, True)
         Set notesItemToPullFrom = TestCaseToPullFrom.GetFirstItem( "Body" )
         Call NewDoc.CopyItem( notesItemToPullFrom, "Body_"+index )
         If index=MAX_TEST_CASES Then
            Goto LimitReached
         End If

         index = index+1
      End Forall
   End If
Cancelled:
   If index=0 Then
      Goto Quitting
   Else
      PromptSave=w.Prompt(PROMPT_YESNO, "Save Document", "Do You Want To Save This New Test Plan Document?")
      If PromptSave=1Then
         Goto SaveDoc
      Else
         Goto Quitting
      End If
   End If
      
LimitReached:
   Messagebox "You Have Reached The Max Number of Test Cases. Saving Document."
      
SaveDoc:
   Call NewDoc.Save(False,True)
'this next line is what cuses the error
   Call w.EditDocument( True, NewDoc )

Quitting:
End Sub

Additional Note: This script Opens without error in Internet Explorer.

???
Lotusscript is executed on the server when triggerred from a browser. Are you sure that the same error does not occur in the servers log (log.nsf)?
If it runs well on the server, it sounds like a machine related thing, like e.g. too little memory.

I haven't had a whole lot of time to look into this (this one required a bit more effort). Sorry about that.
If you execute the script with the debugger on (client), in which line is the error raized? I'd expect one of these. Can you please confirm?

...
Call NewDoc.ReplaceItemValue("Test_Cases_Included_"+index, STC)
...
Call NewDoc.CopyItem( notesItemToPullFrom, "Body_"+index )
...

I meant "...to look into this yet"!
I will...!

CRAK,
I'm doing the development of this on my local machine, not on a server. I checked the log file on my machine, and there are no entries in the log with todays date. I shut down Notes & brought it back up then opened log.nsf and still nothing for todays date. although the modification time on the file is today. so i'm not sure how my notes is configured (wonders if some configuration would reflect this situation).
I did some furter testing, and here's what I have found.
the script i've shown you is perfectly OK. all lines execute, including the w.editdocument. I found that the newdoc.initialize and newdoc.queryopen events complete successfully as well, but the first line of newdoc.postopen event never executes.
It seems to me that i'm looking at some limitation of Notes itself. GRR! I guess my question now is not about my script, but more of a "How do i catch this error, or better yet, prevent this error from showing? do you know if  I could look at any document-specific parameters, i.e. number of fields etc. for example, in pseudocode:

select all the items i want to copy over
forall
    see how many fields named "Body" there are in the existing doc
    if number of fields in newdoc plus value from previous line > supposed notes limit then
        throw a custom error and go back to top (ask user to select fewer items)
next

do you know what the limit of #of fields/items in a document is in Notes 5.06a?
if "Body" is split into 10 fields, 100 fields, or only 1, how do i figure this out?

thanks in advance. this is a bigger problem than i thought, so i've raised the bar. 500 pts.

If you search designer help for ' limit & "field" ' you'll find following limits (and a lot more):
Size of a text field: 15 KB (not relevant since you use "copyitem")
Size of a richtext field: Limited only by available disk space up to 1GB (not very likely)
Max. size of a single paragraph: 64 KB (exceeding would raize a different error)
And perhaps more interesting:
How many fields in a database: ~ 3000 (limited to ~ 64K total length for all field names). You can enable the database property "Allow more fields in database" to get up to 64K uniquely-named fields in the database

Concerning debugging:
Unless you use error trapping (on error...) you can press continue. If an error occurs it will return showing you where it occurred.
If you decide to step through the code (not a lot of fun going through 50 docs untill someting MAY go wrong), some events are not offered to step through. Often those are script libraries. You can force debugger to debug that specific event by selecting the right event in an early stage of debugging (or at least when/while you can) and double click the first debuggable line in that event (place a red bullet as stop marker). Bear in mind that lines like "DIM" are skipped by the debugger!

> I'm doing the development of this on my local machine, not on a server.
Just to make absolutely sure: you're working on a client, not on the server, but where does the db reside? Is it "<database name> on local" or "<database name> on <servername>".
If on local: it's not of much use to check the log. When on the server: do check the log on that server when after the script was triggered from a browser.

the database resides in my C:\NOTES\Data directory. =>"<database name> on local" so I guess checking the log doesnt mean anything.
I've already set the "Allow more fields" option to true. so this isnt going to work. This is a pain in the arse.
Any other ideas are greatly appreciated
Thanks!

And why are you creating all those additional body-fields? I.e. why not merge the whole bunch into one?
Since is't not of much use (or fun) to test what happens when I run code like this near the no. of fields limit, I build something similar, copying body fields (w/o attachments etc.) to a single RT field on a new document.
Source documents were mainly EE notifications in my mailbox (to give you an impression of their size/looks).
I worked on local, using R6 on a 98SE notebook with 128 MB (not a heavy duty PC!).

It crashed with Count = 5001 on the WS.EditDocument line with a user defined error, pretty much just like your code.
As the results got saved, I tried to open it manually. That raized the infamous "too many paragraphs" error.

My code (agent, R%:run once/R6:none):

Sub Initialize
      Dim WS As New NotesUIWorkspace
      Dim Session As New NotesSession
      Dim ThisDb As NotesDatabase
      Dim NewDoc As NotesDocument
      Dim NewItm As Variant
      Dim MailDb As NotesDatabase
      Dim MailView As NotesView
      Dim MailDoc As NotesDocument
      Dim MailItm As Variant
      Dim Count As Integer
      
      ' set count = 0: no body fields copied yet
      Count = 0
      
      ' access current database and create a new doc.
      ' fill out formname and create an initial body field
      Set ThisDb = Session.CurrentDatabase
      Set NewDoc = ThisDb.CreateDocument
      NewDoc.Form = "Q_20906143"
      Set NewItm = NewDoc.CreateRichTextItem("Body")
      
      ' access maildatabase
      ' myMailPath was defined as constant; not included here!
      Set MailDb = New NotesDatabase("", "")
      If Not MailDb.Open("", myMailPath) Then Goto ForceExit
      Set MailView = MailDb.GetView("($Inbox)")
      Set MailDoc = MailView.GetFirstDocument
      Do While (Not (MailDoc Is Nothing)) And (Count <=5000)
            If Not MailDoc.HasEmbedded Then
                  Set MailItm = MailDoc.GetFirstItem("Body")
                  If Not (MailItm Is Nothing) Then ' previous version: HasItem passed, still the type property failed
                        If MailItm.type = 1 Then ' RT
                              Count = Count + 1
                              Call NewItm.AppendRTItem(MailItm)
                              Call NewItm.AddNewLine(1)
                        End If
                  End If
            End If
            Set MailDoc = MailView.GetNextDocument(MailDoc)
      Loop
      Call NewDoc.Save(True, True)
      Goto ForceExit
      
ForceExit:
      Print Count & " bodyfield collected"
      Call WS.EditDocument(True, NewDoc)
End Sub


This MUST be some limitation.
Taking that for truth, I see two ways out:
- splitting the code into several smaller doc's (perhaps one main and several respnses to keep them together)
- writing the RT content to word (we may lose (important?) details here!)

Actually, I had not thought about appending into one field. I had designed the form the way it is now, but then a process change had me change the way the new doc is created, but i did not change the form, i decided to keep it the way it looks, but not the way it is created. i'll try to use the append method, and let you know how that goes
thanks

Feel free, but as I mentioned: the error still does occur.
Hopefully yours is due to the no. of fields, while mine is the result of too little RAM.
Would listing up doclinks (+ e.g. doc title) be a solution? Would save you lots of redundant data and require far less resources!

Strange.... I feel as if I'm the one asking the questions here...   ;-))

Well, it turns out i FINALLY found the limit for the paragraph issue. the magic number is 21,509 paragraphs in a document. It turns out my problem is a result of the nature of the data i'm tranferring from the old docs to the new doc. the body's are all TABLES. Given that each table cell is considered a paragraph, and there are at least 4 columns in each of my tables, and i am trying to incorporate up to 50 existing docs (i've reduced MAX_TEST_CASES) this limits the average number of table rows to somewhere around 100. This is assuming there are no other "Paragraphs" in the body fields. It adds up quick! I guess my goal now is to see if there is any way to parse the body fields to see how many paragraphs are in the RTField, and create a new document if TOTAL_NUM_PARAGRAPHS reaches this magic number. Do you know if this would be possible in R5?