CREATE OR REPLACE PACKAGE Get_today_3 AS
 Type RetCursor Is Ref Cursor;
 Procedure ReturnCursor
 (
   pCursor OUT RetCursor,
   cWarehouse IN detailbohoutput.warehouse%Type,
   cCompany   IN detailbohoutput.company%Type
 );
END;
/
show error
CREATE OR REPLACE PACKAGE BODY Get_today_3 AS
 Procedure ReturnCursor
 (   pCursor OUT RetCursor,
     cWarehouse IN detailbohoutput.warehouse%Type,
     cCompany   IN detailbohoutput.company%Type
  )
 IS
 Begin
  open pCursor for
    select * FROM detailbohoutput 
     where asofdate = trunc(sysdate) - 1  
       and warehouse = cWarehouse
       and company = cCompany ;
 End;
END;
/
show error

lcSQL = "{call Get_Today_3.ReturnCursor('" ;
+ lcWarehouse + "', '" + lcCompany + "')}"
lnRetVal = SQLEXEC(nHandle, lcSQL, 'crsMyCurosr')

CREATE OR REPLACE PACKAGE CustomerGetByID AS
 Type RetCursor Is Ref Cursor;
 Procedure ReturnCursor(
   pCursor OUT RetCursor,
   nKeyID IN Customer.KeyID%Type);
END;
/
show error
CREATE OR REPLACE PACKAGE BODY CustomerGetByID AS
 Procedure ReturnCursor(
   pCursor OUT RetCursor,
   nKeyID IN Customer.KeyID%Type)
 IS
 Begin
  open pCursor for
    select * FROM Customer where KeyID = nKeyID;
 End;
END;
/
show error

lcSQL = "{call Schema.CustomerGetByID.ReturnCursor(" ;
      + TRANSFORM(This.nKeyID) + ")}"
lnRetVal = SQLEXEC(nHandle, lcSQL, 'crsCustomer')