Example: Sample LC LSX Agent to Call an Oracle Stored Procedure

This example shows how to call an Oracle stored procedure using the Connector LotusScript® Extensions (LC LSX)

[Options]
Option Public
Option Explicit
Uselsx "*lsxlc"

[Initialize]
Sub Initialize
	Dim sess As New LCSession
	Dim conn As New LCConnection ("oracle")
	
	'set the connection parameters...
	conn.Server = "servername"
	conn.UserId = "userid"
	conn.Password = "password"
	
	'connect to the database...
	conn.Connect
	
	'set the stored procedure owner and stored procedure name...
	conn.Owner = "OWNER"
	conn.Procedure = "PARM_PROC"
	
	'set Fieldnames property with any output parameters declared in 
	the stored procedure...
	conn.Fieldnames = "OUT1, OUT2"
	
	'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)
	Dim out1 As New LCField (1, LCTYPE_INT)
	Dim out2 As New LCField (1, LCTYPE_TEXT)
	Dim out As Double
	
	'set the input parameters of the stored procedure...	
	Set in_field_int = input_fieldlist.Append ("IN1", LCTYPE_INT)
	in_field_int.Value = 123
	
	Set in_field_text = input_fieldlist.Append ("IN2", LCTYPE_TEXT)
	in_field_text.Text = "input"
	
	'with the input parameters set, call the stored procedure...
	'the declared output_parms fieldlist will hold the output parameters 
	of the stored procedure...
	out = conn.Call (input_fieldlist, 1, output_parms)
	'fetch parameter(s) into the output_parms fieldlist...
	out = conn.Fetch (output_parms)
	
	'retrieve the parameter(s) from the output_parms fieldlist...
	Set out1 = output_parms.GetField (1)
	Set out2 = output_parms.GetField (2)
	
	'use the output parameter value(s) in your script...
	Print "Output parameter 1 is " & out1.Value(0)
	Print "Output parameter 2 is " & out2.Text(0)
	
	conn.Disconnect
	
End Sub