Seema Kumar 16.Dec.14 10:48 AM a Web browser LC LSXOracle Applications Connector - All ReleasesWindows
Hi All
I need to call one Oracle API using lotus script as I need to update 3 fields from Lotus to Oracle.
I am using following script but getting error
Invalid data type for field 'P_VALIDATE', Connector 'oracle', Method -Call
Procdure has 'P_VALIDATE' mentioned as below-
p_validate in boolean default false
If FALSE then it allows update.
Tired with three possibilites-
1.Not taking this field in my script
2. Passing TRUE
3. Passing FALSE
but same error continues.
Set in_field_text =input_fieldlist.append("p_validate",LCTYPE_TEXT)
in_field_text.Text ="TRUE"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
I am new to this Lotus Oracle connect , can anyone please help if my approach to connect and update to Oracle using the API is correct and why I am getting this error.
Thanks in advance.
Code-
Option Public
Uselsx "*lsxlc"
Sub Initialize
On Error GoTo ErrorHandler
Dim sess As New LCSession
Dim conn As New LCConnection ("oracle")
'connect to the database...
conn.Connect
Print "Successfully connected to oracle."
'set the stored procedure owner and stored procedure name...
conn.Owner = "apps"
conn.Procedure = "hr_person_api.update_TEST"
'declare any fields and fieldlists for input/output data...
Dim input_fieldlist As New LCFieldList
Dim output_parms As New LCFieldlist
Dim in_field_int As New LCField (1, LCTYPE_INT)
Dim in_field_text As New LCField (1, LCTYPE_TEXT)
'set the input parameters of the stored procedure...
Set in_field_int = input_fieldlist.Append ("p_person_id", LCTYPE_INT)
in_field_int.Value = 12345
Print "ppersonid set"
Set in_field_text = input_fieldlist.Append ("p_pei_information1", LCTYPE_TEXT)
in_field_text.Text = "xx.ss@in.ss.com"
Print "p_pei_information set"
'with the input parameters set, call the stored procedure...
out = conn.Call (input_fieldlist, 1, output_parms)
conn.Disconnect
Exit Sub
ErrorHandler:
Dim ErrorText As String
If (sess.Status <> LCSUCCESS) Then
ErrorText = sess.GetStatusText & Chr(10) & "Error occured on line " & Erl() & "."
Else
ErrorText = Error$ & Chr(10) & "Error occured on line " & Erl() & "."
End If
Print ErrorText, 0, "Error occured"
conn.Disconnect
Resume Next
Exit Sub
End Sub
Return to top
Need to call API from Oracle using ... (Seema Kumar 16.Dec.14)
. . 
Print this page
