Re: Help on stored proc

From: Mark Tomlinson <marktoml_at_gdi.net>
Date: Mon, 08 Jun 1998 13:47:19 GMT
Message-ID: <357cea63.319813968@newshost.us.oracle.com>

Her is a basic curso example...

---

DROP PACKAGE MyfCur;
CREATE PACKAGE MyfCur AS
TYPE ename_cur IS REF CURSOR;
TYPE mgr_cur IS REF CURSOR;

PROCEDURE EmpCurs(Ename IN OUT ename_cur, Mgr IN OUT mgr_cur, pjob IN VARCHAR2);
END;
/

CREATE PACKAGE BODY MyfCur AS
PROCEDURE EmpCurs(Ename IN OUT ename_cur, Mgr IN OUT mgr_cur, pjob IN VARCHAR2)
    AS

      BEGIN 
         IF NOT Ename%ISOPEN 
         THEN 
             OPEN Ename for SELECT ename from emp; 
         END IF; 
         IF NOT Mgr%ISOPEN 
         THEN 
             OPEN Mgr for SELECT mgr from emp where job = pjob; 
         END IF; 
      END; 

END;
/
Received on Mon Jun 08 1998 - 08:47:19 CDT