CREATE OR REPLACE PACKAGE Person_package IS TYPE R_cursor IS REF CURSOR; PROCEDURE allperson ( pList OUT R_cursor ) ; END Person_package; /CREATE OR REPLACE PACKAGE BODY Person_package AS PROCEDURE allperson ( pList OUT R_cursor ) IS BEGIN OPEN pList FOR SELECT * FROM person; END allperson; END Person_package;
TYPE R_cursor IS REF CURSOR;
PROCEDURE allperson ( pList OUT R_cursor ) ;
END Person_package;
/CREATE OR REPLACE PACKAGE BODY Person_package AS
PROCEDURE allperson ( pList OUT R_cursor ) IS
BEGIN
OPEN pList FOR
SELECT *
FROM person;
END allperson;
END Person_package;