🚀 go-pugleaf

Hi

I want to call an Oracle 8.0 Stored Procedure using ADOExpress
in Borland C++ Builder 5.0. The Stored Procedure will return a
result set defined as a cursor type "IN OUT" parameter (see
definition below). How can I perform this call in ADOExpress
using the TADOStoredProc component ?


Definition of the Stored Procedure in Oracle:

CREATE OR REPLACE PACKAGE TIM_TEST_PKG IS

   TYPE all_device IS RECORD (
            ser_no   device.ser_no%TYPE,
            status   device.status%TYPE);
   TYPE device_cur IS REF CURSOR RETURN all_device;

   PROCEDURE q_device ( resultset IN OUT device_cur,
                       p_aufno IN VARCHAR2,
        p_posnr IN VARCHAR2);
END TIM_TEST_PKG;
/

CREATE OR REPLACE PACKAGE BODY TIM_TEST_PKG AS

   PROCEDURE q_device ( resultset IN OUT device_cur,
                       p_aufno IN VARCHAR2,
        p_posnr IN VARCHAR2 ) IS
   BEGIN
       OPEN resultset FOR
     SELECT ser_no, status
         FROM device
       WHERE faufno = p_aufno
        AND posnr = p_posnr
      ORDER BY ser_no;
   EXCEPTION
       WHEN NO_DATA_FOUND THEN
           Null;
       WHEN OTHERS THEN
           Null;
   END q_Device;

END TIM_TEST_PKG;
/

Any way to do this ?
Thank you.