LO56510: NOTESADMINISTRATIONPROCESS.APPROVEMOVEDREPLICADELETION NOT FUNCTIONING CORRECTLY

APAR status

• Closed as fixed if next.

Error description

• 1. Setup two domino servers.  Ensure that Server A has rights to
  create databases on Server B.
  
  2. From the Domino Administrator Client, select a database on
  Server A.  Right click on it and chose 'Move'.  Fill out the
  dialog to move it to Server B.
  
  3. Wait for Adminp to get to the point where it generates an
  "Approve Deletion of Moved Replica" request in admin4.nsf on
  Server A.
  
  4. Create a LotusScript agent in the admin4.nsf database with
  the following code:
  
   Dim s As New NotesSession
   Set db = s.CurrentDatabase
   Set adminp = s.CreateAdministrationProcess(db.Server)
   Set dc = db.UnprocessedDocuments
   Set doc = dc.GetFirstDocument
   While Not(doc Is Nothing)
    Call adminp.ApproveMovedReplicaDeletion(doc.NoteID)
    Set doc = dc.GetNextDocument(doc)
   Wend
  
  5. Select the "Approve Deletion of Moved Replica" request
  document and run the agent against it.
  
  6. The "Request to Delete Moved Replica" request created by the
  agent code will fail when processed by Adminp.  It will generate
  the following error:
  
  ProxyDatabaseSourcePath; Error:Note item not found
  
  - Specifically the new request will be missing both the
  ProxyDatabaseSourcePath field and ProxyDestinationServer fields,
  which it needs for Adminp to successfully process it.
  

Local fix

• Augment the code to add the missing fields to the new generated
  request document.  For example:
  
   Dim s As New NotesSession
   Set db = s.CurrentDatabase
   Set adminp = s.CreateAdministrationProcess(db.Server)
   Set dc = db.UnprocessedDocuments
   Set doc = dc.GetFirstDocument
   While Not(doc Is Nothing)
    NoteID = adminp.ApproveMovedReplicaDeletion(doc.NoteID)
    Set NewReq = db.GetDocumentByID(NoteID)
    Set item = NewReq.AppendItemValue("ProxyDatabaseSourcePath",
  doc.ProxyDatabaseSourcePath(0))
    item.IsSigned = True
    Set item = NewReq.AppendItemValue("ProxyDestinationServer",
  doc.ProxyDestinationServer(0))
    item.IsSigned = True
    Call NewReq.Sign
    Call NewReq.Save(True, True)
    Set doc = dc.GetNextDocument(doc)
   Wend
  

Problem summary

• This APAR is closed as FIN. We have deferred the fix to a
   future release.
  

Problem conclusion

Temporary fix

Comments

• This APAR is associated with SPR# JSHN8BCSGL.
  This APAR is closed as FIN. We have deferred the fix to a
   future release.
  

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

Fix information

Applicable component levels

• R800 PSN

     UP