DevOps, CI/CD and Automation

I am getting the following error.

ORA=06550
PLS= 00306

When I try and get the table of data from the Stored Procedure. Below is my test code. I marked where the error is generated.


----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------


Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Data.OracleClient

Public Class Form1
Inherits System.Windows.Forms.Form

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Dim Connection As SqlConnection = New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))
Dim Command As SqlCommand = New SqlCommand()
Dim sConnectionstring As String _
= "Password=testrtm1t;User ID=rtmtest;SERVER=emfadbt;Data Source=emfat;Persist Security Info=true"

Dim sResult As New DataSet()
Dim x As Exception
Dim Oraclecon As New OracleConnection(sConnectionstring)

Oraclecon.Open()


Dim myCMD As New OracleCommand()
myCMD.Connection = Oraclecon
myCMD.CommandText = "RTM_SP1_TEST"
myCMD.CommandType = CommandType.StoredProcedure
myCMD.Parameters.Add(New OracleParameter("CustID", OracleType.VarChar)).Value = "75463"
myCMD.Parameters.Add(New OracleParameter("CustID", OracleType.Cursor)).Direction = ParameterDirection.Input
myCMD.Parameters.Add(New OracleParameter("Date", OracleType.VarChar)).Value = "01-APR-08"
myCMD.Parameters.Add(New OracleParameter("Date", OracleType.Cursor)).Direction = ParameterDirection.Input
myCMD.Parameters.Add(New OracleParameter("sysdate", OracleType.VarChar)).Value = "01-APR-10"
myCMD.Parameters.Add(New OracleParameter("sysdate", OracleType.Cursor)).Direction = ParameterDirection.Input
myCMD.Parameters.Add(New OracleParameter("ResultSet", OracleType.VarChar)).Value = DBNull.Value
myCMD.Parameters.Add(New OracleParameter("ResultSet", OracleType.Cursor)).Direction = ParameterDirection.Output


Dim MyDA As New OracleDataAdapter(myCMD)


Try

MyDA.Fill(sResult) ------------------------------------------------------- ERROR
Catch x
MessageBox.Show(x.Message.ToString)
Oraclecon.Close()
End
End Try



DataGridView1.DataSource = sResult.Tables(0)

Oraclecon.Close()

End Sub
End Class