Using Call command for to start Package with Resultset return

[mutley]

Hi
I am using command CALL , for return a resultset from PACKAGE, because the package is using (TYPE T_SO IS TABLE OF NUMBER(1) INDEX BY BINARY_INTEGER...ETC)

I want return any array length, without to define 1000 or 2000 or 9999, What Number I put in my package ([B]"{CALL ADMGID.mypackage.Gmyprocedure(?,?,{RESULTSET Value ,Table1, tabl2 ...etc)

Public Function GetCustomer(ByVal Unidade As Byte, _
                                   ByVal Consumo As Byte) As ADODB.Recordset
    
    On Error GoTo GetCustomerForBand_Error
 
        Dim str_proc        As String
        
                str_proc = "{CALL ADMGID.PKG_REPORTMANAGER.GETCUSTOMEROUTBAND(?,?,{RESULTSET [B]9999[/B], PSo, PNt, PReferencia, PInstalacao, PPoste, PFase, PLogradouro, PServicePTFID, PQtdConsumida, PAnoMesRef})}"
    
        With g_pOracle
            .AddParameter "var1", adNumeric, adParamInput, , Uni
            .AddParameter "var2", adNumeric, adParamInput, , Cons
             Set GetCustomerForBand = .ExecuteCommand(str_proc, adCmdText)
        End With
    
CleanUp:
    Exit Function
 
GetCustomerForBand_Error:
    MsgBox Err.Number & "-" & Err.Description, vbCritical, "Globals::GetCustomerForBand"
    GoTo CleanUp
 
End Function