Hi All!
I’am inexperienced user of LotusNotes. I try to call Oracle procedure from LotusScript with following code:
Option Explicit
Uselsx “*lsxlc”
Sub Click(Source As Button)
'Messagebox "Start!"
'On Error Goto handler
Dim sess As New LCSession
Dim conn As New LCConnection("Oracle")
conn.server = "yaro"
conn.userid = "scott"
conn.password = "tiger"
conn.Connect
conn.owner = "scott"
conn.procedure = "lntest.test"
Dim ins As New LCFieldList
Dim outs As New LCFieldList
Dim num As New LCField(1, LCTYPE_INT)
Dim out_ As New LCField(1, LCTYPE_TEXT)
Set num = ins.Append("num", LCTYPE_INT)
num.Value = 123
Dim out As Double
out = conn.Call(ins, 1, outs)
'out = conn.Fetch(outs)
'Set out_ = outs.GetField(1)
conn.Disconnect
'Messagebox out_.value
Messagebox "Done!"
’ End
'handler:
’ Dim text As String
’ Dim extcode As Long
’ Dim exttext As String
’ Call sess.GetStatus (text, extcode, exttext)
’ Print text
’ Print extcode
’ Print exttext
’ Print Error$
’ End
End Sub
Sub Initialize
End Sub
so I have an error on out = conn.Call(ins, 1, outs) like
Error: ORA-06550: Line 1, Column 7:
ORA-00221: ‘TEST’ is not procedure or not defined
ORA-06550: Line 1, column 7
Here, Oracle stored procedure code
create or replace package lntest is
function test(num in number) return varchar2;
end;
/
create or replace package body lntest is
function test(num in number) return varchar2
is
ret varchar2(100);
begin
ret := concat(to_char(num),' yaro');
return ret;
end;
end;
/
Where I made an error? Any ideas…
Thanks a lot