create or replace package CUST as
	TYPE t_cursor IS REF CURSOR ;
	Procedure GETCLIENTINFO (p_date in out date, io_cursor IN OUT t_cursor);
end CUST;

create or replace package body CUST as
Procedure GETCLIENTINFO (p_date in out date, io_cursor IN OUT t_cursor)
IS
	v_cursor t_cursor;
BEGIN
		OPEN v_cursor FOR
		SELECT EMP.EMPNO, EMP.ENAME, DEPT.DEPTNO, DEPT.DNAME
			FROM EMP, DEPT
			WHERE EMP.DEPTNO = DEPT.DEPTNO;
	io_cursor := v_cursor;
END GETCLIENTINFO;
end CUST;

Public Function GetTransactions() As ADODB.Recordset
On Error GoTo err_debug
Dim rs As ADODB.Recordset
Dim cmd As ADODB.Command
Dim p As ADODB.Parameters
Dim ErrNumber As String
Dim ErrDesc As String
Dim ErrLine As Long
Dim dDate As Date
Dim SQL As String

 111      SQL = "{call SCOTT.CUST.GETCLIENTINFO(?,{resultset 0, io_cursor})}"

 113     dDate = mProcessData.TransDate
    
 100     Set cmd = New ADODB.Command
 130     Set cmd.ActiveConnection = CN_ORA
         cmd.CommandTimeout =  20 
 110     cmd.CommandType = adCmdText
 120     cmd.CommandText = SQL
                
 131     Set p = cmd.Parameters
 134     p.Append cmd.CreateParameter("p_date", adDBTimeStamp, adParamInputOutput, , dDate)

 140     Set rs = New ADODB.Recordset
 150     rs.CursorLocation = adUseClient
 160     rs.Open cmd, , adOpenStatic, adLockReadOnly
 172     mProcessData.TransDate = p("p_date").Value
 170     Set rs.ActiveConnection = Nothing
 180     Set GetTransactions = rs
    
lb_out:
    Set rs = Nothing
    Set cmd = Nothing
    Set p = Nothing
    Exit Function
    
err_debug:
    ErrNumber = Err.Number
    ErrDesc = Err.Description
    ErrLine = Erl
    LogError "GetTransactions"
    Resume lb_out
    
End Function