The following code is a sample data provider agent, which was created using LotusScript.
Sub Initialize
Dim Session As New NotesSession
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim paramDocId As String
Dim agent As NotesAgent
Dim xmlRet As String
Set db = Session.CurrentDatabase
Set agent = Session.CurrentAgent
paramDocId = agent.ParameterDocID
Set doc = db.GetDocumentByID(paramDocId)
xmlRet = "<Record><Field label=""Index"" position=""1"">Status</Field> "
xmlRet = xmlRet +"</Record>"
xmlRet = xmlRet +"<Record><Field label=""Index"" position=""1"">1</Field> "
xmlRet = xmlRet +"</Record>"
xmlRet = xmlRet +"<Record><Field label=""Index"" position=""1"">2</Field> "
xmlRet = xmlRet +"</Record>"
xmlRet = xmlRet +"<Record><Field label=""Index"" position=""1"">3</Field> "
xmlRet = xmlRet +"</Record>"
xmlRet = xmlRet +"<Record><Field label=""Index"" position=""1"">4</Field> "
xmlRet = xmlRet +"</Record>"
Call doc.AppendItemValue("domino_status", "ok")
Call doc.AppendItemValue("domino_output", xmlRet)
Call doc.Save(False, False)
End Sub
