Returning multiple pl/sql tables to VB using ADO + Oracle's OLE DB

Question

Windows XP
VB 6
ADO 2.7
Oracle 9i Client (OLE DB 9.2.0.1)
Oracle DB 8.1.7.2
I have just upgraded a VB5/NT (RDO + MS ODBC for Oracle) app to VB6/XP (ADO + Oracle's OLE DB). The calls to stored procedures that returns tables are not working now. I get following error:
-214721900 ORA-06550: line 1, column 42:
PLS-00201:identifier 'LO_AUDIT_ID_TBL' must be declared
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored
Please provide hint/help.

Answer 1

Yes, the LO_AUDIT_ID_TBL is a variable (of table type) being returned from the stored procedure.
I tried changing case of table is in pl/sql.
I tried removing the table(s) from the Call statement...
and I get error message that there are missing parameters.
THANKS SO MUCH FOR YOUR HELP.
I have been reading OLE DB User's guide in which there are examples of Ref Cursors and has no documentation regarding how to achieve same using tables (in stead of Ref Curs). I am also looking for documentation that would describe all different Registry attributes that could be turned on or off to do things, but have not been able to find any.
I am trying to use the PLSQLRSet to retrieve rowsets from pl/sql tables. You can see that in my VB code below, in GetSPResultSet function.
The VB Code is:
Public Function Retrieve() As ADODB.Recordset
Dim inparam(-2 To -1) As Variant 'set to be ignored by GetSPResultSet method
Dim outparam(0) As Variant
Dim strSQL As String
strSQL = "{ CALL PckPLAudit.Sel_Smmry( ?,{resultset 1000, lo_audit_id_tbl, lo_audit_dt_tbl, lo_audit_type_tbl, " & _
"lo_audit_status_tbl, lo_qty_selected_tbl, lo_qty_deselect_tbl, lo_qty_sent_tbl, lo_qty_follow_tbl, " & _
"lo_qty_received_tbl, lo_qty_ncpl_tbl, lo_qty_security_tbl, lo_qty_closed_tbl, lo_qty_sentsec_tbl}, {resultset 1, lo_res_tbl} ) }"
Set rdoRs = mConnection.GetSPResultSet(strSQL, inparam(), outparam())
BuildCollection
Set Retrieve = rdoRs
End Function
Public Function GetSPResultSet(ByVal szSQL As String, InParam() As Variant, OutParam() As Variant) As ADODB.Recordset
'============================================================================
'submits a call to a stored procedure that returns table output parameters.
'out params are interpreted as ADODB.Recordset
'szSQL : SQL call to stored procedure
'InParam() : array of input parameter values
'OutParam() : array of output parameter values set in this function
'============================================================================
Dim qry As New ADODB.Command
Dim ParamIn As ADODB.Parameter
Dim ParamOut As ADODB.Parameter
Dim RS As ADODB.Recordset
Dim inti As Integer
Dim intj As Integer
Dim blnret As Boolean
Dim mErrors As New cErrors
Dim retVal As Double
'Dim itmp As Integer
Dim ParmType As DataTypeEnum
Dim i
On Error GoTo errGetSPResultSet
blnret = True
Set qry = New ADODB.Command
qry.ActiveConnection = mrdoCn
qry.CommandType = adCmdText
qry.CommandText = szSQL
'load rdoParameter object(s) from InParam array if InParam exists
For inti = 0 To UBound(InParam)
'qry.Parameters(i).Value = InParam(inti)
Set ParamIn = New ADODB.Parameter
Select Case TypeName(InParam(inti))
Case "Integer"
ParmType = adDouble
Case "Double"
ParmType = adDouble
Case "String"
ParmType = adChar
Case "Null"
ParmType = adDouble
Case "Date"
ParmType = adDate
Case "Long"
ParmType = adDouble 'jks 12/19/2002
End Select
Set ParamIn = qry.CreateParameter(ParamIn, ParmType, adParamInput)
ParamIn.Value = InParam(inti)
If TypeName(InParam(inti)) = "Null" Then
ParamIn.Size = 0
Else
ParamIn.Size = Len(InParam(inti))
End If
qry.Parameters.Append ParamIn
Next
For intj = 0 To UBound(OutParam)
Set ParamOut = New ADODB.Parameter
Select Case TypeName(OutParam(intj))
Case "Integer"
ParmType = adDouble
Case "Double"
ParmType = adDouble
Case "String"
ParmType = adChar
Case "Null"
ParmType = adEmpty
Case "Empty"
ParmType = adDouble
Case "Date"
ParmType = adDate
Case "Long"
ParmType = adDouble 'jks 12/19/2002
End Select
Set ParamOut = qry.CreateParameter(ParamOut, ParmType, adParamOutput, 255)
qry.Parameters.Append ParamOut
Next
'execute the stored procedure call
qry.Properties("PLSQLRSet") = True
Set RS = qry.Execute() 'rdOpenStatic, rdConcurReadOnly
qry.Properties("PLSQLRSet") = False'
For intj = 0 To UBound(OutParam)
OutParam(intj) = qry.Parameters.Item(inti)
inti = inti + 1
Next
If OutParam(0) <> 0 Then
If OutParam(0) = 999 Then
i = mErrors.DisplayError(Val(OutParam(0)), "SAM")
Else
MsgBox "Database returned error code " & OutParam(0) & "." & vbCrLf & " Unable to complete operation. "
End If
blnret = False
End If
If blnret Then
Set GetSPResultSet = RS
Else
Set GetSPResultSet = Nothing
End If
Set RS = Nothing
Set qry = Nothing
Set ParamIn = Nothing
Set ParamOut = Nothing
exitGetSPResultSet:
Exit Function
errGetSPResultSet:
blnret = ProcessError(Err)
If Not blnret Then Set GetSPResultSet = Nothing
Resume exitGetSPResultSet
End Function
The stored procedure is:
CREATE OR REPLACE PACKAGE BODY D5750PGM.PckPLAudit IS
PROCEDURE Sel_Smmry (
     lo_res_cd          out     number,
     LO_AUDIT_ID_TBL          out     pckclaudit.audit_id_tbl%type,
     lo_audit_dt_tbl          out     pckclaudit.audit_dt_tbl%type,
lo_audit_type_tbl     out     pckclaudit.audit_type_tbl%type,
     lo_audit_status_tbl     out     pckclaudit.audit_status_tbl%type,
     lo_qty_selected_tbl     out     pckclaudit.audit_smmry_qty_tbl%type,
     lo_qty_deselect_tbl     out     pckclaudit.audit_smmry_qty_tbl%type,
     lo_qty_sent_tbl          out     pckclaudit.audit_smmry_qty_tbl%type,
     lo_qty_follow_tbl     out     pckclaudit.audit_smmry_qty_tbl%type,
     lo_qty_received_tbl     out     pckclaudit.audit_smmry_qty_tbl%type,
     lo_qty_ncpl_tbl          out     pckclaudit.audit_smmry_qty_tbl%type,
     lo_qty_security_tbl     out     pckclaudit.audit_smmry_qty_tbl%type,
     lo_qty_closed_tbl     out     pckclaudit.audit_smmry_qty_tbl%type,
     lo_qty_sentsec_tbl     out     pckclaudit.audit_smmry_qty_tbl%type,
     lo_res_tbl          out     pcktbtable_type.res_tbl%type
IS
BEGIN
     PckAudit.Sel_Smmry (pckclglobal.lg_pl_proc, lo_res_cd,
     lo_audit_id_tbl,
     lo_audit_dt_tbl,
lo_audit_type_tbl,
     lo_audit_status_tbl,
     lo_qty_selected_tbl,
     lo_qty_deselect_tbl,
     lo_qty_sent_tbl,
     lo_qty_follow_tbl,
     lo_qty_received_tbl,
     lo_qty_ncpl_tbl,
     lo_qty_security_tbl,
     lo_qty_closed_tbl,
     lo_qty_sentsec_tbl,
     lo_res_tbl
END Sel_Smmry;
END PckPLAudit;
also, pckclaudit.audit_id_tbl%type is defined as
TYPE audit_id_tbl_type IS TABLE OF disb_audit.disb_audit_id%TYPE
     INDEX BY BINARY_INTEGER ;
and disb_audit.disb_audit_id%TYPE is defined as
CREATE TABLE D5750.DISB_AUDIT
DISB_AUDIT_ID NUMBER(9,0) NOT NULL,
AUDIT_DT DATE NOT NULL,
AUDIT_CODE_TYPE_ID VARCHAR2(5) NOT NULL,
AUDIT_CODE_ID VARCHAR2(2) NOT NULL,
CRTN_ID VARCHAR2(8) NOT NULL,
CRTN_DT_TM DATE NOT NULL,
etc.